@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 D8u5 MEM=PEEK(559):POKE 731,110 FOR LOAD=1 TO 74:READ PR20 POKE 1535+LOAD,PR30 NEXT LOAD40 POKE 755,050 SETCOLOR 2,0,060T} FOR X=0 TO 370 SOUND X,0,0,080 NEXT X85 POKE 559,MEM:FLAG=0:FLAG1=090 PRINT "}"100 FOR X=1 TO 5:PRINT :NEXT X110 PRIU}NT " MAIN MENU"120 PRINT :PRINT 130 PRINT :PRINT " 1-A.D.S.R. MENU"140 PRINT :PRINT " 2-FILTER MENU"150 PRINT :PRV}INT " 3-MODULATION MENU"160 PRINT :PRINT " 4-DISTORTION MENU"200 GOSUB 2000210 KEY=KEY-48220 IF KEY<1 OR KEY>4 THEN GW}OTO 90230 ON KEY GOTO 300,700,900,1100300 CON=0310 PRINT "}"320 FOR X=1 TO 5:PRINT :NEXT X330 PRINT " A.D.S.RX}. MENU"340 PRINT :PRINT " ENTER ATTACK VALUE ";350 INPUT ATT360 PRINT :PRINT " ENTER SUSTAIN VALUE ";370 INPUT SUS38Y}0 PRINT :PRINT " ENTER DECAY VALUE ";390 INPUT DEC400 PRINT :PRINT " AUDIO CONTROL (Y/N)";420 GOSUB 2000440 IF KEY=78Z} THEN GOTO 580450 PRINT "}"460 FOR X=1 TO 5:PRINT :NEXT X470 PRINT " 15 KHZ CLOCK (Y/N)";480 GOSUB 2000490 IF KEY=89 T[}HEN CON=CON+1500 PRINT :PRINT " HIGH PASS FILTER (Y/N)";510 GOSUB 2000520 IF KEY=89 THEN CON=CON+4540 PRINT :PRINT " \}1.79 MHZ CLOCK (Y/N)";550 GOSUB 2000560 IF KEY=89 THEN CON=CON+64570 POKE 53768,CON580 IF FLAG=1 OR FLAG1=1 THEN GOTO 590]}585 GOSUB 2000590 IF KEY=32 OR PTRIG(7)=0 THEN GOTO 60595 IF FLAG1=1 THEN GOSUB 6500:GOTO 620600 IF FLAG=1 THEN GOSUB 600^}0610 GOSUB 3000620 Q=USR(1536,KEY,ATT,SUS,DEC)630 GOTO 580700 OCT1=0710 PRINT "}"720 FOR X=1 TO 5:PRINT :NEXT X730 PRI_}NT " FILTER MENU"740 PRINT :PRINT :PRINT " OCTAVES (Y/N)";750 GOSUB 2000770 IF KEY=89 THEN GOTO 800780 PRIN`}T :PRINT " VALUE OF CLOCKING VOICE ";790 INPUT OCT1800 POKE 53768,4810 IF FLAG=1 OR FLAG1=1 THEN GOTO 820815 GOSUB 2000a}820 IF KEY=32 OR PTRIG(7)=0 THEN GOTO 60825 IF FLAG1=1 THEN GOSUB 6500:GOTO 850830 IF FLAG=1 THEN GOSUB 6000840 GOSUB 300b}0850 IF OCT1<>0 THEN OCT=OCT1855 POKE 53768,4860 POKE 53761,170:POKE 53765,170870 POKE 53760,KEY:POKE 53764,OCT880 GOTO c}810890 GOSUB 6500:GOTO 850900 TONE=0910 PRINT "}"920 FOR X=1 TO 5:PRINT :NEXT X930 PRINT " MODULATION MENU"9d}40 PRINT :PRINT :PRINT " FILTER ON (Y/N)";950 GOSUB 2000960 IF KEY=89 THEN POKE 53768,4970 PRINT :PRINT " SOUND TWELVEe} ON (Y/N)";980 GOSUB 2000990 IF KEY=89 THEN TONE=11000 IF FLAG=1 OR FLAG1=1 THEN GOTO 10101005 GOSUB 20001010 IF KEY=32 f}OR PTRIG(7)=0 THEN GOTO 601015 IF FLAG1=1 THEN GOSUB 6500:GOTO 10351020 IF FLAG=1 THEN GOSUB 60001030 GOSUB 30001035 IF Tg}ONE=1 THEN GOTO 10701040 POKE 53761,170:POKE 53765,1701050 POKE 53760,KEY:POKE 53764,KEY-11060 GOTO 10001070 SOUND 0,KEY,h}12,101080 SOUND 2,KEY-1,12,101090 GOTO 10001100 CON=01110 DIST=1701120 DIST1=1701130 PRINT "}"1140 FOR X=1 TO 5:PRINT i}:NEXT X1150 PRINT " DISTORTION MENU"1160 PRINT :PRINT " VALUE (1 TO 5) ";1170 INPUT DIST1180 IF DIST=1 THEN j}DIST=101181 IF DIST=2 THEN DIST=421182 IF DIST=3 THEN DIST=741183 IF DIST=4 THEN DIST=1381184 IF DIST=5 THEN DIST=202119k}0 PRINT :PRINT " 9 BIT POLYCOUNTER (Y/N)";1200 GOSUB 20001210 IF KEY=89 THEN CON=CON+1281220 PRINT :PRINT " FILTER (Y/l}N)";1230 GOSUB 20001240 IF KEY=78 THEN GOTO 14001250 PRINT "}"1260 FOR X=1 TO 5:PRINT :NEXT X1270 PRINT " CLOCKING CHAm}NNEL DISTORTION (Y/N)";1280 GOSUB 20001290 IF KEY=89 THEN DIST1=DIST1300 PRINT :PRINT " BOTH CHANNELS DISTORTION (Y/N)";n}1310 GOSUB 20001320 IF KEY=78 AND DIST1<>170 THEN DIST=1701330 IF FLAG=1 OR FLAG1=1 THEN GOTO 13401335 GOSUB 20001340 IFo} KEY=32 OR PTRIG(7)=0 THEN GOTO 601345 IF FLAG1=1 THEN GOSUB 6500:GOTO 13701350 IF FLAG=1 THEN GOSUB 60001360 GOSUB 30001p}370 POKE 53761,DIST:POKE 53765,DIST11380 POKE 53760,KEY:POKE 53764,OCT1390 GOTO 13301400 IF FLAG=1 OR FLAG1=1 THEN GOTO 14q}101405 GOSUB 20001410 IF KEY=32 OR PTRIG(7)=0 THEN GOTO 601415 IF FLAG1=1 THEN GOSUB 6500:GOTO 14401420 IF FLAG=1 THEN GOr}SUB 60001430 GOSUB 30001440 POKE 53761,DIST:POKE 53760,KEY1450 GOTO 14002000 CLOSE #12010 OPEN #1,4,0,"K:"2020 GET #1,Ks}EY2030 IF KEY<>47 THEN GOTO 20502040 GOSUB 50002050 IF KEY=32 OR KEY=78 OR KEY=89 THEN RETURN 2060 IF KEY<48 OR KEY>57 THt}EN GOTO 20202070 RETURN 3000 KEY=KEY-473005 POKE 559,03010 ON KEY GOSUB 3030,3040,3050,3060,3070,3080,3090,4000,4010,4020u}3020 RETURN 3030 KEY=96:OCT=60:RETURN 3040 KEY=243:OCT=121:RETURN 3050 KEY=217:OCT=108:RETURN 3060 KEY=193:OCT=96:RETURNv} 3070 KEY=182:OCT=91:RETURN 3080 KEY=162:OCT=81:RETURN 3090 KEY=144:OCT=72:RETURN 4000 KEY=128:OCT=64:RETURN 4010 KEY=12w}1:OCT=60:RETURN 4020 KEY=108:OCT=53:RETURN 5000 PRINT "}"5005 FLAG=05006 FLAG1=05010 FOR X=1 TO 5:PRINT :NEXT X5020 PRIx}NT " RANDOM NOTE GENERATOR"5025 PRINT :PRINT :PRINT " PADDLE CONTROL (Y/N)";5026 GOSUB 20005027 IF KEY=89 THEN GOy}TO 50605030 PRINT :PRINT :PRINT " SPEED (2 TO 500)";5040 INPUT SPEED5050 FLAG=1:GOTO 50705060 FLAG1=15070 RETURN 6000z} FOR HOLD=1 TO SPEED:NEXT HOLD6005 POKE 559,06010 KEY=INT(RND(1)*9)+486015 IF PEEK(764)=33 THEN FLAG=06020 RETURN 6500 K{}EY=PADDLE(7)6505 POKE 559,06520 RETURN 7000 DATA 104,104,104,141,0,210,104,133,204,104,104,104,133,205,104,104,133,206701|}0 DATA 169,160,141,1,210,166,204,32,65,6,24,105,1,201,176,208,2417020 DATA 169,14,166,205,32,65,6,56,233,1,208,2467030 DATA}} 169,175,141,1,210,166,206,32,65,6,56,233,1,201,159,208,241,967040 DATA 160,19,136,208,253,202,208,248,96,208,2467030 DATAk1 REM ŠР10 N0=0:N1=1:N2=2:N256=256:GRAPHICS N2+1620 Z=PEEK(742)*N256+PEEK(741)-PEEK(145)*N256+PEEK(144)-15 }00:IF Z>32767 THEN Z=3276724 DIM A$(Z)30 A$(1)="":A$(Z)=A$:A$(2)=A$40 POKE 203,ADR(A$)-(INT(ADR(A$)/N256)*N256):POKE 204, }INT(ADR(A$)/N256)60 FOR I=1536 TO 1565:READ A:POKE I,A:NEXT I70 TRAP 20074 ? #6;"INSERT INPUT TAPE":? #6;" }"80 OPEN #N1,4,255,"C:":CNT=N090 FOR I=N0 TO Z STEP 128100 GET #1,B:CNT=CNT+128120 X=USR(1536)140 NEXT I:? "NOT } ENOUGH RAM TO COPY TAPE":END 200 IF PEEK(195)=136 THEN CLOSE #N1:GRAPHICS N2+16:? #6;"INSERT OUTPUT TAPE"202 ? #6;" }":GOTO 210204 ? "ERROR - ";PEEK(195):END 210 RESTORE 10000220 FOR I=1536 TO 1566230 READ B:POKE I,B:NE }XT I234 POKE 203,ADR(A$)-(INT(ADR(A$)/N256)*N256):POKE 204,INT(ADR(A$)/N256)240 OPEN #N1,8,255,"C:"260 FOR I=N0 TO CNT STE }P 128262 X=USR(1536)270 Z=ASC(A$(I+128)):PUT #N1,Z300 NEXT I320 CLOSE #N1:GRAPHICS N2+16:? #6;"THAT'S ALL FOLKS"400 FOR }I=N0 TO 800:NEXT I:RUN } z1 REM TIC TAC SNACK-COPYRIGHT 1983-2 GRAPHICS 18:POSITION 3,2:? #6;"TIC TAC SNACK":POSITION 8,5:? #6;"by":DIM INV$(11)3 POS}ITION 4,7:INV$="DUANE TUTAJ":GOSUB 5000:POSITION 4,10:INV$="push start":GOSUB 50004 GOSUB 30000:IF PEEK(53279)=6 THEN GRAPHI}CS 18:POKE 712,148:POSITION 1,7:? #6;"one moment please":GOTO 75 GOTO 47 DIM GAME(9),B(9),TIC(9)8 FOR J=1 TO 9:GAME(J)=0:T}IC(J)=0:B(J)=0:NEXT J9 GOSUB 5010 OPEN #1,4,0,"K:"40 CAT=044 POKE 710,0:POKE 752,145 GOTO 220046 SOUND 0,30,10,10:FOR J}=1 TO 40:NEXT J:SOUND 0,50,10,10:FOR J=1 TO 50:NEXT J:SOUND 0,0,0,0:RETURN 47 SOUND 0,70,6,10:FOR J=1 TO 90:NEXT J:SOUND 0,0},0,0:RETURN 48 FOR J=1 TO 6:SOUND 0,30,10,10:FOR JJ=1 TO 10:NEXT JJ:SOUND 0,0,0,0:NEXT J49 SOUND 0,80,10,10:FOR J=1 TO 30:N}EXT J:SOUND 0,0,0,0:RETURN 50 DIM I1$(60):FOR I=1 TO 60:READ A:I1$(I,I)=CHR$(A):NEXT I:I1=ADR(I1$)100 DATA 170,170,170,10,1}70,170,170,168,42,170,170,170,160,170,170,170,165,65,86110 DATA 170,170,85,65,85,106,169,85,85,85,90120 DATA 169,85,85,85,9}0,169,85,85,85,90,170,85,85,85,106,170,149,85,85130 DATA 170,170,170,170,170,170,170,170,170,170,170150 DIM I2$(60):FOR I=1} TO 60:READ A:I2$(I,I)=CHR$(A):NEXT I:I2=ADR(I2$)200 DATA 170,170,170,170,170,170,170,170,170,170,170,171,255,250,170,170,17}5,63,254210 DATA 170,170,191,255,255,170,170,255,255,207,234220 DATA 170,255,243,255,234,170,243,255,255,234,170,191,255,24}3,170,170,175,243,254230 DATA 170,170,171,255,250,170,170,170,170,170,170400 REM **ROUT FOR IMAGES IN GR. 7410 DIM E$(123)}:FOR I=1 TO 123:READ A:E$(I,I)=CHR$(A):NEXT I:E=ADR(E$)420 DATA 104,104,104,133,195,104,104,133,186,104,133,213,104,133,212,}169,0,133,187,165,186430 DATA 10,38,187,10,38,187,10,38,187,133,186,164,187,10,38,187,10,38,187,24,101,186,133,186,152440 D}ATA 101,187,133,187,24,165,186,101,195,144,2,230,187,24,101,88,133,186,165,187,101,89,133,187450 DATA 169,12,133,195,162,5,1}60,0,177,212,145,186,24,165,212,105,1,133,212,144,2460 DATA 230,213,24,165,186,105,1,133,186,144,2,230,187,202,208,227,24,16}5,186,105,35,133,186,144,2470 DATA 230,187,198,195,208,208,96800 REM ROUT FOR RECTANGLE810 DIM R$(108):FOR I=1 TO 108:READ} A:R$(I,I)=CHR$(A):NEXT I:R=ADR(R$)820 DATA 104,104,104,133,203,104,104,133,205,104,104,133,206,104,104,133,207,104,104,133,}208,169,0,133,204822 DATA 165,203,10,38,204,10,38,204,10,38,204,133,203,166,204,10,38,204,10,38,204,24,101,203,133,203,1388}30 DATA 101,204,133,204,24,165,203,101,205,133,203,144,2840 DATA 230,204,24,165,203,100,88,133,203,165,204,101,89,133,204,16}0,0,166,206,165,208,145,203,200,202,208850 DATA 250,24,165,203,105,40,133,203,144,2,230,204,198,207,208,229,96865 RETURN 9}00 GRAPHICS 7:POKE 708,50:POKE 710,38910 A=USR(R,4,16,40,78,170)915 A=USR(R,4,16,2,78,85)920 A=USR(R,4,54,2,78,85)925 A=U}SR(R,78,16,40,4,85)930 A=USR(R,2,16,40,4,85)935 A=USR(R,2,29,1,78,85)940 A=USR(R,2,42,1,78,85)945 A=USR(R,27,16,40,2,85)}950 A=USR(R,52,16,40,2,85)954 REM #1955 COLOR 0:PLOT 15,6:DRAWTO 15,12:PLOT 15,6:DRAWTO 13,8:PLOT 13,12:DRAWTO 17,12956 RE}M #2957 COLOR 0:PLOT 62,6:DRAWTO 62,8:PLOT 62,6:DRAWTO 66,6958 PLOT 66,6:DRAWTO 66,8:DRAWTO 62,10:DRAWTO 62,12:DRAWTO 66,12}959 REM #3960 COLOR 0:PLOT 114,6:DRAWTO 118,6:DRAWTO 118,12:DRAWTO 114,12:PLOT 118,9:DRAWTO 114,9961 REM #4962 COLOR 0:PL}OT 14,29:DRAWTO 14,32:DRAWTO 18,32:PLOT 18,29:DRAWTO 18,36963 REM #5964 COLOR 0:PLOT 62,29:DRAWTO 66,29:PLOT 62,29:DRAWTO 6}2,32:DRAWTO 66,32:DRAWTO 66,36:DRAWTO 62,36965 REM #2966 COLOR 0:PLOT 114,29:DRAWTO 114,36:DRAWTO 118,36:DRAWTO 118,32:DRAW}TO 114,32967 REM #7968 COLOR 0:PLOT 13,54:DRAWTO 17,54:DRAWTO 17,61969 REM #8970 COLOR 0:PLOT 63,54:DRAWTO 65,54:DRAWTO 6}5,58:PLOT 63,54:DRAWTO 63,58971 PLOT 62,58:DRAWTO 66,58:DRAWTO 66,61:DRAWTO 62,61:DRAWTO 62,58972 REM #9973 COLOR 0:PLOT 1}14,54:DRAWTO 118,54:DRAWTO 118,61:PLOT 114,54:DRAWTO 114,57:DRAWTO 118,57975 FOR J=1 TO 9976 LET Q=GAME(J)978 IF Q<>0 THEN} GOSUB Q979 NEXT J999 RETURN 1000 REM DRAW SQUARES AND CIRCLES1001 A=USR(E,5,9,I1):RETURN 1002 A=USR(E,18,9,I1):RETURN }1003 A=USR(E,30,9,I1):RETURN 1004 A=USR(E,5,33,I1):RETURN 1005 A=USR(E,18,33,I1):RETURN 1006 A=USR(E,30,33,I1):RETURN 100}7 A=USR(E,5,58,I1):RETURN 1008 A=USR(E,18,58,I1):RETURN 1009 A=USR(E,30,58,I1):RETURN 1100 REM DRAW SQUARES AND CIRCLES11}01 A=USR(E,5,9,I2):RETURN 1102 A=USR(E,18,9,I2):RETURN 1103 A=USR(E,30,9,I2):RETURN 1104 A=USR(E,5,33,I2):RETURN 1105 A=U}SR(E,18,33,I2):RETURN 1106 A=USR(E,30,33,I2):RETURN 1107 A=USR(E,5,58,I2):RETURN 1108 A=USR(E,18,58,I2):RETURN 1109 A=USR}(E,30,58,I2):RETURN 2006 POKE 656,2:? " ":GOSUB 46:REM 36 SPACES2200 GOSUB 900:POKE 752,}1:P=INT(RND(0)*2)+12205 POKE 656,1:? " ":REM 36 SPACES2210 IF P=2 THEN POKE 656,1:? " } PLAYER #1 --------APPLE":POKE 656,2:? " PICK A SQUARE ":GOTO 22502220 IF P=1 THEN POKE 656,1:? " PLAYER #2 -------}COOKIE":POKE 656,2:? " PICK A SQUARE ":GOTO 22502250 GET #1,H2260 GOTO 23002300 IF H<49 OR H>57 THEN GOTO 23052302 }GOTO 23102305 POKE 656,2:? "YOU CAN'T TAKE THAT NUMBER, TRY AGAIN":GOSUB 47:FOR J=1 TO 200:NEXT J:? CHR$(125):GOTO 22102310} H=H-482320 IF B(H)=H THEN GOTO 23052330 B(H)=H2340 IF P=2 THEN GOSUB 1000+H:GOTO 24002350 IF P=1 THEN GOSUB 1100+H:GOTO }24002400 IF P=2 THEN GAME(H)=1000+H:TIC(H)=12410 IF P=1 THEN GAME(H)=1100+H:TIC(H)=22420 GOTO 25002500 REM CHECK TO SEE I}F GAME IS OVER2520 IF TIC(1)=1 AND TIC(2)=1 AND TIC(3)=1 THEN GOTO 26002521 IF TIC(1)=1 AND TIC(4)=1 AND TIC(7)=1 THEN GOTO} 26002522 IF TIC(1)=1 AND TIC(5)=1 AND TIC(9)=1 THEN GOTO 26002523 IF TIC(4)=1 AND TIC(5)=1 AND TIC(6)=1 THEN GOTO 2600252}4 IF TIC(7)=1 AND TIC(8)=1 AND TIC(9)=1 THEN GOTO 26002525 IF TIC(2)=1 AND TIC(5)=1 AND TIC(8)=1 THEN GOTO 26002526 IF TIC(}3)=1 AND TIC(6)=1 AND TIC(9)=1 THEN GOTO 26002527 IF TIC(3)=1 AND TIC(5)=1 AND TIC(7)=1 THEN GOTO 26002530 IF TIC(1)=2 AND }TIC(2)=2 AND TIC(3)=2 THEN GOTO 26002531 IF TIC(1)=2 AND TIC(4)=2 AND TIC(7)=2 THEN GOTO 26002532 IF TIC(1)=2 AND TIC(5)=2 }AND TIC(9)=2 THEN GOTO 26002533 IF TIC(4)=2 AND TIC(5)=2 AND TIC(6)=2 THEN GOTO 26002534 IF TIC(7)=2 AND TIC(8)=2 AND TIC(9})=2 THEN GOTO 26002535 IF TIC(2)=2 AND TIC(5)=2 AND TIC(8)=2 THEN GOTO 26002536 IF TIC(3)=2 AND TIC(6)=2 AND TIC(9)=2 THEN }GOTO 26002537 IF TIC(3)=2 AND TIC(5)=2 AND TIC(7)=2 THEN GOTO 26002540 FOR J=1 TO 92550 IF TIC(J)=1 OR TIC(J)=2 THEN CAT=C}AT+12560 NEXT J2570 IF CAT=9 THEN GOTO 27002575 CAT=02576 IF P=1 THEN P=2:GOTO 25802577 IF P=2 THEN P=12580 GOTO 22052}600 REM WINNING BOARD2620 IF P=2 THEN WINS1=WINS1+1:LOSS2=LOSS2+1:? CHR$(125):POKE 656,1:? "PLAYER #1 WINS!!!"2630 IF P=1 T}HEN WINS2=WINS2+1:LOSS1=LOSS1+1:? CHR$(125):POKE 656,1:? "PLAYER #2 WINS!!!"2640 GOSUB 120002650 GOTO 30002700 CAT=02710 }? CHR$(125):POKE 656,1:? "CATS GAME--NOBODY WINS":SOUND 0,100,6,10:SOUND 1,137,4,102715 FOR J=1 TO 100:NEXT J:SOUND 0,0,0,0:}SOUND 1,0,0,0:FOR J=1 TO 500:NEXT J2720 GOTO 30003000 REM PRINT OVERALL TEAM SCORES FOR GAME3010 GRAPHICS 0:POKE 710,194:P}OKE 752,13055 POSITION 15,4:INV$="TOTAL GAMES":GOSUB 60003060 POSITION 5,7:? "PLAYER #1 HAS WON ";WINS1;" AND LOST ";LOSS1}3070 POSITION 5,9:? "PLAYER #2 HAS WON ";WINS2;" AND LOST ";LOSS23080 FOR JJJ=1 TO 70:NEXT JJJ3110 POSITION 15,12:? "DO YOU} WISH TO "3120 POSITION 6,15:? "1) PLAY AGAIN -SAME PLAYERS"3130 POSITION 6,17:? "2) PLAY AGAIN -NEW PLAYERS"3140 POSITIO}N 6,19:? "3) QUIT"3150 GET #1,H3160 IF H<49 OR H>51 THEN GOSUB 47:POSITION 6,19:? " ":GOTO 31503170 IF H=49 THEN GOTO 3200}3180 IF H=50 THEN RUN 3190 IF H=51 THEN GOTO 40003200 REM CLEARE ARRAYS3210 FOR J=1 TO 9:GAME(J)=0:TIC(J)=0:B(J)=0:NEXT J}3220 GOTO 22004000 GRAPHICS 0:END 5000 FOR INV=1 TO LEN(INV$):PUT #6,ASC(INV$(INV))+128:NEXT INV:RETURN 6000 FOR INV=1 TO} LEN(INV$):? CHR$(ASC(INV$(INV))+128);:NEXT INV:? :RETURN 12000 REM WINNING SOUND12010 FOR J=1 TO 40:SOUND 0,150-J,10,8:SOU}ND 1,137+J-5,10,8:SOUND 2,100-J*2,10,8:SOUND 3,75-J,10,812020 NEXT J12030 FOR J=0 TO 3:SOUND J,0,0,0:NEXT J12040 RETURN 3}0000 FOR J=180 TO 80 STEP -7:SOUND 0,J,6,10:SOUND 1,J,10,2:NEXT J30020 SOUND 0,0,0,0:SOUND 1,0,0,030040 J=INT(RND(0)*50)+17}:FOR JJ=1 TO J:NEXT JJ:RETURN UND 0,J,6,10:SOUND 1,J,10,2:NEXT J30020 SOUND 0,0,0,0:SOUND 1,0,0,030040 J=INT(RND(0)*50)+1710 REM ************************20 REM * *30 REM * T I M E T R I A L *40 REM * } *50 REM ************************60 CLR 70 GRAPHICS 1880 POKE 559,090 POSITION 5,1:? #6;"ԪɪͪŪ":POSITION 5,3:? #6;"}Ҫɪ"100 POSITION 1,6:? #6;"best score ":POSITION 1,8:? #6;"last score "110 GR18H=PEEK(561):GR18L=PEEK(560)}120 POKE GR18H*256+GR18L+15,2:POSITION 0,10:? #6;" PRESS TRIGGER TO PLAY"130 REM 140 RESTORE 150:DIM VBI$(391):FOR} J=1 TO 391:READ A:VBI$(J,J)=CHR$(A):NEXT J150 DATA 173,136,6,208,53,206,135,6,208,43,169,50,141,135,6,206,97,6,173,97,6,201},16,240,13,176,26,169,25160 DATA 141,97,6,206,96,6,56,176,15,173,96,6,201,16,208,8,169,1,141,136,6,56,176,5,173,131,6,208,3,}76,98170 DATA 228,201,1,208,14,169,2,206,133,6,240,7,162,1,142,133,6,208,235,168,136,206,132,6,162,6,254,110180 DATA 6,189,}110,6,201,26,208,9,169,16,157,110,6,202,24,144,237,136,208,229,173,132,6,48,15,141,5,212190 DATA 173,134,6,240,193,169,0,141},134,6,240,72,24,105,8,141,132,6,141,5,212,169,1,141,134,6,173,79,6200 DATA 141,81,6,173,78,6,141,80,6,173,74,6,141,79,6,173},73,6,141,78,6,162,66,189,5,6,157,8,6,202,189,5210 DATA 6,157,8,6,202,202,208,239,173,81,6,141,8,6,173,80,6,141,7,6,76,98,22}8,173,78,6,133,207,173,79,6220 DATA 133,208,160,39,169,64,145,207,136,16,251,173,130,6,240,62,16,30,206,129,6,173,10,210,48,}12,173230 DATA 129,6,201,2,240,5,169,70,56,176,86,169,0,141,130,6,169,71,56,176,76,238,129,6,173,10,210,48,12240 DATA 173,1}29,6,201,26,240,5,169,67,56,176,56,169,0,141,130,6,169,68,56,176,46,173,10,210,201,80,144250 DATA 5,169,65,56,176,34,74,144,}17,173,129,6,201,2,240,241,169,255,141,130,6,169,69,56,176,14,173,129260 DATA 6,201,26,240,224,169,1,141,130,6,169,66,172,12}9,6,145,207,24,105,7,170,152,24,105,10,168,138,145270 DATA 207,136,162,9,169,0,145,207,136,202,208,250,173,10,210,162,3,74,1}76,20,202,208,250,41,15,240,13280 DATA 201,10,176,9,24,109,129,6,168,169,79,145,207,76,98,228290 REM 300 REM 310 REM 320} RESTORE 330:DIM SET$(70):FOR J=1 TO 70:READ A:SET$(J,J)=CHR$(A):NEXT J330 DATA 104,169,0,133,203,133,205,173,244,2,133,204,}165,106,56,233,24,133,106,133,206,162,8,160,0,177,203,145340 DATA 205,200,208,249,230,204,230,206,202,208,242,230,206,230,20}6,230,206,162,5,169,0,160,0,145,205,200350 DATA 208,251,230,206,202,208,246,160,0,162,0,169,7,76,92,228360 VBI=ADR(VBI$):VB}H=INT(VBI/256):VBL=VBI-VBH*256:SET$(63,63)=CHR$(VBL):SET$(65,65)=CHR$(VBH)370 POKE 1672,1:A=USR(ADR(SET$))380 C=PEEK(106):P}OKE 756,C:DC=C*256+512:RESTORE 390:FOR J=DC TO DC+119 STEP 2:READ A:POKE J,A:POKE J+1,A:NEXT J390 DATA 85,85,85,85,96,96,96,}96,86,88,96,96,86,88,96,128,96,96,96,128,128,96,96,96,128,96,88,86400 DATA 96,96,88,86,37,37,37,37,2,9,37,37,2,9,37,149,37,3}7,37,149,149,37,37,37,149,37,9,2,37,37,9,2410 RESTORE 420:FOR J=DC+120 TO DC+127:READ A:POKE J,A:NEXT J420 DATA 12,63,252,2}52,255,255,60,0430 REM 440 RESTORE 450:FOR J=1536 TO 1541:READ A:POKE J,A:NEXT J450 DATA 112,112,112,66,84,6460 DH=PEEK(1}06)+16:DL=0470 FOR J=1542 TO 1605 STEP 3:POKE J,100:POKE J+1,DL:POKE J+2,DH:GOSUB 480:NEXT J:GOTO 500480 DL=DL+40:IF DL>255} THEN DL=DL-256:DH=DH+1490 RETURN 500 POKE 1608,68:GOSUB 480:POKE 1609,DL:POKE 1610,DH510 POKE 1611,65:POKE 1612,0:POKE 16}13,6520 GOSUB 480:POKE 1614,DL:POKE 1615,DH530 POKE 712,6:POKE 708,22:POKE 709,12:POKE 710,0540 RESTORE 550:DIM ROAD$(60):}FOR J=1 TO 60:READ A:ROAD$(J,J)=CHR$(A):NEXT J550 DATA 104,165,106,24,105,16,133,213,169,0,133,212,162,25,160,39,169,64,145,}212,136,16,251,160,14,169560 DATA 65,145,212,200,169,0,145,212,200,192,24,144,249,169,72,145,212,202,240,13,169,40,24,101,21}2,133570 DATA 212,144,215,230,213,176,211,96580 RESTORE 590:DIM GAME$(274):FOR J=1 TO 274:READ A:GAME$(J,J)=CHR$(A):NEXT J}590 DATA 104,169,180,141,195,2,169,0,141,136,6,173,136,6,240,1,96,173,120,2,174,138,6,240,8,206,138,6,74600 DATA 74,24,144,3}6,74,176,16,174,131,6,224,5,240,9,238,131,6,174,147,6,142,138,6,74,176,14,174,131,6610 DATA 240,9,206,131,6,174,147,6,142,13}8,6,174,131,6,240,73,74,176,15,162,255,142,140,6,174,137,6,224620 DATA 47,144,3,206,137,6,74,176,15,162,1,142,140,6,174,137,}6,224,198,176,3,238,137,6,169,25,141,147,6630 DATA 173,139,6,240,27,206,139,6,169,40,141,147,6,24,144,2,144,134,173,137,6,10}9,140,6,141,137,6,169640 DATA 6,24,144,2,169,0,141,3,210,174,131,6,189,141,6,141,0,210,174,137,6,142,0,208,142,2,208,232,142}650 DATA 1,208,173,97,6,201,21,208,5,162,0,142,3,208,172,131,6,190,148,6,160,40,234,136,208,252,202,208660 DATA 247,173,4,2}08,13,5,208,74,176,24,74,176,21,162,1,142,154,6,74,144,166,169,10,141,139,6,169,0,141670 DATA 30,208,24,144,153,174,154,6,24}0,17,162,0,142,131,6,160,200,234,136,208,252,202,208,247,142,154680 DATA 6,142,139,6,142,30,208,232,142,131,6,162,25,142,138},6,24,144,201690 PM=PEEK(106)+8:POKE 54279,PM:PM=PM*256:POKE 53277,3700 POKE 623,1710 RESTORE 720:FOR J=1 TO 14:READ A:POK}E PM+1135+J,A:NEXT J720 DATA 28,127,247,247,255,99,99,99,227,255,255,247,127,62730 RESTORE 740:FOR J=1 TO 14:READ A:POKE PM}+1391+J,A:NEXT J740 DATA 0,0,1,1,1,0,0,0,1,1,1,1,0,0750 RESTORE 760:FOR J=1 TO 14:READ A:POKE PM+1647+J,A:NEXT J760 DATA 0},0,8,8,0,28,28,28,28,0,0,8,0,0770 RESTORE 780:FOR J=1 TO 6:READ A:POKE J+PM+1835,A:NEXT J780 DATA 2,7,7,7,7,2790 POKE 704,}14:POKE 705,14:POKE 706,50800 DIM LAST$(5),BEST$(5):BEST$="00000"810 POKE 559,62:GOTO 960820 POKE 707,50830 RESTORE 840:F}OR J=1620 TO 1660:READ A:POKE J,A:NEXT J840 DATA 0,0,0,0,0,0,0,52,41,45,37,0,22,16,0,0,0,0,0,36,41,51,52,33,46,35,37,0,16,16},16,16,16,0,0,0,0,0,0850 DATA 0,0860 RESTORE 870:FOR J=1665 TO 1689:READ A:POKE J,A:NEXT J870 DATA 14,0,0,0,1,0,1,1,120,1,}0,0,150,120,100,90,82,76,0,2,160,140,120,100,80880 A=USR(ADR(ROAD$)):SOUND 0,0,0,0:POKE 53761,200:POKE 53760,150:POKE 53762,}0890 POKE 560,0:POKE 561,6:POKE 53251,180:POKE 53248,120:POKE 53249,121:POKE 53250,120900 FOR J=1 TO 200:NEXT J910 A=INT(R}ND(1)*200+200):FOR J=1 TO A:NEXT J:IF STICK(0)<>15 THEN 910920 A=INT(RND(1)*200+100):FOR J=1 TO A:NEXT J930 A=USR(ADR(GAME$}))940 FOR J=1 TO 5:LAST$(J,J)=CHR$(160+PEEK(J+1647)):NEXT J:IF LAST$>BEST$ THEN BEST$=LAST$950 POSITION 13,8:? #6;LAST$:POS}ITION 13,6:? #6;BEST$960 POKE 53761,0:POKE 53763,0:FOR J=1 TO 400:NEXT J:FOR J=0 TO 3:POKE J+53248,0:NEXT J970 POKE 53278,0}980 POKE 561,GR18H:POKE 560,GR18L990 IF STRIG(0)=1 THEN 9901000 POKE 77,01010 GOTO 82032000 REM DATA CHECK ROUT32002 RE}STORE 150:T=0:FOR J=1 TO 391:READ A:T=T+A:NEXT J:IF T<>42354 THEN ? "DATA ERROR-LINE 150 TO 280",T32003 RESTORE 330:T=0:FOR }J=1 TO 70:READ A:T=T+A:NEXT J:IF T<>10903 THEN ? "DATA ERROR-LINE 330 TO 350",T32004 RESTORE 390:T=0:FOR J=1 TO 74:READ A:T=}T+A:NEXT J:IF T<>5957 THEN ? "DATA ERROR-LINE 390 TO 450",T32005 RESTORE 550:T=0:FOR J=1 TO 60:READ A:T=T+A:NEXT J:IF T<>828}8 THEN ? "DATA ERROR-LINE 550 TO 570",T32006 RESTORE 590:T=0:FOR J=1 TO 274:READ A:T=T+A:NEXT J:IF T<>30778 THEN ? "DATA ERR}OR-LINE 590 TO 680",T32007 RESTORE 720:T=0:FOR J=1 TO 114:READ A:T=T+A:NEXT J:IF T<>4531 THEN ? "DATA ERROR-LINE 720 TO ???"},TLINE 590 TO 680",T32007 RESTORE 720:T=0:FOR J=1 TO 114:READ A:T=T+A:NEXT J:IF T<>4531 THEN ? "DATA ERROR-LINE 720 TO ???"10 REM **TRAFFIC PANIC20 REM **WRITTEN BY CLIFF McCONNELL30 REM **ALL REMS ME BE OMITTED60 DIM S(5),N(5),X1(5),Y1(5),X2(5)},Y2(5)110 TOP=PEEK(740):PMBASE=(TOP-8)*256:START=(TOP-12)*256:POKE 106,TOP:POKE 0,PMBASE/256:GRAPHICS 0115 POKE 106,TOP-3:G}RAPHICS 0:POKE 106,TOP-5:CHSET=(TOP-14)*256120 VBLANK=START:DLI=START+604:USER=START+645130 FOR K=0 TO 5:X1(K)=0:Y1(K)=0:X2}(K)=0:Y2(K)=0:NEXT K140 GRAPHICS 17150 POSITION 6,5:? #6;"TRAFFIC":POSITION 7,7:? #6;"panic"210 GOTO 510300 REM PAGE 6 DA}TA310 DATA 0,0,0,0,28,28,62,62,255,255,255,66,0,0,0,0,1,130,3,132,5,134,133,153,173,193311 DATA 248,12,32,52,142,162,182,20}2,239,3,23,43,151,171,191,211,230,250,14,34,11,15,2,8,7,14312 DATA 0,0,0,24,24,60,60,126,66,66,126,60,60,24,24,0,0,0,0,24,24 },60,36,102,102,102313 DATA 102,36,60,24,24,0,0,0,0,24,24,60,60,126,66,66,126,60,60,24,24,0,0,24,24,60314 DATA 60,126,66,66, }126,60,60,24,24,0,0,0,100,-1400 REM ML410 DATA 169,4,141,128,6,162,3,189,22,6,157,0,208,202,16,247,173,139,6,240,3,76,95,22 }8,198,207411 DATA 208,53,165,208,133,207,160,18,177,88,201,16,208,6,169,25,145,88,208,27,56,233,1,145,88,201412 DATA 16,208 },26,136,177,88,201,16,208,19,169,1,141,139,6,141,140,6,76,95,228,136,177,88,56,233413 DATA 1,145,88,162,5,189,16,6,41,112,74 },74,74,74,133,203,189,16,6,41,15,24,125,46,6,157414 DATA 46,6,201,16,144,7,41,15,157,46,6,230,203,138,10,10,168,24,105,4,133},204,189,16,6,48415 DATA 16,185,22,6,24,101,203,153,22,6,200,196,204,208,242,240,14,185,22,6,56,229,203,153,22,6416 DATA 20}0,196,204,208,242,202,16,175,173,131,6,208,127,173,137,6,208,31,173,16,208,208,84,169,1,141417 DATA 138,6,173,0,211,106,106,}106,176,5,162,0,142,138,6,106,176,5,162,2,142,138,6,238,137,6418 DATA 173,137,6,201,21,176,5,206,133,6,208,12,238,133,6,201,}40,208,5,169,0,141,137,6,173,132419 DATA 6,24,109,138,6,56,233,1,141,132,6,201,48,176,3,238,132,6,201,210,144,3,206,132,6,16}9420 DATA 1,208,63,173,0,211,106,106,106,176,27,206,132,6,173,132,6,201,48,176,3,238,132,6,206,130421 DATA 6,208,7,169,3,14}1,130,6,208,32,208,38,106,176,35,238,132,6,173,132,6,201,210,144,3,206422 DATA 132,6,206,130,6,208,17,169,3,141,130,6,208,2,}208,81,173,135,6,73,1,141,135,6,173,0423 DATA 211,106,176,83,173,131,6,208,33,174,129,6,189,116,6,205,132,6,208,12,169,0,141},134,6,169424 DATA 1,141,131,6,208,10,189,122,6,205,132,6,208,47,240,234,206,133,6,238,134,6,206,136,6,208425 DATA 13,169,4},141,136,6,173,135,6,73,1,141,135,6,173,134,6,201,32,208,100,169,0,141,131,6426 DATA 141,135,6,238,129,6,24,144,86,106,176,8}3,173,131,6,208,44,174,129,6,240,73,202,189,116,6427 DATA 205,132,6,208,20,142,129,6,169,32,141,134,6,169,2,141,135,6,169,1,}141,131,6,208,10,189428 DATA 122,6,205,132,6,208,36,240,226,206,136,6,208,13,169,4,141,136,6,173,135,6,73,1,141,135429 DATA} 6,238,133,6,206,134,6,208,8,169,0,141,131,6,141,135,6,173,135,6,10,10,10,10,170,165430 DATA 0,24,105,3,133,204,169,0,133,20}3,169,15,133,205,172,133,6,189,52,6,145,203,200,232,198,205431 DATA 16,245,173,132,6,141,4,208,56,233,2,141,5,208,56,233,2,1}41,6,208,56,233,2,141,7,208432 DATA 162,0,173,133,6,205,141,6,240,4,141,141,6,170,142,0,210,232,142,2,210,169,168,141,1,210}433 DATA 141,3,210,76,95,228,72,138,72,174,128,6,189,22,6,141,0,208,189,23,6,141,1,208,189,24434 DATA 6,141,2,208,189,25,6,1}41,3,208,232,232,232,232,142,128,6,104,170,104,64,104,169,0,141,139435 DATA 6,173,133,6,201,34,176,6,169,1,141,139,6,96,173,}9,208,24,109,10,208,24,109,140,6,240436 DATA 230,141,139,6,96,0,-1440 REM CHARACTER SET DATA442 DATA 255,165,255,0,0,0,0,0}444 DATA 99,127,127,99,99,127,127,99446 DATA 255,165,255,99,99,127,127,99448 DATA 0,12,30,63,63,30,12,0450 REM DATA FOR C }ARS460 DATA 28,28,62,62,255,255,255,66470 DATA 56,56,124,124,255,255,255,66510 TRAP 1020520 REM READ IN PAGE 6 DATA1010 !}FOR T=1536 TO 9999:READ A:POKE T,A:NEXT T1020 TRAP 15201030 REM READ IN ML1510 FOR T=START TO START+9999:READ A:POKE T,A:N"}EXT T1520 POKE 54279,PMBASE/256:POKE 53277,3:POKE 559,62:POP 1524 FOR T=0 TO 511:POKE CHSET+T,PEEK(57344+T):NEXT T1527 FOR#} T=0 TO 31:READ A:POKE CHSET+24+T,A:NEXT T1530 FOR K=40 TO 227 STEP 64:RESTORE 460:FOR T=0 TO 7:READ A:POKE PMBASE+1024+K+T,$}A:POKE PMBASE+1280+K+T,A1540 POKE PMBASE+1536+K+T,A:POKE PMBASE+1792+K+T,A:NEXT T:NEXT K1550 FOR K=72 TO 227 STEP 64:RESTOR%}E 470:FOR T=0 TO 7:READ A:POKE PMBASE+1024+K+T,A:POKE PMBASE+1280+K+T,A1560 POKE PMBASE+1536+K+T,A:POKE PMBASE+1792+K+T,A:NE&}XT T:NEXT K3010 POKE 704,202:POKE 705,122:POKE 706,74:POKE 707,250:POKE 623,16:POKE 708,108:POKE 709,172:POKE 710,1503015 P'}OKE 711,543020 DL=PEEK(560)+256*PEEK(561):FOR K=8 TO 24 STEP 4:POKE DL+K,PEEK(DL+K)+128:NEXT K:POKE 756,CHSET/2563030 FOR T(}=2 TO 22 STEP 4:POSITION 0,T:? #6;"####################":NEXT T3040 HI=INT(VBLANK/256):POKE 54286,0:POKE 547,HI:POKE 546,VBL)}ANK-256*HI:HI=INT(DLI/256):POKE 513,HI3050 POKE 512,DLI-256*HI:SC=0:HS=SC:LEVEL=1:POKE 54281,CHSET/2564000 REM WAIT FOR STA*}RT/SELECT4010 POP :POP :POSITION 1,3:? #6;"press start/select"4015 POSITION 6,5:? #6;"TRAFFIC":POSITION 7,7:? #6;"panic"40+}20 POSITION 0,0:? #6;"score:";SC4022 POSITION 0,1:? #6;"high score:";HS4025 POSITION 12,0:? #6;"level";LEVEL;" "4030 IF P,}EEK(53279)=6 THEN 70104035 IF PEEK(53264)=0 THEN 70104040 IF PEEK(53279)<>5 THEN 40304050 LEVEL=LEVEL*(LEVEL<9)+1:POSITION-} 17,0:? #6;LEVEL:POSITION 13,3:? #6;"SELECT"4060 IF PEEK(53279)=5 THEN 40604070 POSITION 13,3:? #6;"select":GOTO 40307000 .}REM PRESSED START7010 POSITION 7,3:? #6;"START"7020 IF PEEK(53279)=6 THEN 70207030 POSITION 1,3:? #6;" ":/}SC=0:POSITION 6,0:? #6;SC;" ":POSITION 12,0:? #6;" "7110 STAGE=LEVEL:MEN=3:POSITION 6,5:? #6;" "7115 POSITION0} 6,7:? #6;"STAGE ";STAGE:POKE 77,07120 FOR K=0 TO 5:S(K)=8+STAGE*2.5+5-K+128*(INT(K/2)=K/2)7130 NEXT K7135 FOR K=0 TO 5711}40 IF Y1(K)=0 THEN 71507145 POSITION X1(K),Y1(K):? #6;"#":FOR T=1 TO 3:IF Y1(K)+T>23 THEN 71487146 LOCATE X1(K),Y1(K)+T,A:I2}F A<39 THEN POSITION X1(K),Y1(K)+T:? #6;" "7148 NEXT T7150 IF Y2(K)=0 THEN 71607155 POSITION X2(K),Y2(K):? #6;"#":FOR T=1 3}TO 3:IF Y2(K)+T>23 THEN 71587156 LOCATE X2(K),Y2(K)+T,A:IF A<39 THEN POSITION X2(K),Y2(K)+T:? #6;" "7158 NEXT T7160 NEXT K4}7170 FOR K=0 TO 5:N(K)=STAGE*(STAGE<5)+4*(STAGE>4)-1:NEXT K7190 FOR K=0 TO 23:POKE 1558+K,0:NEXT K7210 FOR T=0 TO 5:N=0:FO5}R K=0 TO N(T):POKE 1558+T*4+K,N:N=N+25+INT(RND(0)*39):NEXT K:NEXT T7310 FOR K=0 TO 5:POKE 1552+K,S(K):NEXT K7320 POP :POP 6}7510 FOR L=0 TO 5:HPOS=56+8*INT(RND(0)*18):GOSUB 200107520 POKE 1652+5-L,HPOS-1:X1(L)=X:Y1(L)=Y:NEXT L7530 FOR L=0 TO 5:POK7}E 1658+5-L,0:IF RND(0)<0.3 THEN HPOS=56+8*INT(RND(0)*18):GOSUB 20010:POKE 1658+5-L,HPOS-17540 X2(L)=X:Y2(L)=Y:NEXT L8030 FO8}R X=6 TO 13:LOCATE X,7,A:IF A>38 THEN A=328040 POSITION X,7:PUT #6,A:NEXT X9030 FU=500:POSITION 12,0:? #6;"time ";FU:POKE 29}07,50:POKE 208,5010010 FOR T=PEEK(1669) TO PEEK(1669)+14:POKE PMBASE+768+T,0:NEXT T10015 POKE 1668,100:POKE 1669,22510020 :}POKE 1673,0:POKE 1665,0:POKE 1667,0:POKE 1676,010030 POSITION 17,0:? #6;FU:COLOR 13410060 FOR K=1 TO MEN:PLOT 16+K,1:NEXT K;}10070 IF MEN<3 THEN POSITION 17+MEN,1:? #6;" ";11010 POKE 1675,1:POKE 53278,0:POKE 54286,192:A=USR(USER):SOUND 0,0,0,0:SOUN<}D 1,0,0,011020 IF PEEK(53257)+PEEK(53258)+PEEK(1676)>0 THEN 1301012000 REM **END OF STAGE12510 STAGE=STAGE+1:K=PEEK(88)+25=}6*PEEK(89):K=(PEEK(K+17)-16)*10+PEEK(K+18)-16:K=K*1012530 FOR FU=K TO 0 STEP -10:SC=SC+10*STAGE:POSITION 6,0:? #6;SC:POSITIO>}N 17,0:? #6;FU;:IF FU<100 THEN ? #6;" ";12550 SOUND 0,70,10,1012560 FOR K=0 TO 5:NEXT K:SOUND 0,0,0,0:NEXT FU12570 POSITIO?}N 17,0:? #6;" ";12610 GOTO 711513000 REM PLAYER DIED13010 MEN=MEN-1:POSITION 17+MEN,1:? #6;" "13020 FOR T=0 TO 15:SOUND 0@},255-T*17,10,10:POKE PMBASE+768+PEEK(1669)+T,0:FOR K=0 TO 3:NEXT K:NEXT T13100 IF MEN>0 THEN 1001013110 POSITION 5,12:? #6;A}"game over":IF SC>HS THEN HS=SC13120 FOR K=1 TO 150:NEXT K:POSITION 5,12:? #6;" ":GOTO 401020000 REM 20010 X=(HPOSB}-56)/8:Y=2+(L*4)20020 POSITION X,Y:? #6;"%":FOR T=1 TO 3:IF Y+T<24 THEN POSITION X,Y+T:? #6;"$"20030 NEXT T20040 RETURN 3C}2000 GOTO 3200020020 POSITION X,Y:? #6;"%":FOR T=1 TO 3:IF Y+T<24 THEN POSITION X,Y+T:? #6;"$"20030 NEXT T20040 RETURN 35 REM EEN GOOCHELTRUUKJE DOOR FRANK BEMELMAN6 REM REMBRANDTPLEIN 82 2162 ED LISSE10 REM DIT PROGRAMMA DRUKE}T EEN AANTAL GOOCHELKAARTJES AF WAAR11 REM DIVERSE GETALLEN OP STAAN. MEN LAAT DE TOESCHOUWER EEN12 REM GETAL KIEZEN F}VAN 1 T/M 63. VERVOLGENS VRAAGT MEN AAN13 REM DE TOESCHOUWER OP WELKE VAN DE KAARTJES DIT GETAL VOORKOMT.14 REM VAN EG}LK KAARTJE WAAROP HET GETAL VOORKOMT, TELT U DE EERSTE15 REM CIJFERS BIJ ELKAAR OP. HET TOTAAL VAN DEZE CIJFERS IS HET16H} REM GETAL WAT DE TOESCHOUWER IN GEDACHTEN HAD GENOMEN.17 REM IN FEITE BERUST DEZE TRUUK OP HET BINAIRE GETALSTELSEL, I}EEN18 REM GETALSTELSEL DIE UW COMPUTER ZEER NA AAN HET HART LIGT.19 REM20 REM NOG EEN TIP:21 REM HET BESTE KUJ}NT U DE UITGEPRINTE KAARTJES AAN BEIDE ZIJDEN22 REM BEPLAKKEN MET BOEKLON (ZELFKLEVEND TRANSPARANT PLASTIC)23 REM DANK} BLIJVEN DE KAARTJES NETJES, OOK ALS HET VOOR DE 100STE24 REM KEER DEMONSTREERT. SUCCES VERZEKERD !25 REM HOEWEL 6 KAL}ARTJES (HOOGSTE GETAL 63) HET LEUKSTE RESULTAALT26 REM GEEFT, KUNT U DE WAARDE 'Q' IN REGEL 100 NAAR SMAAK AANPASSEN27 M} REM HET PROGRAMMA DRUKT AUTOMATISCH HET GOEDE AANTAL KAARTJES AF,28 REM MET DE JUISTE NUMMERS DAAROP.29 REM30 RN}EM OM DE KAARTJES OP UW PRINTER TE VERKRIJGEN KUNT U ALLE31 REM PRINTOPDRACHTEN IN LPRINT VERANDEREN.100 Q=63 : REM TOO}ESCHOUWER KIEST NUMMER VAN 1 T/M 63110 DIM N(Q) : DIM Z(Q)120 FOR P=1 TO Q : Z(P)=P : NEXT P130 REM BEPAAL AANTAL KAP}ARTJES140 K=1 : G=2150 K=K+1 : G=G*2 :IF G=(F-0.5) THEN Z(P)=Z(P)-F :N(P)=1210 NEXT P220 C=0230 FOR P=1 TOR} Q240 IF C=8 THEN C=0 : PRINT250 IF N(P)=1 THEN PRINT P;" "; :C=C+1 :IF P<10 THEN PRINT " ";260 NEXT P270 PRINT:PS}RINT:PRINT280 NEXT L : PRINT250 IF N(P)=1 THEN PRINT P;" "; :C=C+1 :IF P<10 THEN PRINT " ";260 NEXT P270 PRINT:P10 REM Programma om tekst files van disk op 1020 te printen.20 REM Evenals de 1020 alleen voor mensen met!U} geduld.30 REM augustus 1986 Rob v.d.Heijden.40 REM dimensioneren50 CLR :POKE 65,060 DIM DIR$(30),NAME$(12),FILE$(16)70 !V}DIM TEKST$(FRE(0)-3000)80 REM hoofdmenu90 POKE 622,2:GRAPHICS 0:POSITION 7,2:? "1020-TEKSTFILES"100 POSITION 5,4:? "1.DIRE!W}CTORY DRIVE1"110 POSITION 5,6:? "2.FILE LADEN"120 POSITION 5,8:? "3.FILE IN DELEN OP SCHERM OF":POSITION 7,9:? "PRINTER."1!X}30 POSITION 5,11:? "4.PRINTEN HEEL DOKUMENT"140 POSITION 5,13:? "5.STOPPEN"150 CLOSE #2:OPEN #2,4,0,"K:":GET #2,A:A=A-48:IF!Y} A<1 OR A>5 THEN 150160 ON A GOTO 180,230,400,680,700170 REM directory halen180 TRAP 180190 CLOSE #2:OPEN #2,6,0,"D:*.*"!Z}200 TRAP 210:FOR A=1 TO 64:INPUT #2,DIR$:? DIR$:NEXT A210 CLOSE #2:TRAP 40000:? :? :? "NAAR MENU ":OPEN #![}2,4,0,"K:":GET #2,A:GOTO 90220 REM file halen230 TRAP 240240 ? CHR$(125):POSITION 2,5:? "TYPE NAAM VAN TE LADEN FILE"250 !\}INPUT NAME$260 FILE$="D:":FILE$(3)=NAME$270 ? NAME$;" WORDT NU GELADEN"280 TRAP 240:CLOSE #1:OPEN #1,4,0,FILE$290 TRAP 36!]}0300 POKE 82,0310 N=N+1320 GET #1,A330 TEKST$(N,N)=CHR$(A)340 IF A=155 THEN TELLER=TELLER+1350 GOTO 310360 CLOSE #1:? !^}CHR$(125);"DE FILE IS ";TELLER;" REGELS LANG"370 ? :? " NAAR MENU "380 CLOSE #2:OPEN #2,4,0,"K:":GET #2!_},A:CLOSE #2:TRAP 40000:GOTO 90390 REM 400 IF LEN(TEKST$)<1 THEN FOR N=1 TO 20:? "GEEN FILE GELADEN":NEXT N:GOTO 80410 ? CH!`}R$(125):? " DE TEKST KOMT NU OVER HET SCHERM,"420 ? :? " Door op SELECT te drukkem stopt dat."430 ? :? " Als je op STAR!a}T drukt gaat het verder."440 ? :? " Door bij stilstand OPTION en SELECT"450 ? " in te drukken gaat de pagina"460 ? " na!b}ar de printer."470 ? :? " Je kunt het printen stoppen met OPTION ,START en SELECT."480 ? :? " Voor het menu OPTION indru!c}kken "490 ? :? " VERDER "500 CLOSE #2:OPEN #2,4,0,"K:":GET #2,A:CLOSE #2510 N=1:? CHR$(125)520 ? TEKS!d}T$(N,N);530 IF PEEK(53279)=3 THEN 90540 IF PEEK(53279)=5 THEN 570550 IF NWEBSTER LSTWEERDEC LSTWINDEMO LST690 CLOSE #1:OPEN #1,8,0,"P:":POKE 82,0:? #1;TEKST$:CLOSE #1:GOTO 90700 END 570670 END 680 IF LEN(TEKST$)<1 THEN GOTO 90 O10 GOTO 47020 INPUT #2;A$:B$=A$(11,13):IF A$(8,10)="E S" THEN 10030 IF B$="SYS" OR B$="DAT" OR B$="PT2" OR A$(3,6)="MENU" T%s}HEN 2040 B$=A$(3):A$=B$:POSITION X2,A+3:? CHR$(CH+A);" ";A$:Y2=Y2+1:RETURN 50 POKE 559,0:CLOSE #2:OPEN #2,6,0,"D:*.*":FLAG=%t}060 POKE 559,0:? "} s.a.g. menu ˠ":GOSUB 55070 X2=2:Y2=2:CH=64:FOR A=1 TO 15:%u}GOSUB 20:NEXT A80 X2=21:Y2=2:CH=79:FOR A=1 TO 12:GOSUB 20:NEXT A:CH=37:FOR A=12 TO 15:GOSUB 20:NEXT A:Y2=Y2-190 POSITION 7,%v}22:? "SPACE-BAR is pagina vooruit":FLAG=1:GOTO 110100 POP :IF FLAG=1 THEN POSITION 6,22:? "SPACE-BAR is vorig menu":FLAG=21%w}10 POSITION 9,21:? "*** MAAK JE KEUZE ***":POSITION 0,22:? " ԠˬΠƠ"120 X=0:Y=4:GOSUB 180:POKE%x} 559,46:POKE 54286,192:POKE 764,255130 A=STICK(0):IF A=13 OR PEEK(53279)=5 THEN S=1:GOSUB 180140 IF A=14 OR PEEK(53279)=3 T%y}HEN S=2:GOSUB 180150 IF STRIG(0)=0 OR PEEK(53279)=6 OR PEEK(764)=12 THEN 300160 IF PEEK(764)<>255 THEN GOSUB 240170 GOTO 1%z}30180 Y1=Y:Y=Y+(S=1)-(S=2):POKE 53279,0190 IF Y<4 AND X=0 THEN X=X2-2:Y=Y2+1200 IF Y<4 AND X=19 THEN X=0:Y=18210 IF Y>18 %{}AND X=0 THEN X=X2-2:Y=4220 IF Y>Y2+1 AND X=X2-2 THEN X=0:Y=4230 A=USR(M,0,PMB,PMD,59+76*(X=19),38+(Y-4)*4,2):RETURN 240 GE%|}T #1,A:IF A=32 AND FLAG=1 THEN 60250 IF A=32 OR A=27 THEN 50260 IF A>64 AND A<80 THEN X=0:Y=A-61:GOTO 300270 IF A>79 AND A%}}<91 THEN X=19:Y=A-76:GOTO 300280 IF A>48 AND A<53 THEN X=19:Y=A-34:GOTO 300290 GOTO 130300 B$=" "310 FOR A=X%~}+1 TO X+12:LOCATE A+3,Y,Z:B$(A-X,A-X)=CHR$(Z):NEXT A:IF B$(1,1)=" " THEN 130320 POKE 559,0:A$="D1:":A$(4)=B$:B$=A$(12,14):IF%} A$(12,12)=" " THEN 350330 A$(12,12)=" ":FOR A=2 TO 13:IF A$(A,A)=" " THEN A$(A,A)=".":A$(A+1)=B$:POP :GOTO 350340 NEXT A3%}50 GRAPHICS 0:GOSUB 550:POKE 709,14:POKE 710,130:POKE 53248,0:POSITION 13,10:? A$:POSITION 13,8360 ? "aan het laden...";:OPE%}N #3,4,0,A$:GET #3,A:GET #3,B:IF A=0 AND B=0 THEN RUN A$370 IF A=255 AND B=255 THEN 410380 IF A<47 OR A>58 THEN RUN 390 ? %}"(ENTERING)":POSITION 0,15:? "NEW":? :? :? "ENTER";CHR$(34);A$:? :? :? "GR.0:POKE 842,12:RUN"400 POSITION 0,13:POKE 842,13:S%}TOP 410 ? "BINARY)":? " BASIC UITSCHAKELEN? (XL/XE)";:GET #1,A:CLOSE #2:CLOSE #3:? "":POSITION 27,9420 CLOSE #1:OPEN #1%},4,0,A$:IF A<>78 THEN ? "(BASIC UIT)";:GOTO 460430 IF A<>78 THEN ? "(BASIC UIT)";:GOTO 160440 ? "(BASIC AAN)";450 X=USR(55%}76):RUN 460 X=USR(ADR("hji jL")):RUN 470 GRAPHICS 0:POKE 559,0:GOSUB 550:DIM A$(100),B$(56):DL=PEEK(560)+256*PEEK%}(561):OPEN #1,4,0,"K:"480 A=ADR("HH ԍнhh@h \`Lb %}  ")490 X=USR(ADR("hhhhhhhϠˑ͈ ˑ͈ˑ`"),A,1664,100):X=USR(1693)500 FOR N=DL+7 TO DL+%}27:POKE N,130:NEXT N:POKE DL+3,70:POKE DL+6,6510 POKE 712,7:POKE 710,2:POKE 709,123:POKE 704,204:POKE 752,1:POKE 82,0:POKE 5%}12,128:POKE 513,6:POKE 53277,3520 M=ADR("hhhhihhhhhhhhheхϦiͥiѐϰԊˤԑ%}եН`")530 PMB=INT((PEEK(145)+3)/4)*4:POKE 54279,PMB:PMB=PMB*256:PMD=ADR("00"):GOTO 50540 GRAPHICS 0:GOSUB 550:%}POKE 53248,0:POSITION 10,10:? "ERROR #";PEEK(195);" (DRUK OP RETURN)";:GET #1,K:RUN 550 POKE 16,64:POKE 53774,64:TRAP 540:R%}ETURN 248,0:POSITION 10,10:? "ERROR #";PEEK(195);" (DRUK OP RETURN)";:GET #1,K:RUN 550 POKE 16,64:POKE 53774,64:TRAP 540:R$5 REM VIER OP EEN RIJ10 DIM NAME1$(8),NAME2$(8),NAME$(8)20 DIM LINE(7)30 FOR I=1 TO 7:LINE(I)=6:NEXT I40 DIM TAB(7,6)50 )}FOR I=0 TO 7:FOR J=0 TO 6:TAB(I,J)=0:NEXT J:NEXT I80 FOR I=1 TO 7:LINE(I)=6:NEXT I90 GO=1100 GRAPHICS 2110 POSITION 8,5:?)} #6;CHR$(180):FOR I=1 TO 50:NEXT I:POSITION 5,5:? #6;CHR$(180)115 FOR I=1 TO 99:NEXT I:POSITION 8,4:? #6;CHR$(180):FOR I=1 T)}O 99:NEXT I:POSITION 7,5:? #6;CHR$(180)120 FOR I=1 TO 99:NEXT I:POSITION 8,3:? #6;CHR$(180):FOR I=1 TO 99:NEXT I:POSITION 8,)}2:? #6;CHR$(180)125 FOR I=1 TO 99:NEXT I:POSITION 7,4:? #6;CHR$(52):FOR I=1 TO 99:NEXT I:POSITION 7,3:? #6;CHR$(180)130 FOR)} I=1 TO 99:NEXT I:POSITION 6,5:? #6;CHR$(180):FOR I=1 TO 99:NEXT I:POSITION 6,4:? #6;CHR$(180)135 POSITION 10,3:? #6;CHR$(11)}8);CHR$(105);CHR$(101);CHR$(114);CHR$(32);CHR$(111);CHR$(112)136 POSITION 10,5:? #6;CHR$(101);CHR$(101);CHR$(110);CHR$(32);C)}HR$(114);CHR$(105);CHR$(106);CHR$(33)138 FOR I=1 TO 300:NEXT I139 ? :? "COMPUTER ALS SPELER IS * ":? 140 POSITION 0,8:? #6)};"NAAM SPELER 1.:":INPUT NAME1$150 POSITION 0,9:? #6;"naam speler 2.:"160 INPUT NAME2$300 GRAPHICS 7305 POKE 559,0310 CO)}LOR 3315 GOSUB 10010320 SETCOLOR 4,0,7325 POKE 559,34330 PLOT 42,9:DRAWTO 42,70:DRAWTO 157,70:DRAWTO 157,9:DRAWTO 43,9:DR)}AWTO 43,69340 PLOT 156,9:DRAWTO 156,70350 FOR Y=10 TO 60 STEP 10360 FOR X=44 TO 140 STEP 16370 PLOT X,Y:DRAWTO X+15,Y:DRA)}WTO X+15,Y+9:DRAWTO X,Y+9:DRAWTO X,Y380 PLOT X+1,Y+1:DRAWTO X+1,Y+8390 PLOT X+14,Y+1:DRAWTO X+14,Y+8400 NEXT X:NEXT Y410 )}FOR C=1 TO 2420 COLOR C:X=(C-1)*14:XP11=X+11430 FOR Y=9 TO 69 STEP 3440 PLOT X,Y:DRAWTO XP11,Y450 PLOT X,Y+1:DRAWTO XP11,)}Y+1460 NEXT Y:NEXT C465 SETCOLOR 3,0,0470 POKE 87,1480 FOR I=1 TO 7:POSITION 4+2*I,1:? #6;CHR$(144+I):NEXT I490 POKE 87,)}7500 IF GO=1 THEN NAME$=NAME1$510 IF GO=2 THEN NAME$=NAME2$520 GOSUB 700530 IF NAME$="*" THEN GOTO 4000540 ? "JOUW BEURT)} ";NAME$550 ? 560 TRAP 620570 INPUT COLNO580 IF COLNO<1 THEN 620590 IF COLNO>7 THEN 620600 IF LINE(COLNO)=0 THEN 62061)}0 TRAP 40000615 GOTO 1000620 ? "VALSSPELER! VAN 1 TOT 7, ";NAME$;"!"630 GOTO 550700 Y=9+CT*3710 X=(GO-1)*14:XP11=X+1172)}0 FOR V=Y-1 TO 7 STEP -1730 COLOR GO:PLOT X,V:DRAWTO XP11,V740 COLOR 0:PLOT X,V+2:DRAWTO XP11,V+2750 NEXT V760 COLOR GO7)}70 FOR V=6 TO 1 STEP -1780 PLOT X,V:DRAWTO X+11,V790 NEXT V800 FOR V=X TO 28810 COLOR GO:PLOT V+12,1:DRAWTO V+12,8820 CO)}LOR 0:PLOT V,1:DRAWTO V,8830 NEXT V840 RETURN 1000 LINE(COLNO)=LINE(COLNO)-11010 Y=11+LINE(COLNO)*101020 X=(COLNO-1)*16+)}461030 FOR V=28 TO X-11040 COLOR GO:PLOT V+12,1:DRAWTO V+12,81050 COLOR 0:PLOT V,1:DRAWTO V,81060 NEXT V1070 FOR V=1 TO )}Y-1:VP8=V+81080 I=VP8-10*INT(VP8/10):IF I<>0 AND I<>9 THEN COLOR GO:PLOT X,VP8:DRAWTO X+11,VP81090 I=V-10*INT(V/10):IF I<>0)} AND I<>9 THEN COLOR 0:PLOT X,V:DRAWTO X+11,V1100 NEXT V1190 TAB(COLNO,LINE(COLNO))=GO1200 WIN=01210 GOSUB 20001220 IF W)}IN=1 THEN GOTO 15001300 IF GO=1 THEN GO=2:GOTO 5001310 IF CT=20 THEN ? "GELIJK SPEL- NIEMAND WINT":GOTO 15101320 GO=1:CT=C)}T+1:GOTO 5001500 ? NAME$;" IS DE WINNAAR"1510 ? :? "NOG EEN SPEL? (J/N)";1520 INPUT NAME$1530 IF NAME$<>"J" AND NAME$<>"N)}" THEN GOTO 15101540 IF NAME$="J" THEN RUN 1550 GRAPHICS 2+161560 ? #6;"TOT ZIENS":? #6;"tot de":? #6;"volgende keer!"157)}0 FOR I=1 TO 1000:NEXT I:END 2000 X=COLNO2010 Y=LINE(X)2020 NO=12100 X=X-12110 IF X=0 THEN GOTO 22002120 SQ=TAB(X,Y)21)}30 IF SQ<>GO THEN GOTO 22002150 NO=NO+12160 IF NO=4 THEN WIN=1:RETURN 2170 GOTO 21002200 X=COLNO2300 X=X+12310 IF X=8 T)}HEN GOTO 24002320 SQ=TAB(X,Y)2330 IF SQ<>GO THEN GOTO 24002350 NO=NO+12360 IF NO=4 THEN WIN=1:RETURN 2370 GOTO 23002400)} X=COLNO:Y=LINE(X):NO=12500 Y=Y+12510 IF Y=6 THEN GOTO 26002520 SQ=TAB(X,Y)2530 IF SQ<>GO THEN GOTO 26002540 NO=NO+1255)}0 IF NO=4 THEN WIN=1:RETURN 2560 GOTO 25002600 X=COLNO:Y=LINE(X):NO=12700 Y=Y+1:X=X-12710 IF X=0 OR Y=6 THEN GOTO 280027)}20 SQ=TAB(X,Y)2730 IF SQ<>GO THEN GOTO 28002740 NO=NO+12750 IF NO=4 THEN WIN=1:RETURN 2760 GOTO 27002800 X=COLNO:Y=LINE()}X)2900 Y=Y-1:X=X+12910 IF X=8 OR Y<0 THEN GOTO 30002920 SQ=TAB(X,Y)2930 IF SQ<>GO THEN GOTO 30002940 NO=NO+12950 IF NO=)}4 THEN WIN=1:RETURN 2960 GOTO 29003000 X=COLNO:Y=LINE(X):NO=13100 Y=Y-1:X=X-13110 IF X=0 OR Y<0 THEN GOTO 32003120 SQ=TA)}B(X,Y)3130 IF SQ<>GO THEN GOTO 32003140 NO=NO+13150 IF NO=4 THEN WIN=1:RETURN 3160 GOTO 31003200 X=COLNO:Y=LINE(X)3300 )}Y=Y+1:X=X+13310 IF X=8 OR Y=6 THEN GOTO 34003320 SQ=TAB(X,Y)3330 IF SQ<>GO THEN GOTO 34003340 NO=NO+13350 IF NO=4 THEN W)}IN=1:RETURN 3360 GOTO 33003400 RETURN 4000 COLNO=14002 IF LINE(COLNO)=0 THEN 40304004 LINE(COLNO)=LINE(COLNO)-14006 TAB)}(COLNO,LINE(COLNO))=GO4010 GOSUB 20004016 TAB(COLNO,LINE(COLNO))=04018 LINE(COLNO)=LINE(COLNO)+14020 IF WIN=1 THEN GOTO 1)}0004030 COLNO=COLNO+14040 IF COLNO<8 THEN GOTO 40024100 STCOL=GO4200 IF GO=1 THEN GO=2:GOTO 42204210 GO=14220 COLNO=14)}222 IF LINE(COLNO)=0 THEN GOTO 42504224 LINE(COLNO)=LINE(COLNO)-14226 TAB(COLNO,LINE(COLNO))=GO4230 GOSUB 20004236 TAB(CO)}LNO,LINE(COLNO))=04238 LINE(COLNO)=LINE(COLNO)+14240 IF WIN=1 THEN GO=STCOL:GOTO 10004250 COLNO=COLNO+14260 IF COLNO<8 TH)}EN GOTO 42224300 GO=STCOL4400 COLNO=INT(RND(1)*7)+14410 IF LINE(COLNO)=0 THEN GOTO 44004500 GOTO 10005000 END 10010 DLI)}ST=PEEK(560)+PEEK(561)*256+410020 POKE DLIST-1,70:POKE DLIST+2,610030 I=310040 DLHI=PEEK(DLIST+I+6)10045 RETURN 10050 PO)}KE DLIST+I,PEEK(DLIST+I+6)10060 IF DLHI=PEEK(561) THEN RETURN 10070 I=I+110080 IF I>100 THEN STOP 10090 GOTO 10040050 PO(w600 REM DIT PROGRAMMA MAAKT HET OBJECT FILE.610 DIM A$(100)620 TRAP 900630 RESTORE 640 REM OPEN THE FILE FOR OUT-PUT OR A-}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$-}(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 OPEN-} #1, 8,0,"D8:TRICKY.OBJ"1000 DATA FFFF00387F6C70707047143807070707070707070707074100382020202044415645202620524F424-}94E20202020202020201010 DATA 2020204F424C4144202020202020202020202020202050524553454E545320202020202020202020202020202020202-}020201020 DATA 202020202020202020202A2A2A2A2A2A2A2A2A2A2A2A20202020202020202A2020545249434B5920202A20202020202020201030 DAT-}A 2A2020545241434B5320202A20202020202020202A2A2A2A2A2A2A2A2A2A2A2A202020202020434F4D504C494D454E5453201040 DATA 4F4620202020-}20202041544152492053494720414E4420202020202020414E544943204D4147415A494E45202020205452491050 DATA 47474552204558495453204445-}4D4F20FFFFA9008D3002A9388D3102A9E08DF402A9228D2F02AD0BD4C901D0F9AD0BD4D0FB1060 DATA A2F0BD133838E9209D1338CAD0F4A9008D08D2A9-}038D0FD2A00AA23CAD0BD4C901D0F9AD0BD4C901F0F9CAD0EF88D0EA4C0A1070 DATA 6A0000000000000000000000000000000000000000000000000000-}00000000000000000000000000000000000000000000001080 DATA 00000000000000000000000000000000000000000000000000000000000000000000-}000000000000000000000000000000001090 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000000000000-}0000000000000000001100 DATA 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}00001110 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001120 DATA-} 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001130 DATA 0000000000000-}0000000000000000000000000000000000000000000000000000000000000000000000000000000000000001140 DATA 000000000000000000000000000-}00000000000000000000000000000000000000000000000000000000000000000000000001150 DATA 00000000000000000000000000000000000000000-}000000000000000000000000000000000000000000000000000000000001160 DATA 0000000000000000000000000000000000000000000000000000000-}0000000000000000000000000000000000000000000001170 DATA 000000000000000000000000000000000000000000000000000000000000000000000-}00000000000000000000000000000001180 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000-}000000000000000001190 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}0001200 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001210 DATA -}00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001220 DATA 00000000000000-}000000000000000000000000000000000000000000000000000000000000000000000000000000000000001230 DATA 0000000000000000000000000000-}0000000000000000000000000000000000000000000000000000000000000000000000001240 DATA 000000000000000000000000000000000000000000-}00000000000000000000000000000000000000000000000000000000001250 DATA 00000000000000000000000000000000000000000000000000000000-}000000000000000000000000000000000000000000001260 DATA 0000000000000000000000000000000000000000000000000000000000000000000000-}0000000000000000000000000000001270 DATA 000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}00000000000000001280 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}001290 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001300 DATA 0-}0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001310 DATA 000000000000000-}00000000000000000000000000000000000000000000000000000000000000000000000000000000000001320 DATA 00000000000000000000000000000-}000000000000000000000000000000000000000000000000000000000000000000000001330 DATA 0000000000000000000000000000000000000000000-}0000000000000000000000000000000000000000000000000000000001340 DATA 000000000000000000000000000000000000000000000000000000000-}00000000000000000000000000000000000000000001350 DATA 00000000000000000000000000000000000000000000000000000000000000000000000-}000000000000000000000000000001360 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}0000000000000001370 DATA 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}01380 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001390 DATA 00-}000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001400 DATA 0000000000000000-}0000000000000000000000000000000000000000000000000000000000000000000000000000000000001410 DATA 000000007070F042A048C2C848C2F0-}4847184907070707870707078742E049410040202053434F52453120303030303020201420 DATA 20545249434B59202020414444555020203030303030-}2020202053434F524532203030303030202020545241434B532020201430 DATA 4D494E55532020303030303020200214070A080AFF071308130202FF00-}0401040204030504050505060507040804FF0103051440 DATA 07090B0D0F11292B2D2F313335373951535557595B5D5F61797B7D7F8183858789A1A3A5-}A7A9ABADAFB1F3C1A27960513C001450 DATA 907960483C2F2300A2806C5140352800B690795B483C2D00020103020103020100131427283B3C4F506364-}77788B8C9FA0B31460 DATA B4C7000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}1470 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001480 DATA 000-}00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001490 DATA 00000000000000000-}000000000000000000000000000000000000000000000000000000000000000000000000000000000001500 DATA 0000000000000000000000000000000-}0000000000000000000000000000000000000000000000000000000000000000000001510 DATA 000000000000000000000000000000000000000000000-}00000000000000000000000000000000000000000000000000000001520 DATA 00000000000000000000000000000000000000000000000000000000000-}000000000000000000000000000000000000000001530 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000-}0000000000000000000000000001540 DATA 000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}00000000000001550 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000-}1560 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001570 DATA 0000-}0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001580 DATA 000000000000000000-}00000000000000000000000000000000000000000000000000000000000000000000000000000000001590 DATA 00000000000000000000000000000000-}000000000000000000000000000000000000000000000000000000000000000000001600 DATA 0000000000000000000000000000000000000000000000-}0000000000000000000000000000000000000000000000000000001610 DATA 000000000000000000000000000000000000000000000000000000000078-}787878787878001E1E1E1E1E1E1E7878787878781620 DATA 78001E1E1E1E1E1E1E00007F7F7F7F00000000FEFEFEFE0000000000007F7F7F7F00000000-}FEFEFEFE0000787878780000001630 DATA 001E1E1E1E00000000000078787878000000001E1E1E1E000078787C7C7E7F7F001E0E06020000807F7F7F7F-}7F7F7F00C0E01640 DATA F8FEFEFEFE00007F7F7F7F7F7F7F00FEFEFEFEF8E0C07F7F7E7C7C78780080000002060E1E00007F7F7F7F1F070300FEFEFE1-}650 DATA FEFEFEFE0100004060707800FEFE7E3E3E1E1E000078706040000001001E1E3E3E7EFEFE03071F7F7F7F7F00FEFEFEFEFEFE1660 DATA FE000-}078787C7C1E0703001E0E06020000800100004060707800C0E0783E3E1E1E000078706040000001001E1E3E3E78E0C01670 DATA 03071E7C7C787800800-}00002060E1E00007F7F7F7F7F7F7F00FEFEFEFEF8E0C07F7F7E7C7C787800A050A8562E1E1E00007F1680 DATA 7F7F7F1F070300FEFEFEFEFEFEFE050A1-}56A74787800FEFE7E3E3E1E1E000078787C7C7E7F7F001E1E2E56A850A07F7F7F7F1690 DATA 7F7F7F00C0E0F8FEFEFEFE00007878746A150A05001E1E3-}E3E7EFEFE03071F7F7F7F7F00FEFEFEFEFEFEFE00FFFFFFFFFFFF1700 DATA FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF-}FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF1710 DATA FFFFFFFFFFFFFFFF00000018180000000000182424180000003C424242423C003C428181818-}1423C8046C046A046C046C0461720 DATA 0047C046E04680460047A046E04620478047C046C046C0460048C047C046C046C04640476047A047C046C046E-}047204780471730 DATA 40476047A0470048C047E047C0460048C047C046C046C0464047604720478047C046C046A047C046C046E047C046C046C04617-}40 DATA C046C046C046C046C046C046C046C046C04600010001000100010001000100010001000100010001000100010001000100011750 DATA 00FF00-}FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF0000000000000000000000000000000000001760 DATA 00000000000000000000.}000000000100010001000100010001000100010001000100010001000100010001000100FF00FF001770 DATA FF00FF00FF00FF00FF00FF00FF00FF00FF.}00FF00FF00FF00FF00FF00000100010100000100010100000101000001000101001780 DATA 0100000101000100010000FF00FFFF0000FF00FFFF0000FF.}FF00FF0000FFFF00FF0000FFFF00FF00FF0001000100000101001790 DATA 010000010100010000010100000100010100000100010001FF00FF0000FFFF.}00FF0000FF00FFFF0000FFFF0000FF00FFFF001800 DATA 00FF00FF00FF00010001FF0000010001FF00FF010001FF000001FF00FF000001FF00FF00FF00.}00FF00FF00FF010000FF00FF1810 DATA 0100000000FF0100010000FF01000100010001000100010000FF0100010000FF010000FF01FF010000FF00FF01.}0000FF00FF1820 DATA 00FFFF00FF00FF000001FF00FF0000010000FF0000010001FF000001000100010001404142434445464748494A4B4C4D4E4F183.}0 DATA 505152535455565758595A5B5C5D5E5F000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F20211840 DATA 2223242.}5262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F606162636465666768696A6B6C6D6E6F707172731850 DATA 7475767778797A7B7C7D7.}E7F00000000000000000000000000000000000000000000000000000000000000000000000000001860 DATA 00000000000000000000000000000000000. }000000000000000000000000000000000000000000000000000000000000000001870 DATA 0000000000000000000000000000000000000000000000000. }0000000000000000000000000000000000000000000000000001880 DATA 000000000000000000000000000000000000000000000000000000000000000. }00000000000000000000000000000000000001890 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000. }000000000000000000000001900 DATA 0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000. }0000000001910 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000001920.} DATA 00000000000000000000000000000000000000000000AD0BD4D0FBAD0AD4A200CAD0FDA9008D00D48D1DD08D0ED28D0ED48D1930 DATA 08D2A23F.}A9FF9DA045CAD0F89DA045A9008D02D4A9408D03D48D07D4A9C48D2202A94C8D2302A9CA8D0002A94B8D0102A9E01940 DATA 8D09D4208A4AA90085B7A9.}1185B520C766A9008D08D08D09D08D0AD08D0BD0A9048D1BD0A9038D1DD0A92E8D00D4A9C08D0E1950 DATA D460A000BE1E40BD204899A048BE4640BD20.}4899C848A93C99F04899E049C898C928D0E0A9808DBD4AA9418DBE4AA900A2801960 DATA A0038DFFFFEEBD4ACAD0F7EEBE4A88D0F1A95985B9A2C8A9FF.}9D1749CAD0F8A00AA9FC9D18499D2B498A186914AA88D0F0A91970 DATA 348D71498D72498D85498D8649A2648E1949E88E1A49E88E2D49E88E2E49A2B0.}8EC949E88ECA49E88EDD49E88EDE49A2A88E1980 DATA 2949E88E2A49E88E3D49E88E3E49A26C8EB949E88EBA49E88ECD49E88ECE49A5B2C900D00BA96E.}85B3A94085B44C654BC9011990 DATA D00BA97585B3A94085B44C654BA97C85B3A94085B4A000B1B30A0A85B0E6B3D002E6B4B1B385B1E6B3D002E6B4A5.}B0C9FCD02000 DATA 0160A005AD0AD2AA38E92CB0F7BD8F40AABD1849C9FFF01488D0E9A000B98F40AABD1849C9FFF004C84C9F4BA5B09D1849182010 .}DATA 69019D194969019D2C4969019D2D49C6B1D0BD4C654B488A48AD0BD4C96BD0034C984CC917D0034C424CC91BD0034C6D4CC92020 DATA 0FD0034C1.}74CA9448D09D4A9CA45BA8D16D0A93845BA8D17D0A95845BA8D18D0A97E45BA8D19D0A97045BA8D1AD04CC04CA92030 DATA E08D09D4A9CA45BA8D16D0A.}93A45BA8D17D0A93245BA8D18D0A97E45BA8D19D0A97045BA8D1AD04CC04CA9448D09D4A9CA452040 DATA BA8D16D0A97E45BA8D17D0A97045BA8D18D0A.}97E45BA8D19D0A97045BA8D1AD04CC04CA9448D09D4A9CA45BA8D16D0A998452050 DATA BA8D17D0A9F845BA8D18D0A97E45BA8D19D0A97045BA8D1AD04.}CC04CA9448D09D4A9CA45BA8D16D0A97E45BA8D17D0A970452060 DATA BA8D18D0A97E45BA8D19D0A97045BA8D1AD068AA6840A5BD2903F0034C324DA20.}0BDE045A8BDE8459DE045BDF0459DE845BD2070 DATA F8459DF045989DF845E88AC908D0E0AD0AD2293FAA38E928B0F5AD0AD22903093C9DF048AD0AD22.}93FAA38E928B0F5AD0AD22080 DATA 2903093C9DE049AD0AD2291FAA38E914B0F5BDE440AAAD0AD2290309FC9D1849A5B8C901D050A5B7D064AD00D3490.}F290F852090 DATA B7A91185B520CC4FA5D8F003204F67E6BDA5BFC980F006E6BED002E6BFA5D8D00EA9008D01D28D03D28D05D28D07D2A92E8D2100 D.}ATA 00D4A9038D1DD0A9008D08D268A868AA6840A5B7D014AD00D349F04A4A4A4A290F85B7A91185B54C494DA5B5C911F0034C942110 DATA 4EA6B9A5B7.}2902F01585B78AC929F075C939F07138E928906C85B34C364EA5B72901F01985B78AC979F05AC989F05638E9A02120 DATA B0518A18692885B34C364EA5. }B72904F01E85B78AC90FF03BC939F037C961F033C989F02FC9AFF02BE8E886B34C364EA5B7292130 DATA 08F01E85B78AC903F017C929F013C951F00FC9.!}79F00BC9A3F007CACA86B34C364EA90085B785B54C494DA6B9A9389D1849A92140 DATA 399D1949A93A9D2C49A93B9D2D49A6B3BD184985B0182A2A2A8D."}7C4EA94469008D7D4EA6B3A9349D1849A9359D1949A9369D2150 DATA 2C49A9379D2D49A200A020BD7B4E9DA045E888D0F6C6B5A220A9FF9DBF45CAD0F8.#}4C494DA5B7C901D0034C4D4FC902D0034C2160 DATA 924FC904D0034C1A4FC908D0034CE74EA6B3A9349D18499D19499D2C499D2D49A6B9A4B0989D1849.$}C8989D1949C8989D2C492170 DATA C8989D2D49A5B385B94C2D4EC6B5F0CE4C494DA20020F44EA21020F44E4CE04EA008A9FF6ABDA0456A9DA045BDA845.%}6A9DA82180 DATA 45BDC0456A9DC045BDC8456A9DC845E888D0DD60A20020274FA21020274F4CE04EA008A9FF2ABDA8452A9DA845BDA0452A9D2190 DA.&}TA A045BDC8452A9DC845BDC0452A9DC045E888D0DD60A200AD9F4548BDA0459D9F45E88AC940D0F4ADCF458DC745ADD7458DCF2200 DATA 45AD9F458DD.'}745ADA7458DDF45ADAF458DA745ADB7458DAF45A9FF8DB7458DBF45688D9F454CE04EA23FBD9F459DA045CAD02210 DATA F7ADD0458DD845ADC8458DD04.(}5ADC0458DC845ADB8458DC045ADB0458DB845ADA8458DB045A9FF8DA0458DA8454CE04EA5C52220 DATA 2980F0034C0751A5D3F00160A6C0A9009DFE419.)}DFF419D00429D0142A6CA9D7E429D7F429D80429D8142A6CD9DFE429DFF422230 DATA 9D00439D0143A6D09D7E439D7F439D80439D8143A5C685C8A5C78.*}5C9A5C038E91C4A4A4A85C6A5C138E9294A4A4A85C7A9002240 DATA 18A6C6E8CAF00569144C365065C7AABDC56A85DDBD1849293C85C338E93390034CB.+}250A5C5D02BA5C838E5C6F0109007A9042250 DATA 85C44C8450A90085C44C8450A5C938E5C7F00D9007A90285C44C8450A90685C4A5C30A1865C4AABD0.,}0468DA2508DAB50BD012260 DATA 468DA3508DAC50A5C50AAABD00401865C185C1E8BD00401865C085C0A220BD5E419D6041BD5F419D6141CACAD0F0A5C.-}08D602270 DATA 41A5C18D6141A5D0C5C0D009A5D1C5C1D0034CFB50AD664185CAAD674185CBAD6C4185CDAD6D4185CEAD724185D0AD7341852280 DAT..}A D1E6C5A5C5C910D004A90085C5A5C52980F01BA6C0A9069DFE419D0142A90F9D00429DFF41A6C1E88E00D04C8451A6C0A9092290 DATA 9DFE419D0142./}A9069D00429DFF41A6C1E88E00D0A6CAA90F9D7E429D81429D80429D7F42A6CBE88E01D0A6CDA90F9DFE429D2300 DATA 01439D00439DFF42A6CEE88E02.0}D0A6D0A9069D7E439D8143A90F9D80439D7F43A6D1E88E03D0A5C045C129780A090785C2A52310 DATA CA45CB29780A090785CCA5CD45CE29780A090785.1}CFA5D045D129780A090785D2A5C245BA8D12D0A5CC45BA8D13D0A5CF45BA2320 DATA 8D14D0A5D245BA8D15D0A5C0C91EF015C96CF011A5C1C932F00BC9.2}C0F007A5C3C934F00660A90185D360A98085D3607070702330 DATA 470852700770070707700770077007700741F151202020545249434B592020545241.3}434B532020202020202020202853454C2340 DATA 4543542920202020202020545249432D544F592D5452414320202031202020484F4D452D52554E2D54.4}5241432020312032202350 DATA 204C4F4F502D4954592D54524143202031203220202020202020284F5054494F4E29202020202020202045415359204D.5}45442360 DATA 49554D20484152442020205055534820535441525420544F20504C41592053504143454241522047495645532052554C45532370 DATA.6} 454E44AD0852F018A200BD0852A8B920489D0852E88AC9B4D0F0A90085B285BBAD0BD4D0FBAD0AD4A9008D0ED48D00D48D1D2380 DATA D08D08D28D0ED.7}2A9F18D02D4A9518D03D4A9008D00D08D01D08D02D08D03D08D01D28D03D28D05D28D07D2A9E08D09D4A9532390 DATA 8D2202A94D8D2302A9CE8D16D0A.8}9868D17D0A9168D18D0A93A8D19D0A9208D1AD0A9038D1DD0A92E8D00D4A9C08D0ED4A93F2400 DATA 85B0A9C085B1A20EA00320C15FA98085B1A208A01.9}A20C15FA208A06A20C15FA212A08DA98085B120C15FA94085B1A214A0A02410 DATA 20C15F4C8A53A5BBC900F013C901F020C902F02DC903F042C904F04.:}F4C0B5420E35FA90085B1A212A02920C15F4C0B5420E32420 DATA 5FA90085B1A210A03D20C15F4C0B5420E35FA90085B1A20EA03D20C15FAD5652293F8.;}D56524C0B5420E35FA90085B1A210A02430 DATA 5120C15F4C0B5420E35FA90085B1A20EA05120C15FAD6A52293F8D6A52A90085BE85BFA5B2F017C901F.<}024C902F0314C56542440 DATA A94085B1A210A07A20C15F60201A54A90085B1A204A07A20C15F4C5654201A54A90085B1A206A07F20C15F4C5654201A5.=}4A92450 DATA 0085B1A204A08620C15F20D85F20D05FD013A5BFC980D0034C0A6AAD09D2C921D0EB4CEF5FC901F02FC902F007C904F0154C2460 DATA .>}5654E6BBA5BBC905F0034C8A53A90085BB4C8A53E6B2A5B2C903F0034C8A53A90085B24C8A534C01612020205055534820522470 DATA 455455524E204B.?}455920544F2052455455524E20544F204D454E5520212020202020202020202020202020202020202020202480 DATA 2020202020202020202020202020.@}2020202020202020202020545249432D544F592D545241432069732073696D706C7920612490 DATA 20707261637469636520202020206C6576656C2074.A}6F20656E6A6F79206372656174696E6720696E746572657374696E67202500 DATA 20202020747261636B206C61796F75747320666F7220536B7574746C.B}6562756720746F2072756E2E202020202020202020202510 DATA 2020202020202020202020202020202020202020202020202020202020202020202020.C}5468657265206973206E6F2074696D2520 DATA 65206C696D6974206F722070726573737572652020202020616E64206E6F2073636F72696E67206F6620.D}636F757273652E202530 DATA 202020202020202020202020202020596F75206D61792072656C656173652074686520536B7574746C6562756720617420.E}202540 DATA 20202020616E792074696D65206279207573696E6720746865206A6F79737469636B202020202020202020207472696767652550 DATA 7.F}220627574746F6E2E204966206974206372617368657320696E746F202020202020616E797468696E672C2061206E6577202560 DATA 747261636B20776.G}96C6C206265206D6164652E202020202020202020202020202020202020202020202020202020202020202570 DATA 20202020202020202020202020202.H}05573696E6720746865206F7074696F6E20627574746F6E2077696C6C2073656E6420202580 DATA 20202020796F75206261636B20746F20746865206F7.I}074696F6E206D656E752E202020202020202020202020205573696E672590 DATA 2074686520737461727420627574746F6E2077696C6C206D616B65202.J}0202020202061206E65772072616E646F6D207472612600 DATA 636B206C61796F75742E202020202020202020202020202020202020202020202020202.K}020202020202020202020202020202610 DATA 20202020202020202020202020202044656D6F206D6F64652077696C6C206E6F742061637469766174652.L}06F6E20202020202620 DATA 2020202074686973206C6576656C2C20686F7765766572207468652073637265656E20202020202020202020636F6C6F727.M}32630 DATA 2077696C6C207368696674207769746820746865206D757369632020202020202020746F2070726F7465637420796F7572202640 DATA 74.N}656C65766973696F6E207365742E202020202020202020476F6F64206C75636B202620686176652066756E2120202020202650 DATA 2020202020202020.O}202020202020505553482052455455524E204B455920544F2052455455524E20544F204D454E552120202660 DATA 202020202020202020202020202020.P}202020202020202020202020202020202020202020202020202020202020546865206F2670 DATA 626A656374206F6620484F4D452D52554E2D54524143.Q}20697320746F202020202020637265617465206120706174682066722680 DATA 6F6D20536B7574746C6562756773202020202020202020206F70656E69.R}6E6720706F736974696F6E20746F2074686520666C2690 DATA 617368696E672020202020202020636F726E657220696E20746865206C6561737420616D.S}6F756E74206F662074696D652E202700 DATA 202020202054776F20706C617965722067616D657320726571756972657320626F74682020202020202020.T}206A6F797374692710 DATA 636B732E2055736520746865206A6F79737469636B7320746F20202020202020202073686966742074686520547269636B79.U}2720 DATA 20547261636B2074696C657320616E6420202020202020207768656E20746865207061746820697320636F6D706C657465202730 DATA 707.V}57368207468652020202020206A6F79737469636B207472696767657220627574746F6E20746F2072656C6561736520202740 DATA 20202020746865205.W}36B7574746C656275672E20546872656520726F756E6473206F66202020202020202020696E637265612750 DATA 73696E6720646966666963756C74792.X}0636F6D706C657465206F6E6520202020202067616D652E204561636820726F756E642760 DATA 206973206F766572207768656E2074686520202020202.Y}02062756720637261736865732C2066726965732C2072657475726E2770 DATA 7320746F202020202020202020206F70656E696E6720706F73697374696.Z}F6E2C206F7220636F6D706C6574657320697473202780 DATA 20202020676F616C2E2053636F72696E672069732063616C63756C6174656420626173656.[}4202020202020206F6E20686F772790 DATA 206D7563682074696D6520796F7520726571756972656420202020202020202020207375627472616374656.\}42066726F6D202800 DATA 74686520736B696C6C20706F696E747320202020202020206761696E656420647572696E6720536B7574746C656275677320.]}2810 DATA 72756E2E2020202020202020202031303020706F696E747320666F7220656163682074696C6520746F75636865642E2020202820 DATA 2020.^}202031303020657874726120666F72206120646F75626C652074696C6520746F7563682E2020202020203130302065782830 DATA 74726120666F722072._}6563726F7373696E672073616D6520706174682E202020202035303020657874726120666F722065612840 DATA 636820636F726E657220746F75636865.`}642E202020202020505553482052455455524E204B455920544F2052455455524E202850 DATA 544F204D454E5521202020202020202020202020202020.a}2020202020202020202020202020202020202020202020202020202860 DATA 2020202020546865206F626A656374206F66204C4F4F502D4954592D5452.b}414320697320746F2020202020206372656174652870 DATA 206120706174682066726F6D20536B7574746C6562756773202020202020202020206F7065.c}6E696E6720636F726E657220742880 DATA 6F2074686520666C617368696E6720202020202020202020636F726E657220616E642072657475726E20746F.d}206F70656E692890 DATA 6E6720636F726E65722E202020202054776F20706C617965722067616D657320726571756972657320626F746820202020202.e}900 DATA 202020206A6F79737469636B732E2055736520746865206A6F79737469636B7320746F2020202020202020207368696674202910 DATA 74686.f}520547269636B7920547261636B2074696C657320616E6420202020202020207768656E2074686520706174682069732920 DATA 20636F6D706C6574652.g}070757368207468652020202020206A6F79737469636B207472696767657220627574746F6E20746F2930 DATA 2072656C6561736520202020202074686.h}520536B7574746C656275672E20546872656520726F756E6473206F6620202020202940 DATA 20202020696E6372656173696E6720646966666963756C7.i}47920636F6D706C657465206F6E6520202020202067616D652E202950 DATA 4561636820726F756E64206973206F766572207768656E207468652020202.j}020202062756720637261736865732C206672692960 DATA 65732C206F7220636F6D706C65746573202020202020202069747320726F756E64207472697.k}02E20202020202020202020202970 DATA 20202020202020202020202020202053636F72696E672069732063616C63756C61746564206261736564206F6.l}E20202020202980 DATA 20202020686F77206D7563682074696D6520796F752068617665207573656420284D494E555329202020202073756274726129.m}90 DATA 637465642066726F6D2074686520736B696C6C20706F696E747320202020202020206761696E656420647572696E6720536B3000 DATA 757474.n}6C65627567732072756E2E2020202020202020202031303020706F696E747320666F7220656163682074696C6520743010 DATA 6F75636865642E202020.o}2020202031303020657874726120666F72206120646F75626C652074696C6520746F7563682E20203020 DATA 2020202031303020657874726120666F72.p}20726563726F7373696E672073616D6520706174682E20202020203530302065783030 DATA 74726120666F72206561636820636F726E657220746F7563.q}6865642E202020FFFFB9085225B005B1990852C8CAD0F260AD1F3040 DATA D02907490760A20020D05FD0F9CAD0F860A94085B1A23EA02920C15F60AD0B.r}D4D0FB8D00D48D1DD0204A60A5BBD00DA9A18D3050 DATA 02D4A9608D03D44C2D60C901D00DA9C18D02D4A9608D03D44C2D60C902F0EFA9E18D02D4A960.s}8D03D4A92E8D00D4A9038D1D3060 DATA D0A5BFC980D0034C0A6AAD09D2C90CD0F04CBF52ADA754F02FA9A78D60608D6B60A9548D61608D6C60ADA754C9.t}FFF018AABD3070 DATA 20488DA754EE6060EE6B60D0EAEE6160EE6C604C5F60A6B2E8A5BB85B1E6B1A9001865B1CAD0FB0A0A0A0A09088D17D0490A308.u}0 DATA 8D18D08D1AD06070707042A754020202020202020202020202020202020202020202020241A160707070423F5802020202023090 DATA 0202020.v}2020202020202020202020202020241C16070707042FF5B02020202020202020202020202020202020202020202023100 DATA 41E16020D85FA90085BE8.w}5BF85BCA5BBF0034CBD6120084A20D85FA90185B8A5BDC5BDF0FC20D05FC901F0D72906F0034CBF3110 DATA 52AD10D02901D00CA5C52980F006A5C5297.x}F85C5A5C52980F012A5BD4A2907490709A08D01D2AD0AD28D00D2A5C5298005D83120 DATA 05D305BDD00BA98185D8A5BA18691085BAA5B5C910D010A5C.y}52980F00AA90985D8A90085BE85BFA5BFC980D011A5C52980F03130 DATA 0BA5BA18691085BAA94085BFA5D3D0034C1D61C980F007A94185D84CB661A92.z}185D8A5D8D0FC4C0161E6BCA5BCC907D007A93140 DATA 0085BC4C5D66C901D00DA205A9109D47419D4D41CAD0F7A205A9109D53419D5941CAD0F7A5BB2.{}901F00425BCF0C9A5BC29013150 DATA 85B820084AA205BD47419DA848BD4D419DD048CAD0F1A5C085D9A5C185DAA200BD8766C5C0D00ABD8866C5C1D00.|}34C50628A3160 DATA 186908AA4C1862060704050203000102030001060704050405060700010203000000080810108A4A4A4A85DEA6BCBD4962183170.}} DATA 65DEAABD316285DD0A0A0AAABD876685DBBD886685DCA206A5B8F00EBDA14809809DA148CAD0F54C9162BDC94809809DC9483180 DATA CAD0F5A9.~}0185BDA5BDC5BDF0FCA5BDD0034C35634A4A4A4AAABD24638D00D2A5BD290F490F4A09A08D01D2A5BD2980D008A53190 DATA DE20CF624C9562A5DD20CF.}624C95624AC900D011AD7A4C29F085B1A5BD290F05B18D7A4C60C901D011AD814C29F085B1A5BD3200 DATA 290F05B18D814C60C902D011AD004C29F085.}B1A5BD290F05B18D004C60C903D0FBADF94B29F085B1A5BD290F05B18DF94B603210 DATA 0000002D2D2D3535354435445B00000000AD7A4C29F009088D.}7A4CAD814C29F009088D814CADF94B29F009088DF94BAD004C3220 DATA 29F009088D004CA9008D01D285BD85BE85BF85B1A2FF9D206CCAD0FA9D206CA2.}06A5DD85DEA5BDC5BDF0FCA5BD4A290749073230 DATA 09A08D01D2AD0AD28D00D220D05F2901F0034C016120D05FF0034CBF52A5B5C911F00CA90085BE.}85BFA5C5298085B1A5BFC93240 DATA 80D0034C0A6AA5B1F024A5BD2901F01EA205FE5941BD5941C91AD012A9109D5941CAD0EEA205A9199D5941CAD0F8.}A205BD593250 DATA 419DE848CAD0F7A5B5C910D004A90985D8A5C52980F015A5B84901AABD10D02901D006A5C5297F85C54C7B6385B1A5DDC5DE3260 .}DATA F032A200A000A5DDDD206CD001C8BD206CF003E8D0F0984A29FFD018A5DD9D206C85DEA5D8090585D898C901D006A5D809033270 DATA 85D8AD0AD.}2292085B60A05B60A85B6AD0AD22901AABD206CF026A8B9184945B6991849B9194945B6991949B92C4945B6992C3280 DATA 49B92D4945B6992D49E8E84.}C6564A5C0C5D9D00CA5C1C5DAD006A90085D985DAA5C0C5DBD00CA5C1C5DCD006A90085DB85DC3290 DATA A5BBC901F007C902F0034CCF64A5DBF007A5D.}9F0104CDD644CFA64A5D905DBF0F7A5D9D004A98085D3A5D3D0034C7B63C9803300 DATA D00BA92185D8A5D8D0FC4C5266A94185D84CEC64A91185D8A98.}085C5A90085B1A6B1BD206CF003E8D007E6B1D0F24CAE65DD3310 DATA 206CF037E8D0F8208E65206B65A6B1BD206CA8A9009D206CB91849293F991849B.}91949293F991949B92C49293F992C49B92D3320 DATA 49293F992D494C1065208E65A6B1BD206CAABD1849293CC908D0BA208E654C1F65A6B1BD206CC90.}1F00DC911F009C9A1F0053330 DATA C9B1F00160208E65208E65208E65208E6560A203FE5341BD5341C91AD008A9109D5341CAD0EEA205BD53419DC048C.}AD0F7603340 DATA A019A205DE5941BD5941C90FD00A989D5941CAD0EF4CDC65A205DE5341BD5341C90FD0DC989D5341CAD0EF4C5266A5B8C9013350 D.}ATA D038A205DE5341BD5341C90FD00A989D5341CAD0EF4C5266A205FE4741BD4741C91AD008A9109D4741CAD0EEA205BD47419D3360 DATA A848CAD0F7.}4CE265A205DE5341BD5341C90FD00A989D5341CAD0EF4C5266A205FE4D41BD4D41C91AD008A9109D4D41CAD0EE3370 DATA A205BD4D419DD048CAD0F74C.}1A66A90185BDA5BDD0FC4CBD61A90085BD85BE85BFA5D8D004A98185D820D05FC901D0034C013380 DATA 6129FFF0034CBF52A5BFC980D0E14C0A6A2A39.}24010216028E244024010216048F24B328011125048D2AB928011226068E5E3390 DATA B9300812B2068D64B3300911C5008D64402C0902B6008F5E392C.}0802A2028DAD0AD229070A0A0AAABD876685C085CA85CD853400 DATA D0E8BD876685C185CB85CE85D1E8BD876685C3E8BD876685C685C88D6041E8BD87.}6685C785C98D6141E8BD876685B0E8BD873410 DATA 6685C4E8BD876685C5A93885C2A95885CCA99885CFA9F885D2A5B20A0A0A0A0A0A85BAA202A00FAD.}60419D6041AD61419D613420 DATA 41E8E888D0EFA90085D385D685D585D860A5D82980D0034C4868A5D82901F00320DC67A5D5290E4A490785D4D012A9.}0085D53430 DATA E6D6A5D6F0034C5867A90085D860A5D6293FAABD08418D00D2F009A5D409A049011869038D01D2E6D5A5D64A4A290FAA29073440 DA.}TA A8B9DC40C901D012BDF8408D02D2F006A9A005D445D78D03D260C902D00EBDF8408D04D2F002A9A48D05D260BDF8408D06D23450 DATA F002A9A28D0.}7D260201168A220BD07419D2741CAD0F7A208BDF7409DFF40CAD0F7201168A90185D5A90085D68D08D2AD0AD23460 DATA 290785D7A5D829FE85D860AD0.}AD22918C5D5F0F785D5A92085D6AD0AD2290705D5AABDBC40A6D6CA9D08418A4A4AA8AD0AD23470 DATA 290705D5AABDBC4099F840C6D6D0D960A5D8294.}0D0034C9768A5D82901F008A90185BDA94085D8A5BD8D00D28D02D28D04D23480 DATA 8D06D2F017290709208D01D269208D03D269208D05D269208D07D.}260A90085D88D01D28D03D28D05D28D07D260A5D82920D03490 DATA 034CE968A5D82901F00685BDA92085D8A5BDF0284A4A4A4A4A49078D01D28D03D28.}D05D28D07D2A97F8D00D269108D02D2693500 DATA 108D04D269108D06D260A90085D88D00D28D02D28D04D28D06D260A5D82910D0034C2E69A5D82901F.}008A91085D8A90185BD3510 DATA A5BDF0D44A4A4A4AAABDC8698D00D269018D02D2BDD8698D04D269018D06D2A9A88D01D28D03D28D05D28D07D260A5D.}829083520 DATA D0034C5C69A5B5C901D00EA9008D07D2A5D829F785D84C5C69A5B5290FAABDE8698D06D2BDF9698D07D2A5D82904D0034C8D3530 DAT.}A 69A5D82901F004A90F85DFC6DFF00FA5DF09A08D05D2A9208D04D24C8D69A5D829FB85D8A9008D05D2A5D82902D0034CC1693540 DATA A5D82901F004.}A90F85E0C6E0F012A5E00A0A0A8D02D2A5E009A08D03D24CC169A9008D03D2A5D829FD85D8A5D829FE85D8603550 DATA 55660066557272726672665500.}555555444C004C445555554C554C390039393900004020100020283034383C405E5C5A58803560 DATA 8082868E80888786858483828281818020084AA0.}2DB98E40AAB9876A9D18491869019D194969019D2C4969019D2D4988D0E33570 DATA A90020CA66A5C5297F85C5A90085BC85B8AD10D02901D009A90085.}BE85BF4CBF52A5D8D00BA98185D8A5BA18691085BAA5D33580 DATA D0AAA6BCBD8D6BC5C0D0D4BDBE6BC5C1D0CDBDEF6BC9FFD007A90085BC4C3D6ABDEF.}6B85B7E6BC4C3D6A640808081C201C203590 DATA A81C08081C0808080808201C20203408082020081C201C1C2020081C6C08201C201C201CB044415645.}2B524F42494E204F423600 DATA 4C414401010103030505070709090B0B0D0D0F0F11111101010103030505070709090B0B0D0D0F0F1111112929292B2B.}2D2D3610 DATA 2F2F31313333353537373939392929292B2B2D2D2F2F313133333535373739393951515153535555575759595B5B5D5D5F5F3620 DATA.} 61616151515153535555575759595B5B5D5D5F5F6161617979797B7B7D7D7F7F81818383858587878989897979797B7B7D7D3630 DATA 7F7F818183838.}5858787898989A1A1A1A3A3A5A5A7A7A9A9ABABADADAFAFB1B1B1A1A1A1A3A3A5A5A7A7A9A9ABABADADAFAF3640 DATA B1B1B14D51254D44545F485A586.}04424465E512952565A253C3F3A556152354154595B28555E5D604442393953542524342E3650 DATA 3448697C3D49425F78483959787E6B5B596CB986A.}99993899989B48B99B9A9B089998A5D69593A8BB5A9A9A95D733E4379493660 DATA 5A02040801010802010404040408080802010801040401020402040.}2080401080804040801080808020402040801080204FF3670 DATA 000000000000000000000000000000000000000000000000000000000000000000000.}00000000000000000000000000000003680 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000.}000000000E202E3023690 DATA 0639680 DATA 00000000000000000000000000000000000000000000000000000000000000000000000000000000000,!10 GOSUB 700020 GOSUB 710030 GOSUB 760050 LEVEL=LEVEL+180 ON LEVEL GOSUB 85,10000,10100,10200,10300,10400,1900085 POKE 62}56,2:POKE 657,8:? LEVEL90 POKE 53248,XPOS:PD0$(YPOS,YPOS+LEN(SPIDER$))=SPIDER$98 COUNTER=099 REM *** MAIN LOOP START ***12}00 S=STICK(0)110 XPOS=XPOS+4*(S=7)-4*(S=11)144 IF XPOS>XMAX THEN XPOS=XMAX146 IF XPOS0 THEN 400211 REM ** WEBSTER LEAPS212 POKE 53278,0214 VEL=XB3VEL:XB3VEL=VEL/2220 FOR I=YPOS 2}TO YB-4 STEP 4240 PD0$(I,I+LS)=SPIDER$244 SOUND 0,I,10,4246 IF XB3=0 THEN FOR D=1 TO 6:NEXT D:GOTO 250248 GOSUB 830250 N2}EXT I260 HIT=PEEK(53260):IF HIT<>0 THEN GOSUB 1000280 FOR I=YB-4 TO YPOS STEP -4300 PD0$(I,I+LS)=SPIDER$304 SOUND 0,I,10,2}4306 IF XB3=0 THEN FOR D=1 TO 6:NEXT D:GOTO 310308 GOSUB 830310 NEXT I320 SOUND 0,0,0,0322 XB3VEL=VEL399 REM ** BUG 1 M2}OVEMENT400 IF XB1<>0 THEN 430410 X=INT(51*RND(0)-25)414 IF ABS(X)<>1 THEN 500418 XB1=XMIN*(X=1)+MAX*(X=-1)419 XB1VEL=X*X2}B1SPEED424 PD1$(YB,YB+LEN(BUG$))=BUG$430 SOUND 1,30,14,4440 XB1=XB1+XB1VEL442 IF XB1XMAX THEN XB1=0450 POKE2} 53249,XB1490 SOUND 1,0,0,0499 REM ** BUG 2 MOVEMENT500 IF XB2<>0 THEN 530510 X=INT(51*RND(0)-25)514 IF ABS(X)<>1 THEN 62}00518 XB2=XMIN*(X=1)+MAX*(X=-1)519 XB2VEL=X*XB2SPEED524 PD2$(YB,YB+LEN(BUG$))=BUG$530 SOUND 2,11,14,4540 XB2=XB2+XB2VEL2}542 IF XB2XMAX THEN XB2=0550 POKE 53250,XB2590 SOUND 2,0,0,0599 REM ** BUG 3 MOVEMENT600 IF XB3<>0 THEN 63062}10 X=INT(F1*RND(0)-F2)614 IF ABS(X)<>1 THEN 100616 COUNTER=COUNTER+1:IF COUNTER>15 THEN POP :GOTO 50618 XB3=XMIN*(X=1)+XMA2}X*(X=-1)619 XB3VEL=X*XB3SPEED624 PD3$(YB,YB+LEN(BUG$))=BUG$630 GOSUB 830700 GOTO 100702 REM *** END OF MAIN LOOP ***8292} REM ** MOVE BUG 3830 SOUND 3,5,8,4840 XB3=XB3+XB3VEL842 IF XB3XMAX THEN XB3=0850 POKE 53251,XB3860 IF XB3=2}XB1 THEN XB1=0:POKE 53249,0862 IF XB3=XB2 THEN XB2=0:POKE 53250,0890 SOUND 3,0,0,0899 RETURN 1000 REM SPIDER HIT A BUG (W2}HICH?)1004 HIT=INT(HIT/2)1010 ON HIT GOSUB 1100,1200,1300,1400,1500,1600,17001011 RETURN 1100 REM ҠŠǠ1110 X2}B1=0:POKE 53249,XB11120 SCORE=SCORE+251125 GOSUB 18001130 RETURN 1200 REM ҠŠǠ1210 XB2=0:POKE 53250,XB212302} SCORE=SCORE+251235 GOSUB 18001240 RETURN 1300 REM ҠŠӠĠ1310 GOSUB 11001320 GOSUB 12001330 SCORE=SCOR2}E+501335 GOSUB 18001340 RETURN 1400 REM ԠĠǠϠě1410 FOR I=20 TO 200 STEP 41420 SOUND 0,I,14,81430 SET2}COLOR 4,I,81440 FOR N=1 TO 10:NEXT N1450 NEXT I1455 POKE 656,1:POKE 657,LIVES*2+16:? " "1460 SOUND 0,0,0,0:SETCOLOR 4,0,02}1470 LIVES=LIVES-11480 IF LIVES<1 THEN GOTO 190001490 RETURN 1500 REM ҠŠǠĠĠǛ1510 XB1=0:POKE 53249,2}XB11520 GOSUB 14001530 RETURN 1600 REM ҠŠǠĠĠǛ1610 XB2=0:POKE 53250,XB21620 GOSUB 14001630 RETURN 2}1700 REM ҠŠ̠ӛ1710 XB1=0:POKE 53249,XB11720 XB2=0:POKE 53250,XB21730 GOSUB 14001740 RETURN 1800 REM 2}Šś1810 POKE 656,2:POKE 657,321820 PRINT SCORE1830 SOUND 0,40,12,8:FOR I=1 TO 10:NEXT I:SOUND 0,0,0,01899 RETURN 7002}0 REM Λ7010 DIM X$(1)7020 A=ADR(X$)7030 B=INT((A-512)/1024+1)*10247040 DIM F$(B-A+511)7050 DIM PD0$(128),PD2}1$(128),PD2$(128),PD3$(128)7060 POKE 54279,INT(B/256)7099 RETURN 7100 REM Ԡӛ7110 DIM SPIDER$(15)7120 F2}OR I=1 TO 157125 LS=LEN(SPIDER$)7130 READ X:SPIDER$(I)=CHR$(X)7140 NEXT I7150 DATA 8,8,8,8,137,74,60,255,60,74,129,0,0,0,2}07160 DIM BUG$(3)7170 FOR I=1 TO 37180 READ X:BUG$(I)=CHR$(X)7190 NEXT I7200 DATA 28,62,427300 REM ** INTRO DISPLAY7312}0 POKE 53248,0:POKE 53249,0:POKE 53250,0:POKE 53251,07320 GRAPHICS 2+167330 ? #6:? #6:? #6;" "7340 ? #6:?2} #6:? #6;" DINES OUT"7350 ? #6:? #6:? #6:? #6;" press start"7379 REM ** PLAY MUSIC-AWAIT START7380 RESTORE 192}1007384 POKE 53279,87390 FOR I=1 TO 73:READ X:SOUND 2,X,10,87392 IF PEEK(53279)=6 THEN POP :SOUND 2,0,0,0:RETURN 7394 FOR2} J=1 TO 7:NEXT J:NEXT I7395 FOR J=1 TO 40:NEXT J7396 GOTO 73807600 REM Š٠Л7610 GRAPHICS 57620 REM CLEAR C2}OLLISION REGISTER7630 POKE 53278,07640 REM SET PLAYER SIZES (2X)7650 POKE 53256,0:POKE 53257,0:POKE 53258,0:POKE 53259,172}660 REM SET PLAYER COLORS7670 POKE 704,10:POKE 705,255:POKE 706,148:POKE 707,2557680 REM ENABLE P/M GRAPHICS7690 POKE 53272}7,37700 REM SET 2-LINE GRAPHICS7710 POKE 559,467720 REM TURN OFF CURSOR7722 POKE 752,17740 REM ZERO OUT CHARS7750 PD0$=2}CHR$(0):PD0$(128)=CHR$(0):PD0$(2)=PD0$7760 PD1$=PD0$:PD2$=PD0$:PD3$=PD0$7809 REM ** INITIAL SPIDER LOCATION7810 XPOS=100:Y2}POS=217811 YB=907812 REM ** INIT BUG POS & VELS7814 XB1=0:XB2=0:XB3=07816 XB1VEL=0:XB2VEL=0:XB3VEL=07817 XB1SPEED=1:XB2S2}PEED=1:XB3SPEED=67818 XMIN=42:XMAX=2007820 F1=51:F2=257900 REM נě7912 SETCOLOR 0,12,6:SETCOLOR 1,14,2:SETCOL2}OR 2,0,67913 REM ** DRAW LAWN7914 COLOR 17920 PLOT 0,38:DRAWTO 79,38:PLOT 0,39:DRAWTO 79,397928 COLOR 2:PLOT 44,7:DRAWTO 2}60,27930 COLOR 2:POKE 765,2:RESTORE 79407932 FOR I=1 TO 4:READ X,Y:PLOT X,Y7933 FOR N=1 TO 3:READ X,Y:DRAWTO X,Y7934 NEXT2} N:READ X,Y:POSITION X,Y:XIO 18,#6,0,0,"S:":NEXT I7940 DATA 74,30,79,30,79,37,71,37,74,30,74,7,79,7,79,30,74,30,74,7,70,0,732},0,79,7,74,7,70,0,77,0,79,07942 DATA 79,7,77,5,77,07946 PLOT 0,0:DRAWTO 0,2:POSITION 0,0:XIO 18,#6,0,0,"S:"7949 REM ** PLO2}T TREE LEAVES7950 COLOR 17952 RESTORE 7954:FOR I=1 TO 24:READ X,Y:PLOT X,Y:NEXT I7954 DATA 1,3,1,4,2,3,3,4,3,5,7,2,2,2,7,32},8,4,3,2,6,2,10,2,3,0,4,0,4,1,4,2,5,0,6,0,6,2,7,2,45,8,44,5,45,6,58,47980 POKE 623,47990 LIVES=3:LEVEL=0:SCORE=07992 POKE 2}656,1:POKE 657,10:? "LIVES * * *"7996 POKE 656,2:POKE 657,2:? "LEVEL: SCORE:"7997 GOSUB2} 18007999 RETURN 10000 REM ̠ӛ10010 XB1SPEED=310019 REM ** DRAW A BIG ROCK10020 COLOR 310030 PLOT 11,372}:DRAWTO 25,37:PLOT 12,36:DRAWTO 25,36:PLOT 13,35:DRAWTO 20,35:PLOT 22,35:DRAWTO 24,3510040 PLOT 14,34:DRAWTO 18,3410050 F1=2}31:F2=1510099 RETURN 10100 REM **̠ӛ10104 REM ** DRAW GRASS10117 N=20:HEIGHT=1:GOSUB 1200010119 REM ** D2}RAW A SMALL ROCK10120 COLOR 3:PLOT 60,37:DRAWTO 65,37:PLOT 62,36:DRAWTO 64,3610130 XB2SPEED=210199 RETURN 10200 REM **2}̠ӛ10205 N=10:HEIGHT=2:GOSUB 1200010210 N=10:HEIGHT=3:GOSUB 1200010299 RETURN 10300 REM **̠2}ӛ10310 F1=21:F2=1010320 N=10:HEIGHT=3:GOSUB 1200010399 RETURN 10400 REM **̠ӛ10410 XB1SPEED=4:XB2SPEED=42}:XB3SPEED=810420 N=10:HEIGHT=3:GOTO 1200010430 F1=17:F2=810499 RETURN 12000 REM ** TO DRAW SOME TALL GRASS12010 COLOR 12}12020 FOR I=1 TO N12030 X=INT(80*RND(0))12040 PLOT X,37:DRAWTO X,37-HEIGHT12050 NEXT I12060 RETURN 19000 REM * Ġ 2}& Ԡ **19005 POKE 53248,0:POKE 53249,0:POKE 53250,0:POKE 53251,019010 GRAPHICS 2+16:? #6;" game over ":? #6:? 2}#6;" SCORE : ";SCORE:? #619019 GRAPHICS 2+16:? #6;" ganme over ":? #6:? #6;" SCORE : ";SCORE:? #619020 ? 2}#6:? #6;" ҠӠ"19030 ? #6:? #6:? #6:? #6;" "19040 RESTORE 1910019050 FOR I=1 TO 73:READ X1902}60 SOUND 2,X,10,8:FOR J=1 TO 5:NEXT J:NEXT I19099 REM MUSIC DATA19100 DATA 162,0,121,0,0,96,0,121,0,0,162,0,121,0,0,96,0,122}1,0,0,162,0,121,0,0,108,96,0,108,0,121,0,128,0,0,12119110 DATA 108,0,0,162,0,128,0,0,108,0,128,0,0,162,0,128,0,0,108,0,128,02},0,162,0,81,72,81,91,96,108,121,0,019120 DATA 108,121,019200 GRAPHICS 2+16:SETCOLOR 4,4,2:SETCOLOR 0,12,6:SETCOLOR 1,8,4:SE2}TCOLOR 2,0,819210 POSITION 4,4:? #6;"PlAy AgAiN "19220 ? #6:? #6;" (/)"19230 POKE 764,25519240 I=PEEK(762}4):IF I<>35 AND I<>43 THEN 1924019250 IF I=35 THEN GOTO 2000019260 POKE 764,255:GOTO 3020000 END 764,25519240 I=PEEK(760e10 CLR :TRAP 11:OPEN #2,8,0,"P:":PRINT #2;CHR$(27);CHR$(19)11 TRAP 12:OPEN #1,4,0,"K:"12 TRAP 40000:GOTO 100020 DIM W$(55)6},L$(55),M$(1),N$(1),O$(1),P$(1),A$(55),TEMP$(30):GOTO 1010100 POKE 82,0:PRINT CHR$(125);:RETURN 110 POSITION HO+2,VE:RETURN6} 200 GET #1,A:RETURN 210 GOSUB 200:IF CHR$(A)="" THEN 210211 RETURN 250 PRINT CHR$(253):RETURN 350 PRINT #2;SR$;:RETURN 6}360 PRINT #2;" ":RETURN 500 POKE 85,TAB:RETURN 1000 A=2000:GOTO 20:REM WEERDECODER1010 GOSUB 1001020 PRINT "DIT PROGRAMM6}A ZET DE WEERCODE UIT-"1030 PRINT "GEZONDEN DOOR METEOSTATIONS VIA TELEX,"1040 PRINT "IN VORM VAN CIJFERS, OM IN LEESBAAR"6}1050 PRINT "SCHRIFT."1060 PRINT :PRINT "UITERAARD DIENT U TE BESCHIKKEN OVER"1070 PRINT "EEN TELEXCONVERTER."1080 PRINT "D6}IT DECODEERPROGRAMMA ZET ENKEL"1090 PRINT "DE CODE-SYNOP-A A X X-OM, DUS VAN"1100 PRINT "LANDSTATIONS OP STATIONSNIVEAU"116}40 PRINT :PRINT "DE STATIONS IN DENEMARKEN, BELGIE,"1150 PRINT "NEDERLAND, LUXEMBURG, ZWITSERLAND EN"1160 PRINT "LIECHTENST6}EIN ZIJN UITGESPLITST."1170 PRINT "DE REST VAN DE WERELD IS OPGEDEELD IN"1180 PRINT "GROEPEN VAN LANDEN VERMELD ONDER -II-"6}1190 PRINT "IN DE EERSTE REGEL."1200 PRINT "HET ZOEKEN VAN HET STATION VERGT WAT"1210 PRINT "TIJD, DUS GEDULD A.U.B."12206} PRINT :PRINT :PRINT " DRUK EEN TOETS"1230 GOSUB 210:GOSUB 1001240 PRINT :PRINT " OMZETTER WEERBERICHT-CODE-SY6}NOP-AAXX"1250 PRINT :PRINT " VOER DE CIJFERS IN ZONDER SPATIE"1260 PRINT :PRINT " TOT DE CIJFERGROEP 333":PRINT :PRINT 1276}0 INPUT W$1280 IF LEN(W$)=2 THEN V=1:GOTO 15001290 IF LEN(W$)=5 THEN V=2:GOTO 15001300 IF LEN(W$)=8 THEN V=3:GOTO 15001316}0 IF LEN(W$)=10 THEN V=4:GOTO 15001320 IF LEN(W$)=11 THEN V=5:GOTO 15001330 IF LEN(W$)=13 THEN V=6:GOTO 15001340 IF LEN(W$6})=15 THEN V=7:GOTO 15001350 IF LEN(W$)=20 THEN V=8:GOTO 15001360 IF LEN(W$)=25 THEN V=9:GOTO 15001370 IF LEN(W$)=30 THEN V6}=10:GOTO 15001380 IF LEN(W$)=35 THEN V=11:GOTO 15001390 IF LEN(W$)=37 THEN V=12:GOTO 15001400 IF LEN(W$)=40 THEN V=13:GOTO6} 15001410 IF LEN(W$)=44 THEN V=14:GOTO 15001420 IF LEN(W$)=45 THEN V=15:GOTO 15001430 IF LEN(W$)=48 THEN V=16:GOTO 1500146}40 IF LEN(W$)=49 THEN V=17:GOTO 15001450 IF LEN(W$)=50 THEN V=18:GOTO 15001460 IF LEN(W$)=52 THEN V=19:GOTO 15001470 IF LE6}N(W$)=53 THEN V=20:GOTO 15001480 IF LEN(W$)=54 THEN V=21:GOTO 15001490 IF LEN(W$)=55 THEN V=221500 FOR Z=1 TO V1510 IF Z=6}1 THEN Q=1:P=21520 IF Z=2 THEN Q=3:P=31530 IF Z=3 THEN Q=8:P=11540 IF Z=4 THEN Q=9:P=21550 IF Z=5 THEN Q=11:P=11560 IF Z6}=6 THEN Q=12:P=21570 IF Z=7 THEN Q=14:P=21580 IF Z=8 THEN Q=17:P=41590 IF Z=9 THEN Q=22:P=41600 IF Z=10 THEN Q=27:P=41616}0 IF Z=11 THEN Q=32:P=41620 IF Z=12 THEN Q=37:P=11630 IF Z=13 THEN Q=38:P=31640 IF Z=14 THEN Q=42:P=41650 IF Z=15 THEN Q=7}45:P=11660 IF Z=16 THEN Q=47:P=21670 IF Z=17 THEN Q=49:P=11680 IF Z=18 THEN Q=50:P=11690 IF Z=19 THEN Q=51:P=21700 IF Z=7}20 THEN Q=53:P=11710 IF Z=21 THEN Q=54:P=11720 IF Z=22 THEN Q=55:P=11730 L$=W$(Q,Q+P-1)1740 IF Z=1 THEN GOSUB 19801750 I7}F Z=2 THEN GOSUB 26601760 IF Z=3 THEN GOSUB 28101770 IF Z=4 THEN GOSUB 29401780 IF Z=5 THEN GOSUB 32201790 IF Z=6 THEN GO7}SUB 33401800 IF Z=7 THEN GOSUB 35701810 IF Z=8 THEN GOSUB 36501820 IF Z=9 THEN GOSUB 37401830 IF Z=10 THEN GOSUB 38301847}0 IF Z=11 THEN GOSUB 39301850 IF Z=12 THEN GOSUB 40201860 IF Z=13 THEN GOSUB 41401870 IF Z=14 THEN GOSUB 42301880 IF Z=157} THEN GOSUB 43201890 IF Z=16 THEN GOSUB 43401900 IF Z=17 THEN GOSUB 46301910 IF Z=18 THEN GOSUB 46301920 IF Z=19 THEN GOS7}UB 47501930 IF Z=20 THEN GOSUB 49101940 IF Z=21 THEN GOSUB 50401950 IF Z=22 THEN GOSUB 51701960 NEXT Z1970 END 1980 GOS7}UB 100:PRINT "II";1990 A$=L$2000 K=VAL(A$):TAB=5:GOSUB 5002010 IF K=1 THEN PRINT "NOORWEGEN"2020 IF K=2 THEN PRINT "ZWEDE7}N/FINLAND"2030 IF K=3 THEN PRINT "ENGELAND/IERLAND"2040 IF K=4 THEN PRINT "IJSLAND/GROENLAND"2050 IF K=6 THEN PRINT "DENEM7 }ARKEN/BENELUX/ZWITSERLAND"2060 IF K=7 THEN PRINT "FRANKRIJK"2070 IF K=8 THEN PRINT "SPANJE/PORTUGAL/FRANKRIJK"2080 IF K=9 7 }THEN PRINT "OOST-DUITSLAND"2090 IF K=10 THEN PRINT "WEST-DUITSLAND"2100 IF K=11 THEN PRINT "OOSTENRIJK/TJECHO-SLOWAKIJE"217 }10 IF K=12 THEN PRINT "POLEN/HONGARIJE"2120 IF K=13 THEN PRINT "YOUGO-SLAVIE/ALBANIE"2130 IF K=15 THEN PRINT "ROEMENIE/BULG7 }ARIJE"2140 IF K=16 THEN PRINT "ITALIE/GRIEKENLAND"2150 IF K=17 THEN PRINT "TURKIJE/CYPRUS"2160 IF K>=20 AND K<=39 THEN PRI7 }NT "RUSLAND (EUROPA/AZIE)"2170 IF K=40 THEN PRINT "SYRIE/LIBANON/ISRAEL/JORDANIE"2180 IF K=40 THEN PRINT "SAUDIE-ARABIE/KOE7}WEIT/IRAK/IRAN"2190 IF K=40 THEN PRINT "AFGANISTAN"2200 IF K=41 THEN PRINT "SAUDI-ARABIE/BAHRAIN/QATOR/OMAN"2210 IF K=41 T7}HEN PRINT "VER. ARAB. EMIRATEN/YEMEN"2220 IF K=41 THEN PRINT "PAKISTAN/BANGLADESH"2230 IF K=42 THEN PRINT "INDIA"2240 IF K7}=43 THEN PRINT "INDIA/SRI-LANKA/MALEDIVEN"2250 IF K=44 THEN PRINT "MONGOLIE/NEPAL"2260 IF K=45 THEN PRINT "HONGKONG/MACAO"7}2270 IF K=47 THEN PRINT "KOREA/JAPAN"2280 IF K=48 THEN PRINT "BIRMA/THAILAND/LAOS/CAMBODJA"2290 IF K=48 THEN PRINT "MALEISE7} FEDERATIE/VIETNAM"2300 IF K=48 THEN PRINT "SINGAPORE"2310 IF K>=50 AND K<=59 THEN PRINT "CHINA"2320 IF K=60 THEN PRINT "C7}ANARISCHE EILANDEN/MAROKKO"2330 IF K=60 THEN PRINT "WEST-SAHARA/ALGERYE/TUNESIE"2340 IF K=61 THEN PRINT "NIGERIA/MALI/MAURI7}TANIE"2350 IF K=61 THEN PRINT "SENEGAL/OCEAANEILANDEN"2360 IF K=62 THEN PRINT "LIBIE/EGYPTE/SUDAN"2370 IF K=63 THEN PRINT 7}"ETHIOPIE/SOMALIE/OEGANDA"2380 IF K=64 THEN PRINT "ZAIRE/KONGO/CHAAD/GABON"2390 IF K=65 THEN PRINT "NIGERIA/BENIN/TOGA/GHAN7}A"2400 IF K=66 THEN PRINT "ANGOLA"2410 IF K=67 THEN PRINT "MADAGASCAR/ZAMBIA/ZIMBABWE"2420 IF K=68 THEN PRINT "ZUID-AFRIKA7}"2430 IF K=70 THEN PRINT "ALASKA"2440 IF K=71 THEN PRINT "CANADA"2450 IF K=72 THEN PRINT "VER. STATEN VAN AMERIKA"2460 IF7} K=74 THEN PRINT "VER. STATEN VAN AMERIKA"2470 IF K=76 THEN PRINT "MEXICO"2480 IF K=78 THEN PRINT "BAHAMA'S/CUBA/BERMUDA"27}490 IF K=78 THEN PRINT "GUATEMALA/HAITI/EL-SAVADOR"2500 IF K=80 THEN PRINT "COLOMBIA/VENEZUELA"2510 IF K=81 THEN PRINT "SUR7}INAME/GUYANA/FR. GUYANA"2520 IF K>=82 AND K<=83 THEN PRINT "BRAZILIE"2530 IF K=84 THEN PRINT "ECUADOR/PERU"2540 IF K=85 TH7}EN PRINT "BOLIVIA/CHILI"2550 IF K=86 THEN PRINT "PARAGUYA/URUGUYA"2560 IF K=88 THEN PRINT "EILANDEN (GEBIED ANTARTICA)"2577}0 IF K=89 THEN PRINT "ANTARTICA"2580 IF K=93 THEN PRINT "NIEUW-ZEELAND"2590 IF K>=94 AND K<=95 THEN PRINT "AUSTRALIE/PAP.N.7}GUINEA"2600 IF K>=96 AND K<=97 THEN PRINT "INDONESIE"2610 IF K=98 THEN PRINT "FHILIPIJNEN"2620 RETURN 2630 TAB=5:GOSUB 507}0:PRINT ;"BLOKNR: ";W$(1,2);2640 PRINT " STATION ";W$(3,5)2650 RETURN 2660 IF W$(1,2)<>"06" THEN PRINT "III";2670 I7}F W$(1,2)<>"06" THEN 26302680 IF W$(1,2)<>"06" THEN RETURN 2690 DIM AA$(182*3),B$(182*30):B$(1)=" ":B$(182*30)=B$:B$(2)=B$7 }2700 FOR T=1 TO 1822710 READ TEMP$:AA$(T*3-2,T*3)=TEMP$2720 NEXT T2730 FOR T=1 TO 1822740 READ TEMP$:B$(T*30-29,T*30)=TEM7!}P$2745 ? TEMP$2750 NEXT T2760 FOR T=1 TO 1822770 IF AA$(T*3-2,T*3)=L$ THEN 27902780 NEXT T2790 PRINT "III STAT.:";B$(T7"}*30-29,T*30)2800 RETURN 2810 PRINT "H";:TAB=5:GOSUB 500:PRINT "WOLKEN: ";2820 IF L$="/" THEN PRINT "ONBEKEND OF WOLKEN HOG7#}ER"2830 IF L$="0" THEN PRINT "0-50 METER"2840 IF L$="1" THEN PRINT "50-100 METER"2850 IF L$="2" THEN PRINT "100-200 METER"7$}2860 IF L$="3" THEN PRINT "200-300 METER"2870 IF L$="4" THEN PRINT "300-600 METER"2880 IF L$="5" THEN PRINT "600-1000 METE7%}R"2890 IF L$="6" THEN PRINT "1000-1500 METER"2900 IF L$="7" THEN PRINT "1500-2000 METER"2910 IF L$="8" THEN PRINT "2000-257&}00 METER"2920 IF L$="9" THEN PRINT ">2500 METER OF GEEN WOLKEN"2930 RETURN 2940 PRINT "VV";:TAB=5:GOSUB 500:PRINT "HOR.ZIC7'}HT: ";2950 A$=L$2960 K=VAL(A$)2970 IF K=0 THEN PRINT "MINDER DAN 0,1 K.M."2980 IF K>=1 AND K<=50 THEN N=K/102990 IF K>=17(} AND K<=50 THEN PRINT N;" K.M."3000 IF K>=56 AND K<=80 THEN N=K-503010 IF K>=56 AND K<=80 THEN PRINT N;" K.M."3020 IF K=817)} THEN PRINT "35 K.M."3030 IF K=82 THEN PRINT "40 K.M."3040 IF K=83 THEN PRINT "45 K.M."3050 IF K=84 THEN PRINT "50 K.M."37*}060 IF K=85 THEN PRINT "55 K.M."3070 IF K=86 THEN PRINT "60 K.M."3080 IF K=87 THEN PRINT "65 K.M."3090 IF K=88 THEN PRINT 7+}"70 K.M."3100 IF K=89 THEN PRINT "MEER DAN 70 K.M."3110 IF K=90 THEN PRINT "MINDER DAN 0.05 K.M."3120 IF K=91 THEN PRINT "7,}0.05 K.M."3130 IF K=92 THEN PRINT "0.2 K.M."3140 IF K=93 THEN PRINT "0.5 K.M."3150 IF K=94 THEN PRINT "1 K.M."3160 IF K=97-}5 THEN PRINT "2 K.M."3170 IF K=96 THEN PRINT "4 K.M."3180 IF K=97 THEN PRINT "10 K.M."3190 IF K=98 THEN PRINT "20 K.M."327.}00 IF K=99 THEN PRINT "MEER DAN 50 K.M."3210 RETURN 3220 PRINT "N";:TAB=5:GOSUB 500:PRINT "BEDEKKINGSGRAAD: ";3230 IF L$="7/}0" THEN PRINT "ONBEWOLKT"3240 IF L$="1" THEN PRINT "1/8 DEEL BEWOLKT"3250 IF L$="2" THEN PRINT "2/8 DEEL BEWOLKT"3260 IF L70}$="3" THEN PRINT "3/8 DEEL BEWOLKT"3270 IF L$="4" THEN PRINT "4/8 DEEL BEWOLKT"3280 IF L$="5" THEN PRINT "5/8 DEEL BEWOLKT"71}3290 IF L$="6" THEN PRINT "6/8 DEEL BEWOLKT"3300 IF L$="7" THEN PRINT "7/8 DEEL BEWOLKT"3310 IF L$="8" THEN PRINT "8/8 DEE72}L BEWOLKT"3320 IF L$="/" THEN PRINT "GEEN OPGAVE"3330 RETURN 3340 PRINT "DD";:TAB=5:GOSUB 500:PRINT "WINDRICHTING: ";335073} A$=L$3360 K=VAL(A$)3370 IF K=0 THEN PRINT "WINDSTIL"3380 IF K=99 THEN PRINT "VERAND. WINDRICHTING"3390 IF K>=1 AND K<3 T74}HEN PRINT "NOORD-NOORD-OOST"3400 IF K>=3 AND K<5 THEN PRINT "NOORD-OOST"3410 IF K>=5 AND K<8 THEN PRINT "OOST-NOORD-OOST"375}420 IF K>=8 AND K<10 THEN PRINT "OOSTENWIND"3430 IF K>=10 AND K<12 THEN PRINT "OOST-ZUID-OOST"3440 IF K>=12 AND K<15 THEN P76}RINT "ZUID-OOST"3450 IF K>=15 AND K<17 THEN PRINT "ZUID-ZUID-OST"3460 IF K>=17 AND K<19 THEN PRINT "ZUIDENWIND"3470 IF K>=77}19 AND K<21 THEN PRINT "ZUID-ZUID-WEST"3480 IF K>=21 AND K<24 THEN PRINT "ZUID-WEST"3490 IF K>=24 AND K<26 THEN PRINT "WEST78}-ZUID-WEST"3500 IF K>=26 AND K<28 THEN PRINT "WESTENWIND"3510 IF K>=28 AND K<30 THEN PRINT "WEST-NOORD-WEST"3520 IF K>=30 79}AND K<33 THEN PRINT "NOORD-WEST"3530 IF K>=33 AND K<35 THEN PRINT "NOORD-NOORD-WEST"3540 IF K>=35 AND K<=36 THEN PRINT "NOO7:}RDENWIND"3550 IF K>0 AND K<1 THEN PRINT "NOORDENWIND"3560 RETURN 3570 PRINT "FF";:TAB=5:GOSUB 500:PRINT "WINDSNELHEID: ";7;}3580 A$=L$3590 K=VAL(A$)3600 IF K=0 THEN PRINT "WINDSTIL"3610 IF K=0 THEN 36403620 N=K*0.53630 PRINT N;" METER PER SEC."7<}3640 RETURN 3650 PRINT "TTT";:TAB=5:GOSUB 500:PRINT "TEMP.: ";3660 IF L$="///" THEN PRINT "GEEN OPGAVE"3670 M$=L$(1,1)367=}80 N$=L$(2,2)3690 O$=L$(3,3)3700 P$=L$(4,4)3710 IF M$="0" THEN PRINT "+ ";N$;O$;",";P$;" GR.CELCIUS"3720 IF M$="1" THEN P7>}RINT "- ";N$;O$;",";P$;" GR.CELCIUS"3730 RETURN 3740 PRINT "TD";:TAB=5:GOSUB 500:PRINT "DAUWTEMP.: ";3750 M$=L$(1,1)3760 7?}N$=L$(2,2)3770 O$=L$(3,3)3780 P$=L$(4,4)3790 IF M$="0" THEN PRINT "+ ";N$;O$;",";P$;" GR.CELCIUS"3800 IF M$="1" THEN PRIN7@}T "- ";N$;O$;",";P$;" GR.CELCIUS"3810 IF M$="9" THEN PRINT "GEEN OPGAVE"3820 RETURN 3830 IF W$(26,26)="4" THEN 56203840 P7A}RINT "PO";:TAB=5:GOSUB 500:PRINT "DRUK ZEENIVEAU ";3850 M$=L$(1,1)3860 N$=L$(2,2)3870 O$=L$(3,3)3880 P$=L$(4,4)3890 K=V7B}AL(M$)3900 IF K<6 THEN PRINT "1";M$;N$;O$;",";P$;" MILLIBAR"3910 IF K>=6 THEN PRINT M$;N$;O$;",";P$;" MILLIBAR"3920 RETURN7C} 3930 PRINT "PP";:TAB=5:GOSUB 500:PRINT "DRUK STAT.NIVEAU ";3940 M$=L$(1,1)3950 N$=L$(2,2)3960 O$=L$(3,3)3970 P$=L$(4,4)7D}3980 K=VAL(M$)3990 IF K<6 THEN PRINT "1";M$;N$;O$;",";P$;" MILLIBAR"4000 IF K>=6 THEN PRINT M$;N$;O$;",";P$;" MILLIBAR"407E}10 RETURN 4020 PRINT "A";:TAB=5:GOSUB 500:PRINT "DRUK: ";4030 IF L$="/" THEN PRINT "GEEN OPGAVE"4040 IF L$="0" THEN PRINT 7F}"GELIJK AAN OF WEINIG GESTEGEN"4050 IF L$="1" THEN PRINT "GESTEGEN"4060 IF L$="2" THEN PRINT "GESTEGEN"4070 IF L$="3" THEN7G} PRINT "GESTEGEN"4080 IF L$="4" THEN PRINT "GELIJK GEBLEVEN"4090 IF L$="5" THEN PRINT "GELIJK GEBLEVEN OF WEINIG GEDAALD"47H}100 IF L$="6" THEN PRINT "DALEND"4110 IF L$="7" THEN PRINT "DALEND"4120 IF L$="8" THEN PRINT "DALEND"4130 RETURN 4140 PRI7I}NT "PP";:TAB=5:GOSUB 500:PRINT "VERSCHIL IN 3 UUR: ";4150 IF L$="///" THEN PRINT "GEEN OPGAVE"4160 A$=L$4170 K=VAL(A$)4187J}0 N=K/104190 PRINT N;" MILLIBAR"4200 IF LEN(W$)=35 THEN END 4210 GOSUB 60304220 RETURN 4230 PRINT "RR";4240 M$=L$(1,1)7K}4250 N$=L$(2,2)4260 O$=L$(3,3)4270 P$=L$(4,4)4280 A=VAL(M$):B=VAL(N$):C=VAL(O$):D=VAL(P$)4290 IF A=9 THEN A=0:IF B=9 THEN7L} B=0:IF C=9 THEN C=04300 TAB=5:GOSUB 500:PRINT "REGEN IN ";D;" UUR ";A;B;",";C;" M.M."4310 RETURN 4320 REM BESTEMD VOOR EE7M}N TIJDSAANDUIDING4330 RETURN 4340 PRINT "WW";:TAB=5:GOSUB 500:PRINT "WEER: ";4350 A$=L$4360 K=VAL(A$)4370 IF K=1 THEN PR7N}INT "BEWOLKING AFGENOMEN"4380 IF K=2 THEN PRINT "UITERLYK HEMEL ONVERANDERD"4390 IF K=3 THEN PRINT "BEWOLKING TOEGENOMEN"47O}400 IF K>=4 AND K<=9 THEN PRINT "HEIIG,ZAND,STOF OF ROOK"4410 IF K=10 THEN PRINT "NEVEL"4420 IF K>=11 AND K<=12 THEN PRINT 7P}"GRONDMIST/LAAGHANGENDE MIST"4430 IF K=13 THEN PRINT "WEERLICHT"4440 IF K>=14 AND K<=16 THEN PRINT "NEERSLAG BINNEN GEZICHT7Q}SKRING"4450 IF K=17 THEN PRINT "ONWEER ZONDER NEERSLAG"4460 IF K=18 THEN PRINT "ZWARE WINDSTOTEN"4470 IF K=19 THEN PRINT "7R}WATER OF WINDHOOS"4480 IF K>=20 AND K<=27 THEN PRINT "NEERSLAG IN AFGELOPEN UUR"4490 IF K=28 THEN PRINT "MIST IN HET AFGELO7S}PEN UUR"4500 IF K=29 THEN PRINT "ONWEER IN HET AFGELOPEN UUR"4510 IF K>=40 AND K<=49 THEN PRINT "MIST"4520 IF K>=50 AND K<7T}=55 THEN PRINT "MOTREGEN"4530 IF K>=56 AND K<=57 THEN PRINT "MOTREGEN MET IJZEL"4540 IF K>=58 AND K<=59 THEN PRINT "MOTREGE7U}N MET REGEN"4550 IF K>=60 AND K<=65 THEN PRINT "REGEN"4560 IF K>=66 AND K<=67 THEN PRINT "REGEN MET IJZEL"4570 IF K>=68 AN7V}D K<=69 THEN PRINT "REGEN MET SNEEUW"4580 IF K>=70 AND K<=78 THEN PRINT "SNEEUW"4590 IF K=79 THEN PRINT "IJSREGEN (BEVROREN7W} SNEEUW)"4600 IF K>=80 AND K<=90 THEN PRINT "BUIEN"4610 IF K>=91 AND K<=99 THEN PRINT "ONWEER"4620 RETURN 4630 PRINT "W";7X}:TAB=5:GOSUB 500:PRINT "W1+W2 ";4640 IF L$="0" THEN PRINT "MINDER DAN 4/8 BEWOLKT"4650 IF L$="1" THEN PRINT "SOMS MEER/MIND7Y}ER DAN 4/8 BEWOLKT"4660 IF L$="2" THEN PRINT "MEER DAN 4/8 BEWOLKT"4670 IF L$="3" THEN PRINT "ZAND/STOF OF SNEEUWSTORM"4687Z}0 IF L$="4" THEN PRINT "MIST"4690 IF L$="5" THEN PRINT "MOTREGEN"4700 IF L$="6" THEN PRINT "REGEN"4710 IF L$="7" THEN PRIN7[}T "SNEEUW"4720 IF L$="8" THEN PRINT "BUI OF BUIEN"4730 IF L$="9" THEN PRINT "ONWEER MET/ZONDER NEERSLAG"4740 RETURN 4750 7\}O$=L$(2,2)4760 P$=L$(1,1)4770 IF P$<>"8" THEN END 4780 PRINT "NH";:TAB=5:GOSUB 500:PRINT "CL/CM : ";4790 IF O$="0" THEN P7]}RINT "ONBEWOLKT"4800 IF O$="1" THEN PRINT "LICHT BEWOLKT"4810 IF O$="2" THEN PRINT "LICHT BEWOLKT"4820 IF O$="3" THEN PRIN7^}T "HALF BEWOLKT"4830 IF O$="4" THEN PRINT "HALF BEWOLKT"4840 IF O$="5" THEN PRINT "HALF BEWOLKT"4850 IF O$="6" THEN PRINT 7_}"ZWAAR BEWOLKT"4860 IF O$="7" THEN PRINT "ZWAAR BEWOLKT"4870 IF O$="8" THEN PRINT "GEHEEL BEWOLKT"4880 IF O$="9" THEN PRIN7`}T "ONBEKEND"4890 IF O$="/" THEN PRINT "GEEN OPGAVE"4900 RETURN 4910 PRINT "CL";:TAB=5:GOSUB 500:PRINT "";4920 IF L$="/" T7a}HEN PRINT "ONZICHTBAAR DOORDONKER/MIST/STOF"4930 IF L$="0" THEN PRINT "NIET AANWEZIG"4940 IF L$="1" THEN PRINT "AANWEZIG"47b}950 IF L$="2" THEN PRINT "AANWEZIG"4960 IF L$="3" THEN PRINT "AANWEZIG"4970 IF L$="4" THEN PRINT "AANWEZIG"4980 IF L$="5" 7c}THEN PRINT "AANWEZIG"4990 IF L$="6" THEN PRINT "STERK AANWEZIG"5000 IF L$="7" THEN PRINT "STERK AANWEZIG/SLECHT WWER"5010 7d}IF L$="8" THEN PRINT "STERK AANWEZIG"5020 IF L$="9" THEN PRINT "STERK AANWEZIG"5030 RETURN 5040 PRINT "CM";:TAB=5:GOSUB 507e}0:PRINT "";5050 IF L$="/" THEN PRINT "ONZICHTBAAR DOOR DONKER/WOLKEN"5060 IF L$="0" THEN PRINT "NIET AANWEZIG"5070 IF L$="7f}1" THEN PRINT "AANWEZIG"5080 IF L$="2" THEN PRINT "AANWEZIG"5090 IF L$="3" THEN PRINT "AANWEZIG"5100 IF L$="4" THEN PRINT 7g}"AANWEZIG"5110 IF L$="5" THEN PRINT "AANWEZIG"5120 IF L$="6" THEN PRINT "AANWEZIG"5130 IF L$="7" THEN PRINT "AANWEZIG"5147h}0 IF L$="8" THEN PRINT "AANWEZIG"5150 IF L$="9" THEN PRINT "AANWEZIG"5160 RETURN 5170 PRINT "CH";:TAB=5:GOSUB 500:PRINT ""7i};5180 IF L$="/" THEN PRINT "ONZICHTBAAR DOOR DONKER/WOLKEN"5190 IF L$="0" THEN PRINT "NIET AANWEZIG"5200 IF L$="1" THEN PR7j}INT "AANWEZIG"5210 IF L$="2" THEN PRINT "AANWEZIG"5220 IF L$="3" THEN PRINT "AANWEZIG"5230 IF L$="4" THEN PRINT "AANWEZIG"7k}5240 IF L$="5" THEN PRINT "AANWEZIG"5250 IF L$="6" THEN PRINT "AANWEZIG"5260 IF L$="7" THEN PRINT "AANWEZIG"5270 IF L$="87l}" THEN PRINT "AANWEZIG"5280 IF L$="9" THEN PRINT "AANWEZIG"5290 END 5300 Z=15310 FOR Z=1 TO 55320 IF Z=1 THEN Q=36:IF Z=7m}1 THEN P=25330 IF Z=2 THEN Q=38:IF Z=2 THEN P=15340 IF Z=3 THEN Q=39:IF Z=3 THEN P=15350 IF Z=4 THEN Q=40:IF Z=4 THEN P=17n}5360 Q=Q+S:L$=W$(Q,Q+P)5370 IF Z=1 THEN GOSUB 47505380 IF Z=2 THEN GOSUB 49105390 IF Z=3 THEN GOSUB 50405400 IF Z=4 THEN 7o}GOSUB 51705410 NEXT Z5420 END 5430 Z=15440 FOR Z=1 TO 85450 IF Z=1 THEN Q=37:IF Z=1 THEN P=25460 IF Z=2 THEN Q=39:IF Z=7p}2 THEN P=15470 IF Z=3 THEN Q=40:IF Z=3 THEN P=15480 IF Z=4 THEN Q=41:IF Z=4 THEN P=25490 IF Z=5 THEN Q=43:IF Z=5 THEN P=17q}5500 IF Z=6 THEN Q=44:IF Z=6 THEN P=15510 IF Z=7 THEN Q=45:IF Z=7 THEN P=15520 Q=Q+S:L$=W$(Q,Q+P)5530 IF Z=1 THEN GOSUB 437r}405540 IF Z=2 THEN GOSUB 46305550 IF Z=3 THEN GOSUB 46305560 IF Z=4 THEN GOSUB 47505570 IF Z=5 THEN GOSUB 49105580 IF Z=7s}6 THEN GOSUB 50405590 IF Z=7 THEN GOSUB 51705600 NEXT Z5610 END 5620 IF LEN(W$)=30 THEN V=1:GOTO 57405630 IF LEN(W$)=32 7t}THEN V=2:GOTO 57405640 IF LEN(W$)=35 THEN V=3:GOTO 57405650 IF LEN(W$)=39 THEN V=4:GOTO 57405660 IF LEN(W$)=40 THEN V=5:GO7u}TO 57405670 IF LEN(W$)=43 THEN V=6:GOTO 57405680 IF LEN(W$)=44 THEN V=7:GOTO 57405690 IF LEN(W$)=45 THEN V=8:GOTO 57405707v}0 IF LEN(W$)=47 THEN V=9:GOTO 57405710 IF LEN(W$)=48 THEN V=10:GOTO 57405720 IF LEN(W$)=49 THEN V=11:GOTO 57405730 IF LEN(7w}W$)=50 THEN V=12:GOTO 57405740 Z=15750 FOR Z=1 TO V5760 IF Z=1 THEN Q=27:P=45770 IF Z=2 THEN Q=32:P=15780 IF Z=3 THEN Q=7x}33:P=35790 IF Z=4 THEN Q=37:P=45800 IF Z=5 THEN Q=40:P=15810 IF Z=6 THEN Q=43:P=25820 IF Z=7 THEN Q=44:P=15830 IF Z=8 TH7y}EN Q=45:P=15840 IF Z=9 THEN Q=47:P=15850 IF Z=10 THEN Q=48:P=15860 IF Z=11 THEN Q=49:P=15870 IF Z=12 THEN Q=50:P=15880 L7z}$=W$(Q,Q+P)5890 IF Z=1 THEN GOSUB 39305900 IF Z=2 THEN GOSUB 40205910 IF Z=3 THEN GOSUB 41405920 IF Z=4 THEN GOSUB 423057{}930 IF Z=5 THEN GOSUB 43205940 IF Z=6 THEN GOSUB 43405950 IF Z=7 THEN GOSUB 46305960 IF Z=8 THEN GOSUB 46305970 IF Z=9 TH7|}EN GOSUB 47505980 IF Z=10 THEN GOSUB 49105990 IF Z=11 THEN GOSUB 50406000 IF Z=12 THEN GOSUB 51706010 NEXT Z6020 END 607}}30 S=0:IF W$(26,26)="3" THEN S=56040 IF W$(7,7)="2" THEN GOSUB 61706050 IF W$(7,7)="2" THEN 53006060 IF W$(7,7)="3" THEN G7~}OSUB 61906070 IF W$(7,7)="3" THEN 53006080 IF W$(7,7)="5" THEN GOSUB 61706090 IF W$(7,7)="5" THEN 53006100 IF W$(7,7)="6"7} THEN GOSUB 61706110 IF W$(7,7)="6" THEN 53006120 IF W$(6,6)="3" THEN GOSUB 62106130 IF W$(6,6)="3" THEN 54306140 IF W$(67},6)="4" THEN GOSUB 62106150 IF W$(6,6)="4" THEN 54306160 RETURN 6170 PRINT TAB(5);"GEEN RAPPORT WW/W1/W2"6180 RETURN 6197}0 PRINT TAB(5);"GEEN OPGAVE WW/W1/W2"6200 RETURN 6210 PRINT TAB(5);"GEEN OPGAVE NEERSLAG"6220 RETURN 25000 DATA 009,010,07}11,023,024,03025010 DATA 034,041,045,048,052,05325020 DATA 054,059,060,062,065,06625030 DATA 070,071,073,074,076,080250407} DATA 081,084,087,089,096,09925050 DATA 100,104,106,110,111,11525060 DATA 118,119,120,122,123,12425070 DATA 128,131,139,147}4,147,15025080 DATA 151,152,156,159,160,16125090 DATA 162,170,173,179,180,18125100 DATA 182,183,186,190,191,19325110 DATA7} 196,200,210,225,235,24025120 DATA 242,250,260,265,268,27025130 DATA 275,280,290,310,325,33025140 DATA 344,350,370,375,3807},38525150 DATA 400,404,407,408,416,42825160 DATA 431,432,447,449,450,45125170 DATA 452,456,458,463,465,47025180 DATA 473,7}476,478,479,480,48125190 DATA 490,495,585,589,590,59725200 DATA 604,608,610,612,616,63025210 DATA 632,642,643,649,652,6547}25220 DATA 657,660,662,669,670,67225230 DATA 680,681,684,700,702,70425240 DATA 710,712,718,719,720,72125250 DATA 724,726,77}30,732,734,74225260 DATA 743,746,750,753,755,75925270 DATA 760,762,770,771,781,78225280 DATA 783,786,787,789,791,792252907} DATA 793,794,990,220,245,30025300 DATA 320,34025310 DATA (DEN.)AKRABERG,(DEN.)SORVAAG/VAGAR25320 DATA (DEN.)THORSHAVN,(DE7}N.)GORM25330 DATA (DEN.)THISTED FLYVEPLADS,(DEN.)ALBORG25340 DATA (DEN.)SINDAL FLYVEPLADS,(DEN.)SKAGEN25350 DATA (DEN.)DYB7}VAD,(DEN.)HADSUND25360 DATA (DEN.)THYBORON,(DEN.)AGGERSUND25370 DATA (DEN.)LINDTORP FLYVEPLADS,(DEN.)LYNGVIG25380 DATA (DE7}N.)KARUP,(DEN.)SKIVE FLYVEPLADS25390 DATA (DEN.)ALESTRUP,(DEN.)STAUNING FLYVEPLADS25400 DATA (DEN.)TIRSTRUP,(DEN.)FORNAES27}5410 DATA (DEN.)SLETTERHAGE25420 DATA (DEN.)FLYVEPLADS KIRSTINESMINDE25430 DATA (DEN.)HADSTEN,(DEN.)ESBJERG25440 DATA (DEN7}.)BLAVAND,(DEN.)HERNING FLYVEPLADS25450 DATA (DEN.)ANHOLT KNOB,(DEN.)SEADENSTRAND25460 DATA (DEN.)ROMO,(DEN.)ROMO HAVNEBY27}5470 DATA (DEN.)VANDEL,(DEN.)BILLUND LUFTHAVN25480 DATA (DEN.)TVINGSTRUP,(DEN.)SKRYDSTRUP25490 DATA (DEN.)BAGO,(DEN.)MOLLEH7}US25500 DATA (DEN.)SONDERBORG FLYVEPLADS25510 DATA (DEN.)KEGNAES,(DEN.)ODENSE/BELDRINGE25520 DATA (DEN.)SKARUP,(DEN.)TVING7}SDJERG25530 DATA (DEN.)SYDFYNS FLYVEPLADS,(DEN.)MIDDELFART25540 DATA (DEN.)VESBORG,(DEN.)KELDSNOR25550 DATA (DEN.)MARIBO F7}LYVEPLADS,(DEN.)MON SYDOST25560 DATA (DEN.)AVNO,(DEN.)OMO,(DEN.)GLUMSO25570 DATA (DEN.)HOLBAEK,(DEN.)ROSNAES25580 DATA (DE7}N.)VAERLOSE,(DEN.)SPODSBJERG25590 DATA (DEN.)KRONBORG,(DEN.)KOBENHAVN/ROSKILDE25600 DATA (DEN.)STEVNS,(DEN.)MON25610 DATA 7}(DEN.)KOBENHAVN/KASTRUP25620 DATA (DEN.)KOBENHAVN/JAEGERSBORG25630 DATA (DEN.)MIDDELGRUNDEN,(DEN.)DROGDEN25640 DATA (DEN.)7}KOBENHAVN/LANDBOHOJSKOLEN25650 DATA (DEN.)RONNE,(DEN.)CHRISTIANSO25660 DATA (DEN.)HAMMERODDE,(DEN.)POVLSKER25670 DATA (NED7}.)YPENBURG,(NED.)VALKENBURG25680 DATA (NED.)IJMUIDEN,(NED.)DE KOOY25690 DATA (NED.)AMSTERDAM/SCHIPHOL,(NED.)VLIELAND25700 7}DATA (NED.)TERSCHELLING,(NED.)DE BILT25710 DATA (NED.)SOESTERBERG,(NED.)HOUTRIB25720 DATA (NED.)LEEUWARDEN,(NED.)DEELEN2577}30 DATA (NED.)EELDE,(NED.)TWENTE,(NED.)VLISSINGEN25740 DATA (NED.)ZIERIKZEE,(NED.)HOEK VAN HOLLAND25750 DATA (NED.)ROTTERDA7}M,(NED.)GILZE-RIJEN25760 DATA (NED.)EINDHOVEN,(NED.)VOLKEL25770 DATA (NED.)BEEK (Z-LIM),(NED.)DE PEEL25780 DATA (BEL.)KOKS7}IJDE,(BEL.)WEST-HINDER25790 DATA (BEL.)OOSTENDE (AIRPORT)25800 DATA (BEL.)OOSTENDE (PIER),(BEL.)WEVELGEM25810 DATA (BEL.)M7}UNTE,(BEL.)GENT/INDUSTRIEZONE25820 DATA (BEL.)CHIEVRES,(BEL.)UKKEL25830 DATA (BEL.)CHARLEROI/GOSSELIES25840 DATA (BEL.)ANT7}WERPEN/DEURNE25850 DATA (BEL.)BRUSSEL NATIONAAL25860 DATA (BEL.)BRASSCHAAT,(BEL.)FLOENNES25870 DATA (BEL.)BEAUVECHAIN,(BEL7}.)GOETSENHOVEN25880 DATA (BEL.)SCHAFFEN,(BEL.)SINT-TRUIDEN25890 DATA (BEL.)SINSIN,(BEL.)ST-HUBERT25900 DATA (BEL.)BIERSET,7}(BEL.)KLEINE BROGEL25910 DATA (BEL.)VIRTON,(BEL.)GENK25920 DATA (BEL.)SPA / LA SAUVENIERE25930 DATA (BEL.)BOTRANGE,(LUX.)C7}LERVEAUX25940 DATA (LUX.)LUXEMBOURG (BEGGEN)25950 DATA (LUX.)LUXEMBOURG,(LUX.)ECHTERNACH25960 DATA (ZW.)NEUCHATEL),(ZW.)RO7}MONT25970 DATA (ZW.)PAYERNE,(ZW.)LA CHAUX-DE-FONDS25980 DATA (ZW.)FAHY,(ZW.)BERN/BELPMOOS25990 DATA (ZW.)GRENCHEN,(ZW)LANG7}ENBRUCK26000 DATA (ZW.)WYNAU,(ZW.)LAUFENBUG26010 DATA (ZW.)METTLEN,(ZW.)BRUGG,(ZW.)GISWIL26020 DATA (ZW.)ZURICH (STADT),(Z7}W.)TRASADINGEN26030 DATA (ZW.)LAEGERN,(ZW.)ZURICH (KLOTEN)26040 DATA (ZW.)ALTDORF,(ZW.)SAENTIS26050 DATA (ZW.)ST.GALLEN,(Z7}W.)WEESEN26060 DATA (ZW.)GENEVE/CIONTRIN,(ZW.)LA DOLE26070 DATA (ZW.)LE BRASSUS-CARROZ,(ZW.)LAUSANNE26080 DATA (ZW.)AIGLE,7}(ZW.)SAVATRAN26090 DATA (ZW.)LE GRAND SAINT BERNARD26100 DATA (ZW.)SION,(ZW.)FIONNAY,(ZW.)MONTANA26110 DATA (ZW.)GEMMI,(ZW7}.)JUNGFRAUJOCH26120 DATA (ZW.)SPIEZ,(ZW.)INTERLAKEN26130 DATA (ZW.)SIMPLON,(ZW.)ERNEN,(ZW.)GRIMSEL26140 DATA (ZW.)GUETSCH,7}(ZW.)PIOTTA,(ZW.)OLIVONE26150 DATA (ZW.)CIMETTA,(ZW.)LOCARNO/MONTI26160 DATA (ZW.)LOCARNO/MAGADINO,(ZW.)LUGANO26170 DATA (7}ZW.)STABIO,(ZW.)TAVANASA26180 DATA (ZW.)DISENTIS,(ZW.)SAN BERNARDDINO26190 DATA (ZW.)CHUR-EMS,(ZW.)TINZEN26200 DATA (ZW.)L7}EOBIA,(ZW.)CORVATSCH26210 DATA (ZW.)SAMEDAN-ST.MORITZ26220 DATA (ZW.)ST.MORITZ-ISLAS,(ZW.)ROBBIA26230 DATA (LICHTENSTEIN)V7}ADUZ,(NED.)L.SCH. TEXEL26240 DATA (NED.)L.SCH. TERSCHELLINGSBANK26250 DATA (NED.)L.SCH. NOORDHINDER26260 DATA (NED.)L.SCH.7} GOEREE,(NED.)WOENSDRECHT30000 REM *******************************30020 REM VERKLARING VAN DE TEKENS30030 REM ------------7}------------30040 REM 30050 REM II=GEDEELTE DER WERELD WAAR30060 REM HET STATION LIGT.30070 REM III=VOOR HET GEBIED 06 HE7}T BE-30080 REM TREFFENDE STATION.30090 REM BUITEN HET GEBIED 06 WORDT30100 REM HET BLOKNUMMER EN HET STA-30110 REM TIONNU7}MMER GEGEVEN.30120 REM H=HOOGTE VAN DE BASIS VAN DE30130 REM LAAGSTE WOLKEN.30140 REM VV=HORIZONTAAL ZICHT.30150 REM N=BE7}DEKKINGSGRAAD VAN DE HEMEL30160 REM DOOR WOLKEN.30170 REM DD=WINDRICHTING.30180 REM FF=WINDSNELHEID IN METERS/SEC.30190 R7}EM TTT=TEMPERATUUR IN 0,1 GRA-30200 REM DEN CELCIUS.30210 REM TD=DAUWPUNTTEMPERATUUR IN 0,130220 REM GRADEN CELCIUS.302307} REM PO=LUCHTDRUK OP ZEENIVEAU IN30240 REM 0,1 MILLIBAR.30250 REM PP=LUCHTDRUK OP STATIONSNIVEAU30260 REM IN 0,1 MILLIBAR7}30270 REM A=KARAKTER VAN DE LUCHTDRUK-30280 REM VERANDERING.30290 REM PD=BEDRAG VAN DE LUCHTDRUKVER-30300 REM ANDERING.307}310 REM RR=HOEVEELHEID REGEN IN 0,130320 REM MILLIMETER IN DE GEGEVEN30330 REM TIJD.30340 REM WW=WEER TIJDENS DE WAARNEMIN7}G30350 REM EN/OF HET KARAKTER VAN HET30360 REM WEER IN HET AFGELOPEN UUR.30370 REM W=W1/W2=KARAKTER VAN HET WEER30380 REM7} IN DE AFGELOPEN 6 UUR.30390 REM NH=GEDEELTE VAN DE HEMEL30400 REM BEDEKT MET WOLKEN C/L OF30410 REM C/M.30420 REM CL=C/L7}=WOLKEN STATOCUMULUS30430 REM ,STRATUS,CUMULUS.30440 REM CM=C/M=WOLKEN ALTOCUMULUS,30450 REM ALTOSTRATUS,NIMBOSTRATUS.3047}60 REM CH=C/H=WOLKEN CIRRUS,CIRRO-30470 REM CUMULUS,CIRROSTRATUS.30490 REM ******************************30500 REM VIA DE 7}TELEXCONVERTOR MOET U30510 REM DIT BEELD ZIEN.-MET AAXX- B.V.30520 REM 30530 REM ZCZC 446 2870030540 REM SMDD20 ETPD 24067}600 COR30550 REM AAXX 2406130560 REM 09361 31909 03201 10167 2015330570 REM 30073 40285 53004 69942 7026530580 REM 87511 7}33330590 REM 30600 REM U VOERT DAN DE CIJFERS IN :30610 REM 30620 REM 0936131909032011016720153300730630 REM 340285530047}69942702658751130640 REM 30650 REM DUS TOT CIJFERGROEP 33330680 REM 30690 REM **********************30700 REM * J.J.A. 7}SUBELACK *30710 REM * PEELLANDSTRAAT 5 *30720 REM * 5211 VP DEN BOSCH *30730 REM * NEDERLAND *30750 REM * 7} *30760 REM * MACHINE COMM.64. *30770 REM **********************30780 REM 30790 REM NOS HOBBYSCOOP HI7}LVERSUM30800 REM VOOR ATARI BEWERKT DOOR30810 REM ARIE WESSELS30820 REM EINSTEINLAAN 34730830 REM 1171 VX BADHOEVEDORP307}840 REM H O L L A N D30850 REM TEL. 02968-7525REM ARIE WESSELS30820 REM EINSTEINLAAN 34730830 REM 1171 VX BADHOEVEDORP304010 ? "}":SETCOLOR 2,5,4:SETCOLOR 1,0,14:SETCOLOR 4,5,020 DIM N$(40),I$(20),NA$(20),PU(2),AW$(1),X(2),Y(2),CF(2)30 N$=" ":N$;}(40)=" ":N$(2)=N$(1)40 X(1)=0:X(2)=18:PU(1)=0:PU(2)=050 CF(1)=0:CF(2)=060 GOSUB 27070 FOR N=1 TO 280 LX=20:LY=7:POSITI;}ON X(N),N*2-1:GOSUB 63090 GOSUB 190100 IF CF(N)=1 THEN GOSUB 560:GOTO 120110 GOSUB 520120 GOSUB 340130 GOSUB 4;}80140 GOSUB 220:LX=22:LY=1:POSITION 8,0:GOSUB 630:? #3;" Weiter mit RETURN.";:INPUT #3;I$150 CLOSE #3160 IF GEW>0 ;}THEN GOSUB 410:GOTO 70170 NEXT N180 GOTO 70190 ? #3;"Jetzt bist Du dran,":? #3;N$(N*20-19,N*20);200 ? #3;"Wilst Du eine K;}arteziehen (J/N) ? ";210 RETURN 220 LX=30:LY=10:POSITION 4,10:GOSUB 630230 ? #3:? #3;" *** 23 ***"240 ? #3:? #3;;}N$(1,20);": ";PU(1):? #3:? #3;N$(21,40);": ";PU(2)250 ? #3:? #3:? #3;"(c) 1985 DWS"260 RETURN 270 LX=32:LY=10:POSITION 3,0;}:GOSUB 630280 ? #3:? #3;" *** 23 ***"290 ? #3:? #3;"Wie heisst der erste Spieler ?":INPUT #3;I$:N$(1,20)=I$300 IF;} I$="" THEN N$(1,5)="ATARI":CF(1)=1310 ? #3:? #3;"Wie heisst der zweite Spieler ?":INPUT #3;I$:N$(21,40)=I$320 IF I$="" THE;}N N$(21,28)="COMPUTER":CF(2)=1330 CLOSE #3:RETURN 340 IF NOT KG THEN RETURN 350 PP=INT(RND(0)*3)+3360 PU(N)=PU(N)+PP370 ;}? #3;"Du hast ";PP;" Punkte":? #3;"gezogen."380 IF PU(N)>23 THEN ? #3;"Du hast verloren!":GEW=N+(N=1)-(N=2)390 IF PU(N)=23 ;}THEN ? #3;"Du hast gewonnen!":GEW=N400 RETURN 410 LX=34:LY=6:POSITION 2,2:GOSUB 630420 IF GEW=3 THEN ? #3;"Unentschieden!";}:? #3:GOTO 450430 ? #3;"Bravo, ";N$(GEW*20-19,GEW*20)440 ? #3;"Du hast gewonnen."450 ? #3:? #3;"Naechstes Spiel mit RETUR;}N."460 INPUT #3;I$:PU(1)=0:PU(2)=0:GEW=0:CLOSE #3470 RETURN 480 IF PU(1)<21 OR PU(2)<21 OR GEW>0 THEN RETURN 490 IF PU(1;})>PU(2) THEN GEW=1:RETURN 500 IF PU(2)>PU(1) THEN GEW=2:RETURN 510 GEW=3:RETURN 520 X=15:Y=3:POINT #3,X,Y:INPUT #3;AW$530;} IF AW$="N" THEN KG=0:RETURN 540 IF AW$<>"J" THEN 520550 KG=1:RETURN 560 GOSUB 590570 IF KG=1 THEN ? #3;"J":RETURN 580 ?;} #3;"N":RETURN 590 IF PU(N)<19 THEN KG=1:RETURN 600 IF PU(N)>20 THEN KG=0:RETURN 610 IF PU(N+(N=1)-(N=2))<18 THEN KG=0:RET;}URN 620 KG=1:RETURN 630 POKE 1538,LX:POKE 1539,LY:POKE 880,255:OPEN #3,12,0,"W:":RETURN 1000 REM 1010 REM WINDOWS OP DE A;}TARI 8-BITS1020 REM 1030 REM VOOR ATARI BASIC:1040 REM POKE 106,144:GRAPHICS 01050 REM WINDOWS.COM1060 REM 1070 REM VOO;}R TURBO-BASIC1080 REM POKE 106,172:GRAPHICS 0:1090 REM BLOAD "D:TWINDOWS.COM"1100 REM 1110 REM ZET MET POSITION X,Y DE11;}20 REM DE CURSOR OP DE JUISTE PLAATS1130 REM POKE 1538 MET LENGTE VAN X-AS1140 REM POKE 1539 MET LENGTE VAN Y-AS1150 REM O;}PEN DAN DEVICE W:1160 REM VOOR HET SLUITEN CLOSE #CHAN1170 REM GEBRUIKEN1180 REM 1190 REM VOOR HET W: DEVICE GELDEN DE12;}00 REM DE ZELFDE REGELS ALS VOOR1210 REM ANDERE DEVICES1220 REM 1230 REM BRON: ATARI-SONDERHEFT1240 REM VAN : HAPPY-COMPU;}TER (C)'86ELFDE REGELS ALS VOOR1210 REM ANDERE DEVICES1220 REM 1230 REM BRON: ATARI-SONDERHEFT1240 REM VAN : HAPPY-COMPU8 (