@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 D8u10 GRAPHICS 18:? #6;" PLEASE WAIT"15 REM #####ZEICHENSATZ IN RAM KOPIEREN20 FOR I=0 TO 1023:A=PEEK(57344+I):POKE 34816+IT},A:POKE 35840+I,A:POKE 36864+I,A:POKE 37888+I,A:NEXT I30 GOSUB 300040 RUN "D:DASHHPT.BAS"2000 DATA 0,58,58,62,62,63,63,0,0U},163,163,227,227,243,243,0,0,163,163,227,227,243,243,0,0,58,58,62,62,63,63,02010 DATA 6,6,25,38,87,81,219,85,118,201,93,85,2V}1,20,5,5,102,86,181,84,148,212,80,802020 DATA 144,160,104,104,90,154,86,582030 DATA 179,166,46,186,59,156,187,199,109,247,7W}8,239,164,185,42,187,153,51,103,159,225,154,102,170,230,2262040 DATA 109,170,102,179,185,2072045 REM ***** PLAYER2050 DATAX} 14,50,14,12,3,2,42,89,74,73,202,5,40,32,32,240,132,132,140,64,160,32,32,60,192,48,192,192,0,0,160,1482052 DATA 14,50,14,12,Y}3,2,42,89,74,73,202,5,40,240,0,0,144,208,128,64,160,32,32,60,192,48,192,192,0,0,160,1442054 DATA 14,50,14,12,3,2,42,89,74,73Z},202,5,40,32,32,240,132,132,140,64,160,32,32,60,192,48,192,192,0,0,160,1482056 DATA 14,50,14,12,3,2,42,25,26,29,10,5,40,32,3[}2,240,132,132,140,64,160,60,0,0,192,48,192,192,0,0,160,1482060 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,\}0,0,0,02070 REM ***** DIAMANT2080 DATA 1,1,15,15,10,42,0,0,85,21,63,15,10,10,0,0,85,84,252,240,160,160,0,0,64,64,240,240,16]}0,168,0,02090 DATA 3,3,10,10,0,0,21,85,255,63,42,10,0,0,1,1,255,252,168,160,0,0,64,64,192,192,160,160,0,0,84,852100 DATA 2,^}2,0,0,5,21,63,255,170,42,0,0,5,5,3,3,170,168,0,0,80,80,192,192,128,128,0,0,80,84,252,2552110 DATA 0,0,5,5,15,63,42,170,0,0,2_}1,5,15,15,2,2,0,0,84,80,240,240,128,128,0,0,80,80,240,252,168,1702120 REM ***** PLATTE2130 DATA 105,73,150,148,105,73,150,1`}48,105,73,150,148,105,73,150,1482140 DATA 73,150,148,105,73,150,148,105,73,150,148,105,73,150,148,1052150 DATA 150,148,105,a}73,150,148,105,73,150,148,105,73,150,148,105,732160 DATA 148,105,73,150,148,105,73,150,148,105,73,150,148,105,73,1502170 REb}M ******* MONSTER2180 DATA 85,85,106,106,111,111,108,108,108,108,111,111,106,106,85,85,57,57,249,249,169,169,85,852190 DATAc} 85,85,169,169,249,249,57,572200 DATA 170,170,191,191,176,176,177,177,177,177,176,176,191,191,170,170,78,78,14,14,254,254,17d}0,1702210 DATA 170,170,254,254,14,14,78,782220 DATA 255,255,192,192,197,197,198,198,198,198,197,197,192,192,255,255,147,147e},83,83,3,3,255,2552230 DATA 255,255,3,3,83,83,147,1472240 DATA 0,0,21,21,26,26,27,27,27,27,26,26,21,21,0,0,228,228,164,164,f}84,84,0,0,0,0,84,84,164,164,228,2282250 REM *********CURSOR2260 DATA 3,3,15,15,63,63,255,255,255,255,63,63,15,15,3,3,255,25g}5,252,252,240,240,192,192,192,192,240,240,2522270 DATA 252,255,2552280 DATA 168,168,160,160,128,128,0,0,0,0,128,128,160,160h},168,168,0,0,2,2,10,10,42,42,42,42,10,10,2,2,0,02290 REM ********** BUCHSTABEN2300 DATA 168,136,136,136,136,136,168,0,168,i}136,136,168,128,128,128,0,168,32,32,32,32,32,32,0,32,32,32,32,322310 DATA 32,32,0,162,162,162,138,138,138,138,0,168,128,128,j}168,8,8,168,0,168,128,128,168,128,128,168,02320 DATA 128,128,128,128,128,128,168,0,168,128,128,128,128,128,168,02330 REM **k}******* SYMBOLE2340 DATA 2,2,2,2,2,2,2,2,2,2,2,3,15,15,63,252,128,128,128,240,240,240,192,0,128,128,128,128,128,128,128,128l}2350 DATA 0,0,128,64,163,147,161,129,197,5,69,133,64,160,164,218,80,80,82,81,2,2,185,155,255,255,255,255,2522360 DATA 252,8m}4,84,0,0,0,0,0,5,13,13,21,21,21,85,85,85,255,255,215,215,87,95,95,92,252,240,192,192,192,192,1922370 DATA 213,213,213,170,16n}8,168,168,168,170,168,160,160,160,168,170,170,170,170,0,40,40,168,168,168,168,1682380 DATA 0,168,168,168,168,168,168,168,40o}2390 REM ********* SUBROUTINES2400 DATA 104,104,162,0,160,0,232,200,192,181,240,12,224,19,240,10,104,157,52,153,72,76,6,6,10p}4,96,162,0,1362410 DATA 24,173,18,6,105,20,141,18,6,173,19,6,105,0,141,19,6,76,6,62420 DATA 104,162,0,160,0,232,224,19,240,q}14,200,192,181,240,8,169,0,157,33,153,76,69,6,96,24,162,0,173,82,6,1052430 DATA 20,141,82,6,173,83,6,105,0,141,83,6,76,69,6r}2440 DATA 104,162,0,232,224,240,240,16,189,88,152,157,232,128,201,8,208,241,238,47,117,76,117,6,962450 DATA 104,162,0,232,22s}4,241,240,9,189,231,128,157,87,152,76,167,6,962460 REM ********** 1984 BY JAN KOPROWSKI2470 DATA 160,160,160,32,32,32,32,0,t}168,136,136,168,8,8,8,0,168,136,136,168,136,136,168,0,128,128,136,168,8,8,8,02480 DATA 160,136,136,160,136,136,168,0,136,136u},136,168,32,32,32,0,168,8,8,8,168,136,168,0,168,136,136,168,1362490 DATA 136,136,0,136,136,160,160,160,136,136,0,168,136,136v},160,160,136,136,0,136,136,136,136,168,168,32,02500 REM ********* PFEIL2510 DATA 0,1,1,9,9,25,25,153,153,25,25,9,9,1,1,0,1w}53,153,0,0,0,0,0,0,0,0,0,0,0,0,153,1532520 REM ******** FARBKLECKSE2530 DATA 0,20,85,85,5,0,0,10,42,2,0,60,63,255,255,60,17x}0,170,32,0,192,240,240,0,0,0,64,80,64,0,160,1703000 RESTORE 2000:FOR I=0 TO 31:READ A:POKE 35320+I,A:POKE 36344+I,A:POKE 373y}68+I,A:POKE 38392+I,A:NEXT I3010 FOR I=0 TO 31:READ A:POKE 34848+I,A:POKE 35872+I,A:POKE 36896+I,A:POKE 37920+I,A:NEXT I302z}0 FOR I=0 TO 31:READ A:POKE 35024+I,A:POKE 36048+I,A:POKE 37072+I,A:POKE 38096+I,A:NEXT I3030 FOR I=0 TO 31:READ A:POKE 3528{}8+I,A:NEXT I3032 FOR I=0 TO 31:READ A:POKE 36312+I,A:NEXT I3034 FOR I=0 TO 31:READ A:POKE 37336+I,A:NEXT I3036 FOR I=0 TO |}31:READ A:POKE 38360+I,A:NEXT I3038 FOR I=0 TO 31:READ A:POKE 34816+I,A:POKE 35840+I,A:POKE 36864+I,A:POKE 37888+I,A:NEXT I}}3040 FOR I=0 TO 31:READ A:POKE 34880+I,A:NEXT I3050 FOR I=0 TO 31:READ A:POKE 35904+I,A:NEXT I3060 FOR I=0 TO 31:READ A:POK~}E 36928+I,A:NEXT I3070 FOR I=0 TO 31:READ A:POKE 37952+I,A:NEXT I3080 FOR I=0 TO 15:READ A:POKE 34912+2*I,A:POKE 34913+2*I,}A:NEXT I3090 FOR I=0 TO 15:READ A:POKE 35936+2*I,A:POKE 35937+2*I,A:NEXT I3100 FOR I=0 TO 15:READ A:POKE 36960+2*I,A:POKE 3}6961+2*I,A:NEXT I3110 FOR I=0 TO 15:READ A:POKE 37984+2*I,A:POKE 37985+2*I,A:NEXT I3120 FOR I=0 TO 31:READ A:POKE 35352+I,A}:NEXT I3130 FOR I=0 TO 31:READ A:POKE 36376+I,A:NEXT I3140 FOR I=0 TO 31:READ A:POKE 37400+I,A:NEXT I3150 FOR I=0 TO 31:RE}AD A:POKE 38424+I,A:NEXT I3160 FOR I=0 TO 31:READ A:POKE 35544+I,A:POKE 36568+I,A:NEXT I3170 FOR I=0 TO 31:READ A:POKE 3759}2+I,A:POKE 38616+I,A:NEXT I3180 FOR I=0 TO 71:READ A:POKE 35576+I,A:POKE 36600+I,A:POKE 37624+I,A:POKE 38648+I,A:NEXT I3190} FOR I=0 TO 127:READ A:POKE 35384+I,A:POKE 36408+I,A:POKE 37432+I,A:POKE 38456+I,A:NEXT I3200 FOR I=0 TO 48:READ A:POKE 1536}+I,A:NEXT I3210 FOR I=0 TO 45:READ A:POKE 1600+I,A:NEXT I3230 FOR I=0 TO 24:READ A:POKE 1650+I,A:NEXT I3240 FOR I=0 TO 17:}READ A:POKE 1700+I,A:NEXT I3250 FOR I=0 TO 87:READ A:POKE 35648+I,A:POKE 36672+I,A:POKE 37696+I,A:POKE 38720+I,A:NEXT I3260} FOR I=0 TO 31:READ A:POKE 35512+I,A:POKE 36536+I,A:POKE 37560+I,A:POKE 38584+I,A:NEXT I3270 FOR I=0 TO 31:READ A:POKE 35776}+I,A:POKE 36800+I,A:POKE 37824+I,A:POKE 38848+I,A:NEXT I3340 I=03350 TRAP 3360:READ A:POKE 30000+I,A:I=I+1:GOTO 33503360 R}ETURN 4000 DATA 104,169,0,141,14,156,141,16,156,141,17,156,141,19,156,141,21,156,141,24,156,169,64,141,142,1194010 DATA 169},156,141,143,119,173,15,156,201,1,240,26,173,44,117,201,1,240,125,173,120,2,201,13,2404020 DATA 15,201,14,240,21,201,11,240,}27,201,7,240,33,76,224,117,24,173,18,156,105,20,170,76,1554030 DATA 117,56,173,18,156,233,20,170,76,155,117,56,173,18,156,23}3,1,170,76,155,117,24,173,18,1564040 DATA 105,1,170,76,155,117,189,88,152,201,4,240,62,201,12,240,58,201,63,240,54,201,8,240},254050 DATA 201,67,240,32,173,18,156,168,169,0,153,88,152,169,59,157,88,152,138,141,18,156,76,224,1174060 DATA 169,1,141,2}1,156,206,47,117,76,178,117,169,1,141,15,156,76,224,117,174,43,117,76,155,1174070 DATA 173,20,156,24,105,4,201,152,240,3,76,}239,117,169,136,141,20,156,141,244,2,173,29,156,2014080 DATA 1,240,79,162,239,202,224,0,240,112,189,88,152,201,4,240,11,201,}8,240,7,201,67,240,1004090 DATA 76,254,117,24,138,105,20,168,185,88,152,201,0,240,19,201,4,240,41,201,8,240,37,201,124100 D}ATA 240,33,201,63,240,29,76,254,117,24,189,88,152,105,1,153,88,152,169,0,157,88,152,76,2544110 DATA 117,76,254,117,76,254,11}7,76,121,118,202,189,88,152,232,201,0,208,37,136,185,88,152,200,2014120 DATA 0,208,28,24,189,88,152,105,1,202,157,88,152,232},169,0,157,88,152,76,254,117,76,161,1184130 DATA 76,135,119,76,12,119,232,189,88,152,202,201,0,208,195,200,185,88,152,136,20}1,0,208,183,244140 DATA 189,88,152,105,1,232,157,88,152,202,169,0,157,88,152,76,254,117,162,0,232,224,240,240,1004150 DATA }189,88,152,201,5,240,19,201,9,240,15,201,68,240,3,76,163,118,169,67,157,88,152,76,1634160 DATA 118,56,189,88,152,233,1,157,8}8,152,24,138,105,20,168,185,88,152,201,0,240,204,201,5,2404170 DATA 200,201,9,240,196,201,59,240,23,189,88,152,201,8,240,8,1}69,1,141,14,156,76,163,118,1694180 DATA 1,141,19,156,76,163,118,173,120,2,201,13,240,17,201,11,240,21,201,7,240,21,76,60,119}4190 DATA 76,68,119,76,163,118,24,152,105,20,168,76,34,119,136,76,34,119,200,76,34,119,185,88,1524200 DATA 201,0,240,230,20}1,8,240,226,201,26,240,222,201,5,240,218,201,9,240,214,76,60,119,169,14210 DATA 141,15,156,76,15,119,162,0,160,0,189,88,152,}141,17,156,76,100,119,238,16,156,173,16,1564220 DATA 201,20,240,54,232,200,224,240,240,76,76,72,119,32,138,119,24,152,105,40},168,238,17,156,324230 DATA 138,119,200,238,17,156,32,138,119,56,152,233,40,168,238,17,156,32,138,119,76,81,119,76,54240 DA}TA 120,173,17,156,153,192,163,96,24,173,142,119,105,80,141,142,119,173,143,119,105,0,141,143,1194250 DATA 160,0,169,0,141,16},156,232,76,72,119,173,29,156,201,1,240,80,76,123,120,172,18,156,324260 DATA 236,119,200,32,236,119,24,152,105,20,168,32,236},119,136,32,236,119,136,32,236,119,56,152,2334270 DATA 20,168,32,236,119,56,152,233,20,168,32,236,119,200,32,236,119,200,32,}236,119,76,174,120,1854280 DATA 88,152,201,63,240,17,201,67,240,13,201,4,240,9,201,8,240,5,169,0,153,88,152,96,1384290 DATA} 168,173,22,156,201,1,240,12,201,2,240,16,201,3,240,8,201,4,240,16,202,76,53,120,2324300 DATA 76,53,120,24,138,105,20,170,76},53,120,56,138,233,20,170,76,53,120,76,183,119,189,88,1524310 DATA 201,59,240,40,201,0,240,21,152,170,238,24,156,173,24,156,}201,2,240,44,173,23,156,141,224320 DATA 156,76,10,120,169,68,157,88,152,169,0,153,88,152,152,170,76,254,117,169,68,157,88,15}2,1694330 DATA 0,153,88,152,152,170,169,1,141,15,156,76,254,117,76,254,117,32,175,120,32,193,120,32,2214340 DATA 120,32,239},120,32,3,121,32,23,121,32,43,121,165,19,201,0,208,5,169,1,141,15,156,1734350 DATA 47,117,201,0,208,5,169,2,141,15,156,173,1}5,156,201,1,240,132,96,173,14,156,201,1,2084360 DATA 10,169,100,141,0,210,169,144,141,28,156,96,173,19,156,201,1,208,20,169,}55,141,2,210,1694370 DATA 60,141,4,210,169,176,141,25,156,169,144,141,26,156,96,173,21,156,201,1,208,10,169,90,1414380 DATA} 6,210,169,176,141,27,156,96,173,28,156,201,128,240,12,206,28,156,206,28,156,173,28,156,1414390 DATA 1,210,96,173,25,156,201},160,240,12,206,25,156,206,25,156,173,25,156,141,3,210,96,173,264400 DATA 156,201,128,240,12,206,26,156,206,26,156,173,26,15}6,141,5,210,96,173,27,156,201,160,240,124410 DATA 206,27,156,206,27,156,173,27,156,141,7,210,96,0,0156,206,26,156,173,26,15e10 REM #################11 REM # DASH #12 REM # 1984 BY #13 REM # JAN KOPROWSKI #14 REM # AKAZIENSTR.56 # }15 REM # 5 KOELN 71 #16 REM #################80 DIM T(8):FOR P=1 TO 8:T(T)=0:NEXT P90 T(1)=162:T(2)=162:T(3)=136:T(4)=1 }28:T(5)=162:T(6)=162:T(7)=182:T(8)=217100 DIM DE$(200),C1(6),C2(6),C3(6),C4(6):FOR OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF110 D }E$="LRROUURRROORORRRUWWWWRLUULLWWWWRRRRRROOORRRRLLUUUUULLUURWWWWWWUURRWWWWROOOOWWWWLLLLLLLWWWWUUUULLLLL"120 DE$(LEN(DE$)+1)= }"OOURRROOOLLLLWWWWWWWRUULOOWWWWWLLLLUUUUROWWWR"130 GRAPHICS 0:POKE 559,0:DL=PEEK(560)+256*PEEK(561):POKE DL,68:POKE DL+1,208 }:POKE DL+2,132:POKE DL+3,4140 POKE DL+5,68150 POKE DL+7,156:FOR I=31 TO 29 STEP -1:POKE DL+I+2,PEEK(DL+I):NEXT I:FOR I=8 TO } 30:POKE DL+I,4:NEXT I160 POKE DL+6,64170 POKE 752,1:SOUND 0,0,0,0:FOR I=34000 TO 34119:POKE I,0:NEXT I:POKE DL+4,6:SS=34:P }OKE 82,2:HLO=29993:HHI=29994180 DIM K$(100),DISK$(20),A$(20),FAR(5),FAR1(5):FAR(3)=70:FAR(1)=132:FAR(2)=152:FAR(5)=0185 FOR } I=1 TO 5:FAR1(I)=FAR(I):NEXT I190 K$=" ABCDEFGHIJKLMNOPQRSTUVWXYZ< "200 POKE 3995 }4,53:POKE 39956,132:LAUT=14:POKE 39951,0:POKE 39958,2:POKE 29996,0210 M=39959:M1=39957:M2=39951:SR=39000:LEBEN=5:LEV=0220 P }OKE 756,148:POKE 708,FAR(1):POKE 709,FAR(2):POKE 710,FAR(3)230 DATA 132,152,70,0,132,152,230,16,132,152,52,0,132,152,52,0,13 }0,154,24,16,84,154,24,128,132,132,68,0250 RESTORE 230:FOR I=1 TO 6:READ A,B,C,D:C1(I)=A:C2(I)=B:C3(I)=C:C4(I)=D:NEXT I260 ? } "}"997 REM ####################998 REM # TITELBILD #999 REM ####################1000 POSITION 2,0:? " ______ }____________":? " ":POKE 77,01020 ? " _ ,/,/ ,/,/,/ ,/,/,/ ,/ ,/ _" }:? "  -.-.- -.-.-. -.-.-. -. -. "1030 ? " _ ,/ ,/ ,/ ,/ ,/ ,/ ,/ _":? "  -. -. -. -. -.-.-. -.-. }-. "1040 ? " _ ,/ ,/ ,/,/,/ ,/,/,/ ,/,/,/ _":? "  -. -. -.-.-. -. -. -. "1050 ? " _ ,/,/, ,/ ,/ , }/,/,/ ,/ ,/ _":? "  -.-. -. -. -.-.-. -. -. "1060 ? " __________________":? "  }"1070 ? :? " hijk lm noc p_`q_rdpb":POKE 40536,95:POKE 40539,951080 POKE DL+27,6:POKE DL+29,6:POSITIO }N 21,19:? " CREATES GAME":POSITION 1,21:? " BEGINS GAME"1090 POKE DL+25,6:POSITION 1,18:? " ";PEEK(HLO)+2 }56*PEEK(HHI):SETCOLOR 3,10,4:POKE 559,SS1100 A=136:RESTORE 1220:D=01110 Z=0:READ TT,L:S1=10:S=0:IF TT=0 THEN S1=01115 IF L }>1 THEN S=S1/L1117 Q1=51120 FOR Q=1 TO 5-Q1:NEXT Q:S1=S1-S:SOUND 2,TT,10,S1:SOUND 3,TT+1,10,S11130 Q1=0:T=T+1:IF T=9 THEN }T=11140 IF T=3 OR T=7 THEN SOUND 0,1,8,10:FOR P=1 TO 10:NEXT P:D=61145 SOUND 0,T(T),10,51150 IF PEEK(53279)=6 THEN FOR OFF }=0 TO 3:SOUND OFF,0,0,0:NEXT OFF:MUS=0:GOTO 20001155 A=A+4:IF A=152 THEN A=1361157 POKE 756,A1160 IF PEEK(53279)=3 THEN FO }R OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF:GOTO 12601170 FOR P=1 TO 12-D:IF P=10-D THEN SOUND 1,10,8,11180 NEXT P1190 SOUND 1,0 },0,0:D=0:SOUND 0,0,0,01195 A=A+4:IF A=152 THEN A=1361197 POKE 756,A1200 W=W+1:IF W=240 THEN POKE 29996,1:MU=1:GOTO 200012 }05 Z=Z+1:IF Z=L THEN 11101210 GOTO 11201220 DATA 0,32,91,10,96,2,108,2,96,2,136,3,163,10,0,3,91,10,96,2,108,2,96,2,136,3,16 }3,10,0,3,91,2,96,2,108,21230 DATA 121,2,108,2,128,1,163,5,91,2,96,2,108,2,121,1,108,5,0,4,91,2,96,2,108,2,121,2,108,2,128,1, }163,5,163,21240 DATA 137,2,163,2,163,6,0,4,91,10,96,2,108,2,96,2,136,3,163,4,136,2,121,2,121,1,136,1,163,3,91,10,96,21250 D }ATA 108,2,96,2,136,3,163,4,136,2,121,3,121,1,136,1,217,1,163,10,0,101255 REM #########DISPLAY LIST AUFBAUEN1260 POKE 559,0: }POKE DL,68:POKE DL+27,4:POKE DL+29,4:POKE DL+25,41290 DATA 95,96,97,98,95,99,100,101,102,101,103,971300 RESTORE 1290:FOR I= }34042 TO 34047:READ A:POKE I,A:NEXT I:FOR I=34060 TO 34065:READ A:POKE I,A:NEXT I1310 FOR I=0 TO 19:POKE 39000+I,63:POKE 392 }20+I,63:NEXT I:FOR I=0 TO 11:POKE 39000+I*20,63:POKE 39019+I*20,631320 NEXT I1330 POKE 756,148:POKE 708,FAR(1):POKE 709,FAR }(2):POKE 710,FAR(3):POKE 712,FAR(5)1340 FOR X=1 TO 18:FOR Y=1 TO 10:POKE 39000+X+Y*20,0:NEXT Y:NEXT X1350 POKE 34012,71:POK }E 34052,72:POKE 34053,73:POKE 34013,74:BEFEHL=11360 CHAR=2:CHAR1=4:POKE 34030,4:POKE 34070,5:POKE 34071,6:POKE 34031,7:GOTO }41401997 REM ####################1998 REM # PLAY GAME #1999 REM ####################2000 POKE 559,0:POKE DL,70:POK }E DL+27,4:POKE DL+29,42010 POKE DL+25,42040 IF MU=1 THEN GOSUB 2400:GOTO 20602050 SETCOLOR 3,10,4:GOTO 22502055 GOTO 2255 }2060 POKE 39965,0:POKE 39951,02080 POKE 29999,0:U=USR(1650):POKE 19,246:POKE 20,0:POKE 39954,PKX+PKY*20:POKE 88,208:POKE 89 },1322090 IF MU=1 THEN POKE 29995,PEEK(39954):POSITION 0,0:? " ":GOTO 24102100 POSITION 0,0:? "堠 }"2110 POKE M,INT(RND(0)*4)+1:U=USR(30000)2120 IF PEEK(39957)=1 THEN SC=SC+202130 ON PEEK(M2)+1 GOTO 2140,2160,24502 }140 POSITION 6,0:? SC:POSITION 18,0:? 256-PEEK(19);" "2150 GOTO 21102160 FOR OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF:LEBEN=LEBE }N-1:POSITION 0,0:? " ";LEBEN;" ":SC=ASC2170 LAUT=14:POKE 88,64:POKE 89,1562180 TRAP 2200:SOUND 0,200,8,LA }UT2190 LAUT=LAUT-0.52200 POKE M,INT(RND(0)*4)+1:U=USR(30000)2210 FOR P=1 TO 10:NEXT P:IF STRIG(0)=1 THEN 21802215 FOR OFF }=0 TO 3:SOUND OFF,0,0,0:NEXT OFF2220 FOR I=1 TO 24:POSITION 0,0:? "":SOUND 0,100-2*I,10,8:FOR P=1 TO 5:NEXT P:NEXT I2230 S }OUND 0,0,0,0:IF LEBEN>0 THEN 20552235 IF SC>PEEK(HLO)+256*PEEK(HHI) THEN HI=INT(SC/256):LO=SC-256*HI:POKE HLO,LO:POKE HHI,HI }2240 GRAPHICS 2+16:SETCOLOR 4,0,8:SETCOLOR 3,2,2:POSITION 5,5:? #6;"":FOR P=1 TO 500:NEXT P:RUN 2250 LEV=LEV+1:IF }LEV=6 THEN LEV=12255 POKE 559,0:FOR OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF:POKE 39965,1:POKE 39951,1:POKE 29999,12260 POKE 82, }0:POKE 88,88:POKE 89,152:POSITION 0,0:GOSUB 7990+LEV*10:U=USR(30000):ASC=SC2265 POKE 756,148:POKE 708,C1(LEV):POKE 709,C2(LE }V):POKE 710,C3(LEV):POKE 712,C4(LEV)2270 POKE 88,208:POKE 89,132:POSITION 0,0:? " ";LEV;" ":POKE }39965,1:POKE 559,342280 FOR P=1 TO 15:U=USR(30000):FOR I=1 TO 5:NEXT I:NEXT P:GOTO 20602400 POKE 82,0:POKE 88,88:POKE 89,15 }2:POSITION 0,0:GOSUB 8000:RETURN 2410 POKE 559,34:FOR P=1 TO 20:U=USR(30000):FOR I=1 TO 5:NEXT I:NEXT P:I=0:GOTO 25002420 F }OR P=1 TO 20:U=USR(30000):FOR I=1 TO 5:NEXT I:NEXT P:RUN 2450 FOR OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF:POSITION 0,0:? " } ":POKE 29996,1:ZB=256-PEEK(19)2455 POKE 29995,PEEK(39954):FOR P=1 TO 10:U=USR(30000):FOR I=1 TO 5:NEXT I:NEXT P2460 }ZB=ZB-1:IF ZB<0 THEN POKE 29996,0:SC=SC+BONUS:BONUS=0:GOTO 22502470 BONUS=BONUS+50:POSITION 6,0:? BONUS:POSITION 18,0:? ZB;" } ":RESTORE 2490:FOR I=1 TO 3:READ F2480 FOR P=14 TO 0 STEP -1:SOUND 0,F,10,P:NEXT P:U=USR(30000):NEXT I:FOR P=1 TO 3:U=USR(3 }0000):FOR I=1 TO 52485 NEXT I:NEXT P:GOTO 24602490 DATA 108,182,1362499 REM #########DEMO2500 U=USR(30000):I=I+1:POKE 399 }54,PEEK(29995):IF I=145 THEN 24202510 IF DE$(I,I)="L" THEN POKE 29995,PEEK(29995)-1:GOTO 25502520 IF DE$(I,I)="R" THEN POKE } 29995,PEEK(29995)+1:GOTO 25502530 IF DE$(I,I)="O" THEN POKE 29995,PEEK(29995)-20:GOTO 25502540 IF DE$(I,I)="U" THEN POKE 2 }9995,PEEK(29995)+202550 FOR P=1 TO 5:NEXT P:GOTO 25003997 REM ####################3998 REM # CREATE GAME #3999 REM # }###################4000 LAUT=16:I=04010 POKE M,INT(RND(0)*4)+1:U=USR(30000)4020 ON PEEK(M2)+1 GOTO 4010,4040,41304030 GOT }O 40104040 I=I+1:TRAP 4050:SOUND 3,100,8,LAUT4050 POKE M,INT(RND(0)*4.0000008)+1:U=USR(30000)4060 IF I/2=INT(I/2) THEN LAU }T=LAUT-24070 SOUND 2,0,0,0:IF PEEK(39950)=1 THEN SOUND 2,100,8,104080 SOUND 0,0,0,0:SOUND 1,0,0,0:IF PEEK(39957)=1 THEN SOU }ND 0,60,10,10:SOUND 1,60,8,104090 IF STRIG(0)=1 THEN 40404100 FOR OFF=0 TO 3:SOUND OFF,0,0,0:NEXT OFF4110 FOR I=1 TO 24:PO }SITION 0,0:? "":SOUND 0,100-2*I,10,8:FOR P=1 TO 7:NEXT P:NEXT I:SOUND 0,0,0,04120 IF BUILD=1 THEN GOTO 41404130 FOR OFF=0 }TO 3:SOUND OFF,0,0,0:NEXT OFF4135 REM #########STICK BEWEGEN,EDIT4140 POKE 39965,1:POKE 39951,1:X=10:Y=2:C1=PEEK(39000+X+Y* }20):X1=10:Y1=2:C=C1:POKE 39000+X+Y*20,91:BUILD=14150 IF BILDSCHUTZ=1 THEN U=USR(1700):C1=PEEK(SR+X+Y*20):C=C1:POKE SR+X+Y*20 },914160 POKE 559,SS:POKE 39000,634170 S=STICK(0):IF S=15 THEN 42304180 X=X+(S=7)-(S=11):Y=Y+(S=13)-(S=14):X=X+(X=0)-(X=19) }:Y=Y+(Y=0)-(Y=11)4190 IF X=X1 AND Y=Y1 THEN 42304200 C=PEEK(39000+X+Y*20)4210 POKE 39000+X+Y*20,914220 POKE 39000+X1+Y1*2 }0,C14230 U=USR(30000)4240 X1=X:Y1=Y:C1=C4250 T=PEEK(53279)4260 IF STRIG(0)=0 THEN C=CHAR1:C1=CHAR1:IF CHAR1=59 THEN PKX=X }:PKY=Y4270 IF T=3 THEN GOSUB 43104280 IF T=6 THEN ON BEFEHL GOTO 4400,4410,4420,4440,4450,44604290 IF T=5 THEN GOSUB 4560 }4300 GOTO 41704305 REM ########OTION-SYMBOL DRUCKEN4310 BEFEHL=BEFEHL+1:IF BEFEHL=7 THEN BEFEHL=14320 IF BEFEHL=6 THEN POK }E 34012,120:POKE 34052,121:POKE 34053,122:POKE 34013,123:RETURN 4330 POKE 34012,71+(BEFEHL-1)*4:POKE 34052,72+(BEFEHL-1)*4:P }OKE 34053,73+(BEFEHL-1)*4:POKE 34013,74+(BEFEHL-1)*44340 RETURN 4395 REM ########BEFEHL AUSFUEHREN4400 POKE 1554,108:POKE }1555,152:U=USR(1536,CHAR1):C=CHAR1:C1=C:POKE 39000+X+Y*20,91:GOTO 41704410 POKE 1618,108:POKE 1619,152:U=USR(1600):C=0:C1=0: }POKE 39000+X+Y*20,91:GOTO 41704420 IF PKX=0 AND PKY=0 THEN 42904425 POKE 39965,0:POKE 399OKE 1619,152:U=USR(1600):C=0:C1=0: [10 DIM F$(15),FI$(15),FO$(15),P$(40)20 GRAPHICS 030 ? ,"Ҡ":? 120 ? "NAAM OBJ. FILE D:";:INPUT F$125 FI$="D}:":FI$(3)=F$130 ? "NAAM OUTPUT FILE D:";:INPUT F$135 FO$="D:":FO$(3)=F$140 ERR=195:MAX=10170 CLOSE #1:CLOSE #2180 OPEN #}1,4,0,FI$190 OPEN #2,8,0,FO$210 GET #1,B1:GET #1,B2220 IF B1=255 AND B2=255 THEN 260230 ? "OBJ. FILE GEEN ӭĠ-FORM}AAT"260 ? "START REGELNUMMER :";:INPUT LNBR290 TRAP 560300 GET #1,B1:GET #1,B2310 ADRSTART=B1+B2*256330 GET #1,B1:GET #1},B2340 ADREND=B1+B2*256370 ? #2;STR$(LNBR);380 ? #2;" FOR A=";STR$(ADRSTART);" TO ";STR$(ADREND);":READ B:POKE A,B:NEXT A"}400 A=ADRSTART-1420 LNBR=LNBR+2430 IF A+1>ADREND THEN 520440 IF LNBR>32765 THEN ? "REGELNUMMER TE GROOT":GOTO 620450 ? }#2;STR$(LNBR);" DATA ";460 FOR N=1 TO MAX:A=A+1470 IF A>ADREND THEN 520480 IF N>1 THEN ? #2;",";490 GET #1,B1:? #2;STR$(B}1);500 IF N=MAX THEN ? #2510 NEXT N:GOTO 420520 ? #2:LNBR=LNBR+2:GOTO 290540 IF PEEK(ERR)=136 THEN ? "VOORTIJDIG EOF IN O}BJ. FILE":GOTO 620550 GOTO 610560 REM 570 IF PEEK(ERR)<>136 THEN 610580 ? #2;STR$(LNBR);"RETURN"590 ? "<<<>>>"600 }GOTO 620610 ? :? "ERROR #";PEEK(ERR)620 CLOSE #1:CLOSE #2:TRAP 65535580 ? #2;STR$(LNBR);"RETURN"590 ? "<<<>>>"600 H100 DIM CHR80$(384),CH$(81),COLM80$(294)190 GOSUB 2000:GRAPHICS 8+16:SETCOLOR 1,12,0:SETCOLOR 2,0,10:SETCOLOR 4,9,4:GOTO 220}0200 Z=USR(ADR(COLM80$),ADR(CHR80$),X,Y,ADR(CH$))210 RETURN 2000 COLM80$(1,80)="hh h hhhhhhϥX˥Y̭ ͭ }΢@`8 Jʥiͥi"2010 COLM80$(81,160)="͙i(˥ïJi˥ï})3^^^"2020 COLM80$(161,240)="^)0)^^^^"2}030 COLM80$(241,294)="ˑ˥i(˥iiϥi"2050 CHR80$(1,80)="  JhHB@}@ $BBBBB$nĤH @HDD̢Ll"2060 CHR80$(81,160)=",nĤHDFLDD NN B$DJ}jƨȨΨ戈芊"2070 CHR80$(161,240)="䤤**,*JꪪĪʊƨĢJJJJJDNJJ}$$DD"2080 CHR80$(241,320)="DDD$,@@@@@`Ɗƨ lf`ʆ ̤HJLJJJĪ"2090 CHR80}$(321,383)="ƪƂfʊdNJJ DLDDBDDL  "2100 CHR80$(75,75)=CHR$(34):CHR80$(86,86)=CHR$(3}4):RETURN 2200 REM ΠϠś2210 GOSUB 2420:GOSUB 22702220 RESTORE 2340:FOR I=1 TO 82230 READ X,Y,CH$:GOSUB }2002240 NEXT I2250 GOTO 22502260 REM 2270 RESTORE 2300:COLOR 1:PLOT 8,61:FOR I=1 TO 192280 READ X1,Y1:DRAWTO X1,Y1:NEX }T I2290 RETURN 2300 DATA 311,61,311,139,8,139,8,612310 DATA 73,61,73,139,99,139,99,61,127,61,127,139,171,139,171,61,221,61 },221,139,257,139,257,612320 DATA 311,61,311,83,8,832330 GOTO 23302340 DATA 26,63,Total Memory Resolution Text  }Max.No.@2350 DATA 6,74,Model Price Ram for Basic (Max) (Max) of Colours@2360 DATA 3,85,Commodore C128 } `269 128k 112k 320x200 80x25 16@2370 DATA 3,96,Amstrad CPC664 `339 64k 42k 640x200  }80x25 16@2380 DATA 3,107,Enterprise 128 `250 128k 71k 672x512 84x24 256@2390 DATA 3,118,Memotec}h MTX512 `275 80k 64k 256x192 40x24 16@2400 DATA 3,129,Atari 130XE `170 128k 100k 320}x192 80x24' 256@2410 DATA 3,150,' Using Atari User Magazine's 80 column program.@2420 REM ԠΠҮ2430 DIM TEXT}$(40)2440 X=8:Y=40:LET TEXT$="Micro comparison table"2450 W1=PEEK(88)+256*PEEK(89):W2=W1+Y*40+X2460 FOR ME=1 TO LEN(TEXT$)}:X=ASC(TEXT$(ME,ME)):IF X>127 THEN X=X-1282470 IF X>31 AND X<96 THEN X=X-32:GOTO 24902480 IF X<32 THEN X=X+642490 LE}T TEXT$(ME,ME)=CHR$(X):NEXT ME2500 FOR Z=1 TO LEN(TEXT$):X=ASC(TEXT$(Z,Z)):W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+}ME):NEXT ME:W2=W2+1:NEXT Z2510 RETURN Z=1 TO LEN(TEXT$):X=ASC(TEXT$(Z,Z)):W3=57344+X*8:FOR ME=0 TO 7:POKE W2+ME*40,PEEK(W3+(100 TRAP 620:IF PEEK(5489)=1 THEN POKE 5489,3110 DIM UHR$(8):CLICKFLAG=1120 GRAPHICS 0:SETCOLOR 2,0,0130 DL=PEEK(560)+256*}PEEK(561)140 POKE DL+3,70:POKE DL+6,6150 ? "ATARI VBLANK-TIJD "160 ? :? "GEEF DE TIJD ZOALS HIJ MOET BE}GINNEN."170 ? :? "ZO INVOEREN --> 11:22:33"180 FOR P=0 TO 100:NEXT P190 POSITION 18,4:INPUT UHR$200 IF UHR$(1,1)<"0" OR }UHR$(1,1)>"2" THEN 620210 IF UHR$(2,2)<"0" OR UHR$(1,1)>"9" THEN 620220 IF UHR$(3,3)<>":" THEN 620230 IF UHR$(4,4)<"0" OR }UHR$(4,4)>"5" THEN 620240 IF UHR$(5,5)<"0" OR UHR$(5,5)>"9" THEN 620250 IF UHR$(6,6)<>":" THEN 620260 IF UHR$(7,7)<"0" OR }UHR$(7,7)>"5" THEN 620270 IF UHR$(8,8)<"0" OR UHR$(8,8)>"9" THEN 620280 ? :? "TIK NA ELKE SECONDE? (J/N) ";290 POKE 764,25}5300 TASTE=PEEK(764)310 IF TASTE=35 THEN POKE CLICKFLAG,255:? "NEEN":GOTO 340320 IF TASTE=1 THEN POKE CLICKFLAG,1:? "JA":G}OTO 340330 GOTO 300340 POKE 764,255:? :? "EEN MOMENT A.U.B...."350 RESTORE :PROEFSOM=0360 FOR LOOP=0 TO 238:READ WERT:POK}E 1536+LOOP,WERT:PROEFSOM=PROEFSOM+WERT:NEXT LOOP370 FOR LOOP=0 TO 48:READ WERT:POKE 1280+LOOP,WERT:PROEFSOM=PROEFSOM+WERT:N}EXT LOOP380 IF PROEFSOM<>29867 THEN SOUND 0,10,6,10:? CHR$(125):POSITION 0,0:? " DATA FOUT !!! ":END 390 FOR LOOP=1 TO 8:}POKE 1304+LOOP,ASC(UHR$(LOOP))+96:NEXT LOOP400 ? :? "DRUK OP OM DE KLOK TE STARTEN!"410 TASTE=PEEK(764):IF TASTE<>12} THEN 410420 DUMMY=USR(1536)430 POKE 764,255440 GRAPHICS 0:NEW 450 REM 460 DATA 104,173,31,208,201,3,240,27,169,6,160,36 },162,6,32,92,228,165,9,9,2470 DATA 133,9,169,1,133,2,169,6,133,3,169,0,133,0,96,173,49,2,201,5480 DATA 240,27,173,48,2,24,1!}05,3,141,7,5,173,49,2,105,0,141,8,5,169490 DATA 0,141,48,2,169,5,141,49,2,173,190,2,208,10,169,107,77,182,2,141500 DATA 12,"}5,208,8,169,39,77,182,2,141,12,5,173,162,2,208,7,169,128,141510 DATA 11,5,208,5,169,219,141,11,5,173,25,5,201,146,208,7,169,#}148,141,213520 DATA 6,208,5,169,154,141,213,6,230,0,165,0,201,50,208,99,169,0,133,0530 DATA 165,1,141,31,208,238,32,5,173,3$}2,5,201,154,208,80,169,144,141,32,5540 DATA 238,31,5,173,31,5,201,150,208,65,169,144,141,31,5,238,29,5,173,29550 DATA 5,201%},154,208,50,169,144,141,29,5,238,28,5,173,28,5,201,150,208,35560 DATA 169,144,141,28,5,238,26,5,173,26,5,201,154,208,20,169,&}144,141,26,5570 DATA 238,25,5,173,25,5,201,147,208,5,169,144,141,25,5,76,95,228580 REM 590 DATA 112,96,66,9,5,0,1,0,0,128,'}128,128,128,128,128,228,229,128,244,233,234600 DATA 228,154,128,223,144,144,154,144,144,154,144,144,222,128,128,128,128,128,(}128,128610 DATA 128,128,128,128,128,128,128,128620 POSITION 0,0:? " INVOERFOUT !! "630 SOUND 0,155,10,10:FOR P=1 TO 30)}0:NEXT P:SOUND 0,0,0,0:RUN ,128,128,128,128,128620 POSITION 0,0:? " INVOERFOUT !! "630 SOUND 0,155,10,10:FOR P=1 TO 301000 DIM DATEI$(20),DATEN$(69),UM$(70)1010 UM$(1)=" ":UM$(70)=" "1020 FOR I=0 TO 9:UM$(I+48,I+48)=CHR$(I):NEXT I1030 FOR I+}=0 TO 5:UM$(I+65,I+65)=CHR$(I+10):NEXT I1040 READ DATEI$:? "Ich erzeuge... ";DATEI$:? :ZE=20001050 OPEN #1,8,0,DATEI$1060 ,}READ DATEN$:SU=0:ZE=ZE+5:? CHR$(28);"Zeile: ";ZE1070 FOR I=1 TO 68 STEP 21080 IF DATEN$(I,I)="." THEN 11501090 HI=ASC(UM$(-}ASC(DATEN$(I))))*161100 LO=ASC(UM$(ASC(DATEN$(I+1))))1110 GE=HI+LO:PUT #1,GE:SU=SU+GE1120 NEXT I:SU=SU+ZE1130 IF SU-INT(S.}U/26)*26+65<>ASC(DATEN$(69)) THEN ? "Datenfehler in Zeile ";ZE:END 1140 GOTO 10601150 IF SU-INT(SU/26)*26+65<>ASC(DATEN$(I+/}1)) THEN ? "Datenfehler in Zeile ";ZE:END 1160 ? :? "FERTIG.":END 2000 DATA D5:DIASHOW.COM2005 DATA FFFF1334DA3C00000000000}000000A90C9D42032056E460A210A9079D4203A9009D48L2010 DATA 039D49032056E41008C088F004384CED3460AD13348D1434A210201B34A9039D4201}3N2015 DATA A9069D4A03A9009D4B03A9E49D4403A9349D45032056E41004184CED34A9059D4203O2020 DATA A9019D4403A9349D4503A9139D4803A92}009D49032056E4183060CE143410DC201B34T2025 DATA AD0234C920F00DAD1334F04CA9008D13344C4134A202BDE4349D0034CA10F7A200BDS2030 DA3}TA 0334C920F005E8E008D0F4AC0B34A92E9D0334988D15349D0434A9499D0534A9439DF2035 DATA 0634A99B9D0734EE13346044313A2A2E3F49439B684}68900268684C1D3CA210201B34V2040 DATA A9039D4203A9009D4403A9348D4503A9049D4A03A9009D4B032056E41830D3600000V2045 DATA 00000005}0000000A9178D2235202434AE2235E010D0038D1F35E00AD01B8D16342024K2050 DATA 348D17342024348D18342024348D19342024348D1A34CE2235D06}CFA9008D21358D22J2055 DATA 35A90085D48D1B35A95185D58D1C35202434C088D00160AA29808D2035A0008C1E35G2060 DATA 8A297F8D1D35D00C27}024348D1E352024348D1D352024348D2335A000AD233591D4ADM2065 DATA 1F35C902D009E6D4D002E6D54C0436EE223518A5D4695085D4A5D5690085D58}AD2235H2070 DATA C960D039A9008D2235AD2135D015EE213518AD1B35692885D4AD1C35690085D54C04L2075 DATA 36A9008D213518AD1B35690185D9}48D1B35AD1C35690085D58D1C3538AD1D35E9018DR2080 DATA 1D35AD1E35E9008D1E35AD1D35D008AD1E35D0034C7035AD2035F0034C97354C9D35Z20:}85 DATA A210A9079D4203A9009D4403A9519D4503A9009D4803A91E9D49032056E42024348DP2090 DATA 1A342024348D16342024348D17342024348D1;}8346020413420F634AD1534C950F006A2095 DATA 202D364C7A36202435A210201B34600000E000F038A94E990090C8AD8036990090C8E2100 DATA AD<}8136990090C8CAF02118AD803669288D8036AD813669008D8136290F0D8036F0D1O2105 DATA A90E990090C8CAD0DF60A000A970990090C8990090C8990=}090C8A2C0A9008D8036A9N2110 DATA 718D8136208236A941990090C8A900990090C8A99199009060A542D022A9008D1937K2115 DATA A23FBD00909D>}0091BD40909D4091BD80909D8091BDC0909DC091CA10E54C5FE40048O2120 DATA AD19372901D020AD16348D16D0AD17348D17D0AD18348D18D0EE1937A?}D1A348D0AD4N2125 DATA 8D1AD06840ADC4028D16D0ADC5028D17D0ADC6028D18D0EE1937ADC8028D0AD48D1AN2130 DATA D0684020BF36A906A0F0A2@}36205CE4A204A9009DC402CA10F8A91A8D0002A9378D01O2135 DATA 02A9C08D0ED4A9008D3002A9918D310220953760A514C514F0FC60FFFFFFFF7FBFDA}FK2140 DATA EFF7FBFDFEC0300C03000000A203A9FF9D9C37CA10F8A9208DAC37A90085D6A97185K2145 DATA D7A90085D8A95185D9AD0AD22903AAADB}0AD22907A8B9A03749FF3D9C37F0EAB9A037Q2150 DATA 3D9C379D9C37BDA8378DAE3798F01D18A5D6692885D6A5D7690085D718A5D8692885I2155 DAC}TA D8A5D9690085D988D0E3A218A027ADAE3749FF31D68DAD37ADAE3731D80DAD3791D6H2160 DATA 8810E918A5D6694085D6A5D7690185D718A5D86940D}85D8A5D9690185D9CAD0CAADACW2165 DATA 37C910D018A204BD163429F08DAD37BDC402290F0DAD379DC402CA10EAADAC37C914K2170 DATA 1022A20E}4BD1634290F8DAD37BDC402290FCDAD37F00B3006DEC40238B003FEC402CAA2175 DATA 10E0CEAC37F0034CBE3760A21EA000A90085DAA97185DBA90085F}DCA95185DDB1DC91A2180 DATA DAC8D0F9E6DBE6DDCA10F260A204BD16349DC402CA10F760A941990090C8A9009900T2185 DATA 90C8A991990090601G}8AD173969288D1739AD183969008D183960AE1539AD17398D80A2190 DATA 36AD18398D813620823660AE1639AD19398D8036AD1A398D81362082366000H}000000V2195 DATA 0000A9018D1539A9BE8D1639A9D88D1739A96E8D1839A9508D1939A9718D1A392095V2200 DATA 37A000A970990090C8990090C80I}980990090C820EF38A980990090C820023920CB38D2205 DATA 38AD1739E9288D1739AD1839E9008D183918AD193969288D1939AD1A3969008D1A39J22J}10 DATA EE1539A9C0CD1539F00ACE1639A9FFCD1639F0034C3939209C3820953720BF3820BFE2215 DATA 3620953760A95F8D1539A9008D1639A9008D1K}739A9718D1839A9008D1939A9608D1AR2220 DATA 39209537209537A000A970990090C8990090C8990090C820EF38AD1639C9C0F006A9K2225 DATA 80L}990090C8200239AD1639C9C0F006A980990090C8AE1539A9008D8036A9808D8136L2230 DATA 20823620CB3820DD3838AD1939E9288D1939AD1A39E9008M}D1A39EE1639EE1639AD16N2235 DATA 39C9C0F00CCE1539AD1539C9FFF008D00320BF384CC439209C3820953720BF362095F2240 DATA 3760A9BF8D15N}39A9008D1639A9008D1739A9718D1839209537A000A970990090C899Q2245 DATA 0090C8990090C820EF38AD1639C9C0F006A980990090C8AE1639A9008O}D8036A9518DU2250 DATA 813620823620CB3820DD38EE1639AD1639C9C0F00CCE1539AD1539C9FFF008D00320R2255 DATA BF384C613A209C38209537P}20BF3620953760AD1FD0C905F004C906D0F560AE953BA9L2260 DATA 008514AD1FD0C903D00320C33AC905D00568684C1D3CC906F009A514C932D0E3CA1Q}0M2265 DATA DC6000206237206436ADF73A2903AABD963BD00620AF374C263BC901D006201B394CV2270 DATA 263BC902D00620A6394C263B204D3AEER}F73A20CF3AA900854D2095374CFB3A707070R2275 DATA 4F00400F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F0F02020202020202K2280 DAS}TA 0202020202020202020202020241363B010203040506070809101112131415166044S2285 DATA B04400452845504578450510040404040102030408T}0700000300010203A9008514A5P2290 DATA 14C906D0FA60AD1FD0CD923BF0F88D923B854D60A27E8E1FD0AD0BD4CD0BD4F0FBCAR2295 DATA CA10F16U}0AD933B0AAABD7B3B85DEBD7C3B85DF60A0FFC8B1DEF0FBB1DE498091DE29K2300 DATA 7FC91AF003C8D0F160AABD6B3BAAA0FFC8B1DE297FC91AD0F7C8V}C8AD933BC901D00AQ2305 DATA 8A4A4A4A4A091091DEC88A290F091091DE6020C53B20D53BA9828DC602A98C8DC502S2310 DATA A9008DC8028DF73A8W}D1334A9368D3002A93B8D3102AD1FD08D923B209A3B20A53BADA2315 DATA 923BC905D02120C53B20D53BEE933BAD933BC906D005A9008D933B20C53B20X}D53B20O2320 DATA B33B4C423CC903D02FAE933BFE943BBD873BDD943BD005A9009D943BBD943BE000D0X2325 DATA 07AABD8D3BAACA8AA820C53B982Y}0EC3B20B33B4C423CC906D09BAD943BAABD8D3B09I2330 DATA 308DE534A90085414CF83AA900A2009D00409D00419D00429D00439D00449D00459DW23Z}35 DATA 00469D0047E8D0E56005FFFFE202E302BA3C5D405E4032C0854086407BE0AD40AE40U2340 DATA 5EC0D540D6401A40DD40DE4003C0FD40FE401[}BC00541074104701025412F411A4000J2345 DATA 02000000000820304D4157413A4300060000000008203075417F413A400006000000S2350 DATA 00\}0FC0309D41AA415A40011F8042400007FC30010020C541D2411BC38F8608E660C0A2355 DATA 108E360FCEEEED41FA411A470D061DC3E7C01FC63F19866]}6154222423A430C060CC3K2360 DATA 03600FF4331986663D424A423BE30C060CC30340011433198666654272425B030C06N2365 DATA 0CC303800A08^}331986668D429A421A030C060CC303000C0833198666B542C2421A03J2370 DATA 0C060CC3030003F033198666DD42EA421E039F8F1FE787C00CE0733F8_}FFE05431243Q2375 DATA 120186020CC101001060330C033037433743045F435F43028743874302AF43AF4302I2380 DATA F043074408230900111918`}160C0000306574657200226C696E7A657263446D442C61X2385 DATA 75667765726B1A0011B344C94430617573656E7A6569741A0010140033656B756E6a}4G2390 DATA 656E03451145256666656B740034797000111A00112B453945256666656B74003479R2395 DATA 7000121A001253456145256666656B74b}0034797000131A00137B458945256666656BU2400 DATA 740034797000141A0014CC45EC453761686C00646573002D656E756570756E6B7465K2405 DAc}TA 73006D697442B3A5ACA5A3B456F1451746756E640036657261656E646572756E6700Y2410 DATA 64657300376572746573006D697442AFB0B4A9AFAEd}561B463E466F64657200337461G2415 DATA 7274006465730030726F6772616D6D73006D697442B3B4A1B2B4560E6846DD462461D2420 DATA 7300307e}26F6772616D6D006B616E6E006D697442AFB0B4A9AFAE56616E676568616CJ2425 DATA 74656E0C6D697442B3B4A1B2B4566F686E650030617573650066f}6F72746765736574B2430 DATA 7A7400756E64006461730000002D656E7565006D697442B3A5ACA5A3B45661756667M2435 DATA 65727566656E00776g}57264656E0EE002E102173C.UA 7A7400756E64006461730000002D656E7565006D697442B3A5ACA5A3B45661756667M2435 DATA 65727566656E00776B%DOS SYSB*)DUP SYSBWSDASH1 LSTBJDASH2 LSTB DATAGEN LSTBDEMO802 LSTBDETYD LSTB>*DIASHOW LSTBlqDISKIO LSTBDISKKEEPLSTBDISKSPD LSTBQDUIKER LSTB GETIKET LSTB PFIREWORKLSTBY]FIVELINELST GOTCHA LST<GRUBS LSTGTIATEXTLST[HARRY LSTsINDEX LSTKALENDERLSTKOLOMMENLSTKREATOR LST KUBUS ASCALABEL LST10 REM Ϡӛ15 REM ٠ˠ̧30 REM éàǛ40 DIM FN$(20),TEMP$(20),AR$(93)50 ? "}DISKI!r}O PLUS FILE CREATOR"55 TLOC=PEEK(10592):POKE 10592,25560 ? :? "OUTPUT FILENAME";:INPUT FN$70 IF FN$(1,1)="D" AND (FN$(2,2)!s}=":" OR FN$(3,3)=":") THEN 9080 TEMP$(1,2)="D:":TEMP$(3)=FN$:FN$=TEMP$90 ? :? "CONFIGURE FOR ASIC OR SSEMBLER";:INPUT TEM!t}P$92 IF TEMP$="B" THEN CNF=0:GOTO 9994 IF TEMP$="A" THEN CNF=1:GOTO 9996 ? "";:GOTO 9099 TRAP 160:POKE 10592,TLOC100 ?!u} :? :? "WORKING...PLEASE STAND BY"110 RESTORE :READ LN:LM=LN:DIM A$(LN):C=1120 AR$="":READ AR$130 FOR X=1 TO LEN(AR$) STEP!v} 3:POKE 752,255140 LM=LM-1:POSITION 10,10:? "(COUNTDOWN...T-";INT(LM/10);") "150 A$(C,C)=CHR$(VAL(AR$(X,X+2))):C=C+1:NEX!w}T X:GOTO 120160 IF CNF=1 THEN A$(1929,1929)="#":A$(1942,1942)=" ":A$(3270,3274)="65535"170 IF PEEK(195)=5 THEN ? :? "TOO M!x}ANY DATA LINES!!!":? "CANNOT CREATE FILE!":END 200 IF C288";:POSITION 2,0:? #6;"DISC SPEED TESTER"100 FOR I=0 TO 72:RE)}AD A110 POKE 1536+I,A:NEXT I130 POKE 1610,1:X=USR(1536):A=PEEK(1611):B=PEEK(1612)175 MINUTES2=(256*B+A)/300185 RPM2=INT(1)}00/MINUTES2+0.5)186 MAAL=MAAL+1:MEAN=((MEAN*(MAAL-1))+RPM2)/MAAL190 POSITION 8,3:? #6;RPM2:POSITION 8,7:? #6;INT(MEAN)191 )}IF MAAL>9 AND DRUK=1 THEN LPRINT INT(MEAN);" ";192 IF MAAL>9 THEN MAAL=0:MEAN=0:POSITION 8,7:? #6;" "194 POKE 1551,1195)} GOTO 130200 END 1000 DATA 104,169,1,141,10,3,169,01010 DATA 141,11,3,141,4,3,169,51020 DATA 141,5,3,173,74,6,141,11030 )}DATA 3,169,82,141,2,3,169,51040 DATA 141,73,6,32,83,228,206,731050 DATA 6,208,248,169,10,141,73,61060 DATA 169,0,133,19,13)}3,20,32,831070 DATA 228,206,73,6,208,248,165,201080 DATA 164,19,141,75,6,140,76,6,96,10,141,73,61060 DATA 169,0,133,19,13(W5 REM DIVER6 REM BY STEVE MAY7 REM ANTIC MAGAZINE10 GOSUB 1500:GRAPHICS 1:GOSUB 1400:GOSUB 1000:GOSUB 1300:DV=3:OX=20:GOS-}UB 900:DX=9:DY=0:DV=3:DIM X(20),Y(20)20 DIM S$(3):S$=""30 POSITION DX,DY:? #6;"";:F6=1:GOTO 430100 GOSUB 600:S=STICK(0-})105 IF STRIG(0)=0 THEN 400110 IF (S=7 AND DX<19) THEN NDX=1:NDY=0:GOTO 300120 IF (S=11 AND DX>0) THEN NDX=-1:NDY=0:GOTO 3-}00130 IF (S=13 AND DY<19) THEN NDX=0:NDY=1:GOTO 300140 IF S=14 THEN NDX=0:NDY=-1:GOTO 300200 GOTO 100300 SOUND 0,40+DY*2.-}5,6,2:LOCATE DX+NDX,DY+NDY,CHR:IF CHR=32 THEN 310303 IF CHR=234 THEN 100305 GOTO 500310 POSITION DX,DY:? #6;" ";:DX=DX+NDX-}:DY=DY+NDY:POSITION DX,DY:? #6;"";:GOTO 100400 LOCATE DX,DY+1,CHR:IF CHR<>234 THEN 420410 GOSUB 3000:POSITION DX,DY+1:? #6-};" ";:SC=SC+10:TC=TC+1:OB=OB+1:GOSUB 910:GOTO 100420 IF DY<>1 THEN 100425 SOUND 0,0,0,0430 FOR X=1 TO 50:NEXT X:SC=SC-OX:F-}2=1:OC=0:OX=20:POSITION DX,DY:? #6;" ";:POSITION DX,0:? #6;"";431 IF F6=0 THEN GOSUB 3010432 IF SC<0 THEN SC=0435 F6=0:GO-}SUB 910:IF TC>0 THEN 460440 GOSUB 600:IF STRIG(0)<>0 THEN 440450 FOR X=1 TO 50:NEXT X:GOSUB 3010:POSITION DX,0:DY=1:? #6;"--}";:POSITION DX,DY:? #6;"";:F2=0:GOTO 100460 SOUND 0,0,0,0:POSITION 0,2:? #6;"THE TREASURE CHEST";:IF TC>1 THEN ? #6;"S ";:G.}OTO 466464 ? #6;" ";466 ? #6;"CONTAINED:":? #6470 FOR X=1 TO TC:Y=INT(RND(0)*17):? #6;TR$(Y*10+1,Y*10+10);" ";PT(Y);" PTS.}.":SC=SC+PT(Y):TC=TC-1:GOSUB 910471 NEXT X475 IF OB=5 THEN 800480 FOR X=1 TO 2000:NEXT X490 POSITION 0,2:FOR X=0 TO 7:? #.}6;" ";:NEXT X:TC=0:GOSUB 910:GOTO 440500 IF CHR=95 THEN 100510 GOSUB 3020:SOUND 0,0,0,0:C=0:FOR N=1 TO 2.}0:X(N)=0:Y(N)=0:NEXT N520 LOCATE DX,DY+1,CHR:IF CHR=32 THEN GOTO 540530 GOSUB 3040:FOR N=1 TO C:POSITION X(N),Y(N):? #6;" ".};:NEXT N:POSITION 0,0:? #6;"-"532 FOR N=0 TO 2:SOUND N,0,0,0:NEXT N535 POSITION DX,DY:? #6;" ";:DX=9:DY=0:DV=DV-1:TC=0:OC=0.}:OX=20:F2=0:GOSUB 910:IF OB=5 THEN POSITION 0,3:GOTO 800538 GOTO 30540 IF DY=19 THEN 530550 C=C+1:X(C)=DX:Y(C)=DY:POSITION.} DX,DY:? #6;" ";:GOSUB 3050:DY=DY+1:POSITION DX,DY:? #6;"";560 FOR X=1 TO 150:NEXT X:GOTO 520570 GOTO 520600 IF F2=1 THEN.} 620610 OC=OC+1:IF OC=10 THEN OC=0:OX=OX-1:GOSUB 910:IF OX=0 THEN GOTO 510620 IF F3=1 THEN 640630 IF INT((RND(0)*20)<(SK+1.}))=1 THEN F3=1:OCX=INT(RND(0)*20):OCY=4640 IF F1=1 THEN 660650 IF INT((RND(0)*200)<(SK+1))=1 THEN F1=1:BX=INT(RND(0)*18):BY. }=5:TICKER=5:C2=0660 IF F4=1 THEN 700670 IF INT((RND(0)*OX*15)<(SK+1))=1 THEN F4=1:C3=0:SX=0:SY=8700 IF F3<>1 THEN 720710 . }C1=C1+1:IF C1=ABS(3-SK) THEN C1=0:GOSUB 2000720 IF F4=1 THEN 2300730 IF F1=1 THEN 2200740 RETURN 800 ? #6:? #6;"allŠ. }ӠŮ":OB=0:CR=CR+1:IF CR=5 THEN GOTO 850805 ? #6:? #6;" Ǡ":? #6;" coral reef #";CR+1;:GOT. }O 820810 TC=0:OC=0:OX=20:F2=0:DX=9:DY=0:F1=0:F3=0:F4=0:RETURN 820 GOSUB 810:FOR X=1 TO 1000:NEXT X840 GOSUB 1000:GOSUB 905. }:GOTO 30850 GOSUB 810:CR=0:SK=SK+1:? #6;"ՠŠĠϠSKILL LEVEL ";SK+1;860 IF DV<3 THEN DV=DV+1:GOTO 820870 .}GOTO 820900 DIM OX$(21),DV$(3),TC$(6):OX$=" ````````````````````":DV$=" @@":TC$=" JJJJJ"905 POKE 82,0:POKE 752,1:? CHR$(125.}):? CHR$(28);910 IF DV=0 THEN GOTO 1200920 ? "SCORE:";SC;" ";:POKE 657,23:? "HIGH SCORE:";HSC:POKE 656,1:POKE 657,0:? "DIVE.}RS:";DV$(1,DV);" ";930 POKE 657,12:? "TREASURE CHESTS:";TC$(1,TC+1);" ";:POKE 656,2:POKE 657,6:? "OXYGEN:";OX$(1,OX+1);".} ";940 POKE 656,0:POKE 657,0:RETURN 1000 POKE 752,1:? #6;CHR$(125):? "}":POKE 708,162:POKE 709,202:POKE 710,10:POKE 711,30:.}POKE 712,1161005 POKE 756,PEEK(106)+1:POSITION 0,0:? #6;"";1010 COLOR 43:RESTORE 1100+CR*10:READ X1:FOR.} N=1 TO X1:READ Z,Y,Z1,X:PLOT Z,Y:DRAWTO Z1,X:NEXT N1030 COLOR 234:FOR N=1 TO 5:READ Z,Y:PLOT Z,Y:NEXT N:READ HT:RETURN 110.}0 DATA 8,0,16,0,18,1,17,1,18,0,19,19,19,6,17,8,17,5,18,8,18,15,16,15,16,15,17,16,17,14,18,17,181102 DATA 1,16,7,16,9,18,14,1.}7,18,18,161110 DATA 16,0,15,5,15,0,16,1,16,0,17,0,17,5,15,5,18,4,18,4,18,0,19,2,19,7,19,7,18,8,19,8,17,9,19,9,141112 DATA 1.}0,19,10,15,11,16,11,161114 DATA 11,19,19,19,15,18,19,18,16,17,17,17,16,16,16,16,19,17,19,141116 DATA 4,17,18,17,7,17,11,18,.}19,13,141120 DATA 18,0,12,0,19,1,12,1,15,1,18,1,19,2,12,2,13,3,12,4,12,3,15,3,19,4,14,4,14,4,15,6,15,4,18,4,191122 DATA 6,1.}6,7,16,6,17,11,17,5,19,19,19,16,14,16,14,15,15,16,15,14,16,15,16,13,17,15,17,13,18,16,181124 DATA 19,18,19,18,1,17,2,19,4,17.},17,17,18,18,121130 DATA 25,0,15,5,15,0,16,0,18,0,19,19,19,1,18,1,18,3,18,3,18,3,16,3,16,6,17,6,18,7,16,7,18,8,14,8,161132 .}DATA 10,16,10,16,11,16,11,18,12,18,12,18,10,14,12,14,13,11,13,16,16,14,16,17,15,13,16,13,18,11,18,181134 DATA 19,11,19,18,14.},11,17,11,14,16,14,17,0,13,0,13,0,14,2,14,10,18,10,18,12,13,12,13,16,10,19,101136 DATA 1,17,6,16,8,18,13,18,15,17,101140 DA.}TA 18,0,11,2,11,0,17,0,18,1,14,1,14,2,12,2,17,3,12,4,12,3,13,7,13,4,15,4,15,4,16,5,16,5,17,6,171142 DATA 5,18,7,18,0,19,19,1.}9,7,14,13,14,7,15,9,15,8,16,9,16,9,17,10,17,12,15,13,15,12,16,14,16,13,17,17,171144 DATA 1,13,0,16,4,18,5,15,10,16,111200 G.}RAPHICS 17:POSITION 5,3:? #6;"game over";:POSITION 5,5:? #6;"score: ";SC1205 IF SC>HSC THEN HSC=SC1210 SC=0:DV=3:F1=0:F2=0:.}F3=0:F4=0:TICKER=5:C=0:C1=0:C2=0:TC=0:OB=0:DX=9:DY=0:OX=20:OC=0:C3=0:CR=0:SK=01220 ? #6:? #6;"PRESS TO PLAY"1230 IF P. }EEK(53279)<>6 THEN 12301240 GRAPHICS 1:GOSUB 1400:GOSUB 1000:GOSUB 905:GOTO 301300 DIM TR$(180)1305 TR$="GOLD BARS DIAMOND.!}S EMERALDS GOLD COINSSWORDS SEAWEED SAND TRINKETS PEARLS SILVER "1308 TR$(101)="WEAPONS ARTIFACTS NECKL."}ACES RINGS CAPT. LOG RARE CORALDEAD FISH "1310 DIM PT(17):RESTORE 1320:FOR X=0 TO 16:READ PT:PT(X)=PT:NEXT X:RETURN 132.#}0 DATA 150,125,115,105,30,0,0,55,85,70,40,65,75,60,15,80,101400 POKE 559,0:DL=PEEK(560)+PEEK(561)*2561410 RESTORE 1420:POKE.$} DL+3,198:FOR A=1 TO 5:READ B:POKE DL+B,134:NEXT A1420 DATA 8,13,17,21,241430 RESTORE 1440:FOR A=1536 TO 1590:READ B:POKE A.%},B:NEXT A1440 DATA 72,138,72,174,49,6,142,10,212,224,5,240,9,189,50,6,141,26,208,76,35,6,169,0,141,26,208,141,24,2081450 DA.&}TA 169,14,141,23,208,232,224,6,208,2,162,0,142,49,6,104,170,104,64,0,200,198,196,194,1921460 POKE 512,0:POKE 513,6:POKE 5428.'}6,192:POKE 559,34:RETURN 1500 POKE 106,PEEK(106)-5:GRAPHICS 0:POKE 752,1:START=(PEEK(106)+1)*256:Z1=10241505 GRAPHICS 0:POK.(}E 559,0:DL=PEEK(560)+PEEK(561)*256:POKE DL+10,7:POKE DL+11,7:POKE DL+27,651510 POKE DL+28,PEEK(560):POKE DL+29,PEEK(561):SET.)}COLOR 2,0,0:POKE 752,1:SETCOLOR 1,0,15:SETCOLOR 0,6,81520 POSITION 7,5:? "DIVER":POSITION 9,6:? "Written & designed by":POSI.*}TION 15,7:? "Steve May"1530 POSITION 17,8:? "1984":POSITION 7,10:? "Initializing, Please Wait"1540 POKE 559,34:GOSUB 30000.+}1550 POSITION 10,14:? "Press to play"1560 IF PEEK(53279)<>6 THEN 15601570 RETURN 2000 POSITION OCX,OCY:? #6;"q";201.,}0 IF DY<>OCY THEN 20402020 IF DXOCX THEN NOCX=1:NOCY=0:GOTO 20602040 IF DYOCY THEN NOCY=1:NOCX=0:GOTO 20602060 TRAP 2090:LOCATE OCX+NOCX,OCY+NOCY,CHR2070 ..}IF CHR<>32 THEN 21002080 POSITION OCX,OCY:? #6;" ";:OCX=OCX+NOCX:OCY=OCY+NOCY:POSITION OCX,OCY:? #6;"q";:RETURN 2090 GOTO 7./}202100 IF CHR=192 AND F2=0 THEN 5102110 NOCX=0:NOCY=0:GOTO 20802200 POSITION BX,BY:? #6;"!<$";:POSITION BX,BY+1:? #6;"%";T.0}ICKER;"&";:POSITION BX,BY+2:? #6;"'*=";2210 C2=C2+1:IF C2<>ABS(10-(SK*2)) THEN RETURN 2220 C2=0:TICKER=TICKER-1:SOUND 1,0,1.1},15:SOUND 1,0,0,02230 IF TICKER=0 THEN POSITION BX+1,BY+1:? #6;TICKER;:GOTO 22502240 RETURN 2250 FOR X1=10 TO 1 STEP -1:GO.2}SUB 3030:FOR X=0 TO 152252 A=X*16+14:POKE 1586,A:POKE 1587,A:POKE 1588,A:POKE 1589,A:POKE 1590,A2254 NEXT X:NEXT X12256 PO.3}KE 1586,200:POKE 1587,198:POKE 1588,196:POKE 1589,194:POKE 1590,192:SOUND 0,0,0,0:SOUND 1,0,0,02260 POSITION BX,BY:? #6;" .4}";:POSITION BX,BY+1:? #6;" ":POSITION BX,BY+2:? #6;" "2270 IF F3=1 THEN POSITION OCX,OCY:? #6;" ";2275 IF F4=1 THEN POS.5}ITION SX,SY:? #6;" ";:F4=0:C3=02280 IF F2=0 THEN F1=0:F3=0:C2=0:TICKER=5:GOTO 5102290 F1=0:F3=0:C2=0:TICKER=5:RETURN 230.6}0 POSITION SX,SY:? #6;S$;:IF F1=1 THEN GOSUB 22002310 C3=C3+1:IF ((C3=3-SK) OR (SK>2)) THEN C3=0:POSITION SX,SY:? #6;" ";:.7}SX=SX+1:POSITION SX,SY:? #6;S$;2320 IF SX=17 THEN POSITION SX,SY:? #6;" ";:C3=0:F4=0:RETURN 2330 IF SX<5 THEN 24002340 I.8}F DY},0,0:RETURN 3060 FOR X=1 TO 30 STEP 3:SOUND 3,X,2,12:NEXT X:SOUND 3,0,0,0:RETURN 30000 Z=USR(ADR("h˅MΥji̠͑.?}Υ`")):RESTORE 3010030010 RESTORE 30100:POSITION 17,12:? " ";30030 READ X:IF X=-1 THEN RESTORE :RETURN 30040 FOR.@} Y=0 TO 7:READ Z:POKE X+Y+START,Z:NEXT Y:GOTO 3003030100 DATA 8,1,0,12,7,3,119,31,1530101 DATA 120,224,167,229,7,0,28,20,28.A}30102 DATA 32,128,0,48,224,192,238,248,24030103 DATA 40,222,60,60,252,252,60,60,22230104 DATA 48,123,60,60,63,63,60,60,123.B}30105 DATA 56,15,31,119,3,7,12,0,130106 DATA 80,0,195,255,255,255,126,219,15330107 DATA 88,255,255,255,255,255,255,255,255.C}30108 DATA 224,153,219,126,255,255,255,195,030109 DATA 232,240,248,238,192,224,48,0,12830110 DATA 256,126,195,129,129,195,.D}126,102,19530111 DATA 336,0,126,129,231,255,255,255,030112 DATA 64,0,0,0,64,63,95,7,030113 DATA 240,3,3,3,3,255,255,255,12.E}730114 DATA 392,60,106,60,84,146,146,73,1030115 DATA 72,128,192,192,192,255,255,254,25230116 DATA 992,0,0,0,0,0,48,76,131,.F}-10114 DATA 392,60,106,60,84,146,146,73,1030115 DATA 72,128,192,192,192,255,255,254,25230116 DATA 992,0,0,0,0,0,48,76,131,,2 REM `````````````````````5 REM ` 1029 ETIKET PRINT `6 REM ` (c) AMJ`SOFT 1985 `7 REM `````````````````````8 DIM A$(35),2H}B$(35),C$(35),D$(35),E$(5),PR$(32):OPEN #1,4,0,"K:":PR$=" "10 TRAP 12:? "}Spaties van links 1-15 :";:INPUT SL2I}:GOTO 1512 SL=115 AA=0:BB=9:C=920 ? "}Type de gegevens in !"30 ? "1e :";:INPUT A$35 IF A$="" THEN 1040 ? "2e :";:INP2J}UT B$45 IF B$="" THEN C$=B$:D$=C$:GOTO 6550 ? "3e :";:INPUT C$55 IF C$="" THEN D$=C$:GOTO 6560 ? "4e :";:INPUT D$65 C=2K}1:IF D$="" THEN AA=1:C=370 TRAP 71:B=C:? "Aantal etiketten :";:INPUT A:GOTO 7271 A=172 ? "Π start het printen !"2L}75 GET #1,K:IF K<>155 THEN 7580 IF AA=1 THEN LPRINT 100 FOR X=1 TO A110 IF X=A AND AA=1 THEN B=B-1150 PR$(SL)=A$:LPRINT P2M}R$:LPRINT 250 PR$(SL)=B$:LPRINT PR$:LPRINT 350 PR$(SL)=C$:LPRINT PR$:LPRINT :IF AA=1 THEN 400380 PR$(SL)=D$:LPRINT PR$:LPR2N}INT 400 FOR SP=1 TO B:LPRINT :NEXT SP450 NEXT X500 ? "}ZELFDE GEGEVENS WEER ʯΠ";:GET #1,K:? :? :IF K=74 THEN 70510 IF2O} K=78 THEN GOTO 15520 GOTO 500EXT SP450 NEXT X500 ? "}ZELFDE GEGEVENS WEER ʯΠ";:GET #1,K:? :? :IF K=74 THEN 70510 IF0 1 ? "}"2 POKE 710,0:POKE 752,14 ? :? "EEN OGENBLIKJE A.U.B."5 ? "HET PROGRAMMA LOOPT OVER 1 MIN."6 FOR P=1 TO 3000:NEXT P6Q}20 N=2:C=0:GRAPHICS 10:F=0:FOR I=0 TO 8:POKE 704+I,0:NEXT I30 COLOR 140 POKE 704,050 FIRE=2000200 DATA 1.9,1.2,1.8,-1.3,6R}2.1,1.4,2.0,-1.4,1,.5,1.1,-.7,1.2,.9,.9,-1,1.7,.8,2,-.9210 DATA 2.2,0.3,2.3,-.3240 F=F+1:IF F=13 THEN GOTO FIRE250 RESTORE6S} 200:FOR I=1 TO F:READ H,W:NEXT I:RESTORE 1000:TRAP 800300 READ X,Y:X=INT(X*W):Y=INT(Y*2*H)310 PLOT 40+X,190-Y:C=C+1:IF C>16T}0 THEN C=0:N=N+1:IF N>9 THEN N=1330 COLOR N340 J=J+1350 GOTO 300800 TRAP 40000:IF PEEK(195)<>6 THEN ? "ERROR ";PEEK(195);6U}"LINE";PEEK(187)*256+PEEK(186):END 810 GOTO 2401000 DATA 1,1,1,2,1,3,1,4,1,5,1,6,1,7,1,8,1,9,1,10,1,11,2,11,1,12,2,12,2,136V}1010 DATA 2,14,2,15,2,16,2,17,2,18,2,19,3,20,3,19,2,20,3,21,3,20,3,21,4,221020 DATA 4,23,4,24,4,25,5,22,5,23,5,24,5,25,5,26,6W}6,27,6,26,5,27,6,28,6,29,6,30,7,28,7,29,7,30,7,31,7,32,8,311030 DATA 8,32,8,33,8,34,9,33,9,34,9,35,10,35,10,36,11,36,11,37,16X}2,37,12,38,13,38,13,39,141035 DATA 39,15,39,3,22,3,23,18,31040 DATA 19,39,20,39,15,40,16,40,17,40,18,40,19,38,20,38,20,37,26Y}1,38,21,37,22,36,21,36,22,35,23,35,23,34,23,331050 DATA 24,33,24,32,24,31,25,30,25,29,25,28,26,26,26,25,27,232000 FOR Z=1 T6Z}O 82005 FOR I=6 TO 0 STEP -1:POKE 706+I,PEEK(705+I):NEXT I2010 FOR I=1 TO 15:NEXT I2020 A=A-2+16*(A=0)2030 POKE 705,(B*166[}+A)2035 NEXT Z2037 B=B+1-16*(B=15)2040 POKE 77,0:GOTO 20002050 REM ĠϠǠ2060 REM қ2070 REM ϛ2086\}0 REM Λ2090 REM V.D.2091 REM қ2092 REM ś2093 REM ӛ2094 REM ԛ REM ĠϠǠ2060 REM қ2070 REM ϛ2084B10 REM 'FIVE LINERS' uit ATARI-USER20 GRAPHICS 18:? #6:? #6;" DIT ZIJN EEN AANTAL PROGRAMMATJES UIT HET BLAD ":? #:^}6;" ɠ"22 ? #6:? #6;" de zgn "25 ? #6:? #6;" DRUK OP START"30 IF PEEK(53279)<>6 THEN 3040 GRAP:_}HICS 0:? 50 ? "KIES UIT:"60 ? :? "-A- DOBBELSTEEN":? "-B- REGELS OP SCHERM":? "-C- AFTEL-KLOK #1":? "-D- AFTEL-KLOK #2":? ":`}-E- KLOK"70 ? "-F- DRUM-BAL":? "-G- SECTORS LEZEN":? "-H- REFLECTIE":? "-I- CURSOR OPLICHTEN"80 ? "-J- KLEUREN ROTATIE":? ":a}-K- BREAK EN ATTRACT UIT":? "-L- VARIABELEN LISTER":? "-M- 32 COLOMN SCREEN EDITOR"90 ? "-N- MEERKLEUREN ACHTERGROND":? "-O-:b} KEYBOARD BUFFER":? "-P- GRAPHICS 8 INVERTER":? "-Q- DATA CREATOR"100 ? "-R- KLEUREN SPEL"110 ? :? "ˠРΠӠ"12:c}0 OPEN #1,4,0,"K:":GET #1,A:IF A<65 OR A>82 THEN CLOSE #1:GOTO 120130 CLOSE #1135 A=A-65:B=(A*100)+60:C=B+1000140 GOTO C1:d}50 END 1000 RESTORE 1000:POKE 752,1:? "}":DIM A(53):FOR X=0 TO 53:A(X)=32:NEXT X:FOR X=0 TO 20:READ D:A(D)=20:NEXT X:OPEN #1:e},4,0,"K:"1010 DATA 4,9,17,20,22,24,27,29,33,35,36,38,40,42,44,45,47,48,50,51,531030 POSITION 17,9:? "":FOR X=10 TO 12::f}POSITION 17,X:? "| |":NEXT X:POSITION 17,13:? "":POKE 764,11040 POSITION 13,22:? "PRESS ANY KEY":GET #1,A:FOR T=1 TO :g}INT(RND(0)*10)+5:N=INT(RND(0)*6)*9:SOUND 0,T*3+N+10,10,81050 FOR R=0 TO 2:FOR C=0 TO 2:POSITION C+18,R+10:? CHR$(A(N+R*3+C)):h}:NEXT C:NEXT R:NEXT T:SOUND 0,0,0,0:GOTO 10401060 GOTO 10001100 RESTORE 1100:FOR X=0 TO 54:READ D:POKE 1536+X,D:NEXT X1110:i} DATA 16,16,80,66,255,255,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,21120 DATA 0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0,2,0:j},2,65,0,61130 POKE 1536+4,PEEK(88):POKE 1536+5,PEEK(89)1140 POKE 560,0:POKE 561,61145 END 1160 ? "}DIT PROGRAMMATJE GEEFT:k} OVER HET HELE SCHERM ZWARTE LIJNEN."1161 ? "ALSOF MEN IN EEN SCHRIFT TIJPT."1162 ? :? :? "ˠРԠ"1163 IF PEEK(5:l}3279)<>6 THEN 11631164 GOTO 11001200 REM ̭ˠ1210 ? CHR$(125):? "GEEF HET AANTAL SECONDEN VERTRAGING:"1220 INPUT:m} S:POKE 20,0:POKE 752,11230 IF PEEK(20)<50 THEN 12301240 POKE 20,0:S=S-1:POSITION 2,5:? S;" ":IF S>0 THEN 12301250 ? :? :?:n} "ŠĠӠС":END 1260 GOTO 12001270 END 1300 REM ̭ˠ1310 DIM T$(8),H$(2),M$(2),S$(2):? "GEEF UREN,MINUTEN,:o}SECONDEN":INPUT H1,M1,S11320 POKE 20,0:POKE 19,0:POKE 18,0:ST=H1*3600+M1*60+S1:GRAPHICS 21330 ET=INT((PEEK(18)*65536+PEEK(1:p}9)*256+PEEK(20))/49.85866):CT=ST-ET:H=INT(CT/3600):CT=CT-H*3600:M=INT(CT/60)1340 S=CT-M*60:H=H*(H<24):T$="00:00:00":H$=STR$(:q}H):M$=STR$(M):S$=STR$(S):T$(2+1-LEN(H$),2)=H$:T$(5+1-LEN(M$),5)=M$1350 T$(8+1-LEN(S$),8)=S$:POSITION 6,4:? #6;T$:GOTO 1330+3:r}0*(H$="0" AND M$="0" AND S$="0")1352 ? "ŠĠӠС":END 1360 GOTO 13001370 END 1400 REM ̭ˠ1410 DIM T$(8),:s}H$(2),M$(2),S$(2):? "GEEF UREN,MINUTEN,SECONDEN":INPUT H1,M1,S11420 POKE 20,0:POKE 19,0:POKE 18,0:ST=H1*3600+M1*60+S1:GRAPHI:t}CS 21430 ET=INT((PEEK(18)*65536+PEEK(19)*256+PEEK(20))/49.85866):CT=ST+ET:H=INT(CT/3600):CT=CT-H*3600:M=INT(CT/60)1440 S=CT:u}-M*60:H=H*(H<24):T$="00:00:00":H$=STR$(H):M$=STR$(M):S$=STR$(S):T$(2+1-LEN(H$),2)=H$:T$(5+1-LEN(M$),5)=M$1450 T$(8+1-LEN(S$):v},8)=S$:POSITION 6,4:? #6;T$:GOTO 14301460 GOTO 14001470 END 1500 REM ̛͠1510 GRAPHICS 0:X=10:Y=10:OX=X:OY=Y:DX=1:DY:w}=1:POKE 752,1:D=PEEK(560)+256*PEEK(561):POKE D+3,71:POSITION 6,01520 ? "DRUMBALL":POKE D+6,6:FOR T=18 TO 28:POKE D+T,6:NEXT :x}T1530 POSITION X,Y:? "":IF X<1 OR X>38 THEN DX=-DX:V=81540 IF Y<2 OR Y>10 THEN DY=-DY:V=81550 V=V-(V>0)*2:SOUND 0,X,8,V:X:y}=X+DX:Y=Y+DY:POSITION OX,OY:? " ":OX=X:OY=Y:GOTO 15301560 GOTO 15001570 END 1600 RESTORE 1600:REM ˠҠٛ1610:z} GRAPHICS 0:DIM B$(1):FOR I=0 TO 25:READ BYTE:POKE 1536+I,BYTE:NEXT I:DL=PEEK(88)+256*PEEK(89)1620 DATA 104,104,141,11,3,104:{},141,10,3,104,141,5,3,104,141,4,3,169,82,141,2,3,76,81,228,961630 ? :? "WELKE SECTOR LEZEN";:INPUT STR:X=USR(1536,STR,1600)::|}? :? "SECTOR ";STR:? :FOR I=0 TO 7:POKE 85,51640 FOR J=0 TO 15:B$=CHR$(PEEK(1600+I*16+J)):IF B$<>CHR$(155) THEN ? CHR$(27);B:}}$;:NEXT J:? :NEXT I:GOTO 16301650 IF B$=CHR$(155) THEN C=PEEK(85):POKE (DL+PEEK(84)*40+C),219:POKE 85,C+1:NEXT J:? :NEXT I:G:~}OTO 16301660 GOTO 16001670 END 1700 RESTORE 1700:REM Šԛ1710 GRAPHICS 18:POKE 710,0:D=PEEK(560)+256*PEEK(561:})1720 FOR N=1 TO 11:READ B:POKE 1535+N,B:NEXT N:DATA 72,169,4,141,10,212,141,1,212,104,641730 POKE 512,0:POKE 513,6:POKE 54:}286,192:POKE D+6,2:POKE D+12,135:POKE D+13,61740 POSITION 15,1:? #6;"DLI REFLECT":POSITION 2,8:? #6;"":POSITIO:}N 2,9:? #6;"VOOR DE S.A.G."1750 GOTO 17501760 GOTO 17001770 END 1800 RESTORE 1800:REM Ҡԛ1810 FOR I=1536 TO:} 1536+128:READ A:POKE I,A:NEXT I:X=USR(1536)1820 DATA 104,169,46,141,0,2,169,6,141,1,2,173,48,2,141,32,6,141,35,6,173,49,2,1:}41,33,6,141,36,6,169,128,13,32,6,1411830 DATA 32,156,169,192,141,14,212,32,83,6,96,72,138,72,24,165,84,105,4,42,42,162,20,20:}5,11,212,208,251,142,24,2081840 DATA 105,2,205,11,212,16,251,173,198,2,141,24,208,104,170,104,64,169,7,160,92,162,6,76,92,22:}8,206,128,6,48,3,761850 DATA 98,228,173,243,2,201,1,208,13,169,2,141,243,2,169,12,141,128,6,76,98,228,169,1,141,243,2,76,112:},6,111855 END 1860 GOTO 18001870 END 1900 RESTORE 1900:REM ҠΛ1910 TRAP 1910:GRAPHICS 42:POKE 559,0:C=2:DATA:} 0,2,4,6,8,10,12,141920 RESTORE 1900:FOR X=705 TO 712:READ A:POKE X,(C*16)+A:NEXT X:POKE 559,34:IF R=0 THEN FOR X=1536 TO 15:}62:READ A:POKE X,A:NEXT X:GOTO 19401930 GOTO 1950:DATA 104,162,0,172,193,2,189,194,2,157,193,2,232,224,8,144,245,140,200,2,9:}6,65,65,65,65,65,651940 FOR Z=1 TO 10:FOR X=1 TO 8:COLOR X:PLOT 0+L,0+L:DRAWTO 79-L,0+L:DRAWTO 79-L,191-L:DRAWTO 0+L,191-L:D:}RAWTO 0+L,0+L:L=L+1:NEXT X:NEXT Z1950 FOR E=1 TO 31:X=USR(1536):FOR T=1 TO 22:NEXT T:NEXT E:C=C+1:R=1:GOTO 19201960 GOTO 19:}001970 END 2000 REM ˠΠԠŠԮ2010 POKE 16,112:POKE 53774,1122020 FOR W=1768 TO 1791:READ A:POKE W,A:NEXT:} W2030 X=USR(1768)2040 DATA 104,162,6,160,243,169,6,32,92,228,962050 DATA 169,112,141,14,210,169,0,141,77,0,76,95,2282055:} END 2060 ? "}DIT PROGRAMMATJE SCHAKELT DE BREAK TOETS UIT EN HET IS NIET MEER NODIG OM DE ATTRACT-MODE STEEDS OP 0"2:}061 ? "TE ZETTEN (POKE 77,0)."2062 ? :? :? "ˠРԠ"2063 IF PEEK(53279)<>6 THEN 20632064 GOTO 20002070 END 2100 :}REM ΠҮ2110 GRAPHICS 0:? :GOSUB 2120:? 2110:? 2120:? 2130:? 2140:? 2150:? "POKE 842,12:GR.0":POSITION 0,0:POK:}E 842,13:END 2120 ? " VARIABELEN TABEL.":? " ":? :? " ";:FOR Z=PEEK(130)+256*PEEK(131) TO PEEK(132)+256*PEE:}K(133)-12130 ? CHR$(PEEK(Z)-128*(PEEK(Z)>127));:IF PEEK(Z)=168 THEN ? "NN)";2140 IF PEEK(Z)>127 THEN ? :? " ";2150 NEXT Z:}:? :? "DELETE UTILITIE Y/N ";:OPEN #1,4,0,"K:":GET #1,Z:? :IF Z=89 THEN ? CHR$(125):? :? :RETURN 2155 END 2160 ? "}DIT PROG:}RAMMATJE LAAT DE VARIABELEN ZIEN VAN EEN PROGRAMMA."2161 ? "VERANDER REGEL 2110 IN 0"2162 ? "EN REGELS 2120-2150 IN 32764:}-32767"2163 ? :? :? "ˠРԠ"2164 IF PEEK(53279)<>6 THEN 21642165 GOTO 21002170 END 2200 REM ΠΠ:}қ2210 POKE 82,0:POKE 83,31:GRAPHICS 0:DS=PEEK(88)+PEEK(89)*256:DL=15492220 FOR I=1536 TO 1538:POKE I,112:NEXT I:FOR I=1 :}TO 24:POKE DL,662230 POKE DL+2,INT(DS/256):POKE DL+1,DS-256*PEEK(DL+2):DS=DS+402240 DL=DL+3:NEXT I:POKE 559,33:POKE DL+2,6:}2250 POKE DL,65:POKE DL+1,0:POKE 560,0:POKE 561,62255 END 2260 GOTO 22002270 END 2300 RESTORE 2300:REM Ҡ:}ě2310 GRAPHICS 0:POKE 709,0:DL=PEEK(560)+256*PEEK(561)+6:POKE DL-3,194:FOR X=DL TO DL+22:POKE X,130:NEXT X2320 FOR X=0 T:}O 58:READ D:POKE 1536+X,D:NEXT X:POKE 512,0:POKE 513,6:POKE 54286,192:POKE 710,102330 DATA 72,138,72,175,34,6,189,35,6,141,8:},212,141,24,208,232,142,34,6,138,24,233,23,208,5,169,0,141,34,6,1042340 DATA 170,104,64,0,26,42,58,74,90,106,122,138,154,170:},186,202,218,234,250,10,26,42,58,74,90,106,122,1382350 END 2360 GOTO 23002370 END 2400 RESTORE 2400:REM ĠҮ:}2410 DATA 104,169,21,141,8,2,169,6,141,9,2,162,6,160,103,169,6,32,92,228,96,173,9,210,205,242,2,208,5,173,241,2,2082420 DATA:} 62,173,9,210,201,159,208,10,173,255,2,73,255,141,255,2,176,45,141,242,2,138,72,173,9,210,174,143,6,236,1422430 DATA 6,240,2:}9,157,144,6,238,143,6,173,143,6,201,112,208,5,169,0,141,143,6,104,170,169,3,141,241,2,169,0,133,772440 DATA 169,48,141,43,2,:}104,64,173,252,2,201,255,208,24,174,142,6,232,224,112,208,2,162,0,236,143,6,240,9,189,1442450 FOR A=1536 TO 1679:READ B:POKE:} A,B:NEXT A:A=USR(1536):NEW :DATA 6,141,252,2,142,142,6,76,95,228,0,0,0,0,0,10,112455 END 2460 ? "}DIT IS EEN KEYBOARD BUFF:}ER. MEN KAN ALVAST EEN REGEL OF EEN COMMANDO INTYPEN TERWIJL DE COMPUTER"2461 ? "IETS AAN HET LADEN OF SAVEN IS."2462 ?:} "PAS OP! NA HET LEZEN VAN DE DATA VERWIJDERT HET PROGRAMMA ZICHZELF (NEW). NA RESET KAN DE BUFFER WEER TERUG"2463 ? "WORDEN:} GEHAALT MET 'X=USR(1536)'"2464 ? :? :? "ˠРԠ"2465 IF PEEK(53279)<>6 THEN 24652466 GOTO 24002470 END 2500 RES:}TORE 2500:REM ӠҮ2510 GRAPHICS 24:FOR L=1 TO 35:READ DA:POKE 1535+L,DA:NEXT L:GOTO 25702520 DATA 104,162,0:},165,208,24,105,40,133,208,165,209,105,00,133,209,232,160,00,177,208,73,255,145,208,2002530 DATA 196,206,208,245,228,207,208:},225,962540 SC=PEEK(88)+256*PEEK(89):SC2=SC+(Y*40+X):HI=INT(SC2/256):LO=SC2-(HI*256)2550 POKE 208,LO:POKE 209,HI:POKE 206,W:}:POKE 207,D:Z=USR(1536)2555 RETURN 2560 ? "}DIT PROGRAMMATJE KAN EEN GRAPHICS 8 SCHERM GEHEEL OF GEDEELTELIJK 'OM:}KEREN'."2561 ? "ER IS EEN DEMO BIJ."2562 ? :? :? "ˠРԠ"2563 IF PEEK(53279)<>6 THEN 25632564 GOTO 25002570 REM:} ϛ2572 COLOR 1:FOR A=0 TO 319 STEP 3:PLOT A,0:DRAWTO 319-A,191:NEXT A2574 X=INT(RND(0)*30)2576 Y=INT(RND(0)*160)2578 W:}=INT(RND(0)*(38-X))+12580 D=INT(RND(0)*(190-Y))+12582 GOSUB 25402584 GOTO 25742600 CLR :REM Ү2610 GRAPHICS 0:}:? "GEEEF BEGIN REGEL";:INPUT L:? "GEEF START ADRES";:INPUT MEMLOC:? "GEEF EIND ADRES";:INPUT MEMD2615 D=L2620 GRAPHICS 0:P:}OSITION 2,4:? D;" DATA ";:D=D+10:FOR Z=0 TO 7:? PEEK(MEMLOC);:IF Z<7 THEN ? ",";2630 MEMLOC=MEMLOC+1:NEXT Z:? :? "CONT":POSI:}TION 2,0:POKE 842,13:STOP :POKE 842,122640 IF MEMLOC>MEMD THEN ? CHR$(125):POKE 842,12:LIST L,D:? :? :? "JE DATA REGELS ZIJN:} KLAAR....":END 2650 GOTO 26202660 ? "}DIT PROGRAMMATJE MAAK VAN GEHEUGEN- LOCATIES DIE JE INGEEFT DATAREGELS."2661 ? :?:} :? "ˠРԠ"2662 IF PEEK(53279)<>6 THEN 26622663 GOTO 26002700 CLR :REM ҠԮ2710 POKE 752,1:FOR X=1 TO:} 300:NEXT X:? CHR$(125):DIM A$(4),B$(4),C$(30),A(30):A$="#`":B$="RBGY":A=PEEK(204)2720 C=PEEK(22205):FOR D=1 TO C+3:E=INT(:}4*RND(0)+1):C$(D,D)=B$(E,E):A(D)=ASC(A$(E,E)):NEXT D:FOR D=1 TO C+32730 POKE 710,A(D):FOR X=1 TO 500:NEXT X:POKE 710,0:FOR Z:}=1 TO 100:NEXT Z:NEXT D:OPEN #1,4,0,"K:":? "ENTER NOW: ";2740 FOR D=1 TO C+3:GET #1,K:? CHR$(K);:IF CHR$(K)=C$(D,D) THEN NEX:}T D:POKE 205,C+1:? CHR$(253):GOTO 27002750 POP :? "=!!":? :? " =";C$:? :? :? " SCORE=";C,"=";A:POKE :}205,0:IF C>A THEN POKE 204,C2760 ? "}DIT IS HET SPELLETJE 'VOLG DE KLEUREN'"2761 ? "GEEFT ED ,ELLOW, LUE OF REEN ALS :} HIJ ER OM VRAAGT."2762 ? :? :? "ˠРԠ"2763 IF PEEK(53279)<>6 THEN 27632764 GOTO 27002770 END OF REEN ALS 8m20 GRAPHICS 1+1630 SCR=PEEK(88)+PEEK(89)*25640 DIM UR$(30),UL$(30):GOTO 118050 K=INT(0.5+(ME-SCR-99)/40):J=0:ET=K*40+SCR+9>}9:CH=-1:E1=19951 IF RND(0)<0.5 THEN ET=ET-19:CH=1:E1=20052 IF PEEK(ME)=4 THEN GOSUB 105053 IF PEEK(ET)=4 THEN IT=IT+154 I>}F ME=SCR+460 THEN ME=ME-2056 POKE OM,0:POKE ME,M157 IF PEEK(ET)=M1 THEN 110058 IF ET} THEN ET=ET+2059 POKE OT,0:POKE ET,E160 IF IT>=(30+RD*7) THEN ? #6;CHR$(125):RD=RD+1:MT=0:OM=0:OT=0:GOTO 151061 M=STICK(0)>}:GOTO 60+M65 DY=21:GOTO 7566 DY=-19:GOTO 7567 DX=1:M1=134:GOTO 7569 DY=19:GOTO 7570 DY=-21:GOTO 7571 DX=-1:M1=133:GOTO >}7573 DY=20:POKE 77,0:GOTO 7574 DY=-20:POKE 77,075 OM=ME:ME=ME+DX+DY:DY=0:DX=080 IF ME=SCR+>}460 THEN ME=ME-2085 IF PEEK(ME)<>0 AND PEEK(ME)<>4 THEN ME=OM180 OT=ET:ET=ET+CH:J=J+1:IF J>=20 THEN 50181 IF ET>SCR+460 TH>}EN ET=ET-20185 IF ET}";" ";SC;" ";HS:IF RD=0 THEN 1000201 IF RD>0 THEN POSITION 4,10:PRINT #6;"YOU MADE IT":FOR AX=1 TO 1000:NEXT AX:GO>}TO 203203 ? #6;CHR$(125):UR$="* +":UL$="/ -"300 X=0:Y=3350 FOR T=1 TO 10360 POSITION X,Y:PRINT #6;"))))))))))))))))))))">}370 Y=Y+2:NEXT T372 X=7:Y=5:Z=7:POSITION X,Y:? #6;UR$;UL$374 FOR T=1 TO 4:X=X-2:Y=Y+2:IF X<0 THEN 390375 POSITION X,Y:? #6>};UR$:POSITION X+Z,Y:? #6;UL$380 Z=Z+4390 NEXT T:Z=Z-4:X=X+2:POSITION X,Y:? #6;UL$:POSITION X+Z,Y:? #6;UR$400 FOR T=1 TO 3:>}X=X+2:Y=Y+2:Z=Z-4410 POSITION X,Y:? #6;UL$:POSITION X+Z,Y:? #6;UR$450 NEXT T460 FOR T=1 TO 30+(RD*7)470 SP=INT(RND(1)*380>})+SCR+60480 IF PEEK(SP)=0 THEN POKE SP,4:GOTO 500490 GOTO 470500 NEXT T505 ME=SCR+249:IT=0600 FOR T=29 TO 96 STEP 2:SOUN>}D 0,T,10,15:FOR TT=0 TO 10:NEXT TT:NEXT T:SOUND 0,0,0,0610 GOTO 501000 X=9:Y=5:POSITION X,Y:? #6;"+/"1002 POSITION X-2,Y+2>}:? #6;"+))))/"1004 POSITION X-4,Y+4:? #6;"+))))))))/"1006 POSITION X-6,Y+6:? #6;"+))))))))))))/"1011 POSITION X-6,Y+8:? #6>};"-))))))))))))*"1012 POSITION X-4,Y+10:? #6;"-))))))))*"1014 POSITION X-2,Y+12:? #6;"-))))*"1016 POSITION X,Y+14:? #6;"-*>}"1018 GOSUB 1570:GOTO 5051050 IT=IT+1:SC=SC+10*(1+RD):SOUND 1,30,10,15:FOR I=1 TO 5:NEXT I:SOUND 1,0,0,01060 POSITION 1,0:>}PRINT #6;"";" ";SC:RETURN 1100 ? #6;CHR$(125):POSITION 6,12:? #6;"GOTCHA ! !":FL=11101 SOUND 0,243,10,15:FOR I=1 TO 15>}01102 NEXT I:SOUND 0,0,0,01130 RD=0:OM=0:OT=0:GOTO 15011180 POSITION 0,11:? #6;"EEN OGENBLIK A.U.B"1210 ST=(PEEK(106)-8)*>}2561220 FOR K=0 TO 511:POKE ST+K,PEEK(57344+K):NEXT K:POKE 756,ST/2561230 READ X:IF X<0 THEN 12921240 FOR I=X TO X+7:READ >}J:POKE I+ST,J:NEXT I:GOTO 12301250 DATA 40,48,18,156,120,24,40,36,34,48,24,81,58,28,24,20,36,681260 DATA 56,60,230,126,30,3>}0,30,254,124,64,60,103,126,120,120,120,127,621270 DATA 72,255,255,255,255,255,255,255,2551280 DATA 80,255,254,252,248,240,2>}24,192,128,88,1,3,7,15,31,63,127,2551290 DATA 104,255,127,63,31,15,7,3,1,120,128,192,224,240,248,252,254,255,-11292 ? #6;CH>}R$(125)1300 ? #6;" ":POKE 712,13:POKE 708,71380 POSITION 7,1:? #6;"GOTCHA"1400 POSITION 0,4:? #6;"GEBRUIK DE JOYSTIC>}K VERZAMEL ZOVEEL GELD ALS JE CAN ZONDER GEPAKT TE WORDEN"1401 POSITION 0,11:? #6;"JIJ BENT %"1402 POSITION 0,13:? #6;">}JE SPEELT TEGEN '":GOTO 15101501 ? #6;" ":POSITION 6,1:? #6;"SCORE";" ";SC:POSITION 6,3:? #6;"HIGH";" ";HS:IF SC>HS TH>}EN HS=SC:GOSUB 15501505 IF RD=0 THEN SC=01510 POSITION 2,20:? #6;" OM STARTEN":IF FL=1 THEN POSITION 6,22:? #6;" STOP">}1512 POKE 764,2551516 Z=PEEK(764):IF STRIG(0)<>0 AND Z<>47 THEN 15161518 IF Z=47 THEN POKE 764,255:GRAPHICS 0:END 1519 ? >}#6;CHR$(125)1520 POKE 712,0:POKE 708,13:FL=0:GOTO 2001550 FOR CT=9 TO 11:POSITION 1,CT:? #6;"A NEW HIGH SCORE!!":NEXT CT15>}60 FOR T=243 TO 109 STEP -2:SOUND 0,T,10,15:FOR TT=1 TO 5:NEXT TT:NEXT T:SOUND 0,0,0,0:RETURN 1570 FOR I=1 TO 30+(RD*10)158>}0 SP=INT(RND(0)*440)+SCR+201590 IF PEEK(SP)=0 THEN POKE SP,4:GOTO 16101600 GOTO 15801610 NEXT I:RETURN TO 30+(RD*10)158<k0 REM ACE NEWSLETTER 3662 VINE MAPLE, EUGENE,OR 97405 **GRUBS BY SIDNEY BROWN1 ? "}":DIM C(11),D(11),H(11),V(11),B(11),O(11)B}:POKE 710,16:POKE 709,14:POKE 752,12 ? ,:? " ǠҠՠ Ӡ":? "THE GRUBS ARE TRYING TO ESCAPE TO THE":? "SAFETY OF THE SUBWAB}YS TO MULTIPLY AND"3 ? "TAKE OVER THE EARTH.":? "IT TAKES TEN GRUBS TO MAKE A COMMUNITY";:? "SO YOU MUST TRY TO DESTROY THEMB} BEFORE";4 ? "TEN ESCAPE.":? "YOU DESTROY THEM BY DIGGING A HOLE":? "TO TRAP THEM AND THEN BURYING THEM."5 ? :? "USE JOYSTIB}CK TO CONTROL THE MAN.":? "YOU CAN CLIMB UP OR DOWN A LADDER OR":? "JUMP DOWN THROUGH A HOLE."6 ? "PRESS THE RED BUTTON TOB} DIG OR BURY.":? "IF THERE IS A HOLE HE WILL BURY IF NOT";:? "THEN HE WILL DIG."7 ? "THE GRUBS DON'T STAY TRAPPED FOR LONG":B}? "AND AN ESCAPED GRUB COSTS YOU POINTS."8 ? "WATCH OUT AS THEY CAN DESTROY YOU TOO "9 ? :POKE 53279,010 ? "PRESS BUB}TTON FOR SCORE TABLE";11 IF PEEK(53279)<>6 THEN 1119 POKE 106,PEEK(106)-220 GRAPHICS 17:POKE 712,16:POKE 708,30:POKE 709,1B}40:POKE 710,188:? #6;" G R U B S ":A=PEEK(106)*25621 ? #6:? #6:? #6;"GRUB ON TOP LEVEL 2ND LEVEL 3RDB} LEVEL 4TH LEVEL ";22 ? #6;" 5TH LEVEL 6TH LEVEL 7TH LEVEL ":? #6:? #6;" MISSING AB} TRAPPED"23 ? #6;" GRUB LOSES POINTS":? #6:? #6;" you have lives."100 FOR B=0 TO 511101 IF B>423 THEN READ D:POKE A+BB},D:NEXT B:GOTO 107106 POKE A+B,PEEK(57344+B):NEXT B107 POSITION 4,20:? #6;"PRESS start":POKE 53279,0109 IF PEEK(53279)<>6 B}THEN 109110 ? #6;"}":POKE 710,190:POKE 708,44:POKE 709,222:POKE 711,142:POKE 756,PEEK(106):POKE 712,0190 POSITION 0,0:? #6;B}"0 dead0 "194 GOSUB 900:GOSUB 910195 H=9:V=22:C=32:COLOR 249:PLOT H,V:M=1:FR=0:SC=0:KD=0:IN=7199 N=1:GOSUB 920B}:N=2:GOSUB 920:GOSUB 2000:SOUND 1,255,0,4200 ST=STICK(0):IF ST=14 AND V>1 THEN 400202 IF ST=13 AND V<23 THEN 410204 IF ST=B}11 AND H>0 THEN 420206 IF ST=7 AND H<19 THEN 430210 LOCATE H,V+1,Z:IF Z=32 THEN GOSUB 440220 IF STRIG(0)=0 THEN GOSUB 470B}230 N=N+1:IF N>2 THEN N=1231 GOSUB 600298 LOCATE H,V,Z:IF Z=32 THEN COLOR 249:PLOT H,V299 GOTO 200300 LOCATE H,V+1,Z:COLOB}R 32:PLOT H,V:IF Z119ORZ=118 THEN 302301 V=V+1:COLOR 249:PLOT H,V:GOTO 204400 LOCATE H,V-1,Z:IF Z=222 OR (Z=32 AND C=222) TB}HEN COLOR C:PLOT H,V:V=V-1:COLOR 249:PLOT H,V:C=Z402 LOCATE H,V-1,Z:IF Z=222 OR (Z=32 AND C=222) THEN COLOR C:PLOT H,V:V=V-1B}:COLOR 249:PLOT H,V:C=Z404 LOCATE H,V-1,Z:IF Z=222 OR (Z=32 AND C=222) THEN COLOR C:PLOT H,V:V=V-1:COLOR 249:PLOT H,V:C=Z40B}8 IF Z=118 OR Z=119 THEN 450409 GOTO 210410 LOCATE H,V+1,Z:IF Z=222 THEN COLOR C:PLOT H,V:V=V+1:COLOR 249:PLOT H,V:C=Z412 B}LOCATE H,V+1,Z:IF Z=222 THEN COLOR C:PLOT H,V:V=V+1:COLOR 249:PLOT H,V:C=Z414 LOCATE H,V+1,Z:IF Z=222 THEN COLOR C:PLOT H,V:B}V=V+1:COLOR 249:PLOT H,V:C=Z418 IF Z=118 OR Z=119 THEN 450419 GOTO 210420 LOCATE H-1,V,Z:IF Z=32 OR Z=222 THEN COLOR C:PLOB}T H,V:H=H-1:COLOR 248:PLOT H,V:C=Z428 IF Z=118 OR Z=119 THEN 450429 GOTO 210430 LOCATE H+1,V,Z:IF Z=32 OR Z=222 THEN COLORB} C:PLOT H,V:H=H+1:COLOR 250:PLOT H,V:C=Z438 IF Z=118 OR Z=119 THEN 450439 GOTO 210440 COLOR C:PLOT H,V:LOCATE H,V+3,Z:IF ZB}<>32 THEN 450442 V=V+3:COLOR 249:PLOT H,V:C=32:RETURN 450 M=M+1:POKE 712,14:FOR W=100 TO 0 STEP -5:SOUND 0,W,8,10:NEXT W:POB}KE 712,0451 FOR W=0 TO 100 STEP 5:SOUND 0,W,8,10:NEXT W:SOUND 0,0,0,0454 IF M>4 THEN 460455 COLOR 32:PLOT M+15,0:COLOR C:PB}LOT H,V:C=32:H=9:V=22:COLOR 250:PLOT H,V459 GOTO 200460 POSITION 5,23:? #6;"tH eN":POKE 53279,0:SOUND 1,0,0,0:GOSUB 2010B}468 IF PEEK(53279)<>6 THEN 468469 POKE 77,0:POSITION 0,0:? #6;"}":GOTO 190470 IF H<1 OR H>18 OR V>19 THEN RETURN 471 LOCATB}E H,V,Z:IF Z=249 THEN RETURN 475 FOR W=0 TO 149 STEP 20:SOUND 0,14,8,INT(W/10):NEXT W:SOUND 0,0,0,0478 IF Z=250 THEN 49047B}9 IF Z=248 THEN 480480 LOCATE H-1,V+2,Y:LOCATE H-1,V+1,Z:IF Z=32 THEN COLOR 85:PLOT H-1,V+1:RETURN 481 IF Z=85 THEN COLOR 3B}2:PLOT H-1,V+1:RETURN 482 IF (Z=118 OR Z=119) AND Y=32 THEN COLOR 85:PLOT H-1,V+1:GOTO 500483 RETURN 490 LOCATE H+1,V+2,Y:B}LOCATE H+1,V+1,Z:IF Z=32 THEN COLOR 85:PLOT H+1,V+1:RETURN 491 IF Z=85 THEN COLOR 32:PLOT H+1,V+1:RETURN 492 IF (Z=118 OR ZB}=119) AND Y=32 THEN COLOR 85:PLOT H+1,V+1:GOTO 500493 RETURN 500 FOR W=1 TO 2:LOCATE H(W),V(W),Z:IF Z<>85 THEN NEXT W502 FB}OR WW=255 TO 100 STEP -10:SOUND 0,WW,4,14:NEXT WW:KD=KD+1503 POSITION 14,0:? #6;KD;504 N=W:GOSUB 920506 SOUND 0,0,0,0:B(W)B}=0:IF V=1 THEN SC=SC+20507 IF V=4 THEN SC=SC+15508 IF V=7 THEN SC=SC+10509 IF V=10 THEN SC=SC+5510 IF V=13 THEN SC=SC+15B}17 POSITION 5,0:? #6;" ";:POKE 77,0518 POSITION 5,0:? #6;SC;" ";:IF SC<0 THEN POSITION 5,0:? #6;"_";519 RETURN 600 LOCATB}E H(N),V(N)+1,Z:IF Z=32 OR Z>220 THEN 610601 IF (Z=118 OR Z=119) AND ((V(N)-1)/3<>INT((V(N)-1)/3)) THEN RETURN 602 LOCATE HB}(N)+D(N),V(N),Z:COLOR C(N):PLOT H(N),V(N):C(N)=Z:H(N)=H(N)+D(N)603 IF (Z=118 OR Z=119) AND N=1 THEN C(1)=C(2)604 IF (Z=118 B}OR Z=119) AND N=2 THEN C(2)=C(1)605 IF D(N)=-1 THEN COLOR 118:IF H(N)<1 THEN D(N)=1606 IF D(N)=1 THEN COLOR 119:IF H(N)>18 B}THEN D(N)=-1607 PLOT H(N),V(N):IF V(N)=22 AND (H(N)=0 OR H(N)=19) THEN 640608 IF Z>230 THEN C(N)=C:GOTO 450609 RETURN 610B} IF Z=32 THEN 620612 COLOR C(N):PLOT H(N),V(N):V(N)=V(N)+1:C(N)=Z:COLOR 118:PLOT H(N),V(N)618 IF Z>230 THEN C(N)=C:GOTO 450C}619 RETURN 620 B(N)=B(N)+1:SOUND 0,14,8,B(N):IF B(N)>1 THEN 625622 COLOR C(N):PLOT H(N),V(N):V(N)=V(N)+1:IF D(N)=1 THEN COC}LOR 119:GOTO 624623 COLOR 118624 PLOT H(N),V(N):RETURN 625 IF (B(N)<14 AND KD<11) OR (B(N)<8 AND KD>10) THEN RETURN 626 CC}OLOR 85:PLOT H(N),V(N):V(N)=V(N)-1:IF D(N)=1 THEN COLOR 119:GOTO 628627 COLOR 118628 PLOT H(N),V(N):B(N)=0:SC=SC-5:POSITIONC} 5,0:? #6;SC;" ";:IF SC<0 THEN POSITION 5,0:? #6;"_";639 SOUND 0,0,0,0:RETURN 640 COLOR 32:PLOT H(N),V(N):FR=FR+1:FOR W=1 TC}O 15:SOUND 0,INT(RND(0)*100),10,10:NEXT W:SOUND 0,0,0,0:GOSUB 920645 POSITION 18,23:? #6;FR;:IF FR>9 THEN 460649 RETURN 90C}0 FOR W=2 TO 20 STEP 3:POSITION 0,W:? #6;"UUUUUUUUUUUUUUUUUUUU":NEXT W901 POSITION 0,23:? #6;"]]]]]]]]]]]]]]free0]";909 RETC}URN 910 FOR W=2 TO 20 STEP 3:X=INT(RND(0)*8)+1:POSITION X,W:? #6;"":POSITION X,W+1:? #6;"":POSITION X,W+2:? #6;""911 NEXC}T W912 FOR W=2 TO 20 STEP 3:X=INT(RND(0)*8)+10:POSITION X,W:? #6;"":POSITION X,W+1:? #6;"":POSITION X,W+2:? #6;""913 NEXC}T W919 RETURN 920 R=INT(RND(0)*4+1):ON R GOTO 921,922,923,924921 V(N)=1:GOTO 925922 V(N)=4:GOTO 925923 V(N)=7:GOTO 9259C }24 V(N)=10:GOTO 925925 IF N=1 THEN H(1)=0:C(1)=32:B(1)=0:D(1)=1926 IF N=2 THEN H(2)=19:C(2)=32:B(2)=0:D(2)=-1929 RETURN 1C }000 DATA 191,191,0,253,253,0,239,239,80,112,168,81,113,115,127,621010 DATA 10,14,21,142,138,206,254,124,48,48,16,240,16,112,C }216,81020 DATA 26,26,126,88,88,28,22,48,12,12,8,15,8,14,27,161030 DATA 0,0,0,255,0,0,0,0,0,0,0,0,255,0,0,01040 DATA 255,25C }5,255,255,255,255,255,255,129,255,129,129,129,255,129,129,0,0,0,255,255,0,0,01050 DATA 90,90,90,114,77,77,77,90,90,771100 DC }ATA 60,53,47,45,40,35,31,291200 DATA 29,31,35,40,45,47,53,60,64,72,81,91,96,108,121,128,144,162,182,193,217,2432000 RESTOREC} 1100:FOR TU=1 TO 8:READ NO:SOUND 0,NO,10,8:FOR W=1 TO 20:NEXT W:NEXT TU2009 SOUND 0,0,0,0:RETURN 2010 RESTORE 1200:FOR TU=C}1 TO 11:READ NO:SOUND 0,NO,10,8:POKE 712,NO:FOR W=1 TO 25:NEXT W2011 READ NO:SOUND 0,NO,10,8:POKE 712,NO:FOR W=1 TO 12:NEXT C}W:NEXT TU:SOUND 0,0,0,02012 FOR W=1 TO 84:NEXT W:FOR W=1 TO 3:SOUND 0,243,10,8:FOR WW=1 TO 10:NEXT WW:SOUND 0,0,0,02013 NEXC}T W2019 POKE 712,0:SOUND 0,0,0,0:RETURN :NEXT W:FOR W=1 TO 3:SOUND 0,243,10,8:FOR WW=1 TO 10:NEXT WW:SOUND 0,0,0,02013 NEX@*10 REM ŠԠנ20 GRAPHICS 030 POSITION 2,10:? "WHAT GRAPHICS MODE (9-11)";:INPUT MODE40 GPRIOR=64*(MG}ODE-8)50 RESTORE 100060 FOR I=1536 TO 1549:READ A:POKE I,A:NEXT I100 GRAPHICS 8110 POKE 623,GPRIOR120 POKE 87,MODE130 DG}L=PEEK(560)+256*PEEK(561)140 POKE DL+166,143150 POKE 512,0:POKE 513,6160 POKE 54286,192170 IF MODE=11 THEN POKE 712,8180G} IF MODE=10 THEN POKE 704,0:POKE 705,12:POKE 706,38:POKE 708,98:POKE 709,200:POKE 710,148:POKE 712,250210 FOR I=0 TO 79220 G}COLOR I230 PLOT 0,0:DRAWTO I,159240 PLOT 79,159:DRAWTO 79-I,0270 NEXT I280 ? :? "GRAPHICS MODE ";MODE;" WITH TEXT WINDOW"G}500 END 1000 DATA 72,169,0,141,10,212,141,27,208,141,26,208,104,64EXT I280 ? :? "GRAPHICS MODE ";MODE;" WITH TEXT WINDOW"DE10 CLOSE #4:CLR :RESTORE :CH=0:DART=0:HP=0:GOTO 100:REM SEE LINE 200015 ? :? :? C$:GOTO BL20 FOR A=N1 TO LEN(R$):C=ASC(R$(AK},A)):IF C=0 THEN ? ", ";:GOTO PR30 IF C<28 THEN ? B$(3*C-N2,3*C);:GOTO PR40 IF C<128 THEN ? CHR$(C);:GOTO PR50 C=C-128:IF K}C<28 THEN ? A$(N2*C+N1,N2*(C+N1));:GOTO PR60 ? CHR$(C);"e";70 NEXT A:RETURN 100 READ A,B:GRAPHICS A:FOR C=A TO B:READ A,B:K}POKE A,B:NEXT C:READ K:OPEN #K,K,B,"K:":READ A,B,C,CH,BL,PR,X110 READ N1,N2:DIM A$(A),B$(B),C$(C),R$(CH),RL(X):READ A$,B$,C$K}:GOTO BL200 GET #K,A:? "";CHR$(A):A=A-48:IF AX THEN ? "Please answer by number. ";N1;" to ";X;"?";:GOTO 200210 K}RESTORE RL(A)220 READ R$:IF R$(N1,N1)<>"*" THEN GOSUB 20:GOTO BL230 IF LEN(R$)>N2 THEN X=VAL(R$(3))240 R$=R$(N2,N2):IF R$=K}"P" THEN ? :? :? " (hit any key)";:GET #K,A:? "}";:GOTO BL250 IF R$="W" THEN FOR A=1 TO 100*X:NEXT A:? :GOTO BL260 IF RK}$="C" THEN FOR A=1 TO X:READ B:RL(A)=B:NEXT A:? :? " ?";:GOTO 200270 IF R$="G" THEN GOTO X280 IF R$="D" THEN FOR A=1 TOK } X:? :NEXT A:GOTO BL285 IF R$="R" THEN RESTORE X:GOTO BL290 ? :? :? "ERROR-":STOP 300 DART=1:CH=0:GOTO BL310 HP=1:GOTO BLK!}320 CH=CH+1:IF CH>2 THEN RESTORE 1116:GOTO BL330 RESTORE 1038:GOTO BL340 IF HP=1 THEN RESTORE 1070350 GOTO BL360 IF DARTK"}=0 THEN RESTORE 1115370 GOTO BL380 CH=CH+1:IF CH<3 THEN RESTORE 1074390 GOTO BL400 READ A,B:GRAPHICS A:FOR C=A TO B:READ K#}A,B:POKE A,B:NEXT C:READ B410 FOR A=B TO C:READ B,C,R$:POSITION B,C:? #6;R$:NEXT A:GOTO BL420 A=PEEK(560)+256*PEEK(561)+10:K$}POKE A,7:POKE A+1,6:POKE 708,68:GOTO BL990 DATA 0,5,710,42,712,42,82,1,83,38,752,1,709,0,4,56,81,80,110,220,70,8,1,2991 DATK%}A drchonor aasatarthuninitisstshoutrssaloockmmlyutomanno992 DATA andthehisingthrigh toHarry outithforortoulila. byion go oK&}fyouforill Dracoownurn993 DATA  What should Harry do?1000 DATA **ASSIGNMENT 46** A  Fnn (tm) Adntu  VictK'}1001 DATA T. Albo ATARI rs Mi Anusak,*W1, Ti: a sumr afrnn 2154  Pla: a sy a M K1002 DATA lo K(}  pu plat.,*W5,*D2, Coer  A. FnnUnid E Co (U.E.C.)ls  s ns1003 DATA i whi wcs  fctK)}  hot s d  ruby lar rSudna sign blas  coic S1004 DATA wcs .,*P, "llo ryTh ct Chf ChrosK*}Sry rrupt r vacb ju cd m 1005 DATA  R Cy P drT Cy ncircs P Stga  way a K+} Aoda Gaxyׄ esci cr1006 DATA d cau plium fr ad  P dapad srdayT'snghmari abod ip vaK,}pi  cy  ro1007 DATA y  ga. S ' vaca v  fams P Co d t rai suspicYr mi  proct  R CyK-}   P1008 DATA  StgaPaa h ady en bd   abod  lury lirQun Zira. Gd lucoer.,*P1009 DATA } It lK.}a wn  bods  git lir gs h cab dims  lts ls d  napOn halfwa fl1010 DATA s  cl  sli ail K/} i-lizd whi had bn plad h d gs crawl up h ft mQui  ons h1011 DATA s es  r adpos pti;K0} s six lglows  baT im hs softs rs dt 1012 DATA  slirs upwds ry's oO bi wd fK1}.,*G15, 1. Bru  lizdf. 2. Jump  d. 3. қ1013 DATA ma rct . 4. Putnnt cl bt. 5. T  ad K2}lt. 6. Scam ld.,*C61014 DATA 1109,1109,1015,1109,1020,10181015 DATA   frs.,*D2,*G15, 1. K lizdf wi pow. K3}2. Roll or qui. 3. ma st.,*C3,1109,1109,10191016 DATA  1. K lizdf wi pow. 2. Roll or qui. 3. ma stK4}.,*C3,1019,1019,10171017 DATA  T lizd tid wa ... bis!,*P,*R11101018 DATA  T Cu frd! ... K5}bis!,*P,*R11101019 DATA   fron.,*D2,*G15, 1. K lizdf wi pow. 2. Roll or qui. 3. ma st.,*C3,1109,1109K6},10171020 DATA  Tri-lizds ct cus.T h nsy ad lt blds  im pulls h lar  blts !,*P, T Qu1021 K7}DATA n Zirarris P  ads   R Cy Co. o co er  wi h Armad bodygud ...a l hum1022 DATA oid huK8}lk w gy m-li skS h bn ld K.R.U.E.L. (KidnappvoltUpsurp Ext  ag)1023 DATA  wrs wr rktK9} hor dt to  hl co er's . If hs w b m's montsB1024 DATA if ms  fls  dty K:}w rd h pn.,*D1,*G15, 1. Fi  dt. 2. D't fi  dt. 1025 DATA 3. Wa fi  dt public pla.,K;}*C3,1026,1027,10281026 DATA  T dt hs rct.,*G300,*R10301027 DATA   tsb us  dt.,*R10301028 DATA  UntaK<} dsn't t or oppty.,*R10301029 DATA }  explos PTi t.,*W2,*R10531030 DATA *P,  fls tap h r  ts K=}s aiful bld w d plto-mold jumpsu.,*W2,S smis  says"ț1031 DATA llo Hso",*W2, "ll llo"  srs" wh'K>}s r na?",*W2, "I'm Hi PottI wk Y w Pan'1032 DATA t ? Wd  li  ow rnd?",*W2, Mu h gt fdK?}s himlf say"S Himay so or ti." Tn 1033 DATA as  Co.,*G15, 1. C  P obrv do. 2. Try fd  K@}mi plium. 3. gamb  C1034 DATA o. 4. t k  b. 5. Go ba Hi Pott.,*C5,1035,1029,1118,1118,1037KA}1035 DATA } At  do  wes ips gh  Stga.,*D2,*G15,*D1, 1. Stay  do1036 DATA  lk  cls. 2. Explo mKB}o  cy.,*C2,1117,10291037 DATA }  cis Hi mt lpfulS happy s him sks w wd li P.,*G3101038 DKC}ATA *D2,W d go?,*D1, 1. Obrv Do. 2. Aro Pk. 3. Enrtant Cpx. 4. Load dos. 1039 DATA  5. AlKD}n Enviro-nr. 6. Fus rs. 7. Hi's Aptnt.,*C7,1040,1041,1042,1048,1043,1045,10461040 DATA *D2,  wes r KE}ips approa  caful pa gh  Stgab ss a  mi fr.,*G3201041 DATA *D2, T pk aiful r  tifici KF}sb  fds cls.,*G3201042 DATA *D2,  alnjoys plab fds   ti qui rn .,*G3201043 DATA *D2,  KG} Hi pr rlnli ms gh i gla1044 DATA wlsb  nobnm radi nyl wd dica  pn  mi pKH}lium.,*G3201045 DATA *D2, ry's wrtb icr cts radi...b 's fr  fus rs.,*G3201046 DATA } Al hviKI}nt cid h rs obctis co e h mi... wi oi r  pnt circums.1047 DATA *R11201048 DATA } ry's wrtKJ}b icr pis upradib  dos hu  carns.,*G15, 1. C a wah. 2. Ask Hi1049 DATA . 3. U  icr. KK} 4. Cl U.E.C. t. 5. Snprnd so mo.,*C5,1050,1051,1050,1056,10501050 DATA } To my wahs podsxplo.,*RKL}11171051 DATA } S  fr w pd mi srday asks Hi w  cgo fir cdS pot1052 DATA s  Mr InntKM}y Col nr excus himlf  as r.,*P1053 DATA  Us h icr locas  mi plium ctairs;b ymptyOn siduKN} radi mas hd.,*D2,*G151054 DATA  1. Cl  U.E.C.  pt wh h fnd. 2. Kp lk nd.,*C2,1056,10551055 DATKO}A *D2,  Fds Hrs ha pd. Shd kp lk? 1=YES2=NO,*C2,1117,10561056 DATA }  rs h hol rm llU.E.C.KP}  plium P. B e c cl h rm tted to spa1057 DATA voi cos or sar. It o. "llKQ}o Cer Fnn. Sry havicd  so cab fr Pb  1058 DATA c so ddso.",*W2, "Ju wh do  pl do P?" QKR}s ry.,*W2, "Qui simpCmerWi  P St1059 DATA ga s a wi Aneda w ghw ga whi ha dcod KS}K.R.U.E.L. w colll r- 1060 DATA gic sptIt w w bs Cds nu.,*P, "I Mu a  w  ma f ppts KT}  ta c1061 DATA op whi b  ta plaIima  hab 10 musir ft r rm. "Gdby Cmer.",*W21062 DATA KU}*G15, 1. Radio  lp. 2. a  rm pod. 3. T to f  pod. 4. Ba slor. 5. Wa scd.1063 DATA *C5,1064,1KV}065,1066,1067,10681064 DATA *D2, T radio lr fcts!,*R10621065 DATA *D2, A  *C*R*A*Z*Y*?!,*D2, T's noir t!,KW}*R10621066 DATA *D2, Ha r d f Hol rm?,*R10621067 DATA *D2, Th gis him 5 mo mes...,*R10621068 DATA *G3KX}40,  h frnds P sc him.,*R11101070 DATA } It's gd   ma frndsw HiS w r way h rm wn w KY}ttedS pis him up rvi t1071 DATA . Onbod  ip spds ba P mu op fr tt  bbs  mak gdhsKZ}ca,B P big pla1072 DATA w ipsrriv  pt ctus,*G360,Lui hor dt's  wk As sn dosK[} ts af1073 DATA r himB   adows aps  Armad grabs  cruvi-li grip!!!,*G3001074 DATA *G15,1. U KeK\} 5. So him 2. Bi him 6. Sp h ft. 3. C  lp. 7. T to bri him. 4. Bak fr1075 DATA  8. Pnd fat.,*C8,1076,10K]}76,1076,1076,1078,1076,1076,10761076 DATA  Suct u wn ft Armad.,*G3801077 DATA *D2,  H r  s K^}dsn't t pa  porful Armad.,*R11101078 DATA   jabs  cu's jaw H lar r fls ruby d pul  Armad flK_}s flr.,*P1080 DATA   fds l ai1081 DATA rlo w don gudsTyudy l t ow  Pir hl sysm w whK`}i h hidn  bbs.1082 DATA *G15, 1. Cl  lp. 2. Bla m w h lar. 3. Exami ir lo. 4. U mi-nu irtKa} bt1083 DATA  blow m .,*C4,1084,1085,1088,10861084 DATA *D2, It'so la  .,*R10821085 DATA } T'so myKb} mY lo.,*R11101086 DATA } T gna o porfulIt blows ct  Cy  n tsf's bbs.,*R11101088 DATA }  fdsKc} ir lo cols s  r drs pumps ir tilryo  amr ps  n ts cl U.E1089 DATA .C. ha  h n Kd}picd up wn... ** BOOM **,*P,  lks gh ir lo wdowDr had bn 1090 DATA n nvirnt su blasd hKe}o  si wl; k h gudsb ga h frd.1091 DATA *G15, 1. t nvirnt su fr him. 2. t ip fr himKf}. 3. S if  hor dt  s1092 DATA mt.,*C3,1093,1094,10961093 DATA } T mu ti lo whi  s fd su,*RKg}10951094 DATA }  wso mu ti y t ip.1095 DATA *D2,  ts away.,*R11201096 DATA }  pis up  signIt Kh}adsto cuti sui abo  coLar g h kis on  dr  fds  midd1097 DATA   rm...,*P, 's sKi}!!,*P, Sudn  lts  su fr hd.  rs   la1098 DATA bay  climbs to h priva t agrs h fKj}t  rs d  crid afr himAs's ip as  bay 1099 DATA fis r qui bursO s to  t's ablir T ip Kk}bus ngaop  ObrvDo scam 1100 DATA y s  ipnr ga  wrg gIn t ip vslo er sowKl}  fabric spa  ti.,*P1101 DATA *G400,2,6,712,42,710,42,709,0,708,34,752,1,5,3,1,PILA IS SAVED!,0,4,MISSION ACOMPLISHKm}ED!,2,71102 DATA CONGRADULATIONS!, PLAY AGAIN?,*P,*G101109 DATA } T lizd ris wi ltn spd.,*W51110 DATA *Kn}D2, HARRY'S DEAD!,*R11201115 DATA  c't fd  ti.,*R11201116 DATA *D2,  fds  h tr.,*W21117 DATA *D2,Ko}  h wdo mu ti.,*R11201118 DATA } Sms li  htn caught up  "F  Gd Tis" spir  R Cy  h lo st of h Kp}ma obcti.1120 DATA *W10,} THE MISSION IS A FAILURE!,*D5,*G420, **BOOM**,*W2, PILA HAS BEEN BLOWN TO ATOMS! 1Kq}121 DATA THE STARGATE IS LOST FOREVER!,*D5, Tryga?...1=s2=No,*C2,1122,11231122 DATA *G101123 DATA *D3, Now  fKr}s K.R.U.E.L. w iumph oppod!!,*W100002000 REM TEXT FROM 80 MICRO MAGAZINE,AUG 1982.PROGRAM COMPLETELY MY OWN.MIKE.fHz10 REM *** DISK INDEX UTILITY ***20 REM *** ATARI USER ***30 GOSUB 40040 POKE 82,0:POKE 83,39:POKE 752,150 DIM A$(40),D$(Ot}3),Q$(1),R$(40),S$(1),U$(4),X$(4):Y=18:GOTO 37060 GOSUB 480:? "REFERENCE ";:R$="":INPUT R$70 Y=15:X=LEN(R$):POSITION 20-(X/Ou}2),5:? R$80 GOSUB 480:? "DISK NO. ";:INPUT D$90 X=LEN(D$):POSITION 15-(X/2),7:? ;"DISK NO. ";D$100 GOSUB 480:? "SIDE A/B "Ov};:INPUT S$110 POSITION 17,9:? "SIDE ";S$120 GOSUB 480:? "REDO (Y)ES ";:INPUT Q$:IF Q$="Y" THEN Y=5:GOTO 60130 GOSUB 48014Ow}0 IF LEN(R$)<40 THEN R$(LEN(R$)+1,40)=" "150 IF LEN(D$)<3 THEN D$(LEN(D$)+1,3)=" "Ox}160 TRAP 500:OPEN #2,8,0,"P:":TRAP 510:OPEN #1,6,0,"D:*.*":TRAP 520165 TRAP 40000170 ? #2;" ATARI Oy}600XL DISK DIRECTORY":? #2:N=0:S=0180 ? #2;" ";R$;" DISK NO.";D$;" SIDE ";S$:? #2:? #2:GOTO 220190 N=N+1:S=S+Oz}VAL(A$(15,17))200 FOR I=3 TO 13:IF A$(I,I)=" " THEN A$(I,I)="."210 NEXT I:RETURN 220 INPUT #1,A$230 IF A$(5,8)="FREE" THEO{}N GOTO 290240 GOSUB 190250 ? #2;A$(1,10);".";A$(11,13);"(";A$(15,17);")";260 IF INT(N/3)9 AND N<100 THEN ? #2;" ";330 IF N>99 THEN ? #2;" ";O~}340 ? #2;U$;" USED SECTORS ";A$350 ? #2:? #2:? #2:? #2:? #2:CLOSE #1:CLOSE #2360 POSITION 1,12:? ;N;" FILES ";U$O};" USED / ";A$370 GOSUB 480:? " INSERT DISK AND PRESS ANY KEY"380 OPEN #3,4,0,"K:"390 GET #3,K:CLOSE #3:POSITION 0,5:Y=5O}:GOTO 60400 GRAPHICS 0:SETCOLOR 2,4,4410 DL=PEEK(560)+PEEK(561)*256420 POKE DL+3,70430 FOR A=0 TO 4:POKE DL+A+6,6:NEXT AO}440 POKE 87,2:? #6;"UTILITY program"450 POSITION 0,2:? #6;"disk index print out"460 POSITION 0,4:? #6;" BY DOUGLAS EWAN"O}470 POKE 87,0:RETURN 480 FOR I=18 TO Y STEP -1:POSITION 2,I:? " ";:NEXT I490 POSITIO}ON 2,15:RETURN 500 GOSUB 480:? " PRINTER DID NOT RESPOND":GOTO 530510 GOSUB 480:? " DISK DRIVE DID NOT RESPOND":GOO}TO 530520 GOSUB 480:? " DISK ERROR":GOTO 530530 CLOSE #1:CLOSE #2:FOR I=1 TO 1000:NEXT I:GOTO 120T RESPOND":GOLp10 REM 20 REM ҠҠέ30 REM ŠҠ40 REM S}50 REM 㾠60 REM Ġ70 REM 100 DIM M(7,18),N(6,2),A(2S}),DAG$(14),KW1$(33),KW2$(32),KW3$(35),KW4$(34),NUM$(3)105 POKE 82,0:GOSUB 380110 TRAP 110:PRINT CHR$(125);"KALENDER VOOR JAS}AR ";:INPUT Y:J=Y-1:TRAP 40000120 T=INT(365.25*J)-INT(J/100)+INT(J/400)-11696130 P=INT(7*(T/7-INT(T/7))+1.001)135 OPEN #2,S}8,0,"P:":PRINT #2;CHR$(27);"E";CHR$(14);""140 POKE 201,15:PRINT #2,"===";Y;"===":POKE 201,6142 FOR J=0 TO 2:FOR K=1 TO 6:N(S}K,J)=0:NEXT K:NEXT J150 FOR I=1 TO 7:FOR J=1 TO 18:M(I,J)=0:NEXT J:NEXT I160 FOR H=1 TO 4170 FOR N=0 TO 2:READ TEMP:A(N)S}=TEMP180 IF H=1 AND INT(Y/4)=Y/4 THEN A(1)=29190 K=6*N+1200 FOR U=1 TO A(N)210 M(P,K)=U220 P=P+1S}:IF P=8 THEN P=1:K=K+1230 NEXT U240 NEXT N250 PRINT #2;CHR$(14);""260 POKE 201,3261 IF H=1 THEN PRINT #2,KW1S}$;:GOTO 270262 IF H=2 THEN PRINT #2,KW2$;:GOTO 270263 IF H=3 THEN PRINT #2,KW3$;:GOTO 270264 IF H=4 THEN PRINT #2,KWS}4$;270 PRINT #2;"":POKE 201,6275 PRINT #2;CHR$(20):PRINT #2;""280 FOR I=1 TO 7:FOR J=0 TO 2:PRINT #2;DAG$(I*2-1,I*2)S};" ";290 FOR K=1 TO 6300 D=M(I,6*J+K):IF D THEN GOSUB 440:N(K,J)=N(K,J)+1:GOTO 310305 PRINT #2;" S} ";310 NEXT K:PRINT #2;" ";320 NEXT J:PRINT #2;""330 NEXT I:PRINT #2;""331 PRINT #2;"Wk ";332 FOR J=0S} TO 2:FOR K=1 TO 6333 IF N(K,J)=0 THEN PRINT #2;" ";:GOTO 339334 IF K=1 AND J=0 THEN 336335 IF N(K,J)11 THEN C=24-X2025 C=C+32W}030 Z=Y+(X)2035 D=INT(SQR(144-(X-12)*(X-12)))/22040 COLOR 15-C2045 PLOT Z,Y+7-D2050 DRAWTO Z,Y+7+D2055 COLOR C2060 DRAWW}TO Z,180-Y+D2065 NEXT X:NEXT Y2070 REM - Gebruik de variabelen ANT,2080 REM - A$ en C(x) niet!2090 REM 2100 RETURN DRAWTy1 ? "} CREATOR BY WILLIAM VOLK"2 REM COURTESY OF S.P.A.C.E3 REM SEACOAST PERSONAL ATARI COMPUTER ENTHUSIASTS4 REM DIT [}'MEESTERWERK' MAAKT EEN BASIC PRODRAMMA5 REM DAT OPNIEUW EEN OBJECT-FILE MAAKT OP DISK.6 REM DIT MAAKT HET MOGELIJK OM ZOND[}ER PROBLEMEN BINAIRE-PROGRAMMA VIA DE MODEM TE VERSTUREN.7 REM IN DE VORM VAN EEN 'LISTED' BASIC PROGRAMA8 REM WANNEER HET [}GEMAAKT BASIC-PROGRAMMA WORDT 'GERUNT', MAAKT HET OPNIEUW DE OBJECT-FILE!!!9 REM THE PROGRAM WILL PROMPT YOU FOR THE NAME OF[} THE OBJECT FILE, AND THE 'LISTED' PROGRAM10 DIM OBJ$(20),BDS$(20),HEX$(16),A$(8):HEX$="0123456789ABCDEF":BDS$="D: .A[}SC"20 ? :? "NAME OF OBJECT FILE, TO BE":? "TRANSFERED. I.E. 'D:MICRODOS.OBJ'":INPUT OBJ$30 ? :? "ENTER A NAME, 8 LETTERS M[}AX, FOR THE":? "SERIES OF 'LISTED' BASIC PROGRAMS,":? "TO BE CREATED,";40 ? " AND RUN IN SEQUENCE.":? :? "IN ORDER TO RE-CRE[}ATE THE OBJECT":? "FILE, YOU PREVIOUSLY SPECIFIED.":? :? 50 ? "EXAMPLE > 'MOONBASE'":INPUT A$60 OPEN #1,4,0,OBJ$70 OPR=8:[}BDS$(3,10)=A$80 ? "CREATING BASIC PROGRAM NAMED ":? BDS$90 LIST BDS$,600,999:CLOSE #2:OPEN #2,9,0,BDS$100 GOSUB 1000110 T[}RAP 500120 FOR X=1000 TO 30000 STEP 10130 ? #2;X;" DATA ";140 FOR Y=1 TO 50:GET #1,A:HI=INT(A/16):LO=A-(HI*16):LO=LO+1:HI=[}HI+1150 ? #2;HEX$(HI,HI);HEX$(LO,LO);160 NEXT Y170 ? #2180 NEXT X190 CLOSE #2200 CLOSE #1:CLOSE #2:END 500 ? #2:CLOSE [}#1:CLOSE #2:END 600 REM DIT PROGRAMMA MAAKT HET OBJECT FILE.610 DIM A$(100)620 TRAP 900630 RESTORE 640 REM OPEN THE FILE[} FOR OUT-PUT OR APPEND650 REM THIS LINE WILL BE REPLACED BY THE PROPER OPEN COMMAND660 READ A$:FOR X=1 TO 50670 A=ASC(A$(([}X*2)-1)):B=ASC(A$(X*2))680 HI=(A-48)-(A>64)*7:LO=(B-48)-(B>64)*7:BYTE=LO+HI*16690 PUT #1,BYTE:NEXT X700 GOTO 660900 CLOSE[} #1:END 1000 REM ADDS THE OPEN COMMAND TO THE BASIC PROGRAM1010 ? #2;"650 OPEN #1";:PUT #2,44:? #2,OPR;:PUT #2,44:? #2;0;:P[}UT #2,44:PUT #2,34:? #2;OBJ$;:PUT #2,34:? #21050 RETURN AM1010 ? #2;"650 OPEN #1";:PUT #2,44:? #2,OPR;:PUT #2,44:? #2;0;:PX:10 REM 20 DIM A(5,5)30 OPEN #2,4,0,"K:"40 GOTO 60099 REM 100 FOR I=0 TO 4:READ A110 FOR J=0 TO 4:A(I,J)=A:NEXT J120 NE_}XT I130 DATA 3,35,163,0,131199 REM 200 GRAPHICS 17210 ? #6;"":? #6220 ? #6;" 6 7 8 9 0":? #62_}30 FOR I=1 TO 5240 POSITION 0,3*I+2:? #6;I250 POSITION 18,3*I+2:? #6;I;260 NEXT I270 POSITION 0,20:? #6;" 6 7 8 9 0_}"280 FOR I=0 TO 4:FOR K=0 TO 2290 POSITION 2,4+3*I+K300 FOR J=0 TO 4:FOR L=0 TO 2310 ? #6;CHR$(A(I,J));320 NEXT L:NEXT J_}:NEXT K:NEXT I330 RETURN 399 REM 400 FOR I=5 TO 1 STEP -1410 A(A,I)=A(A,I-1)420 NEXT I430 A(A,0)=A(A,5)440 FOR K=0 TO _}2450 POSITION 2,4+A*3+K460 FOR J=0 TO 4:FOR L=0 TO 2470 ? #6;CHR$(A(A,J));480 NEXT L:NEXT J:NEXT K:RETURN 499 REM 500 F_}OR I=5 TO 1 STEP -1510 A(I,A)=A(I-1,A)520 NEXT I530 A(0,A)=A(5,A)540 FOR I=0 TO 4:FOR K=0 TO 2550 POSITION 2+3*A,4+I*3+K_}560 FOR L=0 TO 2:? #6;CHR$(A(I,A));:NEXT L570 NEXT K:NEXT I:RETURN 600 REM 610 LEV=30620 GOSUB 100630 FOR W=1 TO LEV64_}0 A=INT(RND(0)*5)650 ON INT(1+2*RND(0)) GOSUB 400,500660 NEXT W670 POSITION 0,23680 ? #6;" rij: ";690 POSITION 7,2370_}0 GET #2,A:? #6;CHR$(A);:A=A-48710 IF ABS(A-4.5)>=5 THEN 670720 IF A=0 THEN A=10730 IF A>5 THEN A=A-6:GOSUB 500:GOTO 6707_}40 A=A-1:GOSUB 400750 GOTO 670710 IF ABS(A-4.5)>=5 THEN 670720 IF A=0 THEN A=10730 IF A>5 THEN A=A-6:GOSUB 500:GOTO 6707\ 1 REM LABEL MAKER2 REM PAGE 6 MAGAZINE NR.17 PAG.403 REM 10 DIM A$(280),IN$(50),OUT$(400):A$=" ":A$(280)=" ":A$(2)=A$20 Xc}MAX=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$=" c}"400 ? "} ATARI's"405 ? :? " ":? " ΠҠ":? " c}"410 ? :? :? :? :? " [CTRL-H]=Hulp-menu!"420 GOSUB 1000500 GET #3,A:IF A<32 THEN GOTO 700510 IF A>124 ANc}D A<128 THEN GOTO 700520 IF A>154 AND A<160 THEN GOTO 700530 IF A>252 THEN GOTO 700540 T=X+(35*Y)+1:A$(T,T)=CHR$(A)550 ? c}CHR$(A);:X=X+1:IF X89 Tc}HEN 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*Yc}):A$(T,T)=" ":? " ";:GOTO 500940 POSITION 2,21:? " ̠Π":GOSUB 1200:IF A<>89 THEN 500950 IF Y=YMAX-1 c}THEN GOTO 970960 FOR I=Y TO YMAX-2:T=(I*35)+1:A$(T,T+34)=A$(T+35,T+69):NEXT I970 T=((YMAX-1)*35)+1:A$(T,T+34)=" c} ":GOSUB 1000:GOTO 500980 POSITION 2,21:? " ̠Π":GOSUB 1200:IF A<>89 THEN 50098c}5 IF Y=YMAX-1 THEN GOTO 995990 FOR I=YMAX-2 TO Y STEP -1:T=(I*35)+1:A$(T+35,T+69)=A$(T,T+34):NEXT I995 T=(Y*35)+1:A$(T,T+34c})=" ":GOSUB 1000:GOTO 5001000 REM 1090 POSITION 2,111100 ? "";:FOR I=1 TO XMAX:? "";:Nc}EXT I:? "";1110 FOR I=1 TO YMAX:? "|";:NEXT I:? "";1120 FOR I=1 TO XMAX:? "";:NEXT I:? ""1130 FOR I=YMAX-1 TO c}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 GOc}TO 5401200 POSITION 2,22:? " ԠՠԠʯΩ";1210 GET #3,A:IF A<>74 AND A<>78 AND A<>110 AND A<>106 AND A<>121c} AND A<>89 THEN 12101220 IF A=74 OR A=106 OR A=121 THEN A=891230 POSITION 2,21:? ""1240 POSITION 2+X,12+Y:? "";:RETURc}N 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 c}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 I1280 A$(c}T+X,T+X)=" ":GOSUB 1000:GOTO 5001300 ? "} ":? " Эՠ":? " "1310 c}? ""1320 ? "| [CTRL]+ | Heeft als gevolg: |"1330 ? "c}"1340 ? "| A,C,Z | Cursor verspringt |"1342 ? "|[DELETE] | Wist karakter |"1345 ? "|[INSERT] | Voegtc} spatie in |"1350 ? "| U () | Onderstrepen aan/uit |"1360 ? "| E () | Groot printen aan/uit |"1370 ? "c}"1380 ? "| M | Parameters veranderen |"1390 ? "| S | Save etiket c}|"1400 ? "| L | Load etiket |"1410 ? "| P | Print etiket(ten) |"1420 ? "| T | Dik printec}n |"1430 ? ""1440 ? "|[SHIFT] met [DELETE] of [INSERT] |"1450 ? "|werkt opc} hele regels in het etiket|"1460 ? "|Etiket wissen [SHIFT] + [CLEAR] |"1465 ? ""1470c} ? " ";1480 GET #3,A:GOTO 4001500 ? "} ":? " Ӡc}Π":? " "1510 ? :? :? " 1. Etiket breedte = ";XMAX1520 ? :? " 2. Etiket hoogc}te = ";YMAX1530 ? :? " 3. Regels tussen etiketten = ";LBL1540 ? :? " 4. Spaties tussen etiketten = ";SBL1550c} ? :? " 5. Etiketten horizontaal = ";LA1560 ? :? " 6. Etiketten verticaal = ";LD1580 POSITION 2,19:? " c}":? " ݠ"1590 X=0:Y=01600 GET #3,A:IF A=155 THEN GOTO 4001610 IF A<49 OR A>5c}4 THEN GOTO 16001620 POSITION 2,18:? "";1630 A=A-48:ON A GOTO 1640,1650,1660,1670,1680,16901640 ? " c}":T=34:B=5:GOSUB 1800:XMAX=A:GOTO 15001650 ? " 堿":T=8:B=3:GOSUB 1800:YMAX=A:GOTO 15001660 ? " c}젿":T=9:B=1:GOSUB 1800:LBL=A:GOTO 15001670 ? " 젿":T=15:B=1:GOSUB 1800:SBL=A:GOTO 1500c}1680 ? " 젿":T=3:B=1:GOSUB 1800:LA=A:GOTO 15001690 ? " 젿":T=100:B=c}1:GOSUB 1800:LD=A:GOTO 15001800 POSITION 2,21:TRAP 1830:IN$="":INPUT IN$1804 IF IN$="" THEN POP :GOTO 15001806 A=INT(VAL(Ic}N$))1810 IF AT THEN POSITION 2,20:? "Foute invoer - Probeer opnieuw":GOTO 18001820 TRAP 40000:RETURN 1830 Pc}OSITION 2,20:? "Foute invoer - Probeer opnieuw":GOTO 18002000 B=0:U=1:E=0:REM PRINT ROUTINE2010 TRAP 23502020 POSITc}ION 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)):c}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 OFF2220 c}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:GOTc}O 2255:REM ENLARGE ON2240 IN$(LEN(IN$)+1)="":XP=XP-1:GOTO 2255:REM ENLARGE OFF2250 IN$(LEN(IN$)+1)=CHR$(A)2255 XP=XP+1+E:c}IF XP1 THEN OUT$=""2262 Oc}UT$(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(OUT$)+1c})=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:" Ac}ND IN$(1,3)<>"D2:" AND IN$(1,2)<>"C:" THEN OUT$=IN$:IN$="D:":IN$(3)=OUT$3040 TRAP 40000:RETURN 3100 ? "} c}":? " ŠԠ":? " "3110 ? "Een file met dezelfde naam wordt c} gewist !!!"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 ? #4c};LBL:? #4;SBL:? #4;LA:? #4;LD:CLOSE #4:GOTO 4003200 ? "} ":? " ĠԠ":? " c}"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,c}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 400003310c} ? "} ":? " !!!!! ˠԠ !!!!!":? " "3320 ? :? :? " Check uc}w disk-drive en disk."3330 ? :? :? :? "Fout nummer ";PEEK(195):? :? "File ";IN$3340 ? :? :? :? " c}";:GET #3,A:GOTO 4000 ? :? :? :? "Fout nummer ";PEEK(195):? :? "File ";IN$3340 ? :? :? :? " ` @@@@@@@@25308 DATA ## # # ##25309 DATA #%  # #  %#25310 DATA @@@@@@@@@ @@@@@@@@@25311 DATA # # S} ###25312 DATA # %  %##25313 DATA @@@@@ @@@@@@@@@@@@@@25314 DATA ## #25315 DATA #%S}  #25316 DATA @@@@@ #25317 DATA # # #25318 DATA # % #25319 DATAS} @@@@@@@@@@@@@@@@@@@@25320 DATA END25400 DATA # #25401 DATA @@@@@ #25402 DATA ## S}  #25403 DATA #% @@ @@@@ @@@@ #25404 DATA @@@@ #25405 DATA # #  #25406 DATA # % @@@ S} @@@ @@@25407 DATA @@@@ #25408 DATA ##   #25409 DATA #% @ @@ @@@@@ #25410 DATA @@@@ S} #25411 DATA # #   #25412 DATA # % @@ @@ @@@@25413 DATA @@@@ #25414 DATA ## S}   #25415 DATA #% @@ @@@@ @@@ #25416 DATA @@@@ #25417 DATA # # #25418 DATA #P}