:*Z;\?q\!6ZD:\!6B& p 12345_E99|8E99E9E99|8lMzGyG\GWq!'![>8TUU00x00cccI[AU0HH0I*c*I(|||(|||x0000xB<@]-(y*2),1+(x*2);"" ]#1;1,0;" ";1;6;2;" YOU HIT THE GRID IN ";g;" GO " 200 #1;1,0;" ";1;6;2;" PRESS Z FOR PRINTER COPY ";1,1;" OR PRESS C TO CONTINUE " k$=:k$=""3355 0k$="z"k$="Z".1}L,15::3500 %(k$"c"k$"C"ˤ"UX6000W7C":3355 * 98b / 3500 4 G* H****MISSED!**** I+* J 98b Ki#1;1,1;0;5;1;1;" He was hiding at ( ";hx;" , ";hy;" ) " M18-(hy*2),1+(hx*2);7;2;1;" ";19-(hy*2),1+(hx*2);"";20-(hy*2),1+(hx*2);"" R c$="HERE" \P5+g,22;1;1;"(";hx;",";hy;")";5+g,28;c$ a500:3350 f * ****GAME OVER* /* &6:0:6:1: 0,0;0;7;"! T H E I N C A G O L D "" 75,7;1;2;"G A M E O V E R" #7,0;" DO YOU WANT:-" 3'" 1 PLAY the game again with the same clues?" -'" 2 CHOOSE a game with different clues?" ;'" 3 FINISH playing THE INCA GOLD all together?" 820,8;1;1;"MAKE YOUR CHOICE" k$=:k$=""3550 9k$<491ůk$>513.5,0:3550 3560 +(k$*10 ) G9 ,1;1;1;2;"1":150:500 H11 ,1;1;1;2;"2":150:100d =13 ,1;1;1;2;"3":150   * **OVER AND OUT** .*  R 10 ,0;1;0;7;"ARE YOU SURE YOU WANT TO FINISH?" $(12 ,10 ;" 'YES' OR 'NO' ?" )k$=:k$=""3625) ..1}L,15 3k$="y"k$="Y"0 8k$="n"k$="N"3500 ="UX6000W7C":3625) , * *** U D G S *** ,* k=65368X65471 a:k,a k  K24,24,24,255,255,24,24,24 E0,0,0,255,255,0,0,0 I24,24,24,24,24,24,24,24 G0,0,16,568,84T,16,16,16 H24,24,24,0,0,85U,85U,127 K16,16,480,175,175,480,16,16 I120x,480,480,243,243,0,0,0 F16,16,16,19,19,0,0,0 I99c,99c,99c,227,247,0,0,24 M127,73I,91[,255,201,65A,85U,127 E0,0,0,240,240,0,0,0 E480,72H,72H,480,0,0,0,0 F0,73I,42*,0,99c,0,42*,73I  h* **** START SCREENS* * 1:2:7: 6:0,0:255,0:0,175:-255,0:0,-175:1,1:253,0:0,173:-253,0:0,-173 _4,4:247,0:0,167:-247,0:0,-167 U5;3,10 ;"NYITRAISOFT";6;5,9 ;"2001' PRESENT:" g10 ,15;7;6;1;" ";11 ,15;"";12 ,15;"" g13 ,15;6;1;1;" ";14,15;"";15,15;"" g16,15;5;3;1;" ";17,15;"";18,15;""  g10 ,18;2;7;1;" ";11 ,18;"";12 ,18;"" g13 ,18;1;6;1;" ";14,18;"";15,18;"" g16,18;6;1;1;" ";17,18;"";18,18;"" #m3;12 ,1;"THE INCA";6;14,3;"GOLD";5;16,2;"RELIEF" %B$="NYITRAI 2001'" 'I=114 ($5;3+I,31;B$(I) ) .01z# =,I *I P p u* zj* END OF GAME * * NYITRAISOFT * * 2001' * * aIBNYITRAI 2001''K v^?;11 ,15 4u8u815H<]]] :] E98E9\|8Wq !E9E99|8E9E99E993|8Mq\o^8&][![>*{\B*=\s#r*=\q#p>2:\*{\B}RJS $$$~$$~$>(> >bd&F(*D:  >>> ||8~|0`||0` ||| 0000||||~| >> 90Z @r2;4,0;" YOU MUST TRY TO WORK OUT WHERE HE IS HIDING BY TYPING IN QUESSES LIKE THIS:-" B16;8,10 ;1;"( 4 , 5 )" D=2;10 ,0;" THESE ARE CALLED CO-ORDINATES" FQ95_:1000:x=4:y=5:c$="BANG":3000 :95_ H 90Z J|5;4,0;" YOU ARE GIVEN VARIOUS CLUES AS TO HOW FAR OUT YOUR GUESS IS FROM THE INCA'S HIDING PLACE." Ld6;8,0;" YOU CAN CHOOSE WHICH SORT OF CLUES YOU ARE GIVEN FROM THIS MENU." N@95_:f=1:100d: f=0:95_:90Z PY2;8,0;" BUT THE BEST WAY OF FINDING OUT HOW TO PLAY IS BY PLAYING." Rk3;14,0;" IF YOU ARE A COMPLETE BEGINNER THEN START WITH '1' ON THE CLUES MENU." T95_:100d Z0:0:7: [90,0;" T H E I N C A G O L D . " \ _Q100d:#1;1,6;1;1;"PRESS 'C' TO CONTINUE " `k$=:k$=""96` a567CƯ99c.5,0:96` b'"T240UX500W7N2CDECDECDECDECDECDE9C": c0 * d* M E N U * e1* f&1:1:6:1: i90,0;" T H E I N C A G O L D . " n>5;1,0;"WHICH SORT OF CLUES DO YOU WANT?" p-0;" " s$" 1 INCA GOLD SHOWN - HIT OR MISS" x'" 2 WARM / COLD" }'" 3 HOW MANY UNITS AWAY" "'" 4 DIRECTION (N,S,NE,SW ETC.)" '" 5 BEARING." '" 6 VECTORS" '" 7 MOVING GRID- WARM/COLD" '" 8 MOVING GRID - UNITS AWAY" '" 9 MOVING GRID - DIRECTIONS" '" 0 MOVING GRID - BEARINGS." f=1 A#1;2;1,7;1;"CHOOSE YOUR CLUES" k$=:k$=""170 8k$>579ůk$<480.5,5:170 t=k$:t=0t=10 7"UX6000W7C":t<4t=7t=8500 2:2:7: f* *** ORIGIN OF CLUES *** * >0,0;6;" T H E I N C A G O L D . " 17,0;" DO YOU WANT YOUR CLUES TO:-" 410 ,0;" G POINT FROM 'G'UESS TO GRID" I13 ,0;" H POINT 'G'RID TO YOUR LAST GUESS?" :18,7;1;1;" MAKE YOUR CHOICE " k$=:k$=""230 k=k$ !k<97ak=k+32 :k$=k 7k<103gk>104h.5,10 :230 "UX6000W7C":t$=k$ , * ***CONTROL LOOP*** .*  900  G=1  1000  1500 x=hxy=hy3300 & 2000 : 3000 D&g=g+1:g=11  3400H N 530 hx=(*9 ) hy=(*9 )   * *** SET UP GRID *** .* 4:5:0: 40,0;1;" " 1;2;1,23;"THE INCA";2;6;2,23;"G O L D.";0;4,22;"GUESSCLUE";5,22;"" (k=616:k,27;"":k !17,22;"" 1,0; k=19 T2;1;" ";1;10 -k;0;1;" " ,1;1;" "  k <2;1;" 0";1;" " V1;2;" 0 1 2 3 4 5 6 7 8 9 " #1;" " "T240UX1000W0O7N2c#f#gEA" $ t1 .18-(hy*2),1+(hx*2);7;2;1;" ";19-(hy*2),1+(hx*2);"";20-(hy*2),1+(hx*2);"" 8 L * **TYPE IN GUESS** -* N#1,1,1;5;1;"PLEASE TYPE IN GUESS NUMBER ";g -l=25:19,23;" ?, " k$=:k$=""1510 ?k$<58:Ưk$>47/l<33!ˤ"UX6000W7C":1560 8k$=13 l=33!.1}L,15:1600@ 'k$12 ˤ"UX6000W7C":1510  "UX6000W7C" +l=25.5,10 :1510 l=33!19,29;1;"?":l=29:20,22;" ";21,22;" ":1510  1505 "19,l;2;1;k$ "4l=25x=k$:19,29;1;"?" ,Al=29y=k$:20,22;1;1;"ENTER" 6l=l+4:1510 @20,22;" " J T * ***WORK OUT CLUE*** 0* $t<72000+(502*t) 1750+(t*502)  c$="MISS": 4d=(hx-x)+(hy-y) 9d>10 c$="FRIZ": >2130R+d C t<7 H 2500 S c$="FIRE": T c$="VHOT": U c$="HOT!": V c$="HOT ": W c$="WARM": X c$="GLOW": Y c$="COLD": Z c$="BRRR": [ c$="VCOL": \ c$="ICY": fd=(hx-x)+(hy-y) k$d<10 c$=" "+d:2115C p c$=" "+d u 2115C c$=" ":t$="h"2230 yhyc$=c$+"S" xhxc$=c$+"W"  2248 yhyc$=c$+"N" xhxc$=c$+"E" t>62500  -c=0:dx=hx-x:dy=hy-y:ax=dx:ay=dy #dx=0dy=02254 c=((((ay/ax))/)*180) 1dx0Ƽdy=1c=c+0:2260 1dx>0dy0c=c+90Z:2260 4dx0Ƽdy=-1c=c+180:2260 (dx=-1dy0c=c+270 #t$="h"c180c=c+180 #t$="h"c>180c=c-180 &c100dc$=(c)+"":2290 *c<10 c$=" "+(c)+"":2290 c$=" "+c+"" t>62500   * **** VECTORS? **** /* -c$="":t$="h"dx=x-hx:dy=y-hy:2320 dx=hx-x:dy=hy-y dx0c$=" "  c$=c$+dx dy0c$=c$+" "  c$=c$+dy $t>62500 ) Idx=0:dy=0:dx=(*3)-1:dx02530 dy=(*3)-1 (hy+dy0hy+dy<10 hy=hy+dy (hx+dx0hx+dx<10 hx=hx+dx  ( * ****PLOT GUESS* .* <5+g,22;"(";x;",";y;")";5+g,28;c$ S19-(y*2),2+(x*2);2;6;1;1;"" W$="T170O3N1cge3C" X$="T170O5N1cge3C" Y$="T170O7N1cge3C" W$,X$,Y$ Q19-(y*2),2+(x*2);2;6;1;1;g   /* **** HEUREKA! **** *** DIRECT HIT!*** ,* c$="HIT!" <5+g,22;"(";x;",";y;")";5+g,28;c$ S19-(y*2),2+(x*2);2;6;1;1;"" N=12 X$="T240O2bb9E2bEb3E9B" Y$="T240O4bb9E2bEb3E9B" Z$="T240O6bb9E2bEb3E9B" X$,Y$,Z$ N 18-(y*2),1+(x*2);7;2;1;" ";19-(y*2),1+(x*2);"";20 @u # 8853,0: DRAW 0,-173 5103 PLOT 4,4: DRAW 247,0: DRAW 0,167: DRAW -247,0: DRAW 0,-1675104 PRINT INK 5; AT 3,10;"NYITRAISOFT"; INK 6; AT 5,9;"2001' PRESENT:"5105 PRINT AT 10,15; INK 7; PAPER 6; BRIGHT 1;" "; AT 11,15;""; AT 12,15;""RUN 5110 PRINT AT 13,15; INK 6; PAPER 1; BRIGHT 1;" "; AT 14,15;""; AT 15,15;""5120 PRINT AT 16,15; INK 5; PAPER 3; BRIGHT 1;" "; AT 17,15;""; AT 18,15;""5130 PRINT AT 10,18; INK 2; PAPE R 7; BRIGHT 1;" "; AT 11,18;""; AT 12,18;""5140 PRINT AT 13,18; INK 1; PAPE @P!88q8p8p8p8p8p8p8p8p8p8p8p8'' R 6; BRIGHT 1;" "; AT 14,R 6; BRIGHT 1;" "; AT 14,18;""; AT 15,18;""TART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE CTART WITH '1' ON THE Cj5102 INK 6: PLOT 0,0: DRAW 255,0: DRAW 0,175: DRAW -255,0: DRAW 0,-175: PLOT 1,1: DRAW 253,0: DRAW 0,173: DRAW -253,0: DRAW 0,-173  * * 128K BASIC * * AND * **** STEREO EFFECTS *** ^ ATGHTQP01@0&00 00!!! !0!> @!P!G( ~#(S:>2 > ~G#(x>>yQ!ta8߾ #(7 (~#(ܷxQ8RUGHt[u