C$::"SAVED"9NR:65481,0:65482,0:65484,0:65486,0:I120:(8):J135:J:I: FR3 6009@96," FOREST ";FR1;" MAY THE LORD BE WITH YOU!":I12000:9G10:FRFR1:FR3550:FR46009I1TM:M3(I),13::;D2;R4"0+(0,0)(8,8),N2,G0)+ 114000F+"BM2,0;R4;D4;NL2;D4;L4"0\+(0,0)(8,8),N3,G0i+ʁ 114000+"BM2,0;D4;R4;NU4;D4"0+(0,0)(8,8),N4,G0+聦 114000+"BM6,0;L4;D4;R4;D4;L4"0+(0,0)(8,8),N5,G0, 114001,"BM6,0;L4;D8;R4;U4;L2"1,(0,0)(8,8),N6,G1$,$ 114001=,."BM2,0;R4;D2;G4;D2"1S,8(0,0)(8,8),N7,G1`,B 114001,L"BM2,0;R4;D4;NL4;D4;L4;U8"1,V(0,0)(8,8),N8,G1,` 114001,j"BM2,0;R4;D4;ND4;L4;U4"1,t (0,0)(8,8),N9,G1,~1,(0,0)(8,8),NB,1,2.: 2.:2.: DIRECTIONS2!.:2(/:2./2B/5)"MAXIMUM":2/&"THE OBJECT OF THIS GAME IS TO COLLECT AS MANY POINTS AS YOU CAN. YOU CAN ONLY MOVE IN ONE ROW OR ONE COLUMN."3T/0"YOUR OPPONENT (PERHAPS COCO) MOVES IN THE OTHER AXIS. THE GAME ENDS WHEN ALL POINTS ARE TAKEN, OR WHEN NEITHER PLAYER CAN MOVE."3Z/:3a2:3h2:3|2: DRAW BORDERS32:32:32 4,133(28,0)(28,191),33(224,0)(224,191),33(0,0),4,433"(255,0),4,433, 2,1436(30,156)(30,191),4"3@(222,156)(222,191),443J(36,176),2,24J3T(30,0)(30,24),4b3^(222,0)(222,24),4s3h (40,2),2,243:TITLES43 4,243 "BM50,20"43 14000:DRAW M43"BM76,20;U8;E8;F8;D8 ;BM78,14;R12"53 "BM98,20;E16;BM98,4; F16"543"BM120,4;R8;BM124,6; D14;BM120,20;R8"5D3"BM134,20"5Q3ց 140005l3"BM160,4;D16;R16;U16"5|3"BM182,20"53 1400053"BM58,160;D10;R6"54"BM70,160;ND10;R6;BM70, 170;R6;BM70,164;R4"54"BM82,160;ND10;R6;BM82, 164;R4"6$4"BM92,160;R8;BM96,160; D10"6i4&"BM150,160;ND10;R6;F2; D2;G2;NL4;D2;F2;BM162,170; R2"640"BM168,170;E10;BM192, 168;G2;L2;H4;U2;E4;R2;F2"64:(196,170,4)64? 3,264D(62,176)(94,188), ,BF74N(156,176)(190,188), ,BF7 476:7"6: DRAW M796"U16;F10;E10;D16"7?6ΐ7F::7M::7a:: PRINT SCORES7h::7o::7:ʅ N1000 DN0: 150707:DN(N1000)7:NNDN10007:ށ 101607:XX87;` N100 DN0: 152208;jDN(N100)8;oNNDN1008;t 101608';~XX88K<( N10 DN0: 154308[<2DN(N10)8i< : D1 500:9 NHX20,Y12), ,B'#܁ 7000'5 NU0 4110'A 3000'M 5020' LP1 PO(E,F)0 LTLTPO(E,F):PO(E,F)0:DN 10: 6040:XX8: 6040:XX8:XLM2432: (X,Y)(X20,Y12),, B:4050'':(": RIGHT(%,(X,Y)(X20,Y12), ,B(16 7070(C@ NU0 4200(OJ 3000([T 5020(^ RP1 PO(E,F)0 RTRTPO(E,F):PO(E,F)0:DN 10: 6040:XX8: 6040:XX8:YRM1628: (X,Y)(X20,Y12),, B: 4140(h):) :): X,Y TO E,F)":)):)RE((X8)24):F((Y 12)16))XĐ)_p:)fz:)}:ADJUST X,Y FIRST):)XX2:YY2: 10160)XX2:YY2:)X:)b:CHECK FOR NULROW/COL)l:)vNU0) I1 8*NUNUPO(I,F)* :*NU0*  I1 8*2NUNUPO(E,I)*8*>Ɛ*E@:*LJ:*bT:MAKE PLAY BOARD*i^:*ph:*r 11050 : DRAW NUMBERS*:*:*: DRAW PLAYING BOARD*:*:*:SCREEN 1,0*̼1*: *:+ : DRAW GRID FOR BOARD + :+ :+/ & X30 198 24+E 0 Y26 138 16+e :(X,Y)(X24,Y16),, B+o D Y,X+ N 13000 : BORDERS+#(:+#2:+#<: PLACE NUMBERS IN GRID+#F:+#P:+#Z 2050+#d 1,0+#n Y30 142 16,#x X34 202 24,# 2090,Q# C10 (X,Y)(X8 ,Y8),NB, : DNC10 : 10160,f#DNC(C10)10,p#XX8,}# 10160,#XX8,#X,Y,#Ȑ,':,':,'$: DRAW DESIRED DIGIT AT X,Y,'.:,'8:,'B (X,Y)(X1,Y1),N0,: -'L (X,Y)(X1,Y1),N1,: -6'V (X,Y)(X1,Y1),N2,: -W'` (X,Y)(X1,Y1),N3,: -x'j (X,Y)(X1,Y1),N4,: -'t (X,Y)(X1,Y1),N5,: -'~ (X,Y)(X1,Y1),N6,: -' (X,Y)(X1,Y1),N7,: -' (X,Y)(X1,Y1),N8,: .' (X,Y)(X1,Y1),N9,: .>' (X,Y)(X1,Y1),NB,: .P'X1X8:Y1Y8.f' DN0 10050.'Ĉ DN 10060,10070, 10080,10090,10100,10110,10120, 10130,10140.'΁ 10150.*:.+:.+ : DRAW 10 DIGITS.+:.+ :.+* 1,1/+4 2,3/+> 3/W+HN0(1),N1(1),N2(1),N3(1),N4(1),N5(1),N6(1),N7(1),N8(1),N9(1),NB(1)/m+R(0,0)(8,8),NB,G/+\"BM4,0;NG2;D8;NR2;L2"/+f(0,0)(8,8),N1,G/+p 11400/+z"BM2,0;R4;D8;L4;U8"/+(0,0)(8,8),N0,G/+ 114000+"BM2,0;R2;F2;D1;G4OR N)":4209f65478,0:65481,0:65482,0:65484,0:65486,0:I120:(8):J135:J:I: FR3 6009@96," FOREST ";FR1;" MAY THE LORD BE WITH YOU!":I12000:9G10:FRFR1:FR3550:FR46009I1TM:M3(I),13::G10:L3,159:95:( FR3 550 : 600:@F1M1(N5):F2M2(N5):q F1F1N1:F2F2N2:F3(F1)(F2)32AR512: F10F131F20F215 213: 16383,(F3):FR3F3,255:F3,30: F3,(16383); (16383)100 220,5:YY((25)5): Y1 400 : 231; 521;8&I1TM: M3(I),159::TM1;v+M1(1)(32)1:M2(1)(16)1:M3(1)M1(1)M2(1)32AR512;- M3(1),14:60:R,19:504;: A$"8" 580;< KILLHIT MX(5)5: 245,5:;> 585< DHIT15: KILLHIT MX(10)10: 245,5:<I 100,3:<2X:@100,N$:SP1605D3KE M0 3lFMM1: (3) 328,330,3403zHMX2000:3JAR(6)2: (L1L232AR512)1593303L L3,(16382):L3L1L232AR512: 16382,(L3): L3,1003N 300:4TL1(32)1:L2(16)14OV L3,(16382):L3L1L232AR512: 16382,(L3): L3,100:4[^:::4l`" ";N$4b"**********************"4c"YOUR STRENGTH = ";Y4d"LOCATION AREA ";AR24e"NO. ARROWS = ";A4f"SWORD ";:XS: 3705#g"BOW ";:XB: 3705Hh"ROPE ";:XRO: 3705mi"BOAT ";:XBT: 3705j"HEALING ";:XH: 3705k"MAGIC ";:XM: 3705l"KEY ";:XK:3705m"**********************"6n"PRESS ANY KEY TO START"67qX$: X$"" 369 : 300:6Tr X0 "NO" : "YES"6Zs665478,0:65481,0:65482,0:65484,0:65486,0:Y1206I120:0:J15:J:8:J15:J:I:L3,(16382)::DEDE1:DE34157}::@96," YOUR WOUNDS WERE CRITICAL... HOWEVER YOU WERE FOUND AND NURSED BACK TO HEALTH BY A KINDLY OLD GNOME WHO KNOWS YOUR MISSION..."7L1(32)1:L2(16)1:AR(12)2:L3L1L232AR512: (L3)159 4138  16382,(L3): L3,100:D10:D20:I12000:I:350: 1148::@96," SORRY.. THE KINDLY OLD GNOME FOUND YOU AGAIN BUT FIGURED YOU WERE TOO STUPID TO LIVE SO HE FED YOU TO ....'NAUGA'!!"8:: "REPLAY (Y OR N) ";:A$:A$"Y": A$"N" 9 :@100,"I SAID (Y 5'L131:D10:L4L41') L20 160'QAR6157:L20:D20:L4L432:160'vARAR4:L215:L4L1L232AR512' L215 165' AR11 162:L215:D20:L4L432:165'ARAR4:L20:L4L1L232AR512' 300:135( (16382)1282(16382),2(*(16382)85BT1: 190(G(16382)75K1: 190(e(16382)82RO1: 190((16382)83S1: 190((16382)77MM(3)4:190((16382)40B1: 190((16382)94AA1:190((16382)72HH1:190)(16382)19SP1: 190)> (16382)4 K0 G1FR)D)U16382,159:)pMY0:I1TM:FR2215)Ӆ (M3(I))13 213)ԅ(M3(I)512)AR 215)Ջ:)ׅ (16382)175 (16382)143 M4M1(I)(3)2:M5M2(I)(3)2: 224*-؅FR1(0)SK N5I:MN1:261:MN0:520*Pم M1(I)L1 M4M1(I)1: 220*sڅ M1(I)L1 M4M1(I)1: 220*M4M1(I)*܅ M2(I)L2 M5M2(I)1: 224*݅ M2(I)L2 M5M2(I)1: 224*M5M2(I)*M40M40:M431M431+ M50M50:M515M515+S (M4M532AR512)100 100,5:YY((25)10): Y1400:231+x (M4M532AR512)159 231+M1(I)M4:M2(I)M5+ M3(I),159:M3(I)M4M532AR512+ FR2 M3(I),14: 213+ M3(I),13: 213+F1L1:F2L2:N450,BI1TM: (M3(I)512)AR (M3(I))13 (M3(I))14 254,M 260,qN1(M1(I)L1):N2(M2(I)L2), N1N2 N3N2 : N3N1, N3N4 N4N3:N5I,I,N1M1(N5)L1:N2M2(N5)L2:N3N1, N10 N21(N2): 266- N20 N11(N1): 266-0N1N1(N2):N2N2(N3)-h (N1)1 N11(N1) : (N2)1 N21(N2)- MN0:A$"2"275- S0 - I12:F1F1N1:F2F2N2:F3(F1)(F2)32AR512. 16383,(F3): F3,107: (16383)13(16383)14 290:F3,(16383):.0 F3,(16383):I:.FB0A0:AA1.wF1F1N1:F2F2N2:F3(F1)(F2)32AR512. F10 F132F20F216 60: R,94:/ 16383,(F3):F3,94:(16383)13(16383)14290:(16383)13(16383)14F3,(16383):/5 (16383)128 (16383)144 /H F3,(16383)/S 277/v"KILL(100)5((D1)(D2))/$ A$"7" HIT40 : HIT50/% FR2 5700& KILLHIT 245,7:I15: F3,191:J110:J: F3,13: J15:J:I: 16383,159:M 16,255,63,254,142,6,0,134,158,167,0,108,128,140,30,0,38,247,142,14,0,134,174,191,63,252,142,12,0,189,63,234,142,22,0,191,63,252,142,20,0,189,63,234,142,30,0,191,63,252,142,28,0,189,63,234,16,254,63,254,57 198,14,58,167,0,108,128,92,193,32,38,247,188,63,252,38,239,57:COPYRIGHT (C) CLOAD 1982 BY: THOMAS STEPHENSON 401 CHARLES ST PITTSBURGH,PA 15210 20,16300: 016301I1630116379:K:I,K::K(0) y 4: 20,16379::@100,"CHARACTER NAME ";:N$:::" SKILL LEVEL 1-IMPOSSIBLE 2-DIFFICULT 3-NOT EASY 4-EASY ":SK: SK4S1:B1:A100:SK3 SK(SK1)10.7::@100,"SETTING UP":I0((N$,1)):J(0)::A(4),M1(19),M2(19),M3(19)!(M22:FR1:Y120:275,63:276,184:I011:R(6)1:J0R!J*M4(28)(12)321536I512:(M4)15942!.M4,131:M41,143:M42,143:M43,131:M4M432:K03:M4K,143:K:M4M432:M4,140:M41,143:M42,143:M43,140!4J:I: 62!60:(R)15962:R,82"8@60:(R)15964:R,85"]F60:R,40:60:R,83:60:R,77"vVTM(5)14:I1 TM"XM1(I)(32)1:M2(I)(16)1:M3(I)((12)1)2: (M1(I)M2(I)32M3(I)512)159 88#ZM3(I)M3(I)512M1(I)M2(I)32: M3(I),13:I#Y_60:R,4:60:R,75:I1(3)2:60:R,72:I:I1(10)5:60:R,94:I:K0#idAR(12)2#fL1(32)1:L2(16)1:L3L1L232AR512: (L3)159 102#h 16382,159: L3,100#j 350:300: 114#m((65280)3)3170$*nA$:A$""112:(A$)48 (A$)52112$No(A$)47298,250,250,325,350$ypL1L1D1:L2L2D2:L4L1L232AR512:$r130:109:G10 500$s 135: MX0MXMX1$t MX0 114$u200:114$D1(0):D111D11:D152D11:D10%*D2(1):D211D21:D252D21::D20%0%TL10L131L20L215145:137%vL1L1D1:L2L2D2:D10:D20:% (L4)175 BT0 136% (L4)128 (L4)144 RO0 136%(L4)13100,5:YY((25)10):Y1400& L3,(16382): 16382,(L4): L4,100:L3L4&8 (16382)14 400&>&O L10 150&hAR3AR7AR11148&ARAR1:L131:L4L1L232AR512:155&L10:D10:L4L41& L131 155&AR6AR10AR14153'ARAR1:L10:L4L1L232AR512:15 :COPYRIGHT (C) CLOAD 1982::MAXIMUM-KEN WALTJEN[: 2311-LINCOLN BLVD.y: TRACY,CA. 95376C(64),PO(8,8) 12000 : DIRECTIONS(@480,"PLAY AGAINST THE COMPUTER??";: A$2 (A$,1)"Y" CP1 : CP0< 8050 :MAKE PLAY BOARD-dX104:Y92: 4,1Jf 5050 : MAKE X,Y->E,F^i (2)1 130wn 3,2 : Y AXIS PLAYx CP1 300 : 4140} 210 5,2 : X AXIS PLAY 4050 210 RTLT2080 1000:GAME OVER 7000 TFNU " 7070 /TFTFNU Aȅ TF0 1000 Ý 110 : NEXT MOVE mX3X:Y3Y: 3,1 NLT:X62:Y178 ٻ(62,176)(94,188),, BF ܁ 15000 : PRINT LT NRT:X156:Y178 (156,176)(190,188), ,BF! 15000 :PRINT RT!XX3:YY3!" 4,1!(!<,:COMPUTER PLAY![6(X,Y)(X20,Y12), ,B!g8 7070!y= NU0 4200!@ I1 8:VA(I)0:!J G1 8!T PO(E,G)0 VA(G)100 : 410!^GX0!h H1 8!m HE 380" r PO(H,G)GX GXPO(H,G)"| H") GX0 VA(G)80"YVA(G)VA(G)PO(E,G)PO(E,G) ((GX12)1)"a G"iL0"w K1 8" LVA(K) FK:LVA(K)" K"Y(F1)1628"RP1: 4190"C(65280)" D1 100:#' C125 C126 C253 C254 C 252 1000#F:::::"FINAL SCORES:"#d:" LEFT PLAYER";LT"#" ";:CP1"COMPUTER ";RT : "RIGHT PLAYER ";RT#::LTRT "CONGRATULATIONS LEFTY, YOU WIN !"$LTRT "YOU BETTER PLAY AGAIN, IT WAS A TIE"$DRTLT CP1 " THE COMPUTER WINS...TOO BAD LEFTY"$RTLT CP0 "THE PLAYER ON THE RIGHT WINS THE GAME THIS TIME !!"$::"READY FOR ANOTHER GAME";A$$ (A$,1)"Y" $$:$:%:SELECT RANDOM BOARD NUMBERS% :%:% I1 64%, C(I)I:%2%Q :ENTRY POINT FOR EACH 'C'%^*L(64)%4 150,1: C(L)0 L60 LL5: 2100 : LL59: 2100%>CC(L):C(L)0: 100,1%H 5050:PO(E,F)C%R% :% :& :JOYSTICKS IN & :& :&B DU(0):RM( (1)8):LM((2)8)&S BP(65280)& BP125 BP253 BP 252 LP1 : LP0&  BP126 BP254 BP 252 RP1 : RP0& &:&:&: MOVEMENT&:&: LEFT'һ(X,Y)(  M1 N' ML0 820'=*Z(K,M)Z(K,M)Z(K,L)Z(L,M)'E4 M'M> K'[H M1 N'mR ML0 870'\Z(L,M)Z(L,L)Z(L,M)'f M'p L'z:: "SOLUTION VECTOR X:":' I1 N'X(I)0' J1 N'X(I)X(I)Z(I,J)B(J)( J($ "X("((I),1)") = ";X(I)(, I(2ʇ(8Ԋ: WF3 GWF2:X16:Y14:COX32Y:LCCO:LYY:WRWR1:QS175H @482,"WRECKS :";WR;I Y61 5J Y62(Y62) 0,1 : 0,0K 50,4: 1,3L: WR5 SMA$:: @(L)D$(L)X$(L):= 36=> (FL$,CO1,1)(175) 70P?H((CO3)6)t@(FL$,H62,2)(159)(159)AX16:Y14:COX32Y:LCCO:LYYBFSFS1:SCSC100C FS5 @0,FL$;:FL$FI$:FS0:SCSC1000: L100 190 10: L,1:+D @497,"SCORE :";SC;: L200 250 10: L,1:1EHFWFWF1: WF3 GWF2:X16:Y14:COX32Y:LCCO:LYY:WRWR1:QS175H @482,"WRECKS :";WR;I Y61 5J Y62(Y62) 0,1 : 0,0K 50,4: 1,3L: WR5 SMA$:: @192,"YOU HAVE BEEN RUN OVER 5 TIMES YOUR SCORE IS :";SC:: "ANOTHER GAME (Y/N) ?";jNA$: A$"Y" }O A$"N" :P A$"" @308 : @308,"(YES OR NO)?": W1 30:Q 78R : OF PROGRAM)(A,B)(X,46),*(A,B)(X,19 $:MIKE LUSTIG - (201) 746-7613C:COPYRIGHT (C) CLOAD 1982P2:4000k A$(15),D$(15),X$(15)z3:"L255" @44,"CHICKEN"; @104,(128);"initialization";(128); @192," WHAT LEVEL OF PLAY (0-9) :" A$: A$"" 10/ A$"0" (A$)0 @219,"?";A$;"?": 10L M316(A$): @192:MM3 X16:Y14:LXX:LYY:COX32Y:LCCO:FS0:SC0:WF2:WR0 @193,"SMALL OR LARGE GATES (S/L)";A$: A$"" 15 A$"S" TY239: 19 A$"L" TY175: 19 @219,"?";A$;"?";: 15/ @219,"OK!";^ L1 32:FG$FG$(175):G$G$(143):n @192,FG$;  @256,"play: USE THE JOYSTICK TO PICK":"DIRECTION. PRESS BUTTON TO MOVE 'CHICKEN' WHICH LOOKS LIKE '";(159);"'.":: " P.S. DON'T GET RUN OVER",FG$(239)(FG$,30)(239)FL$(239): L1 5:FL$FL$(239)(239)(175)(TY)(239)(239)::FL$FL$(239):FI$FL$A$(140)(141)(142)(140)(G$,12)B$(143)(143112)(143112)(G$,13)*C$(131)(135)(139)(131)(G$,12)aP$(143)(14348)(14348)(143)(G$,12)A$(A$,M):B$(B$,M):C$(C$,M):P$(P$,M) 54SSSS1: @197,"WORKING :";SS;: L0 M1 @209," ON #";L; ! L0 X$(L)"" : X$(L)(X$,L)>" L11 1(32M):X$(L)X$(L)(X$,M): L1m#X$(L)(239)(X$(L),2,30)(239): L:$QS175:C00:D00: L1504 1535: L,239:% L91 2&C0(1C0)(C0M11):Q0M1C01' @0,FL$;A$(C0);A$(Q0);( CO224 50: QS(CO1024)$) @CO,(159);I* QS143 QS175 70: 45R+ L9f, CO32 62-D0(1D0)(D0M21):S0M2D01. @224,FG$;D$(S0);D$(D0);FG$;/ CO224 50:QS(1024CO): @CO,(159);: QS143 QS175 70: 45 0 371 W1 35::2"A": ((65280) 3)2 49 : X0(0)32:Y0(1)32:DX(X0)((X0)(Y0)):DY(Y0)((Y0)(X0))3XXDX:XX(X0 X31)DX4YYDY:YY(Y0 Y15)DY5COX32Y:6MM3:X$A$: 31:M1M7 L0 M1:A$(L)X$(L):L8X$P$: 31: L0 M1:A$(L)A$(L)X$(L):|9X$C$: 31: L0 M1:A$(L)A$(L)X$(L)::MM3:X$A$: 31: L0 M1:D$(L)X$(L)::M2M;X$B$: 31: L0 M1:D$(L)D$(L)X$(L): LL`: "SORRY, DETERMINANT = 0."~ "NO UNIQUE SOLUTION.": 980 @495,"PRESS ";A$: A$(13) 190ȇ @495," ";:C4 !܀ I0 63:(I,0,C):(I,1,C):(I,30,C):(I,31,C): I \ I2 29:(0,I,C):(1,I,C):(62,I,C):(63,I,C): I: b A(9,9),Z(9,9),X(9),B(9)  @100,"SOLUTION OF SIMULTANEOUS"  @139,"EQUATIONS"  @227,"MATRIX INVERSION TECHNIQUE"! " @293,"TO SOLVE [A][X] = [B]"!, 210: 180:!F6 @1,"AN EXAMPLE OF 3 EQUATIONS IS:"!l@ @66,"X(1) + X(2) + X(3) = 9"!J @97,"3X(1) + X(2) + 2X(3) = 16"!T @129,"2X(1) + 2X(2) + 3X(3) = 21"!^ @192,"NUMBER OF EQUATIONS, N = 3""h @256,"IN MATRIX FORM [A] [X] = [B],""4r @323,"1 1 1 X(1) 9""Y| @355,"3 1 2 * X(2) = 16""~ @387,"2 2 3 X(3) 21"" I20 25"(4,I,3):(5,I,3):(20,I,3):(21,I,3)"(28,I,4):(29,I,4):(38,I,4):(39,I,4)#(46,I,3):(47,I,3):(52,I,3):(53,I,3): I# 180#@‡ @480,"TO USE THIS PRORAM,"#V̇ "FIRST ENTER N"#և "THEN ENTER [A] VALUES": " ROW BY ROW."# "THEN ENTER [B] VALUES.":# "THE SOLUTION VECTOR [X]": " WILL BE PRINTED."# 180:$ @320,"PRESS NUMBER OF EQUATIONS OR"$> @352,"DEGREE OF THE MATRIX, N = ";$VA$: A$"" 530$x (A$)50 (A$)57 530$&N(A$): @378,N$0: "THE COEFFICIENTS OF X"$: "ARE THE 'A' MATRIX.":$D "INPUT THE VALUES ROW BY ROW:":%N "A(1,1),A(1,2),A(1,3),...,A(1,N)"%CX "A(2,1),A(2,2),A(2,3),...,A(2,N)"%bb " .": " .": " ."%l "A(N,1),A(N,2),A(N,3),...,A(N,N)"::%v I1 N: J1 N% "A("((I),1)","((J),1)") = ";: A(I,J)%Z(I,J)A(I,J): J%: I& INPUT MATRIX B&9:: "NOW INPUT ELEMENTS OF B":&G I1 N&m "B("((I),1)") = ";: B(I)&uƋ I&Ђ INVERT MATRIX A&ڀ L1 N& Z(L,L)0 70&Z(L,L)1Z(L,L)& K1 N& KL0 830& Z(K,L)Z(K,L)Z(L,L)'#$&')*MUSICCOVBAS"CHICKEN BAS EQUATIONBAS!>NAUGAINSBAS%%NAUGA BASMAXIMUM BASDISDEMO BAS(ICLOCK BAS+]: ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.:DECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES. :LINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.r:DISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM. 4: 4,1: LO$(7),X(30),Y(30)Q()(1,0:: 1,1 2LO$(0)"jZUVeUV"!U4LO$(1)"VfZfjfj""#6LO$(2)"UUUUVUUUVUUUZUUUV""8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV"#:LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj"$LO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj"%ALO$(7)" 44 44Z&5J&55 5J&9"%FVP0:AD0:VP(LO$(0))%KAD(VP2)256(VP3)%PVP(LO$(7))&UQ(VP2)256(VP3):Q&/XQ7,(25)25&]Z"S4A0C3BM0,191R255U149L255D148R255BM0,0"&j_Q(AD)&J11000::4900&ށ40: START A NEW ONE& OUR DISCLAIMER - HAS TO BE IN ALL COVERS.&&@38,"CHROMASETTE MAGAZINE"&'" ISSUE #14 AUGUST 1982"'G:" ALL PROGRAMS CONTAINED HEREIN"'h" COPYRIGHT (C) CLOAD"'$" MAGAZINE P.O. BOX 1448"'." SANTA BARBARA, CA 93102."'8" REPRODUCTION BY ANY MEANS"'B" PROHIBITED. CLOAD MAGAZINE"(L" ASSUMES NO RESPONSIBILITY FOR"(DV" ERRORS, OMISSIONS OR DAMAGES"(i`" CAUSED BY THE USE OF THESE"(~j11)"PROGRAMS."(~ M1 5000: M( 10($T(6)(.Z(2)(8V(2)(:LINDA,MARY AND NORMAN NIELSEN):MORETON BAY LABORATORY)&:CASTILLO STREET,SANTA BARBARA)5 N1 10)IQ(3)222)XA(51)5)jɅ T2 A128)|B46(30)5)Ӆ T3 B121)CA)DB)"T3") 4,1: 1,1: 1,3)X0) I0 255 Q)(A,B)(X,46),*(A,B)(X,192),* (XXQ*2 I* FOR INSTRUCTIONS";A$V:" ABOUT NAUGA: DRACONUS DRACONUS (NAUGUS)"#:" HABITAT - FOREST 3 IN THE REALM OF NAUGA" c(:" TRAITS - IMMORTAL (SLOWED BY ARROWS OR SWORD BUT NOT KILLED!) - BREATHES FIRE - CARNIVOROUS - POSSESSES MAGIC," *" ABILITY TO TRANSPORT ITSELF FROM ONE AREA TO ANOTHER INSTANTLY" ," TO CONTINUE";A .!L2" IN FOREST 1: MONSTERS - WILL CHASE AND BITE ONLY"!7:" IN FOREST 2: MONSTERS - WILL CHASE, BITE AND SHOOT ARROWS"!<:" IN FOREST 3: NAUGA - WILL KILL YOU!""=" (HE IS EXTREMELY FAST)""n>:" NO MONSTER,INCLUDING NAUGA, CAN MOVE THROUGH TREES OR WATER.""@" TO CONTINUE";A"B#WD" MONSTERS WILL FIRE PROJECTILES THROUGH TREES, YOU CANNOT! IF YOU ARE IN A TREE OR IN WATER THE MONSTERS CAN'T SEE YOU THEREFORE THEY WILL NOT FIRE AND WILL MOVE RANDOMLY."#F" YOU MAY ENTER TREES ONLY IF YOU HAVE THE ROPE. YOU MAY ENTER WATER AREA ONLY IF YOU HAVE THE BOAT."$H" EVERYTHING YOU NEED CAN BE FOUND IN THE FOREST."$.J" TO CONTINUE";A$4L$N" MAGIC IS NOT AN EXACT SCIENCE. UPON USE OF MAGIC ONE OF 3 THINGS MAY HAPPEN; A) FREEZE MONSTERS B) TRANSPORT YOU TO ANOTHER SECTION OF THE FOREST"%P" C) MOVE YOU TO ANOTHER SPOT IN THE SAME SECTION (THIS MAY PUT YOU IN THE WATER OR A TREE, HOPE YOU HAVE THE BOAT AND ROPE!)"&R" TO ENTER FOREST 2 OR ESCAPE FOREST 3 YOU MUST OBTAIN THE KEY, GO TO THE DOOR AND PRESS THE RED BUTTON."&1T" TO CONTINUE";A&7U&V@384,"THINGS IN FOREST; $ ......YOU S ......SWORD"&X 1505,40:@482," ......BOW"'Z" ^ ......ARROW R ......ROPE U ......BOAT H ......HEALING M ......MAGIC K ......KEY d ......DOOR" (([" s ......SCEPTOR (FOREST 3) m ......MONSTER n ......NAUGA TO CONTINUE";:A(e\:" FOREST AREAS..ONE AREA ON SCREEN AT A TIME.")D]" --------------------- : : : : : : 1 : 2 : 3 : 4 : : : : : : --------------------- : : : : : : 5 : 6 : 7 : 8 :"*$^" : : : : : --------------------- : : : : : : 9 : 10 : 11 : 12 : : : : : : --------------------- TO CONTINUE";:A*:_:" OPTIONS"+`:" MOVE VIA RIGHT JOYSTICK RED BUTTON = PICK UP ARTICLES & USE DOOR 1 = FIGHT (SWORD) 2 = FIGHT (BOW & ARROW)"+pb" 3 = MAGIC (WHICH ONE ??) 4 = STATUS REPORT 0 = HEALING"+d:" TO CONTINUE";A+h:" ABOUT MOVEMENT; YOU ARE INCREMENTED TOWARD YOUR CHOICE OF DIRECTION.",j:" TO PICK ARTICLES UP YOU MUST BE DIRECTLY ON TOP OF THEM. ARTICLES IN WATER ARE ON SMALL ISLANDS, THOSE IN TREES ARE IN PLAIN VIEW THEREFORE MONSTERS CAN SEE YOU !!! ",l::" TO CONTINUE";A,m-Cȇ:" YOU ARE A LONE ADVENTURER NOW ENTERING THE KINGDOM OF VOLMAR. YOU FIND A NOTE READING"-҇" 'TO ANY WHO HEAR...I KING THOMAS II OFFER 1/4 OF MY KINGDOM FOR THE RETURN OF MY MAGIC GOLDEN SCEPTOR.'".kׇ:" YOU GO TO THE PALACE TO SPEAK WITH THE KING. HE TELLS YOU THE SCEPTOR IS IN FOREST 3 IN 'THE REALM OF NAUGA'. YOU MAY TAKE NO WEAPONS!".q؇.܉"DO YOU ACCEPT THIS MISSION";A$.ݞ.ޅ A$"Y" A$"YES" 300/-" YOU HAVE BEEN PUT IN THE DUNGON TO THINK ABOUT IT YOU WILL BE BEHEADED IN 1 WEEK":220/," THE KING GIVES YOU A BOX CONTAINING TWO MAGIC SPELLS (HE IS NOT SURE WHAT SPELLS). HE WISHES YOU LUCK AND THE ROYAL WIZARD TRANSPORTS YOU TO FOREST 1."01:"WHEN YOU'RE READY TO PLAY, TYPE CLOAD"06::GO2GGEAEL4GL32O1CEAO2CEAO3CEAAECO2AECO1AO2ECECEGEGL4E"0l"L32O1CEACEAO2CEACAFO3CAFO4CFAAFCO3BGDO2BGDO1GAEGAO2CEGECO1GECEGO2EGEGEGL2C"0v 57800{"P1L8O3CO2AFGO3CO2AFGL4CCCC"0 100000EB481  IF500:L$(18):P32:X():EX0::*DISPLAY* BY GEOFF WELLS*21-12 EAST AVE N*HAMILTON*ONTARIO*CANADA*L8L 5H2*COPYRIGHT (C) CLOAD 1982dX116:L$(X):X:I$:50000:1002PD1(I$)3:L((I$,D1,2)):S((I$,D,1))62:L17L$(17)L$(L):LL(L$(L)):P(L32)480:"ERROR-@ COMMAND":QS 50034,50003,50004,50005,50006,50007,50008,50009,50010,50011,50012,50013,50014,50015,50016,50017,50018,50019,50020,50021,50022,50023,50024,50025,50026,50027,50028,50029 RL17L$(L)L$(17):D: :D: )SPP32L:P480PP512: : hTX1L:@511,"":(31,(C));:1535,C:1503,(1472):X: UY1LL:(L$(L),Y,1)((8)16127):50019:Y: VL$(L)(LL,(C)):50019: WX1LL5:X:!*XL$(17)(C):X1LL:L$(17)L$(17)(L$(L),X,1)(C):X:L$(L)L$(17):50019:!TYX1LL:(L$(L),X,1)F$:50019:X:!cZF$(L):!~[L 50050,50051,50052!\@P(L32),"";:L$(17):!](L):!^C12816(L1)B:!_50032:X132:@PL32,(L$(0),X);:50035:X:".`50032:X116:L$(L)(L$(0),17X,X2):50019:X:"aL$(0)L$(L):X1LL:(L$(L),X,1)"A"(L$(L),X,1)"Z"X:50033 :(L$(0),X,1)(((L$(L),X,1))32):X:50033"bX1LL:L$(L)(L$(17),X):@PL32((32LL)2),L$(L);:50035:X:#!c@PL32(32(L$(L)))2,L$(L);:50035:#'d#ce50032:X132:@PL3232X,(L$(0),X);:50035:X:#f50032:X116:@PL32,(L$(0),17X,X);:@PL3232X,(L$(0),17,X);:50035:X:$gY0:PP0:S1:@P(L32),"";:X1LL:YY1:PP3250030:(L$(L),X,1);:PPPP1:X:$-hCCB:BL:CCB:$iPPL22:X1LL:@PP,(L$(L),X,1);:50035:PPPP32:PP512PPPP510:X: :X:$jL 50100,50101,50102,50103,50104%k50032:L$(0)L$(0)((1535)):X3211:@PL32,(L$(0),X);:50035:X:%Xl50032:L$(0)((1535))L$(0):X3211:@PL3232X,(L$(0),X);:50035:X:%m50032:L$(0)(L$(0),2,15)(2,((1535)))(L$(0),17,15):X116:@PL32,(L$(0),X,17X);:@PL3215X,(L$(0),17,17X);:50035:X:& n(L$(L),X,1)" "PP0:X&hoXX1:YY1:SS1:(L$(L),X,1)" "@P(L32)Y,(S,C);:YYS:PP0:S1:X :50031&pL$(0)((32LL)2,C)L$(L)((32LL)2,C):&qX150:L$(L)L$(0):50019:L$(L)L$(17):50019:X:&rEXL5:&sLX0EX:LX:'Â"L6;O3;D;E;C;O2;C;L4;G":' Ã100,2:'9ÄX12552:X,1:X:'TôX10241535:X,C:X:'rõX153510241:X,C:X:'öY1535:X10241279:X,C:Y,C:YY1:X:'÷Y1280:X127910241:X,C:Y,C:YY1:X:'øX132:Y1023150432:XY,C:Y,X:(`PUT LIFE,THE INFORMATION TO BE DISPLAYED IS READ INTO ARRAY L$. ONE ELEMENT FOR EACH LINE. THE INSTRUCTIONS ON HOW TO DISPLAY THE LINES ARE IN I$.EACH INSTRUCTION IS A LETTER +2 NUMBERS EG-A09. A TYPICAL INSTRUCTION IS J03K08U15P07P09)aSAVES TIME,THERE ARE 28 COMMANDS(?-Z),SOMETIMES THE NUMBERS ARE NOT LINE NUMBERS SUCH AS *K* WHICH IS THE KOLOR(00-08) OR *U* THE PATTERN (U00-U15),INTO,DISPLAY,P IS FOR PRINT,AND MEMORY,O MEANS ONE AT A TIME*ZbDON'T FORGET TWO NUMBERS,C CLEARS WITH YOUR COLOR CHOICE ,THESE ARE THE COMMANDS IN ORDER,AFTER EACH COMMAND LETTER,THIS IS HOW IT WORKS,TIRED TITLES*cK06U09A16P07N07B07O07D03C07U15K08S01S06S16D10A16M03M09D08C03C09P15D17K03A14T02D30W02M04R08L10S12D20U00W03O11O14D10Z11Z14T05D15M13D20J00+d@ MOVES THE PRINT LINE,@ ADDS THE NUMBER OF LINES YOU SPECIFY TO THE LINE NUMBER SO YOU CAN REPEAT IT IN DIFFERENT POSITIONS. TO RETURN TO NORMAL ADD 16-YOUR FIRST NUMBER.,B-BLOCKS OF RANDOM COLOR,cLEAR WITH K/COLOR U/PATTERN,eXPAND,F FOR FILL,eHEAR WITH H(01-99). ADD YOUR OWN ROUTINES TO LINE 50011.,J CLEARS THE SCREEN(00-08),,WITH *G*+ASCII,,,K IS THE KLEAR KOLOR(01-08),D WILL DELAY (01-99),A-ALL MOVES UP,INPUT *I*(01-16)-fP01@01P01@01P01@01T02@13D20P15U15K07A05D15A05D15A08O03D10B03O03D10C03P04U09D15C04K03D10P04D10C04D10P04D10U15K03C04D10J03K03S14D30Z14P05D10E05D10E05D15Z05L06R10G42D15F06G36D15F06G61D15F06K04W04T07H01D10H02D10H03W05P16I07J00R07D10X07P08P13.g ,*L* IS LEFT TO CENTRE,,*M* MEANS MIDDLE SPREAD ,NOTICE THE FLASHING *N*,*O* PRINTS ONE AT A TIME,*P* PRINTS IN THE CENTRE,*Q* IS FOR QUIT,*R* IS RIGHT TO CENTRE,*S* FOR SIDES TO CENTRE ,IT IS THE LAST COMMAND AND DOES NOT NEED A NUMBER,,,,,.hD20W05U10L02M04D30J00N05U00C05O06D15B06O06D15J02P07D30Z07S08T11D30W02R09@03S10D30Z10@13X09U01K04A16D10U00/i ,,,,,TEXT JUSTIFICATION IS ACCOMPLISHED WITH THE *T* COMMAND. THE TYPE AND COLOR OF THE SPACES AT THE END OF THE LINE ARE SET WITH THE *U* AND *K* COMMANDS. THE NUMBERS FOLLOWING THE *U* COMMAND ARE GRAPHIC BLOCK CODES 00-15.0jW WILL WIPE THE SCREEN IN 5 DIFFERENT WAYS. YOU MAY ADD YOUR OWN ROUTINES AT LINE 50026.,****vERTICAL****,X-CENTRE TO LEFT,Y-CENTRE TO RIGHT,Z-CENTRE TO SIDES,,,,,1Ek T06D40A05U01A05U02K01A05U02K02A05U03K03A05U04K04A05U05K05A05U06K06A05U07K07A05U08K08A05U15K03A16V08D30K07J07T07D30K06W01K04U09W02K07W03U10K01W04U15K07W05J07P09P10P11D30X09Y10Z11U151l ,THE,,?,,IS USED,,TO CHANGE,,COMMAND,,EXECUTION,,SPEED,,1mJO8P02P04P06P08P10P12P14?20X02?15Y06?10Z08?05B10?10G63F12?20C14O14?00P02P06P08P10P12D10J002n********************************,VARIABLES USED BY,******LIFRPLEL,******$$$$PLXX,THIS PROGRAM,TO USE THIS PROGRAM,BYE,******BCDL,DELETE LINES 60000-60015,,,******PSXY,THE DRIVER IS AT 100,THAT'S ALL THERE IS,,3CoV03V04V08V12C01@01C01@01C01@01C01@01C01@01C01@11P02P05D50U00J03L06L09D20M13D15B06B09B13J04L14Y14U15K04P07@02E07@02E07@02E07D40J01QR CAN MOVE."3Z/:3a2:3h2:3|2: DRAW BORDERS32:32:32 4,133(28,0)(28,191),33(224,0)(224,191),33(0,0),4,433"(255,0),4,433, 2,1436(30,156)(3  COPYRIGHT (C) CLOAD 19825 COCO-COOCOO byH PHIL BEISTEL^ 1439 ARNOLD ST.r PGH,PA. 15220 COO-COOc :" THE 'CO-CO' COO-COO"::" A REAL-TIME 24 HOUR CLOCK THAT":" RUNS ALONG WITH YOUR BASIC AND EVEN SOME MACHINE LANGUAGE PROGRAMS. THE ONLY THING THAT WILL STOP THE CLOCK IS THE I/O PROCESS. ONCE SET THE CLOCK"  " WILL KEEP RUNNING TILL THE MACHINE IS POWERED OFF. WHEN YOU PRESS ANY KEY THE PROGRAM WILL BE MOVED TO THE CORRECT LOCATION. THIS TAKES A FEW SECONDS." E @480,"(PRESS ANY KEY TO MOVE CLOCK)";:I$ \I$: I$"" 14 @480," RELOCATING CLOCK. STANDBY!! "; Q(39)256(40) (200,Q356 -Q(39)256(40) 2E(27)256(28)