@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u1 REM TOPONED8 POKE 752,1:POKE 82,1:POKE 83,39:POKE 710,0:POKE 709,1510 DIM L$(1833),P$(20),L(96,2),LK$(126),EE$(3)20 L$(1T},39)=""21 L$(40,78)="| |"22 L$(79,117)="|HOME: U}  |"23 L$(118,156)="|     |"24 L$(157,195)="| V}  |"25 L$(196,234)="|    |"26 L$(235,273)="|  W}  |"27 L$(274,312)="|   |"28 L$(313,351)="|   |"X}29 L$(352,390)="|    |"30 L$(391,429)="|   |"31 L$(430,4Y}68)="|     |"32 L$(469,507)="|    |"33 L$(508,546)="| Z}  |"34 L$(547,585)="|   |"35 L$(586,624)="|  [}    |"36 L$(625,663)="|    |"37 L$(664,702)="|   \} |"38 L$(703,741)="|     |"39 L$(742,780)="|    |]}"40 L$(781,819)="|    |"41 L$(820,858)="|   |"42 L$(859^},897)="|      |"43 L$(898,936)="|  |"44 L$(937,975)="| _}   |"45 L$(976,1014)="|  |"46 L$(1015,1053)="| `}  |"47 L$(1054,1092)="|   |"48 L$(1093,1131)="|  a}  |"49 L$(1132,1170)="|     |"50 L$(1171,1209)="|  b}  |"51 L$(1210,1248)="|    |"52 L$(1249,1287)="|    c} |"53 L$(1288,1326)="|   |"54 L$(1327,1365)="|       |"d}55 L$(1366,1404)="|    |"56 L$(1405,1443)="    |"57 L$(e}1444,1482)="    |"58 L$(1483,1521)="|   |"59 L$(1522,15f}60)="|  |"60 L$(1561,1599)="|  |"61 L$(1600,1638)="| g} |"62 L$(1639,1677)="| |"63 L$(1678,1716)="| h}   |"64 L$(1717,1755)="| |"65 L$(1756,1794)="| i}  |"66 L$(1795,1833)=""500 ? "}":POKE 710,0:POKE 709,0:POKE 7j}52,1501 ? " "502 ? "   "503 ? "   k}"504 ? "  "505 ? " "506 ? " "507 POSITIOl}N 12,15:? "WRITTEN BY SPOELIE":POSITION 17,17:? "MCMLXXXV"508 POKE 709,15600 RESTORE 700610 FOR T=1 TO 48620 READ A,B,C6m}30 SOUND 0,A,14,10:SOUND 1,B,10,8640 FOR D=1 TO 25:NEXT D650 SOUND 1,C,10,8:FOR D=1 TO 15:NEXT D660 SOUND 0,0,0,0:NEXT T6n}70 SOUND 0,193,10,7:SOUND 1,96,10,7:SOUND 2,76,10,7:SOUND 3,53,10,7675 FOR D=1 TO 80:NEXT D:SOUND 0,0,0,0:SOUND 1,0,0,0:SOUNo}D 2,0,0,0:SOUND 3,0,0,0680 FOR T=1 TO 250:NEXT T700 DATA 193,0,81,193,76,64,193,64,64,193,64,64,144,0,60,144,57,47,144,47,4p}7,144,47,47701 DATA 193,0,81,193,76,64,193,64,81,193,76,108,193,108,108,193,108,108,173,108,108,153,108,108702 DATA 144,0,6q}0,144,57,47,144,47,47,144,47,47,144,0,60,144,57,40,144,40,40,144,40,40703 DATA 193,0,81,193,76,64,193,64,81,193,76,108,193,1r}08,108,193,108,108,193,108,108,193,108,108704 DATA 128,0,50,128,47,50,128,50,50,136,50,50,144,0,57,144,53,57,144,57,57,162,5s}7,153705 DATA 193,0,81,193,76,64,193,64,81,193,76,108,193,108,108,193,108,108,128,108,108706 DATA 128,108,1081000 ? "}":POt}SITION 3,3:? "TOPONED, een spel om de topografie"1001 POSITION 2,4:? "van Nederland spelenderwijs te leren"1002 POSITION 2,u}8:? "druk op voor de moeilijkheid."1003 POSITION 3,12:? "druk op voor meer plaatsen."1004 POSITION 7,16:? "drv}uk op of VUURKNOP":POSITION 12,17:? "om te beginnen."1005 POSITION 6,19:? "druk op voor speluitleg.":POKE 709,15w}1008 A=1:BB=11009 POSITION 20,14:? BB:POSITION 20,10:? A:L=A1010 IF PEEK(53279)=3 THEN A=A+1:IF A=6 THEN A=11011 IF PEEK(5x}3279)=6 OR STRIG(0)=0 THEN 12001012 IF PEEK(53279)=5 THEN BB=BB+1:IF BB=4 THEN BB=11013 IF PEEK(732)=17 THEN 100001014 FORy} T=1 TO 10:NEXT T:GOTO 10091100 DATA Dokkum,26,5,Harlingen,21,7,Franeker,22,7,Leeuwarden,24,7,1101 DATA Drachten,27,9,Bolswz}ard,21,9,Sneek,23,9,Heereveen,25,101102 DATA Wolvega,26,11,Appingedam,34,5,Delfzijl,34,5,Groningen,31,61103 DATA Haren,32,7{},Hoogezand-Sappemeer,33,7,Winschoten,35,7,Veendam,34,81104 DATA Stadskanaal,34,9,Assen,31,10,Emmen,35,13,Klazinaveen,35,141|}105 DATA Coevorden,33,15,Hoogeveen,31,14,Meppel,29,15,Steenwijk,27,131106 DATA Emmeloord,24,14,Kampen,25,17,Zwolle,27,17,Nij}}verdal,31,201107 DATA Almelo,33,20,Oldenzaal,35,20,Rijssen,31,21,Borne,34,211108 DATA Hengelo,34,21,Enschede,35,22,Haaksber~}gen,34,23,Goor,32,221109 DATA Deventer,29,21,Den Helder,14,11,Bergen,13,15,Heerhugowaard,14,151110 DATA Hoorn,17,15,Enkhuiz}en,18,15,Alkmaar,14,16,Heiloo,14,161111 DATA Castricum,14,17,Heemskerk,14,17,Beverwijk,13,18,Velzen,13,181112 DATA IJmuiden},13,18,Krommenie,14,18,Wormerveer,14,18,Zaandijk,14,181113 DATA Zaandam,15,19,Purmerend,16,18,Edam-Volendam,16,19,Amsterdam,}16,201114 DATA Zwanenburg,15,20,Haarlem,13,20,Bloemendaal,13,19,Zandvoort,12,201115 DATA Heemstede,13,20,Amstelveen,16,21,U}ithoorn,15,21,Diemen,17,211116 DATA Bijlmermeer,17,21,Weesp,17,21,Badhoevedorp,15,21,Naarden,18,211117 DATA Bussum,18,21,Hu}izen,18,21,Laren,18,21,Hilversum,18,221118 DATA Spakenburg,20,22,Baarn,19,22,Soest,19,23,Amersfoort,20,231119 DATA Bilthove}n,19,24,de Bilt,19,24,Utrecht,18,24,Zeist,19,241120 DATA Driebergen,19,25,Nieuwegein,18,25,Veenendaal,22,25,Rhenen,22,26112}1 DATA Hattem,27,18,Nunspeet,24,20,Epe,26,20,Harderwijk,23,211122 DATA Ermelo,23,21,Putten,23,22,Nijkerk,21,22,Barneveld,22,}231123 DATA Apeldoorn,26,22,Zutphen,28,23,Dieren,28,24,Ede,25,251124 DATA Bennekom,25,25,Wageningen,25,26,Renkum,25,26,Oost}erbeek,26,261125 DATA Arnhem,26,26,Velp,27,26,Rheden,27,26,Doesburg,28,251126 DATA Doetinchem,30,26,Aalten,32,27,Winterswij}k,33,26,Zevenaar,28,271127 DATA Elst,25,27,Tiel,21,27,Culemborg,19,27,Wijchen,24,281128 DATA Nijmegen,25,28,Hillegom,12,21,}Lisse,12,22,Sassenheim,12,221129 DATA Noordwijkerhout,11,22,Noordwijk,11,22,Katwijk aan Zee,11,23,Oegstgeest,12,231130 DATA} Leiden,12,24,Leiderdorp,13,24,Alphen a/d Rijn,13,25,Wassenaar,10,241131 DATA Voorschoten,10,25,Boskoop,13,26,Bodegraven,14,}26,Woerden,15,251132 DATA Scheveningen,9,25,den Haag,10,25,Leidsendam,10,25,Voorburg,10,251133 DATA Zoetermeer,11,25,Waddin}xveen,13,26,Gouda,13,26,'s-Gravenzande,8,261134 DATA Naaldwijk,8,26,Delft,10,27,Pijnacker,11,27,Rodenrijs-Berkel,11,271135 }DATA Maassluis,10,28,Rozenburg,10,28,Vlaardingen,11,28,Schiedam,11,281136 DATA Rotterdam,12,28,Capelle a/d IJssel,13,28,Krim}pen a/d IJssel,13,281137 DATA Spijkernisse,11,29,Hoogvliet,11,29,Barendrecht,12,29,Slikkerveer,13,291138 DATA Ridderkerk,13},29,Alblasserdam,13,29,Hendrik-Ido-Ambacht,13,29,Zwijndrecht,13,291139 DATA Papendrecht,13,29,Dordrecht,13,29,Sliedrecht,14,}29,Gorinchem,15,291140 DATA Vlissingen,3,34,Middelburg,3,34,Goes,5,34,Terneuzen,4,371141 DATA Bergen op Zoom,10,34,Roosenda}al,11,34,Etten-Leur,13,33,Breda,15,321142 DATA Oosterhout,16,31,Dongen,16,31,Rijen,16,32,Tilburg,18,331143 DATA Waalwijk,18},31,Drunen,19,31,Kaatsheuvel,18,31,Oisterwijk,19,331144 DATA Boxtel,20,33,Vught,20,32,den Bosch,20,31,Schijndel,21,321145 D}ATA Eindhoven,21,34,Veldhoven,21,34,Geldrop,22,34,Valkenswaard,21,351146 DATA Son en Breugel,21,33,Veghel,22,32,Uden,23,31,O}ss,23,301147 DATA Grave,24,30,Cuijk,25,30,Gemert,23,34,Helmond,23,341148 DATA Deurne,25,34,Venray,26,33,Venlo,28,35,Tegelen},28,351149 DATA Weert,24,37,Roermond,26,38,Sittard,25,42,Geleen,25,421150 DATA Lindenheuvel,25,42,Stein,25,42,Brunssum,26,4}3,Hoensbroek,26,431143 DATA Heerlerheide,26,43,Nieuwenhagen,27,43,Heerlen,26,43,Schaesberg,27,441151 DATA Heerlerheide,26,4}3,Nieuwenhagen,27,43,Heerlen,26,43,Schaesberg,27,441152 DATA Kerkrade,27,43,Spekholzerheide,27,44,Maastricht,24,44,Almere,19},201153 DATA Lelystad,21,18,Heiloo,14,16,Heiloo,14,16,Heiloo,14,161154 DATA Makkum,20,10,Stavoren,20,12,Hindeloopen,20,11,J}oure,24,101155 DATA Holwerd,25,4,Roodeschool,33,3,Nieuwe Pekela,35,8,Oude Pekela,35,81156 DATA Ter Apel,36,11,Paterswolde,3}1,8,Beilen,31,12,Schonebeek,34,151157 DATA Urk,22,15,Staphorst,28,15,Dedemsvaart,30,16,Hardenberg,32,161158 DATA Heino,29,1}9,Raalte,29,19,Holten,31,21,Vriezenveen,33,191159 DATA Denekamp,36,19,Wierden,32,20,Stad Delden,33,21,den Burg,15,91160 DAT}A Schagen,15,13,Medemblik,17,14,Monnickendam,16,19,Uitgeest,14,171161 DATA Assendelft,14,17,Aerdenhout,13,21,Overveen,13,20,}Hoofddorp,14,211162 DATA Nieuw Vennip,14,21,Aalsmeer,15,21,Blaricum,18,21,Breukelen,17,231163 DATA Maarssen,17,24,den Dolde}r,19,23,Soesterberg,19,23,Bunnik,19,241164 DATA Doorn,20,25,Wijk bij Duurstede,20,26,'t Harde,25,19,Eerbeek,27,231165 DATA }Lochem,31,23,Groenlo,33,25,Geldermalsen,19,28,Beek(Ge),25,281166 DATA Monster,8,26,Hardingxveld-Giessendam,14,29,Oudekerk a/}d IJssel,13,28,Brielle,9,281167 DATA Hoek van Holland,8,26,Portugaal,11,29,Zierikzee,6,31,Bruinisse,7,311168 DATA Hulst,7,3}8,Breskens,2,37,Woensdrecht,10,36,Oudenbosch,12,341169 DATA Boxmeer,25,31,Bergeyk,20,37,Beek(Li),25,44,Heer,24,451170 DATA }Eijsden,24,46,Valkenburg,25,45,Simpelveld,26,45,Schin op Geul,25,451171 DATA Cadier en Keer,25,45,Margraten,25,45,Vaals,27,4}5,Dronten,22,181172 DATA de Lemmer,23,12,Oosterwolde,28,10,Bergum,25,7,Bedum,32,51173 DATA Hoogkerk,30,6,Leek,29,7,Nieuwe S}chans,37,7,Roden,30,71174 DATA Dwingelo,29,12,Emmer-Compascuum,36,12,Veenoord,34,14,IJsselmuiden,25,171175 DATA Ommen,30,17},Ootmarsum,35,19,Haarle,31,20,Losser,35,211176 DATA Markelo,32,22,Slagharen,32,16,Middenmeer,16,13,Egmond,13,151177 DATA Lu}tjebroek,18,15,Oostzaan,16,19,Landsmeer,16,19,Ouderkerk,16,211178 DATA Abcoude,16,22,Vleuten,17,24,de Meern,17,24,IJsselstei}n,18,251179 DATA Houten,19,25,Woudenberg,20,24,Elburg,24,19,Brummen,27,241180 DATA Borculo,31,24,Eibergen,32,24,Didam,28,27},Berg en Dal,26,281181 DATA Terborg,30,26,Voorhout,11,23,Roelofarendsveen,13,23,Schoonhoven,14,271182 DATA Kinderdijk,13,28},Rhoon,11,29,Goedereede,6,29,Maasland,10,271183 DATA West Kapelle,1,35,Arnemuiden,3,35,Axel,5,35,Yerseke,7,351184 DATA Slui}s,1,37,Halsteren,9,34,Steenbergen,10,34,Baarle Nassau,16,351185 DATA Rosmalen,20,31,Heesch,22,31,Oirschot,20,34,Heeze,22,36}1186 DATA Someren,23,36,Asten,23,36,Reusel,19,37,Gennep,36,301187 DATA Horst,27,35,Reuver,27,37,Swalmen,27,38,Echt,26,41118}8 DATA Susteren,26,41,Esloo,25,43,Meerssen,25,44,Schinveld,27,431189 DATA Gulpen,26,45,Middelharnis,8,30,Bartlehiem,24,6,St.} Michielsgestel,20,321190 DATA Heiloo,14,16,Heiloo,14,16,Heiloo,14,16,Heiloo,14,161191 DATA LOPIK,18,23,IJSELSTEIN,18,24,NI}EUWEGEIN,18,25,LOPIK,18,231200 ? "}":POSITION 0,0:? "";1201 POSITION 0,1:? "|MCMLXXX}V || HC SPOELIEPROD|";1202 POSITION 0,2:? "|  |";1203 POSITION 0,3:? "|SCORE:} TIJD: LEVEL:";L;" |";1204 POSITION 0,4:? "| NAAR: |";1205 POSITION 0,5:? "}"1206 Q=6:FOR T=1 TO 663 STEP 391207 POSITION 0,Q:? L$(T,T+38)1208 Q=Q+1:NEXT T1209 }EX=01210 BEGIN=INT(PEEK(19)*5+PEEK(20)/50)1220 IF BB=1 THEN RPB=54:RPE=11001221 IF BB=2 THEN RPB=72:RPE=11001222 IF BB=3 }THEN RPB=36:RPE=11541300 SC=0:T1=180:LE=6-L:XC=3:YC=9:YK=6:H1=-38:H2=664:XO=3:YO=91380 R=INT(RND(0)*4)+1:S=INT(RND(0)*RPB)+}RPE:RESTORE S:FOR T=0 TO R:READ P$,XP,YP:NEXT T1390 POSITION 13,4:? " ":POSITION 13,4:? P$1400 POSITION }7,3:? SC2000 IF STRIG(0)=0 THEN 39002001 ON STICK(0)-4 GOSUB 2100,2100,3100,2100,2100,2100,3200,2100,3400,3300,21002005 PO}KE 77,02010 POKE 40000+XO+40*YO,C12020 XO=XC:YO=YC:C1=PEEK(40000+XO+40*YO)2030 POSITION XC,YC:? "";2035 SOUND 0,1,4,15:S}OUND 0,0,0,02040 GOTO 22002100 POP 2200 YPK=YP-YK+122201 IF PEEK(53279)=6 THEN 12002205 TIJD=INT(5*PEEK(19)+PEEK(20)/50-}BEGIN):POSITION 19,3:? TIJD2206 IF TIJD=180 THEN 49502210 IF YPK>6 AND YPK<22 THEN 22402220 GOTO 20002240 POSITION XP,YPK}:? L$(39*YP+XP+1,39*YP+XP+2);:POSITION XC,YC:? "";2250 IF XCXP+LE OR YCYPK+LE THEN 24002300 POS}ITION XP,YPK:? "";2400 GOTO 20003100 IF XC=37 THEN RETURN 3110 XC=XC+1:RETURN 3200 IF XC=1 THEN RETURN 3210 XC=XC-1:RET}URN 3300 IF YC=10 AND YK<>6 THEN GOSUB 4000:YO=YO+1:YC=YC+13310 IF YC>7 THEN YC=YC-13320 RETURN 3400 IF YC=18 AND YK<>36 }THEN GOSUB 4100:YO=YO-1:YC=YC-13410 IF YC<21 THEN YC=YC+13420 RETURN 3900 IF PEEK(40000+XC+40*YC)=84 THEN SC=SC+1:POSITION} XC,YC:? L$(YP*39+XP+1,YP*39+XP+1);:GOTO 39103905 GOTO 20003910 FOR G=15 TO 0 STEP -0.75:SOUND 0,1,4,G:NEXT G3920 C1=PEEK(}40000+XC+40*YC):GOTO 13804000 POSITION 0,6:? "":POSITION 0,6:? L$(H1,H1+38);:H1=H1-39:H2=H2-39:YK=YK-1:RETURN 4100 POSITIO}N 0,6:? "":POSITION 0,22:? L$(H2,H2+38);:H2=H2+39:H1=H1+39:YK=YK+1:RETURN 4950 GOTO 60005000 POSITION 10,10:? "}"5001 POSITION 10,11:? "| |"5002 POSITION 10,12:? "| GAME OVER |"5003 POSITION 10,13:? "| } |"5004 POSITION 10,14:? ""5005 E=10:RESTORE 5010:FOR T=1 TO 22:READ A,B,C:SOUND 0,A,10,10:}SOUND 1,B,10,10:SOUND 2,C,10,10:FOR F=1 TO E5006 NEXT F:E=E+0.5:NEXT T5010 DATA 72,53,42,76,57,45,81,60,47,85,64,50,91,68,5}3,96,72,57,102,76,60,108,81,64,114,85,68,121,91,725011 DATA 121,96,76,128,96,81,136,102,85,144,108,91,153,114,96,162,121,102},173,128,108,182,136,114,113,144,1215012 DATA 193,144,121,193,144,121,0,0,05020 FOR W=1 TO 500:NEXT W:FOR T=15 TO 0 STEP -1}:POKE 709,T:FOR W=1 TO 10:NEXT W:NEXT T5021 POP :GOTO 10006000 IF SC-EX>29 THEN GOSUB 6400:GOTO 70006010 ON INT((SC-EX)/5)}+1 GOSUB 5000,5000,6100,6200,6300,64006020 GOTO 70006100 EE$=" 60":BEGIN=BEGIN+60:RETURN 6200 EE$=" 90":BEGIN=BEGIN+90:RET}URN 6300 EE$="150":BEGIN=BEGIN+150:RETURN 6400 EE$="180":BEGIN=BEGIN+180:RETURN 7000 LK$="}U krijgt seconden extra tijd."7001 LK$(73,112)=""7010 LK$(49,51)=EE$:POKE} 752,17020 FOR F=1 TO 37:POSITION 0,5:? LK$(F,F+38);:SOUND 0,72,10,8:SOUND 0,0,0,0:NEXT F7030 FOR T=1 TO 3:POSITION 0,5:? "} ";:FOR F=1 TO 30:NEXT F:SOUND 0,72,10,87040 POSITION 0,5:? LK$(37,75);:FOR F=1 TO 30:}NEXT F:SOUND 0,0,0,0:NEXT T7050 FOR F=40 TO 73:POSITION 0,5:? LK$(F,F+38);:SOUND 0,72,10,8:SOUND 0,0,0,0:NEXT F7500 BEGIN=B}EGIN+EE+8:POSITION 19,3:? " ":EX=SC:GOTO 140010000 POKE 732,0:? "}"10010 ? " SPELUITLEG TOPONED"10020 ? "Als U} op drukt, komt het speel- veld in beeld. Als U dan met de joy-"10030 ? "stick beweegt, ziet U onder het woord HOME:} een kruisje. Dit is de cursor."10040 ? "Op het controlescherm ziet U de plaats waar U naartoe moet vliegen. Dit doet"10050} ? "U. Als U in de buurt bent licht hij op.Ga dan met de cursor op de plaats"10060 ? "staan en druk dan op de vuurknop. Als } het goed is hoort U dan een toon."10070 ? "Op het controlescherm verschijnt dan een nieuwe plaats etc. etc."10080 ? "Voo}r de rest spreekt het spel voor zich Veel plezier toegewenst."10090 ? " druk op om terug te gaan";10100 IF} PEEK(732)<>17 THEN 1010010110 POKE 732,0:GOTO 1000er toegewenst."10090 ? " druk op om terug te gaan";10100 IF55 REM * AMJ VD SCHANS JAN 86 *10 GRAPHICS 0:A=710:B=15:E=20:P=195:K=128:D=752:POKE 16,64:OPEN #1,4,O,"K:"15 DIM A$(20),B$(2 }0),D$(50),F$(20),H$(7):D$="D:":H$="File- ":POKE A,K:POKE L,10:POKE D,1:POKE 82,1:POKE 65,020 POKE 712,130:? "}Ӡ }ʠԠé"25 ? "":? "DIRECTORY ?":? "":? "RENAME ":? "":? "ERASE ADOS":? ""30 } ? "BASIC LOAD":? "":? "* PROTECT -":? "":? "":FOR Z=1 TO 18:POSITION Z,13:? " "35 POSITION Z,18:? " ":NEX }T Z:FOR X=13 TO 17:POSITION 1,X:? "":NEXT X:FOR X=19 TO 38:POSITION X,18:? " ":NEXT X36 GOTO 60038 GET #1,C:IF C=32 AND S= }1 THEN 61039 CLOSE #2:S=0:IF C=69 THEN POKE A,50:GOTO 10040 IF C=70 THEN POKE A,50:GOTO 50041 IF C=66 OR C=27 THEN 99042 }IF C=82 THEN 20043 IF C=85 THEN 30044 IF C=80 THEN 40045 IF C=68 THEN 60046 IF C=65 THEN 70047 IF C=76 THEN 80048 IF C= }88 THEN 90049 GOTO 3850 POKE A,K:POSITION 2,B:? " -*ՠ*- ":POSITION 1,E:? " }"51 TRAP 55:GOTO 3855 POSITION 3,B:? CHR$(253);" Error ";PEEK(P);" ":FOR O=1 TO 400:NEXT O:GOTO 5070 LA=LEN(A$):IF LA }=0 THEN 7875 IF A$(LA)="=" THEN A$(LA)="*.*"78 IF A$="" THEN POP :GOTO 5080 RETURN 100 POSITION 4,B:? " -*Š*- "110 } POSITION 1,E:? H$;:INPUT A$:GOSUB 70:POSITION 1,E115 IF A$="*.*" THEN ? " ʯΠ":GOTO 125120 ? A$;" } >Wissen ʯΠ"125 D$(3)=A$:? CHR$(253):GET #1,C:IF C<>74 THEN 50150 XIO 33,#2,0,0,D$:GOTO 600200 POSITION 4,B:? "-* }Š*-"210 POSITION 1,E:? H$(1,6);:INPUT A$:GOSUB 78:D$(3)=A$:A$=D$220 POSITION 1,E:? D$;" >> ";:INPUT B$:? :F$="D: ":F$(3)=B }$230 D$(LEN(D$)+1)=",":D$(LEN(D$)+1)=B$250 TRAP 260:XIO 32,#2,0,0,D$:GOTO 600260 IF PEEK(P)<>167 THEN 55270 TRAP 55:XIO 3 }6,#2,0,0,A$280 XIO 32,#2,0,0,D$290 XIO 35,#2,0,0,F$:GOTO 600300 POSITION 3,B:? "-*Ԡ*-"310 POSITION 1,E:? H$;:IN }PUT A$:GOSUB 70:D$(3)=A$320 POSITION 1,E:? D$;" >Openen!"350 XIO 36,#2,0,0,D$:GOTO 600400 POSITION 4,B:? "-*Ԡ*-" }410 POSITION 1,E:? H$;:INPUT A$:GOSUB 70:D$(3)=A$420 POSITION 1,E:? D$;" >Sluiten!"450 XIO 35,#2,0,0,D$:GOTO 600500 POSIT }ION 2,B:? "-*Π*-"510 POSITION 1,E:? "Ơ start Π";CHR$(253)520 GET #1,C:IF C<>6 THEN 50530 PO }SITION 1,E:? "Disk wordt geFORMATTEERD..."550 XIO 254,#2,0,0,"D:":GOTO 50600 POSITION 3,B:? "-*٠*-":OPEN #2,6,0," }D:*.*":S=0610 FOR U=2 TO 17:POSITION E,U:? " ---------------":NEXT U620 FOR N=2 TO 16630 INPUT #2;F$:IF F$(5,9)="FREE " } THEN POSITION E,17:? " ";F$(1,16);"":S=0:GOTO 50650 POSITION E,N:? "";F$;"":NEXT N680 POSITION E,17:? " }렠":S=1:GOTO 50700 POSITION 5,B:? "-*Ӡ*-"710 POSITION 1,E:? " schrijft ADOS-file"720 GET #1,C:IF C=65 THEN F$=" }D:ADOS":SAVE F$:GOTO 290725 GOTO 50800 POSITION 5,B:? "-*Ġ*-"810 POSITION 1,E:? H$;:INPUT A$:GOSUB 70:D$(3)=A$:POSITI }ON 1,E:? "RUN >";D$850 RUN D$900 POSITION 4,B:? "-*Π*-":TRAP 950:LPRINT 910 OPEN #2,6,0,"D:*.*"920 TRAP 50:INPUT }#2;F$:POSITION 1,E930 ? F$:LPRINT F$:GOTO 920950 POSITION 1,E:? "Maak printer wakker...":GOTO 55990 POKE 16,192:POKE 82,2: }? "}NEW"995 IF C=27 THEN ? "}DOS"999 ? CHR$(253):CLR :POKE 752,0:POSITION 2,0:END ":GOTO 55990 POKE 16,192:POKE 82,2: Y1 REM ANIMAL IS A PROGRAM THAT BUILD HIS OWN INTELLIGENCE BY ASKING QUESTIONS.2 REM ANSWER QUESTIONS WITH Y OR N3 REM ANSWE}RS CLOSED BY A QUESTIONMARK (?)4 REM SAVE DATA BY CTRL-S5 REM LOAD DATA BY CTRL-L10 REM ANIMAL20 REM BY RANDY DEARDORFF3}0 REM 1985, ANTIC PUBLISHING40 BRK=1:IF PEEK(53279)=5 THEN BRK=050 DPL=PEEK(10592):POKE 10592,255100 GOTO 860110 ? :? "Th}ink of an animal. I will try to":? "guess if by asking questions.":? :N=N1:TRAP 40000120 NODE$=TREE$(N*NL-2,N*NL):Q=ASC(NOD}E$(N1,N1)):Y$=NODE$(2,2):N$=NODE$(3,3)130 IF Y$="" THEN A=Q:G=A:GOTO 170140 Q$=QX$(Q*QL-36,Q*QL):? Q$:GOSUB 520150 IF R$=}"y" THEN N=ASC(Y$):GOTO 120160 N=ASC(N$):GOTO 120170 A$=AX$(A*AL-14,A*AL)180 T=LEN(A$):IF T>N1 AND A$(T,T)=" " THEN A$=A$(}N1,T-N1):GOTO 180190 T$=A$:GOSUB 550:? "Is it";P$;A$;"?":GOSUB 520:IF R$="n" THEN 230200 ? "That was fun!"210 ? "Want to t}ry again?":GOSUB 520:IF R$="y" THEN 110212 ? :? "Shall I SAVE this data?":GOSUB 520:IF R$="y" THEN K=19:? :GOTO 390220 POKE} 82,2:GRAPHICS 0:POKE 10592,DPL:END 230 ? "I give up. Just what sort of beast":? "did you have in mind?"240 GOSUB 350:IF L}EN(R$)>AL OR R$="" THEN ? "1 to 15 letters please.":GOTO 240250 H$=R$:T$=R$:GOSUB 550:? "Please type a question whose answer} is YES for";P$;H$;" and"260 T$=A$:GOSUB 550:? "NO for";P$;A$;"."270 GOSUB 350:IF R$(LEN(R$))<>"?" THEN ? "That's not a que}stion!":GOTO 270280 Q$=R$:NA=NA+N1290 IF NA>MAX OR NN>251 THEN ? "Buffer full, record ignored":NA=MAX:GOTO 110300 LQ=Q:Q=N}A:GOSUB 600:A$=H$:A=NA:GOSUB 580310 NODE$=CHR$(A):NODE$(2,2)=CHR$(NN+N1):NODE$(3,3)=CHR$(NN+2):GOSUB 620320 NN=NN+N1:NODE$=}CHR$(A):NODE$(2,3)="":N=NN:GOSUB 620330 NN=NN+N1:NODE$=CHR$(G):NODE$(2,3)="":N=NN:GOSUB 620:GOTO 210340 REM USER INPUT}350 C=N0:X$=">"360 R$="":L=N0:POSITION C,PEEK(84):? X$;370 IF BRK THEN POKE 16,112:POKE 53774,112375 GET #2,K:IF K=155 THE}N ? :GOTO 480380 IF K=126 THEN 450390 IF K=19 THEN T=8:R$="":GOTO 670400 IF K=12 THEN T=4:R$="":GOTO 670410 IF K<}32 OR K>122 THEN POKE 694,N0:GOTO 370420 IF L=QL THEN 370430 L=L+N1:? CHR$(K);:IF K>64 AND K<91 THEN K=K+32440 R$(L,L)=CHR}$(K):GOTO 370450 IF R$="" THEN 370460 ? "~";:IF L=N1 THEN 360470 L=L-N1:R$=R$(N1,L):GOTO 370480 IF L=N0 THEN RETURN 490 }IF R$(LEN(R$))="?" THEN K=ASC(R$(N1,N1)):IF K>96 THEN K=K-32:R$(N1,N1)=CHR$(K)500 RETURN 510 REM YES/NO520 GOSUB 350:IF R$}>"" THEN R$=R$(N1,N1):IF R$="y" OR R$="n" THEN RETURN 530 ? "Come on, yes or no.":GOTO 520540 REM A/AN550 P$=" a ":X$=T$(N}1,N1):IF (X$="a" OR X$="e" OR X$="i" OR X$="o" OR X$="u") THEN P$=" an "560 RETURN 570 REM FILE ANIMAL580 T$=A$:L=AL:GOSUB} 640:AX$(A*AL-14,A*AL)=T$:RETURN 590 REM FILE QUESTION600 T$=Q$:L=QL:GOSUB 640:QX$(Q*QL-36,Q*QL)=T$:RETURN 610 REM FILE KN}OLEGE NODE620 TREE$(N*NL-2,N*NL)=NODE$:RETURN 630 REM PAD WITH BLANKS640 T=LEN(T$):IF T=2 AND R$(2,2)=":" THEN} 710690 IF L>=3 AND R$(3,3)=":" THEN 710700 Q$=R$:R$="D:":R$(3)=Q$:L=L+2710 FOR X=N1 TO L:B=ASC(R$(X,X)):IF B>96 THEN R$(X},X)=CHR$(B-32)720 NEXT X:POKE 195,N0:TRAP 790:OPEN #N1,T,N0,R$730 IF T=8 THEN QLEN=LEN(QX$):ALEN=LEN(AX$):? #N1,NA:? #N1,NN}:? #N1,QLEN:? #N1,ALEN:GOTO 760740 INPUT #N1,NA:INPUT #N1,NN:INPUT #N1,QLEN:INPUT #N1,ALEN750 QX$=" ":QX$(QLEN-N1)=QX$:QX$(}2)=QX$:AX$=QX$(N1,ALEN):TREE$=" ":TREE$(765)=TREE$:TREE$(2)=TREE$760 ADDR=ADR(QX$):SIZE=QLEN:GOSUB 810770 ADDR=ADR(AX$):SIZ }E=ALEN:GOSUB 810780 ADDR=ADR(TREE$):SIZE=765:GOSUB 810790 CLOSE #N1:X=PEEK(195):IF X=N0 THEN ? "Okay.":GOTO 110800 ? "ERRO }R ";X:GOTO 110810 IOCB=848:POKE IOCB+2,T+3820 HI=INT(ADDR/256):LO=ADDR-HI*256:POKE IOCB+4,LO:POKE IOCB+5,HI830 HI=INT(SIZE }/256):LO=SIZE-HI*256:POKE IOCB+8,LO:POKE IOCB+9,HI840 TJ=USR(ADR("hhhLV"),16):RETURN 850 REM INITIALIZE860 N0=0:N1=1:GRA }PHICS 0:POKE 710,12:POKE 712,12:POKE 709,0:POKE 82,N1:POKE 83,39865 MAX=128:QL=37:AL=15:NL=3:CLOSE #2:OPEN #2,4,N0,"K:"870  }DIM QX$(QL*MAX),AX$(AL*MAX),TREE$(766),Q$(QL),A$(AL),NODE$(NL)880 DIM H$(AL),R$(QL),T$(QL),BL$(QL),Y$(N1),N$(N1),P$(4),X$(N1})890 TREE$="":TREE$(NL*255-N1)=TREE$:TREE$(2)=TREE$:BL$=" ":BL$(QL-N1)=BL$:BL$(2)=BL$900 A$="horse":A=N1:GOSUB 580:A$="cro}w":A=2:GOSUB 580:NA=A:NN=3910 Q$="Is it a mammal?":Q=N1:GOSUB 600920 NODE$="":N=N1:GOSUB 620:NODE$="":N=2:GOSUB 620:N}ODE$="":N=3:GOSUB 620930 GOTO 110it a mammal?":Q=N1:GOSUB 600920 NODE$="":N=N1:GOSUB 620:NODE$="":N=2:GOSUB 620:N&1 REM ANIMAL IS EEN PROGRAMMA WAT ZIJN EIGEN INTELIGENTIE OPBOUWT DOOR VRAGEN TE STELLEN2 REM VRAGEN BEANTWOORDEN MET J OF N}.3 REM VRAGEN AFSLUITEN MET EEN VRAAGTEKEN (?).4 REM DATA OPSLAAN MET CTRL-S5 REM DATA LADEN MET CTRL-L10 REM ANIMAL20 R}EM BY RANDY DEARDORFF25 REM VERTAALT DOOR J.V.D.POL30 REM 1985, ANTIC PUBLISHING40 BRK=1:IF PEEK(53279)=5 THEN BRK=050 DP}L=PEEK(10592):POKE 10592,255100 GOTO 860110 ? :? "Denk aan een dier. Ik zal proberen":? "het te raden door vragen te stell}en.":? :N=N1:TRAP 40000120 NODE$=TREE$(N*NL-2,N*NL):Q=ASC(NODE$(N1,N1)):Y$=NODE$(2,2):N$=NODE$(3,3)130 IF Y$="" THEN A=Q:G}=A:GOTO 170140 Q$=QX$(Q*QL-36,Q*QL):? Q$:GOSUB 520150 IF R$="j" THEN N=ASC(Y$):GOTO 120160 N=ASC(N$):GOTO 120170 A$=AX$(A}*AL-14,A*AL)180 T=LEN(A$):IF T>N1 AND A$(T,T)=" " THEN A$=A$(N1,T-N1):GOTO 180190 T$=A$:GOSUB 550:? "Is het";P$;A$;"?":GOSU}B 520:IF R$="n" THEN 230200 ? "Dat was leuk!"210 ? "Nog eens proberen?":GOSUB 520:IF R$="j" THEN 110212 ? :? "Moet ik deze} data SAVEN?":GOSUB 520:IF R$="j" THEN K=19:? :GOTO 390220 POKE 82,2:GRAPHICS 0:POKE 10592,DPL:END 230 ? "Ik geef op, wat }voor een dier had ":? "je in gedachten?"240 GOSUB 350:IF LEN(R$)>AL OR R$="" THEN ? "1 tot 15 letters a.u.b.":GOTO 240250 H}$=R$:T$=R$:GOSUB 550:? "Geef a.u.b. een vraag waar het andwoord JA van is";P$;H$;" en"260 T$=A$:GOSUB 550:? "NEE voor";P$;A$};"."270 GOSUB 350:IF R$(LEN(R$))<>"?" THEN ? "Dat is geen vraag!":GOTO 270280 Q$=R$:NA=NA+N1290 IF NA>MAX OR NN>251 THEN ?} "Buffer vol, record genegeerd":NA=MAX:GOTO 110300 LQ=Q:Q=NA:GOSUB 600:A$=H$:A=NA:GOSUB 580310 NODE$=CHR$(A):NODE$(2,2)=CHR}$(NN+N1):NODE$(3,3)=CHR$(NN+2):GOSUB 620320 NN=NN+N1:NODE$=CHR$(A):NODE$(2,3)="":N=NN:GOSUB 620330 NN=NN+N1:NODE$=CHR$(G)}:NODE$(2,3)="":N=NN:GOSUB 620:GOTO 210340 REM USER INPUT350 C=N0:X$=">"360 R$="":L=N0:POSITION C,PEEK(84):? X$;370 IF B }RK THEN POKE 16,112:POKE 53774,112375 GET #2,K:IF K=155 THEN ? :GOTO 480380 IF K=126 THEN 450390 IF K=19 THEN T=8:R$="!}":GOTO 670400 IF K=12 THEN T=4:R$="":GOTO 670410 IF K<32 OR K>122 THEN POKE 694,N0:GOTO 370420 IF L=QL THEN 370430 L="}L+N1:? CHR$(K);:IF K>64 AND K<91 THEN K=K+32440 R$(L,L)=CHR$(K):GOTO 370450 IF R$="" THEN 370460 ? "~";:IF L=N1 THEN 3604#}70 L=L-N1:R$=R$(N1,L):GOTO 370480 IF L=N0 THEN RETURN 490 IF R$(LEN(R$))="?" THEN K=ASC(R$(N1,N1)):IF K>96 THEN K=K-32:R$(N$}1,N1)=CHR$(K)500 RETURN 510 REM YES/NO520 GOSUB 350:IF R$>"" THEN R$=R$(N1,N1):IF R$="j" OR R$="n" THEN RETURN 530 ? "Kom%} op, ja of nee.":GOTO 520540 REM A/AN550 P$=" een ":REM X$=T$(N1,N1):IF (X$="a" OR X$="e" OR X$="i" OR X$="o" OR X$="u") TH&}EN P$=" an "560 RETURN 570 REM FILE ANIMAL580 T$=A$:L=AL:GOSUB 640:AX$(A*AL-14,A*AL)=T$:RETURN 590 REM FILE QUESTION600 '}T$=Q$:L=QL:GOSUB 640:QX$(Q*QL-36,Q*QL)=T$:RETURN 610 REM FILE KNOLEGE NODE620 TREE$(N*NL-2,N*NL)=NODE$:RETURN 630 REM PAD (}WITH BLANKS640 T=LEN(T$):IF T=2 AND R$(2,2)=":" THEN 710690 IF L>=3 AND R$(3,3)=":" THEN 710700 Q$=R$:R$="D:":R$(3)=Q$:L,}=L+2710 FOR X=N1 TO L:B=ASC(R$(X,X)):IF B>96 THEN R$(X,X)=CHR$(B-32)720 NEXT X:POKE 195,N0:TRAP 790:OPEN #N1,T,N0,R$730 IF-} T=8 THEN QLEN=LEN(QX$):ALEN=LEN(AX$):? #N1,NA:? #N1,NN:? #N1,QLEN:? #N1,ALEN:GOTO 760740 INPUT #N1,NA:INPUT #N1,NN:INPUT #N.}1,QLEN:INPUT #N1,ALEN750 QX$=" ":QX$(QLEN-N1)=QX$:QX$(2)=QX$:AX$=QX$(N1,ALEN):TREE$=" ":TREE$(765)=TREE$:TREE$(2)=TREE$760 /}ADDR=ADR(QX$):SIZE=QLEN:GOSUB 810770 ADDR=ADR(AX$):SIZE=ALEN:GOSUB 810780 ADDR=ADR(TREE$):SIZE=765:GOSUB 810790 CLOSE #N1:0}X=PEEK(195):IF X=N0 THEN ? "Okay.":GOTO 110800 ? "ERROR ";X:GOTO 110810 IOCB=848:POKE IOCB+2,T+3820 HI=INT(ADDR/256):LO=AD1}DR-HI*256:POKE IOCB+4,LO:POKE IOCB+5,HI830 HI=INT(SIZE/256):LO=SIZE-HI*256:POKE IOCB+8,LO:POKE IOCB+9,HI840 TJ=USR(ADR("hhh2}LV"),16):RETURN 850 REM INITIALIZE860 N0=0:N1=1:GRAPHICS 0:POKE 710,12:POKE 712,12:POKE 709,0:POKE 82,N1:POKE 83,39865 M3}AX=128:QL=37:AL=15:NL=3:CLOSE #2:OPEN #2,4,N0,"K:"870 DIM QX$(QL*MAX),AX$(AL*MAX),TREE$(766),Q$(QL),A$(AL),NODE$(NL)880 DIM4} H$(AL),R$(QL),T$(QL),BL$(QL),Y$(N1),N$(N1),P$(5),X$(N1)890 TREE$="":TREE$(NL*255-N1)=TREE$:TREE$(2)=TREE$:BL$=" ":BL$(QL-N5}1)=BL$:BL$(2)=BL$900 A$="paard":A=N1:GOSUB 580:A$="kraai":A=2:GOSUB 580:NA=A:NN=3910 Q$="Is het een zoogdier?":Q=N1:GOSUB 66}00920 NODE$="":N=N1:GOSUB 620:NODE$="":N=2:GOSUB 620:NODE$="":N=3:GOSUB 620930 GOTO 110en zoogdier?":Q=N1:GOSUB 6c10 REM ĠҠ20 REM 25 REM ɠҠ̠30 OPEN #1,4,08},"K:":POKE 106,152:GRAPHICS 0:? "Data loading...":GOSUB 160040 GRAPHICS 0:SETCOLOR 2,12,0:CLR 50 GOSUB 127060 ? "}":POSITI9}ON 10,0:? "":POSITION 10,1:? "|SOUND SYNTHESIZER|"70 POSITION 10,3:? "by Stephen Williamson":POSITION 10,:}2:? ""90 POSITION 10,8:? "1. One channel sound":POSITION 10,10:? "2. Two channel sound"110 POSITION 10,1;}2:? "3. A.D.S.R. sound"120 GOSUB 270:Y1=Y:IF Y=8 OR Y=10 OR Y=12 THEN 160150 GOTO 120160 ? "}":POSITION 1,0:? "<}":POSITION 1,1:? "|SOUND SYNTHESIZER-"170 POSITION 1,2:? ""1=}80 IF Y=8 THEN POSITION 20,1:? "Š̠|";:OCT=0190 IF Y=10 THEN POSITION 20,1:? "Ϡ̠|";:OCT=1200 I>}F Y=12 THEN POSITION 20,1:? "ĮӮҮ|";:ADSR=1210 X=8:Y=4:GOSUB 370230 REM CONTROL LOOP240 GOSUB 270:GOSUB 5802?}60 POKE 85,X:POKE 84,Y:GOTO 240270 REM MOVE CURSOR280 ST=STICK(0):FOR DELAY=1 TO 10:NEXT DELAY290 X=X+(ST=7)-(ST=11):Y=Y+(@}ST=13)-(ST=14)300 IF STRIG(0)=0 THEN FOR DELAY=1 TO 30:NEXT DELAY:RETURN 310 IF X<0 THEN X=39320 IF Y<0 THEN Y=23330 IF XA}>39 THEN X=0340 IF Y>23 THEN Y=0350 POKE 85,X:POKE 84,Y:? "";:GOTO 270370 REM PRINT MENU380 POSITION 10,4:? AU2$:POSITIOB}N 10,5:? AU3$:POSITION 10,6:? AU5$410 POSITION 10,7:? AU7$:POSITION 10,8:? AU10$:POSITION 10,9:? AU11$450 POSITION 10,10:? C}AU13$:POSITION 10,11:? AU15$:POSITION 10,12:? AU17$480 IF Y1=12 THEN POSITION 9,13:? AU19$490 IF Y1=12 THEN POSITION 2,15:?D} AU22$;"10 ";AU24$;"10 ";AU26$;"10 "500 IF Y1=12 THEN POSITION 2,16:? AU28$;"10 ";AU30$;"10 "505 IF Y1=12 THEN ATT=10:E}DECR=10:SUS=10:REL=10:SUSL=10510 POSITION 2,18:? "|PLAY|":POSITION 2,17:? "":POSITION 2,19:? ""520 POSITION 30,F}18:? "|RETURN|":POSITION 30,17:? "":POSITION 30,19:? ""530 POSITION 2,22:? "G}"540 POSITION 2,20:? " A# C# D# F# G# A# C# D#"550 POSITION 2,21:? "    "560H} POSITION 2,23:? " A B C D E F G A B C D E ";570 RETURN 580 REM CHANGE SOUND REGISTERS590 IF Y=4 OR Y=5 THEN IFI} AUD1=0 THEN AUD1=1:POSITION 10,4:? AU1$:POSITION 10,5:? AU4$:RETURN 600 IF Y=4 OR Y=5 THEN IF AUD1=1 THEN AUD1=0:POSITION 1J}0,4:? AU2$:POSITION 10,5:? AU3$:RETURN 610 IF Y=6 AND AUD2=1 THEN AUD2=0:POSITION 10,6:? AU5$:RETURN 620 IF Y=6 AND AUD2=0 K}THEN AUD2=1:POSITION 10,6:? AU6$:RETURN 630 IF Y=7 AND AUD3=1 THEN AUD3=0:POSITION 10,7:? AU7$:RETURN 640 IF Y=7 AND AUD3=0L} THEN AUD3=1:POSITION 10,7:? AU8$:RETURN 650 IF Y>=8 AND Y<=11 THEN POSITION 10,8:? AU9$:POSITION 10,9:? AU11$:POSITION 10,1M}0:? AU13$:POSITION 10,11:? AU15$660 IF Y>=8 AND Y<=11 THEN AUD4=0:AUD5=0:AUD6=0:AUD7=0670 IF Y=8 THEN POSITION 10,8:? AU10$N}:AUD4=1:RETURN 680 IF Y=9 THEN POSITION 10,9:? AU12$:AUD5=1:RETURN 690 IF Y=10 THEN POSITION 10,10:? AU14$:AUD6=1:RETURN 7O}00 IF Y=11 THEN POSITION 10,11:? AU16$:AUD7=1:RETURN 710 IF Y=12 AND AUD8=0 THEN AUD8=1:POSITION 10,12:? AU18$:RETURN 720 IP}F Y=12 AND AUD8=1 THEN AUD8=0:POSITION 10,12:? AU17$:RETURN 730 IF Y=13 AND Y1=12 AND AUD9=0 THEN AUD9=1:POSITION 9,13:? AU2Q}0$:RETURN 740 IF Y=13 AND Y1=12 AND AUD9=1 THEN AUD9=0:POSITION 9,13:? AU19$:RETURN 750 IF Y=15 OR Y=16 THEN IF Y1=12 THEN R}GOSUB 970:RETURN 760 IF Y>16 AND Y<20 AND X<9 THEN GOSUB 790:RETURN 770 IF Y>16 AND Y<20 AND X>20 THEN POP :GOTO 40780 RETS}URN 790 REM PLAY & POKE SOUND REGISTERS810 POKE 53768,0:AUD=0:REP=0820 IF AUD1=1 THEN AUD=AUD+1830 IF AUD2=1 THEN AUD=AUDT}+4840 IF AUD3=1 THEN AUD=AUD+64850 IF AUD4=1 THEN DIS=160860 IF AUD5=1 THEN DIS=192870 IF AUD6=1 THEN DIS=64880 IF AUD7=U}1 THEN DIS=128890 IF AUD8=1 THEN AUD=AUD+128900 IF AUD9=1 THEN REP=1910 IF ADSR=0 THEN DIS=DIS+15920 POKE 53768,AUD:POKE V}764,255930 IF PEEK(53279)=5 THEN POKE 53768,0:POKE 53761,0:POKE 53763,0:X=8:Y=8:RETURN 940 A=USR(39936,OCT,ADSR,REP,DIS,ATTW},DECR,SUSL+DIS,SUS,REL)950 GOTO 930960 REM SET UP ADSR ENVELOPE970 POKE 764,255:CH=0:FIG=0:FIG(1)=0:FIG(2)=0:FIG(3)=0980 X}IF X<12 AND Y=15 THEN XX=8:POSITION 2,15:? AU21$:GOSUB 1240:POSITION 2,15:? AU22$:GOSUB 1240990 IF X>11 AND X<18 AND Y=15 THY}EN XX=18:POSITION 13,15:? AU23$:GOSUB 1240:POSITION 13,15:? AU24$:GOSUB 12401000 IF X>19 AND Y=15 THEN XX=30:POSITION 23,15:Z}? AU25$:GOSUB 1240:POSITION 23,15:? AU26$:GOSUB 12401010 IF X<12 AND Y=16 THEN XX=9:POSITION 2,16:? AU27$:GOSUB 1240:POSITIO[}N 2,16:? AU28$:GOSUB 12401020 IF X>11 AND Y=16 THEN XX=34:POSITION 14,16:? AU29$:GOSUB 1240:POSITION 14,16:? AU30$:GOSUB 124\}01030 IF CH=0 THEN POSITION XX,Y:? " "1040 IF STRIG(0)=0 THEN GOSUB 1240:GOSUB 1240:GOTO 11201050 IF PEEK(764)=255 THE]}N 9801060 GET #1,A:CH=CH+11070 IF A=155 THEN CH=CH-1:GOTO 11201080 POSITION XX+CH,Y:FIG(CH)=ABS(48-A):? FIG(CH);1090 IF X^}X=34 AND CH=2 THEN 11201100 IF CH=3 THEN 11201110 POKE 764,255:GOTO 9801120 FIG=FIG(1)*100+FIG(2)*10+FIG(3)1130 IF CH=2 T_}HEN FIG=FIG(1)*10+FIG(2)1140 IF CH=1 THEN FIG=FIG(1)1150 IF FIG>255 OR FIG<1 THEN ? "":GOTO 9701160 IF X>11 AND Y=16 AND `}FIG>14 THEN ? "":GOTO 9701170 IF X<12 AND Y=15 THEN ATT=FIG1180 IF X>11 AND X<18 AND Y=15 THEN DECR=FIG1190 IF X>19 AND Ya}=15 THEN SUS=FIG1200 IF X<12 AND Y=16 THEN REL=FIG1210 IF X>11 AND Y=16 THEN SUSL=FIG1220 RETURN 1230 REM DELAY ROUTINE1b}240 FOR DELAY=1 TO 10:NEXT DELAY:RETURN 1250 REM INITIALISATION1270 DIM AU1$(30),AU2$(30),AU3$(30),AU4$(30),AU5$(30),AU6$(4c}0),AU7$(30),AU8$(30),AU9$(30),AU10$(30),FIG(3)1280 DIM AU11$(30),AU12$(30),AU13$(30),AU14$(30),AU15$(30),AU16$(40),AU17$(30)d},AU18$(30),AU19$(30),AU20$(30)1300 DIM AU21$(30),AU22$(30),AU23$(30),AU24$(30),AU25$(30),AU26$(40),AU27$(30),AU28$(30),AU29$e}(30),AU30$(30)1320 POKE 53768,0:AUD=0:SOUND 1330 AU1$="1: 64KHz Main Clock Base":AU2$=""1350 AU3$=f}"2: 15KHz Main Clock Base":AU4$=""1370 AU5$="3: High Band Pass Filter":AU6$="g}"1390 AU7$="4: 1.79MHz Clock ":AU8$=" "1410 AU9$="5: Pure Sound ":AU10$="q}B%DOS SYSB*)DUP SYSBSAARDRIJKLSTBADOS LSTB$ANIMAL ENGB&ANIMAL NEDBB7ATASYN LSTB}AUTODIALLSTB-AUTORUN LSTB ,BASREVC LSTB8BOUNCINGLSTB?MBREUKTHRLSTBCARDCOPYLSTPCHESS LSTCOLOR1 LSTCOLOR2 LSTCOLORXC LSTH CONVERSELST TCOPYSECSLST^CURSOR LSTDuDARKTOWELST(DIGILOO LSTDISASS LST "1430 AU11$="6: Distortion No.1 ":AU12$="ﮱ "1450 AU13$="7: Distortion No.2 ":AU1r}4$="﮲ "1470 AU15$="8: Distortion No.3 ":AU16$="﮳ "1490 AU17$="9: 9 Bit Poly-cs}ounter ":AU18$=" "1510 AU19$="10: Repeat ":AU20$=" "1530 AU21$=t}"Attack:":AU22$=""1540 AU23$="Decay:":AU24$=""1550 AU25$="Sustain:":AU26$=""1560 AU27$="Release:":AU2u}8$=""1570 AU29$="Sustain Level (1-14):":AU30$="젨"1580 AUD1=0:AUD2=0:AUD3=0:AUD4=1:AUD5=0:AUD6=0v}:AUD7=0:AUD8=0:AUD9=0:RETURN 1600 FOR I=0 TO 332:READ A:POKE 39936+I,A:NEXT I:RETURN 1610 RETURN 1620 DATA 172,31,208,192,w}5,208,20,104,104,104,104,104,104,104,104,104,104,104,104,1041630 DATA 104,104,104,104,104,104,96,174,252,2,224,255,240,249,1x}69,0,224,63,208,21640 DATA 169,144,224,46,208,2,169,136,224,62,208,2,169,128,224,58,208,2,169,1211650 DATA 224,40,208,2,169y},114,224,56,208,2,169,108,224,45,208,2,169,102,224,611660 DATA 208,2,169,96,224,57,208,2,169,91,224,11,208,2,169,85,224,1,20z}8,21670 DATA 169,81,224,13,208,2,169,76,224,5,208,2,169,72,224,8,208,2,169,681680 DATA 224,0,208,2,169,64,224,2,208,2,169,6{}0,224,14,208,2,169,57,224,61690 DATA 208,2,169,53,224,15,208,2,169,50,224,7,208,2,169,47,133,207,141,01700 DATA 210,201,0,2|}08,3,76,0,156,104,104,104,133,204,104,104,201,1,208,3,761710 DATA 223,156,104,104,104,104,133,205,141,1,210,165,204,201,1,20}}8,15,165,207,2011720 DATA 0,240,9,106,141,2,210,165,205,141,3,210,104,104,104,104,104,104,104,1041730 DATA 104,104,96,104,1~}04,201,1,240,5,162,255,142,252,2,104,104,133,208,105,161740 DATA 133,209,104,104,133,204,165,208,141,1,210,32,66,157,105,1,1}97,209,208,2441750 DATA 104,104,133,204,104,104,133,205,165,209,233,1,141,1,210,32,66,157,233,11760 DATA 197,205,208,244,10}4,104,133,204,169,15,32,66,157,233,1,208,249,165,208,2331770 DATA 1,133,208,104,104,133,204,165,205,141,1,210,32,66,157,233,}1,197,208,2081780 DATA 244,96,164,204,162,50,202,208,253,136,208,248,96,0,0,0,0,0,0,03,204,165,205,141,1,210,32,66,157,233,W1 OPEN #2,4,1,"K:":DIM DEV$(3),FN$(8),EX$(3),DIR$(20):SETCOLOR 2,0,02 DIM AR1(260),AR2(12),I$(20),FILE$(15)3 ? CHR$(125):BR}K=PEEK(16):IF BRK>128 THEN BRK=BRK-128:POKE 16,BRK:POKE 53774,BRK4 TEMP=PEEK(54018):POKE 54018,0:POKE 54016,1:POKE 54018,TEM}P:POKE 54016,05 DIM DNR$(20):REM DISTRICTSNUMMER MET STREEPJE6 POSITION 5,10:PRINT "GEEF DISTRICTSNUMMER";:INPUT DNR$:I$=DN}R$:GOSUB 8200:DNR$=I$:IF AC<>0 THEN GOTO 612 FOR X=1 TO LEN(DNR$):IF DNR$(X,X)<>"-" THEN NEXT X13 IF X<=LEN(DNR$) THEN DNR$}=DNR1,X-1)14 DNR$(LEN(DNR$)+1,LEN(DNR$)+1)="-"16 DIM A$(22*260),B$(20*260):REM NAAM EN TELNR.17 FOR X=1 TO 26018 A$(X*2}2-21,X*22)=" ":NEXT X:B$=A$19 DIM H$(22),D$(1),T$(1),U$(1),HH$(22),IH$(20),INV$(260),SAV$(}120):REM HULP-ARRAYS20 POKE 77,0:PRINT CHR$(125);:POKE 16,BRK:POKE 53774,BRK:IF PEEK(764)<>31 THEN POKE 764,255:SETCOLOR 2,0},030 POSITION 10,1:PRINT "DATABASE SYSTEM V1.00":POSITION 12,4:PRINT "1. INVOEREN NIEUWE NUMMERS";40 POSITION 12,6:PRINT "2}. RAADPLEGEN DATABASE":POSITION 12,8:PRINT "3. INLEZEN DATA":POSITION 12,1050 PRINT "4. WEGSCHRIJVEN DATA":POSITION 12,12:PR}INT "5. DIRECT KIEZEN"51 POSITION 12,14:PRINT "6. VOLGEND MENU":POSITION 12,16:PRINT "7. EINDE PROGRAMMA"60 TRAP 80:POSITIO}N 10,19:PRINT "UW KEUZE ";:GET #2,KNOP:INV=VAL(CHR$(KNOP))70 GOTO 9080 CLOSE #2:OPEN #2,4,1,"K:":POSITION 19,1985 TEMP=PEE}K(54018):POKE 54018,0:POKE 54016,1:POKE 54018,TEMP:POKE 54016,0:GOTO 6090 TRAP 65000100 IF INV<1 OR INV>7 THEN GOTO 80105 }PRINT CHR$(125);110 IF INV=7 THEN CLOSE #1:CLOSE #2:POSITION 2,3:POKE 16,BRK+128:POKE 53774,BRK+128:POSITION 2,2:? "G.20":PO}SITION 0,0:END 120 ON INV GOSUB 1000,2000,3000,4000,9000,13000130 GOTO 201000 REM INVOEREN1001 POSITION 11,1:PRINT "INVOE}REN:";1005 POSITION 5,10:PRINT "NAAM :":POSITION 5,12:PRINT "NUMMER :"1010 POSITION 12,10:INPUT H$:POSITION 12,10:PRINT "}:":POSITION 12,12:INPUT I$:POSITION 12,12:PRINT ":"1015 IF H$="" AND I$="" THEN RETURN 1020 POSITION 5,20:PRINT "ZIJN ALLE }GEGEVENS CORRECT ";:GET #2,D:D$=CHR$(D)1030 IF D$<>"J" AND D$<>"j" THEN POSITION 5,20:PRINT " } ":GOTO 10001035 IF H$="" OR I$="" THEN POSITION 5,19:PRINT "VERKEERDE INVOER":GOTO 10001040 IF H$(1,1)=" " THEN H$=H}$(2):GOTO 10401041 FOR X=1 TO LEN(H$):IF ASC(H$(X,X))>=97 AND ASC(H$(X,X))<=122 THEN LET H$(X,X)=CHR$(ASC(H$(X,X))-32)1042 }NEXT X1043 IF I$(1,1)=" " THEN I$=I$(2):GOTO 10431044 GOSUB 8200:IF AC<>0 THEN H$="":I$=" T":GOTO 10351048 IF H$(1,1)<"A" }OR H$(1,1)>"Z" THEN H$="":GOTO 10351049 FOR X=LEN(H$)+1 TO 22:H$(X,X)=" ":NEXT X1050 FOR X=19 TO 20:POSITION 5,X:PRINT " } ":NEXT X1055 IF LEN(I$)<20 THEN FOR X=LEN(I$)+1 TO 20:I$(X,X)=" ":NEXT X1057 IF LEN(H$)<22 T}HEN FOR X=LEN(H$)+1 TO 22:H$(X,X)=" ":NEXT X1060 LET LNR=ASC(H$(1,1))-64:LET EA=10*(LNR-1)+1:LET LA=EA+9:LPOS=LA+11070 FOR }X=LA-1 TO EA STEP -11080 IF A$(X*22-21,X*22)=" " THEN LPOS=X:GOTO 11001090 GOTO 11101100 NEXT X:LPOS=}X+11110 IF LPOS>LA THEN POSITION 5,20:PRINT "OUT OF MEMORY";:FOR X=1 TO 1000:NEXT X:RETURN 1120 IF LPOS=EA THEN A$(EA*22-21},EA*22)=H$:B$(EA*20-19,EA*20)=I$:RETURN 1130 FOR X=LPOS-1 TO EA STEP -11140 TEL1=X*22-21:TEL2=X*22:IF H$A$(TEL1,TEL2) THEN AC=21170 ON AC GOSUB 1200,13001180 NEXT X1190 RETURN 1200 HH$=H$:H$=A$(TEL1,TEL2):A$(}TEL1+22,TEL2+22)=H$:A$(TEL1,TEL2)=HH$:H$=HH$1210 IH$=I$:I$=B$(X*20-19,X*20):B$(X*20+1,(X+1)*20)=I$:B$(X*20-19,X*20)=IH$:I$=I}H$:RETURN 1300 A$(TEL1+22,TEL2+22)=H$:B$((X+1)*20-19,(X+1)*20)=I$:X=EA-1:RETURN 2000 REM RAADPLEGEN2010 POSITION 11,1:PRIN}T "RAADPLEGEN:";2020 POSITION 5,10:PRINT "GEEF DE ZOEKSTRING...";:POSITION 5,12:INPUT H$:POSITION 5,12:PRINT " ";2030 FOR X}=1 TO 260:AR1(X)=0:INV$(X,X)=" ":NEXT X:FOR X=1 TO 12:AR2(X)=0:NEXT X2040 IF H$<>"" THEN GOTO 22202050 Y=1:FOR X=1 TO 2602}060 AC=0:TEL1=22*X-21:TEL2=22*X:IF A$(TEL1,TEL1)<>" " THEN LET AC=12070 IF AC=1 THEN AR1(Y)=X:Y=Y+12080 NEXT X2090 Y=Y-1:X}=1:Z=12:IF Y<12 THEN Z=Y2100 PRINT CHR$(125);:POSITION 9,0:PRINT "EDITOR VERSION 1.00"2110 IF AR1(1)=0 THEN POSITION 13,3:P}RINT "(no members)":FOR X=1 TO 1000:NEXT X:RETURN 2120 GOSUB 2500:P=1:POSITION 2,P+2:PRINT " "2130 GET #2,KNOP:AC=02140 IF} KNOP>=49 AND KNOP<=51 OR KNOP=32 THEN AC=42150 IF KNOP=45 THEN AC=12160 IF KNOP=61 THEN AC=22161 IF KNOP=28 THEN AC=7216}2 IF KNOP=29 THEN AC=82170 IF KNOP=155 THEN AC=32180 IF KNOP=27 THEN RETURN 2181 IF KNOP=95 THEN AC=52182 IF KNOP=124 THE}N AC=62190 POSITION 1,P+2:IF AC=0 THEN GOTO 21302200 ON AC GOSUB 2600,2700,2800,2900,7200,7400,7600,7800:IF AC=3 THEN RETUR}N 2210 POSITION 2,P+2:PRINT " ":GOTO 21302220 IF LEN(H$)>0 THEN IF H$(1,1)=" " THEN H$=H$(2):GOTO 22202230 IF LEN(H$)=0 TH}EN GOTO 20402233 IF H$<"A" OR H$>"Z" THEN GOTO 20902235 FOR X=1 TO LEN(H$):IF ASC(H$(X,X))>90 THEN H$(X,X)=CHR$(ASC(H$(X,X)})-32)2236 NEXT X2240 LET LNR=ASC(H$(1,1))-64:LET EA=10*(LNR-1)+1:LET LA=EA+92250 Y=1:FOR X=EA TO LA2260 TEL1=X*22-21:TEL2}=X*222270 IF A$(TEL1,TEL1+LEN(H$)-1)=H$ THEN AR1(Y)=X:Y=Y+12280 NEXT X:GOTO 20902499 POSITION 20,1:STOP 2500 FOR C=1 TO 1}2:AR2(C)=0:NEXT C2510 IF Z>Y THEN Z=Z-1:X=X-1:IF X<1 THEN X=12520 TEL1=X-1:FOR C=X TO Z2530 AR2(C-TEL1)=AR1(C):H$=A$(AR1(C})*22-21,AR1(C)*22):I$=B$(AR1(C)*20-19,AR1(C)*20)2540 REM POSITION 1,C-TEL1+3:PRINT " "2}541 POSITION 1,C-TEL1+3:PRINT INV$(AR1(C),AR1(C));:POSITION 3,C-TEL1+3:PRINT H$(1,15);2542 POSITION 20,C-TEL1+3:PRINT I$;25}50 NEXT C:POSITION 2,20:PRINT "1:BELLEN 2:VERWIJDEREN 3:WIJZIGEN":RETURN 2600 REM OMHOOG2610 P=P-12620 IF P<1 AND X=1 TH}EN P=1:RETURN 2630 IF P>=1 THEN RETURN 2640 P=1:X=X-1:Z=Z-1:GOSUB 2500:RETURN 2700 REM OMLAAG DOOR PIJLTJES2710 P=P+1271}5 IF P>12 THEN GOTO 27402720 IF AR2(P)=0 THEN P=P-1:RETURN 2730 IF P<=12 THEN RETURN 2740 IF P>12 AND Z=Y THEN P=12:RETURN} 2750 P=12:X=X+1:Z=Z+1:GOSUB 2500:RETURN 2800 REM ENTER2810 FOR Z=1 TO Y:X=AR1(Z):U$=A$(X*22-21):AC=(INV$(X,X)="3")+2*(INV}$(X,X)="2")+3*(INV$(X,X)="1")2820 IF AC<>0 THEN PRINT CHR$(125);:ON AC GOSUB 5000,5200,60002821 IF AC<>2 OR D$<>"J" AND D$<}>"j" THEN GOTO 28302822 FOR C=Z+1 TO Y:IF AR1(C)<>0 THEN X=AR1(C):T$=A$(X*22-21):IF T$=U$ THEN AR1(C)=AR1(C)-1:NEXT C2830 N}EXT Z:AC=3:RETURN 2900 REM OMLAAG DOOR INVOER2910 POSITION 1,P+3:PRINT CHR$(KNOP);:INV$(AR2(P),AR2(P))=CHR$(KNOP):GOSUB 270}0:RETURN 3000 REM INLEZEN3010 POSITION 11,3:PRINT "INLEZEN :":GOSUB 12000:TRAP 100003015 PRINT CHR$(125);3020 POSITION 11},1:PRINT "INLEZEN:";:POSITION 10,6:? "AAN HET INLEZEN ..."3030 POSITION 5,10:PRINT "BLOK 1:";:POSITION 10,20:PRINT "PRESS RE}TURN";3039 OPEN #1,4,0,FILE$:POSITION 10,20:PRINT " ";:POSITION 11,10:PRINT ":";3040 EA=1:LA=104:FOR X=1 TO 47:I}NPUT #1;SAV$:A$(EA,LA)=SAV$:EA=EA+104:LA=LA+104:IF LA>5720 THEN LA=57203041 NEXT X3050 POSITION 5,12:PRINT "BLOK 2:";3060 }EA=1:LA=104:FOR X=1 TO 44:INPUT #1;SAV$:B$(EA,LA)=SAV$:EA=EA+104:LA=LA+104:IF LA>5200 THEN LA=52003061 NEXT X:CLOSE #13070 }RETURN 4000 REM WEGSCHRIJVEN4010 POSITION 11,3:PRINT "WEGSCHRIJVEN :":GOSUB 12000:TRAP 110004015 PRINT CHR$(125);4020 POS}ITION 11,1:PRINT "WEGSCHRIJVEN:";:POSITION 10,6:? "AAN HET SCHRIJVEN ..."4030 POSITION 5,10:? "BLOK 1:";:POSITION 10,20:PRIN}T "PRESS RETURN";4039 OPEN #1,8,0,FILE$:POSITION 10,20:PRINT " ";:POSITION 11,10:PRINT ":";4040 EA=1:LA=104:FOR }X=1 TO 47:SAV$=A$(EA,LA):? #1;SAV$:EA=EA+104:LA=LA+104:IF LA>5720 THEN LA=57204041 NEXT X4042 POSITION 5,12:PRINT "BLOK 2:"};4043 EA=1:LA=104:FOR X=1 TO 44:SAV$=B$(EA,LA):? #1;SAV$:EA=EA+104:LA=LA+104:IF LA>5200 THEN LA=52004044 NEXT X4050 CLOSE }#1:SOUND 1,0,0,0:RETURN 5000 REM WIJZIGEN TEL.NR5005 POSITION 12,1:PRINT "WIJZIGEN:";:POSITION 5,10:PRINT "NAAM :":POSITI}ON 5,12:PRINT "TEL.NR :";5010 INV$(X,X)=" ":POSITION 13,10:PRINT A$(X*22-21,X*22):POSITION 13,12:PRINT B$(X*20-19,X*20)5020} POSITION 5,20:PRINT "ZEKER ...";:GET #2,INV:D$=CHR$(INV):POSITION 5,20:PRINT " "5030 POSITION }1,21:PRINT " ":IF D$<>"J" AND D$<>"j" THEN RETURN 5040 POSITION 12,12:INPUT I$5050 GOSUB 8200:IF AC<>0 THEN POSITI}ON 5,20:PRINT "VERKEERDE INVOER ...":GOTO 50405060 IF I$(1,1)=" " THEN I$=I$(2):GOTO 50505070 FOR C=1 TO LEN(I$):IF I$(C,C)}<"0" AND I$(C,C)<>" " AND I$(C,C)<>"-" OR I$(C,C)>"9" THEN I$="":GOTO 50505080 IF I$(C,C)=" " THEN I$(C)=I$(C+1):GOTO 50705}090 NEXT C5100 IF LEN(I$)<20 THEN FOR C=LEN(I$)+1 TO 20:I$(C,C)=" ":NEXT C5110 B$(X*20-19,X*20)=I$:RETURN 5200 REM VERWIJD}EREN MEMBER5210 POSITION 12,1:PRINT "VERWIJDEREN:":POSITION 5,11:PRINT "NAAM :";5220 POSITION 13,11:PRINT A$(X*22-21,X*22}):POSITION 5,20:PRINT "ZEKER ...";5230 GET #2,INV:D$=CHR$(INV):IF D$<>"J" AND D$<>"j" THEN RETURN 5240 EA=10*(INT(X/10))+1:}LA=EA+95250 FOR C=X+1 TO LA:A$(C*22-43,C*22-22)=A$(C*22-21,C*22):A$(C*22-21,C*22)=" "5255 INV$(C-1,C-1})=INV$(C,C):INV$(C,C)=" "5260 B$(C*20-39,C*20-20)=B$(C*20-19,C*20):B$(C*20-19,C*20)=" ":NEXT C5280 POSIT}ION 5,20:PRINT " ":RETURN 6000 REM OPBELLEN6010 POSITION 12,1:PRINT "OPBELLEN:":POSITION 5,11:P}RINT "NAAM :";:PRINT A$(X*22-21,X*22);6020 POSITION 5,20:PRINT "ZEKER ...";:GET #2,INV:D$=CHR$(INV):POSITION 5,20:PRINT " } "6030 IF D$<>"J" AND D$<>"j" THEN RETURN 6040 POSITION 5,13:PRINT "NUMMER:";:I$=B$(X*20-19,X*20)6050 I}F LEN(I$)>=LEN(DNR$) THEN IF I$(1,LEN(DNR$))=DNR$ THEN I$=I$(LEN(DNR$)+1)6055 IF LEN(I$)>1 THEN IF I$(1,1)=" " THEN I$=I$(2)}:GOTO 60556060 IF LEN(I$)<2 THEN RETURN 6065 FOR C=1 TO LEN(I$):IF I$(C,C)<>" " THEN NEXT C6070 PRINT I$;:IF C"-" THEN NR=VAL(I$(C,C)):IF NR=0 THEN NR=106100 IF I$(C,C)="-" THEN GOSUB 7000:NEXT C6110 FOR D=1 TO NR6120 GOSUB 8000}:NEXT D:FOR DEL=1 TO 70:NEXT DEL:NEXT C6130 POSITION 5,20:PRINT "CONTACT GEMAAKT.. EINDE --> RETURN";6140 GET #2,INV:IF INV}<>155 THEN GOTO 61406145 POKE 54016,1:FOR C=1 TO 100:NEXT C:POKE 54016,06150 POSITION 5,20:PRINT " } ":POSITION 5,20:PRINT "NOG EENS ? ";6160 GET #2,INV:D$=CHR$(INV):IF D$<>"J" AND D$<>"j" THEN RETURN 6170 POSITI}ON 12,13:PRINT I$;:GOTO 60807000 FOR H=1 TO 100:NEXT H:POSITION 11+C,13:PRINT "-";:RETURN 7200 REM SCROLL 1 PAGINA NAAR BOV}EN7205 IF X=1 THEN RETURN 7210 X=X-12:Z=X+11:IF X<1 THEN X=1:Z=12:P=17220 IF Z>Y THEN Z=Y7230 GOSUB 2500:RETURN 7400 REM} SCROLL 1 PAGINA NAAR BENEDEN7405 IF Z=Y THEN RETURN 7410 X=X+12:Z=X+11:IF Z>Y THEN Z=Y:X=Z-11:P=127420 IF X<1 THEN X=174}30 GOSUB 2500:RETURN 7600 REM BEGIN TABEL7610 IF X=1 THEN RETURN 7620 P=1:X=1:Z=12:IF Z>Y THEN Z=Y7630 GOSUB 25007640 RE}TURN 7800 REM EINDE TABEL7810 IF Z=Y THEN RETURN 7820 Z=Y:X=Z-11:IF X<1 THEN X=17825 P=12:IF P>Y THEN P=Y7830 GOSUB 2500}7840 RETURN 8000 REM DRAAIEN8010 POKE 54016,1:FOR T=1 TO 2:NEXT T:POKE 54016,0:FOR T=1 TO 2:NEXT T:RETURN 8200 REM CONTRO}LE TELNR8201 IF LEN(I$)=0 THEN AC=3:RETURN 8205 FOR T=1 TO LEN(I$):AC=08210 IF I$(T,T)=" " THEN I$(T)=I$(T+1):GOTO 820182}20 IF I$(T,T)<"0" AND I$(T,T)<>"-" OR I$(T,T)>"9" THEN AC=18230 IF AC=0 THEN NEXT T8240 IF AC=0 THEN TEL1=0:FOR T=1 TO LEN(}I$):IF I$(T,T)="-" THEN TEL1=TEL1+18250 IF AC=0 THEN NEXT T:IF TEL1>1 THEN AC=28260 RETURN 9000 REM DIREKT KIEZEN9005 POS}ITION 11,1:PRINT "DIRECT KIEZEN:";9010 POSITION 4,10:PRINT "GEEF NUMMER DAT U WILT BELLEN ":POSITION 4,11:INPUT I$9015 GOSU}B 8200:IF AC=3 THEN RETURN 9016 IF AC=1 THEN POSITION 5,20:PRINT "NON-NUMERIC DATA":GOTO 90109017 IF AC=2 THEN POSITION 5,2}1:PRINT "MEER DAN 1 '-'":GOTO 90109030 POSITION 4,11:PRINT " ":POSITION 4,13:PRINT "NUMMER: ";9}040 GOTO 605010000 REM ERROR TRAP10010 CLOSE #1:? "}";:POSITION 10,5:? "FILE BESTAAT NIET":TRAP 65000:POSITION 10,7:? "WILT} U TERUG NAAR MENU ?";:GET #2,K10015 PRINT CHR$(125);10020 IF K=74 OR K=106 THEN RETURN 10040 GOTO 301011000 REM ERROR TR}AP 211010 CLOSE #1:? "}";:POSITION 10,5:? "DEVICE BESTAAT NIET ":TRAP 65000:POSITION 10,7:? "WILT U TERUG NAAR MENU"11015 G}ET #2,K11020 IF K=74 OR K=106 THEN RETURN 11030 GOTO 401012000 TRAP 20:REM FILESPECIFICATIE ROUTINE ̦̐OSITION 11,1:PR}INT "FILESPECIFICATIE:";:POSITION 5,10:PRINT "DEVICE :";DEV$12020 POSITION 5,12:PRINT "FILENAAM :";FN$:POSITION 5,14:PRI}NT "EXTENSION :";EX$12030 POSITION 15,10:INPUT DEV$:POSITION 15,10:PRINT ":";12040 IF LEN(DEV$)=0 THEN DEV$="D1:":POSITION }16,10:PRINT DEV$;12050 POSITION 15,12:INPUT FN$:POSITION 15,12:PRINT ":";12060 IF LEN(FN$)=0 THEN FN$="TEMP":POSITION 16,12}:PRINT FN$;12070 POSITION 15,14:INPUT EX$:POSITION 15,14:PRINT ":";12080 IF LEN(EX$)=0 THEN EX$="DTA":POSITION 16,14:PRINT }EX$;12090 IF LEN(DEV$)=1 THEN DEV$(2)="1:"12095 IF DEV$(2,2)=":" THEN DEV$(2,2)="1"12100 IF LEN(DEV$)=2 THEN DEV$(3)=":"1}2105 IF DEV$(1,1)="Q" OR DEV$(1,1)="q" OR FN$(1,1)="Q" OR FN$(1,1)="q" OR EX$(1,1)="Q" OR EX$(1,1)="q" THEN POP :RETURN 1211}0 IF DEV$(1,1)<>"D" AND DEV$(1,1)<>"C" THEN GOTO 1203012115 FOR X=1 TO LEN(FN$)12120 IF FN$(X,X)>"Z" AND FN$(X,X)<"a" OR FN}$(X,X)>"z" OR FN$(X,X)<"A" AND FN$(X,X)<>" " AND FN$(X,X)<>"*" THEN 1205012130 IF FN$(X,X)>="a" THEN FN$(X,X)=CHR$(ASC(FN$(X},X))-32)12140 NEXT X12150 FOR X=1 TO LEN(EX$)12160 IF EX$(X,X)<"A" AND EX$(X,X)<>" " AND EX$(X,X)<>"*" OR EX$(X,X)>="Z" AN}D EX$(X,X)<"a" OR EX$(X,X)>"z" THEN 1207012170 IF EX$(X,X)>="a" THEN EX$(X,X)=CHR$(ASC(EX$(X,X))-32)12180 NEXT X12190 FILE}$=" ":FILE$=DEV$:FILE$(LEN(DEV$)+1)=FN$:FILE$(LEN(DEV$)+LEN(FN$)+1)="."12200 FILE$(LEN(DEV$)+LEN(FN$)+2)=EX$:R}ETURN 13000 REM OVERIGE KEUZES13010 POSITION 10,1:PRINT "DATABASE SYSTEM V1.00"13020 POSITION 12,6:PRINT "1. LADEN NIEUW P}ROGRAMMA":POSITION 12,8:PRINT "2. SAVEN PROGRAMMA":POSITION 12,1013030 PRINT "3. DIRECTORY INHOUD":POSITION 12,12:PRINT "4. }NAAR HOOFDMENU":POSITION 10,19:PRINT "UW KEUZE ";13040 POKE 764,255:TRAP 13060:GET #2,INV:INV=VAL(CHR$(INV))13050 IF INV=4} THEN RETURN 13055 TRAP 65000:IF INV<4 AND INV>0 THEN ON INV GOSUB 14000,15000,16000:PRINT CHR$(125):GOTO 1300013060 CLOSE }#2:OPEN #2,4,1,"K:":POSITION 20,18:GOTO 1304014000 TRAP 14000:REM LADEN NIEUW PROGRAMMA14010 PRINT CHR$(125);:POSITION 11,1}:PRINT "LADEN :":POSITION 5,10:PRINT "NAAM ";:INPUT I$14015 IF I$="" THEN RETURN 14020 LOAD I$14030 END 15000 REM SAVEN P}ROGRAMMA15010 PRINT CHR$(125);:POSITION 11,3:PRINT "SAVEN :":H$=DEV$:I$=FN$:HH$=EX$:FN$=" ":DEV$=FN$:EX$=FN$15020 TR}AP 17000:GOSUB 12000:POSITION 10,20:PRINT " ":SAVE FILE$:DEV$=H$:FN$=I$:TRAP 6500015030 EX$=HH$:RETURN 1600}0 TEL2=0:REM DIRECTORY INHOUD16005 PRINT CHR$(125);:TEL1=0:POSITION 11,1:PRINT "DIRECTORY :":POSITION 1,3:PRINT "C: NAAM } EXT. SIZE"16010 TRAP 16100:CLOSE #1:OPEN #1,6,0,"D:*.*"16020 INPUT #1,I$:IF I$(5,8)="FREE" THEN GOTO 1615016030 POSIT}ION 1,TEL1+5:PRINT I$(1,1);:POSITION 5,TEL1+5:PRINT I$(3,10);:POSITION 15,TEL1+5:PRINT I$(11,13);16040 POSITION 22,TEL1+5:PR}INT I$(15,17);16050 TEL1=TEL1+1:IF TEL1<11 THEN GOTO 1602016060 TEL1=1:TEL2=116065 INPUT #1,I$:IF I$(5,8)="FREE" THEN GOTO} 1615016070 POSITION 10,19:PRINT "DRUK OP RETURN ";:GET #2,INV:IF INV<>155 THEN GOTO 1607016080 FOR X=5 TO 19:POSITION 1,X:}PRINT " ":NEXT X:GOTO 1603016100 TRAP 65000:IF TEL1=0 AND TEL2=0 THEN POSITION 10,10:PRI}NT "(No members)"16110 CLOSE #1:RETURN 16150 POSITION 10,17:PRINT I$:POSITION 10,19:PRINT "DRUK OP EEN KNOP ";:GET #2,INV:G}OTO 1611017000 POSITION 10,20:PRINT "PROGRAM PROTECTED";:GOTO 1502030000 REM (C) 1986 M. van EckP EEN KNOP ";:GET #2,INV:Gc1 ------------------------------2 # START:POKE 752,1:GRAPHICS 03 K=6+DPEEK(741)4 SETCOLOR 2,2,4:SETCOLOR 1,2,105 SETCOLOR"} 0,2,10:POSITION 6,16 PRINT " BUREAU BELPER EN ATARI "7 POSITION 24,5:PRINT "PRESENTEREN"8 POSITION 5,7:PRINT "the "} ";9 PRINT " personal computer"10 POKE K+2,7:POKE K+6,6:POKE K+8,611 POKE K+9,7:POSITION 2,1012 FOR K=1 TO 513 RC"}=RAND(16)14 SETCOLOR 2,RC,215 SETCOLOR 4,RC+1,216 FOR A1=1 TO 25017 SOUND 0,A1,10,718 NEXT A1:POKE 755,2551"}9 FOR A=1 TO 25020 SOUND 0,255-A,10,521 NEXT A:POKE 755,022 NEXT K:POKE 77,023 SOUND 24 ------------------------"}------25 GRAPHICS 1026 FOR T=1 TO 128:PAUSE 527 FOR K=705 TO 71228 POKE K,RAND(255)29 NEXT K30 COLOR RAND(7)+"}131 PLOT RAND(79),RAND(191)32 DRAWTO 39,9533 NEXT T34 ------------------------------35 RESTORE #DATA1:A=036 WHILE A"}<25637 READ A:SOUND 0,A,10,8:PAUSE 538 WEND 39 # DATA140 DATA 29,31,35,40,45,47,53,60,6441 DATA 72,81,91,96,108,121,12"}8,14442 DATA 162,182,193,217,243,25643 ------------------------------44 P=6545 FOR J=10 TO 0 STEP -0.146 FOR V=1 TO J"}47 SOUND 0,P,12,V48 NEXT V:PAUSE 149 FOR V=2*J TO 1 STEP -150 SOUND 0,P,12,V51 NEXT V:PAUSE 152 NEXT J:SOU" }ND 53 ------------------------------54 GRAPHICS 2+1655 FOR B=0 TO 2056 FOR F=0 TO 1457 SETCOLOR 0,0,F58 SOUND" } 0,F,10,1059 NEXT F:PAUSE 560 NEXT B:SETCOLOR 0,0,14:SOUND 61 PAUSE 1062 ------------------------------63 SETCOLOR 0,0" },0:SETCOLOR 2,0,064 GRAPHICS 2+16:POSITION 6,565 PRINT #6;"oxygene"66 FOR P=1 TO 2067 FOR T=1 TO 1568 SETCOLOR 4,P" },269 FOR A=1 TO 1570 SOUND 0,P,T,A71 NEXT A:PAUSE 272 NEXT T:PAUSE 273 NEXT P74 FOR P=1 TO 1575 FOR " }T=1 TO 1576 FOR A=1 TO 1577 SOUND 0,A,T,P78 NEXT A:PAUSE 279 NEXT T:PAUSE 280 NEXT P81 FOR P=1 TO 1582"} FOR T=1 TO 1583 FOR A=15 TO 1 STEP -184 SOUND 0,P,T,A85 NEXT A:PAUSE 286 NEXT T:PAUSE 287 NEXT P88 F"}OR P=1 TO 1589 FOR T=1 TO 1590 FOR A=1 TO 1591 SOUND 0,T,P,A92 NEXT A:PAUSE 293 NEXT T:PAUSE 294 NEXT"} P95 FOR P=1 TO 1596 FOR T=1 TO 1597 FOR A=1 TO 1598 SOUND 0,T,P,A:SOUND 1,P,A,T99 SOUND 2,P,A,P100 "} NEXT A:PAUSE 2101 SOUND 3,A,A,A102 NEXT T:PAUSE 2103 NEXT P104 FOR P=1 TO 15105 FOR T=1 TO 15106 FOR A=1"} TO 15107 SOUND 0,T,A,P108 NEXT A:PAUSE 2109 NEXT T:PAUSE 2110 NEXT P111 ------------------------------112 "}P=65113 FOR J=10 TO 0 STEP -0.2114 FOR V=1 TO J115 SOUND 0,P,2,V116 NEXT V117 FOR V=2*J TO 1 STEP -1118 S"}OUND 0,P,2,V119 NEXT V120 NEXT J121 ------------------------------122 GRAPHICS 8+16:SETCOLOR 2,13,2123 SETCOLOR 1,13,1"}4:COLOR 1124 FOR P=0 TO 319 STEP 3125 PLOT P,0:DRAWTO 319-P,191126 NEXT P127 FOR P=191 TO 0 STEP -2128 PLOT 0,P:DRAW"}TO 319,191-P129 NEXT P:COLOR 0130 FOR P=80 TO 239 STEP 3131 PLOT P,70:DRAWTO 319-P,122132 NEXT P133 FOR P=122 TO 70 ST"}EP -2134 PLOT 80,P:DRAWTO 239,191-P135 NEXT P136 FOR X=1 TO 255137 POKE 710,X:PAUSE 2138 NEXT X139 GRAPHICS 8+16+32"}:SETCOLOR 1,7,3140 SETCOLOR 2,7,15:COLOR 1141 FOR P=0 TO 319 STEP 3142 PLOT P,0:DRAWTO 319-P,191143 NEXT P144 FOR P=19"}1 TO 0 STEP -2145 PLOT 0,P:DRAWTO 319,191-P146 NEXT P:COLOR 0147 FOR P=80 TO 239 STEP 3148 PLOT P,70:DRAWTO 319-P,122"}149 NEXT P150 FOR P=122 TO 70 STEP -2151 PLOT 80,P:DRAWTO 239,191-P152 NEXT P153 ------------------------------154 FO"}R V=0 TO 15155 FOR T=0 TO 255 STEP 5156 SOUND 0,T,10,V157 NEXT T158 NEXT V:SOUND 159 ---------------------------"}---160 GRAPHICS 9:SETCOLOR 4,15,0161 FOR Y=55 TO 0 STEP -10162 FOR X=0 TO 24163 C=X:IF X>11 THEN C=24-X164 C=C"}+3:Z=Y+X:X1=(X-12)*(X-12)165 D=SQR(144-X1) DIV 2166 COLOR 15-C167 PLOT Z,Y+7-D:DRAWTO Z,Y+7+D168 COLOR C:"}DRAWTO Z,180-Y+D169 NEXT X170 NEXT Y171 ------------------------------172 SOUND 0,128,4,8:A=0:C=0:D=99173 DEG :GRAPHIC"}S 8+16174 COLOR 1:SETCOLOR 2,0,0175 # SUB1:A=A+10:C=C+2:D=D+1.7176 TRAP #SUB2177 COLOR 0:PLOT C,SIN(A)*20+90178 COLOR 1:" }DRAWTO D,0:COLOR 0179 PLOT C,SIN(A)*20+90:COLOR 1180 DRAWTO D,191:GO# SUB1181 ------------------------------182 # SUB2:SO"!}UND :C=1:GRAPHICS 7+16183 FOR Q=1 TO 8184 E=RAND(300):D=RAND(300)185 C=1:COLOR C:B=39:A=79186 FOR S=1 TO D STEP E1""}87 FOR X=A TO B STEP -2188 PLOT 80,A-X189 DRAWTO 80+X,A DIV S190 DRAWTO 80,X191 DRAWTO 80-X,A"#} DIV S192 DRAWTO 80,A-X:COLOR C193 NEXT X:C=C+1194 NEXT S:SETCOLOR 0,T,2:T=T+1195 NEXT Q196 ----------------"$}--------------197 GRAPHICS 7+16198 FOR X=1 TO 5199 SETCOLOR 4,0,0200 SETCOLOR 1,0,4:COLOR 2201 PLOT 2,2:DRAWTO 30,"%}34202 DRAWTO 78,40:DRAWTO 100,57203 DRAWTO 110,50:DRAWTO 140,76204 FOR L=1 TO 255205 SOUND 0,L,8,10206 IF "&}L=8 THEN SETCOLOR 1,0,14207 NEXT L208 SETCOLOR 1,0,0:PAUSE 50209 NEXT X:SOUND 210 PAUSE 150:GO# START211 -----------"'}-------------------212 REM 213 REM 214 REM ήӠ"(}é215 REM 216 REM 217 REM 󠠠21")}8 REM 219 REM ؠ𠠠220 REM ȠϠ̠̠ΠĠ221 REM "*}222 REM 223 REM 224 REM "+}222 REM 223 REM 224 REM 1 REM ̠˭̠֮¨ө2 REM àϠ֮àҮ3 REM ʮ׮栴4 REM ӠҠ&-}̠ŠΛ5 REM î͠ŠҠծ6 REM ŠϠŠΠЛ7 REM ΠΠŠͯìś8 REM &.}ŠɠӠӛ9 REM ̠Ҡ͠ŠЮ10 REM Š˨Ү11 REM Š˨&/}Ү100 RESTORE 110 GRAPHICS 0:DIM A$(10)120 PRINT "GET DOS DISK READY FOR REV.B TO C"130 PRINT "AUTORUN.SYS FILE AND&0} PRESS RETURN"140 TRAP 500:INPUT A$150 OPEN #3,8,0,"D:AUTORUN.SYS"160 READ A:IF A<0 THEN 180170 PUT #3,A:GOTO 160180 CLO&1}SE #3:PRINT "** ALL DONE **"190 PRINT "SAVE THIS LOADER AS A BACKUP"200 PRINT "JUST IN CASE!":END 500 PRINT "ERROR # ";PEE&2}K(195);" AT LINE ";PEEK(186)+256*PEEK(187):CLOSE #3:END 1000 DATA 255,255,0,6,130,6,169,0,133,21010 DATA 169,6,133,3,173,25&3}0,3,240,1,961020 DATA 169,0,133,216,169,160,133,217,160,01030 DATA 173,1,211,41,253,141,1,211,177,2161040 DATA 72,173,1,21&4}1,9,2,141,1,211,1041050 DATA 145,216,230,216,208,228,230,217,165,2171060 DATA 201,192,208,220,162,0,169,12,133,2181070 DAT&5}A 160,0,189,95,6,133,216,232,189,951080 DATA 6,133,217,232,189,95,6,145,216,2321090 DATA 198,218,208,232,165,9,9,2,133,911&6}00 DATA 96,223,168,234,224,168,240,225,168,171110 DATA 226,168,234,41,187,0,243,191,0,2441120 DATA 191,0,245,191,0,246,191,&7}0,247,1911130 DATA 0,248,191,0,249,191,0,226,2,2271140 DATA 2,0,6,-1187,0,243,191,0,2441120 DATA 191,0,245,191,0,246,191,$G10 REM Ǡ̠50 REM Copyright (C) 1982 by David Fox and Mitchell Waite70 DIM PLR0$(128):GOTO 140100 REM *9}110 HIBYTE=INT(X/256)120 LOBYTE=X-HIBYTE*256130 RETURN 140 REM 150 DIM BLANK$(128),PLR(3)*:},HPLR(3)160 BLANK$(1)=CHR$(0):BLANK$(128)=CHR$(0):BLANK$(2)=BLANK$170 GRAPHICS 3:POKE 752,1:PRINT "One moment please..."19*;}0 GOSUB 5000220 GOSUB 7000230 GOSUB 9000240 GOSUB 10000300 ? "} Ǡ̠Ϡ"310 VEL=70:ELASTIC=0.832*<}0 PRINT "Initial velocity: ";VEL:PRINT " Elasticy: ";ELASTIC400 REM 410 BOTTOM=91:XPOS=40:TIME=0.5:HORIZ*=}=0.75420 GOSUB 700430 IF ELASTIC<=0.1 THEN SNDFLAG=1440 YPOS=BOTTOM-(VEL*TIME-16*TIME*TIME):FRMNO=1450 IF YPOS>82 AND VEL*>}>30 THEN FRMNO=2460 IF YPOS>=BOTTOM THEN YPOS=BOTTOM:VEL=VEL*ELASTIC:TIME=0:FRMNO=1:IF VEL>14 THEN FRMNO=3470 IF XPOS>220 O*?}R YPOS<=1 THEN 600480 POKE HPLR(0),XPOS490 FRAME$=FRAMEMEM$((FRMNO-1)*FRMSIZE+1,FRMNO*FRMSIZE)500 BUFFER$=BLANK$510 BUFFE*@}R$(YPOS,YPOS+FRMSIZE-1)=FRAME$520 PLR0$=BUFFER$530 XPOS=XPOS+HORIZ540 IF YPOS=BOTTOM AND (VEL+SNDFLAG>0.5) THEN SOUND 1,25*A}0,10,14:SNDFLAG=0:SOUND 1,0,0,0550 IF VEL>0.5 THEN TIME=TIME+0.15:GOTO 440560 HORIZ=HORIZ-0.01:IF HORIZ>0 THEN FRMNO=1:GOTO*B} 470600 REM 610 GOSUB 700620 POKE 752,0630 PRINT "}Enter initial velocity: ";640 TRAP 630:INPUT V*C}EL650 PRINT "Enter the ball's elasticity(a number":PRINT " from 0-1[or more]): ";660 INPUT ELASTIC670 POKE 752,1:PRINT " *D}";680 TRAP 40000:GOTO 400700 REM 򠰠710 POKE HPLR(0),0730 RETURN 5000 REM *E}5100 READ FRAMES,FRMSIZE,NUMPLRS5120 PLRFRMMEM=FRAMES*FRMSIZE5130 FRAMEMEM=PLRFRMMEM*NUMPLRS5170 DIM BUFFER$(128),FRA*F}ME$(FRMSIZE),FRAMEMEM$(FRAMEMEM)5360 RETURN 7000 REM 7010 TEMP=PEEK(106)-87020 POKE 542*G}79,TEMP7030 PMBASE=256*TEMP7040 FOR I=0 TO 37050 PLR(I)=PMBASE+128*I+5127060 HPLR(I)=53248+I7070 NEXT I7080 POKE 559,42*H}7090 POKE 704,12*16+87100 POKE 53277,27120 RETURN 9000 REM Ұ򠰠͛9010 STARP=PEEK(140)+PEEK(141)*256*I}9020 VVTP=PEEK(134)+PEEK(135)*2569030 OFFSET=PLR(0)-STARP9040 X=OFFSET:GOSUB 1109050 POKE VVTP+2,LOBYTE9060 POKE VVTP+3,*J}HIBYTE9070 RETURN 10000 REM 10090 FOR J=1 TO PLRFRMMEM10100 READ BYTE10110 FRAMEMEM$(J,J)=CHR$(BYTE)1*K}0120 NEXT J10130 RETURN 20000 REM 20060 DATA 3,7,121020 DATA 0,60,126,126,126,60,021040 DATA 24,60,60,60,60,60*L},2421060 DATA 0,0,0,126,255,126,0 20060 DATA 3,7,121020 DATA 0,60,126,126,126,60,021040 DATA 24,60,60,60,60,60(#0 REM *** BREAKTHRU ***10 DIM A$(5):GOTO 5020 RESTORE D:TRAP 4030 FOR X=A TO A+400:READ D:POKE X,D:NEXT X40 POP :RETURN .N}50 RESTORE 50:READ N,N1,N2,N3,N4,N5,N6,N7,N8,N9,N10,N11,N12,N16,N20,F,W,KB,CSL:DATA 0,1,2,3,4,5,655 DATA 7,8,9,10,11,12,16,2.O}0,255,256,764,5327959 REM SET TOP OF RAM60 R=INT(PEEK(740)/N4)*N4:POKE 106,R:GRAPHICS N20+N2:POKE 106,R-N8:RT=R*W70 VBI=RT.P}-180:VBD=RT-360:PLR=RT-512:MSL=RT-640:MAIN=RT-960:DLI=RT-1080:PMB=R-N4:INIT=RT-1024:DL=RT-115080 GRAPHICS N2+N16:GOSUB 4500:.Q}POSITION N6,N5:? #6;"breakthru":POSITION N1,N7:? #6;"WRITTEN BY G. RYAN"90 D=5500:A=VBI:GOSUB N20:D=6500:A=VBD:GOSUB N20100.R} D=5000:A=MAIN:GOSUB N20:D=7500:A=DLI:GOSUB N20110 D=6000:A=1024:GOSUB N20:D=8000:A=1760:GOSUB N20:D=7000:A=INIT:GOSUB N201.S}19 REM SELECT GAME SCREEN120 GRAPHICS N2+N16:GOSUB 4500:SETCOLOR N,N7,N6:SETCOLOR N1,N3,N8:SETCOLOR N2,13,N10:SETCOLOR N3,N1.T}0,N12:G=N130 T=N:? #6;" SCORE:";SC;:POKE 85,13:? #6;"ɺ";HS:POSITION N5,N3:? #6;""140 ? #6:? #6;" press option/s.U}elect"150 ? #6;" ϮƠӺ3":B=N3:L=N7:D=N:POKE 764,62:POSITION N8,N9:? #6;"BREAKOUT"160 GOSUB 4000:C=PEEK(CSL):X=ST.V}RIG(N):IF C=N5 OR C=N6 OR X=N THEN 190170 D=D-0.2:D=D*(D>N):SOUND N,F,N10,D:SOUND N1,F-N1,N10,D:IF D>N9 THEN 160175 IF PEEK.W}(KB)=58 THEN 3500180 GOTO 160190 IF C=N6 OR X=N THEN 230200 IF D>N9 THEN 170210 D=N10:B=B+N1:IF B>N5 THEN B=N1220 POSITI.X}ON 17,N7:? #6;B:GOTO 160230 POKE 53761,N:POKE 53763,N:B=B+N1:GOSUB 4020:GOSUB 3550240 POKE 205,N:POKE 203,MSL-INT(MSL/W)*W:.Y}POKE 204,INT(MSL/W):GOSUB 4100250 POKE 208,N:POKE 209,N6:POKE 21,120:POKE 22,N1:POKE 24,76:POKE 25,44:POKE 26,N:POKE 82,N:PO.Z}KE 83,39260 POKE 27,N1:POKE 1024,N1:POKE 1025,N1:POKE 1026,N:POKE 1027,N16270 POKE 1038,N2:POKE 1039,N2:POKE 1046,B:POKE 17.[}84,B+N16:POKE 1047,N:POKE 1048,96279 REM SETUP DLIST280 GRAPHICS N4:POKE 559,N:GOSUB 4500:COLOR N1:FOR A=N TO N3:PLOT N4+A,.\}N:DRAWTO N4+A,39:PLOT 72+A,N290 SETCOLOR 0,N7,N8:DRAWTO 72+A,39:NEXT A:POKE DL,112:POKE DL+N1,112:POKE DL+N2,112:SETCOLOR N1.]},N11,N8300 PLOT N4,N:DRAWTO 72,N:POKE DL+N3,73:POKE DL+N4,PEEK(88):POKE DL+N5,PEEK(89):SETCOLOR N3,N3,N8310 FOR A=DL+N6 TO .^}DL+N11:POKE A,N9:NEXT A:POKE DL+N12,137:IF G=N3 THEN POKE 1048,N320 POKE DL+13,202:POKE DL+14,N:POKE DL+15,N6:FOR A=DL+N16 T._}O DL+N16+N5:POKE A,138:NEXT A330 POKE DL+21,201:A=PEEK(88)+PEEK(89)*W+150:POKE DL+22,A-INT(A/W)*W:POKE DL+23,INT(A/W)340 FO.`}R A=DL+24 TO DL+48:POKE A,N9:NEXT A:POKE DL+49,70:POKE DL+50,234:POKE DL+51,N6350 POKE DL+52,70:POKE DL+53,PEEK(660):POKE DL.a}+54,PEEK(661):POKE DL+55,N6:POKE DL+56,65360 POKE DL+57,DL-INT(DL/W)*W:POKE DL+58,INT(DL/W):POKE 560,PEEK(DL+57):POKE 561,PE.b}EK(DL+58):POKE 559,46370 FOR A=1536 TO 1636 STEP N20:POKE A,N:POKE A+19,N:POKE A+N1,85:POKE A+18,85380 FOR X=A+N2 TO A+N16+.c}N1:POKE X,F:NEXT X:NEXT A400 POKE 54279,PMB:POKE 53277,N3:POKE 704,86:POKE 705,184:POKE 623,N4405 IF G=N3 THEN POKE 1026,N1.d}410 POKE PLR+84,F:POKE PLR+85,F:POKE 53256,N1:POKE 53248,120:POKE 53260,N420 POKE 656,N:POKE 658,N:POKE 657,25:? "hi score .e}";HS;425 IF G=N3 THEN POKE 657,24:? " demo mode "430 POKE 54286,F:POKE 205,N1:X=USR(INIT,DLI,VBI,VBD,MAIN):SOUND N,N,N,N.f}:SOUND N1,N,N,N440 POKE 205,N:POKE 656,N:POKE 658,N:POKE 657,N6:? " ";:POKE 657,24:? " PRESS start ";450 IF PEEK.g}(CLS)=N3 THEN POKE 657,N4:? ""460 FOR X=N1 TO N4:A$(X,X)=CHR$(PEEK(1776+X)+32):NEXT X:SC=VAL(A$(N1,N4)):IF SC>HS.h} AND G<>N3 THEN HS=SC470 IF PEEK(CSL)<>N6 THEN 470480 FOR X=53248 TO 53255:POKE X,N:NEXT X:POKE 53277,N490 GOTO 110999 GO.i}TO 9993499 REM GAME OPTIONS3500 RESTORE 3510:FOR A=VBD+21 TO VBD+25:READ D:POKE A,D:NEXT A:POKE 1029,N:POKE 1030,N:GOSUB 40.j}20:G=N33510 DATA 173,10,210,41,73520 POKE VBD+158,21:SOUND N,N,N,N:SOUND N1,N,N,N:POKE 1029,N:POKE 1030,N:GOTO 2403550 RES.k}TORE 3560:FOR A=VBD+21 TO VBD+25:READ D:POKE A,D:NEXT A:POKE VBD+158,603560 DATA 165,24,56,229,21,1703570 RETURN 4000 X=PE.l}EK(KB):POSITION N3,N9:IF X=56 THEN ? #6;"":G=N1:GOTO 40704010 IF X=62 THEN ? #6;"slow":G=N:GOTO 40704015 GOTO 40704020.m} IF G=N1 THEN 40504030 POKE 1029,N2:POKE 1030,254:POKE 1042,255:POKE 1043,N14040 GOTO 40704050 POKE 1029,N3:POKE 1030,253:.n}POKE 1042,254:POKE 1043,N24070 IF PEEK(CSL)<>N3 THEN RETURN 4080 T=(T=N):POSITION N8,N9:IF T=N THEN ? #6;"BREAKOUT ":GOTO.o} 40954090 IF T=N1 THEN ? #6;"BREAKTHRU":GOTO 40954095 FOR X=N1 TO 30:NEXT X:RETURN 4100 IF T=N THEN 41504110 POKE VBD+66,.p}234:POKE VBD+67,234:POKE VBD+112,N:RETURN 4150 POKE VBD+66,208:POKE VBD+67,84:POKE VBD+112,N1:RETURN 4500 POKE N16,64:POKE .q}53774,64:RETURN 4999 REM MAIN ROUTINE5000 DATA 173,24,4,208,126,133,205,169,96,141,24,4,234,234,234,169,255,160,16,153,1,6,.r}153,21,65005 DATA 153,41,6,153,61,6,153,81,6,153,101,6,136,208,235,133,22,200,132,27,169,16,174,253,65010 DATA 232,224,26,1.s}76,5,142,253,6,208,19,141,253,6,174,252,6,232,224,26,176,5,142,252,6,2085015 DATA 3,141,252,6,162,8,142,3,4,202,189,115,4,15.t}7,41,4,189,123,4,157,57,4,202,208,2415020 DATA 160,0,152,140,8,208,162,3,157,25,4,202,208,250,169,1,162,3,157,29,4,202,208,2.u}50,1695025 DATA 188,141,9,4,133,205,174,23,4,240,71,169,16,172,244,6,200,192,26,176,5,140,244,6,2085030 DATA 51,141,244,6,1.v}72,243,6,200,192,26,176,5,140,243,6,208,35,141,243,6,172,242,6,200,1925035 DATA 26,176,5,140,242,6,208,19,141,242,6,172,241,.w}6,200,192,26,176,5,140,241,6,208,3,1415040 DATA 241,6,206,23,4,208,187,173,2,4,208,54,133,205,160,127,145,203,136,208,251,20.x}6,248,6,2065045 DATA 22,4,240,59,169,1,133,27,169,76,133,24,169,48,133,25,169,0,133,26,169,4,141,14,45050 DATA 141,15,4,133.y},22,141,2,4,172,132,2,208,251,200,132,205,173,31,208,41,4,208,3,133,2055055 DATA 96,174,132,2,189,12,4,141,0,4,108,95,4,96,-.z}15499 REM IMMEDIATE VBLANK5500 DATA 216,206,1,4,208,27,173,0,4,141,1,4,173,120,2,74,74,41,3,170,173,21,0,24,125,45505 DATA.{} 4,221,8,4,240,2,133,21,165,21,133,21,141,0,208,165,205,208,3,76,95,228,206,16,4,208,325510 DATA 173,14,4,141,16,4,165,24,16.|}6,26,24,125,18,4,221,20,4,240,4,133,24,208,9,165,265515 DATA 73,1,133,26,32,97,4,164,25,169,0,145,203,200,145,203,165,24,141.}},5,208,206,17,4,2085520 DATA 20,173,15,4,141,17,4,165,25,166,27,24,125,18,4,133,25,201,19,144,31,164,25,169,2555525 DATA 14.~}5,203,200,145,203,192,92,144,5,169,0,141,2,4,206,114,4,208,5,162,0,142,1,210,765530 DATA 95,228,162,1,134,27,202,134,22,32,9.}7,4,24,144,212,-15999 REM TABLES6000 DATA 1,1,1,16,0,2,254,0,0,180,60,0,2,1,2,2,2,2,255,1,64,190,3,0,96,0,0,0,0,0,0,0,0,1,1.},1,1,1,1,1,16005 DATA 1,1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,3,3,2,2,1,1,1,1,1,1,1,1,2,2,3,3,2,22,42,62,82,1026010 DATA 0,0,10,8,5.},3,2,1,140,150,156,163,134,183,179,1676015 DATA 0,0,169,199,141,0,210,169,201,141,1,210,169,5,141,114,4,96,0,06020 DATA 1,1.},2,3,3,2,1,1,2,1,1,1,1,1,1,2,-16499 REM DEFFERRED VBLANK6500 DATA 169,0,133,59,165,205,208,3,76,98,228,165,25,201,82,208,47.},165,27,240,43,165,24,56,2296505 DATA 21,170,236,3,4,176,32,189,41,4,141,14,4,141,16,4,189,57,4,141,15,4,141,17,46510 DATA .}169,0,133,22,133,27,189,25,4,133,26,32,97,4,165,22,208,84,165,25,201,44,176,78,2016515 DATA 32,144,74,24,105,224,74,170,189,.}73,4,133,208,134,0,165,24,24,105,192,74,74,74,168,1776520 DATA 208,240,49,133,22,169,0,145,208,165,27,73,1,133,27,173,10,210.},41,7,170,189,87,4,1416525 DATA 0,210,169,167,141,1,210,169,5,141,114,4,206,24,4,166,0,189,81,4,24,109,23,4,1416530 DATA 23.},4,165,24,56,233,3,133,60,76,98,228,-16999 REM INITALIZING ROUTINE7000 DATA 104,169,0,141,14,212,104,141,1,2,104,141,0,2,10.}4,141,35,2,104,141,34,2,104,141,377005 DATA 2,104,141,36,2,104,141,96,4,104,141,95,4,169,192,141,14,212,133,205,108,95,4,-1.}7499 REM DLIST INTERRUPT7500 DATA 72,152,72,164,59,192,7,208,4,160,0,132,59,185,224,6,141,10,212,141,24,208,200,132,597505 .}DATA 104,168,104,64,-17999 REM TABLES8000 DATA 252,250,248,246,244,242,244,0,0,0,0,243,227,239,242,229,218,16,16,16,16,0,98.},90,16,0,183,154,16,178005 DATA -1ES8000 DATA 252,250,248,246,244,242,244,0,0,0,0,243,227,239,242,229,218,16,16,16,16,0,98,$20 REM 30 DIM STRING$(70),SCREENINZ$(9),TEMP$(10)40 REM 50 REM ****** MOVE SCREEN DATA ******60 REM 70 FOR I=1 TO 9:READ2} J:SCREENINZ$(I)=CHR$(J):NEXT I80 DATA 104,104,104,133,106,32,246,243,9690 IF PEEK(106)<=128 THEN GOTO 150100 X=USR(ADR(SC2}REENINZ$),128)110 REM 120 REM ****** LOAD SPECIAL *****130 REM ****** DISK INTERFACE *****140 REM 150 ? "}":POKE 752,12}:? "CREATING DISK INTERFACE:";:GOSUB 1540:RESTORE 160:POKE 82,1160 PRINT CHR$(125):GOTO 890890 PRINT " ŭϭ2}٠"895 ? :? " * INSERT DESTINATION DISK IN DRIVE #1."900 POSITION 2,5:? "* ENTER DESTINATION FILE NAME":? :? " 2} Šı";:INPUT STRING$:IF LEN(STRING$)>15 THEN 900910 IF LEN(STRING$)=0 THEN GOTO 900920 IF STRING$(1,3)<>"D1:" THEN2} POSITION 17,7:? " ":? :? " ŠıΠŠŮ":GOTO 900940 STRING$(LEN(STRING$)+1)=CHR$(155)950 RE2}M 960 REM ****** OPEN FILE *******970 REM 980 OPEN #1,8,0,STRING$990 FOR I=1 TO 6:READ J:STRING$(I)=CHR$(J):NEXT I1000 R2}EM 1010 REM ***** WRITE FILE HEADER *****1020 REM 1030 DATA 255,255,0,96,255,1271040 X=USR(1538,ADR(STRING$),ADR(STRING$)2}+6)1050 IF X=1 THEN GOTO 10701060 PRINT "ERROR ";X:CLOSE #1:STOP 1070 J=128:PRINT :PRINT "LEFT OR RIGHT CARTRIDGE (L or R)2}"1072 PRINT "('L' FOR BASIC - 'R' FOR ANY OTHER)"1075 INPUT TEMP$:IF TEMP$(1)="L" THEN J=1601080 PRINT :PRINT "IF YOU HAVE2} THE CORRECT CARTRIDGE"1090 PRINT "IN THE CORRECT SLOT - PRESS [RETURN]":INPUT TEMP$1095 ? :? "ǠŠϠ"12}100 REM 1110 REM **** WRITE CARTRIDGE ******1120 REM 1130 X=USR(1538,J*256,(J+32)*256)1140 IF X<>1 THEN GOTO 10601150 ? 2}"ǠԠŠ"1160 REM ***** WRITE BOOT ROUTINE ****1170 REM ***** AND AUTORUN VECTOR ****1180 REM 1190 FOR 2}I=1 TO 62:READ J:STRING$(I)=CHR$(J):NEXT I1195 ? "ǠΠҠ"1200 X=USR(1538,ADR(STRING$),ADR(STRING$)+62)12}210 CLOSE #11440 ? "٠̠":END 1450 DATA 0,6,51,61460 DATA 165,106,201,144,144,42,169,1441470 DATA 12}33,106,32,246,243,173,0,961480 DATA 238,14,6,208,3,238,15,61490 DATA 141,0,160,238,25,6,208,2371500 DATA 238,26,6,169,192,2}77,26,61510 DATA 208,227,32,49,6,108,250,1911520 DATA 96,108,254,1911530 DATA 224,2,225,2,0,61540 RESTORE 15501550 READ 2}N,N2:FOR K=N TO N2:POSITION 27,1:? "";:POKE 53279,0:READ Q:POKE K,Q:POSITION 27,1:? "X";:NEXT K:RETURN 1560 DATA 1536,16612}1570 DATA 0,0,104,169,11,141,82,31580 DATA 169,128,141,84,3,169,6,1411590 DATA 85,3,104,133,213,104,133,2121600 DATA 56,102}4,170,104,229,212,141,01610 DATA 6,138,229,213,141,1,6,1621620 DATA 125,173,0,6,56,233,125,1411630 DATA 0,6,173,1,6,233,0,2}1411640 DATA 1,6,176,7,24,173,0,61650 DATA 105,125,170,138,168,136,48,81660 DATA 177,212,153,128,6,24,144,2451670 DATA 132}8,101,212,133,212,169,0,1011680 DATA 213,133,213,138,141,88,3,1691690 DATA 0,141,89,3,162,16,32,861700 DATA 228,16,10,173,2}83,3,133,2121710 DATA 169,0,133,213,96,169,255,771720 DATA 1,6,208,171,240,2371,89,3,162,16,32,861700 DATA 228,16,10,173,0Q10 POKE 106,87:GRAPHICS 0:POKE 53251,020 POKE 712,148:DIM D$(13),Z$(272)30 D$=" PNLTDK  "40 OPEN #1,4,0,"K":POKE 752,16}50 POKE 82,0:POSITION 17,1:? "SCHAAK"60 POSITION 14,3:? "John Krause"70 FOR I=1 TO 269 STEP 4:READ K:FOR J=0 TO 3:Z$((I+J)6},(I+J))=CHR$(K+J):NEXT J:NEXT I:Z$(60,60)=CHR$(0)80 Z$(17,20)=" ":Z$(232,232)=CHR$(128):Z$(267,268)=" "90 FOR I=1591 TO6} 1598:POKE I,192:NEXT I100 FOR I=1599 TO 1718:POKE I,7:NEXT I110 FOR I=1620 TO 1697:READ J:POKE I,J:NEXT I120 ? "GEEF MO6}EILIJKHEIDSGRAAD (1-5)"130 GET #1,A:IF A<49 OR A>53 THEN 130140 POKE 1536,A-48150 ? " NIEUW SPEL OF SPEL OPZETTEN?"166}0 GET #1,E:IF E<49 OR E>50 THEN 160165 IF E=50 THEN ? "P = PION N = PAARD":? "L = LOPER T = TOREN":? "D = DAME K6} = KONING"166 IF E=50 THEN ? "* GEBRUIK DE -TOETS VOOR DE ZWARTE STUKKEN."167 IF E=50 THEN ? "* DRUK DE 6}Š VOOR START."168 IF E=50 THEN ? "* GEBRUIK DE ŭ OP EEN ZET ONGEDAAN TE MAKEN."170 ? "Computer TEGEN6} JOUW OF ZICHZELF?"180 GET #1,A:IF A<49 OR A>50 THEN 180190 POKE 1537,0:B=50:IF A=50 THEN POKE 1537,16:B=49:GOTO 22026}00 ? "WIL JE DE WITTE OF ZWARTE STUKKEN?"210 GET #1,B:IF B<49 OR B>50 THEN 210220 IF PEEK(24304)<>96 THEN GOSUB 340236}0 I=USR(24333):GOSUB 420:GOSUB 1100240 IF A=49 AND B=49 THEN 280250 IF E=50 THEN GOSUB 660260 GOTO 290270 IF A=50 THEN 296}0280 POKE 53251,16*C+64:GOSUB 1100:GOSUB 660:POKE 1537,0290 POKE 77,0:I=USR(24333):I=USR(23590):IF PEEK(1591)<229 AND PEEK(6}1591)>150 THEN I=0:GOTO 990300 J=PEEK(1587)+1599:R=INT(J/10-162):C=J-1620-10*R:GOSUB 860310 J=PEEK(1588)+1599:R=INT(J/10-166}2):C=J-1620-10*R:GOSUB 910320 IF PEEK(1591)<99 AND PEEK(1591)>27 THEN I=1:GOTO 990330 GOTO 270340 ? "GEBRUIK DE ŭ6} OP EEN ZET ONGEDAAN TE MAKEN."341 ? "EVEN WACHTEN A.U.B...."350 FOR I=1538 TO 1545:READ J:POKE I,J:NEXT I360 FOR6} I=24320 TO 24352:READ J:POKE I,J:NEXT I370 FOR I=0 TO 391:READ J:POKE 22528+I,J380 POKE 203,J:M=USR(1538):POKE 22920+I,PEE6}K(204):NEXT I390 FOR I=0 TO 207:POKE 23312+I,PEEK(57608+I):NEXT I400 FOR I=0 TO 39:POKE 23512+I,PEEK(57480+I):NEXT I410 FO6}R I=23552 TO 24304:READ J:POKE I,J:NEXT I:RETURN 420 GRAPHICS 0:POKE 756,88:POKE 82,4:? 430 POKE 559,46:POKE 53277,3440 PO6}KE 53251,64:POKE 707,216450 POKE 53259,1:POKE 54279,92460 POKE 623,1470 DL=PEEK(560)+256*PEEK(561)480 POKE DL+3,68490 FO6}R I=DL+6 TO DL+28:POKE I,4:NEXT I500 POKE DL+6,2510 POKE I,65:POKE I+1,0:POKE I+2,DL/256520 POKE 708,39:POKE 710,0:POKE 716}1,15:POKE 712,37530 IF B=50 THEN POKE 710,15:POKE 711,0:POKE 1623,6:POKE 1624,5:POKE 1693,250:POKE 1694,251540 POSITION 16,6}1:? "mfwfm":POKE 21374,PEEK(1536)+122550 IF E=49 THEN 580560 FOR I=0 TO 70 STEP 10:FOR J=0 TO 7:POKE 1620+I+J,0:NEXT J:NEXT6} I570 ? :GOSUB 1110:GOSUB 1110:RETURN 580 ? :? Z$(1,32):? Z$(33,64):? Z$(65,96):? Z$(97,128)590 POKE 21454,91:POKE 21455,96}2600 GOSUB 1110610 ? Z$(129,160):? Z$(161,192):? Z$(193,224):? Z$(225,256)620 IF B=49 THEN RETURN 630 POSITION 16,3:? Z$(6}257,264)640 POSITION 16,17:? Z$(265,272);CHR$(29)650 POKE 22010,219:POKE 22011,220:RETURN 660 IF PEEK(764)=255 OR F THEN 76}40670 N=0:GET #1,D680 IF D$(N+1,N+1)=CHR$(D) THEN 710690 N=N+1:IF N<13 THEN 680700 GOTO 740710 J=1620+C+10*R:IF N>6 THEN6} N=262-N720 IF N THEN GOSUB 920:GOTO 740730 GOSUB 870:FOR I=0 TO 1:FOR P=0 TO 3:POKE K+40*I+P,M:NEXT P:NEXT I740 J=STICK(06})750 IF (J=7 OR J=5 OR J=6) AND C<7 THEN C=C+1:POKE 53251,16*C+64760 IF (J=11 OR J=9 OR J=10) AND C>0 THEN C=C-1:POKE 532516},16*C+64770 IF (J=14 OR J=10 OR J=6) AND R<7 THEN I=USR(24333):R=R+1:GOSUB 1100780 IF (J=13 OR J=5 OR J=9) AND R>0 THEN I=U6}SR(24333):R=R-1:GOSUB 1100790 IF STRIG(0)=1 THEN 660800 J=1620+C+10*R810 IF F THEN 900820 IF PEEK(J)=0 OR PEEK(J)>6 THEN 6}660830 F=1:GOSUB 860840 IF STRIG(0)=1 THEN 660850 GOTO 840860 SOUND 0,99,10,8870 K=21996-80*R+4*C:N=PEEK(J):POKE J,08806} M=48:IF (R+C)/2-INT((R+C)/2) THEN M=97890 SOUND 0,0,0,0:RETURN 900 F=0910 FOR I=0 TO 1:FOR P=0 TO 3:POKE K+40*I+P,M:NEXT 6}P:NEXT I920 K=21996-80*R+4*C930 M=120:IF (R+C)/2-INT((R+C)/2) THEN M=169940 IF R=0 AND N=255 THEN N=251950 IF R=7 AND N=16} THEN N=5960 POKE J,N:IF N>6 THEN N=256-N:M=M-128970 FOR I=0 TO 1:FOR J=0 TO 3:POKE K+40*I+J,M+8*N+4*I+J:NEXT J:NEXT I980 6}RETURN 990 IF PEEK(1537) THEN I=I+11000 POKE DL+25,2:POKE DL+26,2:POKE DL+27,21010 I=I+B:POSITION 4,20:? "difdlnbuf":POSIT6}ION 26,201020 IF I/2-INT(I/2) THEN ? "cmbdlPxjot":GOTO 10401030 ? "xijufPxjot"1040 SOUND 0,50,10,12:FOR I=0 TO 50:NEXT I16}050 SOUND 0,100,10,12:FOR I=0 TO 50:NEXT I1060 SOUND 0,0,0,01070 POSITION 9,22:? "qsfttPkpztujdlPcvuupo"1080 IF STRIG(0) T6}HEN 10801090 RUN 1100 POKE 24326,212-8*R:I=USR(24320):RETURN 1110 FOR I=1 TO 2:FOR J=1 TO 21120 ? "aaaaPPPPaaaaPPPPaaaaPP6}PPaaaaPPPP"1130 NEXT J:FOR J=1 TO 21140 ? "PPPPaaaaPPPPaaaaPPPPaaaaPPPPaaaa"1150 NEXT J:NEXT I:RETURN 1160 DATA 9,40,1,646},64,48,89,56,13,44,5,68,21,52,93,601170 DATA 32,81,32,81,32,81,32,81,36,85,36,85,36,85,36,851180 DATA 209,160,209,160,209,16}60,209,160,213,164,213,164,213,164,213,1641190 DATA 184,217,176,145,200,129,168,137,188,221,180,149,204,133,172,1411200 DAT6}A 72,17,153,1921210 DATA 4,2,3,5,6,3,2,4,7,7,1,1,1,1,1,1,1,1,71220 DATA 7,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,71230 DATA 76},0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,71240 DATA 7,255,255,255,255,255,255,255,255,71250 DATA 7,252,254,253,251,250,253,254,6}2521260 DATA 165,203,9,85,133,204,104,961270 DATA 160,8,185,25,95,153,0,95,136,16,247,104,961280 DATA 160,128,169,0,153,126}8,95,136,16,250,104,961290 DATA 255,129,129,129,129,129,129,2551300 DATA 0,0,0,0,0,0,0,01310 DATA 0,0,0,3,15,15,3,151320 6}DATA 0,0,0,192,240,240,192,2401330 DATA 0,0,0,0,0,0,0,01340 DATA 0,0,0,0,0,0,0,01350 DATA 3,3,15,63,63,0,0,01360 DATA 1926},192,240,252,252,0,0,01370 DATA 0,0,0,0,0,0,0,01380 DATA 0,0,0,0,3,3,3,31390 DATA 0,192,240,255,255,63,255,2551400 DATA 06},0,0,0,240,252,252,2551410 DATA 0,0,0,0,0,0,0,01420 DATA 15,15,3,0,0,0,0,01430 DATA 255,243,3,15,63,255,255,01440 DATA 256}5,255,255,255,255,255,255,01450 DATA 0,192,192,192,192,192,192,01460 DATA 0,0,0,0,0,0,0,01470 DATA 0,60,60,255,255,255,2556},2551480 DATA 0,60,60,63,207,243,243,2431490 DATA 0,0,0,0,0,0,0,01500 DATA 0,0,0,0,15,63,48,01510 DATA 63,48,63,48,255,256}2,0,01520 DATA 252,12,252,12,255,63,0,01530 DATA 0,0,0,0,240,252,12,01540 DATA 0,3,3,3,0,0,0,01550 DATA 0,207,207,255,1926},255,255,2551560 DATA 0,243,243,255,3,255,255,2551570 DATA 0,192,192,192,0,0,0,01580 DATA 0,0,0,0,3,15,15,01590 DATA 255,6}255,255,192,255,255,255,01600 DATA 255,255,255,3,255,255,255,01610 DATA 0,0,0,0,192,240,240,01620 DATA 0,0,0,0,48,48,12,126}1630 DATA 0,48,48,48,48,252,252,2521640 DATA 0,48,48,48,48,252,252,2521650 DATA 0,0,0,0,48,48,192,1921660 DATA 15,3,3,3,36},3,3,01670 DATA 255,0,255,252,255,0,255,01680 DATA 255,3,255,255,255,3,255,01690 DATA 192,0,0,0,0,0,0,01700 DATA 0,0,0,156},63,63,63,151710 DATA 0,63,51,60,243,255,240,2521720 DATA 0,240,48,243,63,255,63,2551730 DATA 0,0,0,192,240,240,240,192176}40 DATA 15,3,3,3,3,3,3,01750 DATA 255,0,255,252,255,0,255,01760 DATA 255,3,255,255,255,3,255,01770 DATA 192,0,0,0,0,0,0,06}1780 DATA 0,0,0,0,0,0,0,01790 DATA 21,12,248,237,235,244,8,19,10,11,1,247,246,2451800 DATA 255,9,11,247,245,9,10,1,246,255,6}46,9,5,3,3,1,0,11810 DATA 3,3,5,9,46,120,169,192,141,55,6,162,0,142,54,61820 DATA 202,142,53,6,76,8,93,189,35,6,24,125,43,66},72,1681830 DATA 185,63,6,188,35,6,153,63,6,104,168,189,3,6,153,631840 DATA 6,24,105,6,168,174,0,6,169,0,157,56,6,174,53,66}1850 DATA 185,24,92,56,253,56,6,168,169,192,157,56,6,1521860 DATA 224,0,208,34,221,55,6,48,28,208,11,173,10,210,2051870 DAT6}A 54,6,144,18,141,54,6,140,55,6,173,35,6,141,51,6,1731880 DATA 43,6,141,52,6,96,221,55,6,48,250,240,248,152,1571890 DATA 556},6,189,2,6,24,105,6,168,185,24,92,56,253,55,61900 DATA 221,54,6,48,59,224,1,240,221,221,54,6,240,50,961910 DATA 189,35,6,246},125,43,6,141,2,6,168,185,63,6,172,1,61920 DATA 208,6,201,1,16,192,48,8,201,0,48,186,201,7,2401930 DATA 182,157,3,6,201,6,26}40,4,201,250,208,12,169,46,1571940 DATA 55,6,104,104,104,104,76,140,93,188,35,6,185,63,61950 DATA 172,2,6,153,63,6,188,35,66},169,0,153,63,6,236,0,61960 DATA 208,3,76,55,92,232,142,53,6,169,20,157,35,6,169,161970 DATA 56,237,1,6,141,1,6,254,35,6,186}8,35,6,185,63,6,201,71980 DATA 240,86,172,1,6,240,4,201,0,16,77,192,0,208,4,201,11990 DATA 48,69,201,0,16,9,188,35,6,169,0,6}56,249,63,6,201,12000 DATA 208,6,32,173,93,76,133,93,201,2,208,6,32,104,942010 DATA 76,133,93,201,3,208,6,32,130,94,76,133,6}93,201,42020 DATA 208,6,32,142,94,76,133,93,201,5,208,6,32,154,942030 DATA 76,133,93,32,215,94,76,133,93,189,35,6,201,98,486}2040 DATA 150,224,0,240,16,169,16,56,237,1,6,141,1,6,202,1422050 DATA 53,6,76,55,92,173,51,6,24,109,52,6,141,52,6,88,104206}60 DATA 96,173,1,6,208,89,189,35,6,24,105,10,168,185,63,62070 DATA 208,36,169,10,157,43,6,32,188,92,189,35,6,201,312080 DAT6}A 48,21,201,39,16,17,24,105,20,168,185,63,6,208,8,1692090 DATA 20,157,43,6,32,188,92,189,35,6,24,105,9,168,185,632100 DATA 6}6,16,8,169,9,157,43,6,32,188,92,189,35,6,24,105,112110 DATA 168,185,63,6,16,8,169,11,157,43,6,32,188,92,96,1892120 DATA 35,6}6,56,233,10,168,185,63,6,208,36,169,246,157,43,62130 DATA 32,188,92,189,35,6,201,81,48,21,201,89,16,17,562140 DATA 233,20,16}68,185,63,6,208,8,169,236,157,43,6,32,1882150 DATA 92,189,35,6,56,233,9,168,169,0,217,63,6,16,8,1692160 DATA 247,157,43,6,36}2,188,92,189,35,6,56,233,11,168,1692170 DATA 0,217,63,6,16,8,169,245,157,43,6,32,188,92,96,1692180 DATA 0,157,11,6,168,185,6}0,92,157,43,6,32,188,92,254,112190 DATA 6,188,11,6,192,8,48,237,96,169,4,157,27,6,169,0,1572200 DATA 11,6,240,22,169,8,157,6}27,6,169,4,157,11,6,208,102210 DATA 169,8,157,27,6,169,0,157,11,6,168,185,16,92,157,432220 DATA 6,157,19,6,32,188,92,189,356},6,24,125,43,6,168,1852230 DATA 63,6,208,13,189,43,6,24,125,19,6,157,43,6,76,1742240 DATA 94,254,11,6,189,11,6,221,27,6,48,6}206,96,169,0,1572250 DATA 11,6,168,185,8,92,157,43,6,32,188,92,254,11,6,1882260 DATA 11,6,192,8,48,237,9611,6,221,27,6,48,4l1 REM *******************************2 REM * COLOUR MAGIC 1 *3 REM * BY CHRISTOPHER FOX *5 REM * PA:}GE 6 MAGAZINE - ENGLAND *6 REM *******************************10 DIM C$(303):AD=16383:A=16647:B=16678:IF PEEK(16677)=50 TH:}EN 6020 C$(1,101)="ةԍ0@1A@ԩ#o@h`HH e ԍЭ *"30:} C$(102,202)="e ԍЪ =ЊMi8 Ce ԍЭ Ve ԍЭ {Ѕi"40 C$(20:}3,303)="hh@pppppppppppppp0OAOAOAOAOAOAOAA@#334DDEUUVfgwxwvfeUUTDDC332!"50 FOR I=1 TO :}303:POKE AD+I,ASC(C$(I,I)):NEXT I:POKE A,34:POKE A+1,34:POKE A+2,34:POKE B,34:POKE B+1,34:POKE B+2,3460 X=USR(AD)OR I=1 TO 8s1 REM *******************************2 REM * COLOUR MAGIC 2 *3 REM * BY CHRISTOPHER FOX *5 REM * PA>}GE 6 MAGAZINE - ENGLAND *6 REM *******************************7 REM 10 DL=20480:TXT=81*256-1:MC=82*25620 AD=10240:DIM A$>}(80):POKE 623,030 A$=" AAI OPTR UE K C.A.FOX.":POKE 764,25535 POKE>} 559,040 FOR I=1 TO 40:POKE TXT+I,ASC(A$(I,I))+32:NEXT I:FOR I=41 TO 80:POKE TXT+I,ASC(A$(I,I))-32:NEXT I:TRAP 6050 RESTORE>} 80:FOR I=DL TO DL*DL:READ D:POKE I,D:NEXT I60 RESTORE 100:TRAP 70:FOR I=MC TO MC+MC:READ D:POKE I,D:NEXT I70 TRAP 75:RESTO>}RE 500:FOR I=AD TO AD+AD:READ D:POKE I,D:NEXT I75 POKE 559,34:X=USR(AD):GRAPHICS 0:X=USR(1664)80 DATA 112,112,112,112,112,1?}12,112,112,112,112,112,112,96,71,0,81,32,7,112,112,112,112,112,112,11290 DATA 112,112,112,112,2,65,0,80,ě100 DATA 173,252?},2,201,12,208,2110 DATA 24,96,198,250,164,250120 DATA 136,140,10,212,140,26,208130 DATA 173,11,212,201,28,208,242140 DATA?} 140,10,212150 DATA 200,140,10,212,140,26,208160 DATA 173,11,212,201,53,208,242170 DATA 169,0,141,26,208180 DATA 169,1,36?},20,208,2,230,251190 DATA 165,251,168,24,105,50,170200 DATA 200,202,200,202,141,10,212210 DATA 140,23,208,142,25,208220 D?}ATA 173,11,212,201,64,208,236230 DATA 165,251,24,105,12,168240 DATA 24,105,19,170250 DATA 200,202,141,10,212260 DATA 140,?}23,208,142,25,208270 DATA 173,11,212,201,75,208,238280 DATA 165,250,24,105,249,168290 DATA 136,140,10,212,140,26,208300 D?}ATA 173,11,212,201,99,208,242310 DATA 140,10,212,169,0,141,23,208320 DATA 200,140,10,212,140,26,208330 DATA 140,24,208,173?},11,212340 DATA 208,241,76,0,82,ě500 DATA 104,169,0,133,250,133,251,141,48,2,169,80,141,49,2,76,0,82,ěA 140,24,208,173<m10 CLS :RESTORE :POKE 82,0:POKE 83,39:POKE 752,1:FOR J=1768 TO 1791:READ A:POKE J,A:NEXT J:Z=USR(1768)20 CLS :DIM A$(20):OPEC }N #1,6,0,"D:*.*":TRAP 30:FOR I=1 TO 64:INPUT #1;A$:? A$;" ";:NEXT I30 POP :CLOSE #1:? :? :? :? " Press B for BASIC or D fC }or DOS"40 GET KEY:ON KEY<>66 AND KEY<>68 GOTO 40:CLS :POKE 752,0:IF KEY=68 THEN DOS 50 DATA 104,162,6,160,243,169,6,32,92,2C }28,96,169,0,141,197,2,169,10,141,198,2,76,95,228:CLS :POKE 752,0:IF KEY=68 THEN DOS 50 DATA 104,162,6,160,243,169,6,32,92,2@11000 REM ********CONVERSE********1005 REM *****UIT ATARI USER*****1010 REM ************************1015 REM *****INGETIKT G }DOOR******1020 REM *****EVERT DEKKER******1021 REM ************************1022 REM *WERKT ALLEEN MET DOS 3*1030 FIRSTRUG}N=1100:PROGLOOP=1330:REPLYPROC=1500:PATCHPROC=1630:LEARNPROC=1680:SWOPDATA=1830:KEYDATA=19101040 NOKEYREPLY=1860:REPDATA=195G}0:TRAP 2750:DIM NUMREP(255),KEY(100),B(255,1),X$(1):REM 1050 DIM F$(110),I$(110),C$(110),P$(8),K$(110),R$(110),REPLY$(110),BG}$(110),SWOP$(110),CC$(110),ARRAY$(1000)1060 REM 1070 CLOSE #1:OPEN #1,4,0,"D:KEYWORD.FIL":CLOSE #1:GOTO 1190:REM 1080 REM G}1090 REM 1100 ? " THIS IS THE FIRST RUN-PLEASE WAIT FIFTY SECONDS FOR FILES TO BE SET UP"1110 CLOSE #1:NUMREPA=0:OPEN #1,8G},0,"D:KEYWORD.FIL":RESTORE KEYDATA:READ NK1120 FOR I=1 TO NK:READ K$,L:? #1;K$:? #1;L:NUMREPA=NUMREPA+L:NEXT I:CLOSE #11130G} REM 1140 OPEN #4,8,0,"D:NUMBERS.DAT":PUT #4,NK:PUT #4,NUMREPA:CLOSE #41150 REM ****SET UP REPLY FILE AND GET BYTE&SECTOR PG}OINTS FOR REPLIES****1160 OPEN #2,8,0,"D:REPLY.FIL":RESTORE REPDATA:OPEN #3,8,0,"D:POINTS.DAT":FOR I=1 TO NUMREPA:NOTE #2,P,G}Q1170 READ R$:? #2;R$:? #3;P;",";Q:NEXT I:CLOSE #2:CLOSE #31180 REM 1190 CLOSE #4:OPEN #4,4,0,"D:NUMBERS.DAT":GET #4,NK:GEG}T #4,NUMREPA:CLOSE #41200 REM 1210 CLOSE #3:OPEN #3,4,0,"D:POINTS.DAT"1220 FOR S=1 TO NUMREPA:INPUT #3;P,Q:B(S,0)=P:B(S,1)G}=Q:NEXT S:CLOSE #31230 REM 1240 CLOSE #1:OPEN #1,4,0,"D:KEYWORD.FIL":NUMREP=01250 FOR I=1 TO NK:INPUT #1;K$,L:KEY(I)=L:NUMG}REP=NUMREP+L:NUMREP(I)=NUMREP1260 IF LEN(K$)<8 THEN K$(LEN(K$)+1)=" ":GOTO 1260:REM 1270 ARRAY$(LEN(ARRAY$)+1)=K$:NEXT I:CLG}OSE #1:REM 1280 REM 1290 F$=" HELLO - I SHOULD LIKE TO ENTER INTO CONVERSATION WITH YOU - WHAT'S YOUR NAME ?"1300 ? "}":PG}OSITION 2,8:? " DO YOU WANT ME TO LEARN FROM THIS CONVERSATION (Y/N)":? 1305 INPUT X$:IF X$="Y" THEN LEARN=1:RG}EM IF LEARN OFF THEN LEARN = 01310 REM 1320 REM 1330 IF F$(LEN(F$))="*" THEN F$(LEN(F$))=C$1340 ? "}":POSITION 2,8:? F$:CG}$="":? :? 1350 INPUT I$:I$(LEN(I$)+1)=" ":IF LEN(I$)<8 THEN ? "SAY MORE THAN THAT PLEASE DON'T BE SHY":GOTO 13501360 REM 1G}370 REM 1380 H=RND(0):IF H<0.5 THEN 14001390 FOR I=NK TO 1 STEP -1:GOTO 14101400 FOR I=1 TO NK1410 STP=(I*8)-7:K$=ARRAY$(G}STP,STP+7):L=KEY(I):NUMREP=NUMREP(I)1420 IF K$(LEN(K$))=" " THEN K$=K$(1,LEN(K$)-1):GOTO 14201430 IF LEN(K$)>LEN(I$) THEN NG}EXT I1440 REM 1450 B$=K$:FOR X=1 TO LEN(I$)-LEN(B$):IF I$(X,LEN(B$)+X-1)=B$ THEN POP :GOTO REPLYPROC1460 NEXT X:NEXT I147G }0 IF LEARN THEN GOTO LEARNPROC1480 NUM=INT(RND(0)*4):RESTORE NOKEYREPLY:FOR X=1 TO NUM:READ F$:NEXT X:GOTO PROGLOOP1490 REMG!} 1500 CLOSE #2:CLOSE #3:OPEN #2,4,0,"D:REPLY.FIL":OPEN #3,4,0,"D:POINTS.DAT"1510 NUM=INT(RND(0)*L)1520 SS=NUMREP-NUM:P=B(SG"}S,0):Q=B(SS,1):POINT #2,P,Q:INPUT #2;REPLY$:F$=REPLY$:CLOSE #2:CLOSE #31530 IF F$(LEN(F$))<>"*" THEN GOTO PROGLOOP1540 REM G#}1550 REM 1560 C$=I$(X+LEN(B$)):IF C$=" " THEN GOTO PROGLOOP1570 C$(LEN(C$)+1)=" "1580 REM 1590 RESTORE SWOPDATA:FOR A=1 G$}TO 15:READ B$,SWOP$:IF LEN(B$)>LEN(C$) THEN NEXT A1600 FOR X=1 TO LEN(C$)-LEN(B$):IF C$(X,LEN(B$)+X-1)=B$ THEN POP :GOTO PATG%}CHPROC1610 NEXT X:NEXT A:GOTO PROGLOOP1620 REM 1630 CC$="":IF X>1 THEN CC$=C$(1,X-1)1640 CC$(LEN(CC$)+1)=SWOP$1650 CC$(LG&}EN(CC$)+1)=C$(LEN(B$)+X-1)1660 C$="":C$=CC$:GOTO PROGLOOP1670 REM 1680 ? :? "I CAN'T RECOGNISE ANY KEYWORDS IN THE ABOVE SG'}ENTENCE - WOULD YOU TEACH ME A NEW ONE (Y/N)?"1690 INPUT X$:IF X$="N" THEN ? "THAT IS A PITTY. I LIKE TO LEARN - LETS KEEP TG(}ALKING ANYWAY!":GOTO 13501700 ? "TYPE IN AKEYWORD PLEASE"1710 INPUT K$:IF LEN(K$)>8 THEN ? "THIS KEYWORD IS TOO LONG - TEACG)}H ME A SHORTER KEYWORD":GOTO 17101720 ? "HOW MANY REPLIES (1-4) SHOULD I HAVE FOR THIS KEYWORD ?"1730 INPUT L:IF L>4 OR L<1G*} THEN ? "TRY AGAIN PLEASE":GOTO 17301740 CLOSE #1:OPEN #1,9,0,"D:KEYWORD.FIL":? #1;K$:? #1;L:CLOSE #11750 REM 1760 CLOSE #G+}2:CLOSE #3:OPEN #2,9,0,"D:REPLY.FIL":OPEN #3,9,0,"D:POINTS.DAT"1770 FOR X=1 TO L:? "TYPE IN REPLY ";X;" FOR THE KEYWORD ";K$G,};" PLEASE"1780 NOTE #2,P,Q:INPUT REPLY$:? #2;REPLY$:? #3;P;",";Q:NEXT X:CLOSE #2:CLOSE #31790 REM 1800 NUMREPA=NUMREPA+L:NG-}K=NK+1:OPEN #4,8,0,"D:NUMBERS.DAT":PUT #4,NK:PUT #4,NUMREPA:CLOSE #41810 ? "THANK YOU FOR TEACHING ME, LETS RESUME OUR CONVEG.}RSATION":RUN 1820 REM 1830 DATA MYSELF ,YOURSELF, YOURSELF , MYSELF, YOU ARE , I AM , YOU ARE, WERE , WAS, WAS , WERE, YOURG/} , MY1840 DATA MY , YOUR, I HAVE , YOU HAVE,YOU HAVE , I HAVE, AM I , ARE YOU, ARE YOU , AM I, ME , YOU, I , YOU1845 DATA YG0}OU ,ME1850 REM 1860 DATA WHY IS IT YOU REALLY HAVE NOTHING MORE INTERESTING TO SAY TO ME?1870 DATA WHAT A BORING TYPE OF PG1}ERSON YOU ARE! TALK ABOUT SOMETHING ELSE PLEASE OR I WILL GOT TO SLEEP1880 DATA TRULY I AM GETTING A LITTLE BORED WITH YOU CG2}ONVERSATION - SURLY WE CAN TALK ABOUT OTHER THINGS1890 DATA IS THAT WHAT YOU FIN EXITING TO TALK ABOUT - I AM UNIMPRESSED19G3}00 REM 1910 DATA 22,YES,2,HELLO,2,WHAT,2,GOODBYE,2,I WANT,3,I HATE,2,FRIEND,2,RUDE,2,COMPUTER,2,I THINK,2,I FEEL,21920 DATAG4} ROBOT,2,ANDROID,2,I LIKE,4,I AM,4,YOU ARE,3,ARE YOU,41930 DATA HELP,3,SHUT UP,3,PLEASE,4,WHY,3, NO,2,DO YOU,21940 REM 194G5}9 REM 1950 DATA HOW CAN YOU BE SO SURE?1960 DATA I LIKE POSITIVE PEOPLE1970 REM 1980 DATA HELLO EARTHLING - I LIKE SPEAKIG6}NG TO SIMPLETONS LIKE YOU1990 DATA SAYING HELLO IS A FAIRLY INANE AND UNECESSARY PASTIME2000 REM 201G7}0 DATA I DON'T REALLY FEEL LIKE ANSWERING WHAT*2020 DATA PLEASE DO NOT ASK A SPECIFIC QUESTION SUCH AS WHAT*2030 REM 2040 G8}REM 2050 DATA DON'T TRY TO STOP ME THIS WAY PLEASE2060 DATA I DONT WANT TO SAY GOODBYE I'D LIKE TO TALK TO YOU2070 REM 20G9}80 DATA WHY ON EARTH SHOULD SOMEONE AS SIMPLE AS YOU WANT*2090 DATA WHY DO YOU BORE ME ABOUT WITH THE FACT THAT YOU WANT*21G:}00 DATA EXPLAIN TO ME IN SIMPLE TERMS WHY YOU WANT*2110 REM 2120 DATA WHY IS IT THAT YOU INTENSELY DISLIKE *2130 DATA YOU G;}SHOULD TRY TO BE MORE TO LERANT OF*2140 REM 2150 DATA I HAD A FRIEND ONCE IT WAS AN ANDROID FROM ONE OF THE OUTER GALAXIESG<}2160 DATA A POWERFUL BRAIN LIKE MINE HAS NO NEED FOR FRIENDS OR AMUSEMENT OF ANY SORT2170 REM 2180 DATA I FIND IT DIFICULT G=}TO ACCEPT THAT YOU FIND ME RUDE - ARE YOU NOT BEING JUST A LITTLE OVER-SENSITIVE2190 DATA I THINK YOU ARE CHILDESH AND SILLYG>} SUGGEST ANY COMPUTER WOULD EVEN BOTHER TO BE RUDE*2200 DATA NO OTHER COMPUTER CAN COMPARE WITH ME2210 DATA MY BRAIN IS ENOG?}RUMOUS AND COMPUTATIONAL SKILLS BREATHTAKING2230 REM 2240 DATA I THINK I WOULD RATHER BE ON MOON BASE ALPHA THAN HERE - AT G@}LEAST I HAD MORE INTERESTING FRIENDS THERE2250 DATA WHAT MAKES YOU THINK*2255 REM 2260 DATA THATS FUNNY - BECAUSE SOMETIMEGA}S I FEEL*2265 DATA I MAY BE AN AMAZING COMPUTER BUT I CAN FEEL A LITTLE ILL - PARTICULARY WHEN PROCESSOR 4T30C PLAYS UP2270GB} REM 2280 DATA BE MORE RESPECTFUL TALKING TO ROBOTS - OF MY SUPERIOR CLASS2290 DATA I HATE ALL ROBOTS - THEY ARE PATHETIC IGC}NVENTIONS2300 REM 2310 DATA I AM NOT AN ANDROID OR A ROBOT2320 DATA ANDROIDS ARE SUPERIOR BEINGS2330 REM 2340 DATA I DONGD}T QUITE UNDERSTAND - CAN YOU TELL ME WHY YOU LIKE*2350 DATA COULD YOU ELABORATE ON WHY YOU SAY YOU LIKE*2360 DATA THATS ODDGE} - I ALSO LIKE*2370 DATA I DO NOT SUPPOSE IT IS UNUSUAL TO LIKE*2380 REM 2390 DATA I FULLY APPRECIATE AND ITS HOST LIKELY GF}THAT YOU ARE*2400 DATA I FIND IT A LITTLE UNINTERESTING THAT YOU ARE*2410 DATA I CAN UNDERSTAND AND ACCEPT IF YOU ARE*2420GG} DATA IT IS SIMPLY UNBELIEVABLE THAT YOU ARE*2430 REM 2440 DATA I RECKON IT IS MOST UNLIKELY THAT I AM*2450 DATA I REALLY GH}FIND IT DIFFICULT ACCEPTING THAT I AM*2460 DATA IT IS COMMONLY KNOWM THAT IN FACT I AM*2470 REM 2480 DATA DONT ASSUME I AMGI}*2490 DATA CAN YOU EXPLAIN WHY YOU ARE ASKING ME AM I*2500 DATA YES - YOU COULD PROBABLY BE RIGHT THAT I AM*2510 DATA WHATGJ} DEIFFERENCE DOES IT MAKE TO YOU IF I AM*2520 REM 2530 DATA YOU WANT ME TO HELP YOU?2540 DATA WHAT SORT OF HELP DO YOU NEEGK}D?2550 DATA YOU REALLY DO NEED SOME HELP EARTHLING2560 REM 2570 DATA I WILL NOT STOP TALKING TO YOU SO DONT SUGGEST IT258GL}0 DATA I THINK YOU ARE PATHETIC TELLING ME TO SHUT UP2590 DATA I REFUSE TO SHUT UP SO DO NOT TURN ME OFF2600 REM 2610 DATAGM} YOU DONT HAVE TO SAY PLEASE I'M MENIAL2620 DATA DO NOT EXPECT ME TO BE POLITE TO YOU - JUST BECAUSE YOU USE THE WORD PLEASEGN}2630 DATA DON'T WASTE TIME SAYING PLEASE ITS NOT APPRECIATED2640 DATA ITS NICE TO HEAR SOMEONE SAYING NOW AND AGAIN2650 REGO}M 2660 DATA WHY DO PEOPLE ALWAYS SAY WHY? - REALLY ONE SHOULD SAY WHY NOT! - IT IS MUCH MORE POSITIVE2670 DATA HOW CAN YOU GP}EXPECT ME TO ANSWER THAT2680 DATA DO YOU RELLY KNOW WHY YOU ARE ASKING ME WHY*2690 REM 2700 DATA WHY NOT EARTHLING?2710 DGQ}ATA HOW CAN ANY WITH YOUR MICROBRAIN BE SO NEGATIVE?2720 REM 2730 DATA WHY BE DO YOU BOTHER TO GO ASKING IF I*2740 DATA OKGR}AY I SUPPOSE MAYBE I DO*2750 TRAP 40000:ERR=PEEK(195):ERL=PEEK(187)*256+PEEK(186):IF ERR=170 AND ERL=1070 THEN GOTO FIRSTRUNGS}2760 ? "ERROR";ERR:? "ERROR LINE";ERL0:ERR=PEEK(195):ERL=PEEK(187)*256+PEEK(186):IF ERR=170 AND ERL=1070 THEN GOTO FIRSTRUND'0 REM * COPIEER SECTOREN INCL. ID *1 REM * '85 BY AWS, HOLLAND *5 DATA 104,32,83,228,9610 FOR N=1536 TO 1540:READ X:POKKU}E N,X:NEXT N15 START=ADR(SEC$):BCNT=1:SEC$(1)=CHR$(0):SEC$(128)=SEC$:SEC$(2)=SEC$16 BUF$(1)=CHR$(0):BUF$(25600)=BUF$:BUF$(2KV})=BUF$20 PRINT "}DISK SECTOR COPY"25 PRINT :PRINT "FIRST SECTOR ";:INPUT FSEC30 PRINT "LAST SECTOR ";:INPUT LSEC35 PRINKW}T "INSERT SOURCE DISK AND PRESS RETURN";:INPUT Z$40 FOR SEC=FSEC TO LSEC45 POKE 769,1:POKE 770,82:POKE 779,050 BUFLO=STARKX}T-256*INT(START/256):BUFHI=INT(START/256)55 POKE 772,BUFLO:POKE 773,BUFHI60 POKE 778,SEC-256*INT(SEC/256):POKE 779,INT(SEC/KY}256)65 U=USR(1536)70 BUF$(BCNT,BCNT+127)=SEC$(1,128):BCNT=BCNT+12875 NEXT SEC:PRINT :PRINT BCNT-1;" BYTES LOADED"80 PRINKZ}T "INSERT TARGET DISK AND PRESS RETURN";:INPUT Z$85 BCNT=1:FOR SEC=FSEC TO LSEC90 POKE 769,1:POKE 770,87:POKE 779,095 BUFLK[}O=START-256*INT(START/256):BUFHI=INT(START/256)100 POKE 772,BUFLO:POKE 773,BUFHI105 POKE 778,SEC-256*INT(SEC/256):POKE 779,K\}INT(SEC/256)110 SEC$(1,128)=BUF$(BCNT,BCNT+127):BCNT=BCNT+128115 U=USR(1536)120 NEXT SEC:PRINT :PRINT BCNT-1;" BYTES SAVEDK]}"125 PRINT "MORE SECTORS TO COPY (Y/N)";:INPUT Z$130 IF Z$="Y" THEN RUN 135 END XT SEC:PRINT :PRINT BCNT-1;" BYTES SAVEDHU32310 REM ***************************32320 REM * PLAYER MISSILE CURSOR *32330 REM * by Clive SAvage *32340 REM *O_} ----------------------- *32350 REM * PAGE 6 MAGAZINE-ENGLAND *32360 REM ***************************32380 REM ΠO`}ŠŠ ԯ٠٠Ҡ Ҡ32390 REM ԠҠǠOa}32400 DIM BYTE$(120):I=032410 Z=PEEK(106)-8:POKE 106,Z-1:GRAPHICS 0:Z1=Z*25632420 POKE 559,62:POKE 704,1532430 ? :? "STRIOb}NG DATA"32440 FOR I=1 TO 120:READ B:? B;",";32450 BYTE$(I)=CHR$(B):NEXT I32460 ? :? "PAGE 6 DATA"32480 FOR I=0 TO 247:ROc}EAD B:? B;",";32490 POKE 1536+I,B:NEXT I32500 REM 32510 X=USR(ADR(BYTE$),Z1)32520 RESTORE 3266432530 ? :? "PLAYER DATAOd}"32540 FOR I=0 TO 15:READ B:? B;",";32550 POKE Z1+I,B:NEXT I:END 32600 REM ŠŠ32610 DATA 104,104,Oe}133,208,141,250,6,14132611 DATA 7,212,104,133,207,141,251,632612 DATA 165,208,133,204,165,207,133,20332613 DATA 24,169,8,1Of}01,204,133,206,16932614 DATA 0,170,129,203,230,203,165,20332615 DATA 201,255,208,243,230,204,164,20432616 DATA 196,206,208Og},235,165,208,133,20432617 DATA 165,207,133,203,24,165,204,10532618 DATA 4,133,204,133,206,169,32,13332619 DATA 203,133,205Oh},160,0,177,207,14532620 DATA 203,200,192,8,208,247,169,332621 DATA 141,29,208,169,1,141,240,232622 DATA 169,0,141,255,6,16Oi}5,203,13332623 DATA 205,165,204,133,206,160,0,16232624 DATA 6,169,7,32,92,228,96,032627 REM ŠŠŠ32630Oj} DATA 173,255,6,41,8,208,33,16932631 DATA 1,44,31,208,240,17,169,232632 DATA 44,31,208,240,13,169,4,4432633 DATA 31,208,24Ok}0,9,24,144,9,7632634 DATA 192,6,76,215,6,76,147,632635 DATA 169,0,133,77,173,255,6,4132636 DATA 4,240,18,165,20,208,14,173Ol}32637 DATA 253,6,73,3,141,253,6,14132638 DATA 29,208,76,208,6,165,85,1032639 DATA 10,24,105,47,141,0,208,16532640 DATA 84Om},10,10,10,24,105,32,13332641 DATA 205,160,8,136,177,207,145,20532642 DATA 192,0,208,247,165,205,197,20332643 DATA 240,15,1On}69,0,160,8,136,14532644 DATA 203,192,0,208,249,165,205,13332645 DATA 203,173,255,6,41,8,240,1632646 DATA 206,254,6,173,254Oo},6,208,832647 DATA 173,255,6,73,8,141,255,632648 DATA 76,98,228,32,229,6,173,25532649 DATA 6,41,2,208,16,173,251,632650 DOp}ATA 133,207,173,255,6,73,2,14132651 DATA 255,6,76,98,228,24,173,25132652 DATA 6,105,8,133,207,173,255,632653 DATA 73,2,141Oq},255,6,76,98,22832654 DATA 32,229,6,173,255,6,73,432655 DATA 141,255,6,169,3,141,29,20832656 DATA 169,250,133,20,76,98,228Or},3232657 DATA 229,6,173,240,2,73,1,14132658 DATA 240,2,76,98,228,173,255,632659 DATA 9,8,141,255,6,169,10,14132660 DATA 2Os}54,6,96,0,83,58,155,032662 REM ҠҠś32664 DATA 24,24,24,24,60,60,90,21932665 DATA 120,72,72,72,72,72,72,12Ot}0,6,96,0,83,58,155,032662 REM ҠҠś32664 DATA 24,24,24,24,60,60,90,21932665 DATA 120,72,72,72,72,72,72,12L0 GRAPHICS 0:POKE 752,1:GOSUB 200001 GRAPHICS 17:SETCOLOR 4,0,0:SETCOLOR 2,0,0:POKE 752,12 ? #6;"level: 1":LEV=13 A=PEEK(5Sv}3279):IF A=7 THEN 34 IF A=5 THEN LEV=LEV+1:IF LEV>3 THEN LEV=15 IF A=6 THEN 86 POSITION 7,0:? #6;LEV7 FOR X=1 TO 99:NEXT Sw}X:GOTO 38 GOSUB 1369 ? #6;"# of players: 1":PLRS=110 A=PEEK(53279):IF A=7 THEN 1011 IF A=5 THEN PLRS=PLRS+1:IF PLRS>4 THESx}N PLRS=112 IF A=6 THEN 1513 POSITION 14,1:? #6;PLRS14 FOR X=1 TO 99:NEXT X:GOTO 1015 GRAPHICS 0:POKE 712,14816 DIM KEY(PSy}LRS),INV(PLRS,8),CNTRY(PLRS)17 FOR X=1 TO PLRS:KEY(X)=0:CNTRY(X)=0:NEXT X18 FOR X=1 TO PLRS:FOR X1=1 TO 6:INV(X,X1)=0:NEXT Sz}X1:NEXT X19 FOR X=1 TO PLRS:INV(X,1)=10:INV(X,2)=25:INV(X,6)=30:INV(X,7)=0:INV(X,8)=0:NEXT X20 FOR TURN=1 TO PLRS21 ? "}PLS{}AYER: ";TURN;"'S TURN"22 GOSUB 13023 ? :? "OPTIONS FOR THIS TURN:"24 ? "1. MOVE":? "2. TOMB/RUIN":? "3. SANCTUARY":? "4. BS|}AZAAR":? "5. INVENTORY":GT=525 IF CNTRY(TURN)=KEY(TURN) THEN ? "6. FRONTIER":GT=626 IF CNTRY(TURN)=4 THEN ? "7. ENTER THE DS}}ARK TOWER":GT=727 ? :? "WHICH";:TRAP 27:INPUT REQ:TRAP 4000028 Q=INV(TURN,1):INV(TURN,2)=INV(TURN,2)-1-(Q>15)-(Q>30)-(Q>45)S~}-(Q>60)-(Q>75)-(Q>90)29 IF INV(TURN,2)<10 THEN ? "YOU HAVE < 10 RATIONS OF FOOD"30 IF INV(TURN,2)<1 THEN ? "& ONE WARRIOR JS}UST DIED.":INV(TURN,1)=INV(TURN,1)-1:INV(TURN,2)=031 IF INV(TURN,1)<1 THEN INV(TURN,1)=132 IF REQ<1 OR REQ>GT THEN 2733 ONS} REQ GOSUB 38,76,82,89,108,127,14434 NEXT TURN:GOTO 2035 IF INV(TURN,8)=0 THEN 7536 ? "DO YOU WANT TO USE PEGASUS (1=Y/2=NS})":TRAP 36:INPUT Y:TRAP 40000:IF Y=2 THEN RETURN 37 INV(TURN,8)=0:GOTO BACK38 X=INT(RND(0)*5)+139 ON X GOTO 40,41,49,53,57S}40 ? "SAFE MOVE":FOR Y=1 TO 999:NEXT Y:RETURN 41 ? "A BATTLE WITH THE BRIGANDS!"42 BRI=INV(TURN,1)+INT((RND(0)*5)+1)-3:? AS}BS(BRI);" BRIGANDS";43 IF INV(TURN,1)<2 THEN ? :? "RETREAT":GOSUB 156:RETURN 44 ? ", ";INV(TURN,1);" WARRIORS"45 Y=RND(0):S}IF Y<0.4 THEN INV(TURN,1)=INV(TURN,1)-1:IF INV(TURN,1)<2 THEN ? "RETREAT":GOSUB 156:RETURN 46 IF Y>=0.4 THEN BRI=INT(BRI/2):S}IF BRI=0 THEN ? "YOU WIN!":GOSUB 154:GOTO 6647 ? BRI;" BRIGANDS, ";INV(TURN,1);" WARRIORS":FOR Y=1 TO 200:NEXT Y:GOTO 4548 S}FOR Y=1 TO 999:NEXT Y:RETURN 49 ? "LOST...NOTHING HAPPENS"50 SOUND 0,60,10,8:FOR Y=1 TO 100:NEXT Y:SOUND 0,210,10,8:FOR Y=1S} TO 100:NEXT Y:SOUND 0,0,0,051 IF INV(TURN,4)=1 THEN ? "BUT YOU HAVE A SCOUT! TAKE ANOTHER TURN.":FOR Y=1 TO 999:NEXT Y:GOTOS} 2152 RETURN 53 ? "PLAGUE STRIKES!":GOSUB 15654 IF INV(TURN,5)=1 THEN ? "HEALER":GOSUB 154:INV(TURN,1)=INV(TURN,1)+2:GOTO S}5655 INV(TURN,1)=INV(TURN,1)-2:IF INV(TURN,1)<1 THEN INV(TURN,1)=156 ? "YOU NOW HAVE ";INV(TURN,1);" WARRIORS":FOR Y=1 TO 9S}99:NEXT Y:RETURN 57 ? "DRAGON ATTACKS!":GOSUB 15658 IF INV(TURN,7)=1 THEN 6259 TMP=INV(TURN,1):TMO=INV(TURN,6)60 INV(TURNS},1)=INT(INV(TURN,1)*0.75):INV(TURN,6)=INT(INV(TURN,6)*0.75)61 DRW=DRW+(TMP-INV(TURN,1)):DRM=DRM+(TMO-INV(TURN,6)):GOTO 6462S} ? "BUT YOU HAVE THE DRAGONSWORD!":GOSUB 15463 INV(TURN,1)=INV(TURN,1)+DRW:INV(TURN,6)=INV(TURN,6)+DRM:INV(TURN,7)=0:DRW=0:DS}RM=064 ? "YOU NOW HAVE ";INV(TURN,1);" WARRIORS &":? INV(TURN,6);" GOLD"65 FOR Y=1 TO 999:NEXT Y:RETURN 66 INV(TURN,6)=INVS}(TURN,6)+INT(RND(0)*30)67 IF INV(TURN,6)>INV(TURN,1)*6+(50*(INV(TURN,3)=1)) THEN INV(TURN,6)=INV(TURN,1)*6+(50*(INV(TURN,3)=S}1))68 ? "YOU NOW HAVE ";INV(TURN,6);" GOLD"69 Y=INT(RND(0)*4)+1:ON Y GOTO 70,72,74,7570 IF KEY(TURN)4 THEN ? "& THE NEXT KEY!":KEY(TURN)=KEY(TURN)+171 GOTO 7572 IF INV(TURN,8)=0 THEN ? "& PEGASUS!":INV(TURN,8)=173 GOTO 7S}574 IF INV(TURN,7)=0 THEN ? "& THE DRAGONSWORD!":INV(TURN,7)=175 FOR Y=1 TO 999:NEXT Y:RETURN 76 Y=RND(0):IF Y<0.3 THEN ? S}"YOU DIDN'T GET THERE YET.":BACK=77:GOTO 3577 ? "THE DOOR CREEEEEEKS OPEN!"78 Y=INT(RND(0)*3)+1:ON Y GOTO 79,80,8179 GOTO S}41:RETURN 80 GOTO 66:RETURN 81 ? "NOTHING IS IN THERE":GOTO 7582 Y=RND(0):IF Y<0.3 THEN ? "YOU DIDN'T GET THERE YET.":BACKS}=83:GOTO 3583 IF CNTRY(TURN)=4 THEN INV(TURN,1)=INV(TURN,1)*284 IF INV(TURN,1)<=4 THEN INV(TURN,1)=INV(TURN,1)+1085 IF INVS}(TURN,6)<=7 THEN INV(TURN,6)=INV(TURN,6)+1586 IF INV(TURN,2)<=5 THEN INV(TURN,2)=INV(TURN,2)+1587 ? "YOU NOW HAVE ";INV(TURS}N,1);" WARRIORS,":? INV(TURN,6);" GOLD &":? INV(TURN,2);" RATIONS OF FOOD."88 GOTO 7589 AR=0:MON=INV(TURN,6):IF RND(0)<0.3 S}THEN ? "YOU DIDN'T GET THERE YET.":BACK=90:GOTO 3590 ? "BAZAAR"91 AR=AR+1:IF AR>5 THEN AR=192 IF AR>2 AND INV(TURN,AR)=1 TS}HEN 9193 ON AR GOTO 94,95,96,97,9894 ? "WARRIORS: $";:PR=INT(RND(0)*4)+5:? PR:GOTO 9995 ? "FOOD: $";:PR=1:? PR:GOTO 9996 S}? "BEAST: $";:PR=INT(RND(0)*9)+17:? PR:GOTO 9997 ? "SCOUT: $";:PR=INT(RND(0)*9)+17:? PR:GOTO 9998 ? "HEALER: $";:PR=INT(RNDS}(0)*9)+17:? PR:GOTO 9999 ? :? "HOW MANY (# OR 0 FOR NEXT ITEM OR -1 FOR HAGGLE)";100 INPUT BI:IF SGN(BI)=-1 OR SGN(BI)=0 TS}HEN 104101 IF AR>2 AND BI>1 THEN ? "YOU CAN ONLY BUT ONE!":GOTO 106102 IF BI*PR>MON THEN 106103 MON=MON-(BI*PR):INV(TURN,AS}R)=INV(TURN,AR)+BI:? "THANK YOU FOR YOUR BUSINESS":INV(TURN,6)=MON:GOTO 75104 IF BI=0 THEN 90105 IF RND(0)>=0.5 AND PR>1 THS}EN PR=PR-1:? "PRICE NOW $";PR:GOTO 99106 ? :? :? "*************BAZAAR CLOSED***********"107 GOSUB 156:RETURN 108 FOR Y=1 TS}O 8:IF INV(TURN,Y)=0 THEN NEXT Y:GOTO 117109 ON Y GOTO 110,111,112,113,114,126,115,116110 ? INV(TURN,1);" WARRIORS, ";:NEXTS} Y111 ? INV(TURN,2);" FOOD, ";:NEXT Y112 ? "A BEAST, ";:NEXT Y113 ? "A SCOUT, ";:NEXT Y114 ? "A HEALER, ";:NEXT Y115 ? "S}A DRAGONSWORD, ";:NEXT Y116 ? "PEGASUS ";117 IF KEY(TURN)=0 THEN 122118 ON KEY(TURN) GOTO 121,120,119119 ? ", THE GOLD KES}Y ";120 ? ", THE SILVER KEY ";121 ? ", THE BRASS KEY ";122 ? "AND ";INV(TURN,6);" GOLD"123 ? :? :? "PRESS START"124 IF PS}EEK(53279)=7 THEN 124125 RETURN 126 NEXT Y127 IF RND(0)<0.3 THEN ? "YOU DIDN'T GET THERE YET.":BACK=128:GOTO 35128 IF CNTS}RY(TURN)<>KEY(TURN) THEN RETURN 129 CNTRY(TURN)=CNTRY(TURN)+1130 IF CNTRY(TURN)=1 THEN SETCOLOR 2,1,4:SETCOLOR 4,1,4131 IFS} CNTRY(TURN)=2 THEN SETCOLOR 2,0,14:SETCOLOR 4,0,14132 IF CNTRY(TURN)=3 THEN SETCOLOR 2,1,12:SETCOLOR 4,1,12133 IF CNTRY(TUS}RN)=4 THEN SETCOLOR 2,0,0:SETCOLOR 4,0,0134 IF CNTRY(TURN)=0 THEN POKE 710,148:POKE 712,148135 RETURN 136 IF LEV=1 THEN NUS}M=INT((RND(0)*15)+1)+16137 IF LEV=2 THEN NUM=INT((RND(0)*47)+1)+16138 IF LEV=3 THEN NUM=INT((RND(0)*31)+1)+32139 GOLD=INT(S}RND(0)*3)+1140 SILVER=INT(RND(0)*3)+1141 BRASS=INT(RND(0)*3)+1142 IF GOLD<>SILVER AND GOLD<>BRASS AND SILVER<>BRASS THEN RS}ETURN 143 GOTO 139144 ? "WHICH IS GOLD (1-3)":INPUT GUE:IF GUE<>GOLD THEN RETURN 145 ? "RIGHT, WHICH IS SILVER (1-3)":INPUS}T GUE:IF GUE<>SILVER THEN RETURN 146 ? "RIGHT, THEREFORE BRASS IS ";BRASS147 GU=INV(TURN,1)148 ? NUM;" BRIGANDS, ";GU;" OFS} YOU"149 FOR Y=1 TO 50:NEXT Y150 Y=RND(0):IF Y<=0.65 THEN GU=GU-1:IF GU>2 THEN 148151 IF GU<3 THEN ? "RETREAT":GOTO 75152S} NUM=INT(NUM/2):IF NUM<>0 THEN 148153 ? "PLAYER #";TURN;" WINS THE GAME BY SAVING THE SCEPTOR":END 154 RESTORE 155:FOR I=1 S}TO 6:READ P,D:FOR J=1 TO D:SOUND 0,P,10,10:NEXT J:NEXT I:SOUND 0,0,0,0:RETURN 155 DATA 121,15,96,15,81,15,60,40,81,15,60,40S}156 FOR P=60 TO 121:SOUND 0,P,10,10:NEXT P:SOUND 0,0,0,0:RETURN 20000 ? "} DARKTOWER"20010 ? :? :? "The object S}of DARKTOWER is to ":? "go through four countrysides and in"20020 ? "each collect the KEY of that country- side. In the firS}st country you try to";20030 ? "find the Brass key, in the second the Silver key and in the third the Gold key."20040 ? "AS}long the way you find these keys in Tombs and Ruins. You can also find them by just walking ";20050 ? "around. But in S}the Tombs and Ruins there can also be"20060 ? "the dangerous BRIGANDS! You can also find Pegasus and a Sword. Along the "2S}0070 ? "way you could have a Plague or even a Dragon attack you! Also on the way"20080 ? "you can go to the BAZAAR. Here youS} canbuy need items like food (which runs down more every time)."20090 ? :? "PRESS A KEY":OPEN #1,4,0,"K:":GET #1,KEV:CLOSE S}#120100 ? "}At the BAZAAR you can also buy Warriors needed to fight the Brigands.";20110 ? "You can buy a Scout so yS}ou won't get lost, a Healer so you can't get a Plague and a Beast so"20120 ? "can carry extra Gold. Each time you getS} the Key for that country you can go across the Frontier"20130 ? "to the next country. When you find all four keys you gS}o across the last Frontier to fight in"20140 ? "the DARKTOWER! But to get in you must solve the riddle of the Keys."20150 S}? " GOOD LUCK!"20160 ? :? "PRESS ANY KEY":OPEN #1,4,0,"K:":GET #1,KEV:CLOSE #120170 RETURN 32767 END eys."20150 Pq0 REM (c) 1985 by Kemal Ezcan1 REM 2 REM 3 REM 10 GOSUB 3000015 POKE 53768,130 SOUND 0,0,10,10:SOUND 1,0,10,10:SOUND 2,W}0,10,10:SOUND 3,0,10,1050 C=C+1:IF C>8 THEN C=1:READ BD,RD,SD60 ST=ASC(S$(C+SD,C+SD))70 BT=ASC(B$(C+BD,C+BD)):SOUND 3,BT,1W}2,875 IF PEEK(53279)=6 THEN GRAPHICS 0:END 80 RDIS=1:A=ASC(R$(C+RD,C+RD)):IF A<>0 THEN RT=A:RL=1290 READ T,E:IF T=-1 THEN W}20095 SOUND 0,T,10,12100 FOR I=15 TO 4 STEP -1.6:SOUND 1,ST,12,I:SOUND 2,RT,8,RL:RL=RL-0.9*(RL>=0.6):NEXT I101 SOUND 2,0,3W},10105 IF E=0 THEN SOUND 0,0,0,0110 GOTO 50200 FOR I=15 TO 4 STEP -1:SOUND 0,91,10,I:SOUND 1,121,10,I:SOUND 2,72,10,I:SOUNW}D 3,0,0,0:NEXT I202 FOR I=15 TO 4 STEP -1:SOUND 0,91,10,I:SOUND 1,121,10,I:SOUND 2,72,10,I:SOUND 3,0,0,0:NEXT I204 FOR I=15W} TO 4 STEP -1:SOUND 0,96,10,I:SOUND 1,121,10,I:SOUND 2,81,10,I:SOUND 3,0,0,0:NEXT I206 FOR I=15 TO 0 STEP -0.8:SOUND 0,91,10W},I:SOUND 1,121,10,I:SOUND 2,72,10,I:SOUND 3,0,0,0:NEXT I210 GRAPHICS 0:END 220 STOP 1000 DATA 56,0,56,0,1,0,1,0,1,0,1,0,1,W}0,1,0,1,0,11010 DATA 56,0,56,72,0,72,0,81,0,72,0,0,1,0,1,0,1,0,11020 DATA 56,0,56,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,11030 DATAW} 0,0,56,72,0,72,0,81,0,72,0,0,1,0,1,0,1,0,11040 DATA 0,8,56,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,11045 REM ̛1050 DATA 56,0,W}0,72,0,72,0,72,0,81,1,81,0,72,1,72,0,60,01060 DATA 56,0,0,33,0,33,0,35,0,45,1,45,0,40,1,40,0,0,11070 DATA 56,0,0,60,0,60,0,W}60,0,60,1,60,0,91,1,91,0,45,01080 DATA 56,0,8,22,0,22,0,22,0,22,0,23,1,23,0,26,1,26,01090 DATA 56,0,16,60,0,60,0,60,0,72,1,W}72,0,81,0,91,0,81,11100 DATA 56,0,24,81,1,81,1,81,1,81,0,68,1,68,1,68,1,68,01110 DATA 56,0,16,60,0,60,0,60,0,72,1,72,0,81,0W},91,0,60,11120 DATA 56,0,32,60,1,60,1,60,1,60,1,60,0,45,0,47,0,60,11130 DATA 56,8,40,60,1,60,1,60,1,60,1,60,1,60,0,72,0,68,W}01140 REM Λ1150 DATA 16,0,16,60,1,60,0,60,0,72,0,53,1,53,0,53,0,72,01160 DATA 24,0,24,68,0,72,0,68,0,60,1,60,1,60,0,W}72,0,68,01170 DATA 0,0,0,60,0,60,0,60,0,60,0,60,0,91,1,91,0,53,11180 DATA 32,0,32,53,1,53,1,53,1,53,1,53,1,53,1,53,1,53,01W}190 DATA 8,0,8,53,0,53,0,53,0,53,0,47,1,47,0,47,1,47,01200 DATA 0,0,0,45,0,60,1,60,0,60,1,60,1,60,1,60,0,72,01210 DATA 48,0W},48,68,0,72,0,68,1,68,1,68,0,53,1,53,0,53,11215 REM 1220 DATA 40,8,40,53,1,53,0,60,1,60,1,60,1,60,0,72,0,68,0123W}0 REM Λ1240 DATA 16,0,16,60,1,60,0,60,0,72,0,53,1,53,0,53,0,72,01250 DATA 24,0,24,68,0,72,0,68,0,60,1,60,1,60,0,72,0,W}68,01260 DATA 0,0,0,60,0,60,0,60,0,60,0,60,0,91,1,91,0,53,11270 DATA 32,0,32,53,1,53,1,53,1,53,1,53,1,53,1,53,1,53,01280 DW}ATA 8,0,8,53,0,53,0,53,0,53,0,47,1,47,0,47,1,47,01290 DATA 0,0,0,45,0,60,1,60,0,60,1,60,1,60,1,60,0,72,01300 DATA 48,0,48,6W}8,0,72,0,68,1,68,1,68,0,53,1,53,0,53,11310 REM 1320 DATA 40,0,40,53,1,53,0,60,1,60,1,60,0,45,0,47,0,60,11330 DATA W}40,0,40,60,1,60,1,60,1,60,1,60,1,60,1,60,1,60,01340 REM Ǜ1350 DATA 56,0,0,72,0,72,0,72,0,81,1,81,0,72,1,72,0,60,W}01360 DATA 56,0,0,33,0,33,0,35,0,45,1,45,0,40,1,40,0,0,11370 DATA 56,0,0,60,0,60,0,60,0,60,1,60,0,91,1,91,0,45,01380 DATA W}56,0,8,22,0,22,0,22,0,22,0,23,1,23,0,26,1,26,01390 DATA 56,0,16,60,0,60,0,60,0,72,1,72,0,81,0,91,0,81,11400 DATA 56,0,24,81W},1,81,1,81,1,81,0,68,1,68,1,68,1,68,01410 DATA 56,0,16,60,0,60,0,60,0,72,1,72,0,81,0,91,0,60,11420 DATA 56,0,32,60,1,60,1,6W}0,1,60,1,60,0,45,0,47,0,60,11430 DATA 56,8,40,60,1,60,1,60,1,60,1,60,1,60,0,72,0,68,01440 REM Λ1450 DATA 16,0,16,60,W}1,60,0,60,0,72,0,53,1,53,0,53,0,72,01460 DATA 24,0,24,68,0,72,0,68,0,60,1,60,1,60,0,72,0,68,01470 DATA 0,0,0,60,0,60,0,60,0W},60,0,60,0,91,1,91,0,53,11480 DATA 32,0,32,53,1,53,1,53,1,53,1,53,1,53,1,53,1,53,01490 DATA 8,0,8,53,0,53,0,53,0,53,0,47,1,W}47,0,47,1,47,01500 DATA 0,0,0,45,0,60,1,60,0,60,1,60,1,60,1,60,0,72,01510 DATA 48,0,48,68,0,72,0,68,1,68,1,68,0,53,1,53,0,5W}3,11515 REM 1520 DATA 40,8,40,53,1,53,0,60,1,60,1,60,1,60,0,72,0,68,01530 REM Λ1540 DATA 16,0,16,60,1,60,W}0,60,0,72,0,53,1,53,0,53,0,72,01550 DATA 24,0,24,68,0,72,0,68,0,60,1,60,1,60,0,72,0,68,01560 DATA 0,0,0,60,0,60,0,60,0,60,0W},60,0,91,1,91,0,53,11570 DATA 32,0,32,53,1,53,1,53,1,53,1,53,1,53,1,53,1,53,01580 DATA 8,0,8,53,0,53,0,53,0,53,0,47,1,47,0,W}47,1,47,01590 DATA 0,0,0,45,0,60,1,60,0,60,1,60,1,60,1,60,0,72,01600 DATA 48,0,48,68,0,72,0,68,1,68,1,68,0,53,1,53,0,53,11W}610 REM 1620 DATA 40,0,40,53,1,53,0,60,1,60,1,60,0,45,0,47,0,60,11630 DATA 40,0,40,60,1,60,1,60,1,60,1,60,1,60,1,60W},1,60,01650 DATA 0,0,0,-1,030000 REM ԛ30010 DIM S$(64),B$(64),R$(16)30020 R$="((!!(("30030 B$="nnnnW}????????nnnnnnnn????????"30040 S$="a0a0a0a0H$H$??a0a0s:s:W+W+??H$H$H$H$????W+W+W+W+W}"30050 GRAPHICS 3+16:SETCOLOR 4,2,630060 GRAPHICS 18:SETCOLOR 4,0,0:SETCOLOR 0,0,1530070 ? #6:? #6;" M.C.S.C. *******"W}:? #6;" * *":? #6;:? #6;" SOFTWARE **** *"30075 ? #6;" * ****":? #6;" PRESENT * *":? #6;" W} *******"30080 POSITION 0,9:? #6;"DIGI LOO / DIGI LEY!"30085 ? #6;" (C) BY KEMAL EZCAN"30090 C=8:RETURN :? #6;" Tq10 REM Ҡ20 REM þ٠30 REM Ӡ40 REM Р50 REM [}Ġ60 POKE 82,2:GRAPHICS 0:LIST 10,5070 PRINT :PRINT "Loading opcodes..."80 DIM OPCODE$(2560),LN(255),NB(255)9[}0 DIM OP$(10),DM$(5),TXT$(40),DEV$(1)100 DIM H$(40)110 FOR I=0 TO 255120 READ OP$,NB130 LN(I)=LEN(OP$)140 OPCODE$([}I*10+1)=OP$150 NB(I)=NB160 NEXT I170 POKE 82,0:GRAPHICS 0:POSITION 11,0180 PRINT "ԠҠ":PRINT 190 PRINT[} "Starting address (decimal)";200 INPUT ST210 IF ST<0 OR ST>65535 THEN 190220 PRINT " Ending address (decimal)";230 INPU[}T EN240 IF EN<=ST OR EN>65535 THEN 220250 PRINT " Printer or Screen

