??2C=S0D9LJ8*HX R =H(4TJL8$AHH(JHZ82JL,L \Z*H(N8OHE* PEDU$SSTTLML-D0< 8OTNLL0D:H2\J 3F2 3IWT3R3A" 61.J L.4B0.,^I.4B02M6J3S3BD&,.3B0"0*M3OWN+X3T.IR4"0606JKB3TKA6,FI7BSR+A7B"1*M3R3E+O3P"I606JT+R21"I60.JOL.,NI2M6J3C7O+M3A.IR52M6J3S7EI&,"7632J7S3M7C.,VI.4^-"3*M3C7M+C3R"E?1A/?;JEZJ*L;P8H2LZ(2ANJRJZ)NJRJ9!ZEJE8F8F8FJ(Z(NJRJJ3Z*J2K>9!J*>XR( =*4JE8A9HJ*Z2.J; Z7**N NE* EDUSYSTEM-30 NONE30:A2J N&>(X)H(>(&%.?+3$G[9:A+7$G<: H)/+DT>B>GEH+S3E.IF52M6J7EWQ+A3L.IV7"M&J3A R/T7H7JOM* CI6.F;3A RT7H2JWR7TKUN&,3QWR7TKUN*M3P3F+A3G"I602JOP7CSN.,BI2MJJ7EOGT&,3WGK3RGE6MJJ3P?C+D3E.IV-"1*M7TCO+E3R"I602J?A3PKTL&,7PKA+T61"364.J L.,^I2MJJ3JKT+L212I+Q3T3B"1*M7BSJ/BKL6,FI3JKTL626JOR3U?BP&,.-Z52M&J7ND??2C>PODSP"HOH(HTPA"TDJP"(AHS>.,L?8 .D(D-;J8RHT4RH<(XHXD8LN TD!HZ:( H-.(TL-8 .TH[\OH=8.[,PLP0 D+(GRQP]&5EP=^+, WHAT? C IS$!IR$!-0L+>()RIC9!H>>P*U2IL><(*R]CP>QC*K]C2A.H>X<2IL<>(*]P<*XICH<81H4H>>P*(2A$RC),"H>8!ICHX>L<]C: H*12A.YBYAIB9HL:YL2IML2A?=K=Z1K(*P.N$[: H=X=K9YMK:$QM*8.1"1K8 >?:, YLDD0I+LYEHV0N/BQL+DHXXSQ&IE>(,YYE0Y+U,"X?H=K7?H+!$RI*/6H=9HH6YL2I(,^II9!IA>XIJH3Z9IAYI$]IA9!II>(+E(*.N9IYR9> *$2A."2ATIM8!J9$VH6[Q2IOQ^9R9SQQM*=2A*FJ9YK""J9[QIKZ9H=8A9HIK$VT*:J9I^YJH=<(*F918HYM/T;XL,\,, 2I\32A, !6!02IL82AK?>(/ $R=C/ OLDK>XS0LQHQEH"X^Y&,"EB180&\,^Q^P2I\32AT1*K$RH L2> $T\1, =B=AI/O ERROR$RA+,"K? >$U-)QD*!$ H9\:$]IAYH3\:$]I9!IA>X*0$\*(L:Z;ID>(*8K=X!0V:A2I$R, 0Q*>0V:.=XJH5XIOCYLSC2ILI2A\JQL+J/C!6$P^?7AH:A$R^YK< ; :$Q^??AH, LINE NO. TOO BIG LINE TOO LONG DELETED O?8H9T^(^T H=?% *F*8A< 8A< K>< * IH> *A$RI2*AK=< **: H==H:X=I/+FIO< *8I.$I A&> !0: H=>(*A.H9<(*FI]9H>P+EH;< $+GIQX;I A&>(*FH;$!*FYEKS2L[W2AONYLSN +X!0YE2A/N<(+(IY< +7!0IE> + /+=HKAL2Z 2I$PD?(I."98!\2L2ZR2I$QD?(I.I9IVYG\*IZZ3IGSM(*YHZX^YH, 66:61*6.3K?XL2ILL> *=2AHLI)8F8F8FA..9"98A9HM, I S\=+NK>YMK\K=$!IM$!!0[\/M READY B B CPCACGCEB ^O" IN$&: X-I\$&"9* *RHKBDLM\IS;+6/?Z]B/B:C?$&$(IF2J$$D=O*K$ , $RO,$ ,"0Z0Y*P0Z>DZZJZZ5$P ?>>Q*90Y*]0^J8<(+8A<(*6K?<(*8K><(+CK=<(*SK<> *>$Q ?>>Q, <D]C*>IC9A*92J$$HHVX$/FH$?H/M2J$$IIXX$/MK > /W2J$$A/S:/:K YFK X%/WNO ROOM FILE NOT FOUND BAD FILE B<4C??;??7J\XILI<(/?2IL6>(*M2APIPI*BL72AAXLI> *KLI9HYL >L08D> -L/?P\04N>:=8CQ/+2P=114LA/?-$./.7$A>4,\^,,?%;= ;P5?80D!>B/?6 RJ%N%OWJI=WF?0G8AJHWY& ?2IL6J*< *NL7J+< *NL8J,< : 2A\0Q&T0, $RR-, Y& ?2IL68!Z*L78!Z+L82A8!Z,$QP?>EQ&, 03,7 INVALID PASSWORD FILE NAME--T-K>\)\.0!+AL0?(+OH9\:$]IA<(KS8!\//=L-?+K/=B;&YMMC QCQM+W I JW9F8F8A8F8D8AZ&$ $%D/=, $&$(JVZ3IF2J$$B=O/<9J4K;>P+J3Z(J49!*]$RO4$ ,"$RO +B!6 (:A[N$%BH/=K:XI2ILI>(++HIYCPIPILIYO:9!HIXIIK9> ++LI<(+,9!Y 8[ K=[ [! S K S <*&<(*^ O 8!K!>(*^O [!S K K;[ K S K^*" :*&K9>(*K* ?K 8!K>9X 8 7 :/6[^K^ 5*7 ( ) :/6[^K^ 2K^K9+IO7> /Y*,8F8FALKW[WKW9P[Q?5C?(]QBXW? Z^\YJX YE[ Y?!ZJ\.AZ [G"0K?> />"0K=< * "0K<> *D ;+E[ K " *W :+EJ 9/8:K 7K K6>(/5*LK4> *D"0K4> *D*LK3=. K2=H. R . ;+E[ K 7K K1<(*18A<(/5K0<( /K.>( -K .0; 7 7 7/,8![ K[!K+["O"K >(+\S"S"S!+QK 8!/JS"O"/J:*IHZY8 Z/5P\ Z4[Q?5WYC? J?F?1V,?!Z^WT\\.Z?2?;WQ?:K 9F8F8F[!K!C?[ K!C>8D<(*WK=< *T;XK [ K(*0"!O SS$*$ :K8!Z^KK9["2I: K"[": K[O "R^*;2A, [ [K9["K8Z!K7[$/GK > /Q"/6ZJ"^JK5> +R/4+Y%%): X]/7HY%-A0XY-A +=HB .K? >.Z-;PJRNTR-(.TJ- >.T[O =..[PKP <+GZRKO9D+Q>(+,HZAO>(+)%%))+,IOHZXZHYA>HZXY- (WTYJYEY W^X ZZ^0* B 2 2/+O7W3OSRE7R.JJ0.4R6. R .4F4* B * B * B 6 WPT*M.0R2*6B5. J5*4B4* B * B * B 7JCM6 SL3R3LP*M.0R2*6B6. R4*4B12 ?E7LSI+SB,7PSU"M2J6JB/7AOS* B2+OCF7EWD7SOY3T7E.-B32 GB3SOI* CC6 B /AL.-V. F ./V2./J7* B 3P A/EF .0F-"M6J.JJ0.4^6. F .7V7* B * B * B 2 GT10 REM .... "DEMON" PROGRAM BY TOM KLOOS OMSI S.R.C. .... 80 RANDOMIZE 90 RESTORE\GO SUB 750 100 REM CATALOG IN 600 S, IF S IN 800 S, CHAINS IN 900 S, DATA IN 1000 110 PRINT\DIMB(21)\DIMD(21) 140 PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE" 150 PRINT"(OR TYPE LIST FOR A LISTING) ?"; 160 FOR A=1 TO 20 170 INPUT $B(A) 180 IF B(A)=141 THEN 245 190 IF B(A)=255 THEN 390 195 IF B(A)=253 THEN 430 200 IF B(A)=160 THEN 170 205 IF B(A)=173 THEN 170 210 IF B(A)=223 THEN 370 220 IF B(A)>218 THEN 440 230 IF B(A)<193 THEN 440 240 NEXT A 245 PRINT\IF A=1 THEN 710 250 FOR C=1 TO 20 260 READ D(C)\IF D(C)=-1 THEN 450\IF D(C)<100 THEN 290 270 IF D(C)<> B(C) THEN 320 280 NEXT C 290 LET E=D(C)\IF B(C+1)<>0 THEN 250\IF E=0 THEN 500 295 IF E<0 THEN 450 300 PRINT\PRINT"PLEASE WAIT A FEW MOMENTS WHILE I SEARCH FOR YOUR PROGRAM." 310 PRINT\PRINT\GO TO 800 320 READ D(0) 330 IF D(0)<100 THEN 250 340 GO TO 320 370 GO SUB 410 380 GO TO 170 390 GO SUB 410 400 PRINT CHR$(220);\GOTO 170 410 IF A=1 THEN 170 420 LET A=A-1\RETURN 430 GO SUB 750 435 PRINT " DELETED"\GO TO 160 440 GO SUB 750 445 PRINT\PRINT" ***ILLEGAL CHARACTER - RETYPE LINE "\GO TO 160 450 PRINT\PRINT"PROGRAM "; 460 FOR F=1 TO A-1\PRINT CHR$(B(F));\NEXT F 470 PRINT" NOT AVAILABLE." 475 PRINT"PLEASE TYPE PROGRAM NAME AS IT APPEARS IN DEMONSTRATION LIST." 480 PRINT\PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE?"; 490 GO SUB 750 495 RESTORE\GO TO 160 500 PRINT\PRINT\PRINT 510 PRINT"DEMONSTRATIONS AVAILABLE ARE:"\PRINT 600 REM CATALOG 601 PRINT" TIC-TAC-TOE TRY TO BEAT THE COMPUTER!" 602 PRINT" NIM A MATHEMATICAL GAME" 603 PRINT" BANDIT SIMULATED SLOT MACHINE" 604 PRINT" PHOTO MAKES ELECTRONIC FLASH CALCULATIONS" 605 PRINT" BLACKJACK A CARD GAME" 606 PRINT" BLACKJACK RULES RULES FOR CARD GAME (INSTRUCTIONS)" 607 PRINT" WEEKDAY GIVES FACTS ABOUT A DATE OF INTEREST" 608 PRINT" BUZZWORD RANDOM WORD GENERATOR" 609 PRINT" FOOTBALL SIMULATED FOOTBALL GAME" 611 PRINT" DOMINO GAME OF CRAPS" 612 PRINT" HORSES SIMULATED HORSE RACE" 613 PRINT" GUNNER ARTILLERY PRACTICE" 614 PRINT" ZOOP OUTGUESS THE COMMAND DECODER!" 615 PRINT" BASEBALL SIMULATED BASEBALL GAME" 616 PRINT\PRINT "GIVE NOLINE COMMAND BEFORE RUNNING DEMON" 700 RESTORE\PRINT\PRINT\PRINT 710 PRINT"WHAT DEMONSTRATION WOULD YOU LIKE TO SEE? "; 715 GO SUB 750 717 GO TO 160 720 DATA L,I,S,T,0,L,I,S,T,I,N,G,0,D,I,R,E,C,T,O 721 DATA R,Y,0,C,A,T,A,L,O,G,0 750 FOR G=1 TO 20\LET B(G)=0\NEXT G 760 RETURN 800 REM IF S 801 IF E=1 THEN 901 802 IF E=2 THEN 902 803 IF E=3 THEN 903 804 IF E=4 THEN 904 805 IF E=5 THEN 905 806 IF E=6 THEN 906 807 IF E=7 THEN 907 808 IF E=8 THEN 908 809 IF E=9 THEN 909 810 IF E=10 THEN 910 811 IF E=11 THEN 911 812 IF E=12 THEN 912 814 IF E=14 THEN 914 815 IF E=15 THEN 915 899 PRINT"ERROR IN DEMON PROGRAM"\STOP 900 REM CHAIN S 901 CHAIN "TICTAC" 902 CHAIN "MONIM " 903 CHAIN "BANDIT" 904 CHAIN "PHOTO " 905 CHAIN "BLKJAK" 906 CHAIN "DOMINO" 907 CHAIN "WEKDAY" 908 CHAIN "BUZZWD" 909 CHAIN "FOOTBL" 910 CHAIN "HORSES" 911 CHAIN "GUNNER" 912 CHAIN "21INFO" 914 CHAIN "ZOOP" 915 CHAIN "BASBAL" 1000 REM DATA 1001 DATA T,I,C,T,A,C,T,O,E,1,N,I,M,2 1003 DATA B,A,N,D,I,T,3 1004 DATA P,H,O,T,O,4 1005 DATA B,L,A,C,K,J,A,C,K,5 1006 DATA D,O,M,I,N,O,6 1007 DATA W,E,E,K,D,A,Y,7 1008 DATA B,U,Z,Z,W,O,R,D,8 1009 DATA F,O,O,T,B,A,L,L,9 1010 DATA H,O,R,S,E,S,10 1011 DATA G,U,N,N,E,R,11 1012 DATA B,L,A,C,K,J,A,C,K,R,U,L,E,S,12 1014 DATA Z,O,O,P,14 1015 DATA B,A,S,E,B,A,L,L,15 3999 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1 4000 END -1,-1,-1 4000 END DATA -1,-1,-1,-1,-1,-1,-1,-1,-1 4000 END 15 3999 DATA -1,-1,-1,-1,-1,-1,-1,-1,-1 4000 END T L1 1610 FOR L1=8 TO 1 STEP -1 1620 FOR L2=0 TO 7 1630 IF A(L2)<>L1 THEN 1670 1640 LET B(Q)=L2+1 1650 LET Q=QF T1>0 THEN 2030 2000 PRINT " ...YOU WIN THIS TIME..." 2010 LET Z=1 2020 GO TO 1850 2030 PRINT " ... THE PDP-8 WINS THIS TIME ..." 2040 LET Z=2 2050 GO TO 1850 2060 REM END OF TEST WINNER PROGRAM....... 2070 PRINT "DO YOU WANT TO PLAY ANOTHER GAME: YES(1), NO(0)", 2080 INPUT X1 2090 IF X1 = 1 THEN 250 2100 IF X1 = 0 THEN 2130 2110 PRINT "I SAID ONE OR ZERO: TRY AGAIN", 2120 GO TO 2080 2130 PRINT"IT S BEEN FUN, COME AGAIN SOMETIME" 2140 GO TO 2160 2150 DATA 2,2,0,0,0,0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1 2160 CHAIN "DEMON " 2170 END END 0,1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1 2160 CHAIN "DEMON " 2170 END 1,1,3,3,1,3,3,1,1,2,3,2,2,3,2,1 2160 CHAIN "DEMON " 2170 END XZS+%V/Z/J[%;$[+HV?+$%VS+HZ?/[$3S+8/[K1THEN1300\LETK=K2\GOTO1310 1300 LET K=K1\LET K1=K2 1310 IF K1<0THEN1320\IFK>T0-P(A5,0)/2THEN1320\LETI1=1 1320 RETURN 1330 REM ***** EXPLOSION ROUTINE 1340 LET X=P(D5,1)\LET Y=P(D5,2)\GOSUB 1560\GOSUB 1610\PRINT CHR$(7);CHR$(25);"*"; 1350 LET B1=1 1360 LET P(A5,0)=0\LET P(D5,0)=0\RETURN 1370 REM ***** DRAW MINES 1380 FORI=M0TOM9\IFP(I,0)=0THEN1410\LETX=P(I,1)-R0\LETY=P(I,2)-R0\GOSUB 1560 1390 LET X=X+2*R0\LET Y=Y+2*R0\GOSUB 1570\LET X=X-2*R0\GOSUB 1560 1400 LET X=X+2*R0\LET Y=Y-2*R0\GOSUB 1570\GOSUB 1610 1410 NEXT I\RETURN 1420 REM ***** DROP MINE 1430 LET E9=0\FOR I=M0TOM9\IFP(I,0)<>0 THEN 1460 1440 LET M1=1 1450 LETP(I,0)=D0\LETP(I,1)=P(A,1)+.3\LETP(I,2)=P(A,2)+.3\RETURN 1460 NEXTI\LETE9=1\RETURN 1470 REM ***** DRAW TORPEDOES 1480 FOR I=T2TOM0-1\IFP(I,0)=0THEN1500\LETX=P(I,1)-V(I,1)\LETY=P(I,2)-V(I,2) 1490 GOSUB 1560\LETX=P(I,1)\LETY=P(I,2)\GOSUB 1570\GOSUB 1610 1500 NEXTI\RETURN 1510 REM ***** FIRE TORPEDO 1520 LET I=A+T2\IF A=0 THEN 1530\IFP(I,0)=0THEN1530\RETURN 1530 LET J=1+S0/FNS(A)\LETP(I,0)=-1\LETP(I,1)=P(A,1)+.3\LETP(I,2)=P(A,2)+.3 1540 LET V(I,1)=V(A,1)*J\LETV(I,2)=V(A,2)*J 1550 RETURN 1560 PRINT CHR$(FNG(2)); 1570 LET X1=C1+S1*X\LETY1=C2+S1*Y 1580 IFX1<0 THEN1610\IFY1<0THEN1610\IFX1>1020THEN1610\IFY1>1020THEN1610 1590 PRINT CHR$(FNH(Y1));CHR$(FNY(Y1)); 1600 PRINT CHR$(FNH(X1));CHR$(FNX(X1));\RETURN 1610 PRINT CHR$(FNG(4));\RETURN 1620 GOTO 1630 1630 END %$% %$$$+=H+"8 Z28H%> %6%TF%$$%$<8+0%<8%$ 6R2++*A 6*A9+8D;]6S/,7//[5F5E9G53[$&K?[Z[[K>[HY[Y\Y]K=Y^K<[.; [,[-$Y$WZYT1$W/G.BK;9K: S,$VY^[HS.K6*QI[[ZI\[[*G.: /L/LN[\R;$K[V 52J%$K2J%$A+)K<[$K[2J%$+)K\. 4 3$V??A[]1+$G+$+%)-D?:/?UJ?FA[PA:/S:J1.Z1ZK?[N*PND($VX?IK$=O>K=> *7 (+!K%[NI 2J%$B+,+!2I; O;O:[OK9 OO8C8[ 2A%!"HL+\I 2J%$D+,PRM4HH MM4HH MM4HH(MH; HH 6+HILJL;L;0F:0L-\HMD2D?(M34;8HCN0FIP;8CL4\BLO KDJLCDHH74ALP< H<8N8=\3LG */$METQ DRDPLLIH?D[?D, DHPA? H9AL HIPSD!HIH$4!0LL8+L(0)DI ?H!:H!40L6LLABLYDN >RLI$CL!8HH>(PU$2LL0>D(H*D]C>LQD*4KCD2. L>0X20IH< >D*]D< *I CL>L*H(DAH$HC0)L"8H8$!LC0HY CH<8DH >L>0LL](CL 0HLX(< LIDYCL>D*H28A^ W+>+?/"+"*]U=?+8L9MG=3?NEU:E"?/C?"+A>FB 2?! !KYLZC+O\= O?$)&$D?40:HV=$BC?K><(*DK=<(+ IJ<(+,K<<(K;HRAA<(*DK:<(*DIGXVHV.K9=HR]K8.]K7=H*+K6=HRIEK5.$;$=+HALXW$;$=+EA XXHW=H+Q9FHW.-XX;XHVXVHX/J$SIN%B?(?,Z$0$6,8[JKJ9D=X/4KJ9!I^Y^ 3I^/ZJX>(*LP$*QJX>(*O-&%<+,;XO-O30?6?P[?%? RZ?.=6 ?W?/>O=?/>K< ; =/>$>$6*J8!XWNLRLXXIXXNIVXYLNHX> *%LNHW> *&:AHNXZHZIYYN.LPNPNPNPY*VHX8!\NHW8!\N"3RL* \N; IVYVIVJ?>P.3$S4O/:E $,<+G9XHU\Z;*DZK9\Z/XPHP$,<;ZHU\Z/LHV9HO88J8J8J 8HAAK7XV/U$BI"> +"/6%B?2?%B?7?&?;\-!%%BQ UP< *\LN8!H[> *]LN8!H\> *^LN8!H]> * : HNIY.PNPNPNPY*EK?8!\NH[\NH\\NH] >*X$;9F8F8FXZ$;HZ.+$;ID> .4ID$?,5%B?,B$0H <(+H9H> +H$6,8$>,8$;$<,89F8F8FX"$;$=/JH"X"SJ/J:OY=+$$;OY> (9SY+Z9H$ ,8XZ9HZIC>X,8HZY^-!?4?^D38: X^$;$<*H:/?H1XZLZXZ,Z$>$)$/$?X^*CP : X^HVAA8!$?*C: H X X^H ?*VX $SPCH > *TS$>.SP *TK>XV*T$?$>: X^*CP +QS$;K=<(+K8A>(+LK<*1P +QS$;K;>(+OK=*1;$K:XV*TK9+M$SROH >(/S*"$BK8<($>HRXX]X\IKX[%I/XH > ,8/%INK0> /7K1/6?R6$$/.\J\JJ4KX=3!%?C?D?B&JH^?,($>$+*ZH"$,8IN$?$;H3> *WLZ> *WIE\ZPZ\Z$>X^,*$<+PH"XHK[>(*=H$,0 *3$;K?> ,8IN$?$;H3> *;$>,*$SS1$;$<*;X"$;H3> *;$>H"$,4*JK\\ZIN$?*XQV:$>*F8!LZKZ>(/>%$*FN92+??=3L3M?:(=\K?34[\X?&*<18?K9)VT>V3;D^ ,*G?*9W7]AF2.0CEB%\$D ,+7/2RVI*?\MO> PCPUH$9HX$>X*O$ *O$.IN8!$?:$;$>ID>(*1I XWK?XIX $7LI<(**PIPW*[LI8J8J8JX%BB%$/>LIXZ,Z$;H2< *5%B\$6*3IF<(+OK=<(+,8A> (9%B?,?1?.?;DQZ (9%B?>J+ %B?+?.?2N+G%B?0?+?,L+S%B?1?0P+G?-F?"G%B???7?2 *K%B?7?2?,R$;K?> *"K?$? >$;K?>(*]HVID>(+)HV$?*RK?$?K( >*K$>$0%$6HVK?>(*OHV8!$?*K%B?:T$0$6,8: X %BV$0%$7I <(+FI > ,8%B?,?19/=%B?;?29/=%B?.X$0H <(,89H> ,8X %B?,?1A5$0%$6$>%B?-?,?;?0A?$0%$6,8*DK( >$SUQI^9!I(>P/-;$S-1,%BBBBBA;M BX?^%B?3\$+$>:H"$,8HZX$;H3> ,8$ ,8<(,8\P$;K?>(*\$>* $ ,8<(,8\$;K>> ,8W*C%B?,??\QQ =;$YR$;IH<(QR> $>$)QR+H]9!X]H\8 ,8ID$?,5K2[P\M:A\MIZ>(/" =MP?+HIQ> +H/"B/?6 RJ%NMS?<4>G^ \-?W?T%B?<^IVY*M)9F8F8DJRZQM)I+]);VI)XZ.SRXS R4S(S+LZ<(*18A[ PZLZ<(*;9 [ZK Y( =+BK 8A$&ZK 8!ZI)K ,% 8 7)<\!P!Q+/ZLZ=H+.8D?H+A])+BLZZ+APZLZ+A: HZXZLZXP$S5L+B<3\AQ"<=V=UDO-CO3I-[)K?Y; >0Z0Y*K0^>(+*O)<(+O=H+*9F8F8DAHJZZYK)XHLH*[* *9*3*;+U =LH<(+XYK< ;HY :LH<(*1XYK9 ;HY :K8*?YLHYLHY+ :+XYK7 =HY ;O)A,HXXYK6 ;I;?H+DLY8AY >K?Y;K)K5[)*F:+O =L 8!*?XYK4XHY8F8DXYHY8DAHK3 ;P+]/Y: > >-6H] 8%<+&S70?WZ?2LIH[X[LIXLIZH\XWH]XXX\X]K?XYH9HXJ8HZ8P.H9DXH]8DX]H\8D=X/>X\.6H\<(H]<(H> +MX[/CH\8F>X/C"6: H[X[+MHXH]X]8DHWH\X\/VD(G2N D[/+0 6!/HA+ \V,CU0 ^F*$;)DMS* ;"Z%81&F=\[7?([3K)ZU[4$;K?> *K >.$>X\X]X$;$=*WALXY =8*OK<<(*&K;> *>K4> +7K3> +7K:ZU*OK)ZUK3> +7S3$;IH<(*;8A8A> $>H\Y[H]Y\HY]*L: [3*4;(VH3>(,8$>K3>(+VH\<(H]> +7HS38![3I[X\I\X]I]XK3K4[3IKX[%IK6XIK3?+&K38![3K5XIK3<(.9H[3<(*]Z*J*8!Z,O=K<9J8J8HK;J*Z+2I: J*Z*: J+Z+N*^+R,*R2AO=K<<(.A9D8!Z 2I$DD!.A2J :H:A2J 9B]^+I2J 9IJ5 8: J6 7O68!J5 5J6 4KHZ..-K32J 9C]^+X:A2J 9D]^J(+)%%))+,IOHZXZHYA>HZXY- 8D<(*WK=<(K . KSC8[RKR9F8F8F8!Z;2I$E!R(. 2IOR SSRSSR;+J2A. DF+^66:61+[/X0&:0!+ /WI\[W+MS(/7AK2-G^-6^+Y%^.Y%,\"%BL*M+C*A.?! ?PT;N";K[$CHP"OUN?/\R.<(*/XJPZ(J4XJLJ=.OZ2Z3H9J2\?6??(/^J38J8J8JC LJ3AAL.;<(/LK =HK!K[$C/LHR$CK"$C/UB DI0< ? ABJJ;J;J;HTH(HCJ;H(HMHTJ;J;J;HSH[HTHTH%HTHMHTHMHMHMHMHMHMHMHMHMHMJ;H(H6H+IBJ;3;F<:L-H7M2A?MZ3;M8CBNFLIP;CN4B7OK8JCSH7RAMP ?GVPCH?.M.PTA?2M2HHAPHGQ 2A/$9U??0 IL;?U?%%?[3%BBBAB?&4 >:N?!>6SN?!>2B?!EAR?!>*N?!>&I?!N?!N?!>ZI?^WHAT DEMONSTRATION WOULD YOU LIKE TO SEE?^?!>VI?^(OR TYPE LIST FOR A LISTING) ??^?E?!>RLA2?C>?FA6?!>FF?\A^?XA2?W?!>BKA^?XA2?W?ZBB?$BF?!=6KA^?XA2?W?ZBN? BR?!=*KA^?XA2?W?ZBZ?$B^?!=^KA^?XA2?W?ZB&?$A:?!=VKA^?XA2?W?ZB.?$A:?!=NKA^?XA2?W?ZB6?$B:?!=BKA^?XA2?W?BCB?$CF?!<6KA^?XA2?W?DCN?$CF?!<.MA2?!=:I?!KA2?Z>?$CV?!<&LC^?C>?FA6?!<^CA"?XC^?W?!KA"?XC^?W?Z?S>?$C&?!KA"?XC^?W?DC*?$C.?!?CA"?XC^?W?!KA^?XC^?U>?W?]:?$CZ?!KC>?Z:?$DB?!;:KC>?D:?$C&?!;6I?!I?^PLEASE WAIT A FEW MOMENTS WHILE I SEARCH FOR YOUR PROGRAM.?^?!;2I?!I?!DDR?!?$A:?!;RAA2?CA2?S>?!G?! "EAR?!;NI?^ DELETED?^?!DA.?!<:EAR?!;JI?!I?^ ***ILLEGAL CHARACTER - RETYPE LINE ?^?!DA.?!?C>?FA2?S>?!I2?XA^?XD>?W?W?E?!MD>?!:>I?^ NOT AVAILABLE.?^?!::I?^PLEASE TYPE PROGRAM NAME AS IT APPEARS IN DEMONSTRATION LIST.?^?!:6I?!I? WHAT DEMONSTRATION WOULD YOU LIKE TO SEE??^?E?!:2EAR?!:.B?!DA.?!;>I?!I?!I?!:*I?^DEMONSTRATIONS AVAILABLE ARE:?^?!I?!:&N?!:"I?^ TIC-TAC-TOE TRY TO BEAT THE COMPUTER!?^?!:^I?^ NIM A MATHEMATICAL GAME?^?!:ZI?^ BANDIT SIMULATED SLOT MACHINE?^?!:VI?^ PHOTO MAKES ELECTRONIC FLASH CALCULATIONS?^?!:RI?^ BLACKJACK A CARD GAME?^?!:NI?^ BLACKJACK RULES RULES FOR CARD GAME (INSTRUCTIONS)?^?!:JI?^ WEEKDAY GIVES FACTS ABOUT A DATE OF INTEREST?^?!:FI?^ BUZZWORD RANDOM WORD GENERATOR?^?!:BI?^ FOOTBALL SIMULATED FOOTBALL GAME?^?!9>I?^ DOMINO GAME OF CRAPS?^?!9:I?^ EC6?!I?^DEG. RIGHT?^?E?!FC:?!AC>?CC:?VDB?QDF?!7RLA"?C>?FB:?!AAZ?XA"?W?CAR?XA"? ?!AA^?XA"?W?CAJ?XA"?W?!7NAAR?XA"?W?CF?XC>?W?VAZ?XA"?W?UB?XC>?W?VA^?XA"?W?!7JAAJ?XA"?W?CF?XC>?W?VA^?XA"?W?SB?XC>?W?VAZ?XA"?W?!MA"?!G?!8&EC6?!I?^RIGHT?^?E?!FC:?!LA"?C>?FB:?!AAV?XA"?W?CAV?XA"?W?UC:?VAJ?XA"?W?!7FMA"?!G?!9^EC6?!I?^UP?^?E?!FC:?!LA"?C>?FB:?!AAV? A"?W?CAV?XA"?W?UC:?VAN?XA"?W?!7BMA"?!G?!8^EC6?!I?^FORWARD?^?E?!FC:?!LA"?C>?FB:?!6>AAV?XA"?W?CAV?XA"?W?UC:?VAR?XA"?WI;$T6T8T9H3$:8!Z9IX6,SIZ8R9*Y< YI;$UT9T86,SH6<($VY,SH6>($VH3$* ?H,S*)P,,SJ8< *Q$">TQ$V$Y>H$ $ $RZ6.7 NAXXA^YK ATZ^YASRXJK&XJXJATATATATATATYK ZP=ATATATAT"UAT^ZBATXJYH,HM"U%LL?,XM%M1L5L&K2L1L$L9LLLLLLLLLLZ[T^TNFTMNTZRRLYHDHKX^MN"%LTSLHIRH&"J.&PL$6KMJ)P^$>P

=H+LIH$\/AK=Z?K<$\J?+I$ /AIYIX+J[A$ $]K;$\: KW :K9$\KA :K8$\$[$W-N/D:/7H3$%YG2IMG2AAM/6JX:XLYBD?/N:A^A? Z6K?K>ZH$&$Y$WZY9V*H*DIR>(,SH7> ,SH4$\,S$Q:$RXX/=$YK<=H$VC;,S$YC:$WZDB1$V . ( % ;O WRWUWT$!AOQO., 9 ?8.1H3$%;H2$%9!H3(/O$Y 7O7 6/O$[X;H;/X\!,ZCN]C]F\ B%B%B%CC8 Z/5P\L\I >(/4L\XZ%D.4$Y.4AXACAIAOATAFAMAKARAWAB??????: X1,SNQSX[$: X.,SABAX;$K?Z-$RXXK>$WZ^L$VZ-Z,: *-,SP.*6P,: $RLYX,IYZYKQZZX1,S$T3&!&\ P R 8T3T3T3T0 P VT3T3T3T2T3 \ \%%): X]/7HY%-A0XY-A +=HB(*PLO >*F$RC%$ /=^Y\\\\NH98!H4> ,X$].W"W/<"W/;Z,J,9!IE>P$VJ,.P->HR,.,X(+[HY >XY =IOI.HZXZH,A0>(+,HZAO>(+)%%))+,IOHZXZHYA>HZXY- (CNC0 SIBD^YW$N^1H3$K?ZTJT >JT =JT <,S: YR,S8!H48!$].NP/>HRT.T>0!*Z.Y;AIQYGIGK;>X$VIQYOH4$!AOQQQUS.]O(J8$V, SYKW Y+OBM??L-K(>(+[(P X^H ? %]I\[W+MS(/7AK2-G^-6^+Y%^.Y%,\"%BL*M+C*AA4>AZT 0R.!E >H*F ?0!*BJLK>0&;K=ZA.0Y*M0^AM.LZ$NRZ!RRJ$$WAUWOVR8RRRR&!.R^RJ$*]RRVR*9K<^R*9RRNRK;Z"K<^RIN>(+NIV+^J$*^NRJ>8!Z"?A(+QIH+^IUZ$(-9IAH8< $VRT*RI:$U8"TAAC,S$)[H$$+B$RHMOH$RF<$*:OH8 [H*?$ AOX52IMDA?H5]D2AQOQDSH*4,SH3$IDYD*+X$V$*;IQYFIGYQIG8!IO>(,S: IFYF: IGYG$ AF$!AG+Z8!YF$ IFYFIOYGIQ8!IF>(+=$ AF$!AGQFQG+1IGYQ,SK?ZSIB<(K>8!ZRRRX/=K1YB$ AOQ.U$YK<=$VK>=($VYB: IB9DK?.($)8AZT$+PH3^T,S$)ZT$+^$$(,S$*: X-K9/8$RLT+THWBI4>N&P>$+ LY?F"UKZ[ : ZYIO8AZZH6<(ZYY>H$ JZYP$"!&0RY$V*N$Q[^$RT*%$Q[^$RTQK^$P+F&*&*$ AP$W ,P*O$Y$WZYLO8!Z[$ APQP$W BJ[> *P*0O[SO =$YK<=C5K)$W 3/:+F$Y+N$RXXX9/;$YC5$WZLAS+NS/&P&P!><"A^AABIU^AEAIANAOARASA [$$RZR+FOY?[RZZZYAMK?R**Z"]J8"]I;Z*R).;O>I >X*+%!"6"..^ R .9F8FZ8J8C=N(^(R(.]KS+L%"B2?>H\1RXRX2J%$HK?Y$/-S-:/-? =I7X:; <; X<$/;I6 ? 9K8X= 7; X?O6Y 5I[[,I\[-I][.I^[/$/;K+[%$R*O6K4[$2IO$2A?+!I^[$K3Y^O62J%$DA[;K$Y^2J%$KJP[KO62J%$A<+!KKY!J=[UO62J%$CA[+![%;AYKVY KU$R*V/2[%$$V82J%$IJ3Y$/$RJBK?/1&/[(.((T/%Z6)(?/$.ACA>+-<=$$V$Y$W,"$V$Y: JYZY,XRY,XK? >,SIWX4$] =IVX4 =/<,<,<,*,+,,,-,.,/I5I5KHI5I5K;Z2H3*2,S: ZYK: >$" ,T$VH3 9> ,SH3$W-E0G*4$%.>8GMA?LUC[A=A>?K8=+)K7=H+)$RLBQDK6K5[$2IMD2AAMK4+$+S$RL1+[:,S/--+$Y$WZYSS:+.?S< ; J?3Q ,O>(BY^][V P[$&K?[Z[[K>[HY[Y\Y]K=Y^K<[.; [,[-$Y$WZYT1$W/G.BK;9K: S,$VY^[HS.K6*QI[[ZI\[[*G.: /L/LN[\R;$K[V 52J%$K2J%$A+)K<[$K[2J%$+)K\. 4 3$V??A[]1+$G+$+%)-D?:/?UJ?FA[PA:/S:J1.Z1ZK?[N*PND($VX?IK$=O>K=> *7 (+!K%[NI 2J%$B+,+!2I; O;O:[OK9 OO8C8[ 2A%!"HL+\I 2J%$D+,PLHVX;DH LLL\ H\,LWAU(7L<]L= XD\=DLO4KHZ(,L[8KH8OSDXD8 0L><\L6<(L<\JL8 JJ(83XKP3A/C"M&J3C3L2 G L*M6I+S7LN P7A2J*I+MCP+I" 3MWOR7R6JRI+ACD3XKP3A/C"M&J3CGI2 3CL*M2IGT3D. 3OWR"M&J3DGC2 ?KR7E2J*I+MCS+I" 3MOOH K2/WS3E& 7F^ 3E> 7VKE7LCA3PSE2 L7TKE7AOL"M&J3TSA2 ?KR7E2J*I+MCP3IF 3L/OT*M2MJJ3A/C+S3L2IGT3DJ 3L/NS7W6JNI+NCA3CGL"M&JW P/?%$\I%$HV<(*RHW\I*KHW\IHUXILI=*,8!XYHYI.XJLJXPPJHZ\JHY$<(*+HXXYHZ\YLIK>XY:AE5> *6K:$!HP$!LYXY,YK=*=;$H[$!* LI$X^$ %PI%H^H$$!LIHV>(+O%+QH%$!Q4I4? +8H8$!H^\M8AHZ\M$!$!$!$!$!*=LI$X^: I4Y4I4?+1;$HMXMLM8! )Z*B%+1$SNE(*.H+XI%H2$!*H3$!LIP+H-<(*W*K:LIP+H-*KL+H.<(- H/>(- H4$!- H7$!;$XYY)LIH6<(+BK>PY*=I)$!*09F8F8FY)*3I)$!-/LIK=>(+O: HIXI;$S+E: +MS+QH5$!%%+ /S%K $! +Z0CLIH-<(/ H0> )Z- %H)XJH*8!IGLJ>(+4PJ+,LJH:$!PILI$H\$!- $?^DLI$Y0I08AH\$!I0HXXYHZ\YLIH=> )ZLI$Y1I1$!%2LIH>> )ZLIH?> )Z%I08AHXXYH,HZ\Y%2-AYBYC: HIXI\IIDXJINXLLI=H*9$\J*3YFIF8!IGXYLYAHIIY M Y - IF\J*3HYX*IK\J*3: HIXYLY=(+ I.Y^M^&9> 8QIL\JLY$HX8AXYLY )Z: HLXL+EIC> +E/??^NKH$ HJYMINXLMM=H*K\L$ *RH>> )ZI&\L$ *EMM=)ZH><()ZIE8!IGXYLY8J8HAHIJY M Y $ - % HLY!;$HLXLM!\L.&"&*RHYZ:IPXY"&J:\L*E% HY\LYB*EMM?*;MMH>>(*;IQXY% IRQB$!YB*R: YB+% HLXYLY< $!O?[\/\% *(/>HLXYTY)Z/=LI$H]$!- \J2AO?8H9T ?2J$(GEG9F(IUIY>(+3IV>(*VIUIW>(*(IT>(* IUIX>(*YIV$!YVIT",.IT$!IV<()Z",.MUA\>(*[IV$!",.IT< $!*[Y^I]IUYOMOI^<(.,K:<(.,K9$!H9K?<(+Q8A>(+Q.,[E/BH&[CH9K8X9.,Y^K>[CI^8!H2> )Z/BY^H99%%I^9P%%H&[E: I^XZ/ : IMYM/.IV< $!%+.O9LO31+7/2RV PC: O>X:AHZ9P%%- *X$70%%*IPX"H 8!L"?*"H \"%3PWHWA>> .%*I)X"L"XS.H->PIOJ9^:N:9H8!J8..]A2*UI4I ?H+C;ZP>(+GN;X-%$V;P!P.<: N;X.-?B B CPCACLB8?PCVB8B B B1B/B2B5B/B7B2B B B CPCACGCEB ^O" IN$&: X-I\$&"9* *RHKBDLM\IS;+6/?]?=V=U<:>H*F2J&M??A\>(BIBIB$BMCUCNCCCHBMCLCECNCACMCEB CECDCUB3B0B.CSCVBMCSPSCICPB COCVCECRB CCCCCBB CACNCDB CTCHCICSB CPCACGCEBMBM .2IO+2A<(+]X H 9F8F8D *H 8J8H *K)\LH ATIWBAAE )ZK>Y//=LIHV> )Z- H,K<$!- K;$!I1$!%+.H^>(*0$SFOH^H($!LMY1HZ8AXYI1$"HY$!HY$"I18A$!;$HMXM.*H9&<(+MH > )ZH9A,HXXYLY9 I7>X)ZH9H;X9/EI.[ O A,/Z: HIXI/ 2IO82AS8/%(*L$S&NHZI"[SKS ?IKS9!I*>X*Z$S-2/>KS$"KR$!O=K<>P*]O=8 ;: I-XILI=H*:&K:>(*3PIPIPI*(LI$!LI$!LI$!*($!O=O;8! 9K8XJHXXILI\JP<+CHT> />M5?-6$DB??]/NO2$SCH: HLY M Y M ASY LYAS8!I ?(/V;&HLXLLLYTLLYULLYV;&HLXL 7\L+W 8+2J]?=X8=WK?$CHP"SZND?- RD.D<(*3XJTZ,J8XJLJ=.SZ6Z7H9J6OK=Z,*[K>O.SV80X>\?6??Z70Y+E0\>(/<(/OK9=HK8K?$CQ;/O/OHR$CK7$C/Z+ 66:61+$/!0&:0!+)/ 3".K >H/Z/9>GK!>IK8B A? ? <PO C(B"?*0FDH([KHZ8P9H>((DW(K $H. >H,.LZXXDRHW,(*DJ 99(2&8H(2$(DALDLK(HP

=H+LIH$\/AK=Z?K<$\J?+I$ /AIYIX+J[A$ $]K;$\: KW :K9$\KA :K8$\$[$W-N/D:/7H3$%YG2IMG2AAM/6JX:XLYBD?/N:A^A? Z6IC??HH-?U^?5?)BPRP%$:KBTRHU\JHV\JHW\J9HJHQ>X%$,9;&HJXJHJXLLLXULLXVLLXW-FSU[N,B0B.?9CEB?WS/DQU.JOJB??>:I S:P=R(L1XGSR<8<8CFV? BMBJSQ[ Y&00<<;A:?A?!FLHX^H^C?XP9ZH^>X*PHP<(*XHRXKLKXIH^8F8FC>8DK=ZWX(+!F.+8 "+LKXSHZ$*XPHS8!"+HP*""] 92ILIXULIXVLI2AXW*"]HU2I\IHV\IHW\I2A!F*$%L?$%L>$%M\$%QCCPC[C%C C)C+JVDMDD$COCZFBFDXEW/-G ?HPIY? *F%!Y?HH\J9HJHQ>X%$HIXH$A,(: HJXJHJXILI*N9PHV<(* ?H8A9A8DP> PH)?LHX];VH]XKTK*.TK[ZW-Q1$AI"?+(-8HHXIH\XH,II2$DI3$D/2+.% + =C-&RO/[GJ 9;&HPK?ZE=(*F:":H1K>=(*F:&9IX1,(":!FH1?*R,(LHX^H^8J8J8J" H^"&*\$<(,(H.=HH0":.&U4O+WOO0FLFQW F\GWM/E2H/$D.:LHXBI<>(,(Q.,(I-Y.Q<,(%$2ILIXULIXVLI2AXW;&HIXI/J% JZKD[DKD8A[TKTJ[Z2J2[R+TNX8!Y<.-=U=V<8<:FPD.YH/I[HHHC0Y*$CK]0\"-0^.BP18Q"*40&*=[ (*6K ^";AJ"C\J Z".-HR0!+U: I"Y"J!8AC\J Z!I"?H+TN!0&>H0"0Y/C0\K?> /CD B0Z: >6A72S&+W-8:$EX??AAK /*I\$$I"$$/.\J\J2AO?8H9T ?2J$(F=B==(HU=(-,H&? -,HVYF%]% HV8!IF>(./-,GJO"9*!P+*1%U%U%U*PP-B%H-9!H.>P.9%:;XPHR?X*:R9.9Z9I[[2J99F8DZ9J98DATIW$&S2+M/IH <(+.?H+, =%UHYIM!>(+*H5%U%S+,I\$&X5/YHY9%R+,IQZ9IY[YI SY YR9+7/2RV?J"1;K?X3XXXNBI8!BXPNC>HPXPN9F8F-K=Z"M\QCL+L2MOHYXUHZXVH[XW,3HU\PPPHV\PPPHW\P,3H(X3.$5 < ;$)PY>HXHX8DH[HWXW8DHZHVXV$4,3HP-<(*;K:[W(/?HZ>(,3"-<(.N=8!Z,J,K>?*"-?H/?,3"-?HK=K/: +J%$;(XZKFHY8!HU8AXUK?Z% HZ>X8AX[XZS*%U/>[$;$[*HV?+%US*HZ?/Z$5S*8/Z[ % D(*!HV9D?H*^H9DXHW8DXWHV8DXVS^*OK^8!HUXUXR .%U. *>HV8!K\> *>HW8!K]=8!8A?H*>-^XMHP> 2ILIXYLIXZLIX[2AO^[^XXX/^I\XU $4/.:AG?> %$%!Y>/>.V WZZA<*FK=XH2ILJ\H2AW<*NHH8!K;<(/:8!X62I\HP6*\2A/:R $EX?>AA. Z"=Z: ZA,("=JO9Z7R2I$E?>: XNK8ZA.-I+>(.=9JO7>X%$J7[L2I 6?>Y+.=RA(%$$4,(RAGM4<9+=SH=?=X ?=W=UI[$DKX]KMXF$CH,<(+HKN<(*[KL<(*I/<(*GI3\FPFP]*G%S*AKM9 HF>PPF: HF*F\FPF\FI3$DKMXFIX1.XUXVXWX]LFJ7<(+CI1= +EKO=H+E[Q$G[UKP>0P]PF*2:H].-KK$D*[C ARJ0 IKAPDT[W58P<(/[8!X]$G> *(LFPF<(*K=<(*;8A< *QS *B8 C<>(*A% 0DBAD DATA-RETYPE FROM ERROR.0B(*:LFK;>(+ELFPF< K:> *UK > %U,(PF 9 >8!%6$G06CH6*,PF 9 >> +XLFPFK9<(+GK<> *U >:%]HW8!+Z%]HWX]!FH]%6*0$G5T%]I\XU$G068UTA/ <^[\=U=T<;?>=RX-XK?ZJ$G >XX!X HV?*M%UKKH/$DHV>(+ ;VHU9H >P*0;$X]I4XSHU=*"8!8AP]$*:HTP]8 X!H!%6HU? *08AP!*)%5K=XMIYX 9H7XVH8XWIVXZX[I/% 8F8F\M;$HMXMP *=!FIYX PMLM< +RP +K+XLMIW$DP P +Q1IX$D1:A%6%5H8IW$DP +ZH!<(-08!XVXWIZ$DH2XU$4RJRJ*BH 96H K(+/1S[4YS*M*0B7* B * B * B 3F;ET*M.0N3*4B1. V6*2B4* B * B * B 7FWP3T& 6 SFM7P.JN0.3J4. B .0B0* B * B * B 2 WFX7T.JN0.3N4. R .5V3* B * B * B 2 7J3S& 2 [II7X"J*L2/GP/SOS2 V(3XOE3U?T+RB)+OCF7 WD7SOY3T7E*-B 2 GP+L68+VB8* >1*2>5*7B26 B 3AWG. R1"-62"J*M.0N3*4B4. F1*3B4% $GR?A2?Z?3BJ706*4 6R?J.06*1[BH606*? 6HUOEJ>HUXUR=-^$G2?/E"?-^DS:LB?DXWXV% -^J2%-8D"+J2"+//PO%&O=O]KI"1=HV?H*R$G/> ?7?: XI/=PI*Z$GR AR^-^%U-^AYH -HV<(-^?*7$G/> 606: Z^9 H6=H8PXW06[0K-X6K*X6K X6K$X6K!X6K^X6K[X6O?*Z ??"?? !??UOCG?>!K:I?>U][A?= &G9?+L >KO >KR >KU >O?X6SX-^%U-^N&W0>GH1IC]!-*YBZ /EF "5*M.MBJ.3B4*0B .1^3*7B * B * B 6 R +ACD2(7J3PJ L7N.JN0.4F0. N .2J1* B * B * B 2 OD7AN 7KCIB7L.JN0.4J0. R .4^06 J 3E;E7T R2,WFN7T.JN0.4N0. N .7Z7* B * B * B 2 7F+PCY+I" 3SGM7L L.MBJ.3B4*4B .0B0*0B * B * B 2 Z 7ESX.MBJ.3B4*5B .3R0*3B * B * B 2 R +CCAX6 HOH<(*M8 H6SH> *A;(GHZWHJ[NI:XJ% 0B0DERROR ?? *6HB[P(9F8F8F[L(KLI7 =S=R4* % 0DAT LINE ?>\?6??X2=?*(*WKZ$H.>(H.KZX6RWR,*JJ9X92J&8H2J$(ADSK:D<(,(?S)!+EZBJAZC(Z3!+5Z+RJC9F8F8FJ3/Z(KX=HS!?(/!+"+*+10I++0NZAJA/(0Y+10^+.J;[)Z8!JB*=$E?.X??2C>PLH6X*L \9L6P5L3D2H8H= :D0 ZDWTVHT,]D-RO4NL(KDI0H;()$!&\IFPECDBDH8L+0(.[EW\>LU4GMX, B"B"BBZACHINE?^?!:VI?^ PHOTO MAKES ELECTRONIC FLASH CALCULATIONS?^?!:RI? BLACKJACK A CARD GAME?^?!:NI?^ BLACKJACK RH^H99 ?8NK8+>QP]&5EP=^??F? ?!?3?4?6?;?P*U2IMX<(*R]]QXQ]*K]]2I.IXYV2IMV>(*]QV*X2A;I]IV81I"IX>P*/$ZNO ROOM IN FILEIX8!I]IVY]IV8 IXYX2IMV]]: IVYV: I]Y]QX*92A.Y\Y[I\9HL Y^2IM^2A /+$VIN8!K0?+:$RM-,W$[$T$P?.XQQ$]YQ2IL+2AK?<(*QK>> *"S2I\*2A,W"S/=YNL&\%:AD$\$ (/ $R=C/ !6!62I$RIS>(+2$RL $VH+Z:$!I\>(+;IK9!I[>XILH*Z:I[YK$!I[9!IK>(+F>(*/N:7IER:> *%2A.2AUI 8!J:$^H+[R2IOR^:R:SRQ *>2A*AJ:YM"J:[RIMZ:IW8A9HIM$^U*;J:K?YLIW<(*A918HY /UY IW9HH+Y^2I(/>O=I%Y% < ;W:*M$RHS :L%>(,X$S,W STOPPED BY OPERATOR YPJ$2LZ)2AN Y^0ZR 2AM^8J8J8J" *)!62AYP. 7<(*9IE< +H!6IP> *1.<=HK8K7!$.XL2ILL> *Y2AHLIA8F8F8F4.U2J%BHK=Z/Z0K(+*H5%U%S+,I\$&X5/YHY9%R+,IQZ9IY[YI SY YR9=O:/SC?=H80\H?>(0YQU*O69+CH5$\;$IW9HH+Y 2IM H=> *-: I *$Q H<] 2AI H09DYWIR>(.IQ> *A$ZBAD CHARACTERT(*RQM*R$"0Z;XY$RR>$"0Y+N0ZH80\IY^0\!$!6YQ^*A$U =:A\/ +$IM8 IOYOQMIY9D +%IO9H<(+AS) +$IU8TXIHI8DHIH)XIHII!?+$LI2I\+2ALI2I\,2AH1YW: YT.S(PH3IMYMIT> +$QTH5$\IW9H>X+9MM8J8H7I YXMM2918HYOIW9HH+Y]MX2I]]2AQXQ]QO*NMM2IWYW.[O012 456789ADGJMPSVY,BEHKNQTWZCFILORUX.[$?:]&!+(="\-) *<;/>^=CASTA%A<%CEB]B3DKEBD\C\D.EKBKC/E\E.LETREADINPUTPRINTFORGOSUBGOTODIMCHAINENDWRITEDATARESTOREREMNEXTRETURNIFDEFSTOPRANDOM:$ZLINE NO. TOO BIG ------ : !6$RRQ.V--LINE NOT USED $V ?H.\ $!I[YZH*\ $!IZ9!I[>X*6$ *.L Z;:A2I$R!6,W MORE CARDS?.4(STYS%"9&KWXI2I/Q=>DH.QHIXJHJKXXKH-QLK\JHJ8!HI> *[2A*JJP$&IN$&" X/.I,X5I.$&P5**. 18=OB A===B>B>GEE T :A$RTYJVZZ(.AJUXIJWXJJXYOLJ\IQO*P.IT T =B?9 BATCH LOG EDUSYSTEM-30 9F8FAJOH HKL9J8J8HAJOI IKJZ%SISK+CI. =M+CKI[HSIKL IKL 0*%?T=I,[KK;[IKJZ%9/M%6IK+!%6K:H]II>(%<;&-?U"[7 9%; 9PIO8DYOIO9F8DIOYOIYC?9HY^M^ .H)8AYMMM<(.8!2IL+2AQM>(*;QMQM*.2IL,2AAB8!MMAB> *8IMXI: YT.<(/IQO9H(/IQSH6*& 976543218"= :0ZXWVUTS/Y?>,]-RPONMLKJI\;)*$!&IGF DCBAH^+(<.[*;+.UKUFIZWUG=??2C=S0D9LJ8*HX R =H(4TJL8$AHH(JHZ82JL,L \Z*H(N8OHE* PEDU$SSTTLML-D0< 8OTNLL0D:H2\J9!J*>XR( =*4JE8A9HJ*Z2.J; Z7**NONE* EDUSYSTEM-30 NONE30:A2J B>GEH)MAP,.D- 0(M0I5J1P$ 0 YP1N5A M4J0J9O!E$, 0$I4/IP5IQN0 9O-EX 0 %B1TL 5HIA M$J1AQN, ][ 7$I0/UN)EAD5S!I0 %B)TAS)TAO1P%R!N5T4JLI!N5A4JPI)AAD,(4(I