KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK C128x C34 C95 140$ (C);F: S((LOC2)256) (LOC1)E((LOC4)256) (LOC3): LES: E S L(METS)E M4 S0: E0: L0: : " START ADDRESS....."," DEC";S: HS 10) (145) " HEX ";: 410: "   (147): /|: 10)"BY": : "C.R.WHITAKER DEC 1986"5gP10: H4096 P1(H4096): HH(P14096)P20: H256 P2(H256): HH(P2256)P30: H16 P3(H16): HH(P316) H$(P1)H$(P2)H$(P3)H$(H):  0,1,2,KKKKKKKKEND ADDRESS......."," DEC";E: HE: 10) (145)" HEX ";: 410f: " PROGRAM LENGTH...."," DEC";L: HL 10) (145)" HEX ";: 410TLBA: Z$"BASIC": M3 TLMC: Z$"MACHINE CODE" M4 Z$"SEQUENTIAL": : : 290 SSCRT: GOTO 34016PRINT: PRINT" AUTORUN AND/OR TURBO SAVED ";i@IF S> SCREEN THEN PRINT"UNLIKELY ":PRINT: GOTO 340JPRINT"LIKELY ":PRINTT: (18) (29)"(Q)TO QUIT..... (R)TO READ ANOTHER "^F$: F$"R" h F$"Q" 350r3,4,5,6,7,8,9,A,B,C,D,E,FKKKKKKK EEN : : 290/T$(T): T60 Y$(T$,3): 280oX(T60): YT(X60):X$(X):Y$(Y):X$(X$,3):Y$(Y$,3): " LOAD TIME.........",X$;: "MINS ";: Y$;: "SECS"": " SAVED AS.........."," "Z$,IF M=4 THEN PRINT: PRINT: PRIN d" TINYMON 1n" JIM BUTTERFIELD"Lx((43)256(44)078)-".#7$8%"#""<"#""!&"#""e$&e%H787h7H787h7ɿ7384l7x Xhhhhhh8LS#--DDDDEEEEEFFGHHIIJJKLLM6(L256)PP2L(P1256)$Z774,P20d775,P1" **************************C * UNI-TAPE HEADER *d * INFO. * * * * BY * * C.R.WHITAKER * * DEC 1986 *  ***************."NE=";NE2 N 1 NE$n R,Z?sB(N)PS15(N1)TW15Rt"CALCULATING"ax I0 31sXR(I12)YR(I12)XTXYTY(PH2360)Z(PH2360)XUXT(TH2360)YT(TH2360)YUXT(TH2360)YT(0),M(N,IA,1) I N) NE1 3000H$ HB(1) (24AB(1)) Ae.1,"M",M(1,H,0),M(1,H,1)s8JHTW15B N2 NEL1,"D",M(N,J,0),M(N,J,1)VJJTW15` Nj Hl TH PH PS TW 15,60,00,15 R Z ROM SIDE TO SIDE;  PH IS ANGLE OF TILT IN FRONT TO BACK DIRECTIONa | PS IS ANGLE OF ROTATION ON AXIS  TW IS ANGLE OF TWIST FROM ELEMENT TO ELEMENT D ALL ANGLES ARE IN DEGREES-USE ONLY MULTIPLES OF 15 DEG. p NOTE PROGRAMME TAKES UP TO *********** Y LOC828: SCREEN7680: MET65535: BA49: MC51: ***** SEE TEXT *****D$(17): X1 9: E$E$D$: : X$" 0": Y$"0" H$(15): I0 15: H$(I): : R$" PROGRAM NAME...... "( 380: E$;: "INSERT TAPE AT CORRECT";2"POSITION TO BE 'READ'"_< (E$,4);: (18)" PRESS ANY KEY TO CONTINUE "vF F$: F$"" 70P1: 1: 380ZM(LOC): M4 R$" FILE NAME......... "d: : R$;" ";: XLOC5 LOC20: C(X)n C192 CX4,4,1,6,3,1,5,2,0,4,2=n MON,TUES,WEDNES,THURS,FRI,SATUR,SUNRxA$(D)"DAY": 30 B* R? . ' @.  lLK L .:  o°LPLP ` HJJJJ h) H hLiii:`H•h`  `LK* @   HHH@xlLK@ " "& L X)LP , ) , , S  LP PC SR AC XR YR SPMRXG:;# *** IAN BENNETT 14/3/84 ***@ FOR THE VIC 20 & C 64d UNIVERSAL LIST PAUSE PROGRAMj:"ENTER PROGRAM LOCATION":L X(774)Y(775)I0L7L:A:I,A:(72,173,141,2,208,251,104,7628L,X<9L,YFP1422,25$A$:A$""22(147):N(147)(5)"GOTO1"(31)i631,19:632,13:198,2y22,35:10  PRESS ANY KEY   "SPLINE" ; 3D WIREFRAME GRAPHICSi USING COMMODORE 1520 PRINTER/PLOTTERo GARFIELD DAVIES 19861,6,12,6,2 M(5,32,2),B(5)( TH,PH,PS,TW-"TYPE IN NUMBER OF ELEMENTS-NE" TH2360)XXXU240YYYU/M(N,I,0)XX?M(N,I,1)YYG IO N{"TYPE IN NUMBER OF SIDES UP TO 24""N=";NA24N 2,0 N1 NE IB(N) (24AB(N)) A1,"M",M(N,I,0),M(N,I,1)1,"D",M(N,IA,100,-140 010,-120 020, 100- 100, 120< 150, 220G 1,"H"P 2,0V DATA HAS R=RADIUS OF CIRCLE DEFINING EACH ELEMENTP Z=POSITION OF ELEMENT ON AXIS + OR - FROM CENTRAL POINT  TH IS ANGLE OF ROTATION OF FIGURE FbA MINUTE TO APPEARR  THE WORD-CALCULATING-WILL APPEAR AS DATA FOR EACH STAGE IS CALCULATED TEXT$(100): 204,00 X$: X$"" 10b X$;: X$(13) TEXT$(J)TEXT$(J)X$: 10 TEXT$(J)"***" JJ1: 10d K0 J1: TEXT$(K): % M(12): I1 12: A:M(I)A:C I1 7: A$:A$(I)A$:_"ENTER DAY,MONTH,YEAR"k( D,M,Y2A%Y4:ZYA%:A%Z7:ZZA%7< M3 (Y4)4Y Y0 ZZ1FA%D7:DDA%7:DDM(M)ZP D7 DD7Z D1 DD7d 0,  @0 5******8`:)(i` hhLP (` a,-0` L` ` LK `©`'` , L  .;  oLP    " 32,235,215,134,251,169,199,141> 4,3,169,2,141,5,3,166_ 20,24,144,28,169,124,141,4~ 3,169,197,141,5,3,96,173 0,2,72,32,124,197,104,201 58,176,243,165,251,101,20,170 165,21,105,0,134,99,133,98 162,144,56,152,72, L.POINT 1D ARRAYx:+TI$"000000"h I1 N1:SA(I):XI: JI1 N: A(J)S SA(J):XJ:A(X)A(I):A(I)S:T1TI60J1 N: J,A(J)::"EXCHANGE FL.POINT","1D ARRAY"R(T1)"SECS": A$: A$"" 200: XCHANGE-FL.POINT","+POINTERS"R(T2)"SECS")> A$: A$""410DY SET UP STRINGS_:"NOW SETTING UP DEMO","STRINGS..."J1 254:S$S$(65(1)26):::J(1)& J1 N: K14:A$(J,K)(S$,(1)2401,6): A$(J,K)" ";)P(I):P(I)T:T3TI60H: J1 N: K1 4: A$(P(J),K)" ";: K:: J}:"EXCHANGE 2D STRING","POINTERS"R(T3)"SECS": A$: A$"" 710 * SHELL-2D STRING+POINTERS4>J(1) H J1 N:K1 4:A$(J,K)(S$,(1)(M2):A(M0):T4TI60F: J1 N: K1 4: A$(P(J),K)" ";: K:: Jx:"SHELL 2D STRING+","POINTERS="R(T4)"SECS"~ TIMINGS::"TIMINGS WITH ARRAYS OF"N"CHARS.""======================":$:."EXd4,254,0,201,48,144,16,32,53,254,21040 0,6,42,6,42,6,42,6,42,5N 0,0,0,0,0,0,0,0,0,0,1970,49,16,110,0,153,34;h 17,32,74,73,77,32,66,85,84,84,1175^i 69,82,70,73,69,76,68,34,0,76j 16,120,0,158,40,194,40,52,51,41,1329k 170,50,53,54,172,194,40,52,52,41l 170,48,55,56,41,0,0,0,234,234,1716m 165,45,133,34,165,46,133,35,8,56,198/t 55,104,145,55,138,72,165,55,208,2,2091Yu 198,56,198,55,104,145,55,24,144,182v 201,191,208,237,165,55,133,51,165,56,2623w 133,52,108,55,0,0,0,0,0,0x 0,0,191,120,173,254,255,0,174,255,1770y 255,0,141,22,3,142,23,3,169,63,32,210,255,32,178,254,0,169,2564@ 46,32,210,255,169,0,0,133,39,32n 64,254,0,201,46,240,249,201,32,240,2443 245,162,7,221,230,255,0,208,18,133 28,138,10,170,189,238,255,0,133,193,2833 189,239,255,0,133,194,108,193,0,0196,229,194,176,223,76,80,253,0,76,2820A 80,253,0,32,254,253,0,133,193,134p 194,96,165,194,32,204,253,0,165,193,2828 72,74,74,74,74,32,228,253,0,170 104,41,15,32,228,253,0,72,138,32,1966 210,255,104,76,210,255,24,105,246,14432,73,220& 32,223,221,185,255,0,240,6I 153,118,2,200,208,245,169,58l 153,118,2,132,198,104,168,96x 10178% **** POINTER SORTS ****+:N *** BY M. C. HART ***T(:~2N10: A$(N,4),P(N),A(N),B(N):J(1)<:F R(X)(X10000.5)1000P J1 N:A(J)((1)101): J,A(J):B(J)A(J):P(J)J::Z:dn EXCHANGE -F J1 N:A(J)B(J): J,A(J)::!:',J6 EXCHANGE -FL. POINT+POINTERSP@VJ:gTTI$"000000"^I1 N1:SA(P(I)):XI: JI1 N:A(P(J))SSA(P(J)):XJh:TP(X):P(X)P(I):P(I)T:rT2TI60| J1 N:J,A(P(J))::#"E0 K:: J:::4D"SORT ON WHICH FIELD":"(1-4)";FJN F1 F4 580PXrb EXCHANGE-2D STRING+POINTERSxl~v:TI$"000000" I1 N1:X$A$(P(I),F):XI JI1 N: A$(P(J),F)X$ X$A$(P(J),F):XJ:TP(X):P(X2401,6): A$(J,K)" ";R K:: J:A\"SORT ON WHICH FIELD":"(1-4)";FWf F1 F4 860]pnzTI$"000000"M(N2): A1 0: J1 NM: HJ 0 M:LHMK0: A$(P(H),F)A$(P(L),F) ZP(H):P(H)P(L):P(L)Z:KHHK:::MCHANGE 1D FL.PT.",R(T1)"SECS"@8"EXCHANGE 1D FL.PR.+ POINTERS"R(T2)"SECS"rB"EXCHANGE 2D STRINGS+ POINTERS"R(T3)"SECS"L"SHELL 2D STRINGS+ POINTERS"R(T4)"SECS" TINYMON/1A S4096: J101 154 2:T0: K1 20: Xh S,X:SS1:TTX:: C: TC 40"ERROR-LINES"J"-"J1:(:"TINYMON/1 LOADED":e 0,24,16,100,0,153,34,147,17,17f 18,29,29,29,32,84,73,78,89,77,1046g 79,78,32,165,55/n 133,36,165,56,133,37,160,0,165,34,1895Wo 208,2,198,35,198,34,177,34,208,60p 165,34,208,2,198,35,198,34,177,34,2239q 240,33,133,38,165,34,208,2,198,35r 198,34,177,34,24,101,36,170,165,38,2063s 101,37,72,165,55,208,2,19,128'z 32,144,255,88,0,0,104,133,5,104,1751O{ 133,4,104,133,3,104,133,2,104,133y| 1,104,133,0,0,186,134,6,56,165,1638} 1,233,2,133,1,165,0,0,233,0~ 0,133,0,0,32,178,254,0,162,66,1593 169,42,32,219,253,0,169,82,208,28 169 202,16,230,76,75,253,0,32,189,253,2637C 0,144,248,32,238,253,0,32,189,253o 0,144,240,32,238,253,0,32,76,254,2658 0,240,31,32,178,254,0,162,46,169 58,32,219,253,0,32,197,253,0,169,2325 5,32,111,254,0,165,195,197,193,165  2,105,6,105,58,96,162,2,181,192,2538F 72,181,194,149,192,104,149,194,202,208q 243,96,32,13,254,0,144,7,170,32,2636 13,254,0,144,1,96,76,75,253,0 169,0,0,133,42,32,64,254,0,201,1807 32,240,249,32,32,254,0,144,23,32 6:JJ1:KK1:550,NJRSS1:ST(S,0)J:ST(S,1)R=XRK:LR540JbS0530VlTTI60pv:"SORTED DATA...": J1 N: J,X$(X(J))::"QUICKSORT TIME="T"SECS": ,32,77,95Hm165,251,197,253,208,9,165,252,197,254,208,3,76,0,95,165,251,201n255,208,2,230,252,230,251,230,250,165,250,201,18,240,8,169,44,32o122,242,76,152,94,173,80,3,201,255,208,9,173,81,3,24,105,1 p141,81,3,173,80,3,24,105,1,141,80,3, 13,208,236,96,162,0,189,60,3,201,65,144Xu3,56,233,7,56,233,48,224,1,240,8,224,3,240,4,10,10,10v10,149,87,232,224,4,208,224,96,134,99,133,98,162,144,56,32,73w220,32,223,221,133,174,132,175,160,0,177,174,240,6,32,122,242,200&x208,246,96,10,0,17,76,73,78,69,32,78,79,32I}83,84,65,82,84,58,45,0,0,17,17,17,17,32,32,32,32,32p~32,79,75,63,32,40,89,47,78,41,0,0ASIC LINE ";BL(n"WHICH TOKEN ";TFDx"CHANGE TO ";TTPMA4099`H(BL256)oLBLH256u: LOOPCL(MA)(MA1)256 CLBL "NOT FOUND.": CLBL 270MAMA2 (MA)0 MAMA1:220MAM255,0,240,6,153,118,2,2008 208,245,169,58,153,118,2,132] 198,24,165,253,101,251,133,251| 144,2,230,252,76,191,234 12382183FH(T256):LTH256:P 55,L: 56,H: 51,L: 52,HYZ 784,76: 785,L: 786,H:|d 32,138,205,32,247,215,24,144n 19,106,106,106,106,41,15,24x 105,48,201,58,144,2,105,6 32,210,255,96,165,21,32,-9 3,165,21,32,-13,3,165,10,255,24,169,8, 101,20,133,20,144,174,230,21P 176,170,169,13,32,210,255,169r 58,32,210,255,32,-163,3,133 21,32,-163,3,133,20,32,228 255,201,13,240,14,201,58,208 245,32,210,255,32,-163,3,160" 0,145,20,169,13,32,210,2% *** AUTOLINER-RETURN ***+:N ** BY MIKE HART **T:q J680 767: X:TTX J,X: J: C TC "ERROR!": "O.K.": : SYS(680) FIRSTLINE,INCREMENT : SYS 700 TO TURN 'OFF': :" 169,192,141,20,3,169,2,141C 21,3,32,235,215,165,20,133g 251,165,21,133,252,134,253,96 166,211,224,1,208,54,165,197 201,32,208,48,202,134,211,166 251,165,252,133,98,134,99,162 144,32,73,220,32,223,221,185 $ M/C TO DATA BY R. NICKSON6 52,94:56,94]C0:I0479:D:24064I,D:CCD:~C50865"DATA ERROR!!!":(" TO ACCESS M/C TO DATA  ENTER:- SYS 24064":d160,95,169,124,32,30,203,32,19,95,32,42,95,32,107,95,160,954e169,i3,165,21,157,81,3,160,95,169,203,32,30,203,32,228,255,240,251j201,89,240,7,201,78,208,243,76,0,94,169,147,32,210,255,174,80k3,173,81,3,32,77,95,169,32,32,122,242,169,68,32,122,242,169l97,32,122,242,169,0,133,250,162,0,161,251,170,169,0162,0,189,245,94,157Qq119,2,232,224,11,208,245,138,133,198,96,145,145,13,83,217,50,52r49,56,51,13,104,104,162,0,189,245,94,157,119,2,232,224,3,208s245,138,133,198,96,162,0,134,255,32,228,255,240,251,32,210,255,166t255,157,60,3,232,201,62,0,165,87,24,101,88,149,252,165,89,24,101,90,149cy251,96,147,32,32,32,32,32,77,47,67,32,84,79,32,68,65,84z65,17,17,17,32,32,32,32,32,32,83,84,65,82,84,32,65,68{68,82,69,83,83,58,45,0,0,17,69,78,68,32,32,65,68,68|82,69,83,83,32,58,45, UNEXPANDED VIC VERSIONL CHANGE LINE 130 TO MA=1027 FOR ALL PETS~ CHANGE LINE 130 TO MA=2051 FOR COMMODORE 64( CHANGE LINE 130 TO MA=1027 FOR VIC WITH 3K EXTRA2 CHANGE LINE 130 TO MA=4611 FOR VIC +8K OR MORE<: d"WHICH BA3  180:  ALTER LINE,MAMA2L (MA)0 "NOT FOUND.":s" (MA)TF MA,TT:"CHANGED.":,MAMA16 280 "WATCH THIS LINE." *** MICROMON ***#:> ** BY MIKE HART **S (1985)Y:w N195:T(55)256(56)N JT TN1: X: X0 50XTX:YX(X256)256:J,Y(XX256:JJ1: Z2 J,X:< (792)71 T2,173: T5,20 32,-9,3,165,20,32,-13,3> 169,58,32,210,255,169,32,32a 210,255,32,210,255,160,0,177 20,32,-9,3,177,20,32,-13 3,169,32,32,210,255,200,192 8,208,236,32,228,255,201,32 240,193,201,61,240,20,201,13  208,241,32,255, 24,144,201,32,-178,3,10,10=6 10,10,133,252,32,-178,3,101`@ 252,96,32,228,255,240,251,32J 210,255,201,58,41,15,144,2T 105,8,96 " *** AUTOLINER-SPACE ***(:H ** BY MIKE HART **N:k J680 766: X:TTX} J,X: J: C TC "ERROR!": "O.K.": : SYS(680) FIRSTLINE,INCREMENT : SPACE BAR GENERATES LINE NOS... 167,32,30,203,32,19,95,32,42,95,162,2,32,109,95,160,95wf169,185,32,30,203,32,19,95,202,169,0,157,60,3,165,122,164,123g141,96,3,140,97,3,169,60,160,3,133,122,132,123,32,121,0,32h107,201,173,96,3,172,97,3,133,122,132,123,162,0,165,20,157,80= 7N0:S0:E0:W0:7 LOCATION 478"YOU ARE IN A DARK","GLOOMY FOREST"8N0:S0:E48:W0:-8 LOCATION 48Q8"YOU HAVE FALLEN INTO A LAKE"i8N0:S58:E49:W0:{8 LOCATION 498"YOU HAVE FALLEN INTO A LAKE"8N39:S59:E50 LOOMY CAVE";N0:S0:E0:W59:; LOCATION 61<"YOU HAVE TRANSMATTED TO A METALIC ROOM"'<N51:S0:E62:W0:9< LOCATION 62\<"YOU ARE IN A LONG","PASSAGE"t<N52:S0:E63:W0:<  LOCATION 63< "YOU ARE IN A LONG","PASSAGE" LOCATION 78="YOU ARE IN A METALIC ROOM"=N0:S0:E79:W0:> LOCATION 79#>"YOU ARE IN A LONG","PASSAGE"<>N0:S89:E80:W78:N> LOCATION 80p>"YOU ARE IN A METALIC ROOM">N0:S0:E0:W79:> LOCATION 87>"YOU AR ?)N80:S0:E0:W89:?* LOCATION 97?+"YOU ARE IN A METALIC ROOM"@,N87:S0:E98:W0:@- LOCATION 98<@."YOU ARE IN A LONG","PASSAGE"U@/N88:S0:E99:W97:g@0 LOCATION 99@1"YOU ARE IN A LONG","PASSAGE"@2N0:S0:E0:W98:  FOREX!"Al"IT RAISES ITS WEAPON!"Av 10000AL"A DRAGON COMES OUT OF THE LAKE."BV"IT BREATHES FIRE AT"*B`"YOU BUT MISSES!"6Bj 10000dB@"A GREAT LUMBERING","SHAPE JUMPS OUT ON"BJ"YOU. IT IS A ENORMOUS BEAST!"BT"ITS CLAWS REACH  HEAR A SNEER AND THE SHADOW APPEARS."C&%"HE RAISES HIS WEAPON"D0%"AND WARNS YOU NOT TO TAKE ANOTHER STEP."D:% 10000!D'SD'"YOU CANNOT MOVE UNTIL YOU HAVE DEFEATED IT"mD$'"OR BEEN DEFEATED!!"wD.' 540Dt' P88 DA%(1)0 10200Du'  0 10200E~' P1 MA% 0 10200E' 795 F' I$"N"I$"S"I$"E"I$"W""YOU CAN'T DO THAT... YET!!"F' 540UF;(PRINTTAB(8)"PLEASE TURN UP THE VOLUME":FORK=1TO1000:NEXTKmF<("":7)"TRANSMAT"F}(4)"BY TOBY HUGHES"F~(4)"DECEMBE CORRECT OBJECT THEN"G\N"YOU WILL KILL IT."GfN"PRESS'F1' TO START."GpN A$: A$"" 20080 HzN A$"" HN 20080 ARACTER STRINGS:1N20: X$(N),X(N):J(1)T(J1254:A$A$(65(1)26):n2"ORIGINAL DATA...":< J1N:X((1)240)1FX$(J)(A$,X,10): J,X$(J)PX(J)J:::"SORTING...":Z:d SHELLSORT + POINTERSn:xTI$"000UICKSORT + POINTERS:G ST(20,2):S1:ST(1,0)1:ST(1,1)N:TI$"000000"eLST(S,0):RST(S,1):SS1JL:KR:X$X$(X((LR)2))&X$(X(J))X$JJ1:5500X$(X(K))X$KK1:560:JKJJ1:KK1:550 DJKTEX(J):X(J)X(K):X(K)TE :W0:8 LOCATION 508"YOU HAVE FALLEN INTO A LAKE"9N0:S0:E0:W49:9 LOCATION 5199"YOU ARE IN A METALIC ROOM"Q9N41:S0:E52:W0:c9 LOCATION 529"YOU ARE IN A LONG","PASSAGE"9N0:S62:E53:W0:9 LOCATION 53 THE","TRANSMAT ROOM":N0:S0:E0:W0:: LOCATION 58;"YOU ARE IN A DARK","GLOOMY FOREST"+;N48:S0:E0:W57:=; LOCATION 59f;"YOU ARE IN A DARK","GLOOMY FOREST"~;N49:S0:E60:W0:; LOCATION 60;"YOU ARE IN A DARK","G < N53:S0:E64:W0:<  LOCATION 64< "YOU ARE IN A METALIC ROOM" =N0:S0:E65:W63:= LOCATION 65:="YOU ARE IN THE JAIL"Q=N55:S0:E0:W0:c= LOCATION 77="YOU HAVE FOUND THE","TRANSMAT ROOM"=N0:S0:E0:W0:= E IN A LONG","PASSAGE"> N77:S97:E0:W0:>! LOCATION 88?""YOU ARE IN THE CONTROLROOM"!?#N0:S98:E89:W87:3?$ LOCATION 89U?%"YOU ARE IN A METALIC ROOM"n?&N79:S99:E0:W88:?' LOCATION 90?("YOU ARE IN A LONG","PASSAGE" @3 LOCATION 100@4"YOU ARE IN A METALIC ROOM"@5N90:S0:E0:W0:Ad"A ROBOT IS COMING","TOWARDS YOU"0An"IT SCREAMS'INTRUDER'"TAx"EXTERMINATE!","EXTERMINATE!'"`A 10000AX"A HUGE METAL FIGURE ISBEARING DOWN ON YOU."Ab"IT IS A  FOR YOUR THROAT."B^ 10000B4!"AN ENORMOUS BEAST IS IN FRONT OF YOU."C>!"IT HAS SEEN YOU!"CH! 100009C(#"YOU ARE SINKING INTO THE GROUND!"TC2#"YOU ARE IN A SWAMP!"C<#"YOU ARE UP TO YOUR","KNEES,YOUR SHOULDERS."CF# 10000C%"YOU  P77 DA%(2)0 10200Dv' P62 CY%(1)0 10200Dw' P41 CY%(2)0 10200 Ex' P45 CY%(3)0 10200+Ey' P48 SD% 0 10200IEz' P27 YE%(1)0 10200gE{' P29 YE%(2)0 10200E|' P 9 YE%(3)0 10200E}' P14 MO% ER 1983"F(K12000::F N"OTHER THAN THESE YOU MUST USE TWO WORDS."G*N"THE NAMES OF YOUR","COMPANIANS ARE:"'G4N"ZORA,VENAN,BERIX."MG>N"TREAT THEM AS OBJECTS-GET ZORA"{GHN"TO KILL AN ENEMY JUST TYPE KILL......"GRN"AND IF YOU HAVE TH * SHELLSORT/QUICKSORT..WITH POINTERSD ---WITH POINTERS---Ja BY M. C. HARTgJ0:L0:K0:R0:S0: QUICKSORT L=0:H=0:M=0:K=0:Z=0:A=0:J=0:REM SHELLSORT: 20:100::20:500::  FILL ARRAYS WITH 10-CH 000".M(N2):A10:J1NM:HJ0M:LHMeK0:X$(X(H))X$(X(L))ZX(H):X(H)X(L):X(L)Z:KHHK:::M(M2):A(M0):TTI60:"SORTED DATA...": J1N:J,X$(X(J))::"SHELLSORT TIME="T"SECS"::  Q 9"YOU ARE IN A METALIC ROOM"9N43:S0:E54:W52:9 LOCATION 54 :"YOU ARE IN A LONG","PASSAGE"9:N44:S0:E55:W53:K: LOCATION 55n:"YOU ARE IN A LONG","PASSAGE":N45:S0:E0 :W0:: LOCATION 57:"YOU HAVE FOUND AD.":0#;"OK.YOU BLOCKED THE SIGNALS TO IT WITH THESONIC SCREWDRIVER": 1500i#<P14 "I CAN'T SEE THE MONSTER HERE!": 240#= OB%(1)1 1087#>"YOU CAN'T.YOU ARE DEAD!":#?"OK.YOU BLASTED IT TO BITS WITH THE LAZER": 150 1 "OK THE ANTIGRIVATY JEWEL KEPT YOU AFLOAT":1620/'O"SORRY-YOU ARE DEAD!!!":?'TSW%1: 240^'"YOUR INVENTORY IS:":IV0k' I1 4' OB%(I)1 OB$(I):IVIV1'' OB%(6)1 OB$(6):IVIV1' OB%(8)1 OB$(8):IVI "TRY KILLING IT." 240)CP77DA%(2)1"TRY KILLING IT." 240:)HP62CY%(1)1"KILL IT ." 240`)MP41CY%(2)1"KILL IT ." 240)NP45CY%(3)1"KILL IT ." 240)RP48SD%1"WATCH OUT FOR HIS","BREATH": 240)WP27YE%(1)1 "YOU'RE DOING FINE.": 240* K0: I1 9+ OB$(I)NO$ 3020+ KK1:J+ K9 "I DON'T UNDERSTAND",NO$: 240u+ OB%(I)1 "YOU HAVE GOT IT.": 540+ OB%(I)P "IT ISN'T HERE.": 540+ "OK":OB%(I)1+ 540+ K0: I1  LOCATION 2-u"YOU ARE IN A DARK","GLOOMY FOREST"-vN0:S12:E3:W0:(-w LOCATION 3Q-x"YOU ARE IN A DARK","GLOOMY FOREST"h-yN0:S13:E4:W2:y-z LOCATION 4-{"YOU ARE INSIDE A SMALLWOODEN HUT"-|N0:S14:E0:W3:-} LOCATION E IN A DARK","GLOOMY FOREST".N0:S0:E0:W8: / LOCATION 107/"YOU HAVE TRANSMATTED TO A FLAT PLAIN"N/N0:S20:E0:W9:`/ LOCATION 11z/"YOU ARE ON A PLAIN"/N1:S21:E12:W0:/ LOCATION 12/"YOU ARE IN A DARK","GLOOM  A CITY":N5:S0:E0:W14:0 LOCATION 171"YOU ARE IN A DARK","GLOOMY FOREST"01N0:S27:E18:W0:B1 LOCATION 18k1"YOU ARE IN A DARK","GLOOMY FOREST"1N0:S28:E0:W17:1 LOCATION 191"YOU ARE IN A DARK","GLOOMY FOREST" :E0:W21:2 LOCATION 233"YOU ARE IN THE REMAINSOF A CITY"3N13:S0:E24:W0:,3 LOCATION 24S3"YOU ARE IN THE REMAINSOF A CITY"k3N14:S0:E0:W23:}3 LOCATION 253"YOU HAVE TRANSMATTED TO A FOREST"3N15:S0:E0:W24 4 LOCATION 304"YOU ARE ON A WIDE OPENPLAIN"5N20:S40:E0:W29:5 LOCATION 37A5"YOU ARE IN A DARK","GLOOMY FOREST"Y5N0:S47:E38:W0:k5 LOCATION 385"YOU ARE IN A DARK","GLOOMY FOREST"5N28:S0:E39:W37:5 LOCA IN A LONG","PASSAGE"6N0:S0:E43:W41:6 LOCATION 437"YOU ARE IN A LONG","PASSAGE"07N0:S53:E42:W44:B7 LOCATION 44d7"YOU ARE IN A METALIC ROOM"{7N0:S0:E0:W43:7 LOCATION 457"YOU ARE IN THE","TRANSMAT ROOM" 0#@P1 1090$A"THE SHADOW IS NOT HERE!": 240P$BOB%(9)1"BERIX KNOCKS HIM OUT.":X0:MA%1 : 1092m$C"SORRY-YOU ARE DEAD!":$D"YOU HAVE YOUR","SPACESHIP BACK!"$E"YOU HAVE:"$F OB%(9)1 OB$(9):XX1$G OB%(7)1 OB$ ONS!"%W% P88 DA%(1)1& P77 DA%(2)1%& P62 CY%(1)1;& P41 CY%(2)1Q& P45 CY%(3)1g& P48 SD% 1}& P27 YE%(1)1&" P29 YE%(2)1&, P 9 YE%(3)1&6 P14 MO% 1&@ 240'J OB%(8) V1'  IV0 "NOTHING"("COMPANIONS:":IX0((  OB%(5)1 OB$(5):IXIX1J(* OB%(7)1 OB$(7):IXIX1l(+ OB%(9)1 OB$(9):IXIX1(, IX0 "NOBODY"(- 540(4P100"TRY GOING NORTH-PRESS 'N'!": 240(>P88DA%(1)1 "ISN'T HE BEASTLY." 240*XP29YE%(2)1"ISN'T HE BEASTLY." 240E*YP 9YE%(3)1"ISN'T HE BEASTLY." 240g*\P14MO%1"KILL IT." 240*fP11SW%1"TRY NOT TO SINK BUT SWIM!": 240*pP1MA%1"TURN ON THE LIGHT.": 240*  9+& OB$(I)NO$ 3120++ KK1:,, K9"I DON'T UNDERSTAND",NO$: 240K,0 OB%(I)1 "YOU HAVEN'T GOT IT.": 540^,: "OK":OB%(I)Ph,D 540x,p LOCATIONS,q LOCATION 1,r"YOU HAVE FOUND YOUR SPACESHIP",sN0:S0:E0:W0:,t 5-~"YOU ARE IN THE REMAINSOF A CITY".N0:S15:E0:W4:. LOCATION 7A."YOU ARE IN A DARK","GLOOMY FOREST"X.N0:S17:E0:W0:i. LOCATION 8."YOU ARE IN A DARK","GLOOMY FOREST".N0:S0:E0:W7:. LOCATION 9."YOU AR Y FOREST"/N2:S22:E13:W12:/ LOCATION 130"YOU ARE IN THE REMAINSOF A CITY"60N3:S23:E0:W0:H0 LOCATION 14w0"YOU ARE IN A MASS OF DENSE UNDERGROWTH"0N4:S24:E15:W0 :0 LOCATION 150"YOU ARE IN THE REMAINSOF 1N9:S29:E20:W18:1 LOCATION 20 2"YOU ARE ON A LARGE","PLAIN"#2N0:S30:W19:E0:52 LOCATION 21^2"YOU ARE IN A DARK","GLOOMY FOREST"v2N11:S0:E22:W0:2 LOCATION 222"YOU ARE IN A DARK","GLOOMY FOREST"2N12:S0 :3 LOCATION 273"YOU ARE IN A DARK","GLOOMY FOREST"4N0:S37:E28:W0:#4 LOCATION 28L4"YOU ARE IN A DARK","GLOOMY FOREST"e4N18:S38:E0:W27:w4 LOCATION 294"YOU ARE IN A DARK","GLOOMY FOREST"4N0:S39:E30:W0: TION 395"YOU HAVE FALLEN INTO A LAKE"5N29:S49:E40:W38:6 LOCATION 4036"YOU HAVE FALLEN INTO A LAKE"J6N0:S50:E0:W0:\6 LOCATION 41~6"YOU ARE IN A METALIC ROOM"6N0:S51:E0:W0:6 LOCATION 426"YOU ARE (7):XX1%H OB%(5)1 OB$(5):XX1%I X3 1110E%J OB%(9)1 "YOU DON'T HAVE THE BERIX"q%K OB%(7)1 "YOU DON'T HAVE VENAN."%L OB%(5)1 "YOU DON'T HAVE ZORA"%M"YOU HAVE FAILED!":%V"YOU HAVE WON!","CONGRATULATI ";X;",";W;",";V;",";U;",";T;",";S2"" PRESS T TO CONTINUE"M"" PRESS E TO ESCAPE"c$"AA$:AA$""8740s."AA$"T"38"AA$"E"9999"AA$"T"AA$"E"8740(#" GRAPHICS GENERATOR"2#""<#"THIS SEE A DRAGON HERE.":240"5 OB%(1)1 10796"6"YOU CAN'T.YOU ARE DEAD!":l"7"OK.YOU BLASTED IT WITHTHE PHOTON LAZER.": 1500"8P27P29P9 "I CAN'T SEE A BEAST HERE.": 240"9 OB%(6)1 1083":"YOU CAN'T.YOU ARE DE H'=HELP"2"'I'=INVENTORY"77"'N','S','E','W'=MOVE"V8"PRESS 'F1' TO CONTINUE"j9A$:A$""57}:"";: 20000<" GOOD LUCK"d SET POSITIONnP100:N0:S0:E0:W0x OB%(9),OB$(9),SI$(9) I1 9 ARBY1 43,SCREWDRIVER,YOUR SONIC SCREWDRIVERIS HEREN 60,VENAN,VENAN IS HERE 7,JEWEL,A LARGE SHINY JEWEL IS ON THE GROUND 4,BERIX,BERIX IS SITTING HEREDA%(1)0:DA%(2)0 K1 3:CY%(K)0:SD%0: I1 3:YE%(I)0: 6159,0,0,0,0,0: 340OP50P506120,6123,6126,6129,6132,0,6135,6138,6141,6144: 340"P40P406093,6096,6099,6102,6105,0,6108,6111,6114,6117:340,P30P300,0,0,0,0,0,6081,6084,6087,6090:340 6P20P206054,6057,6060,6063,6066,0, %(2)1 7000| P45 CY%(3)1 70006 P48 SD%1 7500S P27 YE%(1)1 8000p P29 YE%(2)1 8000 P9 YE%(3)1 8000 P14 MO%1 8500 P11 SW%1 9000 P1 MA%1 9500 I1 9: OB%( 0 I$"N" I$"E" I$"S" I$"W" 101000: I$"I" 2000DD I$"H" 2100WN I$"T" 850jX I1 (I$)b (I$,I,1)" " 640lv"PLEASE CAN YOU USE TWO WORDS": 540 SP1 (I$) (I$,SP,1)" " 670 P45P57P77"I CANNOT GO THAT WAY": 240<  I$"N" N0 P2P10: 240^* I$"E" E0 P2P1: 2404 I$"S" S0 P2P10: 240> I$"W" W0 P2P1: 240H"SORRY -YOU CAN'T GO THAT WAY!": 540R P77 P45 P57 P49P50 1020"I CANNOT SEE ANY","WATER!": 540[ NO$ "NORTH"NO$ "SOUTH"NO$ "EAST" NO$ "WEST" 1050"PLEASE STATE DIRECTION- IN A FULL WORD": 540 800$ NO$"ROBOT" 1068% NO$"FOREX" 1072& NO$"DRAGON" 107 OU CAN'T YOU ARE DEAD!":!/"OK-YOU BLEW IT UP": 1500Z!0P62P41P45"I CAN'T SEE A FOREX HERE": 240q!1 OB%(3)1 1075!2"YOU CAN'T.YOU ARE DEAD!":!3"OK.THE GOLD STOPPED HIS BREATHING": 1500!4 P48 "I CAN'T  PROGRAM WORKS OUTDATAS FOR USER-DEFINEDCHARACTERS."rF#"USING THE SPACE BAR YOU DRAW A SHAPE IN THE 8 8 BOX ON THE SCREEN; ";P#"AS THOUGH YOU WERE DRAWING IT ON A PIECE OF GRAPH PAPER."U#"PRESS A KEY"V#198,0:198,1:198,0@ PRESS ANY KEY."#198,0:198,1:198,0:"":"'"": B%(7)1+ 36879,25:"": 102994""H 7)"TRANSMAT"` 7)"":""|"YOU MUST RESCUE YOUR""THREE FRIENDS BY","TRANSMATTING FROM""PLANET TO PLANET AND""FIND YOUR SPACESHIP..."("'T'=TRANSMAT"-"'  : OB%(I),OB$(I),SI$(I)J 99,LAZER,A PHOTON LAZER IS ON THE GROUND 80,EXPLOSIVES,THERE ARE EXPLOSIVES LYING HERE 87,GOLD,THERE IS SOME GOLD NEAR YOUR FEET 78,SCARF,A SCARF IS NEARBY 65,ZORA,ZORA IS STANDING NE MO%0:SW%0:MA%0:P2100SPP2: P90 P90 0,0,0,0,0,0,6186,6189,6192,6195: 340 P80 P80 0,0,0,0,0,0,6174,6177,6180,6183: 340 P70 P70 0,0,0,0,0,0,6162,6165,6168,6171: 340  P60 P60 6147,6150,6153,6156, 6069,6072,6075,6078:340P@P10P106028,6031,6034,6037,6040,0,6042,6045,6048,6051:340JP0P6001,6004,6007,6010,6013,0,6016,6019,6022,6025T P88 DA%(1)1 6500^ P77 DA%(2)1 6500h P62 CY%(1)1 7000r P41 CY I)P SI$(I)"YOU CAN GO :"1 N0 " NORTH";G E0 " EAST";^ S0 " SOUTH";t W0 " WEST"; P77 P45 P57 " TRANSMAT":"" (13)"WHAT SHALL I DO NOW ":I$!""& CHECK COMMAND VE$(I$,SP1)NO$(I$,((I$)SP))R VE$"GET" VE$"GRAB" VE$"TAKE" VE$"CARRY" 3000 VE$"DROP" VE$"LOSE" VE$"LEAVE" 3100 VE$"KILL" 900 VE$"SWIM" VE$"FLOAT" 1000"I DON'T KNOW HOW TO : ";VE$: 540  860W"THERE IS NO TRANSMAT CAPSULE HERE": 5407\"YOU STEP INTO THE"\f"CAPSULE AND DE-","MATERIALISE"up P77 P261: 240z P45 P210: 240 P57 P225: 240 1060 P11 1610 VE$"SWIM" P39P40P48 6' NO$"BEAST" 1080 ( NO$"MONSTER" 10843 ) NO$"SHADOW" 1090o *NO$"ZORA"NO$"VENAN"NO$"BERIX""NO I WON'T": 240 +"I CANNOT DO THAT.": 240 ,P88P77"I CAN'T SEE A ROBOT HERE": 240 - OB%(2)1 1071 ."Y :" GRAPHICS GENERATOR "lZ#"YOU MOVE AN '' AROUNDTHE BOX AND BY USING CERTAIN KEYS YOU CAN CREATE ";d#"A BLOCK AS ON GRAPH PAPER AND DELETEWHEN NOT REQUIRED."x#" TO SEE WHICH KEYS TO USE: 400,,,,,228,225,219,400,,,,-F235,223,215,800,,,,,999,,,ZG228,219,228,800,,,,,231,215,223,800,,,,H219,225,225,800,,,,,223,228,223,400,231,223,215,400,,,,I228,228,219,800,,,,,228,228,219,400,228,225,219,400,,,,,215,223,215,3200,,,,9 " A-UP"F" Z-DOWN"0P" M-RIGHT"BZ" N-LEFT"bn"PRESS ANY KEY TO START"vpB$:B$"" 112x""P76807701P,90:P484,90H7680816422H,90:H21,90J0A,42P((1)320) A,32:R22:H2%,A$"M" A,32:R1:H3A6A$"N" A,32:R1:H4K@AARUATT1dBT0 5000J(A)88 36876,250:SS10:36876,0M(A)90 2000TA,42^H1 A22,32hH2 A22,32rH3 A1,32|H4 A1,32) MN110 :36876,0%M1100-::36876,0Z"YOUR TIME HAS RUN OUT"jP14000:z198,0:SHSHSS: 9000: BUGFIX(RMS)"DO YOU WANT ANOTHER GO"""S$S$"Y" S0:H0:R0:I0: 1: BUGFIX(R 0 ZAZA2 YA ZA128  YA797279796 (YA)160TTZAF ZA18420R ZAZA2Z YAe ZA128w YA79948001 (YA)160SSZA!ZA18700 !ZAZA2!YA!"":"YOUR DATAS ARE"""DATA";Z",";Y;",RINTER?X127XX128: CHECK CODE WITHIN LIMITS FOR PRINTERqA$A$(X): CREATE THE HI-RES PRINTER STRINGTP1604,(8)A$:A$"":TP0: PRINT & EMPTY STRING & SET COUNTER::4:4:: END LOOPS, CLOSE FIE & RETURN 6 "%Z"7 ">d"8 "Tn""gA38560:B7840vA,0:B,86~A$(B1)32(B1)160260A$""AA1:BB1:B1,32(B1)32(B1)160280A$""AA1:BB1:B1, O REDOPRESS 'F' TO FINISH PRESS SPACE TO CREATE"=hA$""3OiA$""6000ajA$""6500skA$""6600lA$""6700rA$"G"B,160:8000sA$"F"8000|210(B1)32(B1)160AA1:BB1:A1,0:B1,160:3301 2,32:n(B1)160B1,32:"<,(B1)160B1,32:B6X" USE THESE KEYS FOR CERTAIN FUNCTIONS":"USE CRSR KEYS TO MOVE"b"CLRHOME TO START AGAIN"l"F1-DELETE BLOCK ABOVE ";v"F3-DELETE BLOCK BELOW "; 198,0:@ZA128JYA78407847,T(YA)160ZZZA<^ZA18060HhZAZA2PrYA[|ZA128mYA78627869(YA)160YYZAZA18120ZAZA2YAZA128YA78847891(YA)160XXZAZA18180Z99,,, 36879,8:N$"NOBODY"(36878,153A8000=T400W" HIGH SCORE"HSl" BY ";N$|L13000:" E-A-T-M-A-N"" INSTRUCTIONS"("EAT THE CLUBS BEFORE THE TIME RUNS OUT"2" CONTROLS" < 768066 JJ1((P)90 JJ1: 210=(P)88 JJ1R(P)42 JJ1\P,88lJ17 260v 210"SCORE"S "TIME LEFT"T" ": BUGFIX(RMS)A$A$"A" A,32:R22:H1 "A$"Z"  SI170 SSS35:"SCORE"S::IS: 1993 260BQ1001O36878,Q^M1300:m36877,220s36877,0 36878,15 " YOU HAVE CRASHED":E13000:: 601036878,15L15M180235236876,MS))S$"N" " THE END":K1999999:4 6040Z(#"YOU HAVE GOT THE HIGH SCORE"t2#"INPUT YOUR NAME"<#"";N$: $ HI-RES SCREEN DUMPER FOR VIC9 BY M. ALNAQEEBV4,4: OPEN PRINTER FILElI71354095160H1160: SET READ CODE LOOPTPTP1: SET COUNTERX(IH): PEEK CODEX128X192XX64: CHECK CODE WITHIN LIMITS FOR P  750090007000CZ0:Y0:X0:W0:V0:U0:T0:S0h "12345678"~"""1 "("2 "2"3 "<"4 "F"5 "P" 32 (B22)32(B22)160300C"A$""AA22:BB22:B22,32e,(B22)32(B22)1603206A$""AA22:BB22:B22,32@A$" "1000J"TO FILL IN LAST SQUARE PRESS 'G'"O"";/T"PRESS CLRHOME T (B1)32(B1)160AA1:BB1:A1,0:B1,160:330s(B22)32(B22)160AA22:BB22:A22,0:B22,160:330(B22)32(B22)160AA22:BB22:A22,0:B22,160:330330p(B22)160B22,32:zd(B22)160B2 "F5-DELETE BLOCK BEHIND";/"F7-DELETE BLOCK BEFORE";H" PRESS T"^AA$:AA$""7070rAA$"T"7070x~LQ"":" GRAPHICS GENERATOR"V" BY SIMON REEVES"`" PRESS A KEY":198,0:198,1: AZA2YA ZA128YA790679131 (YA)160WWZAA ZA18240M ZAZA2U& YA`0 ZA128r: YA79287935D (YA)160VVZAN ZA18300X ZAZA2b YAl ZA128v YA79507957 (YA)160UUZA ZA1836 Z "SILENT NIGHT" (PROGRAM FOUR) (C) A. D. TUNE 1983 B36874:T36875:S36876:36878,5B1,T1,S1,D1:B1256B,B1:T,T1:S,S1:D0D1::20 2225,225,215,600,225,225,219,200,,,,,223,215,215,400,,,,,225,215, 5,228,600,,,,,225,215,228,200,,,,,223,215,228,400,,,,,235,223,232,600,,,,n?235,223,228,200,,,,,232,228,223,400,,,,@231,225,225,600,232,225,225,200,231,215,225,400,225,225,231,1200,,,, A215,207,225,600,,,,,215,207,215,200,,,,,215,219,207,400, ,,,240,231,231,400,,,,,239,228,228,400,,,,oC237,225,225,400,,,,,236,223,223,400,,,,,237,225,225,400,235,223,223,400,,,,D233,228,219,400,,,,,240,228,223,200,240,228,225,200,,,,,239,228,228,400 E235,228,228,200,235,223,215,200,,,,,228,223,215, +3239,228,215,800,,,,,237,225,219,800,,,,x4235,228,223,400,235,228,219,400,,,,,231,215,223,400,231,215,225,400,,,,5228,219,228,800,,,,,231,215,223,800,,,,6219,225,225,800,,,,,223,228,223,400,223,228,215,400,,,,77225,231,219,800,,,,, ,225,400,,,,3;228,219,228,800,,,,,231,215,223,800,,,,p<219,225,225,800,,,,,223,228,223,400,223,228,215,400,,,,=225,231,219,800,,,,,228,228,219,400,228,225,219,400,,,,,235,223,215,2400,,,,200>231,223,215,400,231,223,223,400,,,,,223,223,2 3,215,215,800,,,,,215,215,223,800,,,,,225,207,219,400,225,212,219,400,,,,mC231,215,215,800,,,,,228,212,201,2400,,,,D231,215,201,400,233,219,201,400,,,,,235,223,215,800,,,,,240,225,215,800,,,,E239,228,215,800,,,,,237,225,219,800,,,,8F235,,999,,, 219,212,200,,,,^3223,215,215,400,,,,,215,228,223,400,,,,,228,228,223,400,228,228,219,400,,,,4223,228,228,400,,,,,223,228,228,400,,,,,225,231,228,400,,,228,,225,231,228,2005225,231,225,200,,,,,228,228,223,400,,,,,228,228,219,400,,,,,215,228, ,212,,,V9212,219,212,200,,,,,215,223,212,400,,,,,219,215,207,400,,,,,228,212,201,800,,,,:,228,228,400,,,,,,228,228,400,,,,,,228,228,400,,,,,239,228,215,400,,,,;231,228,225,400,,,,,235,228,223,400,,,,,228,228,223,400,228,228,219,400,,,,?< ,400,,,,,231,228,223,400,,,,,237,225,225,800,,,,t@,228,219,400,,,,,240,228,223,200,240,228,225,200,,,,,239,228,228,600,,,,A235,223,215,200,,,,,228,223,215,400,,,,,228,228,219,400,,,,,235,228,223,800,,,,B240,231,231,600,,,,,240,231,231,200,, 207,1200,,,,`3225,225,215,600,,,,,225,225,219,200,,,,,223,215,215,400,,,,,225,215,207,1200,,,,4235,223,228,600,235,225,228,200,,,,,235,223,228,400,,,,,235,228,223,6005235,228,219,200,232,215,223,400,,,,(6231,215,225,600,232,219,225,200, 25,219,207,200,225,215,207,400,,,,];232,219,219,600,,,,,232,219,219,200,,,,,231,219,219,400,,,,<228,209,225,600,228,209,223,200,,,,,225,219,219,400,,,,=223,228,215,600,219,228,219,200,,,,,223,215,215,400,,,,,225,215,207,1200,,,,A>223,21,,,,215,201,215,600,,,,VB215,201,209,200,,,,,215,209,201,400,,,,,225,207,195,2400,,,,,999,,, Z "O LITTLE TOWN" (PROGRAM FIVE) (C) A. D. TUNE 1983 B36874:T36875:S36876:36878,5B1,T1,S1,D1:B1256B,B1:T,T1:S,S1:D0D11.95::202233,219,201,800,,,,,235,223,215,800,,,,,240,225,215,800,,,, 228,228,219,400,228,225,219,400,,,,,235,223,215,2400,,,,200x8233,219,201,800,,,,,235,223,215,800,,,,,240,225,215,800,,,,9239,228,215,800,,,,,235,223,215,800,,,,,240,225,215,800,,,,:235,228,223,400,235,228,219,400,,,,,231,215,223,400,231,215 28,1200,,,,,225,215,231,400,,,,d?228,228,228,400,228,228,225,400,,,,,231,228,223,400,233,225,219,400,,,,@235,223,215,400,235,223,219,400,,,,,231,215,223,400,231,215,225,400,,,,A228,219,228,800,,,,,228,212,201,400,225,212,201,400,,,,?B22 ,228,223,400,235,228,219,400,,,,,231,215,223,400,231,215,225,400,,,,eG228,219,228,800,,,,,231,215,223,800,,,,H219,225,225,800,,,,,223,228,223,400,231,223,215,400,,,,I228,228,219,800,,,,,228,228,219,400,228,225,219,400,,,,,215,223,215,3200,, Z "HARK THE HERALD" (PROGRAM SIX) (C) A. D. TUNE 1983 B36874:T36875:S36876:36878,5B1,T1,S1,D1:B1300B,B1:T,T1:S,S1:D0D1::20 2235,223,201,400,,,,,235,223,215,400,,,,,235,223,215,600,,,,,228, 223,800,,,,\6235,223,201,400,,,,,235,223,215,400,,,,,235,223,215,600,,,,,228,219,212,200,,,,7231,215,215,400,,,,,228,228,223,400,,,,,226,231,223,400,219,231,219,400,,,,8223,228,228,400,,,,,226,231,219,400,,,,,228,219,219,400,212,219,219,200 ,228,228,400,,,,,,228,228,400,,,,,,228,228,400,,,,,239,228,215,400,,,,=231,228,225,400,,,,,235,228,223,400,,,,,228,228,223,400,228,228,219,400,,,,>225,231,231,400,,,,,225,231,231,400,,,,,225,231,231,400,,,,,228,232,228,400,,,,&?231,231,225 ,,,,231,215,225,400,,,,,225,225,215,1200,,,,y7232,225,219,600,,,,,232,225,219,200,,,,,232,225,219,400,,,,,237,219,225,6008235,219,223,200,,,,,232,225,219,400,,,,9231,225,215,600,232,225,219,200,,,,,231,225,215,400,,,,,225,215,207,600:2 00 nN1(M$)xX0D:X3""P$SP$P$(M$,N,1):P$(P$,21)ZNoDD150:D0200x100"";:X0504:" ";:XF,8:X0505:38400X,((1)7):F,4:X0505:38400X,((1)7):X0999:F,8:F,43225,225,215,800,,,,,228,219,209,800,,,,~4221,228,221,800,,,,,221,228,221,800,,,,,232,225,219,800,,,,,225,225,215,800,,,,5232,225,219,800,,,,,231,225,225,800,,,,,233,228,225,800,,,,,233,228,223,800,,,,6225,225,225,2400,,,,,232,225,219,80 235,223,215,400,,,,,235,225,219,800,,,,,233,219,201,800w*235,215,223,400,,,,,233,219,219,400,,,,,235,215,223,400,,,,+225,215,225,400,,,,,228,215,223,800,,,,,228,212,219,400,,,,,231,215,215,400,,,,,231,215,215,800,,,,,228,219,212,400,,,,J00,,,,,237,225,225,800,,,,U1235,228,223,800,,,,,233,228,219,400,,,,,233,212,223,400,,,,2231,223,215,400,,,,,225,225,219,400,,,,,228,219,212,800,,,,,228,212,201,4003,,215,400,,,,,,,215,400,,,,,,,212,400,,,,,,,215,400 4,,219,400,,,,,,,215,,,,228,219,212,400,225,219,212,400,,,,k9 223,215,215,400,225,215,225,400,,,,,228,215,223,800,228,212,219,600,,,,:215,215,215,200,,,,,215,215,215,1600,,,,400999,,, 0,,,,W7238,221,228,1200,,,,,232,219,225,400,,,,,228,221,221,800,,,,,232,225,219,800,,,,8225,225,215,800,,,,,228,219,209,800,,,,,219,219,207,800,,,,,232,219,219,800,,,,9225,225,215,800,,,,,228,219,209,800,,,,,219,219,207,800,,,,,232,219,219,,207,,,400,,,,,207,231,207,400,,,,q4207,231,207,400,207,235,223,400,,,,,207,235,223,400,,,,,207,223,219,400,,,,5207,231,215,400,207,223,212,400,,,,,207,215,207,400,,,,,207,212,201,400,,,,6207,215,207,400,207,223,212,400,,,,,207,231,215,400,,,M:207,215,207,400,207,223,212,400,,,,,207,231,215,400,,,,,207,233,219,400,,,,;207,235,223,800,,235,223,,207,235,223,400,,,,,207,235,223,400,,,,<219,237,225,400,219,237,219,400,,,,,219,231,223,400,,,,,219,219,225,400,,,,6=215,239,228,4215,235,223,400,,,,ZA207,235,223,400,207,233,219,400,,,,,207,231,215,400,,,,,207,223,212,400,,,,B207,231,207,800,,,,,207,231,215,200,207,231,212,200,,,,,207,231,207,400,,,,C201,233,219,800,,,,,201,231,215,400,,,,,201,233,219,400,,,,=D21800,,,,":232,219,209,2400,,,,,999,,,5:"F,4:"END OF DEMO."+2403,3,0:128,4'"6,4,6:6,(16)C,(36869)242CC$(17)`6I122:"";:I163100q@J1I1::|3,A$:128,CC$,A$:6:128:3:CC$"":Z "O COME ALL YE" (PROGRAM ONE) (C) A. D. TUNE 1983 B36874:T36875:S36876:36878,5B1,T1,S1,D1:B1300B,B1:T,T1:S,S1:D0D1::20(235,223,215,400,,,,,235,223,215,800,,,,,235,223,201,400,,,,6)-219,219,207,400,,,,,228,219,212,400,223,215,215,400,,,,,212,212,219,400,,,,.215,201,223,400,,,,,219,219,212,800,,,,,219,215,207,600,,,,/228,212,201,200,,,,,228,212,201,600,,,,200,,,,0239,223,228,800,,,,,237,225,225,400,,,,,235,228,223,4,800,,,,,,,201,400S5,215,223,400,,,,,,215,223,400,,,,,,212,219,400,,,,,,215,223,400,,,,6,219,225,400,,,,,,215,223,800,,,,,,212,219,400,,,,7235,228,223,400,,,,,237,228,225,400,,,,,235,228,223,400,,,,,233,219,219,400,,,,8231,219,215,400,Z "GOD REST YOU" (PROGRAM TWO) (C) A. D. TUNE 1983 36878,5:B36874:A36875:S36876B1,A1,S1,D1:B1256B,B1:A,A1:S,S1:D0D11.5::202207,,,800,,,,,207,,,400,,,,,207,,,400,,,, 3207,,,800,,,,,,,,207,223,219,400,,,,Z7207,235,223,800,,235,223,,207,235,223,400,,,,,207,231,207,400,,,,8207,231,207,400,207,235,223,400,,,,,207,235,223,400,,,,,207,233,219,400,,,,9207,231,215,400,207,223,212,400,,,,,207,215,207,400,,,,,207,212,201,400,,00,215,239,231,400,,,,,215,235,223,400,,,,,215,228,219,400,,,,>207,231,215,400,207,231,207,400,,,,,207,223,212,400,,,,,207,231,215,400,,,,?201,233,219,800,,,,,201,231,215,400,,,,,201,233,219,400,,,, @215,235,223,800,,,,,215,237,225,400,,,,,5,235,223,400,215,237,225,400,,,,,215,239,228,400,,,,,219,231,231,400,,,,E223,233,223,400,223,233,219,400,,,,,225,231,215,400,,,,,228,228,212,400,,,,F231,231,207,2200,,,,,999,,,Z "WHILE SHEPHERDS" (PROGRAM 3) (C) A. D. TUNE 1983 B36874:T36875:S36876:36878,5B1,T1,S1,D1:B1256B,B1:T,T1:S,S1:D0D12::202232,219,209,800,,,,,232,225,219,1200,,,,,232,225,219,400,,,,) IRE AT THE UFO'SC"BY USING THE SPACE(D"BAR.9E"Q = STOPZF"HIT A KEY TO START.":73lGA$:A$""71tH14IT(52)256(51):T(T):T25579JX(56)2:52,X:56,X:51,(55):KCS256(52)(51)LICSCS511:I,(I3 ************","":"J TO MOVE INWARDSj"K TO MOVE OUTWARDS":"A TO ACCELERATE":"D TO SLOW DOWN"HIT ANY KEY TO START":"HIT N IF YOU DO NOT WANT ANOTHER GO.A$:A$""19A$"N"129036869,255)dB$"________":C 3:I4122:1000:JW7703:I712:JWWI2:J,46:JI6,46::WW46:IW7703:I822:JWWI2244:J,46:J2I3,46::WW46:W8121:I822:JWWI222244:J,46:J2I3,46::WW42:IW8121:I712:JWWI2:J,46:):JO160+ Q(Q(O)Q(W))W:AA(Q):Q190,200,190a A$:A$A$" ":A(A$):A65FW(RY)W:M0:Z208 A68FO(RW)W:M(RW):Z202 AA(O)AA(Y)200 TLL((DT)(DMT)(DO)T(DMO)T)((JW)(JO))((AA(Y))(AA(O))):NLWTLL218S1,240:HH25:1050:215! NC(YJ)215q D(J)((DO)T(DMT)(DMO)T(DT))((JW)(JO)):DD(J):C(J)81C(J):200 NC(YJ)1200:150 L,OL(J):OL(J)N:L(J)NL:L(J),C(J):L(J)CV,CL(J):K:GZ1152 V,15:"BONUS":HH100:1100""(A$,12I):14)""I3)(A$,12I)"";:' GGO:NP\ LL$""10)"+,-":L$""9)((H),W):9)"("(C): L(W),P:L(O),AS:S3,Z:I150.1:V,I:L(O),AS L(O),P::L(O),OL(O):L(W),OL(W):S3,0:CC1:1100: K113:X:I07:A:XI,A:7472,8,8,8,8,248,0,0,07464,8,8,8,8,15,0,0,0A7520,238,170,174,172,234,0,0,0e7528,224,128,224,128,224,0,0,07512,238,136,232,40,238,0,0,07536,0,0,0,0,0,24,24,07424,0,0,0,0,0,0,0,0 "":36879,27:36869,240j,(47)P50,(48)(Z"MEM FREE:";(0)/dA7nA$BxB(10)NZ$(19)d"MEM FREE:";(0)  FLASHING DEMO:":+""` P$" ":F37137:37139,12:F,4M$"THIS IS TO SHOW THAT THE VIC DOES'NOT CONTROL THE FLASH RATE"M$M$" AND THAT THIS PART OF THE PROGRAM WILL RUN AT DIFFERENT SPEADS."#M$M$" NOW FASTER "4("":"WORD TO BE FLASHED":A$V2"":"WORD NOT TO FLASH":B$<F,4:"":""A$:""B$""P$FF,8:"":""A$:""B$""P$P"F TO START FLASHING"UZ$:Z$""85Z"";P$:F,0dD32768CS):MK15#NX:I07:A:XI,A::6O36869,255:71YP7408,24,60,60,60,60,60,60,126Q7664,0,240,254,255,255,254,240,0R7648,0,15,127,255,255,127,15,0S7168,255,191,223,239,247,251,253,255T7416,255,255,255,255,255,255,D"":45,212:46,25:47,212:48,25:49,212:50,25:51,0:52,2855,0:56,28:36869,255:OL(2),D(2),C(2),CL(2),A(3):V36878:S1V41225 HX%X%H V1,27:"SCORE:"H"REC:"X%:H0 36869,240 5)"RACE CAR":2)"***$"#$%&":L$"":D$"^^":S3V1nCV30720:DO46:AS42:O1:T22:MO1:MT22:A(1)75:A(3)74:C3:R1:Z710:Z172:Y3x"";:V1,40:V,0:A$"^^^^":P1:I1242:1000::G0K12:"^"7)"^^"7)"^";:K:"^^";:PJI6,46::WW42:I:W2:P32:1100pC(O)40:C(W)41:L(O)7964:L(W)8130:CL(O)3:CL(W)1:Z202:K12:L(K)CV,CL(K)L(K),C(K):Q(K)O:OL(K)P::FO(RW)W:D(O)MT:D(W)MO:SO:M(RW):C110 V,Z7:KMF:J((KW)KW)2:S1,Z:LL(J):DD(J* N(NL):(TL)PNP((LD)P(LD)DO)200p NLNLD:N(NL):Q(J)Q(J)O((AA(Y))(AA(O))):(NDO)W201,215 NLLD:N(NL):NP215 NDO208 JOHH5(R3)5:1050:S1,250:215 G60(0).5R1N218 215 N:I128255:S1,I:II::RR15 I199:S1,240:S1,220::V,0:120x P1(P1)21:""(A$,12I)(C$,P,1)(D$,P1,4)(B$,I4)" "; I4I12"____"; (B$,I4)(C$,P1,1);:I12P3 (D$,P1,4);:I12"";: ""(A$,12I)::I75527631:I,(I25600):3I71767383:I,(I25600)::U7488,90,90,90,24,24,90,90,90y7496,0,231,66,255,255,66,231,07408,8,8,8,8,8,8,8,87416,0,0,0,0,255,0,0,07448,0,0,0,0,15,8,8,87456,0,0,0,0,248,8,8,8$ * * DELETE ALL ARRAYS * **:N RELEASE MEMORY USED BY ARRAYSu WITHOUT DAMAGING OTHER VARIABLES{: LETS HAVE SOME TEST VARIABLES B(1000)Z$(50)Z$(45)"FRED"A3(A$"CARL"2"MEM FREE:";(0)F491 MEM(43)(44)256: START OF BASIC MEMORYU MEM4608 60: LESS THAN 8KzSCR4096: START OF VIDEO SCREEN(COL37888: START OF COLOUR MEMORY2 80<SCR7680FCOL38400P CONTINUE WITH YOUR OWN PROGRAM_$ "HELP":X0100:: DELAY ONH" ":X0100:: DELAY OFF[Z$:Z$""10 255,255 00 Q : 510S4X DATA FOR CANADA AND MEXICO:]Nb 0,0,20,1,0,20wl 2,0,20,3,0,20,4,0,20,5,1,19,6,5,15o 7,15,5,8,16,3,9,17,1,16,2,4,17,2,1r 17,4,3,18,3,1,18,5,5,19,5,8,20,5,8v 21,5,8 100,100,100 PUT "CHOOSE AN ANIMAL AND,"I HAVE TO ASKL"QUESTIONS TO GUESS THE";h"ANIMAL THAT YOU HAVEw"CHOSEN."YOU WILL ANSWER Y OR N"TO MY QUESTIONS."4,\QCAN IT SWIM\Y2\N3\,\ACROCODILE,\ALION,:I03:A$(I): STOP.,"HAVE YOU THOUGHT OF ANANIMAL ?"A890:A$"L"760QA$"F"840aA$"S"940rA$"Y"410zK1620:(A$(K))0870(A$(K),2)"\Q"460"IS IT A ";(A$(K),(A$(K))2);" ? ";:920:A$ A$"Y""I GOT(Z12)DA$(Z1)A$(K)#NA$(Z11)"\A"V$UXA$(K)"\Q"X$"\"A$(Z11)"\"B$(Z1)"\"^b370xlQ$A$(K)::Z3(Q$)v(Q$,Z,1)"\"(Q$,Z,1);:Z" ? ";:920:A$T$"\"A$X3(Q$)1(Q$,X,2)T$700X370HI0200:A$(I)""IEI1:I200LR:1,1,1,"ANIMAL-FILE":1,IE:I0IE:1,A$(I)\\A$(I)::1ef350np910zA$:A$""89010)"":9)"<RETURN>":A$:A$"Y"A$"N"920"HAVE YOU SAVED THE NEW";SCORE ="SC51Q(100SCM):QQ100:Q$(Q):Q$(Q$,(Q$)1)Q2Q(Q)Q$Q$".00":52q310Q(10Q)Q$Q$"0":524" AVERAGE = "Q$5FOF,1:FOF1,2:FOF1,26FOF22,2:FOF22,27F,42:F1,31:F1,31:F22,31:F22,31891;(A):#A63A96A2$(A128):5A2$(A64):6313,128359Y120+:916314,15(Y1.33);;P180::g<F,32:F1,32:F1,32:F22,32:F22,32=FOF,0:FOF1,0:FOF1,0>FOF22,0:FOF22,0?916313,0@A36879,110:36869,240:" ***UFO TARGET***"B"F@@@@@@@@@@@@@@@@@@@@@";SE;"";X"^^^^^^^^^^^^^q" SCORE ="SCAVR222215C8121A$:A$""B0B1:C22,32:DC:CC1:K1:916313,128125:L16A$"Q"56,(56)2:"":36869,240F)3047:25(FOF,1:FOFE,18)E1F,60:FE,62:25T*E1F,62:FE,60:25\+25d,H1-((1)2)1E1:FVR21(((1)10)6)22:IF21:G60:36.E1:FVR1(((1)10)6)22:IF20:G62:36/B0:H00SCSC1:"  NAMES ON MAP  I1 3& R,S,X$8X768022RSL Q0 (X$)1h XQ,((X$,Q1,1))64p Qx I A$: A$"" 1000""36879,27 3,6,"CANADA"$ 20,6,"MEXICO". 12,8,"USd (C) PET BENELUX*n EXCHANGE0x=A$(200)K36879,25dA$" A N I M A L S "~""A$:W1150:"IS THIS YOUR FIRST GAME":"(Y/N)"920:A$"N"330"THIS IS THE GAME OF"ANIMALS. YOU HAVE TOI:A$(4)""6880@360MJ"PRESS STOP ON CASSETTE";:"RECORDER.":880T1,1,0,"ANIMAL-FILE":1,IE:I0IE:1,A$(I)::1^"LOADING FINISHED.":880hN(A$(0))r"LIST OF ANIMALS.|"FILE ANIMALS ON TAPE." IT.":J12000:JA$"Y"370;"WHAT ANIMAL WAS IT":V$h"A QUESTION TO DISTING-UISH BETWEEN A"V$;" AND A ";(A$(K),(A$(K))2):X$"IS THE ANSWER FOR A":V$;" Y OR N":920&B$"Y":A$"Y"B$"N"0Z1(A$(0)):A$(0)YX1(Q$)(Q$,Y,1)"\"740!Y'@K((Q$,X2,YX2))Fn"ANIMALS SO FAR :":X0:I1200(A$(I),2)"\A"820 20X);:Z3(A$(I))Z3(A$(I)) (A$(I),Z,1)"\"(A$(I),Z,1);*Z:4I:>@"ANIMALS ON TAPE ?920#A$"Y""":,370 6,4,6:6,(18):6$4,4:40I022<J021Q(A(7680I22J)[21000l<A1$;A2$;A3$sFJyPZId4:4nA1$"":A2$"":A3$""A127A1$(18):A3$(147):AA128:A32A2$(A64):A31A64A2$ COLOUR ROUTINE* A(D)D1686S36879C(BA116N2"";^<BA1"";oF"SCREEN";BA{PBC07ZS,A(BA)BCd"BORDER";BCnP1500:xS,27"";  65&VR(648)256:36869,240FKR38400:VR7680KR37888aVI9163:OFKRVR:"~AKR22KR2223:A,0:CVR222014VI15,612864328:MM136879,110:"***** UFO TARGET *****,36869,255:SESE1:" :36879,27:$K1LL1:916314,L>L0K0:916313,0RC8121B018^B035oD,32:DD22 (D)60(D)6247:25!DVR88B0:35"DOF,1:D,30#H044$H025%F,32:FFE:F,32&FIH0:25'(A" ; V36878:S36877:S136876:S236875:S336874:L3:HI100b" DODGEM DOCKER"uL3::I0511(7168I,(32768I)2<I14FXPJ07ZKdXJ,Kn:x36869,2557632,112,8,36,95,95,36,8,112 660:V,0:S1,0:S2,0:210,(P1)60(P)60550>P,58:P1,59RPD,2:PD1,1[260uP17767((1)22)20I025(P1((1)52)22((1)52)8191)7680,60&LL1:P1,42:XX15 0 1:V,XX:S,255:7701,L " GOODBYE NOW!!"P1500::/169,22,162>22,133,87N169,30,133\88,160,0l177,87,133|89,200,17787,136,14587,200,152201,21,208244,165,89145,87,165 87,24,10522,133,87 14  MAP) ***********************/i THIS PROGRAM DRAWS A COLOURED MAP OF NORTH AMERICA.oud SET MAP BACKGROUND COLOUR AS BLUEn36879,110"" DRAW THE U.S.A. IN GREEN R,S,L R100" :- BLACK, WHITE, RED, CYAN PURPLE, GREEN, YELLOW, BLUE"z"YOU ARE WONDERING WHY THERE IS A SPACE""THIS IS BECAUSE THE COLOUR IS""WHITE""PRESS 'A' TO GO ON"B$:B$""170B$"A"20017SE A NUMBER" ,'6" 1. SOME GRAPHICS"A@" 2. WELCOME PROG.[J" 3. END PROGRAM."aTg^h" PRESS 'A' TO GO ON"rD$:D$""370|D$"A"400370(147)"CHOOSE (1, 2 OR 3)"E$:E$""420 'SHIFT MWN, 2ND LINE COMMODORE AND +, 3RD LINE SHIFT AND NM"]N"3. ANOTHER BIRD 'SHIFT AND JWK"oX"YOUR NAME?"wbX$l"BYE ";X$v" WELCOME PROGRAM""+ - * /""+: PLUS""-: MINUS""*: TIMES""/: DIVIDE 500P38400R22S+X7680R22S; Q0 L1G PQ,5U XQ,160] Qcm 210s", DATA FOR PLOTTING U.S.A.16 6,1,4@ 7,1,14,7,18,2,8,0,14,8,17,3J 9,0,15,9,16,4,10,0,19T 11,0,18,12,0,18,13,1,17,14,1,17-^ 15,2,15,16,6,11,17,7,8,17,15,2Jh 18,8,5,18,16,2,19,17,1\r 100,100,100b DRAW CANADA AND MEXICO IN WHITE R,S,L R100 900P38400R22SX7680R22S Q0 L1& PQ,1+ XQ,16 n807640,0,128,192,252,255,248,0,0H7648,126,255,255,255,255,255,255,126n7664,60,66,165,153,153,165,66,60|36879,10AD828A1:A11AD,A1:ADAD1:190SC0:D30720"";:P768019C3842238911C,7C(DID91)7680 h828&rQ1(Q1):A32Q440S|H0:XP2P7:H(X):X,45:H32X,32cHH(H32)H60V,15:S,128:XP7:SCSC1:430H62550X,32:V,0:S,0CL(P)62(P1)62CLSCSC100:V,15:S1,233:S2,245:480 ZZ1 100: ZZ,XX(:L0SCHIHISCUDL0P1,32:V,0:S,0:S1,0:S2,0:210uN36869,240:36879,27:"";XSCHI"WELL DONE GREAT SCORE":V,0b" ANOTHER GO (Y/N)"lA$:A$"Y"A$"N"620vA$"Y"SC0:DI0:30*4,2,230 *88,202,2084220,96,-1 "THE WELCOME PROGRAM"/"THE VIC 20"A"5K-48K RAM"f("THIS PROGRAM IS TO WELCOME"|2"YOU TO THE VIC"<"PRESS 'A' TO GO ON"FA$:A$""70P A$"A"100Z70d(147)n"THE VIC HAS 8 COLOUR KEYS"Lx0 (147)A"THE LIGHT BROWN KEYS ON THE RIGHT-HAND SIDE"n"ARE CALLED USER DEFINEABLE KEYS""THESE ARE USED IN GAMES""PRESS 'A' TO GO ON"C$:C$""250C$"A"280250(147)"" CHOOE$"1"470E$"2"640'E$"3"7400420<(147)T" SOME GRAPHICS"e" 1. "k|" 2. "" "" "&" 3. "0:"1. A BIRD MADE OF 'SHIFT AND UQI'"7D"2. A MANn""YOUR NAME?"Y$!"THANKS ";Y$'9"YOUR NAME?"AZ$X"THANKS, BYE ";Z$^ "ENTER OBJECT"$A$:A"ENTER PRICE OF "::A$H(B_2"V.A.T. IS 15%":<"PRICE OF"::A$::"IS";BB.15F # "TEMPATURE CONVERSION"A:"DEGREES FAHRENHEIT";FY:F" DEGREES FAH."(:"IS"(F32)59:"DEGREES CENT."2<"PRESS 'A' TO CON."F"PRESS 'Z' TO END"PA$:A$""80ZA$"A"10dA$"Z"" GOODBYE":64802 I4:X1DI:500::P17767200:510:P13,62<"SCORE=";SC;`"HI="HI:7701,L48P,32:P1,32:PD,7:PD1,7"A(197),A643606A17PP22:350@A33PP22:350JA37PP1:350TA29PP1^P(P81A_H CCI DISK2C22A COMMODORE COMPUTING INTERNATIONAL DISK 2 ** VIC-20 ** ----AUG 1983---- SORT POINTERS DATA MAKER DATA EDITOR--JAN/FEB 1985--LENGTH-TP----APR 1985----BORIS 8KBORIS2KCOLOUR ROUTINEUFO TARGET LAWNMOWER  BARRICADEBIORHYTHM  RACE CAR 3K ----SEP 1983----DEL ARRAYS 8K MC TO DATA 16KCHANGE TOKEN----MAY 1985----MICROMON----JUN 1985----AUTOLINER-SPCAUTOLINER-RET----AUG 1985----K MEM EXPANSIONFLASH DELAYFLASHING DEMO----OCT 1983---- SOUND-VIC USING JOYSTICK----NOV 1983----ON THE WAY 16K  POINTER SORTS ----DEC 1985----TINYMON DEC1  TINYMON DEC2  TINYMON HEX TINYMON----JAN 1986---- LIST PAUSEK  SCREEN DUMP----DEC 1983---- O COME ALL YEGOD REST YOUWHILE SHEPHERDS SILENT NIGHT O LITTLE TOWN HARK THE HERALD ----MAR 1986---- POKE22----MAY 1986----SPLINE 3K----JUN 1986----TINY WORDPROC----JAN 1987----DATE DETECTIVEK SHUFFLEFIND THE WORD ----FEB 1984---- EATMAN HIRES SCRN DUMP----APR 1984---- GFX GENERATOR----MAY 1984--------APR 1987----UNI-TAPE HEADER K AUTO-RUNMOONLANDER TRANSMAT 16K7--JUL/AUG 1984-- GRAPHIC EDITOR 4000AD 3K OTHELLO ----NOV 1984----K 6d"":650,255:36879,174:D%(4,1):HI0:36878,10\nT14:D%(T,1)1:D%(T,0)7784T5zx:CO30720:SC0:AR0:AF0G8152:GCO,1:GCO1,1:GCO1,1:GCO22,1G,91:G1,85:G1,73:G22,93"SCORE":"ARROWS" ""SC:CU(COYB22XB):NU(SCYB22XB)>NU88D1:XBXBDX:YBYBDY:720a COYB22XB,1:SCYB22XB,81oI120: NU145D3HH2850*(NU102NU104)(D4HH3CU6)D14DD1:D0710>SCYC22XC,UN:COYC22XC,UCH 4,105:P45,78270&D%(I,1)0260RP,32:P1,32:P2,32:P22,32:P23,32rD%(I,0)7789:D%(I,1)1:280D%(I,0)PA$:A$"Z"A$"C"340"G1,32:G1,32:G22,32,GG(A$"Z")(A$"C"):G8143G81436G8162G8162!@ *"";::"  ";l" Q  ";"  ";" """:I19((1)5):"";:I1((1)17):"";::"ARP24ARP2AR440DSCSC10:D%(J,1)0:P,32:P1,32:P2,32:P3,32mP22,32:P23,32:P24,32: P45,3236875,250:J12502001:36876,J1:J2110:J2,J136875,0:36876,0J:AR0I:36877,0:AR0AF10A$"M"ARG22:AFHH1"SOFT",HH2"MED "*6HH3"HARD"=@C93:A2C77KJA3C64YTA4C78^A$:A$"A"A$"D"A$"W"A$"X"440hCOYC22XC,UCrSCYC22XC,UN:XCXC(A$"A")(A$"D"):YCYC(A$"W")(A$"X")|YC2YC2YC21 79,279"CL(A$):""CLA$" "290;DX0:DY0:A1YCYB660SA1(XCXB)1660lA1XCXBDX1:690&A1XCXBDX1:6900A2((XCXB)1(YCYB)1)660:A2XCXBYCYBDX1:DY1:690DA2XCXBYCYBDX1:DY1:"THE GOLF COURSE HAS NINE HOLES."M"WHEN CLUB IS ASKED, GIVE A NUMBER BETWEEN 0 AND 9."g"A = CLUB TO LEFT"D = CLUB TO RIGHT"W = CLUB UP"X = CLUB DOWN$". AND , TURNS CLUB." S FOR SOFT SHOT8" M F0::" "%SCYC22XC,UN:COYC22XC,UC.260nD(((1)(CL3))31)HH:NU102D(D2):CU6D(D23)zHIHI1COYB22XB,CU:SCYB22XB,NU:YBYBDY:XBXBDXXB1XB20XB20XB1YB3YB20YB20YB3""10AF" ":I14HPD%(I,0):D%(I,1)1P,32:P22,32:P45,32^PP1:P7808240qD%(I,1)0270PCO,7:PCO2,3:PCO3,5:PCO22,7:PCO23,7:PCO24,3PCO45,4:P,233:P1,32:P2,81:P3,60:P22,95 P23,160:P2d36879,221:1000:650,255KnS2:SC7680:CO38400:AC0:A1:C11:HO1xUN32:UC5:NU32:CU5:YB20:XB((1)201):XC((1)32)HI0:"";:I112:XC((1)506):COXC,2:SCXC,88:XC((1)33)I1XC:"";::I2((1)62)GCO,1:GCO1,1:GCO1,1:GCO22,1DJG,91:G1,85:G1,73:G22,93RTAR0450y^AR,32:ARAR22:AR7724AR0:160hP(AR):ARCO,2:AR,30:P32450rAR,32:P78P60AR0:450|J14:PD%(J,0):D%(J,1)0440P22ARP23")"":I18((1)6):"";:\I1((1)17):"";::""|YC21:XC10:HH1:UN32:UC1COYB22XB,1:SCYB22XB,81"CLUB"A$:A$"1"A$"9"270""5);A$:CL(A$)"""7)"STRENGTH ";:AF1:36877,230AF10AR0160UI11000::"YOU'VE RUN OUT OF ARROWS"SCHIHISC:"YOU BEAT THE HIGH SCORE":500"HIGH SCORE IS" HII11000:A$:A$"S""BYE":36878,0::"":110368YC21 XC0XC0XC21XC21FUN(SCYC22XC):UC(COYC22XC)^UN81YCYB1:420COYC22XC,2:SCYC22XC,CAA(A$".")(A$","):A1A4A4A1A$"H"HH3A$"M"HH2A$"S"HH1 A$"1"A$"260R"HOLE IN "HI " "(\ACACHIgfI12000::"FINISHED HOLE"HO::"SCORE SO FAR"ACwpI15000:zHOHO1:HO9"":120"YOU'VE COMPLETED THE COURSE":"SCORE"AC:1140""5)"*** GOLF ***": 690 NA3XCXB660#XA3(YCYB)1660<bA3YCYBDY1:690VlA3YCYBDY1:690}vA4((XCXB)1(YCYB)1)660A4XCXBYCYBDX1:DY1:690A4XCXBYCYBDX1:DY1:690"NO SHOT ":I1100OR MEDIUM SHOTB" H FOR HARD SHOT,L" SPACE = HIT BALLMV"PRESS ANY KEY TO START";a`A$:A$""1120gjmt d****LAWNMOWER****n$x*}F36879,8:840:36879,25XVR(648)256xKR38400:VR7680KR37888OFKRVRKL0WD22HA36878S36876G9I19:K$(I):Z,X,C,A,S,D,Q,W,E.M(1)WD1:M(2)WD:M(3/YEAR"#"(8/13/57=AUG 13,1957)"T9050:"AFTER GRAPH IS DRAWN PRESS FOR:""F1 START AGAIN":"F7 NEXT 20 DAYS"K CRITICAL DAYS":"S STOP":"C COMPARE":905036879,27:"DRAW FROM ":"(M/D/Y) ";:1 ";.J" ";WT" ";^" ";h" ";r" ѐѐ ";|" ѐѐ  THE BALL.%"START WITH A SPACE.8A$:A$""270_A20:E102:F81:G32:I1:H22:J20n"36879,218,"";6II121:" ";:@"JSS110:A$::NVR97:C0";7" ";^" ";"";"";"";"YB$""(NP),E:KR(NVR)P,6:CCI)430HNVR(((1))505):N1(N)VN1E490eN181490A2A21:A25P09:Y$:P:340A3CA3C36879,42:"**** BARRICADE ****":"BEST SCORE IS";A3&"YOUR SCORE IS";C0"ANOF,KL:X1250.5:S,X::S,0$"COMPLETED IN=T0TIT1:T0(T060)Q""T0"SECONDS.e"ANOTHER GO?xA$:A$""680A$"Y"HA,0:"";:36879,27:X,32:XOF,KL:XXW:BB$"STONE":(1).5BB$"WEEDS"HA,15"000:I10200:M1I1:D1I2:Y1I3:D0D1:I1M11:D0D0A(I):jD3Y1365D0:I1Y11:D3D3(I4(I4)):I$"":"BIRTH DATE";:1000:I10220MI1:I1M1:I2I2A(I)::800:DI2:YI3"COMPARE (Y/N)":9060:R0:T30:I$"N"30 H"*** VIC LAWNMOWER ***&R"HI, DONT YOU FIND;\"THAT YOUR LAWNOf"NEEDS A CUT ?dp"WELL GO AHEAD!zz"YOU MOVE WITH:"" Q W E" " " ASD" " " Z X8((TI(TI))2):P(I)8119(I11.5)22((Q1)2)cS(3)36876:36879,27:(142)""w6)"BIORHYTHM""";:9070:F$;:9070F$"INSTRUCTIONS (Y/N)";:9060:(14):I$"N"200"GIVE DATE AS:":" MONTH/DAY)WD1:M(4)1:M(5)0:M(6)1:M(7)WD1:M(8)WD=M(9)WD1VAA$""sXVR460:A5:HA,15:S,0}T1TI""PERCENT:,"";6" ";@"  VR7680KR38400%A3506336879,42O"**** BARRICADE ****h"YOU GET 5 BALLS."TRY TO TRAP EACH BALL"WITH AS FEW AS"POSSIBLE BARRICADES."WITH THE SPACE BAR"YOU CREATE A BARRICADE"BEHIND";(" ";O" ";v" Τ";" ";" ";" ";"TPI:430:PH:430(^PI:430:PH:4305hXN380BrXN:340Y|PI:430:PH:430pPI:430:PH:430}YJ490XN340XN:380NNP:A(N)U125:AENNP:YYI:(N),F:KR(NVR),2:(NP),G:YI:B$ 86Z(XW):Z32560$Z102A5:570C&S,255:PP1:(1).02710\0X,32:XOF,KL:XXW:X,Y:XOF,KL:BA:W0:790:A0ABDY86Y91:600NY86X""8)(P212100)bS,100:S,0:P213630lWM(A):530vX,215:XOdTHER GO?(Y/N):I1100:3D A$:A$"Y"A$"N"580CNA$"Y"160XX36879,27:"";C110:S,50:AA$BB$:X,214:XOF,KL:KK1150:=S,200:AA$" "gX,32:XOF,KL:KK1100:::A5:570wX25014S,X::X1501001:S,X::AA$" " X1100::A$:A0:II19 A$K$(II)AII:II9*4 OdA(12),X(3),J(3),CD(3,2),R(3),S(3):I112:A(I)::Y(I)28(I4(I4))fP(1)16:P(2)5:P(3)9:M$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":W$"MTWTFSS"lS(1)36874:S(2)36875:SP$" ":F$""7nS(I)v C " S STOPS MOVEMENT$"IN ANY DIRECTION.A"HIT ANY KEY TO START.UA$:A$""1000`"": 0,R1:"BIRTH DATE 2";:1000:I10280V"I1I11:I2I2A(I)::T3T:800:820,T0T30"BEGINS FROM BIRTH DATE":9050:200"ON "(M$,3M12,3)D1","Y11900:"YOU WILL HAVE LIVED":""T"DAYS" 9050:36879,25:""(F$"0T7"YOU MADE IT TO THE INTERVIEW ON TIME.":LT10"BUT TO LATE.":}"BUT THEY HAVE ALL GONEHOME FOR THE NIGHT."? ---- BYE@:"WELL I DON'T THINK YOU ARE GOING TO GET TO THE INTERVIEW NOW." J"I AM GIVING UP ON  ;:(E$)1""(E$,1);i"";dj36878,9:I13:XS(18I5):820:R(I)R(I)((X)(S(18I5)))2.5:820kX.6X.6CD(I,J(I))M1100D1:J(I)J(I)1lZ(P(X)):Z32Z45ZP(I)P(X),P(I):P(X)30720,I4:630qP(X),42/vS(I),214,144,169(230,141,12,144,162,100,160I255,136,208,253,202,208,248f169,0,141,14,144,141,12144,104,168,104,170,104,4076,220,235,0,-1200I83"":36879,27:#I67R0750e"OVERLAP":"PHY:"R(1)"%":"EMOT:"R(2)"%:PRINT": "(3)"%"n655}I136400 I75655"CRITICAL DAYS":"PHYS.EMOT.INT."I13:J02:CD(I,J)0794K2(C2n N " *";,xF0:E0:W0:S0:N0:10K2T:TT3:T3K2:8I4:I$:I1((I$,2)):(I$,2,1)"9"(I$,2,1)"0"I3wI2((I$,I,2)):I3((I$,2)):A(2)Y(I3):I112I111030I20I2A(I1)"WRONG DATE":I01800::"":I10:Z#F$" HIT A KEY"d#I$:I$""9060i#----MAIN LOOP22000: LOOK.<4000: INPUTBFC1$"GO"4500WPC1$"LOOK"1000ZC1$"QUIT""I WOULD GO & PLAY SNAP":d(C1$,3)"INV"60007000: VERBS + OBJECTSC2$""C1$;" ?":60"I DO NOT KNOW HOW TO "C1$;" SO".":"IT GOES";:F1" SNHE " ";DI$(I);(2"."N I03:C2$DI$(I):5500%NO SNHE "TO THE ";DI$(I);" IS:":ST$(SN 1023);"."*4F0:PPO(0)>I1NBHOB(I)P 2200RI3"STANDING ON THE CORNERIS A ";OB$(ED A BIT OF HIDING.":SN1050PC$:XP0:YP0:OB(4)1GE$Z9000: NASTY RANDOM EVENTSy50:-----REPEAT MAIN LOOP.T(TIT0)3600"AND THERE AT THE END OF THE ROAD IS SLAVE""DRIVER INTERNATIONAL.""WELL YOUR THERE.,9):I120:"-";:I$(F$,19)""SP$:T2M1Y(F$,19)""(M$,3M12,3)Y11900"";:(F$,20);XI13:J(I)0:R(I)0:J02:CD(I,J)0:J,I:Q140:Q2(Q2)618bED31:E(7(E7(E7)).5)1:E$((D1),2) g""(W$,E,1)""(E$,1)"" I828:T0 A' A1 701( I,A;2TTAJ<II1: 20kF T8139 "DATA ERROR":xP(828):d120,169,73,141,143,2,169n3,141,144,2,88,96,8x72,138,72,152,72,165,197205,126,3,240,31,141,1263,169,15,141,X200:J020::S(I),0:I:D3D3.5:TT.5:T3T3.5:D1D1.5aD1A(M1)1D11:M1M11:M112M11:Y1Y11oQ:198,0T2M1D11(F$,19)""(M$,3M12,3)Y11900""F$"HIT F1,F7,K,S";:R1",C";9060:I(I$):I1336"*";:DD37154:P137151:P237152: BUGFIX (RMS)N DD,127:A(P2)128[E(A0)p DD,255:A(P1)N((A4)0)(S((A8)0)2W((A16)0)<F((A32)0)F F P E " *";Z W "* ";d S " *";D(I,J)100):K1CD(I,J)K2100:K2K21C(F$,62J)(I1)7)(B$,K231,3)((K1))QJ,I:655d T0:Y1I3810%II31Y11:TT(I4(I4))::TT(I34(I34)I258)*TT(Y1I31(D0I2))365(D0I2)(D0I2)(D0I2)(365I2D0):4# ON THE WAY TO THE INTERVIEW` " ON THE WAY TO THE INTERVIEW "vPO(D)XP100YPMS10:NS31:LX3:LY4:T0TI:NB6:NV5XPLX:YPLY MAP(MS,MS),ST$(NS),DI$(5),OB(NB),OB$(NB),V$(NV)(3000: INIT --s*n#I121:("",I(I8)8(I16)8,1)" ";::" ";0x#Y#31,28,31,30,31,30,31,31,30,31,30,31 METHING." VERBS FINISH HERE3PO(0)10001500xBR$"YOU HAVE JUST BEEN ARRESTED FOR ATTEMPED ARMED ROBBERY."SN1049 OB(4)1BR$:1600PC$"YOU JUST HAD A RIDE IN A POLICE CAR TO THE POLICE STATION."GE$"THE GUN NEEDYOU AFTER ";((TIT0)3600);" MINUTES OF "9T"MY VALUABLE TIME."?^E.X LOOK ROUTINEnF0:HEMAP(XP,YP)HE 1024"YOU ARE INSIDE:":ST$(HE 1023);:2075"YOU ARE ON:":ST$(HE);I03C2$DI$(I):5500 SNHE F0 I);".":2200'\"ON THE GROUND IS A ";OB$(I);"."-39 .[ SET UP MAP ,DIRRECTIONS ETC DI$(0)"NORTH":DI$(1)"SOUTH":DI$(2)"EAST":DI$(3)"WEST" SN1:SH0  S$ 3500: READ STREET S$:S$"*"S$"$"3020 5,0,6,0,7,1,7,1,8*['-1,-1+`' THE WAY,2,6,3,6,-1,-1"+j' PRINCE ROAD,5,4,-1,-1K+t' SHORT CUT CLOASE,6,4,6,5,6,6,-1,-1g+~' RETURN ROAD,5,6,-1,-1+' HOME STREET,0,9,1,9,2,9,3,9,4,9,6,9+' 5,9,-1,-1+' LATE STREET,6,8,7,8,-1,-1+' A PR .P0: SEARCH FOR " " IN L$"I1 (L$)@$(L$,I,1)" "PI:I3000F.L8Rs.ntJ$"" (J$,1)" "}~J$(J$,2)3700."> ";L$:L$(191)L$"""SILENT TYPE AH.":40005000SE$" ":3600: U ARE ALREADY HOLDING IT.":1000B$OB(IT)PO(0)"I CAN'T SEE A ";OB$(IT);".":1000R$IT2 6900$IT1"NO. I THINK SHE IS A BIT OLD FOR YOU.":1000$IT3" B A N G ! ":"PARCEL BOMB AH!":1600$OB(IT)1$1000TESTING FOR OBSTRUCTIONS 65004 NO LXXP:XPX:LYYP:YPY:1000>1000D.P GO IN[I03pC2$DI$(I):5500 SN 1024I3000I3000"IN WHAT ?":1000 4570) GO OUT*0(HE 1024)"YOU ARE NOT IN.":% *CASH*&IT5"I'LL CASH YOU IN A MINUTE.":1000B&OB(5)1"CASH WHAT CHEQUE ?":1000x&PO(0)308"I THINK YOU NEED A BANK.":1000&OB(5)2:OB(6)1&"OK. BUT THE CHEQUE WAS NOT FOR MUCH.":1000&J.&K *SHOOTXXP:YYP:SN0C3$(C2$,1)C3$"N"YY1,C3$"S"YY1?C3$"E"XX1RC3$"W"XX1XYXPYP"I WISH YOU WOULD GO ";C2$" !"NOX10 X0 Y0 Y10NO NONO MAP(X,Y)0NO SNMAP(X,Y)n.2$))C2$'L$C$:SE$" ":3600(P0FO0:(L$(L$,P1)/((L$,(C2$))C2$?(3600:7930E(&#.Y('# RANDOM EVENTSj((#(1)0.07(2#OB(4)1"BANG THAT MADE YOUR EYES WATER.(<#OB(4)1"YOU SHOULD NOT HAVE PUT THAT GUN OB(6)1 NO1(!"SORRY IT COSTS MONEY TO ENTER THE PARK."X!OB(5)1"AND WE DO NOT EXCEPT CHEQUES."^!d!.y! PEOPLE TROUBLE!OB(4)1"THE TRAMP JUST RAN AWAY.":OB(2)2!"YOU JUST HAD A BAD EXPIENCE WITH A TRAM' ROAD POSITION DATA *' ROUND STREET,0,1,1,1,2,1,0,2,0,3$*' 1,3,2,3,2,2,-1,-1?*$' END STREET,2,0,-1,-1[*.' FRED'S LANE,3,1,-1,-1*8' STATION ROAD,4,0,4,1,4,2,4,3,4,4,4,5*B' 4,6,4,7,-1,-1*L' END ROAD,1,4,1,5,-1,-1*V' CROOCK STREET,0,S$"$"3080 ### SHOP ETC. DATA SH1( 3015; READ OBJECTSG I1NBY OB$(I),OB(I)_ t READ NEW VERBS I1NV V$(I)   . ST$(SN)S$ X,Y:X0 Y0SNSN1: MAP(X,Y)SN SH1024 3510$(J):7900"vFO ITJ:J3000#(#IT0"WHATS A ";C2$;"?":1000C#V0: FIND VERB NUMBERO#I1NVi#C1$V$(I)VI:I3000o## V 7100,7200,7300,7400,7500: VERB ROUTINES#900: NOT KNOW#.# *GET*$OB(IT)1"YO SEARCH FOR" "P0C1$L$:C2$"":&C1$(L$,P1)7J$(L$,P1)H3700:C2$J$NT.{C2$"""OK BUT WHICH WAY?":1000C2$"IN"4600C2$"OUT"46505500NO "YOU CAN'T GO THAT WAY.":1000 **** CODE FOR $.$ *DROP*'% OB(IT)1"YOU ARE NOT HOLDING A ";OB$(IT);".":1000?%*OB(IT)PO(0):1000E%.Q% *ASK*%OB(IT)PO(0)"WHAT ";OB$(IT);"?":1000%IT26900%IT16920%"DO YOU ALWAYS TALK TO ";OB$(IT);"?"%1000%.1000/I03 4C2$DI$(I):5500+>0(SN 1024)SN I30001H;R4570A.iO$"": REMOVE EFFECTS OF SHIFT KEYzI1 (L$)Z((L$,I,1))ZZ 127O$O$(Z)L$O$z.{ READ MAP AROUND XP,YP|*'LOB(4)1"I CAN'T SHOOT ANYTHINGWITH MY FINGER.":1000I'VOB(IT)PO(0)"SORRY I CAN'T SEE ONE.":1000'`"I'M NOT HAVING ANYTHING TO DO WITH YOU SHOOTING THINGS.":1600'.'FO1: SEARCH FOR WORDS IN A STRING'(C$,(Co INVENTORY pF0:"YOU ARE HOLDING:" zI1NB. OB(I)16050= FF 3454N " ";OB$(I);T m F0 " NOT A LOT";v "." 1000 b. c OBSTRUCTIONS dSN13 nOB(6)1 HE13"IT COST YOU A BIT IN HERE.": x IN THE FRONT OF YOUR BELT.")F#OB(4)11600)K#HE 10249070S)P#(1).7"SPLAT ! YOU ARE UNDER A NUMBER 9 BUS.":1600)Z#"THAT NUMBER ";((1)404);" BUS":"NEARLY HIT YOU.")d#)n#"THEY HAVE ALL GONE HOME & LOCKED YOU IN.":1600) P.":1600"OB(4)1"WHY SHOULD SHE KNOW.":1000C""SHE JUST LOCKED YOU UP FOR BEING IN"t""POSSESSION OF A DEADLY WEPON.":1600z"V."W VERBS RELATED TO OBJECTS"XC2$""900"] FIND OBJECT NUMBER"bIT0:J1 NB"lC$OB IVATE PARK,8,5,8,6,8,7,8,8,9,6,9,7,-1,-1,'SOMEE'S DRIVE WAY,9,9,1,1@,' INNER VIEW LANE,10,7,10,8,10,9,-1,-1j,' COMMODORE STREET,8,4,9,4,10,4,-1,-1,' SHORT STREET,9,3,-1,-1,' LOST MANS ROAD,6,2,7,2,8,2,9,2,-1,-1,' STATION ROAD,9,1,==============\X1N:" ";#fY1N5pR$(X,Y);" ";<zYBIXd"===================v"LENGTH=";L|"WHAT IS THE WORD ?A$PP1A$W$1180"SORRY WRONG"(P2)L1120P21050 -<( A DARK TUNNEL UNDER THE RAILWAY.F( 6,10,7,10,8,10,9,10,-1,-11.P( S D INTERNATIONAL,7,3,-1,-1R.Z( FRED'S TEA SHOP,10,5,-1,-1\.d( "$"n.i( OBJECT DATA.n( POLICE WOMAN,509.x( TRAMP,103.( SHOPPING BAG,402.( GUN,7.( CHEQUE, "0" 84+62FI116:A(I)I:I{I1521:J(1)I1:TA(J):A(J)A(I):A(I)T:II116:B(I)A(I):B(I)16BSIIC0:I116A(I)ITA(I):A(I)A(T):A(T)T:CC1:260I(C1)03 "NOT VERY GOOD"O0:KK13000:$5H$(W$,P2)L$"YOU NEED HELP."Z.P31100z8"THE FIRST LETTER IS":H$B1030L"THE FIRST";P2;"LETTERS":"ARE ";H$V1030`"WRONG, YOU DID":"NOT GET THE WORDj"RIGHT."S"600|Z$"2"Z$"8"360*(Z$)1360G(Z$)2470,450,430,410\TBS4:T16360e480}TBS1:(3T)0360480TBS1:(3BS)0360480TBS4:T1360B(BS)B(T):B(T)16I((BS1)4):JBSI4!"""Y"1560xP0:220370'45008509950GO0150Q1310`O01430j1260s120y"HOW HARD DO YOU WANT""IT TO BE ? (1/2)"A$:A$""250M(A$)M1220M2220","HOWVES":"ANOTHER GO ?";#DI$:I$""5801NI$"Y"HX36879,27:"";:ab36879,42:36869,240l"*** VIC SHUFFLE ***v"YOU HAVE TOO REARANGE" THE NUMBERS IN THEIR" BOXES SO THAT THEY" ARE IN CORRECT ORDER 520K2KN1520XX1'4602X1N=Y1NPQ((1)261)a&Q$(T$,Q,1)p0R$(X,Y)Q$w:Y~DXNM2750XR2RN1680bK2KR1lKN1KR1vX1(W$)R$(K,R)(W$,X,1)KKKRF" KEY TO BEGIN"; A$:A$""7804"":36869,240:10,1,-1,-1,' THE GOOD WAY,6,1,-1,-1-' THE PLACE,6,0,7,0,8,0,-1,-14-( DEAD MANS DRIVE,10,0,-1,-1>- ( "*"O-( PLACE DATAp-( A POLICE STATION,0,0,-1,-1-( A TUBE STATION,3,4,-1,-1-(( A BANK,3,8,-1,-1-2( A PRIVATE HOUSE,1,10,-1,-1 6105PO$""UA(16),B(16):TB0:36879,25|""TB)""I14:J13:TB);"    ":JI4TB);"" I:TB);"E-1.( MONEY,-2.) VERBS.) GET,DROP,ASK,CASH/) SHOOT20"I((1)16)1:B(I)16290B,J((1)16)1:B(J)16IJ290^6TB(I):B(I)B(J):B(J)Tn@"":"";JI1164:J03:TBJ52);TB(IJ)16""((B(IJ)),2);^J:N0:"":I:(PO$,22);N;"MOVES"hZ$:Z$""360rZ$ FIND THE WORDD ****************************************JR(S1d2P0:36879,42<T$"ABCDEFGHIJKLMNOPQRSTUVWXYZ"FR$(8,8)P"*** FIND THE WORD ***"Z" DO YOU WANT INSTRUCTIONS ?"dA$:A$""100nA$(PO$,I45):""TBJ53)((B(BS)),2):I((T1)4):JTI4c""(PO$,I45):""TBJ53)" "BST:NN1:""(PO$,22);(N);" MOVE";:N1"S" ":BS16360&I116:B(I)I3600I:""(PO$,20);"CONGRATULATIONS":""N"MO LONG IS THE WORD"&6"LENGHT ? (3 TO 6)9@A$:A$""320NJL(A$):L3290[TL6290e^NL1khqry|A$(A$)L380Q(7)151X1QW$XX0R((1)N1)K((1)N1)R2RN1 "THE CORRECT ORDER IS:" 1 2 3 40" 5 6 7 8C" 9 10 11 12S" 13 14 15p"YOU CAN ONLY MOVE THE" NUMBERS INTO SPACES" LEFT BY OTHER NUMBERS"USE THE KEYS AS SHOWN" FOR THE DIRECTIONS."GOOD LUCK XR2RR1!RN1RR10X1(W$)FR$(K,R)(W$,X,1)QRRRRXX^mR2RR1RN1RR1K2KR1 KN1KR1X1(W$) R$(K,R)(W$,X,1)*KKKR4RRRR>XHR"===== t"IT WAS ";W$;"~I13000:"O1(.A"THAT IS ITX"YOU GOT IT IN"Pc"TRY"vP1"TRIES"I13000:O1SS1RR0KR0 P0(TT(LP)(LP)M2"THE SCORE FOR ""ATI9"START OVER"5((TIA)60);H" SEC."](TIA)3001030~$" ":R0.78 INSTRUCTIONS9B36869,242: IN LOWER CASEL"***** MOONLANDER *****V"YOU  T,THE,SIT,CAT,DOG,ONE,TWO(SIX,TEN,FIT,BET,SET,BIG,BADP4444,FOUR,FIVE,COOL,MAKE,HOLE,POSHxNINE,CLAP,COLD,GOOD,YOUR,WHAT,READVAST,LAMP,DEUL55555,CHIPS,GREAT,CLEAR,GLASS,MAKERSPOOL,SLEEP,BEAST,THREE,SEVEN,STOOLEIGHT,PL 3n252,169,189,133,43,141,27x3,169,2,133,44,141,3T3,165,45,133,253,165,46r133,254,169,3,133,46,1694,133,45,160,167,177,55153,88,2,136,192,100,208246,32,209,225,169,3,133185,32,86,225,165,251,133 43,165,252,1KRD@"IN A GRID OF LETTERSJ"CLEAR ?+TA$:A$""16201^255,169,1,170,168,32,"186,255,169,0,170,168,32K,189,255,32,213,255,134,45i6134,47,134,49,132,46,132@48,132,50,169,0,32,94J198,32,142,198,76,174,199,-1ARAMETERS yTH0:T0'X052800;V0176:F1:S1D450N1010^ATTI:AGTId{ INPUT FUEL USAGERR$:RR$""R(RR$)(TIAT)30ATTI:240210 CALCULATE NEW VALUESTTRTHTH PRINT 14 RANDOM '.' ON SCREEN(""5I1114H20(1));"."PI1V\ r  DISPLAY SURFACEx H4.5:H$(1)"":H$(2)"":H$(3)"" H$(4)"":H$(5)"":H$(6)""*H$(7)"":H$(8)" "4"A$(0),7) ""+"";2500T" "8);THC660:F0790:880XT2500R0:250a200g INITIALISE STRINGS FOR SHIPA$""A$(0)" "A$(1)" "A$(2)"  ߒ "A$(3)"  "A$(4)5940:"GOOD LANDING.":9709 DISPLAY CRASHED SHIP?h"    ";"    """"ANOTHER GO ";G$(G$,1)"Y"90 COUNTDOWN TO STARTTHIS":"WORD:";((LP)(LP)M);<"(MAXIMUM SCORE":"WAS";(LLM);")"UF"TOTAL SCORE"(TS)jP"ANOTHER GO ?~ZA$:A$""1370dnA$"Y"120xA$"N"1430"Y OR N PLEASE1370"";:36879,27:333,TIN,GE 56,(56)1:52,(52)17I(55)(56)256:T0GA:A160V(I,A:II1d2TTA:30<T20661"CHECKSUM ERROR":F"TO SAVE WITH AUTO-RUN,ENTER:"P"SYS"(55)(56)256;(34)"FILENAME"(34)Zd165,43,133,251,165,44,13ANT,RADAR,RADIO,WATER)666666,ARCTIC,GUITAR,MINUTE,MIDDLEQPISTOL,ANIMAL,TOWERS,PERMIT,FIRINGyDRAGON,ROBOTS,ROCKET,MOSAIC,MEMORYBANDIT"INSTRUCTIONS:""FIND THE WORD IS A,"GAME WHERE YOU HAVE6"TO FIND A HIDDEN WO33,44,165,253(133,45,165,254,133,46,169E131,141,2,3,169,196,141_3,3,169,1,170,168,32}186,255,169,0,32,189,25576,86,225,169,196,141,33,169,131,141,2,3,169147,32,210,255,169,126,14140,3,169,0,133,157,32213, MOONLANDER: *********************************@F'h( RED SCREEN AND INSTRUCTIONSn)236879,42:1090;< WHITE SCREEN FOR GAME=F36879,25:36869,240P"";ZI4I5d730n""wx SET UP P":v"":6 IF KEY GREATER THAN 0 PRESSED,K DISPLAY 'BURN'f15);:R036878,0:36877,150:36874,200:36878,RI1R:"Σ͐";:IR10:" ";:"";:I110" ";::1A5.4(10.2R)(XV00.5A:X0X0X6X00300J"XXX0:F0:X00\,DV0V02XAi6D0330w@DD:S1JV0(D)S(X)TS1^V00"";gh DISPLAY LANDING PARAMETERSir"";((V0),2,5)"";|((X0) ":I121%>N((1)7)1:(NH)2830DH36877,0:36874,0:36878,0YRHN:H$(H);:I:_[\ SHIP HAS LANDED OR CRASHEDf DISPLAY SHIP AS NORMALgp""15);zI110:J05:A$(J)A$;:" ";:V01"USAߒ"A$(5)"ߒ"'A$(6)A$(0)7""15);BI06Q&A$(I)A$;W0]9: PRINT DISPLAY AROUND PARAMETERS;D" "N"SPEED HEIGHT":620X"FUEL TIME ":620blI12:""13)" MUST LAND YOUR"`" SPACE SHIP ON THE MOON."Dj"YOU HAVE CONTROL OVER THE ";mt"SHIP BY CHANGING THE FUEL USAGE."~"YOU CHANGE THE FUEL USAGE ";"WITH THE KEYS 0..9 - 5 KEEPS"" CONSTANT SPEED.""YOU MUST LAND WI ";DI;" ";19);DIT1:4d"1=SAVE OR 0=LOAD ";OKfO1O0120:100ig"":U,240:1,1,O,"CHA"hL1J(DI8)J((DI20)8)1iSV((L1J)8):I01,A:L1,A:C,29:"LOADING:";SVjO11,((L1)):C,29:"SAVING:";L331%"PRESS ANY KEY"7S$:S$""30W"IJK QRS "t "";M;"";LdAL0T1TL:T:110i1000n1500s4000xA$yA$";"3500zA$"L"3000{A$"A"2500100S1,07734X22Y,5T1TL:T37734X22Y,32>XXDX]X10X11DXDX:S1,220h$YYDY.Y1Y18DYDY:S1,230=(7734X22Y)61600:S1,183>MM1:M0M0:1500:2000B" ";M "6::H0:D0:16 C$:C$""98 C$""C,27:120:1| 90:OLO1:OCO2:V1,200:30:C$"U"C$"N"C$"J"C$"H"17 V1,230:C$"N"HH1(H6) C$"U"HH1(H1)C$"H"DD1(D1)C$"J"DD1(D6)90:31:OL214:OC37:DL2:HL1:(S44)L2,CH:OL215:OC2G=(CS44)L2,L2:GCVOL209:OC0:GCGCV[?30:VV2:::@XD:A0:V128:L907:DL9:31:O1209AAVAVV2::J(8CH)H,A:DX:B"":T18:13);"= "(J1(8CH)T)::F80:Z";L1%@CH(14(0))AJCH1620,1630,1640,1650TTDXDX:DYDY:g^DXDX:DYDY:xhDXX:DYDY:rDXDX:DYDY:S1,0ESS81201:E,8:ECO,7:E1,32:S2,240::SS81208142,7:8142CO,1 S2,0) "40C$""100!C$""110?66:H0:D0:C$" " 16W50:60:96:66:16SD(22H),OL:CSD(22H),OC:V1,0:O1(SD(22H)):O2(CSD(22H)):(" HEIGHT (1-6)";Z:90:" WIDTH (1-4)";X)Z6Z1X4X11:X7SL1ZX:L207:DL2:HL1:31ATOL209:OC0:O1209C$""OL215:OC2SU30::64::Z"":T110:::" ":_90:" PLEASE WAIT":T0608:JT,(RO((318)GR)T)::90: `T019:7703T,DIT::"1:DX1:DY1:MS7744>"ABBBCD";YQ77248141:QCO,4:yQ81428163:Q,7:QCO,1:Q803480522:Q,6:QCO,7:Q792379422:Q,6:QCO,7:SS8130:SS,8:SSCO,7Q781478322:Q,6:QCO,7:~TH A SPEED ";"OF LESS THEN 15 M/H.","GOOD LUCK."J"START WITH A SPACE."^A$:A$""1220d **************+ * BY *@ * G.R.CRAIG *U **************~:51,0:52,28:55,0:56,28:650,255C36879:UC10:S7817:CS38537:H0:D0:RO32768:DI0:V1C4:V13,15:J7168 Z1010:(Z1)50,90,58,95,90,55,90,60,96,6":X4"ݟ*VIC GRAPHIC EDITOR*":7" CHAR (0-59):";CH:CH60CH18120:55:" GROUP (0-15):";GR:GR16GR1;120:58<L107:V128:GC(J(CH8)L1):L20SVk"PLEASE WAIT"1lC,25::1:U,255:C$" ":qnZCH:55:L107:J(8CH)L1,(J(8Z)L1)::CHZ:C$" ":x90:V1,230:C,26:T1500::C,25:V1,0::30:91V1,0:C$"A"OL209:OC0:30:64:66:16YC$"D"OL215:OC2:30:64:66:16C$""DIDI1(DI39):96:C$:19C$""DIDI1(DI1):96:C$:20C$"G"55:C$" "C$""82C$""82C$""70C$"H:XH:Q1Z0:X7FGL1ZX:C$"":L2701:DL2:HL1:31:O1215C$C$"0":73THC$C$"1"I:L518:DL51:HL1:OL209:OC0:(C$,L5,1)"0"OL215:OC2J30::64::P" 1=ALL 0=LINE";Q:Q2Q120:80R80:ZH:XH:Q1Z0  55004500) 52,28:56,28:Q J0511:XX(32768J):7168J,XX:p J0(648)1:XX:XX014 7168J,XX:"":36869,255:36879,8:650,255:L336878,15:"":CO30720:S136876:S236877:S336875:TL60:M500:AL1X1:Y 20:40 *SS6:CSCS6:L81Z:L91XT+90:" CHAR (0-59):";OL:OL0OL59120:43,OC0:HL8:DL9:30:::SS6:CSCS6:2"ݐ@ABCDEFGHIJKLMNOPQRS":C,253"":U,255:T18:" V1501:36878,V:S2551285.5:S1,S:S,V:S1,06 EX120f *SS,12:SSCO,2:T1100:T:SS,13:SSCO,2v /T1100:T 04000 4EX >LL1:L0L1:M0:1500:5000 H15 S1,0:FSS22SS38422 AL17734X22Y,5 F,20h6,102,66**'4,4,4,4,7,0,0,0,117,37,37,37,114,0,0,0,119,68,119,65,119,0,0,0B+'8,8,8,8,0,0,0,0,-1 648025070|(147):36879,25:36869,2406"INSTRUCTIONS"j"Υ  000 AD""KEYS:-;-RIGHTL-LEFTA-FIRE""SHOOT THE ALIEN BEFORE THE TIME RUNS OUT.YOU HAVE THRE 0 (F22)6MM100:M0M0:1500# 25502 AL12550l (F22)14(F22)15MS,32:MS1,32:36878,0:S1,0  S2,0:S3,0:F,32:5000 SS81208120,32:SS8141:3050 SSSS1:SS1,32 SS,8:SSCO,7 SS81418141,32;;<A17:" ";:A$(A):(A$,1)" ";|F"  ";::" 8 ";P"  ";:" A B C D E F G H "Z1400:A7863:A130720:A,HH:AA1,1:A2,BB:AA12,6_A44"IF YOU SHOOT A BOXTHEN THE TIME COUNTS DOWN 100 PTS AND YOU ";p"GET CLOSER TO LOSING ALIFE.SO,REMEMBER,DON'TSHOOT THE BOXES.""PRESS F1-TO RE-READ""PRESS F5-TO PLAY"A$A$""5500A$""5630:"" " ";O " "; "Υ   AD" ""; "INITIALISING GRAPHICS" "";65M72D144:KO1$|N1N8D12:KO26~(C)96100Y(C)96HLHL1:150:J1200pHLHL1:C,96:100~J0:C,81Q$:Q$""151Q$"F"HH229J0:A18:B0:U%0BBA%(A):(CB)BBU%1:155(CB)HHU%010,0,0,0,170,85,170,85%'24,60,126,126,24,60,126,231X&'7,2,2,2,2,0,0,0,118,37,37,37,117,0,0,0,220,81,92,81,92,0,0,0''0,65,8,36,75,146,108,255,136,2,96,132,41,84,209,255('0,3,15,21,255,31,3,0,0,192,240,168,255,248,192,0)'24,24,24,24,60,12BAD LUCK!!!!"*"DO YOU WANT ANOTHER GAME?(Y/N)"2A$YA$"Y"Q78348141:Q,32::5050A$"N"Q78348141:Q,32::50505040"PRESS [F1] TO PLAY""PRESS [F3] TO LEAVE"A$A$""A$"":FCO,4:F22,32:SS,8:SSCO,7( (F22)52600< (F22)62700\ (F22)14(F22)152800h F,32: F,32:7734X22Y,32: ( (F22)5AL0:7712X22Y,32 2 V1505 < 36878,V F S2551282 P S3,S Z S,V d 255F%(20),G%(20)H A18:A%(A)::A14:D%(A)::A14:W%(A):2,-44,44,-2,42,-42,46,-46,7725,8033,7739,8047,7771,7991,7781,8001HH229:BB231:HF1:BF6:HL2:BL2:36879,892" OTHELLO  ";:"  "E LI-";8"VES.IF YOU SHOOT THE ALIEN YOU MUST THEN SHOOT THE MOTHERSHIP. ";"HOWEVER,THE TIME IS RAPIDLY COUNTING DOWN.PRESS F1-FOR NEXT PAGE"A$:A$""55705560"""Υ  000 AD",:SS8120:3550 SSSS1:SS1,32& SS,8:SSCO,7, Y MS77247724,32:7725,32:MS7744:4040n MSMS1:MS2,32 MC(17(0)):MC1MC2 MS,14:MSCO,MC:MS1,15:MS1CO,MC AL0MM1:M02000  36869,240:36879,8,BB:AA144,6:A46,HH:AA146,1;dHH229:BB231:HF1:CC%0`i"":C1200n" ":"";A$:A$"K"CC%1:105xM((A$,1)):N((A$,1)):C17681((M65)2)(N44):CC1yCC%1C,229:C30720,1:HLHL1:200 zKO0:M'**DATA** '28,28,28,28,255,255,255,28,'12,28,60,108,255,255,12,12P'60,126,206,214,230,198,254,124t'60,126,198,198,254,254,198,198'120,252,198,198,198,198,252,248"'129,66,60,90,255,195,60,66#'0,124,2,246,246,246,246,244$' "(C) RICHARD IKIN 1984"GS1,0:V1501:36878,V:S2551285.5:S1,S:S,V`Q77248119:Q,32:S1,0:S2,0:S3,0:36878,0"Υ  000 AD"L0AL0"CONGRATULATIONS":5030"75B0:C,HH:C30720,HF:J1;BBA%(A):(CB)BB180:170C:uCB,HH:CB30720,HF:HH229HLHL1:BLBL1HH231HLHL1:BLBL1""18)" "HL:40)" "BL:BLBL1:HH231:BB229:HF6:G0:BLHL12450D 14:CD%(D):(C)96999:Y013005:H%0:CC1:KO0300MCCD1:(C)BB230l(C)HHH%H%1:290:260(C)96C2C:290:270300(C)BB300D1D1:D10CC1:230H%1300CC2:1300"CCD1:(C)HH290 169,2,133,83,169,0,133,849 160,0,177,81,240,14,230,83[ 208,2,230,84,230,81,208,240 230,82,208,236,200,177,81,200 17,81,208,234,166,83,165,84 32,138,3,169,207,160,3,32,142 3,96,32,66,89,84,69,83,13,0 CA%(D))96420jAA%(D):A112Ll(AC)96(CA2)96(CA3)96(CA4)HH420grAA::C3C:H3%0:H10|C3C3A%(D):(C3)BBH3%1:H4%1:380(C3)HHH3%0:H4%0:380(C3)BBH3%1H11H1H1H%:(C3)127H4%H4%21:CSCSP:RSRS1:RSRER$"RUN10":81C135cP$(CS):L(P$):D$D$(P$,L1):D$:LNLNIN 14:R$:631,19:632,13:633,13:198,3: "";:M18:M::16:"RUN11": "";:M917:M::16: H%NM256:L%NMH%256:- LND(0):(A$):3K$"0"K$"9"4/ A$A$K$:K$;:4k CS(A$)" ** ERROR ** RE-ENTER":198,0:198,1:2 12::"RUN2":631,19:632,13:633,13:198,3: LNLN(822):H%LN256:821,H%:820,LNH%256:%(G)C:G%(G)Y:GG18CA1A5:(C)96999:Y0F%(G)C:G%(G)Y:GG1@:A27771:A37781:A42:A5220:460:A27815:A37947:A444:A510:4601200Y0:A18:B0BBA%(A):(CB)BBUU1:1010(CB)HHYYUB0:U0:: 6000:7000:7500?37151,0:PA37151:PB37152:RB37154`TL%(25),D%(5),AS%(5),AL%(5)LE1:L3:SC0:S$"000000":L$"HHH"D%(1)22:D%(2)22:D%(3)1:D%(4)1:D%(5)0AS%(1)8108:AS%(2)8024:AS%(3)7930:AS%(4)7849:AS%(5)7759 J3,133,2,134,88,169,34 133,89,160,7,177,88,153,138T 3,136,16,248,48,32,32,131u 207,96,32,29,187,96,32,217 220,96,32,28,202,96,32,205 221,96,32,30,203,96,32,205 189,96,32,30,171,96,166,2 181,41,133,82,169,0,133,81((1)I):CI%(C) 150:J01003D14:(D%(D))96CD%(D):1350V:QW772577392:QQ030844u((QQQW)96CQQQW:13502::FC,231:C30720,6:154:100xA772577392:QQ020844:AQQ,96:::'5,D14:CD%(D):H10:H%0:E16:CCA%(D):(C)96420G@999:Y0420xJC3C:F%(G)C:G%(G)Y:GG1:H%0:H4%0:H5%0TC3C3A%(D):(C3)BBH%1:H5%1:340^(C3)HHH%0:H5%0:340c(C3)127H5%H5%2h(C2A%(D))HH(2"":M03:D$:""D$;:D(M)::13:LN18fLN(822)(823)256:IN(824):P$(LN):L(P$)RS(825)(826)256:RE(820)(821)256:R$"RUN2":D$""(P$,L1)" DATA ":C1:CS0P(RS):P$(P):L(P$)%D$D$(P$,L1)",":CC:" LINE NUMBER, INCREMENT";LN,IN:822,0:12:822,IN{LN(820)(821)256:A$(LN):D$(A$,(A$)1)" DATA ":CS0A$"":""D$;K$:K$""4K$(20)(A$)0A$(A$,(A$)1):K$;:4K$(13)10K$","D$D$A$K$:CSCS(C2A%(D))HH(CA%(D))96420$H1113006H5%H4%1300LH5%2H4%21300Y::450A27817:A37823:A42:A5132:460:A27861:A37905:A444:A56:460HLBL17G01200500A1A2A3A4:CA1(C)96999:Y0FIND(1):RSD(2):RED(3):NMRE:12:820,L%:821,H%SNMLN:12:822,L%:823,H%:824,INsNMRS:12:825,L%:826,H%:M19:631M,13::631,19:198,10: START LINE NUMBER,INCREMENT,START RAM ADDRESS,END RAM ADDRESS **** LENGTH/TP ****$:? ** M. C. HART **E:b J828 982: X:J,X:h: 169,0,133,2,173,188,224,162 114,201,32,240,23,162,122,201 11,240,17,162,130,201,139,240 7,162,138,201,227,240,1,96 169, G01305W0G1=W114:F%(W)W%(W1)(D%(W1))96G%(W)G%(W)E:uI0:X0:W0G1:G%(W)XI%(I)F%(W):II1G%(W)XI0:XG%(W):I%(0)F%(W):I1X01290G0100C((1)G):CF%(C):150:100 C 43,1:44,32:8192,0-641,0:642,32D648,30:36866,150S(36869,240k2"PLEASE WAIT...";<"L"(34)"BORIS2"(34)","(186)"";F631,13:632,82:633,117:634,13:198,4: 0511:X(32768J):7168J,X:7 J0511:CH:CH013H 7168J,CH:W 36869,255tX125:TR:TL%(X)TR:"":36879,8:650,128:36878,15CO30720:PL7790:U0QPLPL21:Q,0:QCO,5:PLPL88:PL81642420500 DO YOU WANT ANOTHER GAME?(Y/N)"5400!A$:A$"Y"JA$"N"36869,240:36879,27:"":T5050ZfY(X$)r"JJ1Y,Y$(X$,JJ,1)6Y$;:36875,220:T125::36875,0:Jp"":36879,8:36869,240 z" (5((M1)))LE:UU1:800:M1,328M,19:M22,18:MCO,1:M22CO,1FT150:lM,21:M22,20:MCO,1:M22CO,1rxM7790(M66)0MM22:M22,1:M22CO,4M,23:MCO,1:M22,22:M22CO,1T150: 100%Q8070813622:Q,1:QCO,4:HQ7799786522:Q,1:QCO,4:kQ7895796122:Q,1:QCO,4:Q7970803622:Q,1:QCO,4:XQ1LE5YTT8(15(0))ZTT9TC4[TT10TC5\TT11TC7]TT12TC6"PRESS  SPACE "!A$=!A$" ""SETTING UP GRAPHICS..":G!6090e!X"":36879,240:36879,25!b""8)"BORIS"!l"WELCOME!!."!m"THE OBJECT OF THISGAME IS HELP BORIS TO TIDY UP THE 5 CHA,24:M22CO,1_  C0 LC1(LE5)2 (TL%(LC))32CC1: LCI C253010 CLE5LELE1:M,32:M22,32:SSSC:SCSC(LE10):3100:28 SCSC(LE100):3100:LE1:M,32:M22,32:28 800& V15030 36878,V: S25$R" ";(L$,L1)*[6AA15IDD(15(0))i(AS%(AA)D%(DD))32DD5AS%(AA)D%(DD),26:AS%(AA)D%(DD)CO,7AL%(AA)AS%(AA)D%(DD)T175:EE15:AL%(EE),32:K(M44)1G AROUND THEPLATFORMS ARE SOME VERY UNFRIENDLY ALIENSWHO ";E#x"WILL DISINTIGRATE YOU ON CONTACT!"#y"YOU WILL HAVE TO AVOID THESE TO PICK UPALL THE ITEMS"#z"THERE ARE FIVE LEVELS TO GO THROUGH AND YOU HAVE THREE LIVES (GENEROUS";0 M44AL%(QQ)3300 M21AL%(QQ)3300. M23AL%(QQ)33004 :\36879,8:Q77028185:Q,32:X$"BAD LUCK!!!!YOU HAVE USED UP ALL YOUR LIVES"5400X$"BETTER LUCK NEXT TIME!"5400X$"120:,M,17:M22,16:MCO,1:M22CO,1%3@4(M44)1(M45)0Z6(M23)0(M1)0>(M43)1M1,1:M1CO,4:M21,1:M21CO,4fMM1:M1,32:M21,32hM7767M7789k(M44)0MM22p(M1)8(M1)14SCSC"BCD 000000 EFG "&800:850:M8120:U0:600`M,15:M22,14:MCO,1:M22CO,1jd1000ti3500nA(PA):RB,127:B(PB):RB,255o(B128)02000p(A16)02100q(A4)02200r(A8)02300wULE53000";4 ""; ""; "BORIS" "CBM VIC-20+8K" "(C) RICHARD IKIN 1984" !M,25:MCO,1:M22,24:M22CO,17 (M21)0(M22)1H (M22)0\$ MM22:M44,32~. (M45)0M44,1:M44CO,43 (M67)0M44,1:M44CO,4V M,23:MCO,1:M22,22:M22CO,1W T150:X M,25:MCO,1:M22^TT13TC2bTL%(Q),TT'cTL%(Q)CO,TC-d3eH SC1000000SC0V!SC$(SC)w"SC99999S$(SC):TA3:810#LS(SC$)$S1$(SC$,LS1)%S$(S$,6LS)S1$&TA5*""TA);S$/36875,((0)128)127:T110::36875,0MBERS";9"n"BY GUIDING HIM ROUND WITH YOUR JOYSTICK ALONG THE PLATFORMS AND UP ";s"o"THE LADDERS. HOWEVER,LIFE IS NOT A BED OF ROSES.""p"PRESS F1""qA$:A$""7030"r7025"v""8)"BORIS"#w"HOVERIN51289D 36876,SN S,V!X 36876,0:36878,15:+ DE27e T15:M,DE:MCO,2:M22,DE:M22CO,2:36877,220: DEDE1:DE3036877,0:3310 3301 LL1:L05000 850 M,32:M22,32:28 QQ15 M22AL%(QQ)330 (M45)0#(M21)0(M1)0(M22)1V(M45)1M1,1:M1CO,4:M23,1:M23CO,4qMM1:M1,32:M23,32(M)0MM22 (M1)8(M1)14SCSC(5((M1)))LE:UU1:800:M1,32*M,15:M22,14:MCO,1:M22CO,1+T#{" AREN'T I?!)"$|"PRESS F1"$}A$:A$""7040"$~7037C$""8)"BORIS"$"ONCE YOU HAVE CLEARED ALL FIVE LEVELS BORIS WILL HAVE TO START";$"WORK OVER AGAIN UNTIL THERE ARE NO LIVES LEFT"$"PRESS F3 TO PLAY" %"PRESS F1 TO RE-READ"%A$:A$"",%A$""70006%7050S%L36869,240:36879,8:""w%V" ";%W" "%`"BORIS"%j",35,255,0,0,255,0,244,2130. 254,0,225,254,0,45,255,0,45,255P 0,27,253,0,0,0,0,0,0,0,1613( 4,4,4,7,0,0,0,117,37,37,37,114,0,0,0,119,68,119,65,119,0,0,0/''24,24,60,60,60,24,24,24g''124,124,124,56,16,16,16,124,4,8,60,110,95,95,62,28' '24,60,60,66,129,129,66,60,0,124,2,246,246,246,246,244'!'54,127,127,127,62,28,8,0'"'56,56,56,16,1244,2,105,8,96,32,207,255,201,1782H 13,208,248,104,104,76,80,253,0,165u 145,201,254,208,5,8,32,204,255,40,2603 96,32,97,254,0,44,45,145,48,248 96,32,76,254,0,208,8,169,3,133,1988 154,169,0,0,133,153,96,133,30,160 0,0,32,10,26,201,34,2807/ 208,217,32,207,255,201,34,240,38,201_ 13,240,11,145,187,230,183,200,192,16,3050 240,197,208,234,165,28,201,76,208,226 169,0,0,32,213,255,32,88,254,0,2826 165,144,41,16,208,240,76,80,253,0  32,207,255,201)''29,29,29,9,255,156,156,156,8,28,39,33,33,33,96,0&)('66,36,60,219,126,36,66,129s))'24,24,24,24,24,24,24,24,36,36,36,36,36,36,36,36,66,66,66,66,66,66,66,66{)N-1) N***TREASURE LOCATION DATA***)*N7770,7869,7950,8051,8134)+N8122,8046,7953,94,208,2,230,39,96,25959 169,32,44,169,13,76,210,255,162,0g 0,189,208,255,0,32,210,255,232,224,2735 22,208,245,32,178,254,0,162,46,169 59,32,219,253,0,165,0,0,32,204,2280 253,0,165,1,32,204,253,0,32,153  254,0,32,111,254,40,249,201,13,208,236,165,28,201,83,2967A 208,248,32,178,254,0,169,1,133,185l 32,130,246,76,80,253,0,13,32,32,2302 32,80,67,32,32,83,82,32,65,67 32,88,82,32,89,82,32,83,80,77,1249 82,88,71,58,59,76,83,134,253,0 183,254,0  TM#=S4096:J129:TO:A$:K136:P2K1:4:DLrPP1:4:S,LD16:TT(S):SS1:K:9J,T:J:L((A$,P)):LL48(L64)7: 00181064009922931111121D1D1D2054494E594D4F4E200031106E00992211204A494D201 4255545445524649454C4";&k"SETTING UP GRAPHICS""&l""B&o"(C)RICHARD IKIN 1984"H&?e&'251,251,0,223,223,0,0,0&'129,129,255,129,129,129,255,129&'7,4,7,1,7,0,0,0,119,69,69,69,119,0,0,0,119,84,119,100,87,0,0,0''4, TINYMON/2A S4626: J154 205 2:T0: K1 20: Xh S,X:SS1:TTX:: C: TC 40"ERROR-LINES"J"-"J1:(:"TINYMON/2 LOADED"2 4096,0: 43,1: 44,16: 45,20: 46,20:: 42,133,42,56,96,201,58,8,41,15 40,154,165,0,2156& 0,72,165,1,72,165,2,72,165,3R 166,4,164,5,64,120,166,6,154,108,1674x 2,192,76,75,253,0,160,1,132,186 132,185,136,132,183,132,144,132,147,169,2569 2,133,188,169,64,133,187,32,207,255 201,32,240,249,201,13,244,186,186,186,16,48,78,66,66,67,96,01(#'56,56,56,16,124,186,186,114,16,56,36,36,228,132,6,0e($'28,28,28,8,62,93,93,157,8,28,114,66,66,194,6,0(%'28,28,28,8,62,93,93,94,8,28,36,36,39,33,96,0(&'156,156,156,136,255,29,29,29,8,28,118,66,66,194,3,075,254,0,177,193,32,204,2095@ 253,0,32,164,254,0,198,30,208,241i 96,32,13,254,0,144,11,162,0,0,2092 129,193,193,193,240,3,76,75,253,0 32,164,254,0,198,30,96,169,2,133,2433 193,169,0,0,133,194,169,5,96,230 193,208,6,230,1,13,240,226,201,44,208,28505 240,32,13,254,0,41,15,240,211,201d 3,240,250,133,186,32,207,255,201,13,2767 240,202,201,44,208,230,32,189,253,0 32,207,255,201,44,208,244,32,254,253,3329 0,133,174,134,175,32,207,255,201,32 2g7876,7773),N7788,7857,7964,8039,8131*-N8126,8033,7957,7861,77793*.N7785,7871,7945,8042,8139 0,76,80,253,0,2153. 32,254,253,0,133,1,134,0,0,32[ 153,254,0,133,30,32,131,254,0,208,2034 251,240,234,32,189,253,0,169,5,133 30,32,131,254,0,208,251,240,220,32,2904 207,255,201,13,240,7,32,189,253,0 133,1,134,0,0,166,6,1 422004C1078009E28C228343329AA323536ACC228343429AA30 373829000000EAEAA52D8522A52E8523A5378524A5388525A000A522D002C623C622B122 D03CA522D002C623C622B122F0218526A522D002C623C622B122186524AAA526652548A537D002C638C6376891378A48A537D002C638C6376K 7C8C010F0C5D0EAA51CC94CD0E2A9000020D5FF2058FE00A5902910D0F04C50FD00#20CFFFC90DF0E2C92CD0F0200DFE00290FF0D3C903F0FA85BA20CFFFC90DF0CAC92CD0E6$20BDFD0020CFFFC92CD0F420FEFD0085AE86AF20CFFFC920F0F9C90DD0ECA51CC953D0F8%20B2FE00A90185B92082F64C5 2FFA9000085S272040FE00C92EF0F9C920F0F5A207DDE6FF00D012851C8A0AAABDEEFF0085C1BDEFFF0085C26CC10000CA10E64C4BFD0020BDFD0090F820EEFD0020BDFD0090F020EEFD00204CFE00F01F20B2FE00A22EA93A20DBFD0020C5FD00A905206FFE00A5C3C5C1A5C4E5C2B0DF4C=50FKK0102035FE00062A062A062A062A052A852A3860C93A08290Fu28900269086020CFFFC90DD0F868684C50FD00A591C9FED0050820CCFF28602061FE002C2D9130F860204CFE00D008A903859AA90000859960851EA0000020AFFE00B1C120CCFD0020A4FE00C61ED0F160200DFE00900BA2000081C1C1CKK0EA20BDFDI00A905851E2083FE00D0FBF0DC20CFFFC90DF00720BDFD008501860000A6069AA5000048 A50148A50248A503A604A4054078A6069A6C02C04C4BFD00A00184BA84B98884B7849084!93A90285BCA94085BB20CFFFC920F0F9C90DF01AC922D0D920CFFFC922F026C90DF00B913"BBE6B891371890B6C9BFD0EDA5378533A538i85346C370000000000000000BF78ADFEFF00AEFFFF008D16038E1703A9802090FF58000068850568850468850368850268850168850000BA860638A501E9028501A50000E9000085000020B2FE00A242A92A20DBFD00A952D01CA93F20D2FF20B2FE00A92E20DK0FD000D2020205043202053522041432058522059522053k&504D5258473A3B4C5386FD00B7FE0023FF0000FF00F4FE00E1FE002DFF002DFF001BFD00D004C50FD0020FEFD0085C186C260A5C220CCFD00A5C1484A4A4A4A20E4FD00AA68290F20E4FD00488A20D2FF684CD2FF1869F690026906693A60A202B5C048B5C295C06895C2CAD0F360200DFE009007AA200DFE009001604C4BFD00A90000852A2040FE00C920F0F920'20FE0090172040FE00C9309KK 1F0034C4BFD0020A4FE00C61E60A9_0285C1A9000085C2A90560E6C1D006E6C2D002E62760A9202CA90D4CD2FFA20000BDD0FF0020D2FFE8E016D0F520B2FE00A22EA93B20DBFD00A5000020CCFD00A50120CCFD002099FE00206FFE004C50FD0020FEFD0085018600002099FE00851E2083FE00D0FBFKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKK