@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u1 REM 2 REM έҠ3 REM 㾠4 REM Ӭ䠪5 REM 8 REMT} ***** *****9 GRAPHICS 0:POKE 82,210 CLR :A=FRE(0):A=A-2000:DIM MUNT$(A),JT$(4),KW$(3),AD$(8),AP$(7),OM$(18),U}TEMP$(40):AANTAL=INT(A/40):TELLER=019 REM ***** *****20 ? "} 1985 by AWS, Holland":POSITION 16,3V}:? "M E N U":? "<1> Nieuw bestand<7> Listen"21 ? "<2> Toevoegen<8> Printen":? "<3> Verwijderen<9> Sorteren":? "<4> LW}aden v. Disk<10> Opzoeken"22 ? "<5> Saven n. Disk<11> Status best.":? "<6> Veranderen<12> Einde prog.":? "Maak uw keuX}ze ";24 TRAP 20:INPUT TEMP:ON TEMP GOTO 100,200,300,400,500,600,700,800,900,1000,1100,1200:GOTO 2099 REM ***** נY} *****100 ? "}נ":? "Het oude bestand wordt nu gewist.":FOR I=1 TO 1000:NEXT I:RUN 199 REM ***** **Z}***200 ? "}":? "Tijp de gevraagde gegevens in.":? "Om te stoppen voert u [ in.":T=TELLER*40:POSITION 2,6205 FOR[} I=1 TO 40:TEMP$(I,I)=" ":NEXT I:? "RECORD NUMMER = ";TELLER+1:? "Jaartal (4 kar.)";:INPUT JT$210 IF JT$="[" OR TELLER>=AA\}NTAL THEN FOR I=1 TO 40:TEMP$(I,I)="[":NEXT I212 IF TEMP$(1,1)="[" THEN GOTO 20215 TEMP$(1,4)=JT$:? "Omschr. (16 kar.)";:IN]}PUT OM$:TEMP$(6,21)=OM$:? "Kwalit. (3 kar.)";:INPUT KW$220 TEMP$(23,25)=KW$:? "Aank.dt. (JJMMDD)";:INPUT AD$:TEMP$(27,32)=A^}D$:? "Aank.pr. (7 kar.)";:INPUT AP$225 TEMP$(41-LEN(AP$),40)=AP$:MUNT$(T+1,T+40)=TEMP$:TELLER=TELLER+1:GOTO 200299 REM ****_}* *****300 JT$="":OM$="":? "}":? :? "Voer eerste de oude gegevens in.":? :? "JAARTAL ";:INPUT JT$30`}5 ? "OMSCHR. ";:INPUT OM$:FOR I=0 TO TELLER-1306 IF MUNT$(I*40+1,I*40+LEN(JT$))=JT$ AND MUNT$(I*40+6,I*40+5+LEN(OM$))=OM$ THa}EN 320310 NEXT I:GOTO 20320 POKE 82,0:? :? MUNT$(I*40+1,I*40+40):POKE 82,2:? :? "Deze verwijderen ?";:CLOSE #1:OPEN #1b},4,0,"K"321 GET #1,IN:IF CHR$(IN)="N" THEN 310322 IF CHR$(IN)<>"J" THEN 321325 MUNT$(I*40+1,I*40+40)=MUNT$((TELLER-1)*40+1c},(TELLER-1)*40+40):TELLER=TELLER-1:GOTO 310399 REM ***** ΠΠ *****400 ? "}":? "De data wordt geladen zd}odra u":? "op drukt. ";410 CLOSE #1:OPEN #1,4,0,"K"415 GET #1,IN:IF IN<>155 THEN 415420 TRAP 20:CLOSE #3:OPEN #3,4,e}0,"D:MUNTEN.DAT":INPUT #3;TELLER425 ? :? "Momentje geduld, data wordt geladen."430 FOR I=0 TO TELLER-1:INPUT #3;TEMP$:MUNT$f}(I*40+1,I*40+40)=TEMP$:NEXT I:CLOSE #3:GOTO 20499 REM ***** ΠҠ *****500 ? "}":? "De data wordt weg gg}eschreven zodra u":? "op drukt. ";510 CLOSE #1:OPEN #1,4,0,"K"515 GET #1,IN:IF IN<>155 THEN 515520 TRAP 20525 CLOSh}E #3:OPEN #3,8,0,"D:MUNTEN.DAT":? :? "Momentje geduld, data wordt weg geschreven.":PRINT #3;TELLER530 FOR I=0 TO TELLER-1:TEi}MP$(1,40)=MUNT$(I*40+1,I*40+40):PRINT #3;TEMP$:NEXT I:CLOSE #3:GOTO 20599 REM ***** *****600 JT$="":OM$="":? "}j}":? :? "Voer eerste de oude gegevens in.":? :? "JAARTAL ";:INPUT JT$605 ? "OMSCHR. ";:INPUT OM$:FOR I=0 TO TELLER-k}1606 IF MUNT$(I*40+1,I*40+LEN(JT$))=JT$ AND MUNT$(I*40+6,I*40+5+LEN(OM$))=OM$ THEN 620610 NEXT I:GOTO 20620 POKE 82,0:? :?l} MUNT$(I*40+1,I*40+40):POKE 82,2:? :? "Deze veranderen ?";:CLOSE #1:OPEN #1,4,0,"K"621 GET #1,IN:IF CHR$(IN)="N" THEN 6m}10622 IF CHR$(IN)<>"J" THEN 621625 TEMP$="":JT$="":OM$="":KW$="":AD$="":AP$=""630 ? :? "Jaartal (4 kar.)";:INPUT JT$635 n}TEMP$(1,4)=JT$:? "Omschr. (16 kar.)";:INPUT OM$:TEMP$(6,21)=OM$:? "Kwalit. (3 kar.)";:INPUT KW$640 TEMP$(23,25)=KW$:? "Aanko}.dt. (JJMMDD)";:INPUT AD$:TEMP$(27,32)=AD$:? "Aank.pr. (7 kar.)";:INPUT AP$645 TEMP$(41-LEN(AP$),40)=AP$:MUNT$(T+1,T+40)=TEMp}P$:GOTO 610699 REM ***** *****700 ? "}":POKE 82,0:? :FOR I=0 TO TELLER-1 STEP 15705 POSITION 0,3:FOR J=0 TO 1q}7:? "":NEXT J:POSITION 0,3:TOTAAL=0:FOR J=0 TO 15:NUM=(I+J)*40:IF TELLER=I+J THEN 720710 ? MUNT$(NUM+1,NUM+40);:TOTAAL=VAL(r}MUNT$(NUM+34,NUM+40))+TOTAAL:NEXT J720 TEMP$=" ":TEMP$(9-LEN(STR$(TOTAAL)),8)=STR$(TOTAAL):POSITION 0,20:? "_____s}___"730 PRINT "TOTAAL";TEMP$:? "Druk op ?";:CLOSE #1:OPEN #1,4,0,"K"735 GET #1,IN:IF IN<>155 THEN 735740 NEXT It}:POKE 82,2:GOTO 20799 REM ***** *****800 ? "}":? "Zet de printer aan en druk op ?";:CLOSE #1:OPEN #1,u}4,0,"K"805 GET #1,IN:IF IN<>155 THEN 805810 CLOSE #1:TRAP 850:? :? "Momentje, data wordt geprint.":LPRINT "JAAR OMSCHRIJVIv}NG KW. DATUM PRIJS"815 ? "========================================":FOR I=0 TO TELLER-1:LPRINT MUNT$(I*40+1,I*40+40):Nw}EXT I:GOTO 20850 ? :? "PRINTER NIET AANWEZIG!!!":? "Druk op ?";:CLOSE #1:OPEN #1,4,0,"K"855 GET #1,IN:IF IN<>155 THx}EN 855860 CLOSE #1:GOTO 20899 REM ***** *****900 ? "}":? "Momentje, data wordt nu gesorteerd.":P=0:M=TELy}LER905 M=INT(M/2):IF M=0 THEN 20910 P=P+1:POSITION 2,8:? "DOORGANG = ";P:FOR ST=0 TO M-1920 I=ST:J=ST+M:SWAP=0925 Iz}F MUNT$(I*40+1,I*40+40)aartal, <}}O>mschrijving of enu?";:CLOSE #11001 OPEN #1,4,0,"K"1002 GET #1,IN:IF CHR$(IN)="M" THEN 201003 IF CHR$(IN)="J" THEN TB=~}1:GOTO 10101004 IF CHR$(IN)="O" THEN TB=6:GOTO 10111005 GOTO 10021010 ? :? :? "JAARTAL ";:INPUT TEMP$:GOTO 10151011 ? :? }:? "OMSCHRIJVING ";:INPUT TEMP$1015 FOR I=0 TO TELLER-1:IF MUNT$(I*40+TB,I*40+TB+LEN(TEMP$)-1)=TEMP$ THEN GOSUB 10501020 NE}XT I:GOTO 10001050 POKE 82,0:? :? MUNT$(I*40+1,I*40+40):POKE 82,2:CLOSE #1:OPEN #1,4,0,"K":? :? "Druk op ?";1060 GET} #1,IN:IF IN<>155 THEN 10601065 RETURN 1099 REM ***** Ӡ *****1100 ? "}Ӡ":? "Maximum aantal =} ";AANTAL:? "Thans aanwezig = ";TELLER1110 ? "Nog te gebruiken = ";AANTAL-TELLER:? "Totale waarde = ";:TOTAAL=01120 TR}AP 1130:FOR I=0 TO TELLER-1:TOTAAL=VAL(MUNT$(I*40+34,I*40+40))+TOTAAL:NEXT I1130 ? TOTAAL:? :? "Druk op ?";:CLOSE #1:}OPEN #1,4,0,"K"1140 GET #1,IN:IF IN<>155 THEN 11401150 GOTO 201199 REM ***** Š *****1200 ? "}Einde van het} programma ":END IF IN<>155 THEN 11401150 GOTO 201199 REM ***** Š *****1200 ? "}Einde van het0 DIM SND(7,1):FOR A=1 TO 7:READ B,C:SND(A,0)=B:SND(A,1)=C:NEXT A:DATA 121,1,96,1,81,1,60,2,81,1,60,2,0,11 GRAPHICS 17:POSIT }ION 4,8:PRINT #6;"paratrooper":POSITION 5,10:PRINT #6;"ΩOVICE":POSITION 5,122 PRINT #6;"ũXPERT":POKE 764,255:DIM A$(3),B }$(3),C$(3)3 IF PEEK(764)=42 THEN A$="z":B$="":C$="":GOTO 64 IF PEEK(764)=35 THEN A$="y":B$="":C$="":GOTO 65 GOTO }36 POKE 54279,56:GRAPHICS 1:SETCOLOR 4,9,10:SETCOLOR 0,8,3:SETCOLOR 2,0,15:SETCOLOR 1,0,010 POKE 559,62:POKE 53277,3:POKE 7 }04,200:POKE 705,0:POKE 706,13:POKE 707,44:POKE 623,111 T=0:IF PEEK(13824)<>169 THEN FOR A=13824 TO 14147:READ B:T=T+B:POKE A },B:NEXT A:IF T<>39469 THEN ? "ERROR":END 15 IF PEEK(14345)<>24 THEN FOR A=14336 TO 14848:POKE A,PEEK(A+43008):NEXT A16 POKE } 756,56:FOR A=14790 TO 14799:POKE A,255:NEXT A20 FOR A=14800 TO 14808:POKE A,15:NEXT A30 FOR A=0 TO 19:FOR B=12 TO 23:POSIT }ION A,B:PRINT #6;"Y";:NEXT B:NEXT A35 POSITION 1,11:PRINT #6;A$;" ";B$;" ";C$:A=USR(13824)40 TR=10:SC=0:FOR A=143 }26 TO 14328:POKE A,100:NEXT A50 POKE 14320,0:FOR TD=1 TO 1000:NEXT TD:POSITION 0,1:PRINT #6;" ":POKE 752,1 }52 WS=INT(RND(1)*9)+1:WT=INT(RND(1)*125)+75:BS=WS-1:CS=WS+1:POKE 14330,15-CS:POKE 14331,15-CS55 POKE 14332,15-BS:POKE 14333 },15-BS60 POKE 656,1:POKE 657,1:PRINT "SCORE =";SC;" ":POKE 656,1:POKE 657,20:PRINT "TROOPS =";TR;" "61 IF TR=0 THEN PO }SITION 5,5:PRINT #6;"GAME OVER":POSITION 4,7:POKE 764,255:GOTO 30070 POKE 656,2:POKE 657,1:PRINT "WEIGHT =";WT;" ":POKE 656 },2:POKE 657,20:PRINT "WIND SPEED=";WS:POKE 764,25580 IF PEEK(764)=255 THEN 8090 POKE 14145,0:POKE 704,200:EN=(RND(1)*50)+12 }0:START=PEEK(14321):INC=WT/300:C=WS/10:B=PEEK(14326)100 FOR A=START TO EN STEP INC:POKE 53278,0:POKE 14320,A:POKE 14325,B:B= }B+C:IF B>200 THEN B=40110 P=PEEK(53252):ON P GOTO 210,220,210,230,210,210,210,240210 NEXT A:SC=SC-10:TR=TR-1:POSITION 1,1:P }RINT #6;"PARATROOPER FAILED"215 POKE 14145,30:POKE 704,15:FOR A=15 TO 0 STEP -1:SOUND 0,10,8,A:FOR B=1 TO 10:NEXT B:NEXT A:G }OTO 50220 SC=SC+75:GOTO 245230 SC=SC+25:GOTO 245240 SC=SC+50245 POSITION 0,1:? #6;"MISSHION ACCOMPLISHED"250 FOR A=1 TO }7:SOUND 0,SND(A,0),10,15:FOR B=1 TO 50*SND(A,1):NEXT B:NEXT A:GOTO 50300 ? #6;"HIT RETURN"301 IF PEEK(764)=255 THEN 301310 } FOR A=704 TO 707:POKE A,0:NEXT A:POKE 623,4:RUN 13824 DATA 169,0,160,0,153,0,60,153,0,61,153,0,62,153,0,63,136,20813842 DA }TA 241,160,11,185,41,55,153,74,62,185,53,55,153,163,63,136,16,24113860 DATA 160,47,162,54,169,7,32,92,228,104,96,216,206,244 },55,208,38,16913878 DATA 3,141,244,55,206,246,55,173,246,55,201,48,208,23,169,200,141,24613896 DATA 55,173,10,210,16,8,169, }80,141,241,55,76,91,54,169,50,141,24113914 DATA 55,206,250,55,208,21,173,251,55,141,250,55,238,247,55,173,247,5513932 DATA }201,200,208,5,169,48,141,247,55,206,252,55,208,21,173,253,55,14113950 DATA 252,55,238,248,55,17313956 DATA 248,55,201,200,2 }08,513962 DATA 169,48,141,248,55,16913968 DATA 0,141,249,55,173,24913974 DATA 55,168,24,105,60,13313980 DATA 204,169,0,13 }3,203,18513986 DATA 242,55,168,169,0,16213992 DATA 15,145,203,200,202,1613998 DATA 250,173,249,55,168,18514004 DATA 65,55 },24,105,252,14114010 DATA 205,54,169,0,105,5414016 DATA 141,206,54,185,240,5514022 DATA 153,242,55,168,162,014028 DATA 18 }9,255,255,145,203,20014034 DATA 232,224,15,208,245,23814040 DATA 249,55,173,249,55,20114046 DATA 2,144,179,173,245,551405 }2 DATA 141,0,208,173,246,5514058 DATA 141,1,208,173,247,5514064 DATA 141,2,208,173,248,5514070 DATA 141,3,208,76,98,22814 }076 DATA 60,126,126,255,255,12914082 DATA 153,153,90,60,24,2414088 DATA 36,66,195,1,99,25514094 DATA 255,0,0,0,0,0,0,0,0,0 },0,0,129,66,36,153,90,64,0,0,0,0,0,014118 DATA 0,0,0,102,247,23914124 DATA 255,126,255,239,102,014130 DATA 0,0,0,4,4,1214 }136 DATA 12,28,60,60,124,13214142 DATA 255,255,126,0,15,047,23914124 DATA 255,126,255,239,102,014130 DATA 0,0,0,4,4,1214 ;10 GRAPHICS 1+1620 POSITION 4,11:? #6;"PLEASE WAIT":GOSUB 1120:? #6;CHR$(125)30 POSITION 5,0:? #6;"park keeper"40 POSITION} 6,6:? #6;"Q BOTTLE"50 POSITION 6,8:? #6;"X MOTH "60 POSITION 6,10:? #6;"Z LEAF "80 POSITION 1,20:? #6;"please press star}t"90 IF PEEK(53279)<>6 THEN 30100 ? #6;CHR$(125)110 LEAVES=0:SCREEN=0120 TIME=100125 IF SCREEN=6 THEN 840130 X=10:Y=20:}MX=10:MY=5140 M1C=35:M2C=36:LC=122:MC=216:BC=241150 POKE 709,34:POKE 711,15:POKE 710,1:POKE 712,198:POKE 708,44160 FOR NOB}OT=1 TO 20170 COLOR BC180 PLOT INT(RND(1)*18)+1,INT(RND(1)*18)+1190 NEXT NOBOT200 FOR NOL=1 TO 13210 COLOR LC220 PLOT I}NT(RND(1)*18)+1,INT(RND(1)*18)+1230 NEXT NOL240 GOTO 980250 GOSUB 450260 LOCATE X,Y,CRASH270 IF X<=1 THEN X=1280 IF X>=}18 THEN X=18290 IF Y<=1 THEN Y=1300 IF Y>=20 THEN Y=20310 IF CRASH=LC THEN GOSUB 500320 IF CRASH=MC THEN 530330 IF CRASH}=BC THEN 610340 IF TIME=0 THEN 690350 IF LEAVES=10 THEN SCREEN=SCREEN+1:GOTO 770370 COLOR M1C:PLOT X,Y:FOR TUNE=1 TO 8:SOU}ND 1,255,4,10:NEXT TUNE:FOR WAIT=1 TO 3:NEXT WAIT380 COLOR M2C:PLOT X,Y:FOR WAIT=1 TO 8:NEXT WAIT390 COLOR 0:PLOT X,Y:SOUND} 1,0,0,0400 COLOR 0:PLOT MX,MY410 TIME=TIME-1420 POSITION 0,20:? #6;"TIME ";TIME;" "430 POSITION 0,21:? #6;"LEAVES ";LEAV}ES440 GOTO 240450 IF STICK(0)=14 THEN Y=Y-1460 IF STICK(0)=13 THEN Y=Y+1470 IF STICK(0)=11 THEN X=X-1480 IF STICK(0)=7 T}HEN X=X+1490 RETURN 500 FOR TUNE=30 TO 60:SOUND 1,TUNE,10,10:NEXT TUNE:SOUND 0,0,0,0510 LEAVES=LEAVES+1520 RETURN 530 GR}APHICS 1+16540 POSITION 5,2:? #6;"game over"550 FOR TUNE=0 TO 255:SOUND 0,TUNE,12,10:NEXT TUNE:SOUND 0,0,0,0560 POSITION 0},5:? #6;"YOU CRASHED INTO THE MOTH AND DIED"570 POSITION 2,10:? #6;"you collected ";LEAVES1*SCREEN+LEAVES;" leaves"580 P}OSITION 1,20:? #6;"PLEASE PRESS start"590 IF PEEK(53279)<>6 THEN 590600 POKE 756,A/256:GOTO 100610 GRAPHICS 1+16620 POSIT}ION 5,2:? #6;"game over"630 FOR TUNE=0 TO 255:SOUND 0,TUNE,12,10:NEXT TUNE:SOUND 0,0,0,0640 POSITION 1,5:? #6;"YOU CRASHED }INTO A BROKEN BOTTLE AND DIED"650 POSITION 2,10:? #6;"you collected ";LEAVES1*SCREEN+LEAVES;" LEAVES"660 POSITION 1,20:}? #6;"PLEASE PRESS start"670 IF PEEK(53279)<>6 THEN 670680 POKE 756,A/256:GOTO 100690 GRAPHICS 1+16700 POSITION 5,2:? #6;}"game over"710 FOR TUNE=0 TO 255:SOUND 0,TUNE,12,10:NEXT TUNE:SOUND 0,0,0,0720 POSITION 0,5:? #6;"YUO RAN OUT OF TIME"730 }POSITION 2,10:? #6;"you collected ";LEAVES1*SCREEN+LEAVES;" leaves"740 POSITION 1,20:? #6;"PLEASE PRESS start"750 IF PE}EK(53279)<>6 THEN 750760 POKE 756,A/256:GOTO 100770 ? #6;CHR$(125)780 POSITION 2,2:? #6;"CONGRATULATIONS"790 FOR AGAIN=1 }TO 5:FOR TUNE=70 TO 100:SOUND 0,TUNE,10,10:NEXT TUNE:NEXT AGAIN:SOUND 0,0,0,0800 POSITION 0,5:? #6;"you cleared field ";SCRE}EN820 FOR WAIT=1 TO 600:NEXT WAIT830 ? #6;CHR$(125):LEAVES1=LEAVES:LEAVES=0:GOTO 120840 GRAPHICS 1+16:OPEN #1,4,0,"K:"850} POSITION 2,0:? #6;"CONGRATULATIONS"860 FOR AGAIN=1 TO 5:FOR TUNE=255 TO 0 STEP -3870 SOUND 0,TUNE,12,10:NEXT TUNE880 NEXT} AGAIN:SOUND 0,0,0,0890 POSITION 0,5:? #6;"YOU COMPLEATED ALL ";SCREEN;"FIELDS "900 POSITION 2,9:? #6;"you collected }";LEAVES1*10;" leaves"910 POSITION 0,13:? #6;"THE SUMMER HOLLYDAYS ARE OVER AND YOU ARE A QUALIFIED PARKKEEPER"920 POSITI}ON 1,20:? #6;"PLAY AGAIN/ (Y/N)"930 GET #1,P940 IF P=ASC("Y") THEN 970950 IF P=ASC("N") THEN 1210960 GOTO 930970 POKE 75}6,A/256:GOTO 100980 MOVE=INT(RND(1)*4)+1990 IF MOVE=1 THEN MY=MY-11000 IF MOVE=2 THEN MY=MY+11010 IF MOVE=3 THEN MX=MX-1}1020 IF MOVE=4 THEN MX=MX+11030 LOCATE MX,MY,ZZ1040 IF MX<=1 THEN MX=11050 IF MX>=18 THEN MX=181060 IF MY<=1 THEN MY=110}70 IF MY>=19 THEN MY=191080 IF ZZ=35 OR ZZ=36 THEN 5301090 COLOR MC:PLOT MX,MY:FOR WAIT=1 TO 10:NEXT WAIT1100 REM 1110 GO}TO 2501120 DATA 5,24,60,60,24,255,60,60,38,96,32,60,60,24,255,60,60,100,61130 DATA 392,60,24,24,52,82,74,102,52,448,66,36,1}53,219,255,126,219,1291140 DATA 464,6,26,59,119,119,63,22,321150 A=(PEEK(106)-8)*2561160 FOR I=0 TO 1023:POKE A+I,PEEK(573}44+I):NEXT I1170 RESTORE 1120:READ NUMBER1180 FOR I=1 TO NUMBER:READ ADDR:FOR J=0 TO 71190 READ Z:POKE A+ADDR+J,Z:NEXT J:N}EXT I1200 POKE 756,A/256:RETURN 1210 GRAPHICS 2+161220 FOR D=1 TO 40:SOUND 0,200,10,10:POSITION 5,5:? #6;"OOOOO":NEXT D12}30 FOR D=1 TO 30:SOUND 0,255,10,10:POSITION 10,5:? #6;"KKK!!":NEXT D:SOUND 0,0,0,01240 FOR WAIT=1 TO 200:NEXT WAIT1250 END }0 FOR D=1 TO 30:SOUND 0,255,10,10:POSITION 10,5:? #6;"KKK!!":NEXT D:SOUND 0,0,0,01240 FOR WAIT=1 TO 200:NEXT WAIT1250 END 10 REM Patience by R.L.Howarth.NOV'8220 DIM A$(512),B$(36),B1$(40):GRAPHICS 025 B$(1)="~":B$(36)="~":B$(2)=B$:B$(1,3)=""}:B$(34,36)="":B1$(1)="":B1$(40)="":B1$(2)=B1$:POKE 559,6230 I=PEEK(106)-1640 POKE 54279,I:POKE 53256,1:POKE 53277,3:VT}AB=PEEK(134)+PEEK(135)*256:ATAB=PEEK(140)+PEEK(141)*25660 OFFS=I*256+1024-ATAB:HI=INT(OFFS/256):LO=OFFS-HI*256:POKE VTAB+2,L}O:POKE VTAB+3,HI70 GOSUB 8000:GOSUB 8200:HI=85:GOTO 810080 V=N1:FOR T2=28 TO 49 STEP N3:FOR W=N3 TO N1 STEP -N1:S(V)=P(T2+W}):V=V+N1:NEXT W:NEXT T290 V=29:W=53:FOR T2=N1 TO 24:IF S(T2)=N0 THEN W=W-N1:GOTO 9593 P(V)=S(T2):V=V+N195 NEXT T2:IF W<53 }THEN FOR I=W TO N52:P(I)=N0:NEXT I96 RETURN 200 ? NU$;"";SU$:RETURN 300 SUIT=N1:C=P(T):POSITION N13,19:IF T1N13 THEN C=C-N13:SUIT=SUIT+N}1:GOTO 505510 NU$=STR$(C):IF C=N1 THEN NU$="A "520 IF C>N10 THEN NU$="J ":IF C>N11 THEN NU$="Q ":IF C>N12 THEN NU$="K "525} IF CN1 THEN SU$="`":IF SUIT>N2 THEN SU$="":IF SUIT>N3 THEN SU$="{"540 RETURN }600 POSITION N14,N23:? "ŠΠ":GV=32:POKE 704,208:POKE DL+17,N130610 POKE 54286,192:POKE 709,N10:POKE 710,196:POKE 71}2,230:POKE 1538,244:T=N1:G=23:FOR ROW=N0 TO N12 STEP N4620 FOR I=N2 TO 32 STEP N5:POSITION I,ROW:? CARD$:C=P(T):D((I+N3)/N5,}(ROW+N4)/N4-N1)=C:GOSUB 500630 POSITION I+N1,ROW+N1:GOSUB 200640 T=T+N1:NEXT I:NEXT ROW:T1=N23:T2=N0650 POSITION N12,N17:?} FD$:POSITION N22,N17:? CARD$:Y=N34:Z=96:GOSUB 8050:GOSUB 300660 GOSUB 700:FOR I=N1 TO N10:NEXT I:GOTO 660700 ST=STICK(AA):}IF STRIG(AA)=N0 THEN POP :ON GM GOTO 810,2100,3100,4100,5100,6100,7100701 IF PEEK(53279)=N6 THEN POP :GOTO 8100702 IF PEEK(}53279)=N3 THEN POP :GOTO 8120703 IF GM=N7 AND PEEK(764)=33 THEN GOSUB 1140:C1=N0:RETURN 704 IF ST=15 THEN 700705 H=N0:V=N0}:H=H+(ST=N7)-(ST=N11)+(ST=N6)-(ST=N10)+(ST=N5)-(ST=9):Y1=Y:Z=Z+(H*20):POKE 77,N0708 IF GM=N7 AND (Z=184 OR Z=N52) THEN GV=48}:Y=N34+(48*(Y>N34))+(48*(Y>82))+(48*(Y>N130))710 IF GM>N2 THEN 714712 IF (ST=N14 OR ST=N6 OR ST=N10) AND Y=170 THEN Y=N130:}GOTO 720714 IF (ST=N14 OR ST=N10 OR ST=N6) AND Y>N34 THEN Y=Y-GV:IF GM=N3 AND Y=N130 THEN Y=114716 IF (ST=N13 OR ST=9 OR ST}=N5) THEN Y=Y+GV:IF Y>N130 AND GMN4 THEN RET}URN 723 IF Z>176 THEN Z=176724 IF ZN130 AND GM=N1 THEN Z=96730 IF GM=N2 T}HEN RETURN 734 IF Y>162 AND GM>N3 THEN Y=162740 A$(Y,Y+35)=B$:POKE 53248,Z:RETURN 750 REM 810 IF Y>130 THEN PICK=N2:GOTO }870820 A=INT(Z/20)-N1:R=INT(Y/32)-N1:IF D(A,R)=N0 THEN 836824 IF Y<128 THEN IF D(A,R+N1)<>N0 THEN 836830 PICK=N1:S1=SUIT:C}1=C:C=D(A,R):GOSUB 500:IF C1=C THEN 840832 IF ((C1=C-N1) OR (C1=C+N1)) AND S1=SUIT THEN 840834 SUIT=S1:C=C1836 GOSUB 1000:}GOTO 660840 TEMP=T:T=A+(7*R):GOSUB 300:T=TEMP:D(A,R)=N0:POSITION A*N5-N3,R*N4:? BLANK$:IF Y>34 THEN POSITION A*N5-N3,R*N4:? }""845 T2=T2+N1:GOSUB 1100:IF T2=28 THEN POSITION N2,N22:? "YOU WON ";:GOSUB 1200:GOTO 900850 IF STRIG(N0)=N0 THEN 8508}60 GOTO 660870 T=T+N1:IF T>N52 THEN POSITION N2,N22:? "DECK EMPTY ";:GOTO 900880 IF T=N52 THEN POSITION N12,N17:? BLANK$89}0 T1=T1-N1:GOSUB 300:GOSUB 1100895 IF STRIG(N0)=N0 THEN 895897 GOTO 660900 POKE 764,255:GOTO 64001000 SOUND N0,255,N10,N8}:FOR I=N1 TO N52:NEXT I:SOUND N0,N0,N0,N0:RETURN 1100 FOR I=N1 TO N2:SOUND N0,20*I*(PICK+N1),N10,N4:SOUND N1,20*I*(PICK+N2),}N10,N41110 FOR W=N1 TO 8:NEXT W:NEXT I:SOUND N0,N0,N0,N0:SOUND N1,N0,N0,N0:RETURN 1140 FOR I=N7 TO N1 STEP -0.5:SOUND N0,40},N12,I:FOR W=N1 TO N5:NEXT W:NEXT I:SOUND N0,N0,N0,N0:RETURN 1200 V=PEEK(709):FOR I=N0 TO N3:FOR W=N3 TO N10 STEP 0.5:ON GM }GOTO 1210,1212,1214,1216,1218,1220,12241210 SOUND I,200/(I+GM),N12,N12-W:NEXT W:NEXT I:GOTO 12401212 SOUND I,240/(I+GM),N12},N12-W:NEXT W:NEXT I:GOTO 12401214 SOUND I,N4*(I+GM),N2,N12-W:NEXT W:NEXT I:GOTO 12401216 SOUND I,120*(I+GM),N10,N12-W:NEXT} W:NEXT I:GOTO 12401218 SOUND I,120/(I+GM),N12,N12-W:NEXT W:NEXT I:GOTO 12401220 SOUND I,220/(I+GM),N10,N12-W:NEXT W:NEXT I}:GOTO 12401224 SOUND I,N2*(I*GM),N10,N12-W:NEXT W:NEXT I1240 FOR I=N0 TO N3:POKE 709,N16-I*I:FOR W=N1 TO N10:SOUND I,(N10+I}*GM),N12,N10-(W*(GM=N6)):FOR A=N1 TO N3:NEXT A1250 NEXT W:NEXT I:POKE 709,V:FOR I=N0 TO N3:SOUND I,N0,N0,N0:NEXT I1300 SOUN}D N0,N10,N0,N4:FOR W=N1 TO N5:NEXT W:SOUND N0,N0,N0,N0:RETURN 1680 REM Game 21690 GOSUB 10001700 GOSUB 700:IF ST=N13 AND Y}>N130 THEN Z=(136*(Z>110))+((Z<110)*96):GOTO 17401710 IF Y>N130 THEN Z=96+((ST=N7)*40)1740 A$(Y,Y+35)=B$:POKE 53248,Z1770 }FOR I=N1 TO N6:NEXT I:GOTO 17002000 POSITION N14,N23:? "Ԡ":POKE 704,140:POKE 709,N0:POKE 710,120:POKE 712,120:POKE} 1538,N22:GV=N162005 POKE DL+N17,130:POKE 54286,192:FOR ROW=N0 TO N6:FOR I=N1 TO N7:D(I,ROW)=N0:IF ROWN0 THEN GOTO 16902120 IF Y>N130 THEN 26002130 IF D(A,R)=N0 THEN GOTO 16902135 D2}=100:R5=R:SET=N0:FOR V=N1 TO N4:S(V)=N0:NEXT V:IF Y>N34 THEN D2=D(A,R-N1)2140 D1=D(A,R):C=D1:D(A,R)=N0:A1=A:R1=R:C1=C:GOSUB }500:MATCH=C2170 POSITION A*N5-N3,R*N2:? BLANK$2175 IF Y>N34 THEN R5=R5-N1:IF D(A,R5)<100 THEN POSITION A*N5-N3,R5*N2:? BLAN}K$:SET=SET+N1:GOTO 22002180 IF (Y>N34 AND R5N0) OR Y>N130 THEN 27002352 I}F D(A,R)<>N0 OR (D(A,R)=N0 AND Y=34 AND PS=N0) THEN 16902353 IF Y>N34 THEN IF D(A,R-N1)=N0 THEN 16902354 IF Y=N34 THEN 2358}2355 C=D(A,R-N1):GOSUB 500:IF C<>MATCH THEN C=MATCH:GOSUB 500:GOTO 16902358 R5=R:R1=R1-SET:IF PS=N1 THEN PS=N02360 IF SET>}N0 THEN C=S(SET):GOSUB 500:GOSUB 2500:GOTO 23802370 C=D1:GOSUB 500:GOSUB 2500:D(A,R)=D1:GOTO 24702380 D(A,R)=S(SET):SET=SET}-N1:R=R+N1:GOTO 23602470 IF DONE=N13 THEN GOSUB 1200:GOTO 9002471 IF D2=100 THEN SET=N0:GOSUB 2800:GOTO 25502473 IF SET=N3} THEN D2=D(A,R-N4):R1=R1-N12475 SET=N0:IF D2>100 THEN D2=D2-1002480 C=D2:GOSUB 500:POSITION A1*N5-N3,R1*N2-N2:? CARD$:POSIT}ION A1*N5-N2,R1*N2-N1:GOSUB 200:GOSUB 28002490 D(A1,R1-N1)=D2:GOTO 25502500 GOSUB 1100:POSITION A*N5-N3,R*N2:? CARD$:POSITI}ON A*N5-N2,R*N2+N1:GOSUB 200:RETURN 2550 IF DONE=N13 THEN 9002555 IF STRIG(N0)=N0 THEN 25502560 GOTO 17002600 IF Z=96 THE}N T=T+UP3:UP3=N3:GOTO 26452620 IF UP3-N1 THEN 26582654 V1=20-T1:UP3=UP3+T1:IF T1<-N2 THEN V1=20:UP3=N3:T1=N02658 FOR V=20 TO N22:POSITION V,N17:? }BLANK$:NEXT V:IF T1N52 THEN T=292692 IF P(T)=N0 THEN T=T+N1:GOTO 26902693 RETURN 2700 IF (Y>N130 AND Z=96) OR PS=N0 THEN } GOTO 27602710 IF Y>N130 THEN GOSUB 2790:T=T-N1:P(T)=D1:GOSUB 300:GOTO 27402720 D(A,R)=D1:C=D1:GOSUB 500:GOSUB 2500:GOSUB 2 }800:GOTO 25502740 GOSUB 2800:PS=N0:GOSUB 1100:T5=T5+N1:GOTO 25502760 IF A1=A AND R1=R AND SET=N0 THEN 27202770 IF A1=A AND } R=R1-SET AND SET>N0 THEN D(A,R)=D1:C=D1:D2=100:GOTO 23582780 GOTO 16902790 IF UP3=N0 THEN POSITION N22,N17:? CARD$:UP3=N1: }RETURN 2795 POSITION N22-UP3,N17:? "|||":UP3=UP3+N1:RETURN 2800 PICK=N1:POSITION 32,N17:? BLANK$:RETURN 2810 POS}ITION 32,N17:? CARD$:RETURN 2990 REM Game 33000 POSITION N14,N23:? "ˠ":POKE 752,N1:T=N1:GV=N40:PICK=N0:POKE 710,}N52:POKE 712,N52:POKE 709,N103010 POKE 1538,66:POKE DL+N17,N130:POKE 54286,1923020 DONE=N0:POKE 704,134:Y=N34:Z=96:FOR ROW=}N0 TO N10 STEP N5:FOR I=N12 TO N22 STEP N5:POSITION I,ROW3030 ? CARD$:C=P(T):D((I-7)/N5,(ROW+N5)/N5)=P(T):GOSUB 500:POSITION} I+N1,ROW+N1:GOSUB 2003040 T=T+N1:NEXT I:NEXT ROW:POSITION N12,N17:? FD$:POSITION N2,N17:? FD$:POSITION N13,19:? "43":T=9:GO}SUB 80503050 GOSUB 700:IF Z<96 THEN Z=963060 IF Z>136 THEN Z=1363065 IF Y>N130 THEN Y=1143070 GOSUB 726:GOTO 30503090 GO}SUB 1000:GOTO 30503100 A=(Z-76)/20:R=(Y+N6)/N40:C=D(A,R):T5=C3103 IF C=N0 AND PICK=N0 AND A1=N0 THEN GOSUB 3640:GOTO 33003}105 IF C=N0 THEN A1=A1-N1:GOSUB 3520:GOTO 33003110 PICK=PICK+N1:D(A,R)=N0:GOSUB 500:IF PICK=N2 THEN D2=C:V=27:GOTO 31403120} V=N22:D1=C:IF PICK=N3 THEN V=32:GOTO 31503130 GOTO 31603140 T2=D1+D2:IF T2>N22 THEN 31603145 IF T2<>N11 THEN D(A,R)=D2:PI}CK=N1:GOTO 30903148 GOSUB 3500:T2=N0:DONE=DONE+N2:GOSUB 3600:GOTO 33003150 T2=T2+D1:IF T2<>36 THEN PICK=N2:T2=T2-D1:D(A,R)=}T5:GOTO 30903160 A1=A1+N1:S(A1)=T5:GOSUB 3500:IF T2=36 THEN DONE=DONE+N3:T2=N0:GOSUB 36003300 IF STRIG(N0)=N0 THEN 3300331}0 GOTO 30503500 GOSUB 1100:POSITION V,N17:? CARD$:POSITION V+N1,18:GOSUB 200:POSITION A*N5+N7,R*N5-N5:? BLANK$:R5=V:RETURN }3520 GOSUB 1100:POSITION R5,N17:? BLANK$:C=S(PICK):D(A,R)=C:GOSUB 500:POSITION A*N5+N7,R*N5-N5:? CARD$3530 R5=R5-N5:PICK=PIC}K-N1:IF PICKN5}2 THEN GOSUB 1000:RETURN 3645 POSITION A*N5+N7,R*N5-N5:? CARD$:C=P(T):GOSUB 5003650 GOSUB 1100:POSITION A*N5+N8,R*N5-N4:GOS}UB 200:POSITION N13,19:? (N52-T);:IF N52-TN0 AND ROW<15 AND I=32 THEN 40504045 IF ROW#}>N0 AND ROW<15 THEN I=274050 T=T+N1:NEXT I:NEXT ROW:POSITION N17,N6:? " ":POSITION 30,9:? "":DONE=N0:PS=N1:PICK=N$}14060 POSITION N17,N14:? " ":POSITION N8,9:? "":Y=N34:Z=N56:GOSUB 80504080 GOSUB 700:GOTO 40804100 A=INT(Z/20)-%}N1:R=INT(Y/32):PS=A:IF R>N1 THEN 41204110 GOTO 41304120 PS=N22-R:IF A=N7 THEN PS=A+R-N14125 IF R=N5 THEN PS=18-A4130 IF S&}(PS)=N0 OR (A>N1 AND AN1 AND RN3 THEN PICK=N2:GOSUB 1000:GOTO 40804170 GOSUB 1100:GOSU(}B 4400:IF PICK=N1 THEN DONE=DONE+N2:IF DONE=20 THEN GOSUB 1200:GOTO 9004180 S(PS)=N04300 IF STRIG(N0)=N0 THEN 43004310 GOT)}O 40804400 POSITION A*N5-N3,R*N4-N4:IF (R=N1 OR R=N5) AND (A>N1 AND A<7) THEN ? FD$:RETURN 4410 ? "||||*}||":RETURN 4420 A$(Y,Y+36)=B1$:Y=178:GOSUB 740:RETURN 4990 REM Game 55000 POSITION N14,N23:? "Š":Y=N34:Z=N5+}6:GV=32:DONE=N0:PICK=N05010 POKE 704,42:POKE 709,N0:POKE 710,248:POKE 712,248:T=N1:G=N23:POKE DL+N17,N2:POKE DL+N22,N130501,}5 POKE 54286,192:FOR I=N1 TO 24:S(I)=N0:NEXT I:FOR ROW=N0 TO N16 STEP N45020 FOR I=N2 TO N22 STEP N5:POSITION I,ROW:? CARD$:-}C=P(T):D((I+N3)/N5,(ROW+N4)/N4-N1)=C:GOSUB 5005030 POSITION I+N1,ROW+N1:GOSUB 200:GOSUB 13005040 T=T+N1:NEXT I:NEXT ROW:T1=.}27:T2=N0:COLOR 25:PLOT 27,N0:DRAWTO 27,20:COLOR 149:PLOT 27,20:DRAWTO 36,20:COLOR 1535050 DRAWTO 36,N1:COLOR 21:PLOT 36,N0:D/}RAWTO 26,N0:POSITION 30,N4:? FD$:POSITION 31,N6:? T1:GOSUB 80505060 GOSUB 7005070 IF Z>136 AND H>-N1 THEN Z=168:Y=665080 I0}F Z>136 AND H=-N1 THEN Z=1365090 GOSUB 724:GOTO 50605100 IF Z=168 AND PICK=N0 THEN T2=N0:GOTO 53005110 A=INT(Z/20)-N1:R=IN1}T(Y/32)-N1:C=D(A,R):IF C=N0 AND PICK=N0 THEN GOSUB 1000:GOTO 50605120 IF PICK=N0 THEN D1=C:A1=A:R1=R:GOSUB 500:MATCH=C:PICK=2}N1:GOTO 51605130 IF A=A1 AND R=R1 THEN POSITION 30,N12:? BLANK$:PICK=N0:C=D1:GOSUB 500:POSITION A*N5-N3,R*N4:GOTO 51505132 3}R5=N0:FOR W=-N1 TO N1:IF A=A1+W THEN 51345133 NEXT W:GOTO 51405134 FOR W=-N1 TO N1:IF R=R1+W THEN 51365135 NEXT W:GOTO 5144}05136 D2=C:GOSUB 500:IF C=MATCH THEN PICK=N0:DONE=DONE+N2:POSITION 30,N12:? BLANK$:C=N0:GOTO 51705140 GOSUB 1000:GOTO 52005}5150 ? CARD$;"";NU$;"";SU$;:D(A,R)=D1:IF Y<162 AND D(A,R+N1)<>N0 THEN ? ""5154 GOTO 51905160 POSITION 30,N6}12:? CARD$:POSITION 31,N13:GOSUB 2005170 D(A,R)=N0:POSITION A*N5-N3,R*N4:? BLANK$:IF Y>N34 THEN IF D(A,R-N1)<>N0 THEN POSITI7}ON A*N5-N3,R*N4:? ""5180 IF Y<162 AND D(A,R+N1)<>N0 THEN POSITION A*N5-N3,R*N4+N4:? ""5190 GOSUB 11005200 IF STRIG8}(N0)=N0 THEN 52005210 IF DONE=N52 THEN GOSUB 1200:GOTO 9005220 GOTO 50605300 R5=N1:FOR ROW=N0 TO N16 STEP N4:FOR I=N2 TO N9}22 STEP N5:S(R5)=N0:R5=R5+N15310 POSITION I,ROW:? BLANK$:C=D((I+N3)/N5,(ROW+N4)/N4-N1):IF C<>N0 THEN T2=T2+N1:S(T2)=C5330 N:}EXT I:NEXT ROW5340 T2=N1:FOR ROW=N0 TO N16 STEP N4:FOR I=N2 TO N22 STEP N5:C=S(T2):IF C=N0 THEN 53705345 IF T>N0 THEN GOSUB;} 13005350 POSITION I,ROW:? CARD$:T2=T2+N1:D((I+N3)/N5,(ROW+N4)/N4-N1)=C:GOSUB 500:POSITION I+N1,ROW+N1:GOSUB 2005365 NEXT I<}:NEXT ROW:POSITION 31,N6:? T1;:IF T1}N22,N130:POKE 54286,192:POKE 704,1466015 FOR I=N1 TO 24:S(I)=N0:NEXT I:POKE 82,266020 POSITION 26,N0:? "٧Ƚ?}ҧȽӠ";6025 ? "ԠŽ@}Ƞ";6030 ? "ӠӠŠҠ";6040 PA}OKE 82,N2:POSITION N10,N23:? "Ҡ";:POSITION 27,N23:? "ɠŽ";HI;:FOR ROW=N2 TO 18 STEP N46050 FOR I=N3 TO NB}23 STEP N5:POSITION I,ROW:? "":GOSUB 1300:NEXT I:NEXT ROW:T=N1:GOSUB 80606080 POSITION 31,N17:? CARD$:C=P(N1):GOSUB 500:POSC}ITION 32,18:GOSUB 200:GOSUB 13006085 Y=N34:Z=N56:GOSUB 80506090 GOSUB 7006092 IF Z>136 THEN Z=1366098 GOSUB 724:GOTO 6090D}6100 A=INT(Z/20)-N1:R=INT(Y/32)-N1:IF D(A,R)<>N0 THEN GOSUB 1000:GOTO 60906110 D(A,R)=P(T):A1=A*N5-N3:R1=R*N4:POSITION A1,RE}1:? CARD$;:IF Y<162 AND D(A,R+N1)<>N0 THEN ? ""6120 C=P(T):GOSUB 500:POSITION A1+N1,R1+N1:GOSUB 200:GOSUB 13006130 F}T=T+N1:IF T=26 THEN 62006140 C=P(T):GOSUB 500:POSITION 32,18:GOSUB 2006160 GOTO 60906200 POP :POSITION 31,N17:? FD$:PS=N0:G}POSITION N2,N23:? " ";:FOR V=N1 TO N46210 FOR ROW=N0 TO N4:T5=N1:T2=N0:T1=N0:C1=N0:R5=N0:D1=N0:FOR I=H}N1 TO N13:P(I)=N0:S(I)=N06220 NEXT I:POSITION N2,N23:? " ";:IF V=N4 THEN FOR I=N5 TO N1 STEP -N1:C=D(I,ROW):GOTI}O 62306221 FOR I=N1 TO N5:IF V<>N2 THEN C=D(I,ROW):GOTO 62306222 IF V=N2 THEN C=D(ROW+N1,I-N1)6230 GOSUB 500:S(I)=C:P(C)=PJ}(C)+N1:IF I=N1 THEN R5=SUIT6235 IF V>N2 THEN ROW=ROW+N16240 D1=D1+(SUIT=R5):NEXT I:IF D1=N5 THEN PS=PS+N12:C1=N2:GOTO 6340K}6250 FOR I=N1 TO N13:IF P(I)>N1 THEN T2=T2+(P(I)=N2)+N10*(P(I)=N3)+100*(P(I)=N4)6255 NEXT I:T1=N4+(T2=N11)-(T2N0 THEN 63606340 POSM}ITION N2,N23:S1=S(1):LO=S1:FOR W=N2 TO N5:IF S(W)>S1 THEN S1=S(W)6343 IF S(W)N4 THEN}N 63526348 NEXT W:C1=C1+N1:IF C1=N3 AND LO=N10 AND S1=N14 THEN ? "ROYAL";:PS=PS+N10:GOTO 63506349 ? "STRAIGHT";6350 PS=PS+O}20:IF C1=N3 THEN ? " FLUSH";:PS=PS+186351 GOTO 63556352 IF LO=N1 AND S1>9 THEN S(T5)=N14:GOTO 63406353 IF C1=N0 THEN ? "NOP} SCORE";6355 IF C1=N2 THEN ? "FLUSH";6360 IF T1=N1 THEN ? "1 PAIR";6361 IF T1=N2 THEN ? "2 PAIRS";6362 IF T1=N3 THEN ? "3Q} OF A KIND";6363 IF T1=N4 THEN ? "4 OF A KIND";6365 IF T1=N5 THEN ? "FULL HOUSE";6370 POSITION N16,N23:? " ŭ";PS;:NEXR}T ROW:NEXT V6372 FOR I=N1 TO N10:NEXT I:POSITION N2,N23:? " ";6374 FOR I=N1 TO N6:POSITION N17,N23:? "SCORE-"S};:FOR W=N1 TO N10:NEXT W:POSITION N17,N23:? "ŭ";:NEXT I6380 IF PS>HI THEN HI=PS:GOTO 64806400 IF PEEK(53279)=N6 THEN ?T} "}":GOTO 81006410 IF PEEK(53279)=N3 THEN ? "}":GOTO 81206420 GOTO 64006480 FOR I=N1 TO N6:POSITION 27,N23:? "HI SCORE=";HU}I;:FOR W=N1 TO N6:NEXT W:POSITION 27,N23:? "ɠŽ";6490 NEXT I:GOSUB 1200:GOTO 64007000 GRAPHICS N0:POKE 710,210:POKE 5V}59,62:POSITION N16,N23:? "":GV=N16:DONE=N0:POKE 752,N1:POKE 704,N227010 PICK=N0:POKE 82,N0:GOSUB 400:T=N1:T1=24:T2=W}24:V1=N0:V2=N0:C1=N07030 FOR I=N0 TO N40:S(I)=N0:SS(I)=N0:U(I)=N0:UU(I)=N0:NEXT I:GOSUB 80607035 FOR I=N0 TO N22:POSITION NX}0,I:? "":POSITION 33,I:? "":NEXT I:POSITION N0,N23:? " "7040 FOR I=N10 TO 25 STEP N5:POSITION Y}I,N07045 ? CARD$:C=P(T):D((I/N5)-N1,N1)=P(T):GOSUB 500:POSITION I+N1,N1:GOSUB 200:T=T+N1:NEXT I7050 FOR I=N1 TO 24:S(I)=P(IZ}+N4):U(I)=P(I+28):NEXT I:POSITION N1,18:? FD$:POSITION N34,18:? FD$7055 POSITION N2,20:? T1:POSITION 35,20:? T2:POSITION N1,[}N12:? CARD$:POSITION N34,N12:? CARD$:POSITION N1,N0:? CARD$7060 POSITION N1,N6:? CARD$:POSITION N34,N0:? CARD$:POSITION N34,\}N6:? CARD$:R5=INT(N2*RND(N0)+N1):Y=178:GOSUB 80507070 IF R5=N1 THEN POSITION N7,N23:? "":POSITION 29,N23:? " ":AA=N0:]}Z=N52:GOSUB 44207071 IF R5=N2 THEN POSITION N7,N23:? " ":POSITION 29,N23:? "":AA=N1:Z=184:GOSUB 44207073 IF STRIG(AA^})=N0 THEN 70737077 POKE 764,255:GV=N16:GOSUB 700:IF Z184 AND H=N1 THEN Z=N52:`}GOTO 70867086 IF Z>148 AND H=N1 THEN Z=1847090 IF Z=164 THEN Z=1487092 IF Y>178 THEN Y=178+(16*((Z>N52) AND (Z<184)))7094a} GOSUB 740:GOTO 70777100 A=INT(Z/20)-N3:R=INT(Y/N16)-N2:IF AN5 THEN A=N57120 IF PICK=N1 THEN 75007b}124 IF (A=N0 AND R5=N2) OR (A=N5 AND R5=N1) AND Y>130 THEN 71997130 A1=A:R1=R:IF (A=N0 OR A=N5) AND PICK=N0 THEN 73007133 Ic}F C1=N1 THEN 71997135 IF (A=N0 AND R5=N2) OR (A=N5 AND R5=N1) THEN 71997140 ROW=R+1:IF D(A,ROW+N1)<>N0 OR D(A,ROW)=N0 THEN d}71997145 D1=D(A,ROW):D(A,ROW)=N0:W=A*N5+N5:ROW=R*N2:POSITION W,ROW:? BLANK$7150 IF ROW>N0 THEN POSITION W,ROW:? "| ||e} |":C=D(A,R):GOSUB 500:POSITION W+N1,ROW-N1:GOSUB 2007160 IF R5=N1 THEN GOTO 74187165 GOTO 74507199 GOSUB 1000:Gf}OTO 70737250 IF Y=N130 AND (A=N0 OR A=N5) THEN C1=C1+N17252 C=D1:GOSUB 500:IF Z>N52 AND Z<184 THEN 72957253 IF R5=N2 THEN g}72807260 V1=V1+N1:POSITION N2,N13:GOSUB 200:SS(V1)=D1:GOTO 75907280 V2=V2+N1:POSITION 35,N13:GOSUB 200:UU(V2)=D1:GOTO 7590q}B%DOS SYSB*)DUP SYSB3SMUNTEN LSTBPARATRO LSTB$PARKKEEPLSTBPATIENCELSTBPRNTSHP2LSTBPQUIZ LSTB(RACE LSTBA>REFLECT LSTB REKEN LSTB REMOVER LSTBRENUMBERLSTAREVERSI1LST#REVERSI2LST SCRNDMP LSTSENSOR LST)SIMULAT LSTSNELHEIDLSTSPRITE2 LSTSTENCIL LSTVLINDER LST7295 A1=A*N5+N5:R1=R*N2:POSITION A1,R1:? CARD$:D(A,R+N1)=D1:POSITION A1+N1,R1+N1:GOSUB 200:GOTO 75907300 IF YN1 THEN C1=N1:GOTO 71997314 IF R5=N2 AND T2=N0 THEN Cs}1=C1-N1:GOTO 73967316 IF R5=N2 THEN V2=V2+N1:D1=U(T2):UU(V2)=D1:GOTO 73407318 IF T1=N0 THEN C1=C1-N1:GOTO 73927320 V1=V1+Nt}1:D1=S(T1):SS(V1)=D17340 C=D1:GOSUB 500:MATCH=N1:POSITION N2+((R5=N2)*33),N13:GOSUB 200:IF SUIT=N2 OR SUIT=N3 THEN MATCH=N2u}7350 IF R5=N2 THEN 73807370 T1=T1-N1:POSITION N2,20:? T1;:IF T1N0 THEN S(I)=SS(V1):V1=V1-N1:GOTO 7393w}7394 T1=I-N1:GOTO 73007396 I=N07397 I=I+N1:IF V2<>N0 THEN U(I)=UU(V2):V2=V2-N1:GOTO 73977398 T2=I-N1:GOTO 73007400 C1=C1-x}N1:IF C1<-N1 THEN C1=-N17402 IF R5=N2 THEN 74207405 D1=SS(V1):IF D1=N0 THEN 71997410 V1=V1-N1:C=SS(V1):IF SS(V1)=N0 THEN Py}OSITION N2,N13:? "  ":GOTO 74187414 GOSUB 500:POSITION N2,N13:GOSUB 2007418 POSITION N2,20:? " ":C=D1:GOSUB 500:POSITIz}ON N2,19:GOSUB 200:GOTO 74807420 D1=UU(V2):IF D1=N0 THEN 71997430 V2=V2-N1:C=UU(V2):IF C=N0 THEN POSITION 35,N13:? "  "{}:GOTO 74507440 GOSUB 500:POSITION 35,N13:GOSUB 2007450 POSITION 35,20:? " ":C=D1:GOSUB 500:POSITION 35,19:GOSUB 2007480 M|}ATCH=N1:IF SUIT=N2 OR SUIT=N3 THEN MATCH=N27490 GOSUB 1100:PS=C:PICK=N1:GOTO 70737500 IF A=A1 AND R=R1 THEN 72507520 IF Z=}}N52 OR Z=184 THEN 76207530 D2=D(A,R):C=D2:GOSUB 500:IF D(A,R+N1)=N0 AND Y=N34 THEN GOTO 75807535 IF D(A,R+N1)<>N0 THEN 7199~}7540 TEMP=N1:IF SUIT=N2 OR SUIT=N3 THEN TEMP=N27550 IF TEMP-MATCH=N0 THEN 71997560 IF C-PS<>N1 THEN 71997580 A1=A*N5+N5:R}1=R*N2:POSITION A1,R1:? CARD$:D(A,R+N1)=D17585 C=D1:GOSUB 500:POSITION A1+N1,R1+N1:GOSUB 2007590 POSITION N1+(33*(R5=N2)),1}8:? FD$:IF R5=N1 THEN POSITION N2,20:? T1:SS(V1+N1)=N0:GOTO 76007594 POSITION 35,20:? T2:UU(V2+N1)=N07600 PICK=N0:GOSUB 110}0:IF (T1=N0 AND V1=N0) OR (T2=N0 AND V2=N0) THEN 77507610 GOTO 70737620 IF Y=N130 THEN 76707626 SET=N1+(Y=82)+(N3*(Z=184))}7630 IF D(N0,SET)=N0 AND C=N1 THEN D(N0,SET)=D1:GOTO 76507635 IF D1-D(N0,SET)=N1 THEN D(N0,SET)=D1:GOTO 76507640 GOTO 7199}7650 W=N2+(33*(Z=184)):V=N1+(N6*(Y=82)):POSITION W,V:GOSUB 200:GOTO 75907670 IF R5=N2 THEN 76807673 IF Z=184 THEN D2=UU(V2}):IF ABS(D1-D2)=N1 THEN 77007675 C=D2:GOSUB 500:IF PS=C THEN 77007677 GOTO 71997680 IF Z=N52 THEN D2=SS(V1):IF ABS(D1-D2)=}N1 THEN 77207685 C=D2:GOSUB 500:IF PS=C THEN 77207690 GOTO 71997700 V2=V2+N1:UU(V2)=D1:GOTO 77307720 V1=V1+N1:SS(V1)=D17}730 C=D1:GOSUB 500:POSITION N2+(33*(Z=184)),N13:GOSUB 200:GOTO 75907750 POSITION N7,N23:? "-";R5;"-ӡ":}GOSUB 1200:GOTO 64008000 N1=1:N0=N1-N1:N2=N1+N1:N3=N2+N1:N4=N3+N1:N5=N4+N1:N6=N5+N1:N7=N6+N1:N8=N7+N1:N10=N5*N2:N11=N10+N1:N}12=N10+N28005 N13=N12+N1:N14=N12+N2:N16=N14+N2:N17=N12+N5:N22=N17+N5:N23=N22+N1:N34=N17*N2:N40=40:N52=52:N56=568010 PS=N0:D}IM P(N52),SU$(N1),NU$(N2),D(N7,N11),CARD$(N40),BLANK$(N40),FD$(N40),S(N40),SS(N40),U(N40),UU(N40)8012 N130=130:AA=N0:PICK=N1}:OPEN #N1,N4,N0,"K:"8020 CARD$="| || || |":BLANK$="     "}8030 FD$="||||||"8040 RETURN 8050 A$(N1)="":A$(512)="":A$(N2)=A$:GOSUB 740:RETURN 8060} FOR I=N0 TO N7:FOR ROW=N0 TO N10:D(I,ROW)=N0:NEXT ROW:NEXT I:RETURN 8100 GRAPHICS N1:POKE 711,N12:POKE 559,62:POKE 752,N1:P}OKE 710,116:POKE 712,116:POKE 53248,N08101 ? #N6;"____________________":? #N68102 POKE 764,255:GM=N0:? #N6;" SELECT GAME}"8103 ? #N6:? #N6;"  HOLE IN ONE":? #N6;"  PACKET BOAT":? #N6;"  BLOCK ELEVEN":? #N6;"  REVERSE PUZZLE"8104 ? #N6;"}  MONTE CARLO":? #6;"  POKER SOLITAIRE"8105 ? #N6;"  CHINESE":? #N68107 ? #N6;" during play press -to restar}t game":? #N6;" -to return to menu"8109 GET #N1,GM:L=GM+256:GM=GM-48:IF GMN7 THEN 81098}110 POKE 704,N0:GOSUB 1100:POSITION N2,N0:? #N6;"selected game ";CHR$(L):GOSUB 9000:GRAPHICS N0:POKE 752,N18120 ? "}":GOSUB }400:POKE 559,62:POKE 752,N1:ON GM GOTO 600,2000,3000,4000,5000,6000,70008200 GRAPHICS N0:POKE 82,N0:DL=PEEK(560)+256*PEEK(56}1)+N4:POKE 752,N1:POKE 710,N34:POKE 709,N0:POKE 712,N08210 POKE 708,200:FOR I=N2 TO N11:POKE DL+I,N5:NEXT I:FOR I=N12 TO N17}:POKE DL+I,N6:NEXT I8220 POSITION N0,N2:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX";8224 ? "<<<<<<<<<<<<<<<<<<< >>>>>>>>>>}>>>>>>>>>>":POSITION N0,9:? "<<<<<<<<<<<<<<<<<<< >>>>>>>>>>>>>>>>>>>>";8226 POSITION N0,N10:? "XXXXXXXXXXXXXXXXXXXXXXXXXXXXX}XXXXXXXXXXX";:POSITION N3,N12:? "BY .."8230 FOR I=N0 TO 35 STEP N5:POSITION I,N4:? CARD$:NEXT I:FOR I=N1 TO 36 STEP} N58240 READ SU$:SOUND N0,ASC(SU$)-I,N10,N4:SOUND N1,ASC(SU$)-I+N1,N10,N4:POSITION I,N5:? SU$:FOR W=N1 TO N6:NEXT W8250 POS}ITION I+N1,N7:? "":NEXT I:SOUND N0,N0,N0,N0:SOUND N1,N0,N0,N0:FOR I=N1 TO N52:NEXT I:POKE 82,N28260 RESTORE 8310:FOR I=N0 T}O N10:READ C:POKE 1536+I,C:NEXT I:POKE 512,N0:POKE 513,N6:RETURN 8300 DATA P,A,T,I,E,N,C,E8310 DATA 72,169,22,141,10,212,14}1,24,208,104,649000 ? " DO YOU REQUIRE INSTRUCTIONS? ٯ":? 9010 POKE 764,255:GET #N1,W:IF W=78 THEN 100209020 IF W<>89 TH}EN 90109030 GRAPHICS N0:POKE 710,N4:POKE 559,62:POKE 752,N1:ON GM GOTO 9100,9200,9300,9400,9500,9600,97009100 ? " 28 cards }are dealt in seven columns. Only the bottom card of each column isplayable.The cursor is used";9110 ? " to select card. The }object of this game is to collect all the cards into one pile. One card is ";9120 ? "dealt face up at the bottom of }the screen. On top of this card you can put any playable ";9130 ? "card which has the same value,or a card of the same }suit providing that it is next in sequence";9140 ? " to the top card of the discard pile. If you cant go then place the} cursor on the 'face down' pack,";9150 ? "and press the button to turn the next card":GOTO 100009200 ? " 28 cards are dea}lt in seven columns. only the bottom card of each column isplayable ";9210 ? "The object of the game is to collect packets o}f 4 cards of the same denomination.Cards can be played";9220 ? " on each other if they are similar. When 4 similar cards h}ave been brought together,";9230 ? " they are removed by placing the cursor on the bottom card and pressing the butt}on. Cards are dealt";9240 ? " from the pack by placing cursor on pack and pressing button. A space can only be filled }by a card";9250 ? " from the discard pile. Pack is redealt from discards":GOTO 100009300 ? "9 Cards are dealt in a sq}uare. The object of the game is to get rid of all the pack,";9310 ? "by taking any cards which add to eleven. Picture c}ards can only be taken when Jack,Queen,King ";9320 ? "are on the board at the same time. Spaces can be filled from the }pack by placing cursor on a space ";9330 ? "and pressing button.":GOTO 100009400 ? " 20 Cards are dealt face up in a large }square"9410 ? " The object of the game is to end up with the cards in the layout all face down.";9420 ? " Place the cursor} over any card and press button to turn face down.":? "Count this as 1."9440 ? " Now move in a clockwise direction coun}ting 2,3,4. Turn the fourth card face down. Choose ";9450 ? "any other card,count 1 and turn down.Turn down the fourth card} and carry on turning 1 and 4 "9460 ? "until all the cards are reversed":GOTO 100009500 ? "25 Cards are dealt in a 5*5 layo}ut.Theobject of the game is to pair off all the cards.A pair can only ";9510 ? "be taken,if they are next to each other in } direction-":? " VERTICAL,HORIZONTAL or DIAGONAL."9520 ? "Place cursor on card and press button. If ";9530 ? "you ca}nt go,then place cursor on pack and press button.The cards in the layout will be re-dealt ";9540 ? "minus any spaces.The} layout will be increased to 25 cards from the deck":GOTO 100009600 ? "25 Cards are dealt from the stock one by one.Place ea}ch card anywhere on a 5*5 grid to make the best ";9610 ? "poker hands.Once laid,a card cannot be moved.":? "When the grid i}s filled,the score willbe calculated ";9620 ? "for 10 hands-":? " 5 across,5 down and 2 diagonal.":? "The object being to }get the best score possible"9630 GOTO 100009700 POKE 764,255:? "This is a 2 player game.The idea is tobe the first player t}o get rid of yourcards:";9710 ? "4 cards are dealt to the screen and the rest of the pack is divided equally between the p}layers"9720 ? "There are also 2 spaces marked at eachside on which you may play any ace"9730 ? " The first player is chosen} at random by the computer and will be indicated by arrows at the lowest ";9740 ? "edge of the screen.Place cursor on your} pack and press button to turn first card. This is shown on ";9750 ? "the discard pile.Cards can be played to the layout if} the card isnext lower in value and is ";9760 ? "the opposit colour(i,e descending red-black-red-ect).Cards can be played fr}om discard or layout on to ";9770 ? "your opponents discardif it matches in value,or if it is in SUIT sequence(up or down)"}9772 ? " PRESS ANY KEY TO CONTINUE"9774 IF PEEK(764)=255 THEN 97749780 ? "Spaces can be filled by any card.ACES are built u}p to the king in SUIT sequence"9790 ? "Cards can be turned from the discard as long as you are able to play them to a}nother position. If ";9792 ? "you cant go then press the space bar to pass to the next player.When pack is empty thepile} is turned"10000 ? :? "PRESS START TO BEGIN"10010 IF PEEK(53279)<>N6 THEN 1001010020 GOSUB 1100:? "}":RETURN mpty thepileq10 REM РҠ20 REM ҠҠҭ30 REM þ٠Ӡ40 REM Р50 REM ȠϠ̠̠Π}60 ------------------------------70 OFF=40000:POKE 580,1:TRAP #ERROR80 CLS :PRINT "РҠ"90 PRINT "þ}٠Ӡ":PRINT 100 EXEC INIT_PRINTER110 PRINT "INSERT DISKETTE AND"120 PRINT "HOLD DOWN WHILE PRESS}ING"130 PRINT "THE BUTTON."140 DO :LOOP 150 ------------------------------160 PROC INIT_PRINTER170 REM Ҡ}Ҡҵ180 REM Ҡ̠190 REM ҠŠΠҠ200 OPEN #1,8,0,"P:"210 PRINT #1;CHR$}(27);"A";CHR$(3)220 CLOSE #1230 ENDPROC 240 ------------------------------250 END 260 ------------------------------2}70 # ERROR280 TRAP OFF:CLS 290 PRINT "Ҡ DETECTED, CHECK EQUIPMENT"300 PRINT "AND PRESS TO TRY AGAIN OR"310 P}RINT "PRESS FOR MENU."320 PRINT :GET KEY:RUN TED, CHECK EQUIPMENT"300 PRINT "AND PRESS TO TRY AGAIN OR"310 P51 POKE 710,0:POKE 752,1:? "}"4 ? :? :? :? :? " W E R E L D Q U I Z ! !"5 ? :? :? :? :? :? :? :? :? :? :? :? :? " }upload to S.A.G. on 16/5/86"6 FOR P=1 TO 4000:NEXT P10 GOTO 1000100 READ Y:IF Y=-1 THEN RETURN 110 READ X:READ L120 PLOT} X,Y:DRAWTO X+L-1,Y:GOTO 100200 R=INT(RND(0)*28)*100+4100210 I=0220 I=I+1:IF R=Q(I) THEN 200230 IF Q(I)<>0 THEN 220240 Q}(I)=R:RETURN 300 FOR I=0 TO 3:POKE 656,I:POKE 657,8:PRINT SP1$;SP2$;:NEXT I:RETURN 400 FOR I=0 TO 3:POKE 656,I:POKE 657,8:P}RINT SP1$;:NEXT I:RETURN 1000 GRAPHICS 7:POKE 752,1:POKE 712,128:POKE 708,166:POKE 709,26:POKE 710,1281010 DIM A1$(20),A2$(}20),A3$(20),A4$(20),SP1$(8),SP2$(23),Q(10)1020 SP2$=" ":SP1$=SP2$1040 OPEN #1,4,0,"K:"1050 POKE 656,}0:POKE 657,0:? "*******";1060 POKE 656,1:POKE 657,0:? "WERELD";1070 POKE 656,2:POKE 657,0:? "*QUIZ*";1080 POKE 656,3:POKE }657,0:? "*******";1100 RESTORE 5100:COLOR 11110 READ A1$:IF A1$<>"***" THEN READ A2$:READ A3$:READ A4$:READ A:GOSUB 100:GOT}O 11101150 T=0:S=01160 FOR I=1 TO 10:Q(I)=0:NEXT I1200 GOSUB 300:T=T+1:IF T>10 THEN GOTO 18001210 A1$=SP2$:A2$=SP2$:A3$=S}P2$:A4$=SP2$1300 GOSUB 200:RESTORE R:READ A1$:READ A2$:READ A3$:READ A4$:READ A:COLOR 2:GOSUB 1001310 POKE 656,0:POKE 657,8}:? "IS DIT 1.";A1$;1320 POKE 656,1:POKE 657,8:? " OF 2.";A2$;1330 POKE 656,2:POKE 657,8:? " OF 3.";A3$;1340 POKE }656,3:POKE 657,8:? " OF 4.";A4$;1350 GET #1,K:IF K<49 OR K>52 THEN GOTO 13501360 K=K-48:GOSUB 4001370 POKE 656,K-1:POK}E 657,81380 IF K=A THEN ? "JUIST>";:S=S+1:GOTO 15001390 ? "FOUT >";1400 POKE 656,A-1:POKE 657,81410 ? "HET IS >";1500 }FOR I=1 TO 1500:NEXT I1510 RESTORE R:READ A1$:READ A2$:READ A3$:READ A4$:READ A:COLOR 1:GOSUB 1001520 GOTO 12001800 POKE 6}56,0:POKE 657,10:? "JE HEBT ";S;" VAN DE 10 GOED";1810 A1$="VERSCHRIKKELIJK "1820 IF S>1 THEN A1$="NIET ZO GOED "1830 I}F S>4 THEN A1$="NIET ZO SLECHT"1840 IF S>7 THEN A1$="ZEER GOED "1850 IF S>9 THEN A1$="UITSTEKEND "1860 POKE 656,1:POKE 65}7,12:? "DAT IS ";A1$;1870 POKE 656,3:POKE 657,8:? "DRUK OP START VOOR NOG EEN BEURT";1880 IF PEEK(53279)=6 THEN GOTO 11501}890 GOTO 18804100 DATA ANDES,ROTS GEB.,HIMALAJA,ATLAS GEB.,44110 DATA 28,69,4,29,68,3,30,68,2,31,67,2,-14200 DATA ANDES,RO}TS GEB.,HIMALAJA,ATLAS GEB.,34210 DATA 27,102,5,28,103,5,29,104,5,30,106,5,31,107,5,-14300 DATA SAHARA,KALAHARI,GIBSON&SIMP}SON,GOBI WOEST.,14310 DATA 32,71,12,33,70,14,34,69,16,35,68,18,36,68,18,37,69,16,38,70,14,-14400 DATA SAHARA,KALAHARI,GIBSO}N&SIMPSON,GOBI WOEST.,24410 DATA 57,77,4,58,78,4,59,78,3,60,78,2,-14500 DATA SAHARA,KALAHARI,GIBSON&SIMPSON,GOBI WOEST.,34}510 DATA 57,120,8,58,119,10,59,119,10,60,120,8,-14600 DATA CHILI,ARGENTINIE,PERU,BRAZILIE,14610 DATA 55,44,2,56,44,2,57,44,}2,58,44,2,59,44,2,60,44,2,61,44,2,62,43,2,63,43,2,64,43,2,65,43,24615 DATA 66,43,2,67,43,2,68,43,2,69,43,2,70,43,2,71,43,2,7}2,43,2,73,43,2,74,43,2,75,43,24620 DATA 76,43,2,77,44,1,78,45,1,-14700 DATA CHILI,ARGENTINIE,PERU,BRAZILIE,24710 DATA 57,4}5,2,58,45,3,59,45,4,60,45,6,61,45,5,62,44,5,63,44,4,64,44,4,65,44,4,66,44,3,67,44,34715 DATA 68,44,3,69,44,3,70,44,3,71,44,2},72,44,2,73,44,3,74,44,2,75,44,1,76,44,1,77,45,1,78,46,1,-14800 DATA CHILI,ARGENTINIE,PERU,BRAZILIE,44810 DATA 43,46,2,44,4}6,2,44,51,1,45,44,4,45,49,3,46,44,10,47,44,12,48,42,16,49,42,16,50,43,154815 DATA 51,46,11,52,47,10,53,48,9,54,49,8,55,49,7,}56,49,7,57,50,5,58,50,4,59,50,3,60,49,44820 DATA 61,49,4,62,50,2,-14900 DATA SCANDINAVIE,RUSLAND,IJSLAND,NEDERLAND,14910 D}ATA 0,80,4,1,79,5,2,78,5,3,78,6,4,77,7,5,77,4,5,83,1,6,76,5,6,82,2,7,75,6,7,82,24915 DATA 8,74,5,8,81,4,9,74,6,10,74,5,11,74},2,11,77,2,12,77,2,13,77,1,-15000 DATA CANARISCHE EIL.,JAPAN,BRITSE EIL.,ENGELAND,35010 DATA 11,70,1,12,70,2,13,68,1,13,70,}2,14,67,2,14,71,2,15,67,2,15,70,3,16,69,3,-15100 DATA NIEUW ZEELAND,AUSTRALIE,JAPAN,MADAGASCAR,25110 DATA 52,124,3,52,129,1},53,124,3,53,129,15115 DATA 54,122,4,54,128,3,55,121,10,56,118,145120 DATA 57,117,15,58,117,16,59,118,15,60,118,165125 DAT}A 61,118,16,62,118,16,63,118,5,63,126,75130 DATA 64,117,3,64,126,7,65,128,4,66,128,45135 DATA 67,129,2,69,130,2,70,131,1,-1}5200 DATA NIEUW ZEELAND,AUSTRALIE,JAPAN,MADAGASCAR,15210 DATA 64,141,1,65,142,1,66,142,2,67,141,25215 DATA 68,140,1,68,142},1,69,140,1,70,139,25220 DATA 71,138,2,72,138,1,-15300 DATA BRAZILIE,CENTRAAL AMERIKA,CHILI,ZUID AMERIKA,45310 DATA 41,42,}3,42,41,7,43,41,8,44,41,11,45,40,12,46,39,155315 DATA 47,40,16,48,39,19,49,40,18,50,41,17,51,41,16,52,42,155320 DATA 53,42,}15,54,43,14,55,44,12,56,44,12,57,44,11,58,44,105325 DATA 59,44,9,60,44,9,61,44,9,62,43,9,63,43,8,64,43,75330 DATA 65,43,6,6}6,43,6,67,43,6,68,43,5,69,43,4,70,43,45335 DATA 71,43,3,72,43,3,73,43,4,74,43,3,75,43,2,76,43,25340 DATA 77,44,2,78,45,2,-1}5400 DATA U.S.A.,MEXICO+CENT.AMERIKA,FLORIDA,CUBA,25410 DATA 28,25,2,29,25,1,29,27,3,30,26,1,30,28,3,31,26,1,31,28,4,32,27,}1,32,29,45415 DATA 33,27,1,33,29,4,34,30,3,35,30,3,35,36,1,36,30,3,36,35,25420 DATA 37,31,6,38,32,5,39,35,4,40,37,2,41,38,2},42,39,2,-15500 DATA WEST INDIE,INDONESIE,CANARISCHE EIL.,BALEAREN,15510 DATA 33,42,1,34,38,3,34,44,1,35,40,2,36,43,25515 }DATA 37,40,1,37,42,3,37,46,1,38,47,1,39,49,1,40,47,1,-15600 DATA CANADA,MEXICO,U.S.A.,ALASKA,35610 DATA 0,7,9,1,6,10,2,7,9,}3,8,8,4,5,11,5,6,10,6,8,8,7,7,9,8,6,10,9,7,4,9,12,1,9,14,25615 DATA 10,7,4,10,16,1,11,9,2,11,17,1,12,8,1,12,18,1,13,7,1,13,1}9,1,35,8,1,36,10,15620 DATA 19,22,12,20,22,13,21,22,16,21,45,1,22,22,14,22,37,1,22,41,3,23,22,16,23,39,4,24,23,195625 DATA }25,24,18,26,24,17,27,25,15,28,27,12,29,30,9,30,31,3,30,38,2,31,32,1,31,39,1,32,39,1,-15700 DATA CANADA,MEXICO,U.S.A.,ALASKA,}15710 DATA 0,16,1,0,19,5,0,26,5,0,42,3,1,16,10,1,33,6,1,42,3,2,16,12,2,29,11,2,42,4,3,16,12,3,29,115715 DATA 3,42,6,4,16,22},4,42,6,5,16,21,5,38,2,5,41,5,6,16,17,6,37,3,6,43,3,7,16,11,7,29,6,7,33,25720 DATA 7,37,2,8,16,10,8,28,6,8,41,4,9,16,18,9,41},4,10,17,17,10,41,4,10,46,1,11,18,17,11,41,65725 DATA 12,19,17,12,41,7,13,20,18,13,41,8,14,20,20,14,41,9,15,20,20,15,41,9,16},21,20,16,41,75730 DATA 17,21,26,17,49,1,18,22,24,18,49,1,19,34,3,19,38,7,19,48,3,20,38,8,20,48,35735 DATA 21,40,4,21,46,2,}22,39,2,-15800 DATA CANADA,GROENLAND,NORWEGEN,IJSLAND,25810 DATA 0,51,11,1,52,9,2,52,8,3,51,7,4,51,5,5,51,5,6,51,4,7,52,3,8},52,3,9,54,1,-15900 DATA CANADA,GROENLAND,NORWEGEN,IJSLAND,45910 DATA 4,62,1,4,66,1,5,62,5,6,62,4,7,63,2,-16000 DATA JAPAN},KOREA,PHILIPPIJNEN,NIEUW ZEELAND,16010 DATA 20,129,1,21,128,3,23,128,1,24,128,1,25,127,2,26,125,3,27,124,3,28,124,1,-16100} DATA MADAGASCAR,CANARISCHE EIL.,JAPAN,PHILIPPIJNEN,16110 DATA 52,91,1,53,90,2,54,89,3,55,89,3,56,89,2,57,89,2,58,90,1,-162}00 DATA EGYPTE,ZUID AMERIKA,MADAGASCAR,AFRIKA,46210 DATA 26,73,3,27,69,1,27,71,5,28,68,7,29,67,10,29,80,1,30,67,11,30,80,5,3}1,67,186215 DATA 32,66,20,33,65,21,34,65,22,35,65,22,36,66,22,37,66,22,38,65,23,39,65,246220 DATA 40,66,23,40,91,1,41,66,26},42,67,24,43,68,4,43,74,16,44,76,14,45,76,13,46,76,9,46,86,26225 DATA 47,77,11,48,77,11,49,77,11,50,78,11,51,77,12,52,77,11,}53,76,11,54,76,10,55,77,86230 DATA 56,77,8,57,77,9,58,78,8,59,78,7,60,78,7,61,79,6,62,79,5,63,79,4,-16300 DATA EUROPA,SCAND}INAVIE,RUSLAND,FRANKRIJK,16310 DATA 11,70,1,12,70,2,13,68,1,13,70,2,14,67,2,14,71,2,15,67,2,15,70,3,16,69,36315 DATA 0,80,4},1,79,5,2,78,5,3,78,6,4,77,7,5,77,4,5,83,1,6,76,5,6,82,2,7,75,6,7,82,26320 DATA 8,74,5,8,81,4,9,74,6,10,74,5,11,74,2,11,77,2},12,77,2,13,77,16325 DATA 13,75,1,14,75,2,15,75,2,16,74,7,17,73,8,18,70,11,19,70,11,20,71,12,21,71,126330 DATA 22,68,5,22,7}6,2,22,79,5,23,68,5,23,77,2,23,80,2,23,83,7,24,68,4,24,75,16335 DATA 24,78,1,24,80,1,24,83,7,25,68,4,25,78,1,25,81,1,25,83,7},26,69,2,26,77,16340 DATA 27,82,1,27,84,1,-16400 DATA EUROPA,SCANDINAVIE,RUSLAND,FRANKRIJK,36410 DATA 0,99,37,1,84,1,1,96,}2,1,99,45,2,83,4,2,96,2,2,99,46,3,83,5,3,89,1,3,91,556415 DATA 4,84,1,4,86,2,4,90,57,5,84,2,5,88,61,6,84,2,6,88,57,6,146,2,7},84,59,8,85,50,8,137,46420 DATA 9,85,1,9,87,47,9,137,2,10,82,52,10,136,2,11,81,47,11,135,3,12,81,46,12,134,46425 DATA 13,81},45,13,134,3,14,81,47,14,134,2,15,80,48,15,129,1,15,134,2,16,81,39,16,122,66430 DATA 16,129,1,16,134,1,17,81,31,17,113,7,17,}123,5,17,129,1,18,81,26,18,123,4,18,129,16435 DATA 19,81,26,19,124,4,20,83,23,20,126,2,21,83,1,21,85,1,21,87,4,21,93,3,21,97},86440 DATA 21,125,2,22,88,3,22,92,3,22,97,7,22,124,2,23,89,3,23,94,10,24,94,7,25,96,2,-16500 DATA TIBET,CHINA,INDIA,MONGOL }IE,46510 DATA 17,112,1,18,107,12,19,108,12,20,109,10,21,109,9,22,110,7,-16600 DATA TIBET,CHINA,INDIA,MONGOLIE,26610 DATA 1 }6,120,2,17,120,3,18,119,4,19,107,1,19,120,4,20,106,3,20,119,7,21,105,4,21,118,76615 DATA 22,104,6,22,117,7,23,104,16,23,121, }2,24,101,18,25,101,20,26,102,18,27,103,176620 DATA 28,104,16,29,104,16,30,106,15,31,108,13,32,110,11,33,111,9,34,112,7,35,11 }5,3,36,116,1,-16700 DATA TIBET,CHINA,INDIA,MONGOLIE,36710 DATA 29,102,3,30,101,3,31,101,9,32,100,7,32,108,2,33,100,7,33,109 },1,34,99,8,35,100,76715 DATA 36,101,5,37,101,4,38,102,2,39,102,2,40,102,1,-16800 DATA WEST INDIE,INDONESIE,CANARISCHE EIL.,}BALEAREN,26810 DATA 43,109,1,44,110,1,45,111,2,46,111,2,47,112,2,48,112,16815 DATA 49,113,3,49,117,1,49,119,1,50,121,16820} DATA 43,118,2,44,117,2,45,116,4,46,116,3,47,117,26825 DATA 37,120,1,38,120,1,39,120,2,41,119,1,41,121,1,42,121,2,43,122,16}830 DATA 45,120,3,45,124,1,46,120,1,46,126,2,47,120,2,47,127,1,47,129,16835 DATA 48,120,1,48,124,1,48,127,4,49,128,5,50,129,}2,50,132,1,51,132,26840 DATA 48,133,1,49,135,1,50,136,1,51,137,1,-19000 DATA ANDEREN,X,X,X,19010 DATA 32,107,1,33,107,2,34},107,2,23,123,2,24,123,1,25,123,2,26,124,1,41,104,1,33,121,1,34,121,19015 DATA 24,90,2,25,86,18,26,86,18,27,86,18,28,86,18,2}9,86,18,30,85,21,31,86,6,31,93,11,32,87,59020 DATA 32,96,8,33,87,6,33,94,1,33,97,7,34,88,8,35,88,7,36,89,5,37,89,4,38,90,2,3}9,90,19025 DATA 31,104,8,32,104,8,33,104,8,34,104,12,35,109,5,36,110,4,37,111,4,38,111,59030 DATA 39,111,1,39,113,3,40,111,}1,40,114,2,41,111,1,41,114,1,42,111,1,43,112,1,44,113,1,-110000 DATA ***,111,4,38,111,59030 DATA 39,111,1,39,113,3,40,111,J1 GOSUB 100010 GOSUB 2000020 COM A$(5),B$(5),C$(20),I$(100),D$(5),E$(5),M$(20),F$(5),G$(5),H$(5),J$(5)21 POSITION 2,2:? "}"}WITCH TRAK DO YOU WANT?"22 POSITION 2,4:? "TRAK 2500 OR TRAK 3000??"24 POSITION 2,7:? " THIS IS CAR 1: # "25 POSITION 2,9:"}? " THIS IS CAR 2: - "28 INPUT TR29 IF TR<>2500 AND TR<>3000 THEN 2330 GRAPHICS 031 S=11:R=1132 SETCOLOR 2,0,7:SETCOLOR "}1,0,035 POKE 756,12840 A$="#":F$="-"45 D$="%":G$="+"50 B$="$":H$=","55 E$="&":J$="*"60 X=25:Y=20:BO1=0:K=25:L=19:BO2=0"}70 POKE 752,180 GOSUB 200085 M$=F$:C$=A$90 POSITION K,L:? M$:POSITION X,Y:? C$91 FOR T=19 TO 5 STEP -192 POSITION T,20:?"} "()"93 FOR V=1 TO 75:NEXT V94 POSITION T,20:? " ":SOUND 0,T+90,10,1095 NEXT T96 POSITION 26,19:? "  ":POSITION T,20:?"} " "97 POSITION 16,22:? "Ϯ"100 ST=STICK(0):IF ST=15 THEN 102101 S=ST102 SOUND 0,0,0,0103 IF S=15 THEN POSITION X,Y:"}? C$:GOTO 200108 X1=X:Y1=Y120 IF S=7 THEN X=X+1:C$=B$130 IF S=11 THEN X=X-1:C$=A$140 IF S=13 THEN Y=Y+1:C$=D$150 IF S=14"} THEN Y=Y-1:C$=E$154 PO"}" }"!}""}"#}"$}"%}"&}1 GOSUB 100010 GOSUB 2000020 COM A$(5),B$(5),C$(20),I$(100),D$(5),E$(5),M$("'}20),F$(5),G$(5),H$(5),J$(5)21 POSITION 2,2:? "}WITCH TRAK DO YOU WANT?"22 POSITION 2,4:? "TRAK 2500 OR TRAK 3000??"24 POSI"(}TION 2,7:? " THIS IS CAR 1: # "25 POSITION 2,9:? " THIS IS CAR 2: - "28 INPUT TR29 IF TR<>2500 AND TR<>3000 THEN 2330 GRA")}PHICS 031 S=11:R=1132 SETCOLOR 2,0,7:SETCOLOR 1,0,035 POKE 756,12840 A$="#":F$="-"45 D$="%":G$="+"50 B$="$":H$=","55 E"*}$="&":J$="*"60 X=25:Y=20:BO1=0:K=25:L=19:BO2=070 POKE 752,180 GOSUB 200085 M$=F$:C$=A$90 POSITION K,L:? M$:POSITION X,Y:"+}? C$91 FOR T=19 TO 5 STEP -192 POSITION T,20:? "()"93 FOR V=1 TO 75:NEXT V94 POSITION T,20:? " ":SOUND 0,T+90,10,1095 N",}EXT T96 POSITION 26,19:? "  ":POSITION T,20:? " "97 POSITION 16,22:? "Ϯ"100 ST=STICK(0):IF ST=15 THEN 102101 S=ST"-}102 SOUND 0,0,0,0103 IF S=15 THEN POSITION X,Y:? C$:GOTO 200108 X1=X:Y1=Y120 IF S=7 THEN X=X+1:C$=B$130 IF S=11 THEN X=X-".}1:C$=A$140 IF S=13 THEN Y=Y+1:C$=D$150 IF S=14 THEN Y=Y-1:C$=E$154 PO"/}"0}"1}"2}"3}"4}"5}"6}1 GOSUB 100010 GOSUB 200002"7}0 COM A$(5),B$(5),C$(20),I$(100),D$(5),E$(5),M$(20),F$(5),G$(5),H$(5),J$(5)21 POSITION 2,2:? "}WITCH TRAK DO YOU WANT?"22 P"8}OSITION 2,4:? "TRAK 2500 OR TRAK 3000??"24 POSITION 2,7:? " THIS IS CAR 1: # "25 POSITION 2,9:? " THIS IS CAR 2: - "28 INP"9}UT TR29 IF TR<>2500 AND TR<>3000 THEN 2330 GRAPHICS 031 S=11:R=1132 SETCOLOR 2,0,7:SETCOLOR 1,0,035 POKE 756,12840 A$="":}#":F$="-"45 D$="%":G$="+"50 B$="$":H$=","55 E$="&":J$="*"60 X=25:Y=20:BO1=0:K=25:L=19:BO2=070 POKE 752,180 GOSUB 20008";}5 M$=F$:C$=A$90 POSITION K,L:? M$:POSITION X,Y:? C$91 FOR T=19 TO 5 STEP -192 POSITION T,20:? "()"93 FOR V=1 TO 75:NEXT V"<}94 POSITION T,20:? " ":SOUND 0,T+90,10,1095 NEXT T96 POSITION 26,19:? "  ":POSITION T,20:? " "97 POSITION 16,22:? ""=}"100 ST=STICK(0):IF ST=15 THEN 102101 S=ST102 SOUND 0,0,0,0103 IF S=15 THEN POTION T,20:? " "97 POSITION 16,22:? " U1 REM 2 REM Π3 REM Š4 REM 1000 N1=1:N2=2:N0=0:N3=3:N4=4&?}:N5=5:N6=6:N7=7:N8=8:N9=9:O2=N21009 GRAPHICS 23:POKE 708,20:POKE 709,0:POKE 710,15:POKE 712,198:POKE 711,30:GOSUB 1950:GOSUB&@} 1720:UI=N11010 DL=PEEK(560)+256*PEEK(561):POKE DL+N3,70:POKE DL+N6,N6:DIM M$(40):DL=DL+UI:H=INT(DL/256):L=DL-H*2561011 M$=&A}" ":GOSUB 19401020 M$=" ":POKE 560,L:POKE 561,H1030 COLOR UI:FOR A=N1 TO 88:PLOT 16,A:DRA&B}WTO 142,A:NEXT A1040 DIM X(N8),Y(N8):Z=UI:COLOR 0:FOR A=N1 TO 88 STEP 11:Y(Z)=A+N2:Z=Z+UI:PLOT N0,A:DRAWTO 142,A:DRAWTO 146,&C}A+4:NEXT A1050 Z=UI:FOR A=16 TO 142 STEP 16:X(Z)=A+N4:Z=Z+UI:PLOT A,UI:DRAWTO A,88:DRAWTO A+4,92:NEXT A1051 COLOR N0:PLOT 1&D}43,N1:DRAWTO 143,89:DRAWTO 0,891060 DIM BO(N9,N9)1070 FOR A=N0 TO N9:FOR B=N0 TO N9:BO(A,B)=N0:NEXT B:NEXT A1080 RESTORE 1&E}080:FOR A=N1 TO N4:READ B,C,D:BO(B,C)=D:NEXT A:GOSUB 1810:DATA 4,4,2,5,5,2,4,5,3,5,4,31090 GOSUB 1940:E=PEEK(711)1110 IF PE&F}EK(53279)=N6 THEN FOR A=53248 TO 53251:POKE A,N0:NEXT A:GOTO 11301120 GOTO 11101130 M$=" ϾŠ &G}":GOSUB 19401132 OPEN #UI,12,0,"K:":GET #UI,K:IF K=79 THEN PL1=1:GOSUB 21001140 M$=" <>Š lack first":&H}GOSUB 19401150 GET #UI,K:IF K=87 THEN TURN=UI:GOTO 11801160 IF K=66 THEN TURN=N2:GOTO 11801170 SOUND N0,255,10,15:POKE 537&I}68,UI:FOR D=UI TO 500:NEXT D:SOUND N0,N0,N0,N0:GOTO 11501180 MOVE=N4:M$=" ":GOSUB 1940:FOR&J} D=N1 TO 1000:NEXT D:NW=N2:NB=N21190 M$=" ":GOSUB 1940:FOR D=UI TO 500:NEXT D:DIM F$(10):F&K}$="black"1200 M$(1)=" ":M$(40)=" ":M$(2)=M$:XP=4:YP=4:M$=" ":M$(5)=F$(TURN*5-4,TURN*5):M$(10)="'S MOVE":M$(22)="BLAC&L}K:"1210 M$(28)=STR$(NB):M$(32)="WHITE:":M$(38)=STR$(NW):GOSUB 1940:DATA 243,1,121,41215 IF TURN=2 AND PL1 THEN GOSUB 2200:G&M}OSUB 1355:GOTO 13471220 RESTORE 1210:IF TURN=N2 THEN RESTORE 1220:DATA 121,1,243,41230 TG=N2:GOSUB 1700:CO=N8:GOSUB 1690:F=&N}N1:K=N11240 POKE 77,N0:Q=STICK(N0):IF (Q=10 OR Q=14 OR Q=N6) AND (YP>N1) THEN YP=YP-N11245 IF PEEK(764)=42 THEN 16001250 I&O}F (Q=10 OR Q=11 OR Q=N9) AND (XP>N1) THEN XP=XP-N11260 IF (Q=N6 OR Q=N7 OR Q=N5) AND (XP0&T} THEN RESTORE 1350:TG=3:GOSUB 1700:WW=1:RETURN :DATA 162,.5,144,.5,243,31355 IF DE=1 THEN DE=0:RETURN 1360 BO(XP,YP)=(N3-TU&U}RN)+1:B=XP:A=YP:MOVE=MOVE+11365 GOSUB 1820:GOSUB 1420:GOSUB 1450:GOSUB 15201380 IF TURN=N1 THEN NW=NW+N11390 IF TURN=N2 TH&V}EN NB=NB+N11400 IF TAKE<>1 THEN RETURN 1401 B=XP:A=Y4:M$="  FORFEITURE OF MOVE":GOSUB 1940:BO(B,A)=0:C=1&W}:CX=X(B):CY=Y(A)1402 GOSUB 1790:O2=N2:TG=N3:RESTORE 1402:GOSUB 1700:DATA 243,1,243,1,243,41403 FOR D=N1 TO 500:NEXT D:IF TU&X}RN=N1 THEN NW=NW-N11404 MOVE=MOVE-N1:IF TURN=N2 THEN NB=NB-N11405 RETURN 1420 FOR A=N1 TO N8:I(A)=N1:NEXT A:TAKE=N11430 F&Y}OR A=N1 TO N8:IF BO(XP+RX(A),Y4+RY(A))=N0 THEN I(A)=N01435 ZZ=I(A)+ZZ1440 NEXT A:RETURN 1450 FOR A=1 TO 8:IF I(A)=N0 THEN &Z}15101460 FOR B=1 TO 8:X2=XP+RX(A)*B:Y2=Y4+RY(A)*B1470 IF X2N8 OR Y2N8 THEN B=10:I(A)=N0:GOTO 15001480 &[}J=BO(X2,Y2):IF J=E THEN I(A)=B:ZZ=ZZ+B-1:B=10:GOTO 15001490 IF J=N0 THEN I(A)=N0:B=101500 NEXT B1510 NEXT A:RETURN 1520 F&\}OR U=N1 TO N8:IF I(U)&a}WH THEN Z=709:M$=" black"1660 GOSUB 19401670 FOR A=200 TO N0 STEP -4:FOR B=A TO A+50 STEP 12.5:POKE Z,B:SOUND N0,&b}B,10,15:NEXT B:NEXT A:SOUND N0,N0,N0,N01671 DATA 243,2,243,2,217,1,193,1,217,1,243,1,162,2,162,2,162,1,144,1,193,1,182,1,217&c},2,217,2,217,1,182,1,193,11672 DATA 217,1,243,81673 O2=N1:RESTORE 1671:TG=19:GOSUB 1700:FOR D=N1 TO 500:NEXT D:GOTO 167716&d}75 DATA 243,1,162,1,193,1,162,1,243,1,162,1,193,1,162,1,243,1,162,1,182,1,193,1,243,81676 O2=N1:TG=13:RESTORE 1675:GOSUB 170&e}0:FOR D=N1 TO 500:NEXT D1677 D=N1^N1^N1^N1^N1^N11678 GOSUB 1690:M$=" ":GOSUB 19401679 POK&f}E 53248,0:IF PEEK(53279)<>6 THEN 16791680 RUN 1690 PM$(N1)="":PM$(2048)="":PM$(2)=PM$:RETURN 1700 FOR A=N1 TO TG:READ B,&g}C:C=C*O2:G=14:FOR Q=N1 TO C:FOR D=N1 TO 4:SOUND 0,B,10,G:G=G-(G>0)1710 NEXT D:NEXT Q:NEXT A:RETURN 1720 DATA -1,-1,0,-1,1,-&h}1,-1,0,1,0,-1,1,0,1,1,11730 RESTORE 1720:DIM RX(8),RY(8),I(8):FOR A=N1 TO 8:READ B,C:RX(A)=B:RY(A)=C:NEXT A:RETURN 1760 DAT&i}A 204,1,217,1,230,4,114,41770 TG=21:GOSUB 17001780 RETURN 1790 COLOR C:FOR DR=N1 TO N6:PLOT CX,CY+DR:DRAWTO CX+N7,CY+DR:NE&j}XT DR:PLOT CX+N1,CY:DRAWTO CX+N6,CY1800 PLOT CX+N1,CY+N7:DRAWTO CX+N6,CY+N7:RETURN 1810 FOR A=N1 TO N8:FOR B=N1 TO N8:GOSUB&k} 1820:NEXT B:NEXT A:RETURN 1820 E=BO(B,A):LOCATE X(B)+N4,Y(A)+N4,F1830 IF F=N1 AND E>N1 THEN GOSUB 1900:RETURN 1840 IF F=E&l} OR (F=N1 AND E=N0) THEN RETURN 1850 GOSUB 1690:POKE 53249,X(B)+48:YP=Y(A)+20+P1:POKE 705,15*(F=N3):R=N41860 PM$(YP,YP+N7)=&m}CHIP$(R*N8-N7,R*N8):C=N1:CX=X(B):CY=Y(A):GOSUB 17901870 FOR R=N4 TO N1 STEP -N1:PM$(YP,YP+N7)=CHIP$(R*N8-N7,R*N8):SOUND N0,R&n}*10,10,D:NEXT R1880 GOSUB 19001890 RETURN 1900 GOSUB 1690:POKE 53249,X(B)+48:YP=Y(A)+20+P1:POKE 705,15*(E=N3)1910 FOR R=N&o}1 TO N4:PM$(YP,YP+N7)=CHIP$(R*N8-N7,R*N8):SOUND N0,R*10,12,N5:NEXT R1920 SOUND N0,N0,N0,N01930 C=E:CX=X(B):CY=Y(A):GOSUB 17&p}90:POKE 53249,0:RETURN 1940 POKE 87,N1:POSITION N0,N0:? #6;" ";:POSITION N0,N0:? #6;M&q}$;:POKE 87,N71941 RETURN 1950 DIM PM$(2048):PM=INT(ADR(PM$)/1024)*1024:IF PM0 THEN 22902220 ZZ=0:GOSUB 1420:IF ZZ=0 THEN 22902230 ZZ=0:GOSUB 1450:IF ZZ=0 THEN 22902240 TT=NW+&x}NB:QW=(TT/8)*(ZZ-1)+PT(XP,Y4)*((65-TT)/8)2250 IF QW>HI THEN HI=QW:H1=XP:H2=Y4:GOTO 22902265 IF HI=0 THEN 22902270 IF QW/HI&y}>0.8 AND QW/HI<1.2 THEN TR=INT(RND(1)*2)+12280 IF TR=1 THEN TR=0:HI=QW:H1=XP:H2=Y42290 ZZ=0:NEXT XP:NEXT Y42300 IF HI=-320&z}00 THEN TAKE=1:DE=1:M$="NO POSSIBLE MOVES.":GOSUB 1940:FOR I=1 TO 1000:NEXT I2310 IF (H1=1 OR H1=8) AND (H2=1 OR H2=8) THEN &{}GOSUB 23502320 XP=H1:YP=H2:Y4=H2:RETURN 2350 IF H1=1 AND H2=1 THEN 24502360 IF H1=1 AND H2=8 THEN 25002370 IF H1=8 AND H2&|}=1 THEN 25502380 FOR I=3 TO 8:PT(I,7)=I-3:NEXT I2390 FOR I=3 TO 8:PT(7,I)=I-3:NEXT I2400 RETURN 2450 FOR I=1 TO 6:PT(2,I)&}}=6-I:NEXT I2460 FOR I=1 TO 6:PT(I,2)=6-I:NEXT I2470 RETURN 2500 FOR I=1 TO 6:PT(I,7)=6-I:NEXT I2510 FOR I=3 TO 8:PT(7,I)=&~}I-3:NEXT I2520 RETURN 2550 FOR I=3 TO 8:PT(I,2)=I-3:NEXT I2560 FOR I=1 TO 6:PT(7,I)=6-I:NEXT I2570 RETURN TO 8:PT(7,I)=$o10 REM EEN REKEN SPEL VOOR15 REM KLEINE KINDEREN20 REM HET KIJKT OF HET GOED IS25 REM OF FOUT HET WERKT MET30 REM OPTELLE*}N AFTREKKEN35 REM VERMENIGVULDIGEN40 REM GEMAAKT DOOR50 REM M.H VAN HARN55 REM IN AUGUSTUS 198670 ? "}":DIM A$(2)75 GOE*}D=0:FOUT=080 ? "hoeveel opgaven wilt je":INPUT T90 FOR BEURT=1 TO T100 GRAPHICS 2105 POSITION 2,0:? #6;GOED;" GOED ";FO*}UT;" FOUT"110 ? "geef het juiste antwoord"120 ? "en druk op return"150 A=INT(RND(1)*3)160 IF A=0 THEN A$="+"170 IF A=1 T*}HEN A$="-"180 IF A=2 THEN A$="*"190 X=INT(RND(1)*10)+1200 Y=INT(RND(1)*10)+1220 POSITION 5,5:PRINT #6;X;" ";A$;" ";Y;" = *}";230 INPUT Z240 POSITION 13,5:PRINT #6;Z250 IF A=0 THEN U=X+Y260 IF A=1 THEN U=X-Y270 IF A=2 THEN U=X*Y280 IF U=Z THEN*} GOTO 400300 REM FOUT MELDING310 POSITION 3,7:PRINT #6;"fout antwoord"315 FOR WACHT=1 TO 500:NEXT WACHT320 POSITION 3,7:P*}RINT #6;"het moet zijn"330 POSITION 13,5:PRINT #6;U;" "340 FOR WACHT=1 TO 1000:NEXT WACHT350 FOUT=FOUT+1380 NEXT BEURT3*}90 GOTO 500400 REM GOEDMELDING410 POSITION 3,7:PRINT #6;" goed gedaan "420 FOR WACHT=1 TO 1000:NEXT WACHT430 GOED=GOED+1*}490 NEXT BEURT500 POSITION 2,0:PRINT #6;GOED;" GOED ";FOUT;" FOUT"510 END R WACHT=1 TO 1000:NEXT WACHT430 GOED=GOED+1(P32000 CLR :GRAPHICS 0:STMTAB=PEEK(136)+PEEK(137)*256:POKE 82,2:POKE 83,39:DIM L$(114)32001 LINE=PEEK(STMTAB)+PEEK(STMTAB+1)*.}25632002 IF LINE=32000 THEN 3201532003 PRINT CHR$(125):POSITION 2,6:LIST LINE32004 LOCATE 3+LEN(STR$(LINE)),7,A:LOCATE 4+L.}EN(STR$(LINE)),7,B:LOCATE 5+LEN(STR$(LINE)),7,C32005 IF A=82 AND B=69 AND C=77 THEN 3200932006 L=1:FOR X=7 TO 9:FOR Y=2 TO .}39:LOCATE Y,X,M:L$(L)=CHR$(M):L=L+1:NEXT Y:NEXT X32007 FOR X=1 TO 110:IF L$(X,X+3)=":REM" THEN 3201232008 NEXT X:STMTAB=STM.}TAB+PEEK(STMTAB+2):GOTO 3200132009 PRINT CHR$(125):POSITION 2,6:PRINT LINE32010 POSITION 0,0:POKE 842,13:POSITION 2,7:PRINT.} "CONT":POSITION 2,4:STOP 32011 POKE 842,12:GOTO 3200132012 PRINT CHR$(125):POSITION 2,6:PRINT L$(1,X-1):PRINT "CONT"32013.} POSITION 0,0:POKE 842,13:POSITION 2,4:STOP 32014 POKE 842,12:STMTAB=STMTAB+PEEK(STMTAB+2):GOTO 3200132015 PRINT CHR$(125):.}POSITION 2,6:FOR X=32000 TO 32016:PRINT X:NEXT X:PRINT "PRINT CHR$(125):POKE 842,12:END"32016 POKE 842,13:POSITION 2,2:STOP .}OSITION 2,6:FOR X=32000 TO 32016:PRINT X:NEXT X:PRINT "PRINT CHR$(125):POKE 842,12:END"32016 POKE 842,13:POSITION 2,2:STOP ,32100 REM RENUMBER PLUS32110 ? "}":T8=256:I=1:Z=3210032120 WM=0:X=PEEK(138)+PEEK(139)*T8:Y=PEEK(134)+PEEK(135)*T8+8*(PEEK(X2}+5)-128)+232130 ? "oud begin,nieuw begin,regel afstand":INPUT ST,FR,BY:? CHR$(125)32140 B=PEEK(136)+PEEK(137)*T8:X=B:M=FR32}2142 LN=PEEK(X)+PEEK(X+I)*T832144 IF ST>FR AND LN-ST THEN ST=LN32150 LN=PEEK(X)+PEEK(X+I)*T8:SOUND 0,LN,10,832160 IF LN=Z 2}THEN 3222032170 PL=PEEK(X+2):C=X+332180 LL=PEEK(C):C=C+I32190 GOSUB 3228032200 IF LL=ST):GOTO 3215032220 M=FR:X=B:SOUND 1,0,0,032230 LN=PEEK(X)+PEEK(X+I)*T8:SOUND 0,-LN+32768,10,832240 IF LN=Z2} THEN 3255032245 IF LN=ST):X=X+PEE2}K(X+2):GOTO 3223032280 TK=PEEK(C)32290 IF TK=10 OR TK=11 OR TK=12 OR TK=13 OR TK=35 THEN C=C+I:GOSUB 32450:RETURN 32300 IF2} TK<>30 THEN 3234532310 C=C+I:D=PEEK(C)32320 IF D=23 OR D=24 THEN 3235032330 IF D=14 THEN C=C+632335 IF D=15 THEN C=C+PEE2}K(C+I)+I32340 GOTO 3231032345 IF TK<>4 THEN 3238032350 C=C+I:GOSUB 3245032355 D=PEEK(C)32360 IF D=18 THEN 3235032362 IF2} D=14 THEN C=C+PEEK(C+I)+I32366 IF D<>20 AND D<>22 THEN C=C+I:GOTO 3235532370 RETURN 32380 IF TK<>7 THEN RETURN 32390 C=C2}+I:D=PEEK(C)32400 IF D=27 THEN 3243032410 IF D=14 THEN C=C+632415 IF D=15 THEN C=C+PEEK(C+I)+I32420 GOTO 3239032430 C=C+2}I:IF C<(X+LL) THEN GOSUB 3245032440 RETURN 32450 D=PEEK(C):IF D=20 OR D=22 THEN C=C+I:RETURN 32460 IF D<>14 THEN ? M;" SR,2}";:C=C+I:RETURN 32465 DD=PEEK(C+7):IF DD<>18 AND DD<>20 AND DD<>22 THEN ? M;" SR,";:C=C+I:RETURN 32470 C=C+I:FOR J=0 TO 3:P2}OKE Y+J,PEEK(C+J):NEXT J32480 IF WM=ST):WX=WX+PEEK(WX+2):GOTO 3250032520 IF WN<>WM THEN ? M;" NF,";:GOTO 325402}32525 IF WNN1) THEN YP=YP-N112456} IF PEEK(764)=42 THEN 16001250 IF (Q=10 OR Q=11 OR Q=N9) AND (XP>N1) THEN XP=XP-N11260 IF (Q=N6 OR Q=N7 OR Q=N5) AND (XP0 THEN RESTORE 1350:TG=3:GOSUB 1700:WW=1:RETURN :DATA 162,.5,144,.5,243,31355 IF DE=1 THEN D6}E=0:RETURN 1360 BO(XP,YP)=(N3-TURN)+1:B=XP:A=YP:MOVE=MOVE+11365 GOSUB 1820:GOSUB 1420:GOSUB 1450:GOSUB 15201380 IF TURN=N16} THEN NW=NW+N11390 IF TURN=N2 THEN NB=NB+N11400 IF TAKE<>1 THEN RETURN 1401 B=XP:A=Y4:M$="  FORFEITURE 6}OF MOVE":GOSUB 1940:BO(B,A)=0:C=1:CX=X(B):CY=Y(A)1402 GOSUB 1790:O2=N2:TG=N3:RESTORE 1402:GOSUB 1700:DATA 243,1,243,1,243,46}1403 FOR D=N1 TO 500:NEXT D:IF TURN=N1 THEN NW=NW-N11404 MOVE=MOVE-N1:IF TURN=N2 THEN NB=NB-N11405 RETURN 1420 FOR A=N1 TO6} N8:I(A)=N1:NEXT A:TAKE=N11430 FOR A=N1 TO N8:IF BO(XP+RX(A),Y4+RY(A))=N0 THEN I(A)=N01435 ZZ=I(A)+ZZ1440 NEXT A:RETURN 16}450 FOR A=1 TO 8:IF I(A)=N0 THEN 15101460 FOR B=1 TO 8:X2=XP+RX(A)*B:Y2=Y4+RY(A)*B1470 IF X2N8 OR Y2N8 6}THEN B=10:I(A)=N0:GOTO 15001480 J=BO(X2,Y2):IF J=E THEN I(A)=B:ZZ=ZZ+B-1:B=10:GOTO 15001490 IF J=N0 THEN I(A)=N0:B=101500 6}NEXT B1510 NEXT A:RETURN 1520 FOR U=N1 TO N8:IF I(U)WH THEN Z=709:M$=" black "1660 GOSUB 19401670 FOR A=200 TO N0 STEP -4:FOR B=A TO 6}A+50 STEP 12.5:POKE Z,B:SOUND 0,B,10,15:NEXT B:NEXT A:SOUND 0,0,0,01671 DATA 243,2,243,2,217,1,193,1,217,1,243,1,162,2,162,26},162,1,144,1,193,1,182,1,217,2,217,2,217,1,182,1,193,11672 DATA 217,1,243,81673 O2=N1:RESTORE 1671:TG=19:GOSUB 1700:FOR D=N6}1 TO 500:NEXT D:GOTO 16771675 DATA 243,1,162,1,193,1,162,1,243,1,162,1,193,1,162,1,243,1,162,1,182,1,193,1,243,81676 O2=N1:6}TG=13:RESTORE 1675:GOSUB 1700:FOR D=N1 TO 500:NEXT D1677 D=N1^N1^N1^N1^N1^N11678 GOSUB 1690:M$=" 6} ":GOSUB 19401679 POKE 53248,0:IF PEEK(53279)<>6 THEN 16791680 RUN 1690 PM$(N1)="":PM$(2048)="":PM$(2)=PM$:RETURN 6}1700 FOR A=N1 TO TG:READ B,C:C=C*O2:G=14:FOR Q=N1 TO C:FOR D=N1 TO 4:SOUND 0,B,10,G:G=G-(G>0)1710 NEXT D:NEXT Q:NEXT A:RETU6}RN 1720 DATA -1,-1,0,-1,1,-1,-1,0,1,0,-1,1,0,1,1,11730 RESTORE 1720:DIM RX(8),RY(8),I(8):FOR A=N1 TO 8:READ B,C:RX(A)=B:RY(6}A)=C:NEXT A:RETURN 1760 DATA 204,1,217,1,230,4,114,41770 TG=21:GOSUB 17001780 RETURN 1790 COLOR C:FOR DR=N1 TO N6:PLOT CX6},CY+DR:DRAWTO CX+N7,CY+DR:NEXT DR:PLOT CX+N1,CY:DRAWTO CX+N6,CY1800 PLOT CX+N1,CY+N7:DRAWTO CX+N6,CY+N7:RETURN 1810 FOR A=N6}1 TO N8:FOR B=N1 TO N8:GOSUB 1820:NEXT B:NEXT A:RETURN 1820 E=BO(B,A):LOCATE X(B)+N4,Y(A)+N4,F1830 IF F=N1 AND E>N1 THEN GO6}SUB 1900:RETURN 1840 IF F=E OR (F=N1 AND E=N0) THEN RETURN 1850 GOSUB 1690:POKE 53249,X(B)+48:YP=Y(A)+20+P1:POKE 705,15*(F=6}N3):R=N41860 PM$(YP,YP+N7)=CHIP$(R*N8-N7,R*N8):C=N1:CX=X(B):CY=Y(A):GOSUB 17901870 FOR R=N4 TO N1 STEP -N1:PM$(YP,YP+N7)=CH6}IP$(R*N8-N7,R*N8):SOUND N0,R*10,10,D:NEXT R1880 GOSUB 19001890 RETURN 1900 GOSUB 1690:POKE 53249,X(B)+48:YP=Y(A)+20+P1:POK6}E 705,15*(E=N3)1910 FOR R=N1 TO N4:PM$(YP,YP+N7)=CHIP$(R*N8-N7,R*N8):SOUND N0,R*10,12,N5:NEXT R1920 SOUND N0,N0,N0,N01930 6}C=E:CX=X(B):CY=Y(A):GOSUB 1790:POKE 53249,0:RETURN 1940 POKE 87,N1:POSITION 0,0:? #6;" 6} ";:POSITION 0,0:? #6;M$;:POKE 87,N71941 RETURN 1950 DIM PM$(2048):PM=INT(ADR(PM$)/1024)*1024:IF PM0 THEN 22902220 ZZ=0:GOSUB 1420:IF ZZ=0 THEN 22902230 ZZ=0:GOSUB 1450:IF ZZ=6}0 THEN 22902240 TT=NW+NB:QW=(TT/8)*(ZZ-1)+PT(XP,Y4)*((65-TT)/8)2250 IF QW>HI THEN HI=QW:H1=XP:H2=Y4:GOTO 22902265 IF HI=0 6}THEN 22902270 IF QW/HI>0.8 AND QW/HI<1.2 THEN TR=INT(RND(1)*2)+12280 IF TR=1 THEN TR=0:HI=QW:H1=XP:H2=Y42290 ZZ=0:NEXT XP:6}NEXT Y42300 IF HI=-32000 THEN TAKE=1:DE=1:M$="NO POSSIBLE MOVES.":GOSUB 1940:FOR I=1 TO 1000:NEXT I2310 IF (H1=1 OR H1=8) A6}ND (H2=1 OR H2=8) THEN GOSUB 23502320 XP=H1:YP=H2:Y4=H2:RETURN 2350 IF H1=1 AND H2=1 THEN 24502360 IF H1=1 AND H2=8 THEN 26}5002370 IF H1=8 AND H2=1 THEN 25502380 FOR I=3 TO 8:PT(I,7)=I-3:NEXT I2390 FOR I=3 TO 8:PT(7,I)=I-3:NEXT I2400 RETURN 246}50 FOR I=1 TO 6:PT(2,I)=6-I:NEXT I2460 FOR I=1 TO 6:PT(I,2)=6-I:NEXT I2470 RETURN 2500 FOR I=1 TO 6:PT(I,7)=6-I:NEXT I2516}0 FOR I=3 TO 8:PT(7,I)=I-3:NEXT I2520 RETURN 2550 FOR I=3 TO 8:PT(I,2)=I-3:NEXT I2560 FOR I=1 TO 6:PT(7,I)=6-I:NEXT I25706} RETURN TO 8:PT(7,I)=I-3:NEXT I2520 RETURN 2550 FOR I=3 TO 8:PT(I,2)=I-3:NEXT I2560 FOR I=1 TO 6:PT(7,I)=6-I:NEXT I25704 0 REM ******* REVERSI ********1 REM ****** (OTHELLO) *******10 N0=0:N1=1:GOSUB 6000:DIM A(10,10)20 FOR A=N1 TO 10:FOR B=N1:} TO 10:IF A<>N1 AND B<>N1 AND A<>10 AND B<>10 THEN A(A,B)=161:NEXT B:NEXT A30 A(A,B)=131:NEXT B:NEXT A40 CP=4:HP=36:SD=131::}BL=161:HX=5:HY=550 A(5,5)=CP:A(6,6)=CP:A(5,6)=HP:A(6,5)=HP:P=0:R=33150 GOSUB 3000:IF W=N0 THEN GOTO 2000999 REM COMPUTER T:}URN1000 POKE 77,N0:POSITION 1,11:? #6;" ٠"1010 S=HP:T=CP:H=01020 FOR A=2 TO 9:FOR B=2 TO 9:IF A(A,B)<>BL T:}HEN 11701030 Q=0:FOR C=-1 TO 1:FOR D=-1 TO 1:K=0:F=A:G=B1040 IF A(F+C,G+D)<>S THEN 10601050 K=K+1:F=F+C:G=G+D:GOTO 104010:}60 IF A(F+C,G+D)<>T THEN 10801070 Q=Q+K1080 NEXT D:NEXT C1090 IF A=2 OR A=9 THEN Q=Q*21100 IF B=2 OR B=9 THEN Q=Q*21110 :}IF A=3 OR A=8 THEN Q=Q/21120 IF B=3 OR B=8 THEN Q=Q/21130 IF (A=2 OR A=9) AND (B=3 OR B=8) THEN Q=Q/21140 IF (A=3 OR A=8) :}AND (B=2 OR B=9) THEN Q=Q/21150 IF Q0.3 AND Q=H) THEN 11701160 H=Q:M=A:N=B:HX=A-1:HY=B-11170 NEXT B:N:}EXT A1180 IF H=0 AND R=0 THEN 50001190 IF H=0 THEN 12101200 GOSUB 40001210 Z=TP:GOSUB 3000:IF Z=TP THEN 50001999 REM PLA:}YERS TURN2000 POKE 77,0:POSITION 1,11:? #6;"ҠΠ":GOSUB 85002010 GOSUB 8000:IF L=0 THEN GOSUB 8500:GOTO 2010:}2020 S=CP:T=HP2030 GOSUB 40002040 GOSUB 30002050 GOTO 10002999 REM ADD UP PIECES3000 C=0:H=03010 FOR B=2 TO 9:FOR A=2 T:}O 9:POSITION 4+A,B-1:? #6;CHR$(A(A,B));:C=C+(A(A,B)=CP):H=H+(A(A,B)=HP):TP=C+H3020 NEXT A:NEXT B3030 POSITION 9,10:? #6;H;":} ":POSITION 18,10:? #6;C;" "3040 IF C+H>=64 THEN POP :GOTO 50003050 RETURN 3999 REM PLACE PIECES ON BOARD4000 FOR C=-1 TO:} 1:FOR D=-1 TO 1:F=M:G=N4010 IF A(F+C,G+D)<>S THEN 40304020 F=F+C:G=G+D:GOTO 40104030 IF A(F+C,G+D)<>T THEN 40604040 A(F,:}G)=T:IF M=F AND N=G THEN 40604050 F=F-C:G=G-D:GOTO 40404060 NEXT D:NEXT C4070 RETURN 4999 REM GAME OVER5000 H=0:C=0:FOR :}B=2 TO 9:FOR A=2 TO 9:H=H+(A(B,A)=HP):C=C+(A(B,A)=CP)5010 NEXT A:NEXT B5020 POSITION 9,10:? #6;H;" ";:POSITION 18,10:? #6;C:};" ";5030 X=INT(H/(C+H)*100+0.5):POSITION 1,11:? #6;" your pieces ";X;"%";" ";5040 POSITION 1,2:? #6;"GAME":POSITION 1,4::}? #6;"OVER"5050 POSITION 15,2:? #6;"press":POSITION 15,4:? #6;"start"5060 IF PEEK(53279)<>6 THEN 50605070 PF=1:GOSUB 6100::}GOTO 205999 REM INITIALIZATION6000 RT=PEEK(740)-4:POKE 106,RT-2:GRAPHICS 18:POKE 756,RT:RT=RT*256:DIM SD$(10),BD$(10)6010 :}POSITION 7,4:? #6;"reversi":POSITION 1,6:? #6;"WRITTEN BY G. RYAN":FOR A=1 TO 10:SD$(A)=CHR$(131)6020 BD$(A)=CHR$(161):NEXT :}A:FOR A=RT TO RT+7:POKE A,0:NEXT A6030 FOR A=40 TO 47:POKE RT+A,PEEK(57344+A):NEXT A6040 FOR A=112 TO 511:POKE RT+A,PEEK(57:}344+A):NEXT A:RESTORE 60606050 READ I:IF I<>-1 THEN FOR A=I TO I+7:READ D:POKE RT+A,D:NEXT A:GOTO 60506060 DATA 32,0,60,126:},126,126,126,60,06070 DATA 8,0,126,126,126,126,126,126,06080 DATA 24,170,85,170,85,170,85,170,856090 DATA 72,255,129,129,1:}29,129,129,129,2556100 DATA 96,255,195,129,129,129,129,129,255,-16110 PUT #6,125:POSITION 5,0:? #6;SD$:POKE 708,126:POKE 70:}9,56:POKE 710,164:POKE 711,706120 POSITION 5,9:? #6;SD$:FOR A=1 TO 8:POSITION 5,A:? #6;SD$(10);BD$(3);SD$(10):NEXT A6130 PO:}SITION 1,10:? #6;"you own 0":POSITION 12,10:? #6;"i own 0"6140 POSITION 1,11:? #6;"select:COMP GO 1ST";:W=16150 IF PEEK(532:}79)=5 THEN 61806160 IF PEEK(53279)=6 THEN 62206170 GOTO 61506180 W=(W=0):IF W THEN POSITION 8,11:? #6;"COMP GO 1ST";:GOTO :}62006190 POSITION 8,11:? #6;" YOU GO 1ST";6200 IF PEEK(53279)<>7 THEN 62006210 GOTO 61506220 POSITION 1,11:? #6;" ;} ";:RETURN 7999 REM INPUT PLAYERS MOVE WITH JOYSTICK8000 LOCATE 5+HX,HY,CH:HH=HX:HV=HY8010 COLOR CH+8:PLOT 5+HX,H;}Y:ST=STICK(0):IF STRIG(0)=0 THEN 80508015 IF PEEK(53279)=1 THEN POP :COLOR CH:PLOT HX+5,HY:GOTO 50008020 HX=HX+PTRIG(0)-PTR;}IG(1):HY=HY+(ST=13 OR ST=5 OR ST=9)-(ST=14 OR ST=10 OR ST=6)8030 HX=HX+(HX<1)-(HX>8):HY=HY+(HY<1)-(HY>8):IF HX<>HH OR HY<>HV;} THEN COLOR CH:PLOT 5+HH,HV:GOTO 80008040 GOTO 80108050 IF CH<>161 THEN GOSUB 8500:GOTO 80108060 COLOR CH:PLOT 5+HH,HV807;}0 M=HX+1:N=HY+1:L=0:X=HX+5:Y=HY8080 FOR A=-1 TO 1:FOR B=-1 TO 18090 LOCATE X+A,Y+B,C:IF C=4 THEN 81508100 NEXT B:NEXT A:RE;}TURN 8150 H=X+A+A:V=Y+B+B8160 LOCATE H,V,Z:IF Z=HP THEN L=1:POP :POP :RETURN 8170 IF Z=131 OR Z=161 THEN 81008180 H=H+A:V;}=V+B:GOTO 81608500 SOUND 0,15,12,4:FOR Z=N1 TO 20:NEXT Z8510 IF STRIG(0)=0 THEN 85108520 SOUND 0,0,0,0:RETURN 180 H=H+A:V8r0 DIM A$(10)1 GRAPHICS 8+1610 OPEN #1,4,0,"D:PICTURE"20 X=1630 ICCOM=834:ICBADR=836:ICBLEN=84040 POKE ICBADR+X+1,PEEK(89?}):POKE ICBADR+X,PEEK(88)50 POKE ICBLEN+X+1,31:POKE ICBLEN+X,060 POKE ICCOM+X,7:A=USR(ADR("hhhLV"),X)70 CLR 80 GOSUB 200? }00100 END 20000 SCREEN=PEEK(88)+256*PEEK(89):IOCB=2:IF OFFSET>160 OR OFFSET<0 THEN OFFSET=020010 ON PEEK(1570)=6 GOTO 2002? }0:RESTORE 20040:FOR I=0 TO 171:READ A:POKE 1536+I,A:NEXT I20020 FOR PR=0 TO 27:CLOSE #IOCB:OPEN #IOCB,8,0,"P:":? #IOCB;CHR$(? }27);"9";CHR$(27);"A";CHR$(1);CHR$(64+OFFSET);20025 ON OFFSET=0 GOTO 20030:FOR I=1 TO OFFSET:? #IOCB;CHR$(0);:NEXT I20030 DU? }MMY=USR(1536,IOCB,SCREEN):SCREEN=SCREEN+280:NEXT PR:RETURN 20040 DATA 104,104,104,10,10,10,10,141,182,6,104,141,173,6,10420? }050 DATA 141,172,6,169,0,141,183,6,32,54,6,24,173,94,6,105,1,141,172,6,17320060 DATA 95,6,105,0,141,173,6,238,183,6,173,183,?}6,201,40,208,226,96,162,0,2420070 DATA 173,173,6,157,95,6,173,172,6,157,94,6,105,40,141,172,6,173,173,6,10520080 DATA 0,141?},173,6,24,138,105,6,170,224,37,144,221,162,0,14,255,255,62,174,620090 DATA 14,255,255,62,174,6,14,255,255,62,174,6,14,255,25?}5,62,174,6,14,255,25520100 DATA 62,174,6,14,255,255,62,174,6,14,255,255,62,174,6,232,224,8,208,209,17420110 DATA 182,6,169,?}11,157,66,3,169,174,157,68,3,169,6,157,69,3,169,0,157,7320120 DATA 3,169,8,157,72,3,32,86,228,969,17420110 DATA 182,6,169,<b1 REM SENSO10 DIM A(100):GOTO 300020 GRAPHICS 1030 COLOR 740 SETCOLOR 3,2,650 FOR X=0 TO 79 STEP 2:PLOT 39,96:DRAWTO X,0C}:NEXT X60 COLOR 570 SETCOLOR 1,12,680 FOR Y=0 TO 191 STEP 4:PLOT 39,95:DRAWTO 0,Y:NEXT Y90 COLOR 6100 SETCOLOR 2,9,6110C} FOR Y=0 TO 191 STEP 4:PLOT 39,95:DRAWTO 79,Y:NEXT Y120 COLOR 4130 SETCOLOR 0,3,2140 FOR X=0 TO 79 STEP 2:PLOT 39,96:DRAWTC}O X,191:NEXT X150 REM HOOFDPROGRAMMA160 FOR B=100 TO 0 STEP -1:A(B)=0:NEXT B:SC=0:B=0:GOTO 180170 GOSUB 2000180 D=INT(RNDC}(0)*4)+1190 B=B+1200 IF A(B)>0 THEN GOSUB 230:GOTO 190210 A(B)=D:GOSUB 230:SC=B220 GOTO 170230 ON A(B) GOSUB 1000,1060,1C}120,1180240 SOUND 1,0,0,0250 RETURN 1000 REM OPLICHTEN ORANJE1010 SOUND 1,60,10,91020 SETCOLOR 3,15,101030 FOR I=0 TO LC}:NEXT I1040 SETCOLOR 3,2,61050 RETURN 1060 REM OPLICHTEN GROEN1070 SOUND 1,100,10,91080 SETCOLOR 1,12,121090 FOR I=0 TOC} L:NEXT I1100 SETCOLOR 1,12,61110 RETURN 1120 REM OPLICHTEN BLAUW1130 SOUND 1,140,10,91140 SETCOLOR 2,9,101150 FOR I=0 C}TO L:NEXT I1160 SETCOLOR 2,9,51170 RETURN 1180 REM OPLICHTEN ROOD1190 SOUND 1,200,10,91200 SETCOLOR 0,3,81210 FOR I=0 TC}O L:NEXT I1220 SETCOLOR 0,3,41230 RETURN 2000 IF SC=0 THEN RETURN 2010 FOR B=1 TO SC2020 IF STICK(0)<>15 THEN 20202030 C}JOY=STICK(0):IF JOY=15 THEN 20302040 IF JOY=14 THEN F=12050 IF JOY=11 THEN F=22060 IF JOY=7 THEN F=32070 IF JOY=13 THEN FC}=42080 IF A(B)<>F THEN 22222090 GOSUB 2302100 NEXT B2110 GOSUB 2260:B=0:RETURN 2222 SOUND 3,41,6,13:A(B)=F2230 GOSUB 23C}02240 SOUND 3,0,0,02250 GOTO 30002260 FOR I=0 TO 300:NEXT I2270 RETURN 3000 GRAPHICS 23010 POSITION 5,0:? #6;"S E N S OC}"3020 POSITION 5,0.5:? #6;"========="3030 POSITION 0.5,4:? #6;"MOEILIJKHEIDSGRAAD"3040 POKE 710,03050 ? "WANNER JE EEN SPC }ELUITLEG NODIG HEB BEWEEG DAN DE JOYSTICK NAAR LINKS OF RECHTS."3060 IF SC>0 THEN GOSUB 40003070 W=33080 S=PEEK(53279)C!}:ST=STRIG(0):JOY=STICK(0)3090 IF S=6 OR ST=0 THEN L=(((W^2)-W+1)*20)+10:GOTO 203100 IF S=5 OR JOY=14 THEN W=W+1:IF W>3 THENC"} W=13110 IF JOY=13 THEN W=W-1:IF W=0 THEN W=33120 IF JOY=7 OR JOY=11 THEN 50003130 POSITION 7,73140 ON W GOSUB 3300,3400,C#}35003150 FOR I=0 TO 30:NEXT I:GOTO 30803300 ? #6;" ":RETURN 3400 ? #6;"MIDDEL":RETURN 3500 ? #6;"licht ":RETURN 400C$}0 ? " YOUR SCORE = ";SC-14010 IF SC>HI THEN HI=SC4020 ? :? " HIGHSCORE = ";HI-1:RETURN 5000 GRAPHICS 1+165010 ? #6:? C%}#6;"VERANDER MET SELECT OF MET DE JOYSTICK DE "5020 ? #6:? #6;" moeilijkheidsgraad"5030 ? #6:? #6;"DRUK OP START OF OP DE C&}FIREBUTTON OM TE BEGINNEN"5040 ? #6:? #6:? #6;"DOE DE KLEUREN VOLGORDE NA DIE DE COMPUTER LAAT ZIEN"5050 ? #6:? #6;"NC'}A IEDERE KEER KOMT ER EEN NIEUWE veel plezier"5060 FOR I=0 TO 2000:NEXT I5C(}070 GOTO 3000KOMT ER EEN NIEUWE veel plezier"5060 FOR I=0 TO 2000:NEXT I5@600 REM DIT PROGRAMMA MAAKT HET OBJECT FILE.610 DIM A$(100)620 TRAP 900630 RESTORE 640 REM OPEN THE FILE FOR OUT-PUT OR AG*}PPEND650 REM THIS LINE WILL BE REPLACED BY THE PROPER OPEN COMMAND660 READ A$:FOR X=1 TO 50670 A=ASC(A$((X*2)-1)):B=ASC(A$G+}(X*2))680 HI=(A-48)-(A>64)*7:LO=(B-48)-(B>64)*7:BYTE=LO+HI*16690 PUT #1,BYTE:NEXT X700 GOTO 660900 CLOSE #1:END 650 OPENG,} #1, 8,0,"D8:SIMULAT.COM"1000 DATA FFFF0040765BA98DEAEAEA209D40202449207C514C00402039FBA9078525A940A08820D74220E842G-}B019A940A04320D742201010 DATA E842B0D52058FC20EA03A940A07C4CD742204A414C08408D8DD7CFD5CCC4A0D9CFD5A0CCC9CBC5A0D4CFA0D3D4C5D0G.}A0D4C81020 DATA D2CFD5C7C8A0C1CECFD4C8C5D28DD0D2CFC7D2C1CDA0A8D9AFCEA9BFA0008D84D2D5CEC8C5CCCCCF8D008DC3C8C1CEC7C5A01030 DAG/}TA D0C3A0A8D9AFCEA9BFA000000020034320D240EAEAEAEAEAEAEAEAEAEAA9018554A941A06620D7424CDD408400860120C7401040 DATA A601A40060AG0}AAD07E448AD06E4488A60A9008DC502A92A8DC60260A941A09A20D74220B342A000B90000990020B9000199001050 DATA 2188D0F1A5F0853CA5F1853D6G1}0000000000000000000000000000000000000000000000000000000000000000000000000001060 DATA 000000000000000000000000000000000000000G2}000000000000000000000000000000000A941A09A20D74220B342A000B9001070 DATA 00990020B9000199002188D0F1607F2020A0D4C8C5A0B6B5B0B2AG3}0D3C9CDD5CCC1D4CFD2A09B9B7F417461726920566572731080 DATA 696F6E20627920452E5265757373009B9B9B4154205748415420414452455353204G4}44F20594F552057414E5420544F9B42451090 DATA 47494E2054524143494E47203F2024000400000057000000000000000000000000000000000000000G5}00000000000000000001100 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000G6}000001110 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001120 DATG7}A 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001130 DATA 000000000000G8}000000000000000000000000000000000000000000000000000000000000000000EAEAEAEAEAEAEAEAA900851140 DATA F085F185FE202D43A200BDCC41G9}0A0A0A0AA0032A26F026F18810F8E8E4FE90EA6084FE85FFA000B1FEF00620BB40C8D0F6601150 DATA AD25E448AD24E448600000000000000000000000G:}00000000000000AD01E448AD00E44860EAEAEAEAEAEAEAEAEA68C9D960A01160 DATA 1D84FCA92099B8418810FAA90085FE85FF246820E84248C99BF034G;}C97EF025C93090EFC947B0EBC93A9006E907C93A90E1291170 DATA 0FA6FEE004B0DA9DCC416820BB40E6FED0CFA6FEF0CA20BB40C6FE10C368A6FEF0BFG<}4CBB40000000000000000000000000001180 DATA 000000000000000000000000000021008E8C438C8D4348297F38E920904485DEA000B1E885E5C8B1E8G=}85E785DFA900A2070A1190 DATA 26D506DF90071865DE9002E6D5CA10EF1865E89002E6D518690485D4A5E965D585D520B244200F4468AC8D43AE8C4360G>}38E91200 DATA E890F3C906B0EF0AAAA94348A9D748BDFB4348BDFA43486031440E444F44674473440544A90085E085E14C5044A002A5E0181210 DATAG?} 71E885E09002E6E1A5E1F02FA5E01865E5C9199026A90085E185E04C5044A002A5E038F1E885E0B012C6E1100EA90185E1A91220 DATA 1885E02068444G@}C324460A003A5E21871E885E2B00865E7B004C9C190ECA90085E260A003A5E238F1E890F285E260A908852B1230 DATA A900852A20994420D240A558186GA}92385D6A55938E90285D760EAEAEAEAEAEAEAEAAD11E448AD10E44860EAEAEA00081020401240 DATA 80000050A0050416A0008CAF4484D184D0A5E0A6EGB}1F007A21086D038E980A204DDA6440826D1289003FDA644CA10F149FF181250 DATA 69088D2B456909E5E58DB044A5D11865D08DB144A5E285D3208244AGC}4D3A5D618692885D69002E6D788D0F2A5D6186DB144851260 DATA D0A5D7690085D1EAEAEAEAACAF44B1D485D2A000B1D0AC2B45A6E5B850002A2A2A2A2GD}A2A2A2ACA300206D22A8810F7EAC8911270 DATA D0CA3012C8B1D02A06D2CA10FAAEB0442ACA10FC91D0E6D3EEAF44ADAF44C5E7D092600508060900000GE}000000000002020201280 DATA 202000200050505000000000005050F850F85050002070A07028702000C0C810204098180040A0A040A89068001020400GF}0001290 DATA 0000001020202020201000402020202020400020A8702070A82000002020F8202000000000000000002040000000F80000001300 DATA GG}0000000000000020000008102040800000708898A8C88870002060A0202020F800708808106080F8007088083008887000101310 DATA 305090F8101000GH}F880F00808887000708880F088887000F808081020202000708888708888700070888878088870000000001320 DATA 2000002000000000200000204010GI}204080402010000000F80000F8000040201008102040007088083020002000708898A8901330 DATA 807800708888F888888800F08888F08888F0007088GJ}808080887000F08888888888F000F88080E08080F800F88080E08080801340 DATA 007088809888887000888888F888888800F82020202020F800381010GK}10109060008890A0C0A0908800808080808080F800881350 DATA D8A8888888880088C8A898888888007088888888887000F08888F08080800070888888GL}A8906800F08888F0888888007088801360 DATA 7008887000F8202020202020008888888888887000888888888850200088888888A8A850008888502050GM}88880088888870201370 DATA 202000F80810204080F8007040404040407000008040201008000070101010101070000000205088000000000000000000GN}001380 DATA F8402010000000000000006010709068008080F0888888F0000000708080807000080878888888780000007088F8807000181390 DATA 2GO}020702020200000007888887808F08080F088888888002000602020207000100030101010906080808890A0D088006020201400 DATA 20202070000000DGP}0A8A8A8A8000000F0888888880000007088888870000000F0888888F08000007888888878080000F088801410 DATA 808000000078807008F0000020702GQ}0202018000000888888887800000088888850200000008888A8A85000000088502050881420 DATA 0000008888887808F00000F8102040F800102020402GR}0201000202020002020200040202010202040006890000000000000A81430 DATA 50A850A850A800050505052070F870203870F870202078F870202070FGS}870382070F87820E070F8702020F0F870202070F8701440 DATA E02070F8F02020707870206070787060A0F0F8F0A02070F070203070F070302878F8782GT}8A0F0F870206070787020207078701450 DATA 002070F878002070F8703800003820200000E0202020203800002020E000000000F800002020202020202GU}03820202020E0201460 DATA 20203800000080800000000000F010101010F00000101010101010000010000000000000808080808000F8000000A92085EGV}61470 DATA 207444A000B91B4CF017A200B91B4C9D7059C8E8E00490F4984820745968A8D0E420295AA94CA044201159A94E8D584C8D671480 DATA 4CGW}8D8F4CA96F8D594CA9BC8D904CA94CA058201159A94CA08F201159A9738D684CA207A94CA067201159AD684C1869098D681490 DATA 4CCA10EDA9CF8D58GX}4C8D674C8D8F4CA9638D594CA98C8D904CA94CA058201159A94CA08F201159A9678D684CA204A94CA0671500 DATA 201159AD684C1869098D684CCAD0EDGY}201E5AA9648D3359A94B8D3459201759203159F00F98186D33598D335990EEEE3459D01510 DATA E920295AA00084FE84FF84FBA004B9C84AD9CC4AF035GZ}D9C44AD026B9C94A85FBA5FE85E0A5FF85E2A939208E43A5FFC5FBF01520 DATA 0EE90585FFC5FBB0E0A5FB85FFD0DAB9CC4A85FEB9CD4A85FFC8C8C8C8G[}C07C90BBA00084FEB9CA4A304F0A0AAAB9C84A85E01530 DATA B9C94ADDC94AD03F85E2BDC84A85FBC5E066FEA938208E4324FE300FA5E038E90A85E0C5G\}FBF00EB0EA9006A5E0C5FB90E2A51540 DATA FB85E0A91D06FE2A48BDCA4A0A68B002A938208E43C8C8C8C8C08490A4A94885E0A94185E2A936208E4320G]}1E5AA280209C4E1550 DATA A282209C4EA201209C4EE8E00990F8608C880101AB880008B77F0308B77B8113B7598017B74A810BB741800DB733810CB729G^}1560 DATA 8012B71C8111B7118014C94A0540D633070548410600482981164820801848118115D61C090491290803CA7B030790110A021570 DATA 4C1G_}1100253290E03755904813F200F0639881A824888190151591D81277F1D822759811B274E1D80541F2000881F1F00D2481580 DATA 55B45C105C34DF1ADG`}F310A1FD684B4871E445A581E870A13CED6ADC2002413C4C9DAC3000B2CD0A0D3F4E1F4F5F3000B45D01590 DATA C300444BC1E4E4F2E5F3F3A0D2E5E7EGa}9F3F4E5F2001594C1E4E4F2E5F3F3005B68CDE5EDEFF2F9009417C1CCD5006F35C1E31600 DATA E3F5EDF5ECE1F4EFF200AE94C4E1F4E100E692D3F4E1EGb}3EB00F21BD8A0F2E5E7AE00F232D9A0F2E5E7AE00DF55C4E5E3EFE41610 DATA E5F200A8A3C6E5F4E3E800A8B0C5F8E5E3F5F4E50003A9D0F2E5F3F3A0DGc}3D0C1C3C5000CB3F4EFA0F0E1F5F3E500001EB3E71620 DATA EFA0EFEE00041A0B3C56230B8E183F05365453057218820536D91503EBD92C03EBAE8203CGd}0CC430B08A29E09D200563239081630 DATA 0A39080A3C4444443D080B43080B4300CF6334383838383838383838383E00CF8B394242424242424242424Ge}24008080808081640 DATA 080808080808080A39424242424241424242424000CF8C36383838383838383838383F00A9FF85FF85FDA078B9CA4A301BB9Gf}1650 DATA CB4AC5ACD00884FE24FF100E84FFC5ADD00884FC24FD100284FD8888888810DAA9FF85FBA001A201B5FE38F9FC00B00638B91660 DATA FC00Gg}F5FEC5FBB00685FB86A684A7CA10E58810E0A6A6A4A7B9FC0085A5B5FE85A6AABDCA4A0A0A85A720594DA4A5C4A6F0141670 DATA B9CA4A0A0A85AEA4AEGh}C4A6D008A5A585A74C594D60A6A6BDC84AD9C84AD016BDC94AD9C94AA903B002A9FC65A785A720594D1680 DATA 4C174DBDC94AC941D0E9A94C38E5A685Gi}A720594D4C174DA6A6A4A7B9CA4A85A8BDC84A85FE38F9C84AF006A9019002A9FF851690 DATA AABDC94A85FF38F9C94AF006A9019002A9FF85ABD016B9Gj}C84AC034F00424A8101F38E5AA38E5AA38E5AAD014B9C94AC034F01700 DATA 0424A8100938E5AB38E5AB38E5AB85FBE034F022BDCA4A10424AA929A4AAGk}F0251002A92C85A9207A4EE6A920644EE6A920641710 DATA 4E4C014EA93185A9207A4EA4ABD0E8C6A9D00EA022B002A02624AB1002C8C884A920644EC6Gl}A920644EA92085A920644ED0FB1720 DATA A5A8301FA4A7C034F00FA038A5AAD001C884A9207A4E4C5F4EA233A5ABD010A22FD021A4ABD011A22E46A890Gm}02A22B86A9201730 DATA 644EC6A9D0130A0A09214904AAC8F002E8E886A920644EE6A920644EA92085A920644EA5A785A660203659A5AAF0081865FE1Gn}740 DATA 85FE48D008A5FF1865AB85FF48A5FE85E0A5FF85E220295AA5A9208E43201E5AA20CA00088D0FDCAD0FA68C5FB608A0A08901750 DATA 02691Go}1A8B94C4B85E0B94D4B85E228B022E003903CE007F029B542E006F011204651E003D0D5A95C85E0A92885E2A5454C641760 DATA 518A0AA8B93D0020465Gp}1B93C004C4651A4498884FEA90185FFA90485FCD014E001D068A540690485FEA541690085FFA908851770 DATA FCA5E048A5FF204651A5FE204651A5E01Gq}8690C85E0A4FEA5FFF00FC901F006A000B1FEB008B9001FB003B9001E48204651681780 DATA A4E2C087D002854AA90B208E436885E0A90085E1E007F00Gr}9A5FED002C6FFC6FE2CE6FEC6FCD0A860E007F04FE002F04C8A0A1790 DATA 0890026911A8B94C4B85E0B94D4B85E2A9A0208E43208E43289006208E434Gs}C8E43E006F012E003D020A05C84E0A02884E2201800 DATA 8E43208E43208E43208E43E6E0E6E0A003208E438810FA60A90720BE4FA91020BE4FA91985EGt}2A95485E0A9A0208E43A05C841810 DATA E0D0CAA50629034A6A6A6A09058DE34F08A5484828A59F24A0854508688548660628A900859EA007D02CA0002Gu}0E150A906851820 DATA ACA90285AD209E4CA5480848A59F2865A008854545A0459F859E68854828A00620E150C820E150A00120E15084FC8884FFA918Gv}30 DATA 0785E2A59E25FCF00C24061003CEDC50A4FF20BA5020445AA92885E2A545A4FF20B550E6FF06FC90D6A548290185FE4A6A451840 DATA 061016Gw}A95765FE8DDC50A90785E238A00820BA50A9588DDC5060A91085E238A00820B550A00020E150A90685ACA90285AD201850 DATA 9E4CA980850608A54848Gx}28A59FE5A085450868854828A59F45A04545859E4C1C50A2588EDC5008489885FD0A65FD49FF0A691860 DATA 89C0089002E902C0049002E90285E06828Gy}6A8810FCA9582A4C8E4384FEA915C004B003A91638E5FE06FE38E5FE0A6D584B851870 DATA E0AD594B85E2A9A04C8E43A28086ACE886AD209E4CA53C85Gz}3EA53D853FA281209C4E86ACA20786AD209E4CA53F20FD58A53E1880 DATA 20FD58A2814C5E4FAD604B85E0AD614B85E2A9A0208E43208E43A53E484A4AG{}4A4AC90A900269066930208E4368290FC90A901890 DATA 02690669304C8E43A0070A48A9182A208E43C004D004E6E0E6E0688810EC607EBA8E7B51A99EG|}8D715920745920EF572015581900 DATA A90885ACA94085AD209E4CA54A20525A8506A8AD4C4B85E0AD4D4B85E2B9F65A85FFB9365B85FEA002A204A900G}}26FE26FF2A1910 DATA CA10F869BF208E438810ECA9A0208E43A52EA00DD9DC5AF00388D0F8844B980A0AA8A203B98852208E43C8CA10F6A90085E1192G~}0 DATA 20445A20C959A9AB8D7159207459A00CA204A506C8DDC052F06588DDC552F05FCA10F188C921F05788C938B05288C913F04D1930 DATA C915F04G}929FCC928F04388C930F03E88A5064AC91BF03688C911F03188A506C914D004A925850629EEC924F02088A506C92C1940 DATA D004A915850629F3F0118G}8C911F00C88C901F00788A5064AB00188980AA8B9CA528D8152B9CB528D825220D85320445A20C91950 DATA 594C8051E9EDEDAEFAF0E1E7E1E2F3AEA0AG}0A0A0A0A0A0A0A8ACF8A9A8A9ACF924ACF8A02424ACF82424ACF9A8A0A9A024AC1960 DATA F9A0A0A0A0A010202D2E2F3E1C271826E75248538153B353DG}853ED531E544954695431558B551C565756E4566020EF5720151970 DATA 58A5064A4A4AAABD44532548F00390EA2CB0E7A28086ACE886AD209E4CA53C8G}53EA53D853FA281209C4EA90885ACA981209E1980 DATA 4CA53E244A300B18654A853E900DE63FB00918654A853EB002C63F20445AA281209C4E4C2B548G}0400102A506C917D002A9131990 DATA 4A4A4A08AABC7D5320E150A900382A8810FC85FE054828B00245FE8548A94085ACA90685AD209E4CA2064C9C4E0G}0020603A52000 DATA 064A4A4A084AA203B002A20628901286AD205E4F20EB58A6AD9542209E4C4C515586ACA90785AD209E4CA6ACB5424CFD58462010G} DATA 0646064606A9022A4901AAF6424606B004D642D64286ADA94085AC209E4C20445A4C5155A5064AA8B9E65348B9E5534860EC2020 DATA 5622572EG}574C57205E57A506A2042910D001E84606900C8A4820155868AAA54A4C475586ACA90885ADB542854A209E4CA2082030 DATA 209C4E4C35582088584606G}900620CD5820A258A53E853CA53F853DA28186ACCA86AD205E4F209E4CA280209C4EE84C5E4F202040 DATA 5E57201558C64A46069004E64AE64A20445AG}A208209C4E203558A2084C5A55A90385ACA52EF009205E5720155838662EA9022050 DATA 85AD209E4CA6AC205E4FB542859FA21086E2A25C86E0206451G}4606B00646480648900CA00020E150A90685AC209E4CA210862060 DATA E2A5484AA00820B550A00020E150C820E150A00720E15020445AA92A46069002G}A96A8DDA5408A5484828A59F6A859F0868852070 DATA 48A21086E2284AA00820B550A95C85E0A59F20645120445AA202207055A20286AC242E3014A903G}85AD209E4CA59F8545A2032080 DATA 209C4ECA4C5E4FA90885AD209E4CA59F854AA208209C4EA202205E4F4C3558A506C920B0034A691DE926A8BE7F55G}86ACB5422090 DATA BE855586AD9542205E4F209E4CA6AD209C4EE006B024A00720E150A00120E15008A5484828B542086885482886ACA90685AD2100 G}DATA 209E4CA2064C9C4E60050304040307030503070404205E57A5064A491ED005A2034CFB53A545859FA20286ADE886AC209E4C2110 DATA A91085E2AG}95C85E0A59F206451A9A020914F201558A54A85A0A20286AD209E4CA91985E2A95C85E0A5A0206451A5062907A82120 DATA A95485E0B90E56208E43A20G}1C0039004F001E824CA8A0AA8B916568DFF55B917568D005620FE55A203209C4E206455A2024C2130 DATA 5E4FF6DEFEAB000000ADCF4FF64F7C50A5060G}9418506A54548208B55688545A203209C4EA00720E1508820E150A548293F852140 DATA 48A54A29C005488548A90885ACA90685AD209E4CA2064C9C4EEG}88A4A18690348205E576885ACA90285AD209E4CA6ACB542852150 DATA 9FA21086E2A25C86E020645138A00820B550201558A90285AD209E4CA54A85A0AG}21986E2A25C86E0206451A95485E0A9AD202160 DATA 8E43A54548A9A0850620914F08A5484828A59FC5A00838E5A0854568288548A59F45A04545859EAG}00020E150A007202250A22170 DATA 03206455688545A203209C4ECA4C5E4F20445A20445A4C445A20EF57A54809108548A206209C4E200351A20620A35G}3A548092180 DATA 048548A2FF863FCA863EA281209C4E20CD5820A258202B54A2064C9C4E20EF5720035120A2584C2B54A206209153A28186AD2190 DG}ATA 20EB58853E20EB58853F209E4CA281209C4E4C2B54203457E63CD002E63D20445AA2804C9C4E462EB02C208858A52E4A29072200 DATA F01F0904AAG}86ACB54218653E853E9002E63FA28186AD209E4C20445AA281209C4E4CCD5820EF57A52EC910F0574A2907852E2210 DATA 201558A28186AD209E4CA54AG}853EA900853FA281209C4EA52EF0D4C903F01F29050904AA86ACB54218653E853EA28186AD202220 DATA 9E4C20445AA281209C4EA52E2902F0AD20CD58G}20A258A52EC903D0A1A205D08160A53C8540A53D8541A28086ACA28286AD202230 DATA 5E4F209E4CE63CD002E63DA282209C4EA2804C9C4EA28286ACA9G}0185AD209E4CA201209C4E86ACA90885AD209E4CA20886AC2240 DATA 4C9C4EA28286ACA20186AD209E4CA54A48A201209C4EA20886AC209E4C68A441F0G}1AC001F01EC01E900CC05A9020D006A4402250 DATA C0529018A0009140F012A44099001E4C8058A44099001FA207209C4E20445AA2014C9C4E20EF5720G}1558A98185AD209E4CA52260 DATA 4A853E20325120EF574CBA58201558A98185AD209E4CA54A853E203251E640A282209C4E201558A98185AD209E4CA5G}4A853F2270 DATA A2814C9C4EA53E8540A53F8541A28186ACE886AD205E4F209E4CA282209C4ECA4C5E4FE649A20786AC209C4E20445AA449B92280 DAG}TA 001F60A44999001FA207209C4EC64920445AA2074C9C4E8D34598C3359A0FF20315985E020315985E2203159F006208E434C2290 DATA 235985E160CG}8B9074C6048ADFC02C90CF02DC921D027A9FF8DFC029848A94CA013201159ADFC02C9FFF0F9C90CF010A9FF8D2300 DATA FC02A94CA00720115968A8686G}0AE7B519A60A29E09D220295AAD705985E0AD71591869044885E2A939200C5AAD705985E0AD2310 DATA 715985E2AC7259A93420ED59AD705985E0A9008G}5E1AD715918690C85E2AC7259A93620ED59AD735985E06885E2A939200C5A2320 DATA A90085E14C1E5AA9428D86598D98598DB1598DBE59207459A9398G}D86598DBE59A9348D9859A9368DB1596048208E43C940B02330 DATA 02A938208E4388D0FAAD735985E068C940B00269014C8E4348208E43A908208E43AG}90A208E43684C8E4348A96385E8A945852340 DATA E9686048A96785E8A94885E9686086E084E2A8A9A0208E4388D0FA84E160A240A00020365988D0FACG}AD0F760A84A900B4AB02350 DATA 17C922F013290709804AAABD985AB0044A4A4A4A290FD004A080A900AABDDC5A852E2903852F98298FAA98A003E08AFG}00B4A2360 DATA 90084A4A092088D0FAC888D0F26040024503D008400930224533D008400940024533D0084009400245B3D0084009002244332370 DATG}A D08C440011224433D08C449A10224433D008400910224433D0084009621378A9002181820000594D9192864A859D2C292C232380 DATA 282459005824G}24001C8A1C235D8B1BA19D8A1D239D8B1DA1002919AE69A8192324531B23245319A1001A5B5BA5692424AEAE2390 DATA A8AD29007C00159C6D9CA56929G}5384133411A56923A0D8625A48266294885444C8546844E89400B4088474B4286E74F4CC4A2400 DATA 72F2A48A00AAA2A2747474724468B232B2002200G}1A1A2626727288C8C4CA26484444A2C800444C8546844E89400B4088474B4286E74F4CC4A2400 DATA 72F2A48A00AAA2A2747474724468B232B2002200D#10 DIM G$(20):? "}"15 SNELLER=220 ? "HOE SNEL ZIJN JE REACTIES?":? :? :? 30 ? "WANNER ER EEN LETTER IN HET MIDDEN VERSCK}HIJNT, DRUK DAN ZO SNEL MOGELIJK OP EEN TOETS.":? :? 40 ? "ˠРΠӠ͠Š"50 IF PEEK(764)=255 THEN 5055 GK}RAPHICS 18:POKE 712,0:POKE 708,14:POKE 710,20260 POKE 764,25570 POKE 752,180 A=INT(RND(0)*1000+1000)90 FOR W=1 TO A:NEXT K}W100 POKE 764,255110 POSITION 7,5:? #6;" NU "120 POKE 18,0:POKE 19,0:POKE 20,0130 IF PEEK(764)=255 THEN 130140 TIMER=PK}EEK(18)*65536+PEEK(19)*256+PEEK(20)/60150 POKE 764,255160 GRAPHICS 0:POSITION 4,4:? "HET DUURDE ";TIMER;" SECONDEN.":? :? K}165 GOSUB 210170 ? "NOG EEN KEER (J/N)";:INPUT G$180 IF G$(1,1)="J" OR G$(1,1)="j" THEN 40190 IF G$(1,1)<>"N" AND G$(1,1)"n" THEN 170200 GRAPHICS 0:END 210 SNEL1=SNELLER220 IF TIMER>> CHOOSE PLEASE <<< "300 IF STRIG(0) THEN 300301 SOUND 0,30,10,8:FOR I=1 TO}O 5:NEXT I:SOUND 0,0,0,0305 X=(PEEK(XPOS)-48)/4:Y=(PEEK(YPOS)-16)/4306 REM ŠͮӠϠҮ310 FOR I=1 TO 73O}20 IF X>=X0(I) AND X<=X1(I) AND Y>=Y0(I) AND Y<=Y1(I) THEN GOTO LINE(I)330 NEXT I:GOTO 300898 REM ӠĠӮO}899 REM ՠӠʮ900 DATA 2,8,7,10,1000901 DATA 2,8,11,13,1050902 DATA 2,8,14,16,1100903 DATA 25,35,7,9,11O}50904 DATA 25,35,10,12,1200905 DATA 25,35,13,15,1250906 DATA 12,21,7,18,1300998 REM Ҡ٠ʮŠś999 REM O}ӭ՛1000 FOR I=5 TO 17 STEP 2:POSITION 12,I:? "DOS-MENU ":POSITION 12,I+1:? " ":NEXT I:M=0:GOTO 3001049 REM O}Л1050 FOR I=5 TO 17 STEP 2:POSITION 12,I:? " -HELP- ":POSITION 12,I+1:? " ":NEXT I:M=0:GOTO 3001099 REM O}1100 X=USR(SPROFF):POKE 82,2:GRAPHICS 0:END 1149 REM ՠ1150 M=1:GOTO 12601200 M=2:GOTO 12601250 M=3:GOTO 1260O}1260 FOR I=15 TO 0 STEP -1:SOUND 0,200,10,I:NEXT I:GOTO 2401299 REM Π¬1300 IF M=0 THEN 3001302 FNK$=CHR$((YO}-8)/2+6*(M-1)+65)1305 POSITION 0,20:? " ======== FUNCTION ";FNK$;" ========"1306 FOR I=-15 TO 15:SOUND 0,ABS(I)*10,10,O}ABS(I):NEXT I:SOUND 0,0,0,01310 POSITION 0,20:GOTO 2951499 REM ɭқ1500 CK=0:RESTORE SPRON:FOR I=SPRON TO 1743:O}READ P:POKE I,P:CK=CK+P:NEXT I1510 IF CK<>20859 THEN ? "ҠΠŠ":END 1520 RETURN 1536 DATA 76,6,6,7O}6,190,6,104,216,165,106,56,233,8,141,7,2121552 DATA 133,119,169,0,133,116,133,118,230,119,230,119,160,127,145,1181568 DATA O}136,16,251,165,119,133,117,169,0,141,192,2,141,8,208,1651584 DATA 112,141,0,208,32,166,6,169,3,141,29,208,169,46,141,471600O} DATA 2,169,81,141,40,2,169,6,141,41,2,169,1,141,26,21616 DATA 96,174,120,2,216,189,117,6,24,101,112,133,112,141,0,2081632 O}DATA 189,133,6,24,101,113,133,113,197,114,240,3,32,149,6,1691648 DATA 1,141,26,2,96,0,0,0,0,0,1,1,1,0,255,2551664 DATA 255,O}0,0,0,0,0,0,0,0,0,1,255,0,0,1,2551680 DATA 0,0,1,255,0,165,117,133,119,165,114,133,118,169,0,1601696 DATA 7,145,118,136,16,O}251,165,113,133,114,133,118,169,6,133,1211712 DATA 169,200,133,120,160,7,177,120,145,118,136,16,249,96,104,1691728 DATA 0,1O}41,29,208,141,26,2,96,248,224,240,184,156,8,0,0ATA 169,200,133,120,160,7,177,120,145,118,136,16,249,96,104,1691728 DATA 0,1L010 N1=784:N2=862:N3=0:GOTO 150:REM SKIP OVER ROUTINES20 REM 30 FOR D=1 TO DELAY2:NEXT D:RETURN 40 REM 50 SOUND 0,17,10,10S}60 FOR D=1 TO 4:NEXT D70 SOUND 0,0,0,0:RETURN 80 REM 90 FOR H=43 TO 200 STEP 2100 POKE 53250,H110 IF H=55 OR H=93 OR H=S}131 OR H=169 THEN GOSUB 50120 FOR D=1 TO 1:NEXT D130 NEXT H:GOTO 90140 REM 150 DELAY2=500:FLAG=0:G=3160 GRAPHICS 7:GOSUBS} 790:POKE 709,10:POKE 752,1:POKE 657,13:? "APPLESAUCE"170 POKE 656,1:POKE 657,12:? "(in 14 secs)"180 GOSUB 820:GOSUB 49019S}0 POKE 708,68:POKE 709,6:POKE 712,0200 SOUND 0,30,10,14:FOR D=1 TO 25:NEXT D:SOUND 0,0,0,0210 REM 220 POKE 657,17:? CHR$(2S}10);CHR$(197);CHR$(193);CHR$(196);CHR$(217):GOSUB 30230 ? CHR$(125):POKE 657,18:? "AIM":GOSUB 30240 ? CHR$(125):POKE 657,17S}:? CHR$(198);CHR$(201);CHR$(210);CHR$(197):GOSUB 30250 POKE 706,12:POKE 705,79260 FOR L=1 TO 35:SOUND 0,L,4,15:NEXT L270 FS}OR V=15 TO 0 STEP -G280 POKE 705,64+V:SOUND 0,L,4,V290 NEXT V:POKE 705,0300 FOR H=60 TO 122 STEP G:POKE 53250,H:NEXT H310S} POKE 708,0:POKE 706,68320 FOR H=123 TO 200 STEP G:POKE 53250,H:NEXT H330 POKE 706,0:POKE 53250,0:FOR D=1 TO DELAY2:NEXT D:S}IF FLAG THEN 430340 POKE 752,1:? CHR$(125):POKE 657,6:? "SLOW-MOTION INSTANT REPLAY."350 FOR D=1 TO DELAY2:NEXT D:G=1360 PS}OKE 706,68:FOR D=1 TO DELAY2:NEXT D:? CHR$(125)370 FOR H=200 TO 123 STEP -3:POKE 53250,H:NEXT H380 POKE 708,68:POKE 706,12S}390 FOR H=122 TO 60 STEP -3:POKE 53250,H:NEXT H400 FOR D=1 TO DELAY:NEXT D410 POKE 53250,250:FLAG=1:DELAY2=800:GOTO 220420S} REM 430 POKE 53249,0:POKE 53250,0:GOSUB 790440 POKE 709,6:? CHR$(125):POKE 657,13:? "OSCILLOSCOPE"450 GOSUB 910460 FOR IS}=PMB+N1 TO PMB+N2:POKE I,3:NEXT I470 POKE 706,14:? CHR$(125):GOTO 90480 REM 490 COLOR 3:FOR Y=0 TO 79:PLOT 0,Y:DRAWTO 159,S}Y:NEXT Y500 COLOR 0:FOR Y=38 TO 42 STEP 2510 FOR X=14 TO 72 STEP 2:PLOT X,Y:NEXT X:NEXT Y520 PLOT 74,38:PLOT 74,42530 COLS}OR 1:Y1=35:X2=82540 FOR X1=77 TO 74 STEP -1550 Y1=Y1+1:X2=X2+1560 PLOT X1,Y1:DRAWTO X2,Y1570 NEXT X1580 FOR Y1=40 TO 41S}590 PLOT 74,Y1:DRAWTO X2,Y1600 NEXT Y1:Y1=41610 FOR X1=75 TO 78620 Y1=Y1+1:X2=X2-1630 PLOT X1,Y1:DRAWTO X2,Y1640 NEXT X1S}650 PLOT 80,36:DRAWTO 80,34:PLOT 81,34660 PLOT 81,33:PLOT 82,33:PLOT 82,32670 COLOR 3:PLOT 79,36:PLOT 81,36680 COLOR 069S}0 PLOT 83,35:DRAWTO 120,0:PLOT 84,36:DRAWTO 140,0700 PLOT 85,37:DRAWTO 159,4:PLOT 86,38:DRAWTO 159,16710 PLOT 87,39:DRAWTO S}159,28:PLOT 87,40:DRAWTO 159,40720 PLOT 87,41:DRAWTO 159,52:PLOT 86,42:DRAWTO 159,64:PLOT 85,43:DRAWTO 159,76730 PLOT 84,44S}:DRAWTO 140,79:PLOT 83,45:DRAWTO 120,79740 POKE 709,0:COLOR 2:FOR Y=37 TO 43750 PLOT 0,Y:DRAWTO 13,Y760 NEXT Y770 PLOT 14S},37:PLOT 14,43:? CHR$(125):RETURN 780 REM 790 FOR N=0 TO 4:POKE 708+N,0:NEXT N:POKE 710,N3800 RETURN 810 REM 820 POKE 70S}5,0:POKE 706,0:A=PEEK(106)-24:POKE 53249,0:POKE 53250,0830 POKE 54279,A:PMB=256*A:POKE 53277,2:POKE 623,2:POKE 559,46840 FOS}R I=PMB+640 TO PMB+895:POKE I,0:NEXT I850 FOR I=PMB+N1 TO PMB+N2:POKE I,31:NEXT I860 RESTORE 870:FOR I=PMB+694 TO PMB+698:RS}EAD A:POKE I,A:NEXT I870 DATA 192,240,254,240,192880 POKE 53257,0:POKE 53258,0:POKE 53249,62890 RETURN 900 REM 910 TRAP S}1000920 COLOR 3:FOR Y=0 TO 79:PLOT 0,Y:DRAWTO 159,Y:NEXT Y930 COLOR 0:X=0940 PLOT X,32:DRAWTO X,2950 X=X+12960 DRAWTO X,S}2:DRAWTO X,32970 X=X+12980 DRAWTO X,32:DRAWTO X,2990 GOTO 9501000 TRAP 40000:Y=59:HT=-15:SL=-31010 FOR X=0 TO 114 STEP 3S}81020 PLOT X,Y1030 FOR XX=0 TO 19 STEP 191040 DRAWTO X+XX+10,Y1050 DRAWTO X+XX+13,Y+SL1060 DRAWTO X+XX+14,Y+SL1070 DRAWS}TO X+XX+14,Y+SL+HT1080 DRAWTO X+XX+14,Y+SL1090 DRAWTO X+XX+15,Y+SL1100 DRAWTO X+XX+18,Y1110 SL=-SL:HT=-HT1120 NEXT XX:NES}XT X:DRAWTO 159,Y:RETURN 1200 N1=780:N2=882:N3=4:GOTO 150X+15,Y+SL1100 DRAWTO X+XX+18,Y1110 SL=-SL:HT=-HT1120 NEXT XX:NEP;1 REM ҠΠҮ2 GRAPHICS 15+163 COLOR 3:CIRCLE 151,40,104 CIRCLE 150,59,10:CIRCLE 149,78,105 CIRCLE 148,9W}7,106 CIRCLE 147,116,10:CIRCLE 9,40,107 CIRCLE 10,59,10:CIRCLE 11,78,108 CIRCLE 12,97,10:CIRCLE 13,116,109 PAINT 151,40:PW}AINT 150,5910 PAINT 148,9711 PAINT 147,116:PAINT 9,4012 PAINT 10,59:PAINT 12,9713 PAINT 13,11614 PAINT 149,78:PAINT 11,7W}815 CIRCLE 141,132,1016 CIRCLE 135,150,1017 CIRCLE 129,168,1018 CIRCLE 19,132,10:CIRCLE 25,150,1019 CIRCLE 31,168,1020 W}PAINT 141,132:PAINT 135,15021 PAINT 129,16822 PAINT 19,132:PAINT 25,15023 PAINT 31,168:PAINT 11,7824 PLOT 80,191:DRAWTO 9W}0,11025 PLOT 80,191:DRAWTO 70,11026 PLOT 85,15027 DRAWTO 100,191:PLOT 75,15028 DRAWTO 60,19129 CIRCLE 114,190,1530 CIRCW}LE 46,190,1531 PLOT 123,185:DRAWTO 140,15332 PLOT 37,185:DRAWTO 20,15333 PAINT 114,18634 PAINT 46,184:PAINT 5,18635 PAINW}T 155,186:PAINT 78,18936 PAINT 82,18937 PAINT 158,5038 CIRCLE 152,80,55:CIRCLE 152,80,5039 CIRCLE 152,80,4540 CIRCLE 152W},80,40:CIRCLE 152,80,3541 CIRCLE 152,80,3042 CIRCLE 8,80,55:CIRCLE 8,80,5043 CIRCLE 8,80,4544 CIRCLE 8,80,40:CIRCLE 8,80,W}3545 CIRCLE 8,80,3046 PLOT 90,110:DRAWTO 90,9047 PLOT 70,110:DRAWTO 70,9048 PLOT 90,90:DRAWTO 80,3049 PLOT 70,90:DRAWTO W}80,3050 CIRCLE 120,90,50,6051 CIRCLE 40,90,50,6052 CIRCLE 100,160,5:CIRCLE 100,140,553 CIRCLE 110,120,554 CIRCLE 60,160,W}5:CIRCLE 60,140,555 CIRCLE 50,120,556 COLOR 2:PAINT 110,16057 PAINT 50,160:PAINT 110,14058 PAINT 50,14059 COLOR 1:PAINT W}140,90:PAINT 20,9060 COLOR 2:PAINT 105,90:PAINT 43,9061 PAINT 120,90:COLOR 3:PAINT 38,9062 PAINT 100,9063 COLOR 1:PAINT 1W}00,16064 PAINT 100,140:PAINT 110,12065 PAINT 60,160:PAINT 60,14066 PAINT 60,9067 PAINT 50,120:PAINT 52,9068 PAINT 107,90W}:COLOR 3:PAINT 57,9069 PAINT 102,9070 COLOR 1:CIRCLE 80,30,1371 PAINT 80,35:PAINT 80,2772 PAINT 80,100:PAINT 80,15073 PLW}OT 80,30:DRAWTO 100,1474 PLOT 80,30:DRAWTO 60,1475 CIRCLE 100,14,3:PAINT 100,1276 CIRCLE 60,14,3:PAINT 60,1277 COLOR 378W} FOR X=0 TO 1679 FOR Y=0 TO 19180 PAINT X,Y:PAINT 159-X,Y81 NEXT Y82 NEXT X83 POKE 77,0:GOTO 83AINT 60,1277 COLOR 378Te