@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u1 GRAPHICS 1+16:POSITION 2,10:? #6;" SOFTWARE":POSITION 2,11:? #6;"________________"2 FOR A=1 TO 843 READ X4 FOR B=T}1 TO 85 SOUND 0,X,14,8:SOUND 1,X+1,14,8:SOUND 2,X+2,14,8:SOUND 3,X+3,14,86 NEXT B:NEXT A:FOR C=0 TO 3:SOUND C,0,0,0:NEXT CU}7 DATA 96,102,96,102,96,128,108,119,144,144,193,153,144,128,128,193,153,128,122,122,193,96,102,96,102,96,1288 DATA 108,119,1V}44,144,193,153,144,128,128,193,122,128,144,1449 DATA 128,119,108,96,96,0,96,91,96,108,108,0,108,96,108,119,119,0,119,108,119W},128,128,96,102,96,102,96,12810 DATA 108,119,144,144,193,153,144,128,128,193,119,128,144,14411 POKE 16,64:POKE 53774,6413 X}CLR :DIM A$(200),BA(30),TN(100)20 GOTO 2000030 REM 40 BOS=50041 DG=1:ST=099 RESTORE 25000:U=3:POSITION 0,2:? #6;"":POSIY}TION 19,2:? #6;""100 READ A$:IF A$="END" THEN GOTO 120110 POSITION 0,U:? #6;A$:U=U+1:GOTO 100120 MEN=3121 GOSUB 1100013Z}0 ZW=7140 POSITION 16,23:? #6;"mcs"200 PX=1:PY=3:POSITION PX,PY:? #6;""210 REM 220 BO=BOS250 GOSUB 300:GOTO 1000300 RE[}M 310 RETURN 1000 Q=STICK(0):RX=0:FX=0:C=01010 S=0:IF Q=15 THEN S=1:GOTO 11001020 IF Q=7 THEN RX=1:GOTO 10301021 IF Q=11\} THEN RX=-1:GOTO 10301022 S=11030 IF STRIG(0)=0 THEN GOSUB 2000:IF FX=0 THEN GOTO 11001031 IF FX=1 THEN ER=SER:GOTO 10511]}032 IF S=1 THEN GOTO 11001040 LOCATE PX+RX,PY,ER1050 IF ER=32 THEN GOTO 10561051 IF CHR$(ER)="#" THEN SOUND 0,200,6,8:GOTO^} 11001052 IF CHR$(ER)="%" THEN GOSUB 3000:GOTO 11001053 IF CHR$(ER)="" THEN GOSUB 4000:GOTO 2001054 IF CHR$(ER)="" THEN _}GOSUB 5000:GOTO 11001055 IF CHR$(ER)="" THEN GOSUB 55001056 IF FX=1 THEN GOTO 11001060 LOCATE PX+RX,PY+1,ER1061 IF (CHR$`}(ER)="@" OR CHR$(ER)="") AND FX=0 THEN GOSUB 60001062 IF ER=32 THEN GOSUB 70001099 SOUND 0,20,14,81100 IF CHR$(SER)="#" Aa}ND FX=1 THEN C=1:GOSUB 40001110 SOUND 0,0,0,01200 POSITION 2,0:? #6;PO1210 POSITION 15,0:? #6;BO;" "1220 BOZ=BOZ+1:IF BOZb}=20 THEN BO=BO-20:BOZ=0:IF BO=0 THEN GOSUB 4500:GOTO 2001300 POKE 77,101400 IF PEEK(764)<>255 THEN GOSUB 190001999 GOTO 10c}002000 IF RX=0 THEN RETURN 2010 IF RX=-1 THEN GOTO 25002011 LOCATE PX+1,PY-1,ER:IF ER<>32 THEN RETURN 2015 POSITION PX,PYd}:? #6;" "2020 POSITION PX,PY-1:? #6;"=-":FOR T=0 TO 9:SOUND 0,T*3+5,8,8:NEXT T2030 POSITION PX,PY-1:? #6;" *":FOR T=0 TO 9:e}SOUND 0,33+T*3,8,82035 LOCATE PX+2,PY,SER:IF SER<>32 THEN FX=1:PX=PX+2:RX=0:POSITION PX-2,PY-1:? #6;" ":RETURN 2036 LOCATEf} PX+2,PY+1,ER:IF ER=32 THEN PX=PX+2:FX=1:RX=0:POSITION PX-2,PY-1:? #6;" ":GOTO 70002040 POSITION PX,PY-1:? #6;" ":POSITIONg} PX+2,PY:? #6;""2050 PX=PX+22100 RETURN 2500 REM 2511 LOCATE PX-1,PY-1,ER:IF ER<>32 THEN RETURN 2513 POSITION PX,PY:? #h}6;" "2520 POSITION PX-1,PY-1:? #6;"=-":FOR T=0 TO 9:SOUND 0,5+T*3,8,8:NEXT T2530 POSITION PX-1,PY-1:? #6;"* ":FOR T=0 TO 9:i}SOUND 0,33+T*3,8,8:NEXT T2535 LOCATE PX-2,PY,SER:IF SER<>32 THEN FX=1:PX=PX-2:RX=0:POSITION PX+1,PY-1:? #6;" ":RETURN 2536j} LOCATE PX-2,PY+1,ER:IF ER=32 THEN PX=PX-2:FX=1:RX=0:POSITION PX+1,PY-1:? #6;" ":GOTO 70002540 POSITION PX-1,PY-1:? #6;" "k}:POSITION PX-2,PY:? #6;""2550 PX=PX-22560 IF CHR$(ER)="" THEN POP :RX=-1:GOSUB 6000:GOTO 11002590 RETURN 3000 POSITION l}PX,PY:? #6;" "3002 PX=PX+RX3010 FOR T=250 TO 100 STEP -73011 SOUND 0,T,8,8:SOUND 1,T-10,0,63012 POSITION PX,PY:? #6;""3m}013 POSITION PX,PY:? #6;"%"3014 NEXT T:PY=PY-33020 FOR T=150 TO 250 STEP 73021 SOUND 0,T,8,8:SOUND 1,T-10,12,63022 POSITIn}ON PX,PY:? #6;";"3023 POSITION PX,PY:? #6;""3024 NEXT T:POSITION PX,PY:? #6;""3100 SOUND 1,0,0,0:SOUND 2,0,0,0:RETURN 4o}000 IF FX=0 THEN GOSUB 60004010 FOR T=0 TO 204011 POSITION PX,PY:? #6;""4012 POSITION PX,PY:? #6;";"4013 POSITION PX,PY:p}? #6;""4014 SOUND 0,200+RND(0)*50,6,8:NEXT T:POSITION PX,PY:? #6;"":IF C=1 THEN POSITION PX,PY:? #6;"#"4020 MEN=MEN-1:GOSq}UB 110004030 PX=1:PY=3:BO=BOS4040 RETURN 4500 POSITION 15,0:? #6;" ":FOR T=0 TO 204505 POSITION 0,23:? #6;" time is outr}"4511 POSITION PX,PY:? #6;""4512 POSITION PX,PY:? #6;";"4513 POSITION PX,PY:? #6;"*"4514 SOUND 0,200+RND(0)*50,6,8:NEXT s}T:POSITION PX,PY:? #6;" "4515 POSITION 0,23:? #6;" ŠӠ"4520 MEN=MEN-1:GOSUB 110004530 PX=1:PY=3:BO=10004531 POSITt}ION 0,23:? #6;" "4549 RETURN 5000 FOR T=30 TO 10 STEP -45010 SOUND 0,T,14,8:SOUND 1,T+2,14,85020 SETCOLOR 3,1,u}T:NEXT T5030 PO=PO+50:SOUND 1,0,0,0:GOSUB 300:ZW=ZW-1:SOUND 0,0,0,05040 IF FX=0 THEN GOSUB 60005041 IF FX=1 THEN POSITION v}PX,PY:? #6;""5060 RETURN 5500 IF ZW<>0 AND FX=1 THEN GOSUB 5600:RETURN 5501 IF ZW<>0 THEN FX=1:RETURN 5502 FOR T=0 TO 10w}:POSITION PX,PY:? #6;" "5510 POSITION PX+RX,PY:? #6;"":SOUND 0,20,14,8:FOR G=0 TO 4:NEXT G5520 POSITION PX+RX,PY:? #6;"":x}SOUND 0,RND(0)*30+5,14,8:FOR G=0 TO 4:NEXT G5530 PO=PO+2505540 POP :GOTO 130005600 IF Q=11 THEN PX=PX+15610 IF Q=7 THEN Py}X=PX-15620 LOCATE PX,PY+1,ER:IF ER=32 THEN GOSUB 7000:RETURN 5630 LOCATE PX,PY,ER:IF ER<>32 THEN POP :GOTO 10515640 POSITIz}ON PX,PY:? #6;"":RETURN 6000 REM 6005 IF RX=-1 THEN GOTO 65006010 POSITION PX,PY:? #6;CHR$(157);"":FOR T=0 TO 9:NEXT T6{}020 POSITION PX,PY:? #6;" ":PX=PX+16100 RETURN 6500 POSITION PX-1,PY:? #6;CHR$(157);"":FOR T=0 TO 9:NEXT T6510 POSITION |}PX-1,PY:? #6;" "6520 PX=PX-1:RETURN 7000 IF FX=0 THEN GOSUB 60007010 LOCATE PX,PY+1,ER7020 IF ER<>32 THEN SOUND 0,0,0,0:}}GOTO 71007030 PY=PY+17040 POSITION PX,PY-1:? #6;" "7050 POSITION PX,PY:? #6;""7060 FOR T=0 TO 1:NEXT T7065 SOUND 0,PY*5~}+10,14,8:SOUND 0,0,0,07070 GOTO 70107100 IF CHR$(ER)="" THEN PY=PY+1:POSITION PX,PY-1:? #6;" ":POSITION 1,3:? #6;"":GOSUB} 4010:RETURN 7110 IF CHR$(ER)="@" THEN SOUND 0,200,2,10:RETURN 7120 IF CHR$(ER)="'" THEN GOSUB 5000:RETURN 7130 RETURN 80}00 REM 8010 IF BB=0 THEN BAS=BA(ABS(NR)):NR=NR+18015 SOUND 1,0,0,08020 TON=TN(ABS(NR-1)*3+BB):BB=BB+1:IF BAS<60 THEN K=18}021 IF NR<1 THEN TON=91:BAS=488025 IF BAS=0 THEN SOUND 0,0,0,0:GOTO 80358030 SOUND 0,BAS,12,8-2*(BB+1)+K8035 IF TON=0 THEN} SOUND 2,0,0,0:GOTO 80458040 SOUND 1,TON,10,8:SOUND 2,TON,14,58045 IF NR=23 THEN NR=0:BB=38050 IF BB=3 THEN BB=08060 RETU}RN 10000 POSITION 0,23:? #6;" "10001 GG=0:J=0:NR=-110002 FOR T=0 TO 22:POSITION 0,T:? #6;"}":NEXT T10010 POSITION 0,0:? #6;"score: "10011 POSITION 10,1:? #}6;PO:IF PO>HI THEN HI=PO:PO=0:ROOM=010012 POSITION 5,17:? #6;""10013 POSITION 5,18:? #6;" top "10014 POSI}TION 5,19:? #6;" "10015 POSITION 5,20:? #6;""10016 POSITION 7,19:? #6;HI10020 PX=19:PY=4:RX=-1:PO=0:S}T=010023 POSITION 0,410024 ? #6;" ";10025 ? #6;"@@@@@ @@@@@@@";10030 ? #6;" "1003}1 ? #6;" "10032 ? #6;" @@@@ "10033 ? #6;" "10034 ? #6;" % "10035 ? #6;" @}@@@@@@@@"10036 ? #6;" "10037 ? #6;" "10038 ? #6;"@@@@@@@@@@@@@@@"10100 FOR P=0 TO 6:}GOSUB 6000:SOUND 0,20,14,10:SOUND 0,0,0,0:NEXT P10101 GOSUB 7010:SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,010102 FOR P=0 TO }4:GOSUB 6000:SOUND 0,20,14,10:SOUND 0,0,0,0:NEXT P10103 GOSUB 300010104 FOR P=0 TO 2:GOSUB 6000:SOUND 0,20,14,10:SOUND 0,0,}0,0:NEXT P10105 GOSUB 7010:J=1:SOUND 3,0,0,0:SOUND 2,0,0,0:SOUND 1,0,0,010106 RESTORE 28000+INT(GG/14):READ A$:RX=1:FOR P=0} TO 13:GOSUB 6000:GOSUB 10200:NEXT P10107 RESTORE 28000+INT(GG/14):READ A$:RX=-1:FOR P=0 TO 13:GOSUB 6000:GOSUB 10200:NEXT P}10110 GOTO 1010610200 IF PEEK(53279)=6 THEN SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,0:GOTO 1080010201 POSITION PX-RX,PY:? }#6;A$(J,J):J=J+RX:IF GG/2=INT(GG/2) THEN GOSUB 800010202 GG=GG+1:IF GG=290 THEN RESTORE 28000:GG=110210 RETURN 10800 FOR T}=0 TO 22:POSITION 0,T:? #6;" ":NEXT T10999 ST=1:GOTO 3011000 IF MEN=-1 THEN GOTO 1200011005 IF MEN=0 TH}EN POSITION 9,0:? #6;" ":RETURN 11010 FOR T=1 TO MEN11011 IF T>5 THEN GOTO 1103011020 POSITION 14-T,0:? #6;"";:NEXT T}:POSITION 13-T,0:? #6;" "11030 RETURN 12000 POSITION 5,1:? #6;" OVER"12001 SOUND 0,0,0,0:SOUND 1,0,0,012010 FOR T=0 }TO 14:SETCOLOR 1,T,T:SETCOLOR 2,14-T,14-T12011 FOR G=0 TO 5:NEXT G12020 H=H+1:IF H=50 THEN H=1:GOTO 1250012030 NEXT T:GOTO} 1201012500 POSITION 5,1:? #6;" "12503 POSITION 2,0:? #6;" "12505 FOR T=0 TO 10:SOUND 0,RND(0)*20+10,14,8:}NEXT T:SOUND 0,0,0,012510 SETCOLOR 1,7,10:SETCOLOR 2,9,4:ROOM=1:GOTO 1000013000 REM 13010 FOR T=BO TO 0 STEP -2013011 PO=}PO+20*DG:ZW=713012 POSITION 2,0:? #6;PO:POSITION 15,0:? #6;T;" "13013 SOUND 0,20,10,8:SOUND 0,0,0,013014 NEXT T13100 ST=S}T+1:DG=DG+113110 RESTORE ST*100+2500013111 IF ST=10 THEN ST=0:MEN=MEN+1:BOS=BOS-100:GOTO 1311013112 IF BOS<300 THEN BOS=BO}S-4013113 IF BOS<169 THEN BOS=16013120 U=3:GOSUB 1100013130 READ A$:IF A$="END" THEN POP :GOTO 1330013140 POSITION 0,U:? }#6;A$:U=U+1:GOTO 1313013300 REM 29004:FOR T=1 TO 7:READ W:NEXT T:IF W<>118 THEN GOTO 1340013310 RESTORE 28001:READ A$:IF A$}(3,3)<>CHR$(237) THEN GOTO 1340013320 GOTO 20013400 GOTO 1340015000 REM 15020 POSITION 6,5:? #6;"UPR "15030 RETURN }17000 RESTORE 2900017010 ? #617100 READ S:T=T+117101 IF S=-3 THEN FOR P=0 TO 19:POSITION P,6:? #6;"_":NEXT P:GOTO 1710017}110 IF S=-1 THEN ? #6:T=0:GOTO 1710017111 IF S=-2 THEN RETURN 17120 ? #6;CHR$(S-T);:IF S<>32 THEN SOUND 0,RND(0)*50+100,12,}8:SOUND 0,0,0,0:POKE 53279,1:POKE 53279,817130 GOTO 1710019000 IF PEEK(53279)=6 THEN SETCOLOR 4,0,0:RETURN 19005 IF PEEK(5}3279)=5 THEN SETCOLOR 4,0,0:GOTO 1000019010 SETCOLOR 4,3,2:POKE 764,255:GOTO 1900020000 M=PEEK(106)-4:C=M*256:POKE 106,M-1:}GRAPHICS 1+16:GOSUB 1500020010 RESTORE 20020:FOR I=1536 TO 1567:READ A:POKE I,A:NEXT I20011 D=USR(1536,224*256,C)20012 RES}TORE 20100:FOR I=1 TO 50:READ R:N=C+R*820013 FOR Z=0 TO 7:READ K:POKE N+Z,K20014 NEXT Z:NEXT I20015 POKE M-1,0:POKE 756,M:}GOSUB 17000:RESTORE 31000:FOR T=0 TO 25:READ A:BA(T)=A:NEXT T20016 FOR T=0 TO 73:READ A:TN(T)=A:NEXT T:GOTO 1000020020 DATA} 104,104,133,213,104,133,212,104,13320030 DATA 215,104,133,214,162,4,160,0,177,212,14520040 DATA 214,200,208,249,230,213,23}0,215,20220050 DATA 208,240,9620110 DATA 16,126,66,66,70,70,102,126,020111 DATA 17,8,8,8,24,24,24,24,020112 DATA 18,62,38},6,62,48,48,62,020113 DATA 19,60,12,12,62,6,6,62,020114 DATA 20,96,96,100,108,126,12,12,020115 DATA 21,124,96,96,124,12,12},124,020116 DATA 22,124,96,96,126,102,102,126,020117 DATA 23,126,6,6,28,56,48,48,020118 DATA 24,60,100,100,126,102,102,126},020119 DATA 25,124,100,100,124,12,76,124,020120 DATA 1,170,85,170,85,170,85,170,8520121 DATA 3,255,239,189,255,251,191,25}4,23920122 DATA 4,255,0,255,127,254,239,255,19020123 DATA 5,255,195,129,129,129,129,129,12920124 DATA 6,0,0,16,56,108,118,}222,25120125 DATA 7,0,28,42,60,60,116,84,8420126 DATA 11,0,56,108,60,24,60,102,19520127 DATA 10,0,28,54,60,24,60,102,1952}0128 DATA 8,0,0,54,127,99,54,28,820129 DATA 13,128,192,192,128,192,96,96,3220130 DATA 29,1,3,3,1,3,6,6,420131 DATA 9,60,66},153,161,161,153,66,6020132 DATA 32,255,221,255,85,170,85,170,8520133 DATA 27,0,66,36,153,82,44,153,10220141 DATA 33,126,6}6,66,126,98,98,98,020142 DATA 34,124,68,68,126,98,98,126,020143 DATA 35,126,66,64,96,96,98,126,020144 DATA 36,124,70,66,98},98,102,124,020145 DATA 37,126,64,64,124,96,96,126,020146 DATA 38,126,64,64,120,96,96,96,020147 DATA 39,126,66,64,102,98,9}8,126,020148 DATA 40,66,66,66,126,98,98,98,020149 DATA 41,16,16,16,24,24,24,24,020150 DATA 42,126,2,2,6,6,38,62,020151 DA}TA 43,66,68,72,112,104,100,98,020152 DATA 44,64,64,64,96,96,96,126,020153 DATA 45,66,102,126,90,66,66,66,020154 DATA 46,66},98,82,74,102,98,98,020155 DATA 47,126,66,66,98,98,98,126,020156 DATA 48,126,66,66,126,96,96,96,020157 DATA 49,126,66,66,9}8,98,102,126,120158 DATA 50,126,66,66,126,104,100,98,020159 DATA 51,62,96,96,60,6,6,124,020160 DATA 52,126,16,16,24,24,24,}24,020161 DATA 53,66,66,66,98,98,98,126,020162 DATA 54,66,66,66,66,98,52,24,020163 DATA 55,66,66,66,90,126,102,66,020164 }DATA 56,66,66,36,24,52,98,98,020165 DATA 57,66,66,66,36,24,24,24,020166 DATA 58,126,2,4,24,48,96,126,020309 DATA 20310 D}ATA ) 1984"20311 DATA 20320 DATA magic circle"20330 DATA SOFTWARE"20340 DATA 20341 DATA 20350 D}ATA Π"20351 DATA 20360 DATA EVERT DEKKER"25000 DATA #  #,@@@@ @@@@@ @@@@@ @@25001 DA}TA ## # #25002 DATA #% % #25003 DATA @@@@@@ @@ @@@@ @@ #25004 DATA # # # #25005} DATA # % % #25006 DATA @@ @@@@@ @@ @@@@ @@25007 DATA ## # #25008 DATA #%  %  #25}009 DATA @@@@ @@ @ @@@@ @@ @25010 DATA # ## # #25011 DATA # %# %  #25012 DATA @@@@@@@@@@@@ @@@@@@}25013 DATA ## # #25014 DATA #%  #  #25015 DATA @@@ @@@@@@@@@@@@@ #25016 DATA ### ## } #25017 DATA ####% #25018 DATA @@@@@@@@@25020 DATA END25100 DATA # #,@@@@ @@@@@} @@@@@ @@25101 DATA ## # #25102 DATA #% % #25103 DATA @@@@@@ @@ @@@@ @@ #25104 DATA # }# # #25105 DATA #  % % #25106 DATA @@ @@@@@@@ @@@@@ @@25107 DATA ## # #25108 DATA #% }  % #25109 DATA @@@@ @@ @ @@ @ @@ @25110 DATA # ## # #25111 DATA # %# %  #25112 DATA @}@@@@ @@@@@@ @@@@@@25113 DATA ## #25114 DATA #%  #25115 DATA @@ @@@@ @@@@@ #25116 DAT}A # # #25117 DATA #  %  #25118 DATA @@25120 DATA END25200 DATA # }  #25201 DATA @@@@@@@@@@@@@ @@@ #25202 DATA # # # #25203 DATA #  % % #25204 DATA @@@ @@@@@}@ @@@@@@ @25205 DATA ## #25206 DATA #%   #25207 DATA @@@@@@ @@ @@@@@@@@ @25208 DATA # } ## #25209 DATA #  %# #25210 DATA @@ @@@@@ @@@@ @@@@@25211 DATA ## # #25212 DATA #% } %  #25213 DATA @@ @ @@@@@@@@@@@ @@25214 DATA # ##25215 DATA #  %#25216 DATA }@@@ @@@@@@@@@ @@@@25217 DATA # ###25218 DATA # %##25219 DATA @@@@@@25220 DA}TA END25300 DATA #  #25301 DATA #@@ @@@@@ @@@@@@@#25302 DATA ## # ##25303 DATA #% % }  %#25304 DATA @@@@@@ @@@@ @@@@@@25305 DATA # ## ## #25306 DATA # %#  #% #25307 DATA @@@@@@@@} @@@@@@@@25308 DATA ## # # ##25309 DATA #%  # #  %#25310 DATA @@@@@@@@@ @@@@@@@@@25311 DATA # # } ###25312 DATA # %  %##25313 DATA @@@@@ @@@@@@@@@@@@@@25314 DATA ## #25315 DATA #%}  #25316 DATA @@@@@ #25317 DATA # # #25318 DATA # % #25319 DATA} @@@@@@@@@@@@@@@@@@@@25320 DATA END25400 DATA # #25401 DATA @@@@@ #25402 DATA ## }  #25403 DATA #% @@ @@@@ @@@@ #25404 DATA @@@@ #25405 DATA # #  #25406 DATA # % @@@ } @@@ @@@25407 DATA @@@@ #25408 DATA ##   #25409 DATA #% @ @@ @@@@@ #25410 DATA @@@@ } #25411 DATA # #   #25412 DATA # % @@ @@ @@@@25413 DATA @@@@ #25414 DATA ## }   #25415 DATA #% @@ @@@@ @@@ #25416 DATA @@@@ #25417 DATA # # #25418 DATA #} % #25419 DATA @@@@@@@@@@@@@@@@@@@@25420 DATA END25500 DATA # #25501 DATA @@ @@@@@@ @@@@} @ @@25502 DATA # # #25503 DATA # %  #25504 DATA @@@@@ @@@@@@ @@@@@ #25505 DATA # } # #25506 DATA # % #25507 DATA # @@@@@@@@@@@@@@@@ #25508 DATA # ## #25509 DATA #  }#%  #25510 DATA @@ @@@@@##@ @@@ @@25511 DATA # #### #25512 DATA # %##% #25513 DATA #@ @@@}@@###@@@@ @ #25514 DATA # ### # #25515 DATA # %# %  #25516 DATA #@@ @@@# @@@@ @@@25517 DATA # } # #25518 DATA # %  #25519 DATA #@@@@@@@@@@@@@@@@@@#25520 DATA END25600 DATA # } #25601 DATA #@@@ @@@ @@@ @@@@#25602 DATA # # # #25603 DATA # % %  #25604 DATA #@@ @@@ @@}@@@ @#25605 DATA ## ##25606 DATA #%  %#25607 DATA #@@@@@ @@@@ @@@@@#25608 DATA # # } # #25609 DATA # % % #25610 DATA # @@@@@ @@@@@ #25611 DATA # # # #25612 DATA # % } % #25613 DATA #@@@ @@@@@@@@ @@@#25614 DATA ## ##25615 DATA #%   %#25616 DATA #@ @@} @@ @@ @@ @@ @#25617 DATA # #25618 DATA # #25619 DATA #@@@@@@@@@@@@@@@@@@#25620 DATA EN}D25700 DATA #   #25701 DATA #@@@ @@@@@ @@ @@@@#25702 DATA # # # #25703 DATA # % } % #25704 DATA # @@@@@@ @@@@@ @@#25705 DATA # # ##25706 DATA #  % %#25707 DATA # @@ @@@ @@}@@ @@@#25708 DATA # # # #25709 DATA #  % % #25710 DATA # @@@ @@@ @@ @@@@@#25711 DATA # } ## #25712 DATA #  #% #25713 DATA # @@@@@@ @@@@ @@@@#25714 DATA # # ##25715 DATA # %}  %#25716 DATA #@@@ @@ @@ @@ @@@@#25717 DATA ## #25718 DATA #%  #25719 DATA #@@@}@@@@@@@@@@@@@@@#25720 DATA END25800 DATA #  #25801 DATA #@@@@@@@@@@@@@@@@ #25802 DATA # # } #25803 DATA #  % #25804 DATA #@@@@@@ @@@@@@@@@ #25805 DATA ## #25806 DATA #%  } #25807 DATA #@@@ @@@@@ @@@@ #25808 DATA # # # #25809 DATA # % %   #25810 DATA # @@@ @@@@@} @@@@ #25811 DATA # # #25812 DATA # % #25813 DATA # @@@@@@@ @@@@@@@ #25814 DATA # # } #25815 DATA # %   #25816 DATA #@@@@ @@@@ @@@@@ #25817 DATA ## #25818 DATA #% } #25819 DATA #@@@@@@@@@@@@@@@@@@#25820 DATA END25900 DATA #   #25901 DATA #@@ @@@@@@@@ @@#}25902 DATA # # ##25903 DATA # % %#25904 DATA #@@@@ @@@@@@ @@@@#25905 DATA # # } #25906 DATA #  %  #25907 DATA # @ @@@@@@@@@@@@ @ #25908 DATA # # #25909 DATA # % } #25910 DATA # @@@ @@@ #25911 DATA # ## ## #25912 DATA # %# #% #25913 DATA # @@@ } @@@ #25914 DATA # ## ## #25915 DATA # %# #% #25916 DATA #@ @@@@ @@ @@@@ @#25917 DATA # # } # #25918 DATA # %   % #25919 DATA #@@@############@@@#25920 DATA END27000 DATA 62,160,196,193,205,193},199,197,160,195,207,206,212,210,207,204,16027001 DATA 127,127,127,127,127,127,127,100,105,101,115,101,115,32,80,114,111,103},114,97,109,10927002 DATA 127,127,127,127,127,32,32,32,119,117,114,100,101,32,118,111,11027003 DATA 127,127,127,127,127,32,}32,32,32,74,111,110,97,32,70,117,99,104,11527004 DATA 127,127,127,127,127,32,103,101,115,99,104,114,105,101,98,101,110,32,33},33,33,028000 DATA 28001 DATA 堛28002 DATA 堠28003 DATA 󠠠28004 DA}TA jumper 2,28005 DATA 28006 DATA 28007 DATA 28008 D}ATA 蠠28009 DATA 28010 DATA 28011 DATA 򠠠28012 DATA &}28013 DATA 28014 DATA 28015 DATA %28016 DATA ᠠ28017 DATA }@28018 DATA 28019 DATA 28020 DATA 28100 DATA END2900}0 DATA -3,-1,33,34,35,36,37,47,39,57,66,66,63,44,79,103,-129001 DATA -1,33,34,35,36,114,103,110,113,108,42,110,117,127,113,1}23,117,-129002 DATA 33,34,35,36,37,38,250,247,239,254,258,237,255,243,-1,-129003 DATA 33,34,35,36,37,221,217,209,221,222,20}8,218,173,208,232,-1,-129004 DATA 33,34,35,36,37,107,125,109,123,126,43,112,114,121,122,117,131,-231003 DATA 48,37,28,97,75},63,31,0,0,0,31,37,31,28,0,0,33,37,51,48,4231004 DATA 0,0,0,0,0,91,72,60,182,144,121,0,0,0,121,108,128,121,108,96,031005 DA}TA 0,0,121,96,72,144,121,96,121,144,128,121,144,128,121,128,102,108,114,121,14431006 DATA 128,121,96,81,91,144,144,144,121,1}08,96,128,121,108,144,128,121,0,96,0,031007 DATA 91,0,0,81,0,0,144,0,0,128,128,0,0,0,0,0,028,121,96,81,91,144,144,144,121,1\100 REM àΛ130 REM This program displays Micro Illustrator files in a continuous slide show.140 REM It loads one }file in one part of memory, while it displays another file150 REM in a second area of memory. Then it fades the screen to bl }ack, switches the160 REM display list to the newly loaded picture, and fades back up. The program170 REM runs continuously, } showing the selected .PIC" files on a disk. Requires 48K.180 DIM MAIN$(330),FILE$(800),MODE$(61),NAME$(15),TEMP$(15),FILES$ }(8*64),DPIC$(8),DISK$(1)190 GRAPHICS 0:SETCOLOR 1,0,10:SETCOLOR 2,0,4:SETCOLOR 4,3,0:POKE 559,0191 DLST=PEEK(560)+256*PEEK( }561):POKE DLST+20,32:POKE DLST+27,16:POKE 559,34:POKE 752,1192 POSITION 0,0:? CHR$(125);:POSITION 5,1:? " M A G I C L A N }T E R N "193 POSITION 6,21:? "PRESS ANY KEY TO CONTINUE"194 POSITION 6,6:? "RICHARD Q. FOX [72356,242]":? " LEE C. ZION } [70155,656]"195 POSITION 6,10:? "BOB GEAYER [71425,463]":? " DOUG LANGE [74365,610]"196 POSITION 6,14:? "TO }M McCOMB [72456,1042 } } } } } } } }100 REM àΛ130 REM This program displays Micro Illustrator files i }n a continuous slide show.140 REM It loads one file in one part of memory, while it displays another file150 REM in a secon }d area of memory. Then it fades the screen to black, switches the160 REM display list to the newly loaded picture, and fades } back up. The program170 REM runs continuously, showing the selected .PIC" files on a disk. Requires 48K.180 DIM MAIN$(330) },FILE$(800),MODE$(61),NAME$(15),TEMP$(15),FILES$(8*64),DPIC$(8),DISK$(1)190 GRAPHICS 0:SETCOLOR 1,0,10:SETCOLOR 2,0,4:SETCOL }OR 4,3,0:POKE 559,0191 DLST=PEEK(560)+256*PEEK(561):POKE DLST+20,32:POKE DLST+27,16:POKE 559,34:POKE 752,1192 POSITION 0,0: }? CHR$(125);:POSITION 5,1:? " M A G I C L A N T E R N "193 POSITION 6,21:? "PRESS ANY KEY TO CONTINUE"194 POSITION 6,6:? }"RICHARD Q. FOX [72356,242]":? " LEE C. ZION [70155,656]"195 POSITION 6,10:? "BOB GEAYER [71425,463]":? " DOU }G LANGE [74365,610]"196 POSITION 6,14:? "TOM McCOMB [72456,1042 } } } } } } } }100 REM àΛ130 REM } This program displays Micro Illustrator files in a continuous slide show.140 REM It loads one file in one part of memory, w }hile it displays another file150 REM in a second area of memory. Then it fades the screen to black, switches the160 REM dis }play list to the newly loaded picture, and fades back up. The program170 REM runs continuously, showing the selected .PIC" f }iles on a disk. Requires 48K.180 DIM MAIN$(330),FILE$(800),MODE$(61),NAME$(15),TEMP$(15),FILES$(8*64),DPIC$(8),DISK$(1)190 }GRAPHICS 0:SETCOLOR 1,0,10:SETCOLOR 2,0,4:SETCOLOR 4,3,0:POKE 559,0191 DLST=PEEK(560)+256*PEEK(561):POKE DLST+20,32:POKE DLS }T+27,16:POKE 559,34:POKE 752,1192 POSITION 0,0:? CHR$(125);:POSITION 5,1:? " M A G I C L A N T E R N "193 POSITION 6,21:? } "PRESS ANY KEY TO CONTINUE"194 POSITION 6,6:? "RICHARD Q. FOX [72356,242]":? " LEE C. ZION [70155,656]"195 POSITION } 6,10:? "BOB GEAYER [71425,463]":? " DOUG LANGE [74365,610]"196 POSITION 6,14:? "TOM McCOMB [72456,1042 } !} "} #} $} %} &} '} (}100 REM àΛ130 REM This program displays Micro Illustrator files in a continuous slide show.14 )}0 REM It loads one file in one part of memory, while it displays another file150 REM in a second area of memory. Then it fad *}es the screen to black, switches the160 REM display list to the newly loaded picture, and fades back up. The program170 REM +} runs continuously, showing the selected .PIC" files on a disk. Requires 48K.180 DIM MAIN$(330),FILE$(800),MODE$(61),NAME$(1 ,}5),TEMP$(15),FILES$(8*64),DPIC$(8),DISK$(1)190 GRAPHICS 0:SETCOLOR 1,0,10:SETCOLOR 2,0,4:SETCOLOR 4,3,0:POKE 559,0191 DLST= -}PEEK(560)+256*PEEK(561):POKE DLST+20,32:POKE DLST+27,16:POKE 559,34:POKE 752,1192 POSITION 0,0:? CHR$(125);:POSITION 5,1:? " .} M A G I C L A N T E R N "193 POSITION 6,21:? "PRESS ANY KEY TO CONTINUE"194 POSITION 6,6:? "RICHARD Q. FOX [72356,242]": /}? " LEE C. ZION [70155,656]"195 POSITION 6,10:? "BOB GEAYER [71425,463]":? " DOUG LANGE [74365,610]"196 0}POSITION 6,14:? "TOM McCOMB [72456,1042 1} 2} 3} 4} 5} 6} 100 REM *****************************101 REM * *102 REM * THE GAME OF LIFE *103 REM * 8} *104 REM * BY *105 REM * *106 REM * H.H. ELL9}ERMANN *107 REM * *108 REM * VERSION 1 *109 REM * 13 MAY 1984 :} *110 REM * *111 REM *****************************115 REM 116 REM Šқ117 REM 1;}20 MIN=PEEK(106)-8:POKE 106,MIN121 REM SET UPPER LIMIT BASIC RAM130 GRAPHICS 0140 SETCOLOR 2,0,0:SETCOLOR 1,0,14150 OPEN <}#1,4,0,"K:"160 REM 161 REM Šӛ162 REM 170 SLB=PEEK(88):SHB=PEEK(89)180 SCREEN=SLB+SHB*256190 REM SCREE=}N:FIRST ADRES SCREEN M.200 SCR1=MIN*256210 SCR2=(MIN+4)*256220 REM SCR1: ADR. INVIS. SCR.M. 1230 REM SCR2: ADR. INVIS. SC>}R.M. 2240 REM SCR1: POINT. TO NEXT GENER.250 REM SCR2: POINT. TO FIRST GENER.260 REM 261 REM Š̠ӛ26?}2 REM 270 GOSUB 20000:GOSUB 20005280 CLEAR=ADR(CLEAR$):COPY=ADR(COPY$)290 Q=USR(CLEAR,1536,1689)300 REM CLEARS MEMORY FOR@} LIFE SBR310 GOSUB 20015320 Q=USR(CLEAR,SCR1,SCR1+24*40-1)330 Q=USR(CLEAR,SCR2,SCR2+24*40-1)340 REM CLEARS INVIS. SCREEN A}MEM.350 REM 351 REM Ҡ̠Λ352 REM 360 ? "}"370 ? " THE GAME OF LIFE "380 ? :? :? :? :? :? 39B}0 ? "READY TO ACCEPT CONFIGURATION"400 ? :? :? :? :? :? :? :? :? :? 410 ? "USE JOY STICK (TYPE 1) OR GIVE COORDINATEC}S (TYPE 0) ";420 GOSUB 9000430 ON CHOICE+1 GOSUB 3000,2000440 REM 441 REM Š٠ś442 REM 450 ? "}"460 ?D} "AUTOMATIC DISPLAY (TYPE 1), OR MANUAL CONTROL (TYPE 0) ";470 GOSUB 9000480 AUTO=CHOICE490 ON AUTO+1 GOSUB 5000,4000500 E}REM 501 REM Ԡ٠Ơӛ502 REM 510 POKE 755,0:REM REMOVE CURSOR520 J=0530 J=J+1540 POKE 203,SLB:POKE 2F}04,SHB541 REM LOCATION FOR COPY550 POKE 205,0:POKE 206,MIN551 REM LOCATION OF ORIGINAL560 Q=USR(COPY):REM CALL COPY565 PG}OKE 20,0:POKE 19,0566 REM RESET CLOCK570 POKE 203,SLB:POKE 204,SHB571 REM ADRES OLD GENERATION580 POKE 205,0:POKE 206,MINH}581 REM ADRES NEW GENERATION590 Q=USR(1536):REM CALL LIFE600 POSITION 10,0610 ? " GENERATION ";J;620 IF PEEK(53279)=3 TI}HEN 690630 REM WHEN OPTION LEAVE DISPL. LOOP640 IF AUTO THEN 670650 IF PEEK(53279)<>6 THEN 650655 GOTO 530660 REM NEXT GJ}ENER. IF START IS DOWN670 IF PEEK(20)+PEEK(19)*25652 THEN}N 695820 GET #1,B:IF B<>155 THEN 690830 CHOICE=VAL(CHR$(A))840 ON CHOICE GOTO 850,860,360,890850 ? "}":END 860 POKE 205,O}0:POKE 206,MIN+4861 REM ADRES FOR COPY OF GENER. 1865 POKE 203,0:POKE 204,MIN866 REM ADRESS TO BE COPIED TO870 Q=USR(COPYP})880 GOTO 450890 ? "}"900 ? "COORDINATES OF INITIAL CONFIGURATION "910 FOR J=SCR2 TO SCR2+24*40-1920 IF PEEK(J)=0 THEN 9Q}60930 Y=INT((J-SCR2)/40)940 X=J-SCR2-Y*40950 ? "X= ";X;"";"Y= ";Y960 NEXT J970 POSITION 25,5980 ? " JOB FINISHED ";99R}0 FOR T=1 TO 500:NEXT T:GOTO 6902000 REM ***************2001 REM JOY STICK ENTRY2002 REM ***************2010 ? "}":? " INS}STRUCTIONS JOSTICK ROUTINE ":? :? :? :? :? :? 2011 ? "PRESS FOR LIFE ":? 2030 ? "PRESS FOR SPEED ":? 2040 ? "PT}RESS FOR STOP ":? 2050 ? "PRESS TO CONTINUE ":? 2070 GET #1,A:IF A<>155 THEN 20702080 ? "}":POKE 755,02081 U}REM REMOVE CURSOR2090 XX=0:YY=0:XO=0:YO=0:A=83:CONSOL=532792100 IF PEEK(CONSOL)=3 THEN 25002110 REM LEAVE WHEN OPTION IS DV}OWN2120 POKE SCREEN+XX+YY*40,A2130 FIRE=1-STRIG(0)2140 GOTO 2140+STICK(0)2141 REM DETERM. DIRECT. JOY STICK2145 X=1:Y=1:W}GOTO 22002146 X=1:Y=-1:GOTO 22002147 X=1:Y=0:GOTO 22002149 X=-1:Y=1:GOTO 22002150 X=-1:Y=-1:GOTO 22002151 X=-1:Y=0:GOTO X}22002153 X=0:Y=1:GOTO 22002154 X=0:Y=-1:GOTO 22002155 GOTO 21002200 XO=XX:YO=YY2201 REM STORE OLD POSITION2210 XX=XX+X:Y}IF XX<0 THEN XX=02220 IF XX>39 THEN XX=392230 YY=YY+Y:IF YY<0 THEN YY=02240 IF YY>23 THEN YY=232241 REM CALCULATE NEW POSZ}ITION2250 A=83:IF FIRE THEN A=842251 REM DRAW , IF NOT FIRE, ELSE 2260 POKE SCREEN+XX+YY*40,A2270 IF PEEK(SCREEN+XO+YO*[}40)<>84 THEN POKE SCREEN+XO+YO*40,02271 REM CLEAR OLD POS. IF NOT 2280 IF PEEK(CONSOL)=5 THEN 21002281 REM SKIP WAIT IF S\}ELECT IS DOWN2290 FOR T=1 TO 30:NEXT T2300 GOTO 21002500 REM DRAWING IS FINISHED2501 REM COPY SCREEN TO INVISIBLE2502 RE]}M SCREEN MEMORIES2503 POKE SCREEN+XX+YY*40,0:IF PEEK(SCREEN+42)<>84 THEN POKE SCREEN+42,02504 REM DISCOUNT LAST POSITION25^}05 POKE 203,0:POKE 204,MIN2506 REM COPY TO ADRESS2510 POKE 205,SLB:POKE 206,SHB2511 REM COPY FROM ADRESS2520 Q=USR(COPY):_}REM CALL COPY2530 POKE 203,0:POKE 204,MIN+42531 REM COPY TO ADRESS2540 POKE 205,0:POKE 206,MIN2541 REM COPY FROM ADRESS2`}550 Q=USR(COPY):REM CALL COPY2560 POKE 755,2:REM RESET CURSOR2570 RETURN 3000 REM *****************3001 REM COORDINATES Ia}NPUT3002 REM *****************3010 ? "}"3020 ? "GIVE COORDINATES INITIAL CONFIGURATION "3030 ? :? :? :? 3040 ? " RANGE Xb} COORDINATES 0-39 "3050 ? " RANGE Y COORDINATES 0,23 "3060 ? :? 3070 ? " - WARNING -"3080 ? :? :? 3090 ? "FIRSTc} AND LAST COLUMNS AND ROWS, ARE STABLE "3100 ? :? :? 3110 ? "FINISH WITH -1,-1 "3115 POKE SCR1+42,03116 REM REMOVE UNWANd}TED CELL (???)3120 INPUT X,Y3130 IF X=-1 THEN 32003140 POKE SCR1+X+Y*40,843150 GOTO 31203200 POKE 203,0:POKE 204,MIN+43e}201 REM COPY TO ADRES3210 POKE 205,0:POKE 206,MIN3211 REM COPY FROM ADRESS3220 Q=USR(COPY):REM CALL COPY3230 RETURN 4000f} REM **********************4001 REM AUTOMATIC DISPLAY MODE4002 REM **********************4010 ? "}"4020 ? "MAXIMAL NUMBERg} OF GENERATIONS TO BE DISPLAYED ";4030 INPUT GENMAX4040 ? :? :? :? 4050 ? "DELAY (SEC.) BETWEEN GENERATIONS ";4060 INPUq}B%DOS SYSB*)DUP SYSBSJUMPER3 LSTB@LANTERN LSTBA7LIFE LSTBLISSAJOULSTBLISTSECSLSTBJLMAKER LSTBMAGICPAILSTB*`MASTER LSTB&MASTMINDLSTTMDGOLF LSTMEM130XELSTgMICROMUFLST}MINDBUSTLSTMIXCOLORLST MOVESECSLSTNEONLET LST NOTEBALKLSTFPMDA LSTT DELAY:DELAY=DELAY*504070 RETURN 5000 REM *******************5001 REM MANUAL DISPLAY MODE5002 REM *******************50r}10 ? "}"5020 ? " USE START BUTTON FOR DISPLAY NEXT GENERATION "5030 ? " USE OPTION BUTTON FOR STOPPING THE DISPLAY SEQUENCEs} "5040 IF PEEK(53279)<>6 THEN 50405050 RETURN 9000 REM ************9001 REM 0 OR 1 INPUT9002 REM ************9010 GET #t}1,A:? CHR$(A);9020 IF A<48 OR A>49 THEN ? CHR$(253):GOTO 90109030 GET #1,B:IF B<>155 THEN 90109040 CHOICE=VAL(CHR$(A))905u}0 RETURN 20000 REM PARTIAL COPY - ML ROUTINE20001 REM ZIE PAGINA 1, ML SCHRIFT20002 DIM COPY$(39)20003 RESTORE 20004:FOR v}J=1 TO 39:READ A:COPY$(J,J)=CHR$(A):NEXT J:RETURN 20004 DATA 104,160,0,162,0,177,205,240,2,169,84,145,203,200,208,245,230,20w}6,230,204,232,224,3,208,236,177,20520005 DATA 240,2,169,84,145,203,200,192,192,208,243,9620006 REM ZIE BLZ. 3/4 ML SCHRIFTx}20007 DIM CLEAR$(42)20008 RESTORE 20009:FOR J=1 TO 42:READ A:CLEAR$(J,J)=CHR$(A):NEXT J:RETURN 20009 DATA 104,104,133,204,1y}04,133,203,104,133,206,104,133,205,160,0,152,145,203,165,203,24,105,1,133,203,165,20420010 DATA 105,0,133,204,197,206,208,23z}6,165,203,197,205,208,230,9620015 REM LIF ML SBR20016 REM ML ROUTINE - ML SCHRIFT 520017 RESTORE 20018:FOR J=1536 TO 1689:{}READ A:POKE J,A:NEXT J:RETURN 20018 DATA 104,169,0,133,209,165,205,24,105,40,133,205,165,206,105,0,133,206,160,1,152,24,105,|}40,168,177,20320019 DATA 72,152,56,233,40,168,169,0,133,207,133,208,162,0,136,177,203,240,2,230,208,200,232,224,3,208,24420}}020 DATA 230,207,165,207,201,3,240,8,152,24,105,38,168,76,39,6,152,56,233,82,168,104,240,24,165,208,201,320021 DATA 240,11,2~}01,4,240,7,169,0,145,205,76,111,6,169,1,145,205,76,111,6,165,208,201,3,240,243,76,88,6,20020022 DATA 192,39,208,160,230,209,}165,209,201,22,208,1,96,165,203,24,105,40,133,203,165,204,105,0,133,20420023 DATA 165,205,24,105,40,133,205,165,206,105,0,13}3,206,76,18,6,208,1,96,165,203,24,105,40,133,203,165,204,105,0,133,20420023 DATA 165,205,24,105,40,133,205,165,206,105,0,131 REM Ӡ2 FOR K=1 TO 53 FOR J=1 TO 54 GRAPHICS 8+16:COLOR 15 IF J=K THEN 146 FOR I=1 TO 625 STEP 37 Y=95+75*}SIN(K+I)8 X=160+140*SIN(J*I+5/731)9 XO=XN:XN=X10 YO=YN:YN=Y11 IF I=1 THEN 1312 PLOT XO,YO:DRAWTO XN,YN13 NEXT I14 NEXT} J15 NEXT K160+140*SIN(J*I+5/731)9 XO=XN:XN=X10 YO=YN:YN=Y11 IF I=1 THEN 1312 PLOT XO,YO:DRAWTO XN,YN13 NEXT I14 NEXT 0 REM * ZOEK GEBRUIKTE SECTOREN *1 REM * '85 BY AWS, HOLLAND *5 DIM SEC$(128),CHK$(128),CNT(1040),Z$(1)10 DATA 104,32,8}3,228,9615 SEC$(1)=CHR$(0):SEC$(128)=SEC$(1):SEC$(2)=SEC$:CHK$(1)=CHR$(0):CHK$(128)=CHK$(1):CHK$(2)=CHK$16 PRINT "}DISK SE}CTOR LIST":TRAP 17:OPEN #2,8,0,"P:":PRNT=1:MODE=017 FOR LOOP=0 TO 1040:CNT(LOOP)=0:NEXT LOOP18 TRAP 40000:PRINT "INSERT SO}URCE DISK AND PRESS RETURN";:INPUT Z$20 FOR N=1536 TO 1540:READ X:POKE N,X:NEXT N30 POKE 769,1:POKE 770,82:POSITION 10,10:P}RINT "SECTOR NUMBER :";35 TRAP 10040 FOR SNUM=1 TO 1040:POSITION 26,10:PRINT SNUM50 POKE 778,SNUM-(INT(SNUM/256)*256):POKE} 779,INT(SNUM/256)55 BUFFER=ADR(SEC$):BUFFL=BUFFER-(INT(BUFFER/256)*256):BUFFH=INT(BUFFER/256)56 POKE 772,BUFFL:POKE 773,BU}FFH60 Z=USR(1536)70 IF SEC$=CHK$ THEN CNT(SNUM)=0:NEXT SNUM:GOTO 10080 CNT(SNUM)=SNUM:NEXT SNUM100 PRINT :IF PRNT THEN MO}DE=2:FOR LOOP=1 TO 1040110 IF CNT(LOOP)=0 THEN NEXT LOOP:GOTO 150120 PRINT #MODE;CNT(LOOP);"";:NEXT LOOP150 END THEN MOv1 REM *******************************2 REM * MATTHEWS LABEL MAKER *3 REM * PAGE 6 MAGAZINE - ENGLAND *4 REM *****}**************************10 DIM A$(280),IN$(50),OUT$(400):A$=" ":A$(280)=" ":A$(2)=A$20 XMAX=34:YMAX=8:X=0:Y=0:LBL=1:SBL=4}:LA=2:LD=1:POKE 82,2:POKE 710,14430 OPEN #3,4,0,"K:"40 DIM SPC$(16):SPC$=" "100 REM #######################}######110 REM # #120 REM # Matthew's Label Maker #130 REM # #140 }REM # A public domain program #150 REM # for the editing and #160 REM # printing of labels on the #170 REM # }Atari computers. #180 REM # #190 REM # This program will print #200 REM # any size of labe}l, on any #210 REM # format of label paper, #220 REM # from one of three wide. #230 REM #(three copies will be made)#}240 REM # #250 REM # All size labels can be #260 REM # used, with any spacing #270 REM # } between them. #280 REM # #290 REM # Commonly printed labels #300 REM #can be saved} for later use.#310 REM # #320 REM # Underline and enlarged #330 REM # text on EPSON printers} is #340 REM # available. #350 REM # #360 REM # This program was written #370 R}EM # by Matthew Jones #380 REM # Prestel Mbx 019996027 #385 REM # #390 REM ########}#####################400 ? "} Matthew's"405 ? " ":? " Ҡ":? " } "407 ? " public domain"410 ? :? :? :? :? " Use - for Help"420 GOSUB 1000500} GET #3,A:IF A<32 THEN GOTO 700510 IF A>124 AND A<128 THEN GOTO 700520 IF A>154 AND A<160 THEN GOTO 700530 IF A>252 THEN G}OTO 700540 T=X+(35*Y)+1:A$(T,T)=CHR$(A)550 ? CHR$(A);:X=X+1:IF X89 THEN 500910 A$=" ":A$(280)=" ":A$(2)=A$:X=0:Y=X:GOSUB 1000:GOTO 500920 IF X=0 }THEN GOTO 500:REM DELETE930 X=X-1:T=X+1+(35*Y):A$(T,T)=" ":? " ";:GOTO 500940 POSITION 2,21:? " ŠŠ"}:GOSUB 1200:IF A<>89 THEN 500950 IF Y=YMAX-1 THEN GOTO 970960 FOR I=Y TO YMAX-2:T=(I*35)+1:A$(T,T+34)=A$(T+35,T+69):NEXT I}970 T=((YMAX-1)*35)+1:A$(T,T+34)=" ":GOSUB 1000:GOTO 500980 POSITION 2,21:? " }ԠŠ":GOSUB 1200:IF A<>89 THEN 500985 IF Y=YMAX-1 THEN GOTO 995990 FOR I=YMAX-2 TO Y STEP -1:T=(I*35)+1:A$(T+35,T+6}9)=A$(T,T+34):NEXT I995 T=(Y*35)+1:A$(T,T+34)=" ":GOSUB 1000:GOTO 5001000 REM 1090 POSIT}ION 2,111100 ? "";:FOR I=1 TO XMAX:? "";:NEXT I:? "";1110 FOR I=1 TO YMAX:? "|";:NEXT I:? "";1120 FOR I=1 TO XMAX:}? "";:NEXT I:? ""1130 FOR I=YMAX-1 TO 0 STEP -1:? "|";A$((I*35)+1,(I*35)+XMAX):NEXT I:? "";1140 GOTO 12401150 IF} A=21 THEN A=201160 IF A=5 THEN A=191170 GOTO 5401200 POSITION 2,22:? " ŠՠŠٯΩ";1210 GET #3,A:IF A<>}89 AND A<>78 AND A<>110 AND A<>121 THEN 12101220 IF A=121 THEN A=891230 POSITION 2,21:? ""1240 POSITION 2+X,12+Y:? ""};:RETURN 1250 IF X=34 THEN GOTO 12601255 T=(Y*35)+1:FOR I=X TO 33:A$(T+I,T+I)=A$(T+I+1,T+I+1):NEXT I1260 A$(T+34,T+34)=" "}:GOSUB 1000:GOTO 5001270 IF X=34 THEN GOTO 12801275 T=(Y*35)+1:FOR I=34 TO X+1 STEP -1:A$(T+I,T+I)=A$(T+I-1,T+I-1):NEXT I1}280 A$(T+X,T+X)=" ":GOSUB 1000:GOTO 5001300 ? "} ":? " Р":? " }"1310 ? ""1320 ? "| + | Action initiated |"1330 ? "}"1340 ? "| A,C,Z | Move cursor in line. |"1342 ? "| DELETE | Delete char, move line.|"1345 ? "| INSERT }| Insert space,move line.|"1350 ? "| U (+) | Underline On/Off |"1360 ? "| E () | Enlarged On/Off |"1370 }? ""1380 ? "| M | Modify parameters |"1390 ? "| S | Save current label} |"1400 ? "| L | Load a label |"1410 ? "| P | Print label(s) |"1420 ? "| T | Thick} printing. |"1430 ? ""1440 ? "| with or |"1450 ? "| ac}t on whole lines of the label. |"1460 ? "|To clear label, use |"1465 ? ""}1470 ? " ";1480 GET #3,A:GOTO 4001500 ? "} ":? " }Ӡ":? " "1510 ? :? :? " 1. Label width (characters) = ";XMAX1520 ? :? " 2. Label depth }(lines) = ";YMAX1530 ? :? " 3. Lines between labels = ";LBL1540 ? :? " 4. Spaces between labels = ";SBL1550 }? :? " 5. Number of labels across = ";LA1560 ? :? " 6. Number of labels down = ";LD1580 POSITION 2,19:? " }":? " Π"1590 X=0:Y=01600 GET #3,A:IF A=155 THEN GOTO 4001610 IF A<49 OR A>54} THEN GOTO 16001620 POSITION 2,18:? "";1630 A=A-48:ON A GOTO 1640,1650,1660,1670,1680,16901640 ? " Enter new label} width":T=34:B=5:GOSUB 1800:XMAX=A:GOTO 15001650 ? " Enter new depth for label":T=8:B=3:GOSUB 1800:YMAX=A:GOTO 15001660 ? }" Enter new line spacing":T=9:B=1:GOSUB 1800:LBL=A:GOTO 15001670 ? " Enter new number of spaces":T=15:B=1:GOSUB 1800:SBL=A}:GOTO 15001680 ? " Enter number of labels across":T=3:B=1:GOSUB 1800:LA=A:GOTO 15001690 ? " Enter number of labels down":}T=100:B=1:GOSUB 1800:LD=A:GOTO 15001800 POSITION 2,21:TRAP 1830:IN$="":INPUT IN$1804 IF IN$="" THEN POP :GOTO 15001806 A=I}NT(VAL(IN$))1810 IF AT THEN POSITION 2,20:? "Out of range error- Please retry":GOTO 18001820 TRAP 40000:RETU}RN 1830 POSITION 2,20:? "Entry error- Please retry":GOTO 18002000 B=0:U=1:E=0:REM print routine2010 TRAP 23502020 }POSITION 2,21:? " ";2180 FOR YP=0 TO YMAX-1:XP=0:E=02200 IN$="":FOR I=1 TO XMAX:T=I+(YP*35):A=ASC(A$(}T,T)):IF A>31 THEN GOTO 22502210 IF A<>20 THEN 22302215 U=-U:IF U=1 THEN IN$(LEN(IN$)+1)="-0 ":GOTO 2255:REM UNDERLINE OFF}2220 IN$(LEN(IN$)+1)=" -1":GOTO 2255:REM UNDERLINE ON2230 E=E+1:IF E>1 THEN E=02235 IF E=1 THEN IN$(LEN(IN$)+1)="":XP=XP}-2:GOTO 2255:REM ENLARGE ON2240 IN$(LEN(IN$)+1)="":XP=XP-1:GOTO 2255:REM ENLARGE OFF2250 IN$(LEN(IN$)+1)=CHR$(A)2255 XP=X}P+1+E:IF XP1 THEN OUT$=""}2262 OUT$(LEN(OUT$)+1)=IN$2263 IF LA>1 THEN OUT$(LEN(OUT$)+1)=SPC$(1,SBL):OUT$(LEN(OUT$)+1)=IN$2266 IF LA>2 THEN OUT$(LEN(O}UT$)+1)=SPC$(1,SBL):OUT$(LEN(OUT$)+1)=IN$2270 LPRINT OUT$2280 NEXT YP2290 FOR I=1 TO LBL:LPRINT :NEXT I2300 B=B+1:IF B"D:" AND IN$(1,3)<>"D1:" AND IN$(1,3)<>"D2:" AND IN$(1,2)<>"C:" THEN OUT$=IN$:IN$="D:}":IN$(3)=OUT$3040 TRAP 40000:RETURN 3100 ? "} ":? " Š̠":? " }"3110 ? "A previous file will be erased if it has the same name."3120 GOSUB 3000:TRAP 3300:OPEN }#4,8,0,IN$:FOR I=1 TO 280:PUT #4,ASC(A$(I)):NEXT I:? #4;XMAX:? #4;YMAX3130 ? #4;LBL:? #4;SBL:? #4;LA:? #4;LD:CLOSE #4:GOTO 4}003200 ? "} ":? " Ġ̠":? " "3220 GOSUB 3000:TRAP 3300:OPEN} #4,4,0,IN$:FOR I=1 TO 280:GET #4,A:A$(I)=CHR$(A):NEXT I:INPUT #4,XMAX:INPUT #4,YMAX3230 INPUT #4,LBL:INPUT #4,SBL:INPUT #4,}LA:INPUT #4,LD:CLOSE #4:X=0:Y=X:GOTO 4003300 TRAP 3300:CLOSE #4:TRAP 400003310 ? "} ":? " !!!!}! ˠҠ !!!!!":? " "3320 ? :? :? " Please check your disk drive."3330 ? :? :? :? "Err}or number ";PEEK(195):? :? "File ";IN$3340 ? :? :? :? " ";:GET #3,A:GOTO 400 ? :? :? :? "Errm0 REM ***** à *****1 REM Ӡ˛2 REM é !} 򮠵3 REM * 䠺 򮴛4 REM * !}殛10 DIM X(363),Y(363),O(4),RAIN$(31),FILE$(8),BRE(3),ART(3),ML$(28),GRA$(3840)20 POKE 53248,0:IF PEEK(36171)=96 AND PEEK!}(35840)=104 THEN 4030 GRAPHICS 17:POSITION 0,8:? #6;" PLEASE WAIT":? #6:? #6:? #6;" CA.75 SECONDS":GOSUB 3000040 GOSUB!} 3030050 GRAPHICS 7+16:A=USR(UNOB,GRA2)100 GOTO 19000800 REM Ǡ810 GRAPHICS 7+16:GOSUB 820:A=US!}R(OBUN,GRA2):RETURN 820 COLOR COL:FOR W=708 TO 712:POKE W,PEEK(W+1042):NEXT W:POKE 704,15830 POKE 559,46:POKE 203,0840 POK!}E 512,48:POKE 513,6:POKE 54286,192:IF CO1=4 THEN RETURN 850 POKE 1594,O(CO1)+22:DL=PEEK(560)+PEEK(561)*256:FOR I=DL+6 TO DL+!}100:POKE I,141:NEXT I:RETURN 1000 REM Ԡ1010 GOSUB 8001020 A=USR(MAS,GRA2):GOTO 1030+PEEK(203)1!}030 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):PLOT X,Y:ON MIRROR GOTO 1090,1050,1060,1070,10801040 GOTO 10201050 PLOT 15!}9-X,Y:GOTO 10901060 PLOT X,95-Y:GOTO 10901070 PLOT 159-X,95-Y:GOTO 10901080 PLOT X,95-Y:PLOT 159-X,Y:PLOT 159-X,95-Y1090 !}IF STRIG(0)=1 THEN 10201100 GOTO 10901230 POKE 53248,0:GOTO 190002000 REM נ2010 GOSUB 8002020!} A=USR(MAS,GRA2):GOTO 2030+PEEK(203)2030 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):PLOT X,Y:ON MIRROR GOTO 2090,2050,2060!},2070,20802040 GOTO 20202050 PLOT 159-X,Y:GOTO 20902060 PLOT X,95-Y:GOTO 20902070 PLOT 159-X,95-Y:GOTO 20902080 PLOT X,9!}5-Y:PLOT 159-X,Y:PLOT 159-X,95-Y2090 GOTO 20202230 POKE 53248,0:GOTO 190003000 REM Š3010 GOSUB!} 8003020 POKE 203,0:A=USR(MAS,GRA2):GOTO 3030+PEEK(203)3030 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):GOTO 30503040 GOT!}O 30203050 IF STRIG(0)=0 THEN 30503060 A=USR(MAS,GRA2):PLOT X,Y:DRAWTO PEEK(1790),PEEK(1791):IF STRIG(0)=0 THEN 30803070 A!}=USR(OBUN,GRA2):GOTO 30603080 GOSUB 31103090 IF STRIG(0)=0 THEN 30903100 GOTO 30203110 A=PEEK(1790):B=PEEK(1791):ON MIRRO!}R GOTO 3160,3120,3130,3140,31503120 PLOT 159-X,Y:DRAWTO 159-A,B:GOTO 31603130 PLOT X,95-Y:DRAWTO A,95-B:GOTO 31603140 PLOT!} 159-X,95-Y:DRAWTO 159-A,95-B:GOTO 31603150 PLOT 159-X,Y:DRAWTO 159-A,B:PLOT X,95-Y:DRAWTO A,95-B:PLOT 159-X,95-Y:DRAWTO 159!}-A,95-B3160 A=USR(UNOB,GRA2):RETURN 3230 POKE 53248,0:GOTO 190004000 REM Ӡ4010 GOSUB 8004020 !}A=USR(MAS,GRA2):GOTO 4030+PEEK(203)4030 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):GOTO 40504040 GOTO 40204050 POKE 203,!}0:A=USR(MAS,GRA2):GOTO 4060+PEEK(203)4060 PLOT X,Y:DRAWTO PEEK(1790),PEEK(1791):IF STRIG(0)=0 THEN 40804070 A=USR(OBUN,GRA2!}):GOTO 40504080 GOSUB 3110:GOTO 40504230 GOTO 42604260 POKE 53248,0:GOTO 190005000 REM ̠5010 !}RESTORE 5000:? "}":Z=4:ZZ=0:GOSUB 20000:DATA Fill Menue,Normal Fill,Fill with vertikal Stripes5020 IF X=1 THEN ST1=1:ST2=1:D!}ATA Fill with horizontal Stripes,Fill special5030 IF X=2 THEN ST1=2:ST2=15040 IF X=3 THEN ST1=1:ST2=25050 IF X=4 THEN ST1=!}2:ST2=25060 GOSUB 800:TRAP 52805070 A=USR(MAS,GRA2):GOTO 5080+PEEK(203)5080 IF STRIG(0)=1 THEN 50705090 X=PEEK(1790):Y=PE!}EK(1791):X1=X:X2=X:Y1=Y:Y2=Y:LOCATE X,Y,J:IF J=COL THEN 50705100 X1=X1+1:IF X1>159 THEN 51205110 LOCATE X1,Y,U:IF U=J THEN !}51005120 X2=X2-1:IF X2<0 THEN 51405130 LOCATE X2,Y,U:IF U=J THEN 51205140 X2=X2+1:IF ST1=2 AND X2/2<>INT(X2/2) THEN X2=X2+!}15150 X1=X1-1:IF X2>X1 THEN 50705160 FOR I=X2 TO X1 STEP ST15170 Y1=Y5180 Y1=Y1-1:IF Y1<0 THEN 52005190 LOCATE I,Y1,U:IF!} U=J THEN 51805200 Y1=Y1+1:Y2=Y:IF ST2=2 AND Y1/2<>INT(Y1/2) THEN Y1=Y1+15210 Y2=Y2+1:IF Y2>95 THEN 52305220 LOCATE I,Y2,U!}:IF U=J THEN 52105230 Y2=Y2-1:IF Y1>Y2 THEN 52505240 FOR W=Y1 TO Y2 STEP ST2:PLOT I,W:NEXT W5250 NEXT I:GOTO 50705280 POK!}E 53248,0:GOTO 190006000 REM Š6010 GOSUB 8006020 POKE 203,0:A=USR(MAS,GRA2):GOTO 6025+PEEK(203)!}6025 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):GOTO 60356030 GOTO 60206035 IF STRIG(0)=0 THEN 60356040 A=USR(MAS,GRA2)!}:PLOT X,Y:DRAWTO PEEK(1790),PEEK(1791):IF STRIG(0)=0 THEN 60606050 A=USR(OBUN,GRA2):GOTO 60406060 A=USR(OBUN,GRA2)6070 J=S!}QR(((X-PEEK(1790))^2)+((Y-PEEK(1791))^2)):N=06075 TRAP 6140:PLOT J*X(N)+X,J*Y(N)+Y6080 TRAP 6150:FOR W=N TO 363 STEP 3:DRAW!}TO J*X(W)+X,J*Y(W)+Y:NEXT W:GOTO 62006140 N=N+1:IF N>363 THEN 62006145 GOTO 60756150 TRAP 6150:W=W+1:IF W>363 THEN 620061!}60 PLOT J*X(W)+X,J*Y(W)+Y:NEXT W6200 A=USR(UNOB,GRA2):GOTO 60206225 POKE 53248,0:GOTO 1007000 REM Š!}7010 GOSUB 8007020 POKE 203,0:A=USR(MAS,GRA2):GOTO 7025+PEEK(203)7025 IF STRIG(0)=0 THEN X=PEEK(1790):Y=PEEK(1791):GOT!}O 70357030 GOTO 70207035 IF STRIG(0)=0 THEN 70357040 A=USR(MAS,GRA2):PLOT X,Y:A=PEEK(1790):B=PEEK(1791):PLOT X,Y:DRAWTO A,!}Y:DRAWTO A,B:DRAWTO X,B:DRAWTO X,Y7045 IF STRIG(0)=0 THEN 70607050 A=USR(OBUN,GRA2):GOTO 70407060 A=USR(OBUN,GRA2):A=PEEK(!}1790):B=PEEK(1791):PLOT X,Y:DRAWTO A,Y:DRAWTO A,B:DRAWTO X,B:DRAWTO X,Y7070 IF STRIG(0)=0 THEN 70707080 A=USR(UNOB,GRA2):GO!}TO 70207225 POKE 53248,0:GOTO 190008000 REM Ҡ8010 ? "}":RESTORE 8000:Z=5:ZZ=MIRROR:DATA Mirror "}Menue,No Mirror,Vertikal Mirror,Horizontal Mirror8020 DATA Diagonal Mirror,All Mirrors8030 GOSUB 20000:MIRROR=X:GOTO 19000"}9000 REM ŠҠ9010 POKE 39995,130:POKE 36193,PEEK(1750+O(COL)):POKE 512,95:POKE 513,141:POKE 54286,19"}29020 ? "}":RESTORE 9000:Z=5:ZZ=COL+1:GOSUB 200009030 IF X<>5 THEN COL=X-1:GOTO 90109040 GOTO 190009050 DATA Choose Color"},Background,Color 1,Color 2,Color 3,Main Menue10000 REM Ҡ10010 POKE 54286,010020 GOSUB 10230100"}30 FOR W=39985 TO 39996:POKE W,130:POKE 1594,24:NEXT W:POKE 512,48:POKE 513,6:POKE 54286,19210040 RESTORE 10020:Z=6:ZZ=0:GOS"}UB 20000:DATA Multicolor Effect,Start Effect,Set Color 0,Set Color 1,Set Color 210050 DATA Set Color 3,Main Menue10060 IF X"}=6 THEN POKE 53248,0:GOTO 1900010070 IF X<>1 THEN 1019010080 K=CO1:CO1=4:GOSUB 800:CO1=K:POKE 53248,010090 RESTORE 10080:O"}=36286:POKE O-1,104:FOR W=0 TO 3:IF ART(W)=1 THEN NEXT W:GOTO 1016010100 POKE O,173:POKE O+1,11:POKE O+2,212:O=O+3:IF ART(W)"}=2 THEN 1013010110 IF ART(W)=3 THEN POKE O,101:POKE O+1,20:O=O+2:GOTO 1013010120 POKE O,229:POKE O+1,20:O=O+2:POKE O,141:PO" }KE O+1,10:POKE O+2,212:O=O+310130 IF BRE(W)=0 THEN 1015010140 FOR I=1 TO BRE(W):POKE O,109:POKE O+1,11:POKE O+2,212:O=O+3:N" }EXT I10150 POKE O,141:POKE O+2,208:POKE O+1,22+O(W):O=O+3:NEXT W10160 RESTORE 10160:FOR W=O TO O+8:READ A:POKE W,A:NEXT W:D" }ATA 173,132,2,240,3,76,190,141,96,109,11,21210170 POKE 53248,0:A=USR(36285)10180 GOTO 1900010190 GOSUB 10230:S=X-2:RESTORE" } 10190:ZZ=BRE(S)+1:Z=4:GOSUB 20000:BRE(S)=X-110200 GOSUB 10230:RESTORE 10220:ZZ=ART(S):Z=4:GOSUB 20000:ART(S)=X10210 GOTO 1" }0020:DATA Select breadth of Stripes,Very wide Stripes,Wide Stripes,Narrow Stripes,Very narrow Stripes10220 DATA Select kind "}of Stripes,No Stripes,stripes,Stripes up,Stripes down10230 ? "}":FOR W=0 TO 3:POSITION 2,2*W+14:? "Color ";W;" : ";:RESTORE "}10220:FOR E=0 TO ART(W):READ RAIN$:NEXT E10240 ? RAIN$:POSITION 25,2*W+14:? "Size ";BRE(W):NEXT W:RETURN 11000 REM "}͠11010 ? "}":RESTORE 11000:Z=2:ZZ=0:GOSUB 20000:DATA Zoom,Zoom to Graphics 5,Zoom to Graphics 311020 ON X"} GOTO 11030,1150011030 S=CO1:CO1=411040 X=0:Y=0:GRAPHICS 5+16:GOSUB 820:POKE 1744,48:POKE 1745,19:POKE 1746,40:POKE 1747,0:"}POKE 1748,3:POKE 1749,2011050 CO1=S:IF CO1=4 THEN 1106511060 DL=PEEK(560)+PEEK(561)*256:FOR I=DL+6 TO DL+51:POKE I,138:NEXT"} I:POKE 512,48:POKE 513,6:POKE 1594,O(CO1)+2211065 POKE 54286,192:GRA=39840:XH=20:YH=48:U=211070 A=USR(ZOOM,GRA2+X+40*Y,GRA"}):IF PEEK(53279)=6 THEN 1123011080 IF STRIG(0)=0 THEN 1118011090 A=STICK(0):IF A=7 THEN X=X+111100 IF A=11 THEN X=X-11111"}0 IF A=14 THEN Y=Y-411120 IF A=13 THEN Y=Y+411130 IF X<0 THEN X=011140 IF X>XH THEN X=XH11150 IF Y<0 THEN Y=011160 IF Y>"}YH THEN Y=YH11170 GOTO 1107011180 POKE 559,46:POKE 203,0:COLOR COL:IF STRIG(0)=0 THEN 1118011190 A=USR(MAS,36960):GOTO PEE"}K(203)+1120011200 IF PEEK(53279)=3 THEN POKE 53248,0:GOTO 1107011210 IF STRIG(0)=1 THEN 1119011220 TRAP 11190:PLOT (PEEK(1"}790)-U/2)/U,(PEEK(1791)-U/2)/U:GOTO 1119011230 POKE 53248,0:GOTO 1900011400 POKE 1747,3:POKE 1748,0:A=USR(ZOOM,GRA,GRA2+X+4"}0*Y):POKE 53248,0:IF PEEK(53279)=6 THEN 1140011410 POKE 1747,0:POKE 1748,3:GOTO 1107011500 S=CO1:CO1=411510 X=0:Y=0:GRAPHI"}CS 3+16:GOSUB 820:POKE 1744,24:POKE 1745,9:POKE 1746,40:POKE 1747,0:POKE 1748,3:POKE 1749,1011520 CO1=S:IF CO1=4 THEN 11540"}11530 DL=PEEK(560)+PEEK(561)*256:FOR W=DL+6 TO DL+27:POKE W,136:NEXT W:POKE 512,48:POKE 513,6:POKE 1594,O(CO1)+2211540 POKE "}54286,192:GRA=40560:XH=30:YH=72:U=4:GOTO 1107012000 REM ŠŠ12010 ? "}":RESTORE 12010:Z=10:ZZ=0:GOSU"}B 20000:DATA Delete Picture, ӡ,,,,,,,,, NO12020 IF X=1 THEN 5012030 GOTO 1900013000 REM ˠ"}Š13010 CLOSE #1:? "}":RESTORE 13000:Z=4:ZZ=0:GOSUB 2000013015 DATA Disk Menue,Load Picture,Save Picture,Director"}y,Main Menue13020 ON X GOTO 13030,13500,13700,1390013030 TRAP 13600:? "}":POSITION 12,5:? "Load Picture":POSITION 12,7:? ">" } <":POSITION 13,7:INPUT FILE$13035 IF FILE$(1,2)="C:" THEN OPEN #1,4,128,"C:":GOTO 1304513040 RAIN$(3,LEN(FILE$)+2)"!}=FILE$:RAIN$(1,2)="D:":OPEN #1,4,0,RAIN$13045 FOR W=1750 TO 1754:GET #1,A:POKE W,A:NEXT W13050 GET #1,CO1:GOSUB 800:A=USR(A""}DR(ML$),16,7,36960,3839):A=USR(UNOB,GRA2):CLOSE #1:GOTO 10013500 TRAP 13600:? "}":POSITION 12,5:? "Save Picture":POSITION 12"#},7:? "> <":POSITION 13,7:INPUT FILE$13505 IF FILE$(1,2)="C:" THEN OPEN #1,8,128,"C:":GOTO 1351513510 RAIN$(3,LEN(FI"$}LE$)+2)=FILE$:RAIN$(1,2)="D:":OPEN #1,8,0,RAIN$13515 FOR W=1750 TO 1754:A=PEEK(W):PUT #1,A:NEXT W13520 PUT #1,CO1:GOSUB 800"%}:A=USR(ADR(ML$),16,11,36960,3839):CLOSE #1:GOTO 10013600 POSITION 7,12:? "Error !!! - Press Trigger":? CHR$(253)13610 IF S"&}TRIG(0)=1 THEN 1361013620 GOTO 1301013700 ? "}":? :? " Directory"13710 OPEN #1,6,0,"D:*":TRAP 1380013720 INPU"'}T #1,RAIN$:? " ";RAIN$:GOTO 1372013800 IF STRIG(0)=0 THEN CLOSE #1:GOTO 1300013810 GOTO 1380013900 POKE 53248,0:G"(}OTO 1900014000 REM Ԡà14010 ? "}":RESTORE 14000:Z=3:ZZ=0:GOSUB 20000:DATA Mixed Text & Graphic,Norm")}al Text,Reverse Text,Main Menue14020 TRAP 14010:IF X=1 THEN C1=0:C2=COL:GOTO 1405014030 IF X=2 THEN C1=COL:C2=0:GOTO 14050"*}14040 POKE 53248,0:GOTO 1900014050 ? "}":? "Type in text you want to plot ":INPUT RAIN$:GOSUB 80014060 POKE 203,014070 A=U"+}SR(MAS,GRA2):GOTO 14080+PEEK(203)14080 IF STRIG(0)=1 THEN 1407014090 FOR W=0 TO 5:SOUND 0,20*(5-W),10,8:NEXT W14100 X=PEEK",}(1790):Y=PEEK(1791)14110 IF X>152 OR Y>88 THEN 1407014120 TRAP 14060:FOR L=1 TO LEN(RAIN$):A=ASC(RAIN$(L,L)):IF A=27 THEN 1"-}407014130 IF A>31 AND A<96 THEN B=A-3214140 IF A<32 THEN B=A+6414150 IF A>95 THEN B=A14160 B=57344+8*B:FOR W=0 TO 714170".} P=PEEK(B+W):FOR I=8 TO 1 STEP -114180 IF P/2=INT(P/2) THEN COLOR C1:PLOT X+I-1,Y+W:GOTO 1420014190 COLOR C2:PLOT X+I-1,Y+W"/}14200 P=INT(P/2):NEXT I:NEXT W:X=X+8:NEXT L:GOTO 1406014280 POKE 53248,0:GOTO 1900015000 REM Ԡ1"0}5010 POKE 39995,130:POKE 36193,PEEK(1750+O(CO1)):POKE 512,95:POKE 513,141:POKE 54286,19215020 ? "}":RESTORE 15000:Z=6:ZZ=CO1"1}+1:GOSUB 2000015030 IF X<>6 THEN CO1=X-1:GOTO 1501015040 GOTO 1900015050 DATA Set Interrupt,Background,Color 1,Color 2,Col"2}or 3,No Interrupt,Main Menue16000 REM ŠҠ16010 RESTORE 16010:? "}":ZZ=0:Z=5:GOSUB 20000:DATA Change"3} Color,Background,Color 1,Color 2,Color 3,Main Menue16020 IF X=5 THEN POKE 53248,0:GOTO 1900016030 X=X-1:S=PEEK(1750+O(X))"4}16040 S1=INT(S/16):S2=S-S1*16:S=CO1:J=S2*1.5+23:CO1=416050 GRAPHICS 5+16:GOSUB 820:POKE 559,0:CO1=S:GOSUB 16100:COLOR 3:FOR "5}I=4 TO 46:PLOT 20,I:DRAWTO 60,I:NEXT I16055 POKE 559,4616060 A=USR(MAS,36960):IF PEEK(203)<>0 THEN POKE 53248,0:POKE 1750+O"6}(X),S1*16+S2:GOTO 10016070 IF STRIG(0)=1 THEN 1606016080 IF PEEK(1791)>45 THEN 1609016085 S1=INT((PEEK(1791)-5.5)/2.7):GOS"7}UB 16115:GOTO 1606016090 S2=INT((PEEK(1791)-40)/3)-2:GOSUB 16130:GOTO 1606016100 POKE 512,76:POKE 513,141:DL=PEEK(560)+PEEK"8}(561)*256:FOR W=DL+6 TO DL+52:POKE W,138:NEXT W:POKE 54286,19216115 IF S1<0 THEN S1=016120 L=0:FOR W=36285 TO 36333 STEP 3:"9}FOR E=0 TO 2:POKE W+E,S1*16+L:NEXT E:L=L+1:NEXT W16130 IF S2<0 OR S2>15 THEN RETURN 16140 COLOR 0:PLOT 62,J:DRAWTO 63,J:J=S":}2*1.5+2316150 POKE 708,15:COLOR 1:PLOT 62,J:DRAWTO 63,J:RETURN 19000 REM Š19010 RESTORE 19000:GR";}APHICS 0:POKE 710,0:POKE 708,140:POKE 752,1:POKE 704,188:POKE 82,0:POKE 709,1519020 POKE 39995,130:POKE 36193,PEEK(1750+O(CO"<}L)):POKE 512,95:POKE 513,141:POKE 54286,19219030 POKE 39968,70:POKE 39969,0:POKE 39970,6:POKE 88,0:POKE 89,6:POSITION 0,0:? "=}" MAGIC-PAINTER "19040 POKE 88,PEEK(39972):POKE 89,PEEK(39973)19050 Z=16:ZZ=0:GOSUB 2000019060 DATA Main Menue,Point">},Draw,Line,Rays,Fill,Circle,Square,Mirror,Choose Color,Multicolor-effect,Zoom19070 DATA Delete Picture,Disk Menue,Mixed Text"?} & Graphic,Interrupt,Change Color19080 GOTO X*100020000 REM Š20005 POKE 77,0:READ RAIN$:X=(40-LE"@}N(RAIN$))/2:POSITION X,1:? RAIN$:FOR I=X TO X+LEN(RAIN$)-1:POSITION I,2:? " "20007 POKE 53279,0:NEXT I:POSITION 14,23:? "Act"A}ual Color";20008 FOR I=1 TO Z:POSITION 10,I+2:READ RAIN$:? RAIN$:NEXT I:POSITION 13,4+Z:? "Your Choice?":POKE 559,4620010 P"B}OKE 1790,35:POKE 1788,7920020 POKE 203,0:IF ZZ=0 THEN 2005020030 POSITION 5,ZZ+2:? "-->"20050 A=USR(MAS,36960):IF STRIG(0)"C}=1 THEN 2005020055 X=INT(PEEK(1791)/4)20060 IF X<1 OR X>Z THEN 2005020070 POSITION 5,ZZ+2:? " ":FOR W=0 TO 4:POSITION 3,"D}X+2:? " ":POKE 53279,0:A=USR(MAS,36960)20080 POSITION 3,X+2:? "---->":NEXT W:POKE 53248,0:RETURN 30000 RESTORE 30000:FO"E}R I=35840 TO 36201:READ A:POKE 708,(I-35840)/1.5:POKE I,A:NEXT I30020 DEG :FOR I=0 TO 363:X(I)=COS(I):Y(I)=SIN(I):POKE 708,I"F}/1.5:NEXT I:RETURN 30100 DATA 104,173,252,6,141,0,208,173,31,208,201,6,240,42,201,3,240,41,104,10430110 DATA 173,120,2,201,"G}7,240,59,201,11,240,75,201,14,240,85,201,13,240,108,20130120 DATA 10,240,19,201,6,240,21,201,9,240,23,201,5,240,25,96,76,180"H},140,7630130 DATA 233,140,32,106,140,76,120,140,32,86,140,76,120,140,32,106,140,76,147,14030140 DATA 32,86,140,76,147,140,1"I}73,254,6,201,159,240,12,238,254,6,238,252,6,17330150 DATA 252,6,141,0,208,96,173,254,6,240,250,206,254,6,206,252,6,76,99,140"J}30160 DATA 173,255,6,240,236,206,255,6,174,253,6,160,9,189,0,138,157,255,137,23230170 DATA 136,208,246,206,253,6,96,173,255"K},6,201,95,240,248,238,255,6,173,253,630180 DATA 105,8,170,160,9,189,0,138,157,1,138,202,136,208,246,238,253,6,96,10430190 D"L}ATA 104,141,215,140,104,141,214,140,169,96,141,211,140,169,144,141,212,140,32,20630200 DATA 140,169,200,133,203,96,162,0,160"M},15,189,96,144,157,96,144,232,208,247,23830210 DATA 215,140,238,212,140,136,208,238,96,133,203,96,104,104,141,212,140,104,14"N}1,21130220 DATA 140,169,96,141,214,140,169,144,141,215,140,76,206,140,104,104,141,23,141,10430230 DATA 141,22,141,104,141,2"O}6,141,104,141,25,141,172,208,6,174,209,6,189,168,9730240 DATA 157,168,97,202,16,247,174,211,6,24,189,22,141,109,210,6,157,22"P},141,18930250 DATA 23,141,105,0,157,23,141,174,212,6,24,189,22,141,109,213,6,157,22,14130260 DATA 189,23,141,105,0,157,23,1"Q}41,136,208,199,9630270 DATA 72,138,72,174,11,212,189,128,141,141,10,212,141,24,208,104,170,104,6430280 DATA 72,169,222,141,"R}10,212,141,24,208,104,6430300 COL=1:MIRROR=1:POKE 82,0:O(0)=4:FOR I=1 TO 4:O(I)=I-1:NEXT I:CO1=430310 RESTORE 30320:FOR I=1"S}584 TO 1597:READ A:POKE I,A:NEXT I30320 DATA 72,173,11,212,229,20,141,10,212,141,26,208,104,6430330 FOR I=1 TO 31:READ A:RA"T}IN$(I,I)=CHR$(A):NEXT I:OPEN #2,4,0,"K:"30340 GRAPHICS 7:POKE 708,0:POKE 709,0:POKE 710,0:POKE 711,0:FOR I=0 TO 3:BRE(I)=0:A"U}RT(I)=1:NEXT I30350 FOR I=1 TO 28:READ A:ML$(I,I)=CHR$(A):NEXT I30360 DATA 104,173,11,212,109,11,212,109,11,212,109,11,212,"V}101,20,141,23,208,229,20,229,20,141,22,208,173,132,230370 DATA 208,228,9630380 DATA 104,104,104,170,104,104,157,66,3,104,15"W}7,69,3,104,157,68,3,104,157,73,3,104,157,72,3,76,86,22830390 GRA2=ADR(GRA$):UNOB=36019:OBUN=36072:MAS=35840:ZOOM=3609430400"X} FOR I=0 TO 100:COLOR INT(2*RND(0)+1):PLOT 80,30:DRAWTO 159*RND(0),68*RND(0):SOUND 0,100-I,8,4:NEXT I30410 POKE 752,1:? " "Y} Magic Painter"30420 ? " Copyright l984 by "30430 ? " Ralf Fischer and Harald Manseicher":? " "Z} Press Trigger to start";30440 FOR I=0 TO 3:BRE(I)=I-1:ART(I)=I+1:NEXT I:ART(0)=1:BRE(0)=030450 PLOT 80,70:DRAWTO 80,80:PL"[}OT 77,70:DRAWTO 77,75:DRAWTO 73,80:PLOT 83,70:DRAWTO 83,75:DRAWTO 87,8030460 SOUND 0,255,10,14:SOUND 1,254,10,14:SOUND 2,253"\},10,14:SOUND 3,252,10,14:POKE 53768,I:A=USR(ADR(RAIN$))30470 FOR I=0 TO 3:SOUND I,0,0,0:NEXT I:POKE 1791,5:POKE 1750,136:POK"]}E 1751,52:POKE 1752,186:POKE 1754,030480 I=PEEK(106)-24:POKE 54279,I:PM=I*256:FOR I=PM+512 TO PM+640:POKE I,0:NEXT I:Y=18:PO"^}KE 704,15:POKE 559,4630490 POKE 53277,3:POKE 53248,0:FOR I=0 TO 6:READ P:POKE PM+512+Y+I,P:NEXT I:POKE 1789,17:DATA 8,8,20,9"_}9,20,8,830500 L=10:FOR I=36240 TO 36284 STEP 3:FOR I2=0 TO 2:POKE I+I2,L:NEXT I2:L=L+16:NEXT I:RETURN 1789,17:DATA 8,8,20,9 h10 GRAPHICS 1815 POKE 708,14:POKE 709,76:POKE 710,138:POKE 711,200:POKE 712,519 GOSUB 2000:REM TITEL20 GOSUB 100:REM INITA&a}LISEREN30 GOSUB 1500:REM INVOER40 GOSUB 1000:REM ANTWOORD BEREKENEN50 GOSUB 1200:REM UITVOER60 IF GOED<>4 THEN GOTO 3070&b} END 100 REM INITIALISATIE110 DIM M(3,3)120 FOR A=0 TO 3130 M(0,A)=INT(RND(0)*8)140 FOR B=1 TO 3:M(B,A)=0:NEXT B150 NEX&c}T A155 BEURT=0160 RETURN 1000 REM ANTWOORD1010 GOED=0:FOUT=01015 FOR A=0 TO 3:M(2,A)=0:M(3,A)=0:NEXT A1020 REM GOEDE PL&d}AATS1030 FOR A=0 TO 31040 IF M(0,A)=M(1,A) THEN GOED=GOED+1:M(2,A)=1:M(3,A)=11050 NEXT A1060 REM FOUTE PLAATS1070 FOR A=&e}0 TO 31080 FOR B=0 TO 31090 IF M(1,A)=M(0,B) AND NOT (M(2,B) OR M(3,A)) THEN FOUT=FOUT+1:M(2,B)=1:M(3,A)=11100 NEXT B111&f}0 NEXT A1120 RETURN 1200 REM UITVOER1210 IF GOED=4 THEN GOTO 16001215 IF BEURT=HALT THEN 18001220 ? #6:? #6;"נˠӠ&g}:";M(1,0);M(1,1);M(1,2);M(1,3);""1230 ? #6:? #6;"ҠΠ";GOED+FOUT;"Π ԠŠŠ"1240 ? #6;"daarvan staan &h}er ";CHR$(GOED+176);" op de goede plaats"1249 POKE 53768,11250 FOR X=14 TO 0 STEP -1:SOUND 1,100,10,X:FOR W=0 TO 5:NEXT W:&i}NEXT X1251 FOR X=14 TO 0 STEP -1:SOUND 1,200,10,X:FOR W=0 TO 5:NEXT W:NEXT X1260 RETURN 1500 POSITION 3,0:? #6;"voer uw go&j}k in ":BEURT=BEURT+1:POSITION 0,11:? #6;"";BEURT;" "1510 OPEN #1,4,0,"K:"1515 FOR X=1 TO 4:FOR P&k}=15 TO 0 STEP -3:SOUND 0,15,2,P:SOUND 0,20,2,P:POSITION 7+X,3:? #6;".":NEXT P:NEXT X:SOUND 0,0,0,01520 FOR T=0 TO 31530 GET&l} #1,W1535 IF W=126 THEN 15151536 IF W<48 OR W>57 THEN 15301540 M(1,T)=VAL(CHR$(W))1550 POSITION 8+T,3:? #6;M(1,T)1560 NE&m}XT T1565 CLOSE #11570 RETURN 1600 ? #6;"}":POSITION 3,4:? #6;"GEFELICETEERD"1610 ? #6;"U HEEFT HET GERADEN"1615 ? #6;" &n} IN ";BEURT;" BEURTEN."1620 ? #6;"HET GETAL WAS ";M(1,0);M(1,1);M(1,2);M(1,3);" "1625 POSITION 5,11:? #6;"ˠ"1626 &o}SOUND 0,81,10,10:FOR W=0 TO 30:NEXT W:SOUND 1,64,10,10:FOR W=0 TO 30:NEXT W:SOUND 2,53,10,10:FOR W=0 TO 30:NEXT W:SOUND 3,40,&p}10,101627 FOR W=0 TO 100:NEXT W:FOR X=0 TO 3:SOUND X,0,0,0:NEXT X1630 FOR C=0 TO 1001640 POKE 708,C1650 IF PEEK(53279)=6 &q}THEN RUN 1660 NEXT C1670 GOTO 16301800 GOSUB 5000:? #6;"}"1805 POKE 708,14:POKE 709,76:POKE 710,138:POKE 711,200:POKE 712&r},51810 ? #6;" JAMMER!!"1820 ? #6;" je heb het niet geraden"1825 ? #6;" HET WAS ";M(0,0);M(0,1);M(0,2);M(0&s},3);" "1830 ? #6:? #6;" ˠԠҠ Π"1840 ? #6;" "1850 IF PEEK(5327&t}9)=6 THEN RUN 1860 IF PEEK(53279)=5 THEN GRAPHICS 0:END 1862 X=X+1:IF X>10 THEN X=11863 POKE 53768,11864 SOUND 1,244+X,10&u},10:SOUND 2,245+X,10,101870 GOTO 18502000 REM 2010 POSITION 5,0:? #6;"MASTERMIND"2030 POSITION 0,2:? #6;"raad het getal i&v}n zo weinig mogelijk beurten"2040 POSITION 1,5:? #6;"MOEILIJKHEIDSGRAAD"2041 POSITION 3,7:? #6;"A = 24 BEURTEN"2&w}042 POSITION 3,8:? #6;"B = 18 BEURTEN"2043 POSITION 3,9:? #6;"C = 12 BEURTEN"2044 SOUND 0,250,10,8:SOUND 1,251,10,8:SOUND 2&x},252,10,8:POKE 53768,12045 OPEN #1,4,0,"K:"2046 GET #1,W2047 IF W<65 OR W>67 THEN 20462048 IF W=65 THEN HALT=242049 IF W&y}=66 THEN HALT=182050 IF W=67 THEN HALT=122051 CLOSE #12055 POSITION 5,11:? #6;" "2060 IF PEEK(53279)<>6 THEN 20&z}602065 FOR X=0 TO 3:SOUND X,0,0,0:NEXT X2070 ? #6;"}":RETURN 5000 GRAPHICS 0:POKE 710,209:POKE 752,15010 FOR I=1 TO 38:? &{}CHR$(19);:NEXT I5020 FOR I=1 TO 38:? CHR$(19);:NEXT I5040 POSITION 7,4:? CHR$(160)5050 POSITION 6,5:FOR I=1 TO 3:? CHR$(16&|}0);:NEXT I:POSITION 25,5:? CHR$(160)5060 POSITION 7,6:? CHR$(160):POSITION 24,6:FOR I=1 TO 3:? CHR$(160);:NEXT I5070 POSITI&}}ON 7,7:? CHR$(160):POSITION 25,7:? CHR$(160)5080 POSITION 7,8:? CHR$(160):POSITION 25,8:? CHR$(160)5090 POSITION 25,9:? CHR&~}$(160):POSITION 11,9:? CHR$(9);:? CHR$(15)5100 POSITION 11,10:? CHR$(160);CHR$(160):POSITION 32,11:? CHR$(160);CHR$(160)511&}0 POSITION 11,11:? CHR$(160);CHR$(160)5120 POSITION 32,12:? CHR$(160);CHR$(160)5140 POSITION 4,13:? CHR$(160)5150 POSITION&} 3,14:FOR I=1 TO 3:? CHR$(160);:NEXT I5160 POSITION 4,15:? CHR$(160)5170 POSITION 4,16:? CHR$(160):POSITION 27,16:? CHR$(8)&};CHR$(10)5180 POSITION 4,17:? CHR$(160):POSITION 27,17:? CHR$(160);CHR$(160)5185 ? " "5190 ? " &} | KERKHOF |"5200 ? " "5220 FOR I=1 TO 13:POSITION I,21:? CHR$(19);:NEXT I:FOR I=25 TO 39:POSITI&}ON I,21:? CHR$(19);:NEXT I5230 FOR I=1 TO 13:POSITION I,22:? CHR$(19);:NEXT I:FOR I=25 TO 39:POSITION I,22:? CHR$(19);:NEXT &}I5300 SOUND 0,122,10,10:SOUND 1,145,10,8:SOUND 2,122,10,8:FOR W=0 TO 120:NEXT W5310 SOUND 0,145,10,10:FOR W=0 TO 120:NEXT W&}5320 SOUND 0,109,10,10:SOUND 1,109,10,8:SOUND 2,92,10,8:FOR W=0 TO 240:NEXT W5330 SOUND 0,145,10,10:SOUND 1,145,10,8:SOUND &}2,122,10,8:FOR W=0 TO 380:NEXT W5340 SOUND 0,0,0,0:SOUND 1,0,0,0:SOUND 2,0,0,05500 POSITION 20,10:? ""5510 POSITION 20,11&}:? "|"5520 POSITION 19,12:? " "5530 POSITION 18,13:? " "5531 POSITION 17,14:? " "5532 POSITION 16,15:? " "553&}3 POSITION 16,16:? " "5535 POSITION 16,17:? M(0,0);M(0,1);M(0,2);M(0,3)5540 POSITION 0,22:? " "5550 FOR U=0 TO 500:NEXT &}U5560 GRAPHICS 185570 RETURN SITION 16,17:? M(0,0);M(0,1);M(0,2);M(0,3)5540 POSITION 0,22:? " "5550 FOR U=0 TO 500:NEXT $ 10 OPEN #1,4,0,"K:":GRAPHICS 0:POKE 82,0:POKE 709,0:POKE 712,6:POKE 559,020 DIM JN$(1):DL=PEEK(560)+256*PEEK(561):SPEL=030 *}POKE DL+3,70:POKE DL+6,12:POKE DL+7,2:POKE DL+8,4840 FOR A=9 TO 29:POKE DL+A,2:NEXT A:POKE DL+30,65:POKE DL+31,PEEK(560):POK*}E DL+32,PEEK(561):GOSUB 111050 POKE 710,8:POKE 752,1:? "}__SUPER MASTERMIND__":? " PAL Software - Nieuwegein (c) 1987 "*}60 ? "Probeer in zo min mogelijk":? "beurten -maximaal 15- de ":? "door de computer gekozen":? "code te ontdekken."70 ?*} "U kunt kiezen uit een aantal":? "moeilijkheidsgraden.":? "Vervolg met toets":IF SPEL THEN 9375 POKE 559,34:GET*} #1,A80 ? "De code bestaat uit vier ":? "cijfers, waarbij de computer"90 ? "naar keuze de cijfers":? "0 t/m 5,6,7 of 8*} gebruikt.":? "Ook naar keuze kunnen":? "cijfers dubbel voorkomen."92 ? "Vervolg met toets":? :GET #1,A:FOR A=1 T*}O 7:? " ":NEXT A93 IF SPEL THEN ? "Zelfde moeilijkheidsgraad ʯ ";:GET #1,A:IF A=74 THEN 21*}094 POSITION 2,12:? "Aantal cijfers (6 t/m 9) _ ";96 POKE 752,0:? "";98 GET #1,A:IF A<54 OR A>57 THEN 98100 LET KL*}=VAL(CHR$(A)):? KL110 ? "Cijfers dubbel J/N _ ";"";120 GET #1,A:IF A=78 OR A=74 THEN 140130 GOTO 120140 LET JN$=CHR$*}(A):IF JN$="J" THEN ? "JA"150 IF JN$="N" THEN ? "NEE"160 ? "Hoveel beurten (max. 15) __";:? "";170 GET #1,A:IF A<48 OR *}A>49 THEN 170172 ? A-48;174 GET #1,C:IF C<48 OR C>57 THEN 174176 ? C-48;:BEURT=((A-48)*10)+C-48:IF BEURT=0 OR BEURT>15 THE*}N ? "__";:GOTO 170180 ? :? "AKKOORD J/N ";:GET #1,A:IF A=74 THEN 210190 ? :? " ":GOTO 94210 POKE 752,1:P*}OKE DL+26,48:POKE 710,198:? "}__SUPER MASTERMIND__"230 POSITION 1,1:? "BEURT CODE PLAATS CIJFER":GOSUB 570300 L=8:H*}=3:BEURTEN=0:POSITION L,H:? "":FOR A=1 TO BEURT:POSITION 2+(A<10),H+A-1:? A:NEXT A310 POKE 752,0:POSITION 7,20:? "CODE I*}S: ";:POSITION 15,20:? " ";330 GOSUB 370:LET C=A:? C;:GOSUB 370:LET O=A:? O;:GOSUB 370:LET M=A:? M;360 G*}OSUB 370:LET B=A:? B;:GOTO 390370 GET #1,A:IF A<48 OR A>57 THEN 370380 A=VAL(CHR$(A)):RETURN 390 IF JN$="N" THEN 420400 I*}F C=O AND C=M AND C=B AND O=M AND O=B AND M=B THEN 310410 GOTO 430420 IF C=O OR C=M OR C=B OR O=M OR O=B OR M=B THEN 31043*}0 IF C>=KL OR O>=KL OR M>=KL OR B>=KL THEN 310440 POKE 752,1:? "AKKOORD ʯ"450 GET #1,A:IF A=74 THEN 490460 GOTO 31049*}0 POSITION L,H:? C;O;M;B500 GOSUB 710510 POSITION L+12,H:? KPG:POSITION L+22,H:? KG520 H=H+1:BEURTEN=BEURTEN+1530 IF X1=C*} AND X2=O AND X3=M AND X4=B THEN 1080540 IF BEURTEN=BEURT THEN 1020550 POSITION L,H:? "":GOTO 310570 POSITION 7,19:? "*}KEUZE UIT SYMBOLEN 0 T/M ";KL-1580 IF KL=6 THEN MIN=4590 IF KL=7 THEN MIN=3600 IF KL=8 THEN MIN=2610 IF KL=9 THEN MIN=16*}20 X1=ABS(INT(RND(0)*10-MIN))630 X2=ABS(INT(RND(0)*10-MIN))640 IF JN$="N" AND X2=X1 THEN 630650 X3=ABS(INT(RND(0)*10-MIN))*}660 IF JN$="N" AND X3=X2 OR X3=X1 THEN 650670 X4=ABS(INT(RND(0)*10-MIN))680 IF JN$="N" AND X4=X3 OR X4=X2 OR X4=X1 THEN 67*}0690 IF JN$="J" AND X1=X2 AND X1=X3 AND X1=X4 AND X2=X3 AND X2=X4 AND X3=X4 THEN 570700 RETURN 710 KG=0:KPG=0720 IF C=X1 *}THEN KPG=KPG+1:X1=X1+10:C=C+10730 IF O=X2 THEN KPG=KPG+1:X2=X2+10:O=O+10740 IF M=X3 THEN KPG=KPG+1:X3=X3+10:M=M+10750 IF B*}=X4 THEN KPG=KPG+1:X4=X4+10:B=B+10760 IF C=X1 AND O=X2 AND M=X3 AND B=X4 THEN 930770 IF C>9 THEN 810780 IF C=X2 THEN KG=KG*}+1:X2=X2+10:C=C+10:GOTO 810790 IF C=X3 THEN KG=KG+1:X3=X3+10:C=C+10:GOTO 810800 IF C=X4 THEN KG=KG+1:X4=X4+10:C=C+10810 IF*} O>9 THEN 850820 IF O=X1 THEN KG=KG+1:X1=X1+10:O=O+10:GOTO 850830 IF O=X3 THEN KG=KG+1:X3=X3+10:O=O+10:GOTO 850840 IF O=X4*} THEN KG=KG+1:X4=X4+10:O=O+10850 IF M>9 THEN 890860 IF M=X1 THEN KG=KG+1:X1=X1+10:M=M+10:GOTO 890870 IF M=X2 THEN KG=KG+1:*}X2=X2+10:M=M+10:GOTO 890880 IF M=X4 THEN KG=KG+1:X4=X4+10:M=M+10890 IF B>9 THEN 930900 IF B=X1 THEN KG=KG+1:X1=X1+10:B=B+1*}0:GOTO 930910 IF B=X2 THEN KG=KG+1:X2=X2+10:B=B+10:GOTO 930920 IF B=X3 THEN KG=KG+1:X3=X3+10:B=B+10930 IF X1>9 THEN X1=X1-*}10940 IF X2>9 THEN X2=X2-10950 IF X3>9 THEN X3=X3-10960 IF X4>9 THEN X4=X4-10970 IF C>9 THEN C=C-10980 IF O>9 THEN O=O-1*}0990 IF M>9 THEN M=M-101000 IF B>9 THEN B=B-101010 RETURN 1020 POSITION 7,19:? " JAMMER !!! NIET GERADEN "1030 POSITIO*}N 7,20:? " DE COMBINATIE WAS: ";X1;X2;X3;X4;" "1040 ? "NOG EEN SPELLETJE ʯΠ ";:GET #1,A:IF A=74 THEN SPEL=1:POKE DL*}+26,2:GOTO 501060 A=USR(58484)1080 POSITION 7,19:? " GERADEN IN ";BEURTEN;" BEURTEN ":GOTO 10301110 FOR X=1736 TO 176*}4:READ A:POKE X,A:NEXT X:X=USR(1736)1120 DATA 104,169,7,160,211,162,6,32,92,2281130 DATA 96,173,228,6,141,22,208,169,16,109*}1140 DATA 228,6,141,228,6,76,98,228,101150 RETURN 9,7,160,211,162,6,32,92,2281130 DATA 96,173,228,6,141,22,208,169,16,109(51 REM MINIATURE GOLF2 REM BY DAVID AND MARISA PLOIKIN3 REM (C) 1985, ANTIC PUBLISHING5 GOSUB 300010 GRAPHICS 0:GOSUB 1500.}:HOLSCR=0:PN=1:MAXHOLE=8:GOSUB 1600:REM GET NAMES AND SETUP P/M GR.15 F1=1:STARTHOLE=120 FOR HOLENUM=STARTHOLE TO MAXHOLE3.}0 GOSUB 1750:GOSUB 1000:REM SHOW STATUS AND DRAW HOLE40 IF PN<=NUMPLAY THEN GOSUB 900:GOSUB 700:POKE 77,0:GOTO 40:REM LOOP T.}IL EVERYONE HAS DONE THE HOLE50 PN=1:GOSUB 1450:? #6;CHR$(125);:POKE 53278,0:NEXT HOLENUM:REM ERASE P/M, SCREEN,GO TO N. HOL.}E60 GOTO 3100:REM GAME OVER!700 REM MOVE THE BALL AROUND THE FIELD705 HOLSCR=HOLSCR+1:TOTAL(PN)=TOTAL(PN)+1:GOSUB 1765:FL=.}0:OLDX=BALLX:OLDY=BALLY710 FOR L=1 TO VEL:TESTX=ABS(BALLX+MX-48):TESTY=ABS(BALLY+MY-15):LOCATE TESTX,TESTY,Z715 IF (Z=0 AND.} PEEK(53260)=0) THEN GOTO 770716 SOUND 0,40,8,14:SOUND 0,0,0,0717 IF Z=0 THEN GOTO 750720 IF Z=1 THEN MX=-MX:LOCATE ABS(BA.}LLX+MX-48),TESTY,Z1:IF Z1<>0 THEN MY=-MY730 IF Z=3 THEN MY=-MY:LOCATE TESTX,ABS(BALLY+MY-15),Z1:IF Z1<>0 THEN MX=-MX735 HX=.}ABS(MX):HY=ABS(MY):HSX=SGN(MX):HSY=SGN(MY):IF Z<>2 THEN GOTO 770736 HSX=HSX+(HSX=0):HSY=HSY+(HSY=0)740 MX=HY*HSX:MY=HX*HSY:.}LOCATE ABS(BALLX+MX-48),ABS(BALLY*MY-15),Z1:IF Z1=0 THEN GOTO 770745 MX=-HY*HSX:MY=-HX*HSY:LOCATE ABS(BALLX+MX-48),ABS(BALLY.}+MY-15),Z1:IF Z1=0 THEN GOTO 770747 MX=-HX*HSX:MY=-HY*HSY:GOTO 770750 IF PEEK(53260)=4 THEN MY=-MY:REM HIT THE BARRIER760 .}IF PEEK(53260)=8 THEN GOSUB 850:GOTO 790:REM HIT THE HOLE770 BALLX=BALLX+MX:BALLY=BALLY+MY775 D=USR(ADR(UD0$),ADR(BALL$),PM.}B+512+BALLY,3,BALLX):IF (BX>=RITTEX OR BX<=LEFTX) THEN SPEED=-SPEED776 BX=BX+SPEED:POKE 53250,BX780 POKE 53278,0:NEXT L:REM.} CLEAR CULLISIONS790 RETURN 800 IF (BX>=RITTEX OR BX<=LEFTX) THEN SPEED=-SPEED:REM MOVE THE BARRIER810 BX=BX+SPEED:POKE 53.}250,BX820 RETURN 840 REM BALL GOES IN THE HOLE850 FOR WW=0 TO 100 STEP 2:SOUND 0,WW,10,4:SOUND 1,100-WW,10,4:POKE 712,WW:N.}EXT WW860 SOUND 0,0,0,0:SOUND 1,0,0,0:POKE 712,198870 PN=PN+1:HOLSCR=0:FL=1:IF PN<=NUMPLAY THEN GOSUB 1750:GOSUB 1490:GOSUB.} 1080:POKE 53278,0880 RETURN 900 REM MOVE THE CLUB UNDER JOYSTICK CONTROL905 CLUBX=BALLX:CLUBY=BALLY910 P6=PEEK(632):CLUB.}X=CLUBX+2*(P6>4 AND P6<8)*(CLUBX<204)-2*(P6>8 AND P6<12)*(CLUBX>46)915 IF PEEK(53260)>=4 THEN BALLY=BALLY+MY:D=USR(ADR(UD0$).},ADR(BALL$),PMB+512+BALLY,3,BALLX):POKE 53278,0920 CLUBY=CLUBY+2*(P6=5 OR P6=13 OR P6=9)*(CLUBY<112)-2*(P6=10 OR P6=14 OR P6.}=6)*(CLUBY>12)925 IF FL=1 OR PEEK(53279)<>6 OR HOLSCR=0 THEN 930926 FL=1:HOLSCR=HOLSCR-1:TOTAL(PN)=TOTAL(PN)-1:GOSUB 1765:G.}OSUB 1480927 BALLX=OLDX:BALLY=OLDY:D=USR(ADR(UDO$),ADR(BALL$),PMB+512+BALLY,3,BALLX):CLUBX=BALLX:CLUBY=BALLY930 D=USR(ADR(U.}D1$),ADR(CLUB$),PMB+639+CLUBY,9,CLUBX)931 IF PEEK(53279)=5 THEN GOSUB 3400:REM DISPLAY THE SCORES933 IF PEEK(644)=1 THEN GO.}SUB 800:GOTO 910935 IF (BALLY=CLUBY AND BALLX=CLUBX) THEN ? CHR$(253);:GOTO 910940 DX=ABS(BALLX-CLUBX):DY=ABS(BALLY-CLUBY):.}MX=SGN(BALLX-CLUBX):IF DX<>0 THEN MY=DY/DX*SGN(BALLY-CLUBY):SS=DX945 IF DY>DX THEN MX=DX/DY*SGN(BALLX-CLUBX):MY=SGN(BALLY-CL.}UBY):SS=DY950 FOR LS=1 TO SS:CLUBX=CLUBX+MX:CLUBY=CLUBY+MY:SOUND 0,LS,8,2960 D=USR(ADR(UD1$),ADR(CLUB$),PMB+639+CLUBY,9,CLU.}BX):NEXT LS:REM MOVE THE CLUB965 M=ABS(DX)+ABS(DY):S=3+(M>15)+(M>20)+(M>25)+2*(M>30)+2*(M>35)970 SOUND 0,40,8,14:SOUND 0,0,.}0,0:VEL=S*M:REM SET SPEED OF BALL980 D=USR(ADR(UD1$),ADR(BLANK$),PMB+639+CLUBY,9,CLUBX):REM ERASE CLUB990 RETURN 1000 REST.}ORE (2000+(HOLENUM-1)*20):READ HOLEX,HOLEY,STARTX,STARTY,NUMTARG1005 COLOR 1:PLOT 0,0:DRAWTO 0,79:PLOT 159,0:DRAWTO 159,79:C.}OLOR 3:PLOT 0,0:DRAWTO 159,0:PLOT 0,791006 DRAWTO 159,79:COLOR 2:PLOT 0,0:PLOT 0,79:PLOT 159,0:PLOT 159,79:COLOR 1:PLOT 1,0:.}DRAWTO 1,791010 FOR L2=1 TO NUMTARG:READ TYPE,X,Y:IF TYPE=1 OR TYPE=2 THEN GOSUB 1100:REM DRAW TYPE 1/2-DOWN/UP TRIANGLE102.}0 IF TYPE=3 OR TYPE=4 THEN GOSUB 1200:REM DRAW TYPE 3/4-RIGHT/LEFT TRIANGLE1030 IF TYPE=5 THEN GOSUB 1300:REM DRAW SQUARE OR.} RECTANGLE1040 IF TYPE=6 THEN GOSUB 1400:REM DRAW BARRIER1045 IF TYPE=7 THEN GOSUB 1430:REM DRAW THE DIAGONAL LINES1050 NE.}XT L21060 HOLEX=HOLEX+48:HOLEY=HOLEY+16:FOR W=0 TO 3:POKE PMB+896+HOLEY+W,HOLE(W):NEXT W:POKE 53251,HOLEX1070 STARTX=STARTX.}+48:STARTY=STARTY+15:CLUBX=STARTX:CLUBY=STARTY1075 D=USR(ADR(UD1$),ADR(CLUB$),PMB+639+CLUBY,9,CLUBX)1080 BALLX=STARTX:BALLY.}=STARTY:D=USR(ADR(UD0$),ADR(BALL$),PMB+512+BALLY,3,BALLX)1090 RETURN 1100 READ X1:XC=(X+X1)/2:I=(TYPE=1)-(TYPE=2)1110 LP=Y.}-I:FOR LQ=X TO XC:COLOR 1:LP=LP+I:PLOT LQ,Y:DRAWTO LQ,LP:COLOR 2:PLOT LQ,LP:PLOT LQ,LP+I1115 NEXT LQ:LP=LP+I1120 FOR LQ=XC .}TO X1:COLOR 1:LP=LP-I:PLOT LQ,Y:DRAWTO LQ,LP:COLOR 2:PLOT LQ,LP:PLOT LQ,LP+I:NEXT LQ1130 COLOR 3:PLOT X+1,Y:DRAWTO X1-1,Y:RE.}TURN 1200 READ Y1:YC=(Y+Y1)/2:I=(TYPE=4)-(TYPE=3)1210 LQ=X+I:FOR LP=Y TO YC:COLOR 1:LQ=LQ-I:PLOT X,LP:DRAWTO LQ,LP:COLOR 2:.}PLOT LQ,LP:PLOT LQ-I,LP1215 NEXT LP:LQ=LQ-I1220 FOR LP=YC TO Y1:COLOR 1:LQ=LQ+I:PLOT X,LP:DRAWTO LQ,LP:COLOR 2:PLOT LQ,LP:P.}LOT LQ-I,LP:NEXT LP1230 RETURN 1300 READ X1,Y11310 COLOR 1:FOR LP=Y TO Y1:PLOT X,LP:DRAWTO X1,LP:NEXT LP:COLOR 3:PLOT X,Y:.}DRAWTO X1,Y:PLOT X,Y1:DRAWTO X1,Y11320 COLOR 2:PLOT X,Y:PLOT X1,Y:PLOT X1,Y1:PLOT X,Y11330 RETURN 1400 READ X1,SPEED:BX=X+.}48:BY=Y+15:LEFTX=BX:RITTEX=X1+48:BX=BX+SPEED1410 D=USR(ADR(UD2$),ADR(BARRIER$),PMB+768+BY,5,BX)1420 RETURN 1430 READ X1:Y1.}=Y+ABS(X1-X):COLOR 2:PLOT X,Y:DRAWTO X1,Y1:PLOT X,Y+1:DRAWTO X1,Y1+11440 RETURN 1450 REM ERASE P/M GR. SHAPES1460 FOR W=0 .}TO 3:POKE PMB+896+HOLEY+W,0:NEXT W:REM ERASE THE HOLE1470 D=USR(ADR(UD2$),ADR(BLANK$),PMB+768+BY,5,0):REM THEN THE BARRIER1.}480 D=USR(ADR(UD1$),ADR(BLANK$),PMB+639+CLUBY,9,0):REM NOW THE CLUB1490 D=USR(ADR(UD0$),ADR(BLANK$),PMB+512+BALLY,3,0):RETUR.}N :REM FINALLY THE BALL1500 REM GET THE NAMES OF PLAYERS1505 POSITION 10,3:? "MINIATURE GOLF";1510 POSITION 0,5:? "How man.}y players (max 8)";:INPUT NUMPLAY:IF NUMPLAY>8 THEN ? CHR$(125):GOTO 15101520 DIM NAME$(NUMPLAY*10),NN$(10),TOTAL(NUMPLAY)1.}530 FOR L=1 TO NUMPLAY:? "NAME OF PLAYER #";L;"(MAX 10 LETTERS)":INPUT NN$:R=LEN(NN$)+11540 IF R<=10 THEN FOR L1=R TO 10:NN$.}(L1,L1)=" ":NEXT L11550 NAME$((L-1)*10+1,L*10)=NN$:TOTAL(L)=0:NEXT L:RETURN 1600 REM SETUP P/M GR.1610 PMBASE=PEEK(106)-24.}:POKE 88,0:POKE 89,PMBASE:? CHR$(125)1620 GRAPHICS 7:PMB=PMBASE*256:POKE 54279,PMBASE:POKE 53277,3:POKE 559,46:POKE 623,1:PO.}KE 752,11630 DIM UD0$(44),UD1$(44),UD2$(44):RESTORE 1640:FOR W=1 TO 44:READ P:UD0$(W,W)=CHR$(P):NEXT W1640 DATA 104,104,133.},215,104,133,214,104,133,217,104,133,216,104,133,2181650 DATA 104,170,160,0,177,214,145,216,200,208,4,230,215,230,217,20216.}60 DATA 208,242,198,218,16,238,104,104,141,0,208,961670 UD1$=UD0$:UD2$=UD0$:UD1$(42,42)=CHR$(1):UD2$(42,42)=CHR$(2)1680 POK.}E 704,14:POKE 705,24:POKE 706,52:POKE 707,100:POKE 708,200:POKE 709,228:POKE 710,206:POKE 712,1981690 DIM CLUB$(9),BARRIER$(.}5),HOLE(4),BALL$(3),BLANK$(9):RESTORE 17401700 FOR W=1 TO 9:READ P:CLUB$(W,W)=CHR$(P):NEXT W1710 FOR W=1 TO 5:READ P:BARRIE.}R$(W,W)=CHR$(P):NEXT W1720 FOR W=0 TO 3:READ P:HOLE(W)=P:NEXT W1730 FOR W=1 TO 3:READ P:BALL$(W,W)=CHR$(P):NEXT W1735 FOR .}W=1 TO 9:BLANK$(W,W)=CHR$(0):NEXT W:RETURN 1740 DATA 0,0,124,252,252,252,252,0,0,0,255,255,255,0,112,248,248,112,0,128,0175.}0 POKE 656,0:POKE 657,0:? "PLAYER: ";NAME$((PN-1)*10+1,PN*10);:POKE 657,22:? "SELECT for scores";1760 POKE 656,1:POKE 657,1:.}? "HOLE NUMBER: ";HOLENUM;:POKE 657,22:? "OPTION to return";1765 POKE 656,2:POKE 657,11770 ? "HOLE SCORE: ";HOLSCR;" ";:POK.}E 657,21:? "TOTAL SCORE: ";TOTAL(PN);" ";:RETURN 2000 DATA 5,7,80,72,6,1,68,1,92,5,1,50,45,78,5,45,22,65,78,5,95,22,115,78,5.},115,50,158,78,6,65,22,87,22020 DATA 4,7,142,65,2,5,1,35,125,78,7,130,1,1582040 DATA 78,7,80,66,5,5,1,1,60,78,5,100,1,159,7.}8,7,70,1,61,7,90,1,99,1,66,15,942060 DATA 10,70,143,66,3,5,41,30,119,78,7,20,1,1,7,140,1,1582080 DATA 15,60,143,60,3,5,40,2.}0,44,78,5,80,1,84,60,5,120,20,124,782100 DATA 78,20,80,70,10,1,40,1,70,1,90,1,120,2,40,50,70,2,90,50,1202101 DATA 5,1,1,54,.}78,5,54,50,70,78,5,106,1,158,78,5,90,50,106,78,6,55,27,972102 DATA 2,7,72,30,842110 DATA 5,1,1,54,78,5,54,50,70,78,5,106,1,.}158,78,5,90,50,106,78,6,55,27,972120 DATA 10,15,128,65,4,5,1,40,80,79,7,100,1,120,7,140,40,158,7,1,22,122140 DATA 145,26,40.},65,7,2,90,55,130,5,70,34,109,78,5,110,55,158,78,7,130,1,110,5,70,21,110,222141 DATA 5,1,1,10,78,7,53,1,203000 GRAPHICS 2+1.}6:POKE 708,363010 POKE 752,1:POSITION 2,1:? #6;"DAVID AND plotkin PRESENT";:POSITION 1,33015 ? #6;"*******.}**";3020 POSITION 1,4:? #6;" iitr of *";:POSITION 5,6:? #6;" FIRE";3025 POSITION 1,5:? #6;"********.}*";3030 HOLD=PEEK(708):POKE 708,PEEK(710):POKE 710,HOLD3040 FOR W=1 TO 10:NEXT W:IF STRIG(0)=0 THEN RETURN 3050 GOTO 303.}03100 REM GAME OVER SEQUENCE3110 POKE 53277,0:POKE 559,34:GRAPHICS 1+16:POKE 708,52:POSITION 0,0:? #6;" MINIATURE GOLF ";:.}REM TURN OFF P/M3120 POSITION 0,1:? #6;" SCORE BOARD";:POSITION 0,2:? #6;CHR$(138);:POSITION 1,2:? #6;CHR$(170);3125 PO.}SITION 0,23:? #6;CHR$(10);:POSITION 1,23:? #6;CHR$(170);:FOR W=2 TO 17 STEP 3:POSITION W,23130 ? #6;CHR$(10);:POSITION W+1,2.}:? #6;CHR$(138);:POSITION W+2,2:? #6;CHR$(170);3140 POSITION W,23:? #6;CHR$(138);:POSITION W+1,23:? #6;CHR$(10);:POSITION W+.}2,23:? #6;CHR$(170);:NEXT W3150 FOR W=3 TO 21 STEP 3:POSITION 19,W:? #6;CHR$(10);:POSITION 19,W+1:? #6;CHR$(138);3160 POSIT.}ION 19,W+2:? #6;CHR$(170);:NEXT W3170 FOR W=3 TO 21 STEP 3:POSITION 0,W:? #6;CHR$(170);:POSITION 0,W+1:? #6;CHR$(138);3180 .}POSITION 0,W+2:? #6;CHR$(10);:NEXT W:FOR PN=1 TO NUMPLAY:POSITION 2,PN+33190 ? #6;NAME$((PN-1)*10+1,PN*10);:POSITION 14,PN+3.}:? #6;TOTAL(PN);:NEXT PN:REM ? THE NAMES AND SCORES3200 WIN=1:IF NUMPLAY=1 THEN GOTO 3240:REM ONLY ONE PLAYER3210 FOR PN=2 .}TO NUMPLAY:IF TOTAL(PN)WIN T.}HEN IF TOTAL(PN)=TOTAL(WIN) THEN WIN=03230 NEXT PN3240 POSITION 2,21:IF WIN=0 THEN ? #6;" WINNER--A TIE!";:GOTO 32603250.} ? #6;":";NAME$((WIN-1)*10+1,WIN*10);3260 POSITION 1,22:? #6;"PRESS TO PLAY";3300 HOLD=PEEK(709):POKE 709,PEEK(7/}10):POKE 710,PEEK(711):POKE 711,HOLD3310 FOR W=1 TO 10:NEXT W:IF STRIG(0)=0 THEN RUN 3320 GOTO 33003400 REM DISPLAY THE SC/}ORES3410 ? CHR$(125):FOR LLQ=1 TO NUMPLAY3420 IF LLQ/2<>INT(LLQ/2) THEN POKE 657,0:GOTO 34403430 POKE 657,203440 POKE 656/},INT((LLQ-1)/2)3450 ? NAME$((LLQ-1)*10+1,LLQ*10);" ";TOTAL(LLQ);:NEXT LLQ3460 IF PEEK(53279)<>3 THEN 34603470 ? CHR$(125):/}GOSUB 1750:RETURN50 ? NAME$((LLQ-1)*10+1,LLQ*10);" ";TOTAL(LLQ);:NEXT LLQ3460 IF PEEK(53279)<>3 THEN 34603470 ? CHR$(125):,2 REM 130XE MEMORY MANAGEMENT4 REM BY IAN CHADWICK6 REM (C) 1985, ANTIC PUBLISHING10 ? "}"15 PRINT "130XE EXTENDED BANK D3}EMONSTRATION"16 PRINT "BY IAN CHADWICK":PRINT 20 POKE 54017,253:REM DEFAULT VALUE30 START=16384:REM FIRST BYTE OF ACCESS W3}INDOW40 LOOP=0:GOSUB 500050 DL=PEEK(560)+PEEK(561)*256:REM START OF DISPLAY LIST60 SC1=PEEK(DL+4):SC2=PEEK(DL+5):REM START3} OF SCREEN RAM70 SC3=PEEK(88):SC4=PEEK(89):REM SCREEN POINTERS IN RAM130 ? "PRESS A CONSOLE KEY"135 POKE 53279,8:REM CLEAR3} CONSOLE KEYS140 IF PEEK(53279)=7 THEN 140:REM TEST FOR CONSOLE KEY145 POKE 106,128:REM LOWER RAMTOP150 IF PEEK(53279)=6 T3 }HEN GOSUB 1000:REM START160 IF PEEK(53279)=5 THEN GOSUB 2000:REM SELECT165 IF PEEK(53279)=2 THEN GOSUB 2500:REM START & OPT3 }ION170 IF PEEK(53279)=3 THEN GOSUB 3000:REM OPTION180 IF PEEK(53279)=4 THEN GOSUB 4000:REM START & SELECT185 IF PEEK(532793 })=0 THEN GOSUB 4500:REM ALL THREE190 GOTO 140999 REM START PRESSED: SHOW EXTENDED BANK 01000 POKE DL+4,0:POKE DL+5,6410103 } POKE 88,0:POKE 89,641020 POKE 54017,2091030 RETURN 1999 REM SELECT PRESSED: SHOW EXTENDED BANK 12000 POKE DL+4,0:POKE DL3 }+5,642010 POKE 88,0:POKE 89,642020 POKE 54017,2132030 RETURN 2499 REM OPTION & START PRESSED: SHOW MAIN BANK 12500 POKE 3}DL+4,0:POKE DL+5,642510 POKE 88,0:POKE 89,642520 POKE 54017,2532530 RETURN 2999 REM OPTION PRESSED: SHOW EXTENDED BANK 23}3000 POKE DL+4,0:POKE DL+5,643010 POKE 88,0:POKE 89,643020 POKE 54017,2173030 RETURN 3999 REM START & SELECT PRESSED: SHO3}W EXETENDED BANK 34000 POKE DL+4,0:POKE DL+5,644010 POKE 88,0:POKE 89,644020 POKE 54017,2214030 RETURN 4499 REM ALL THRE3}E PRESSED: RESTORE RAMTOP AND SHOW ORIGINAL SCREEN AREA4500 POKE 106,160:POKE DL+4,SC1:POKE DL+5,SC24510 POKE 88,SC3:POKE 83}9,SC44520 POKE 54017,2534530 RETURN 4999 REM FILL A SCREEN EQUIVALENT WITH A VALUE5000 FOR LOOP=0 TO 35005 ? "FILLING EX3}TENDED BANK ";LOOP5010 POKE 54017,225+LOOP*45020 GOSUB 6000:IF LOOP>3 THEN 50405030 NEXT LOOP5035 GOSUB 65005040 RETURN 3}6000 FOR N=START TO START+9936010 POKE N,17+LOOP-1:NEXT N6020 RETURN 6499 REM MAIN BANK FILL6500 POKE 54017,253:? "FILLI3}NG MAIN BANK 1"6505 FOR N=START TO START+9936510 POKE N,20:NEXT N6515 POKE 106,1286520 RETURN OKE 54017,253:? "FILLI0g10 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 PL$(80),T5$7}(2),SR$(80),T$(20),R$(20),A$(80),I$(7):GOTO 1010100 PRINT CHR$(125);:RETURN 110 POSITION HO+2,VE:RETURN 200 GET #1,A:RETUR7}N 210 GOSUB 200:IF CHR$(A)="" THEN 210211 RETURN 250 PRINT CHR$(253):RETURN 350 PRINT #2;SR$;:RETURN 360 PRINT #2;" ":RE7}TURN 1000 CLR :GOTO 201010 DIM AB(23),MF(23)1020 FOR Q=0 TO 23:AB(Q)=0:MF(Q)=0:NEXT Q1030 DIM FD(4),FI(4),FM(4)1040 FOR 7}Q=0 TO 4:FD(Q)=0:FI(Q)=0:FM(Q)=0:NEXT Q1050 DIM FR(8),YN(8),FY(8),YD(8),YC(8),FC(8)1060 FOR Q=0 TO 81070 FR(Q)=0:YN(Q)=0:F7}Y(Q)=0:YD(Q)=0:YC(Q)=0:FC(Q)=01080 NEXT Q1090 AE=0:N=0:YT=0:XT=0:YR=0:XR=0:Q=0:U=0:HF=0:XQ=01100 PL$="":T5$="":SR$="":SL=07}:MU=01110 R=0:M=0:X=0:Y=0:LA=0:LS=0:H=0:XS=0:XN=0:YI=01120 SF=0:FE=0:SE=0:RE=0:CP=0:YN=0:YZ=0:XF=0:AX=01130 K=0:HO=0:VE=0:7}L=0:XZ=0:MF=0:FF=0:RN=0:FD=0:TN=01140 XH=0:SX=0:WX=0:LH=0:LM=0:AB=0:TD=0:FI=0:FW=01150 TY=0:TL=0:MH=0:FO=0:YG=0:ZO=0:Z=0:XX7}=0:FQ=01160 DU=0:HD=0:FL=0:FF=01170 T$="":R$="":A$=""1180 P=3.141592651190 I$="INVALID"1200 RD=P/180:D=180/P1210 GOSUB 7}1001220 PRINT " *** MICROMUF 2 ***"1230 PRINT 1240 PRINT "THIS PROGRAM CALCULATES THE:"1250 PRINT 1260 PRINT " * 7 }M.U.F.(MAXIMUM USABLE FREQUENCY)"1270 PRINT 1280 PRINT " * L.U.F.(LOWEST USABLE FREQUENCY)"1290 PRINT 1300 PRINT "OF ANY7!} SHORTWAVE SKYWAVE-PATH."1310 PRINT :PRINT 1320 PRINT "CALCULATIONS CAN BE DONE FOR ANY"1330 PRINT 1340 PRINT "MONTH AND 7"}SSN. BETWEEN 1 AND 200"1350 PRINT :PRINT 1360 PRINT "NAME TRANSMITTER LOCATION"1370 INPUT T$1380 PRINT 1390 PRINT "TRANS7#}MITTER LONGITUDE"1400 PRINT "IN DEGR. ( W=+ E=- )";1410 INPUT YT1420 IF (YT<-180) OR (YT>180) THEN PRINT I$:GOTO 14101437$}0 PRINT 1440 PRINT "TRANSMITTER LATITUDE"1450 PRINT "IN DEGR. ( N=+ S=- )";1460 INPUT XT1470 IF (XT<-90) OR (XT>90) THEN 7%}PRINT I$:GOTO 14601480 PRINT 1490 PRINT "NAME RECEIVER LOCATION"1500 INPUT R$1510 PRINT 1520 PRINT "RECEIVER LONGITUDE"7&}1530 PRINT "IN DEGR. (W=+ E=-)";1540 INPUT YR1550 IF (YR<-180) OR (YR>180) THEN PRINT I$:GOTO 15401560 PRINT 1570 PRINT "7'}RECEIVER LATITUDE"1580 PRINT "IN DEGR.(N=+ S=-)";1590 INPUT XR1600 IF (XR<-90) OR (XR>90) THEN PRINT I$:GOTO 15901610 PRI7(}NT 1620 PRINT "INPUT OPTIONS:"1630 PRINT :PRINT " 1. SUNSPOT NUMBER"1640 PRINT " 2. 10.7 CM. SOLAR FLUX"1650 PRINT :PRINT7)} "WHICH NUMBER";:INPUT A$1660 IF (A$<>"1") AND (A$<>"2") THEN PRINT I$:GOTO 16501670 IF A$="1" THEN 17201680 PRINT :PRINT 7*}"SOLAR FLUX";:INPUT FL:FL=INT(FL+0.5)1690 IF FL<150 THEN R=INT(1.218*FL-76):GOTO 17101700 R=INT(0.99*FL-42)1710 PRINT :PRI7+}NT "SUNSPOT NUMBER:";R:GOTO 17301720 PRINT :PRINT "SUNSPOT NUMBER ";:INPUT R1730 IF (R<1) OR (R>200) THEN PRINT I$:GOTO 1617,}01740 PRINT :PRINT "MONTH";1750 INPUT M1760 IF (M<1) OR (M>12) THEN PRINT I$:GOTO 17401770 PRINT :PRINT "OUTPUT OPTIONS:"7-}1780 PRINT :PRINT " 1. SCREEN + HARDCOPY"1790 PRINT " 2. SCREEN ONLY"1800 PRINT :PRINT "WHICH NUMBER";:INPUT A$1810 IF (A7.}$<>"1") AND (A$<>"2") THEN 18001820 IF A$="1" THEN HD=11830 REM GEOMETRY CALC.1840 Q=SIN(XT*RD)*SIN(XR*RD)1850 X=Q+COS(XT7/}*RD)*COS(XR*RD)*COS(YT*RD-YR*RD)1860 LA=-ATN(X/SQR(-X*X+1+1E-09))+(P/2):LA=LA*D1870 L=111.1*LA1880 Q=(SIN(XR*RD)-SIN(XT*RD70})*COS(LA*RD))1890 X=Q/COS(XT*RD)/SIN(LA*RD)1900 U=-ATN(X/SQR(-X*X+1+1E-09))+(P/2):U=U*D1910 IF YT-YR<=0 THEN U=360-U1920 71}IF ABS(YT-YR)>=180 THEN U=360-U1930 H=275+R/21940 XS=23.4*COS(30*(M-6.25)*RD)1950 N=N+11960 LH=L/N1970 IF LH>4500 THEN 172}9501980 LM=LA/N1990 X=COS(0.5*LM*RD)2000 AE=ATN((X-6367/(H+6367))/SIN(0.5*LM*RD))2010 AE=AE*D:REM ELEV.ANGLE CALC.2020 I73}F AE<1.5 THEN 19502030 GOSUB 100:REM CLEAR SCREEN2040 PRINT "FROM: ";T$;" TO: ";R$2050 PRINT "MONTH: ";M;" DIST: ";INT(L+74}0.5);"KM"2060 PRINT "F-HOPS: ";N;" SSN: ";INT(R+0.5);2070 IF FL<>0 THEN PRINT " FLUX: ";INT(FL+0.5)2080 VE=3:HO=0:GOSUB 1175}0:REM SET CURSOR2090 FOR Q=34 TO 2 STEP -22100 PRINT "I I ";Q2110 NEXT Q2120 PRINT "-+-+-+-+-+-+--76}-+---+---+--"2130 PRINT " 0 2 4 6 8 10 14 18 22 H(UTC)"2140 PRINT " +:MUF -:LUF"2150 VE=3:HO=30:GOSUB 110:PRINT "77}MHZ"2160 FOR TD=0 TO 232170 AB=02180 K=0.5:GOSUB 2410:GOSUB 2990:MF=FF2190 K=N-0.5:GOSUB 2410:GOSUB 29902200 IF FF19 THEN 23702350 GOSUB 1102360 PRINT "-"7;}2370 NEXT TD2380 VE=22:HO=27:GOSUB 1102390 IF HD=1 THEN GOSUB 2650:PRINT "HIT ANY KEY!"2400 GOSUB 250:GOSUB 210:RUN 2410 7<}REM INTERM. LAT.& LONG.2420 Q=COS(U*RD)*COS(XT*RD)*SIN(K*LM*RD)2430 X=Q+SIN(XT*RD)*COS(K*LM*RD)2440 XN=ATN(X/SQR(-X*X+1+1E7=}-09)):XN=XN*D2450 Q=(COS(K*LM*RD)-SIN(XT*RD)*SIN(XN*RD))2460 X=Q/(COS(XT*RD)*COS(XN*RD))2470 YI=-ATN(X/SQR(-X*X+1+1E-09))+7>}(P/2):YI=YI*D2480 IF U<180 THEN YI=-YI2490 YN=YT+YI2500 IF YN>180 THEN YN=YN-3602510 IF YN<-180 THEN YN=YN+3602520 RETUR7?}N 2530 REM E-LAYER & ABSORPT.CALC.2540 Q=SIN(XN*RD)*SIN(XS*RD)2550 XX=COS((YN-15*(TD-09))*RD)2560 X=Q+COS(XN*RD)*COS(XS*R7@}D)*XX2570 XZ=(-ATN(X/SQR(-X*X+1+1E-09))+P/2)*D2580 IF XZ>85 THEN 2610:REM XZ=SOL.ZENITH ANGLE2590 FE=3.4*(1+1.6E-03*R)*COS7A}(XZ*RD)^0.3:REM FO-E2600 GOTO 26202610 FE=3.4*(1+1.6E-03*R)*(XZ-80)^-0.52620 SE=(1-0.965*COS(AE*RD)^2)^-0.52630 LS=0.028*7B}FE^2*SE2640 RETURN 2650 REM PRINTER SUBROUTINE2655 REM GOSUB 350=OPEN PRT.+PRINT SR$;+CLOSE2656 REM GOSUB 360=OPEN PRT.+C7C}R.+CLOSE2657 SR$="":GOSUB 3602660 SR$="M I C R O M U F 2"2670 SR$(LEN(SR$)+1)=" ---- PROPAGATION PREDICTION ----"2680 G7D}OSUB 350:GOSUB 360:SR$="":GOSUB 350:GOSUB 3602690 SR$="FROM: ":SR$(LEN(SR$)+1)=T$:SR$(LEN(SR$)+1)=" LAT.: ":SR$(LEN(SR$)+1)7E}=STR$(XT)2691 SR$(LEN(SR$)+1)=" LONG.: ":SR$(LEN(SR$)+1)=STR$(YT)2695 GOSUB 350:GOSUB 360:SR$=""2700 SR$="TO: ":SR$(LEN(S7F}R$)+1)=R$:SR$(LEN(SR$)+1)=" LAT.: ":SR$(LEN(SR$)+1)=STR$(XR):SR$(LEN(SR$)+1)=" LONG.: "2701 SR$(LEN(SR$)+1)=STR$(YR)2710 7G}GOSUB 350:GOSUB 360:SR$=""2720 SR$="MONTH: ":SR$(LEN(SR$)+1)=STR$(M):SR$(LEN(SR$)+1)=" DIST.: ":SR$(LEN(SR$)+1)=STR$(INT(L+7H}0.5))2721 SR$(LEN(SR$)+1)="KM."2730 IF FL<>0 THEN SR$(LEN(SR$)+1)=" 10.7 CM SOLAR FLUX: ":SR$(LEN(SR$)+1)=STR$(FL)2740 G7I}OSUB 350:GOSUB 360:SR$=""2750 SR$="TRANSM.AZIM.: ":SR$(LEN(SR$)+1)=STR$(INT(U+0.5)):SR$(LEN(SR$)+1)=" DEGR. F-HOPS: "2760 S7J}R$(LEN(SR$)+1)=STR$(N):SR$(LEN(SR$)+1)=" SSN: ":SR$(LEN(SR$)+1)=STR$(R):GOSUB 350:GOSUB 3602765 SR$="":GOSUB 350:GOSUB 3607K}2770 GOSUB 2890:SR$="UTC: ":GOSUB 350:GOSUB 3602780 FOR Q=0 TO 232790 SL=AB(Q):MU=MF(Q)2795 IF SL>40 THEN SL=402797 IF MU7L}>40 THEN MU=402800 IF Q<10 THEN T5$="0":T5$(LEN(T5$)+1)=STR$(Q):GOTO 28202810 T5$=STR$(Q)2820 A$=" ":A$(LEN(A$)+1)=T5$:A$(7M}LEN(A$)+1)=" : : :"2830 PL$=A$:PL$(LEN(PL$)+1)=" : : : : : :"2840 PL$(SL+7,SL+7)="O"2850 PL$(MU7N}+7,MU+7)="*"2860 SR$="":SR$=PL$:GOSUB 350:GOSUB 3602870 NEXT Q2880 SR$="":GOSUB 350:GOSUB 360:GOSUB 2890:GOTO 29302890 SR7O}$="FREQ: 0 5 10 15 20":GOSUB 350:SR$=""2900 SR$=" 25 30 35 40 MHZ":GOSUB 350:GOSUB 360:SR$=""2910 RETURN 7P}2920 REM 2930 SR$="":GOSUB 350:GOSUB 3602940 SR$=" O = LOWEST USABLE FREQUENCY"2950 GOSUB 350:GOSUB 360:SR$7Q}=""2960 SR$=" * = HIGHEST USABLE FREQUENCY"2970 GOSUB 350:GOSUB 360:SR$=""2980 RETURN 2990 YZ=YN:REM F-2 LAY7R}ER CALC.3000 IF YN<-160 THEN YZ=YN+3603010 YG=(20-YZ)/503020 ZO=20*YG/(1+YG+YG^2)+5*(1-YG/7)^23030 Z=XN-ZO:REM MAGN. DIP 7S}EQUATOR CORRECT.3040 TL=TD-YN/15:REM LOCAL TIME3050 IF TL>24 THEN TL=TL-243060 IF TL<0 THEN TL=TL+243070 XF=COS(30*(M-6.77T}5)*RD)3080 AX=1-0.1*(ABS(XF)+XF)/23090 MH=M3100 IF Z>0 THEN 31303110 Z=-Z3120 MH=M+63130 XH=COS(30*(MH-6.75)*RD)3140 W7U}X=(ABS(XH)-XH)/23150 SX=(ABS(XH)+XH)/23160 RN=R/1003170 IF Z>76 THEN 40103180 TY=TL3190 IF TY<3 THEN TY=TL+243200 YD(5)7V}=9-0.5*SX+6*WX-1.5*RN+RN*SX+3*RN*WX3210 X=(TY-14.5+2*WX-RN+0.5*RN*SX+0.5*RN*WX)3220 YD(1)=YD(5)*X3230 IF YD(1)>75 THEN YD(7W}1)=75+(YD(1)-75)/33240 IF YD(1)>85 THEN YD(1)=853250 IF YD(1)<-75 THEN YD(1)=-75+(YD(1)+75)/33260 IF YD(1)<-85 THEN YD(1)=7X}-853270 FD(1)=COS(YD(1)*RD)3280 FY(5)=AX*(6.5-0.5*SX-2.5*WX)*(1+0.5*RN+0.4*RN*WX)3290 FY(1)=FY(5)*FD(1)^0.3*COS(Z*RD)^0.37Y}3300 YD(6)=13+2*SX+2*WX-2*RN*SX-RN*WX3310 X=(TY-13.5-2.5*SX+2*WX+0.5*RN-0.5*RN*SX-1.5*RN*WX)3320 YD(2)=YD(6)*X3330 FD(2)=C7Z}OS(YD(2)*RD)3340 IF ABS(YD(2))>90 THEN FD(2)=03350 FY(6)=AX*(4.5-2*SX)*(1+0.3*RN*SX+0.5*RN*WX)*FD(2)3360 X=COS((Z-15-5*RN+7[}5*RN*SX-5*RN*WX)*RD)^123370 FY(2)=FY(6)*X3380 YD(3)=30*(TY-7.5-SX-WX-0.5*RN-RN*SX+0.5*RN*WX)3390 FD(3)=COS(YD(3)*RD)3400 7\}IF ABS(YD(3))>90 THEN FD(3)=03410 FY(3)=(2-SX+RN*SX+3*RN*WX)*FD(3)*COS(Z*RD)^243420 YD(4)=18*(TY-11)3430 FD(4)=COS(YD(4)*R7]}D)3440 IF ABS(YD(4))>90 THEN FD(4)=03450 FY(4)=WX*0.5*FD(4)*COS((Z-50-5*RN)*RD)^643460 FD=FY(1)+FY(2)+FY(3)+FY(4)3470 TN=7^}TL3480 IF TN>11 THEN TN=TL-243490 YN(6)=15+3*SX-4*WX+2*RN-2*RN*WX3500 YN(1)=YN(6)*(TN+1+3.5*WX-2*RN+RN*SX+RN*WX)3510 FM(17_})=COS(YN(1)*RD)3520 IF ABS(YN(1))>90 THEN FM(1)=03530 FI(4)=AX*(4-5*SX+0.5*WX+3*RN+RN*SX)3540 FI(1)=FI(4)*FM(1)*COS((Z-5-57`}*RN)*RD)^283550 YN(5)=15-7*WX+2*RN-RN*SX3560 YN(2)=YN(5)*(TN-3+4*WX-0.5*RN+0.5*RN*SX-RN*WX)3570 FM(2)=COS(YN(2)*RD)3580 I7a}F ABS(YN(2))>90 THEN FM(2)=03590 X=(1.5+1.5*SX+WX+RN+2.5*RN*WX)3600 FI(2)=X*FM(2)*SIN(Z*RD)^243610 YN(3)=15*(TN-1+3*RN)367b}20 FM(3)=COS(YN(3)*RD)3630 IF ABS(YN(3))>90 THEN FM(3)=03640 FI(3)=WX*(1.3-RN)*FM(3)*COS((Z-35)*RD)^323650 FI=FI(1)+FI(2)+7c}FI(3)3660 YC(1)=(30-09*RN)*(TY-15-3*RN)3670 FC(1)=COS(YC(1)*RD)3680 IF ABS(YC(1))>90 THEN FC(1)=03690 FR(1)=-SX*(1.5+0.5*7d}RN)*FC(1)*COS((Z-50)*RD)^123700 YC(2)=22*(TY-09-2*RN)3710 FC(2)=COS(YC(2)*RD)3720 IF ABS(YC(2))>90 THEN FC(2)=03730 FR(2)7e}=-WX*(0.5+3.5*RN)*FC(2)*COS((Z-25)*RD)^323740 YC(3)=30*(TY-18)3750 FC(3)=COS(YC(3)*RD)3760 IF ABS(YC(3))>90 THEN FC(3)=037f}770 FR(3)=-WX*0.5*(1-RN)*FC(3)*COS((Z-60)*RD)^323780 FW=FR(1)+FR(2)+FR(3)3790 YC(4)=45*(TN-5+0.5*SX+RN-RN*SX)3800 FC(4)=CO7g}S(YC(4)*RD)3810 IF ABS(YC(4))>90 THEN FC(4)=03820 X=(-1.2-0.3*SX+WX-1.5*RN+2.5*RN*SX+2.5*RN*WX)3830 FR(8)=X*FC(4)3840 X=C7h}OS((Z-5-5*WX-5*RN+10*RN*SX+15*RN*WX)*RD)3850 FR(4)=FR(8)*X^243860 YC(5)=45*(TN+2)3870 FC(5)=COS(YC(5)*RD)3880 IF ABS(YC(57i}))>90 THEN FC(5)=03890 FR(5)=-SX*FC(5)*COS((Z-15)*RD)^323900 YC(6)=30*(TN-7+0.5*RN)3910 FC(6)=COS(YC(6)*RD)3920 IF ABS(YC7j}(6))>90 THEN FC(6)=03930 FR(6)=-WX*0.5*FC(6)*COS((Z-65+10*RN)*RD)^323940 YC(7)=30*(TN+1-3*RN)3950 FC(7)=COS(YC(7)*RD)39607k} IF ABS(YC(7))>90 THEN FC(7)=03970 FR(7)=-WX*(1+0.5*RN)*FC(7)*COS((Z-20)*RD)^323980 FQ=FR(4)+FR(5)+FR(6)+FR(7)3990 FO=FD+F7l}I+FW+FQ4000 GOTO 40204010 FO=(3.3+0.4*SX-0.3*WX)*(1+0.6*RN-0.2*RN*SX-0.1*RN*WX)4020 HF=H:REM F-LAYER H.4030 IF FD(1)>0.2 7m}THEN HF=H-25*WX+25*SX4040 IF FD(1)>0.3 THEN HF=H-25*WX+50*SX4050 IF ABS(YD(1))>80 THEN HF=H+254060 IF ABS(YD(1))>84 THEN H7n}F=H+504070 IF Z>10 THEN 41504080 HF=H+25+25*SX4090 IF (TL>2) AND (TL<9) THEN HF=H+25*SX4100 IF (TL>4) AND (TL<7) THEN HF=7o}H4110 IF Z>5 THEN 41504120 HF=H+504130 IF (TL>2) AND (TL<9) THEN HF=H+254140 IF (TL>4) AND (TL<7) THEN HF=H4150 SF=(1-(C7p}OS(AE*RD)*6367/(6367+HF))^2)^(-0.5)4160 XX=COS((YN-15*(TD-09))*RD)4170 X=SIN(XN*RD)*SIN(XS*RD)+COS(XN*RD)*COS(XS*RD)*XX4187q}0 IF X=1 THEN X=1-1.0E-094190 XQ=-ATN(X/SQR(-X*X+1))+(P/2):XQ=XQ*D4200 FF=FO*SF4210 RETURN 30000 REM THIS PROGRAM USES TH7r}E30005 REM EXTENDED, EMPIRICAL F-LAYER30010 REM CALCUL. METHOD, DEVISED BY30020 REM R.FRICKER (BBC EXTERNAL30025 REM SERV7s}ICES).30030 REM IT GIVES A BETTER ACCURACY30035 REM THAN THE 'MINI-F2' SUB-30040 REM ROUTINE IN THE ORIGINAL30045 REM 'MI7t}CROMUF' MODEL.30050 REM FO-E CALCULATIONS ARE BASED30055 REM ON L.M.MUGGLETON'S FORMULA.30060 REM THE L.U.F. IS DERIVED FR7u}OM30065 REM ABSORPTION CALCULATIONS,30070 REM USING THE WORK OF PIGGOT,30075 REM GEORGE, SAMUEL AND BRADLEY.30080 REM ASS7v}UMPTIONS:30085 REM TRANSMITTER: POWER 250 KW,30090 REM ANTENNAGAIN: 18 DBI,30095 REM MIN. USABLE FIELDSTRENGHT30100 REM A7w}T RECEIVER: 35 DBUV.30105 REM SUNSPOT AND SOLAR FLUX DATA30110 REM ARE AVAILABLE FROM MANY30115 REM SOURCES, INCLUDING THE7x}30120 REM 'MEDIA NETWORK' PROGRAMME30125 REM BROADCAST IN ENGLISH ON30130 REM THURSDAYS VIA R.N.W.30135 REM 30140 REM IN7y}G.HANS BAKHUIZEN30145 REM PROPAGATION UNIT;30150 REM FREQUENCY BUREAU30155 REM RADIO NETHERLANDS30160 REM P.O.BOX 2223017z}65 REM 1200 JG HILVERSUM HOLLAND30170 REM 30175 REM (C) RADIO NEDERLAND WERELD-30180 REM OMROEP; APRIL 198530185 REM BEWE7{}RKT VOOR ATARI DOOR:30190 REM ARIE WESSELS30195 REM EINSTEINLAAN 34730200 REM 1171 VX BADHOEVEDORP30205 REM H O L L A N D7|}KT VOOR ATARI DOOR:30190 REM ARIE WESSELS30195 REM EINSTEINLAAN 34730200 REM 1171 VX BADHOEVEDORP30205 REM H O L L A N D41 DIM K(255):FOR I=0 TO 255:K(I)=0:NEXT I:GOTO 52 TIME=INT(PEEK(18)*65536+PEEK(19)*256+PEEK(20))/60:MIN=INT(TIME/60):SEC=INT;~}(TIME-MIN*60):RETURN 5 DIM A$(68),B$(68),C$(68),D$(68),P(8),PP(8):K(13)=1:K(1)=2:K(5)=3:K(37)=46 DIM R$(5),TI$(6):RECORD=0;}10 A$="IOKLNMNMOKILLNIOKNIOKLNMOMILKNOIMKOINNNOILKOKNILKNOIMKNIMLKMONLMOIKO"20 B$="DXASEQWASEQDXASWWESAXQEAWSQDAXSQDXASEWEWE;}QDSAEEAEEQDDAXXASQEAXDQEXDX"30 C$="FFGGGFFGGFGFGFGFGFFFFFGFGGGFGGGFGFGGGGFGFGFFFFGFGFGGGFGFFFFFFGGFGGFG"40 FOR A=1 TO 68:A$;}(A,A)=CHR$(ASC(A$(A,A))-64):B$(A,A)=CHR$(ASC(B$(A,A))-64):C$(A,A)=CHR$(ASC(C$(A,A))-64):NEXT A50 POKE 752,1:GRAPHICS 1+16:PR;}INT #6;"}"55 SETCOLOR 4,10,060 POSITION 5,1:PRINT #6;"mindbusters"70 POSITION 2,5:PRINT #6;"ϠՠԠϺ"80 POSITION 0;},9:PRINT #6;"1. BEND YOUR MIND?"90 POSITION 0,11:PRINT #6;"2. BRUISE YOUR MIND?"100 POSITION 0,13:PRINT #6;"3. BLOW YOUR MI;}ND?":POKE 764,255110 KEY=PEEK(764):IF KEY=31 THEN D$=A$:GOTO 150120 IF KEY=30 THEN D$=B$:GOTO 150130 IF KEY=26 THEN D$=C$:;}GOTO 150140 GOTO 110150 GRAPHICS 0:POKE 752,1151 POKE 709,0:POKE 710,8:POKE 712,52155 POSITION 0,0:PRINT ";}":POSITION 13,1:PRINT "MINDBUSTERS"160 POSITION 0,2:PRINT ";}"180 FOR A=5 TO 12:POSITION 3,A:PRINT " ":POSITION 19,A+9:PRINT " ":NEXT A190 POSITION 4,4:PRINT ;}"":POSITION 4,13:PRINT " ":POSITION 20,13:PRINT ""200 POSITION 20,22:PRINT " ";};210 POSITION 19,5:PRINT "Use I,J,K, and M":POSITION 19,7:PRINT "keys to match this"220 POSITION 19,9:PRINT "pattern as fas;}t"230 POSITION 19,11:PRINT "as you can !!!!":POSITION 2,5240 FOR N=1 TO 8:PP(N)=INT(RND(1)*56)+1:PRINT "";D$(PP(N),PP(N)+;}11):NEXT N250 FOR N=1 TO 8:P(N)=INT(RND(1)*56)+1:POSITION 20,13+N:PRINT D$(P(N),P(N)+11):NEXT N260 AX=33:AY=14:AC=1:POSITIO;}N AX,AY:PRINT "<":FOR A=18 TO 20:POKE A,0:NEXT A261 RM=INT(RECORD/60):RS=INT(RECORD-RM*60)262 POSITION 13,16:PRINT RM;":";:;}IF RS<10 THEN PRINT "0";263 PRINT RS270 KEY=K(PEEK(764)):POKE 764,255:ON KEY GOTO 300,400,350,450280 POSITION 5,16:PRINT ";} "290 POSITION 5,18:GOSUB 2:PRINT " ";MIN;":";:IF SEC<10 THEN PRINT "0";295 PRINT SEC;" ":GOTO 270300 POSITIO;}N AX,AY:AC=AC-1:PRINT " ":AY=AY-1:IF AY<14 THEN AY=14:AC=1310 POSITION AX,AY:PRINT "<":GOTO 270350 POSITION 20,AY:P(AC)=P(A;}C)-1:IF P(AC)<1 THEN P(AC)=1:GOTO 270360 GOTO 410400 POSITION 20,AY:P(AC)=P(AC)+1:IF P(AC)>56 THEN P(AC)=56410 PRINT D$(P(;}AC),P(AC)+11)420 FOR X=1 TO 8:IF PP(X)<>P(X) THEN 270430 NEXT X435 POSITION 4,20:PRINT "PUZZLE SOLVED!":GOSUB 590:POSITION;} 3,22:PRINT "Play again (y/n)";440 IF PEEK(764)=35 THEN GRAPHICS 0:END 445 IF RECORD=0 OR TIME21 THEN AY=21:AC=8460 POSITION AX,AY;}:PRINT "<":GOTO 270590 FOR A=100 TO 10 STEP -1:SOUND 1,A,10,15:SOUND 2,A+50,10,15:POKE 53274,A:NEXT A:SOUND 1,0,0,0600 SOUN;}D 2,0,0,0:POKE 53274,0:RETURN 00 TO 10 STEP -1:SOUND 1,A,10,15:SOUND 2,A+50,10,15:POKE 53274,A:NEXT A:SOUND 1,0,0,0600 SOUN8999 REM Ӡ1000 GRAPHICS 311020 RESTORE 11501030 FOR X=0 TO 159 STEP 401040 FOR Y=0 TO 191 STEP 481050 R?}EAD C1,C21060 FOR Z=Y TO Y+47 STEP 21070 COLOR C11080 PLOT X,Z:DRAWTO X+39,Z1090 COLOR C21100 PLOT X,Z+1:DRAWTO X+39,Z+1?}1110 NEXT Z1120 NEXT Y1130 NEXT X1150 DATA 0,0,0,1,0,2,0,3,1,0,1,1,1,2,1,3,2,0,2,1,2,2,2,3,3,0,3,1,3,2,3,31160 POKE 708,?}1481170 POKE 709,521180 POKE 710,201190 POKE 712,1001200 FOR X=1 TO 2000:NEXT X1210 COLOR 125:PLOT 0,01220 FOR X=0 TO 1?}59 STEP 160/61230 READ C1,C21240 FOR Y=0 TO 191 STEP 21250 COLOR C11260 PLOT X,Y:DRAWTO X+26,Y1270 COLOR C21280 PLOT X,?}Y+1:DRAWTO X+26,Y+11290 NEXT Y1300 NEXT X1310 DATA 0,0,1,1,2,2,3,3,2,3,3,21320 POKE 708,38:POKE 709,41330 POKE 710,20:PO?}KE 712,981340 FOR X=1 TO 2000:NEXT X1350 RUN DATA 0,0,1,1,2,2,3,3,2,3,3,21320 POKE 708,38:POKE 709,41330 POKE 710,20:PO<00 REM * VERPLAATS SECTOREN INCL. ID *1 REM * '85 BY AWS, HOLLAND *2 DIM SEC$(128),BUF$(25600),Z$(1)5 DATA 104,32,83,228C},9610 FOR N=1536 TO 1540:READ X:POKE N,X:NEXT N15 START=ADR(SEC$):BCNT=1:SEC$(1)=CHR$(0):SEC$(128)=SEC$:SEC$(2)=SEC$16 BUFC}$(1)=CHR$(0):BUF$(25600)=BUF$:BUF$(2)=BUF$20 PRINT "}DISK SECTOR COPY"25 PRINT :PRINT "FIRST SECTOR ";:INPUT FSEC30 PRINTC} "LAST SECTOR ";:INPUT LSEC35 PRINT "INSERT SOURCE DISK AND PRESS RETURN";:INPUT Z$40 FOR SEC=FSEC TO LSEC45 POKE 769,1:C}POKE 770,82:POKE 779,050 BUFLO=START-256*INT(START/256):BUFHI=INT(START/256)55 POKE 772,BUFLO:POKE 773,BUFHI60 POKE 778,SEC}C-256*INT(SEC/256):POKE 779,INT(SEC/256)65 U=USR(1536)70 BUF$(BCNT,BCNT+127)=SEC$(1,128):BCNT=BCNT+12875 NEXT SEC:PRINT :PC}RINT BCNT-1;" BYTES LOADED"80 PRINT "INSERT TARGET DISK AND PRESS RETURN";:INPUT Z$81 PRINT "DESTINATION SECTOR ";:INPUT C}DEST85 BCNT=1:FOR SEC=DEST TO DEST+LSEC-FSEC90 POKE 769,1:POKE 770,87:POKE 779,095 BUFLO=START-256*INT(START/256):BUFHI=INC}T(START/256)100 POKE 772,BUFLO:POKE 773,BUFHI105 POKE 778,SEC-256*INT(SEC/256):POKE 779,INT(SEC/256)110 SEC$(1,128)=BUF$(BC}CNT,BCNT+127):BCNT=BCNT+128115 U=USR(1536)120 NEXT SEC:PRINT :PRINT BCNT-1;" BYTES SAVED"125 PRINT "MORE SECTORS TO COPY C}(Y/N)";:INPUT Z$130 IF Z$="Y" THEN RUN 135 END XT SEC:PRINT :PRINT BCNT-1;" BYTES SAVED"125 PRINT "MORE SECTORS TO COPY @210 GRAPHICS 920 SETCOLOR 4,13,030 FOR HE=0 TO 1540 COLOR HE50 FOR GE=1 TO 2360 READ X,Y70 IF X=0 AND Y=0 THG}EN READ X,Y:PLOT X-5+HE/3,Y-15+HE:NEXT GE80 DRAWTO X-5+HE/3,Y-15+HE90 NEXT GE100 RESTORE 110 NEXT HE120 GOTO 120130 EG}ND 500 DATA 0,0,5,120,5,60,15,120,15,60,0,0510 DATA 35,60,25,60,25,120,35,120,0,0,25,90,30,90,0,0520 DATA 48,60,52,60,55,8G}0,55,100,52,120525 DATA 48,120,45,100,45,80,48,60,0,0530 DATA 65,120,65,60,75,120,75,6030,90,0,0520 DATA 48,60,52,60,55,8DZ10 ? "}"20 REM TOELICHTING30 ? :? :? " Dit programma tekent een notenbalk en laat de tonen vier maal horen"70 POSITION 2K},20:? "druk op de SPATIEBALK om het programmate vervolgen"80 OPEN #1,4,0,"K:":GET #1,S90 IF S=32 THEN GOTO 120100 REM ====K}=========================110 REM TEKENEN NOTENBALK120 GRAPHICS 24:COLOR 1130 POKE 709,28:POKE 712,24140 FOR A=0 TO 32 STEK}P 8150 PLOT 20,80+A:DRAWTO 300,80+A160 NEXT A170 FOR L=1 TO 150180 A=A+0.05190 X=SIN(A)*7:Y=COS(A)*3200 PLOT X+47,Y+120K}:DRAWTO 47,120210 PLOT X+79,Y+116:DRAWTO 79,116220 PLOT X+111,Y+112:DRAWTO 111,112230 PLOT X+143,Y+108:DRAWTO 143,108240 K}PLOT X+175,Y+104:DRAWTO 175,104250 PLOT X+207,Y+100:DRAWTO 207,100260 PLOT X+239,Y+96:DRAWTO 239,96270 PLOT X+271,Y+92:DRAK}WTO 271,92280 NEXT L290 A=32:B=4300 FOR Z=1 TO 8310 PLOT 22+A,124-B:DRAWTO 22+A,94-B320 PLOT 23+A,124-B:DRAWTO 23+A,94-BK}330 A=A+32:B=B+4340 NEXT Z400 REM =============================410 REM MUZIEK GEDEELTE420 READ TH,D430 IF TH=0 AND D=0 K}THEN END 440 SOUND 0,TH,10,12450 POKE 20,0460 T=PEEK(20)470 IF TK15 THEN 300280 P=STIO}CK(K0):IF NOT STRIG(K0) THEN 270300 XC=K0:YC=K0:IF P>K8 AND P4 AND P=K0 THEN 365350 IF X=K22 THEN 380355 IF X=21 OR X=K23 THEN X=K0:Y=O}K0:GOSUB 1100:GOTO 200357 IF NOT STRIG(K0) THEN 357360 X=K22:Y=K2:GOSUB 1150:GOTO 200365 IF Y>K23 THEN Y=K0:GOTO 200370 O}IF Y20 THEN Y=1395 GOTO 20O}0400 A=Y:ON A GOTO 410,420,430,440,450,460,470,480,490,500,510,2300,2200,1500,900,1600,1700,1900,2600,2700410 GOSUB 1200:YSO}=K0:YE=K23:YI=K1:GOTO 700420 GOSUB 1200:YS=K23:YE=K0:YI=-K1:GOTO 700430 GOSUB 1200:YS=K0:YE=K23:XS=K7:XE=K0:XI=-K1:GOTO 750O}440 GOSUB 1200:YS=K0:YE=K23:XS=K0:XE=K7:XI=K1:GOTO 750450 YI=K1:GOSUB 580:YS=YE-K1:YE=K23:GOTO 700460 YS=K23:YI=-K1:GOSUB O}580:GOTO 700470 XS=K7:XE=K0:XI=-K1:GOSUB 580:YS=YE:GOTO 750480 XS=K0:XE=K7:XI=K1:GOSUB 580:YS=YE:GOTO 750490 GOSUB 2500:GOO}SUB 1200:GOSUB 1000:X=0:Y=0:GOTO 200500 GOSUB 590:GOTO 650510 X=K0:Y=K0:T$=C$(K1,K5):GOSUB 1160:CSW=K1:CRT=515:GOTO 200515O} Y=K0:IF NOT T THEN 530520 IF X>K7 THEN X=K0:GOTO 200525 IF X=K256 THEN PM=PM-K256780 GOSUB 800:NEXT WY:GOTO 570800 POKE A,PM:POSIO}TION 14,WY:? PM;" ";:RETURN 900 GOSUB 990:? "Color";:GOSUB 1400:IF PK15 OR P<>INT(P) THEN 900910 A=P*16920 GOSUBO} 990:? "Luminance";:GOSUB 1400:IF P14 OR P<>INT(P/K2)*K2 THEN 920930 A=A+P:POKE PCOLR0,A940 GOSUB 950:GOTO 570950O} A=PEEK(PCOLR0):POSITION 28,21:? "COLOR=";A;" ";:RETURN 990 POSITION K19,K23:? " ";:POSITION K19,K23:RETO}URN 1000 FOR Y=K0 TO K23:POSITION K2,Y:? Y;:FOR X=K0 TO K7:POSITION X+K5,Y:? B$;:NEXT X1010 A=PMBASE+Y:PM=K0:WY=Y:GOSUB 800O}:NEXT Y1020 POSITION K27,K0:? "Ӻ";1030 POSITION K27,K1:? S$;A$;"";:POSITION K27,2:? S$;A$;"";1040 POSITION K27O},3:? S$;A$;"";:POSITION K27,4:? S$;A$;"";1050 POSITION K27,5:? S$;L$;"";:POSITION K27,6:? S$;L$;"";1060 POSITION K2O}7,7:? S$;L$;"";:POSITION K27,8:? S$;L$;"";1070 POSITION K27,9:? C$;A$;:POSITION K27,10:? C$;L$;:POSITION K27,11:? C$;"coO}lumn ";1072 POSITION K27,12:? "Change Mode";1075 POSITION K27,13:? "Change Width";:POSITION K27,14:? "Poke P/M";1080 POSITO}ION K27,15:? "Set Color";:POSITION K27,16:? "Poke Color";1090 POSITION K27,17:? "Save Data";:POSITION K27,18:? "Load Data";O}1092 POSITION K27,19:? "Move P/M";:POSITION K27,20:? "Print Data";:GOSUB 2400:GOSUB 2250:GOSUB 9501095 IF CSW THEN RETURN 1O}100 T$="Change ":GOTO 11601150 T$="Select ":GOTO 11601160 POSITION K19,K23:? P$;T$;:GOSUB 13001170 SOUND K0,K0,K0,K0:RETURO}N 1200 POSITION K19,K23:? "Processing";:FOR W=K1 TO K10:? ".";:NEXT W:SOUND K0,250,6,K2:RETURN 1300 SOUND K0,50,K12,4:FOR WO}=K0 TO K23:NEXT W:SOUND K0,K0,K0,K0:RETURN 1400 P=K0:W=K0:OPEN #1,4,0,"K:":GOSUB 1300:POKE CRSINH,K0:? "?";1410 GET #1,W:IFO} W=155 THEN 14901420 IF W=126 THEN P=INT(P/K10):? " ";:GOTO 14101430 IF W>47 AND W<58 THEN P=P*K10+(W-48):? CHR$(W);:GOTOO} 14101440 ? "";:GOTO 14101490 CLOSE #1:POKE CRSINH,K1:? " ";:RETURN 1500 POSITION K19,K23:? "Enter Poke Values ";:FOR WO}Y=K0 TO K231510 POSITION K13,WY:GOSUB 1400:IF P=999 THEN 15901520 IF P=256 THEN 15101530 PM=P:GOSUB 21001560 POSO}ITION K13,WY:? " ";:NEXT WY:GOTO 5701590 A=PMBASE+WY:PM=PEEK(A):GOSUB 800:POSITION K13,WY:? " ";:POP :GOTO 5701600 GOSUB 99O}0:POSITION K19,K23:? "Poke Color";:GOSUB 1400:IF P=K256 OR P<>INT(P/2)*2 THEN 16001610 A=0:GOTO 9301700 FOR YE=K23O} TO K0 STEP -K1:IF PEEK(PMBASE+YE)<>K0 THEN 17201710 NEXT YE:POSITION K19,K23:? "No P/M Data to Save ";:FOR W=K0 TO K512:NEXO}T W:GOTO 5701720 POP :GOSUB 2500:GOSUB 1790:A=K01730 OPEN #1,8,0,"C:":SN=SN+K10:T$=STR$(SN):GOSUB 1810:T$=" DATA ":GOSUB 18O}10:T$=STR$(MS):GOSUB 18101735 T$=STR$(WD):GOSUB 1800:T$=STR$(PEEK(PCOLR0)):GOSUB 18001740 FOR WY=KO TO YE:PM=PEEK(PMBASE+WYO}):T$=STR$(PM):GOSUB 18001760 NEXT WY:T$="-1":GOSUB 1800:PUT #1,155:CLOSE #1:GOTO 5701790 POSITION K19,K23:? "Ready Tape RecO}order ";:RETURN 1800 PUT #1,441810 FOR WX=K1 TO LEN(T$):PUT #1,ASC(T$(WX,WX)):NEXT WX:RETURN 1900 GOSUB 2500:GOSUB 1200:CSO}W=K1:GOSUB 1000:CSW=K0:SOUND 0,0,0,01905 GOSUB 1790:OPEN #1,4,0,"C:":FOR WX=K0 TO K10:GET #1,A:NEXT WX1910 GOSUB 2000:MS=PMO}:GOSUB 2400:GOSUB 2000:WD=PM:GOSUB 2250:GOSUB 2000:POKE PCOLR0,PM:GOSUB 9501920 FOR WY=K0 TO K23:GOSUB 2000:IF P=45 THEN POPO} :GOTO 19901930 P=PM:GOSUB 2100:NEXT WY1990 CLOSE #1:GOTO 5702000 PM=K0:FOR WX=K0 TO 4:GET #1,P:IF P=44 THEN POP :GOTO 209O}02010 IF P=45 THEN POP :GOTO 20902020 PM=PM*K10+VAL(CHR$(P)):NEXT WX2090 RETURN 2100 A=128:FOR WX=K0 TO K7:POSITION WX+K5O},WY:IF PK15 THEN POP :GOTOO} 5702540 RETURN 2600 GOSUB 1200:Z=1192610 P=STICK(K0)2620 IF P=11 THEN Z=Z-1:GOSUB 26902630 IF P=7 THEN Z=Z+1:GOSUB 2690O}2640 IF STRIG(0)<>0 THEN 26102650 POKE HPOSP0,119:GOTO 5702690 IF Z>210 THEN Z=302692 IF Z<30 THEN Z=2102694 POKE HPOSP0O},Z2699 RETURN 2700 FOR YE=K23 TO K0 STEP -K1:IF PEEK(PMBASE+YE)<>K0 THEN 27202710 NEXT YE:POSITION K19,K23:? "NO P/M DATA O}TO PRINT";:FOR W=K0 TO K512:NEXT W:GOTO 5702720 POP :GOSUB 2500:A=K02730 OPEN #1,8,0,"P:":SN=SN+K10:T$=STR$(SN):GOSUB 1810:O}T$=" DATA ":GOSUB 1810:T$=STR$(MS):GOSUB 18102740 FOR WY=KO TO YE:PM=PEEK(PMBASE+WY):T$=STR$(PM):GOSUB 18002760 NEXT WY:T$=O}"-1":GOSUB 1800:PUT #1,155:CLOSE #1:GOTO 5702740 FOR WY=KO TO YE:PM=PEEK(PMBASE+WY):T$=STR$(PM):GOSUB 18002760 NEXT WY:T$=L-