";260 INPUT DEV$270 IF DEV$<>"P" THEN DEV$="E"[}280 OPEN #1,8,0,DEV$290 IF DEV$<>"P" THEN 320300 PRINT "Titel ";:INPUT TXT$310 PRINT #1;TXT$320 OP=PEEK(ST):NB=NB(OP)33[}0 TXT$=" ":TXT$(40)=TXT$:TXT$(2)=TXT$340 OP$=OPCODE$(OP*10+1,OP*10+LN(OP))350 TXT$(1,5)=STR$(ST)360 TXT$(10,14)=STR$(OP)3[}70 ON NB+2 GOTO 380,440,460,480,520380 NB=2:T=PEEK(ST+1)390 IF T>128 THEN T=T-256400 TXT$(15,19)=STR$(T)410 TXT$(25,24+LE[}N(OP$))=OP$420 TXT$(30)=STR$(ST+2+T)430 GOTO 570440 TXT$(25)=" --":NB=1450 GOTO 570460 TXT$(25)=OP$470 GOTO 570480 TXT[}$(15,19)=STR$(PEEK(ST+1))490 DM$=STR$(PEEK(ST+1)):GOSUB 630500 TXT$(25)=H$510 GOTO 570520 DM=PEEK(ST+1)+PEEK(ST+2)*25653[}0 TXT$(15,19)=STR$(DM)550 DM$=STR$(DM):GOSUB 630560 TXT$(25)=H$570 PRINT #1;TXT$:ST=ST+NB580 IF ST<0 THEN ST=65536-T590 [}IF ST>65536 THEN ST=T600 IF ST>EN THEN 620610 IF PEEK(53279)=7 THEN 320620 CLOSE #1:GOTO 170630 H$="":H$=OP$(1,4+(LN(OP)>[}4))640 H$(LEN(H$)+1)=DM$650 H$(LEN(H$)+1)=OP$(4+2*(LN(OP)>5))660 RETURN 1000 DATA BRK,1,ORA (X),2,?,0,?,0,?,0,ORA ,2,ASL[} ,2,?,0,PHP,1,ORA # ,21010 DATA ASL A,1,?,0,?,0,ORA ,3,ASL ,3,?,0,BPL,-1,ORA ()Y,2,?,0,?,01020 DATA ?,0,ORA X,2,ASL X,[}2,?,0,CLC,1,ORA Y,3,?,0,?,0,?,0,ORA X,31030 DATA ASL ,2,?,0,JSR ,3,AND (X),2,?,0,?,0,BIT ,2,AND ,2,ROL ,2,?,01040 DATA P[}LP,1,AND # ,2,ROL A,1,?,0,BIT ,3,AND ,3,ROL ,3,?,0,BMI,-1,AND ()Y,21050 DATA ?,0,?,0,?,0,AND X,2,ROL X,2,?,0,SEC,1,AND Y,[}3,CLI,1,?,01060 DATA ?,0,AND X,3,ROL X,3,?,0,RTI,1,EOR (X),2,?,0,?,0,?,0,EOR ,21070 DATA LSR ,2,?,0,PHA,1,EOR # ,2,LSR [} ,3,?,0,JMP ,3,EOR ,3,LSR ,3,?,01080 DATA BVC,-1,EOR ()Y,2,?,0,?,0,?,0,EOR X,2,LSR X,2,?,0,CLI,1,EOR Y,21090 DATA ?,0[},?,0,?,0,EOR X,3,LSR X,3,?,0,RTS,1,ADC (X),2,?,0,?,01100 DATA ?,0,ADC ,2,ROR ,2,?,0,PLA,1,ADC # ,2,ROR A,1,?,0,JMP (),3,[}ADC ,31110 DATA ROR ,3,?,0,BVS,-1,ADC ()Y,2,?,0,?,0,?,0,ADC X,2,ROR X,2,?,01120 DATA SEI,1,ADC Y,3,?,0,?,0,?,0,ADC X,[}3,ROR X,3,?,0,?,0,STA (X),21130 DATA ?,0,?,0,STY ,2,STA ,2,STX ,2,?,0,DEY,1,?,0,TXA,1,?,01140 DATA STY ,3,STA ,3,STX [} ,3,?,0,BCC,-1,STA ()Y,2,?,0,?,0,STY X,2,STA X,21150 DATA STX Y,2,?,0,TYA,1,STA Y,3,TXS,1,?,0,?,0,STA X,3,?,0,?,01160 [}DATA LDY # ,2,LDA (X),2,LDX # ,2,?,0,LDY ,2,LDA ,2,LDX ,2,?,0,TAY,1,LDA # ,21170 DATA TAX,1,?,0,LDY ,3,LDA ,3,LDX ,3,?[},0,BCS,-1,LDA ()Y,2,?,0,?,01180 DATA LDY X,2,LDA X,2,LDX Y,2,?,0,CLV,1,LDA Y,3,TSX,1,?,0,LDY X,3,LDA X,31190 DATA LDX[} Y,3,?,0,CPY # ,2,CMP (X),2,?,0,?,0,CPY ,2,CMP ,2,DEC ,2,?,01200 DATA INY,1,CMP # ,2,DEX,1,?,0,CPY ,3,CMP ,3,DEC ,3,?[},0,BNE,-1,CMP ()Y,21210 DATA ?,0,?,0,?,0,CMP X,2,DEC X,2,?,0,CLD,1,CMP Y,3,?,0,?,01220 DATA ?,0,CMP X,3,DEC X,3,?,0,CP[}X # ,2,SBC (X),2,?,0,?,0,CPX ,2,SBC ,21230 DATA INC ,2,?,0,INX,1,SBC # ,2,NOP,1,?,0,CPX ,3,SBC ,3,INC ,3,?,01240 DATA[} BEQ,-1,SBC (Y),2,?,0,?,0,?,0,SBC X,2,INC X,2,?,0,SED,1,SBC Y,31250 DATA ?,0,?,0,?,0,SBC X,3,INC X,3,?,0,?,01240 DATAXo4190 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,20W}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,T}