0,0/ 4 0,0,1,1,1,1,1,1,1,1,0,0/>> 0,0,1,1,2,1,1,2,1,1,0,0/\H 0,0,1,2,1,2,2,1,2,1,0,0/zR 0,0,1,1,1,1,1,1,1,1,0,0/\ 0,0,1,1,2,1,1,2,1,1,0,0/f 0,0,1,2,1,2,2,1,2,1,0,0/p 0,0,1,1,1,1,1,1,1,1,0,0/z 0,0,0,0,0,0,0,0,0,0,0,00 0,0,0,0,0,0,0,0,0,0,0,00#L1(Y3)204506L2(X3)20250V CB(X,Y)2 C24 : C2C10h(L1,L2),C2,00n0 GET NEW SQUARES0T100K1N12:K2N221ޅ CB(K12,K21)1 SL(T1,1)LO(K14,K23,1):SL(T1,2)LO(K14,K23,2):SX(T1,1)K14:SX(T1,2)K23:T1T111} CB(K12,K21)1 SL(T1,1)LO(K14,K21,1):SL(T1,2)LO(K14,K21,2):SX(T1,1)K14:SX(T1,2)K21:T1T111 CB(K11,K22)1 SL(T1,1)LO(K13,K2,1):SL(T1,2)LO(K13,K2,2):SX(T1,1)K13:SX(T1,2)K2:T1T112M CB(K11,K22)1 SL(T1,1)LO(K11,K2,1):SL(T1,2)LO(K11,K2,2):SX(T1,1)K11:SX(T1,2)K2:T1T112 CB(K12,K21)1 SL(T1,1)LO(K1,K21,1):SL(T1,2)LO(K1,K21,2):SX(T1,1)K1:SX(T1,2)K21:T1T113 CB(K12,K21)1 SL(T1,1)LO(K1,K23,1):SL(T1,2)LO(K1,K23,2):SX(T1,1)K1:SX(T1,2)K23:T1T113 CB(K11,K22)1 SL(T1,1)LO(K11,K24,1):SL(T1,2)LO(K11,K24,2):SX(T1,1)K11:SX(T1,2)K24:T1T113$ CB(K11,K22)1 SL(T1,1)LO(K13,K24,1):SL(T1,2)LO(K13,K24,2):SX(T1,1)K13:SX(T1,2)K24:T1T114 . MD0 113048 J0 T114OB(SL(J,1),SL(J,2))(SL(J,1)20,SL(J,2)20),3J4~L (SL(J,1)2,SL(J,2)2)3 C31 : C304V(SL(J,1)4,SL(J,2)4)(SL(J,1)12,SL(J,2)12),J114` J4j4t MOVE KNIGHT4~ MD0 4 J0 T115)(SL(J,1),SL(J,2))(SL(J,1)20,SL(J,2)20),3J51 J575x(LO(N1,N2,1),LO(N1,N2,2))(LO(N1,N2,1)20,LO(N1,N2,2)20),25(LO(N1,N2,1)2,LO(N1,N2,2)2),2,05(LO(N1,N2,1),LO(N1,N2,2))(LO(N1,N2,1)20,LO(N1,N2,2)20),26!(LO(N1,N2,1),LO(N1,N2,2))(LO(N1,N2,1)18,LO(N1,N2,2)20),16=؅ DI1 YY1 : YY16_ DI1 Y9 DI2:Y8:XX16 DI2 Y0 DI1:Y1:XX16 (LO(X,Y,1)4,LO(X,Y,2)4)4 12406 X0 13106 (50)30,166 MD2 1906( X1 472 X,(64)17 < X7FMD07)P "" 13107DZ 1,0:(30,16),"MOVES"7Ud(30,18),MO$7yn 0,1:(26,16),"A) RECORD DEMO"7x(26,17),"B) MAIN MENU"7(26,18),"C) QUIT"7I$: I$"" 14207 I$"A" MD1: 14707 I$"B" MD0: 14708 I$"C" 14808 14208( 20087Ȓ &HFFD8,08=8C܊8 BFCAAECDBCEAEDBCCAAFBCCAABDADCACFFCADACFAECBEFCCAEBCDCBCBCBCFBAFDADGDABBFDBAACGADEACCEBBAABCDAAACGABACAACAACBDABGCCGCCBABEAADBCBCBAABBAEABBACCDCBACBACCDBBDI$"B" MD0: 14708&$:COPYRIGHT 1990 FALSOFT, INC&Ed:--------------------------&an:LLR: LAST LINE RECALL&hx:&:(C) 1990, RAINBOW&:--------------------------& 200,(&H27)256(&H28)375&SA(&H27)256&SASA(&H28)1' ISA SA119' ȍ B$'Ғ I,("&H"B$)''܋ I'6 SA10: 'O "LLR INSTALLED": 'm 12,B7,FF,DF,8D,0F,6E,9D' 00,6B,9E,72,AF,8D,00,65' 30,8C,ED,9F,72,30,8D,00' 13,BF,A3,AA,30,8D,00,38'" BF,A3,D5,86,7E,B7,A3,A9(, B7,A3,D4,39,81,08,26,03(!6 7E,A3,AD,81,04,27,03,7E(?@ A3,B4,C1,01,27,03,7E,A3(]J 9A,6D,8D,00,32,26,F7,33({T 8D,00,2D,A6,C0,4D,27,EE(^ A7,80,5C,BD,A2,82,20,F3(h 4F,A7,8D,00,1A,8E,02,DD(r 33,8D,00,14,A6,80,4D,27(| 04,A7,C0,20,F7,A7,C4,8E) 02,DC,7E,A3,D7,00,00,011,04,27,03,7E(?@ A3,B4,C1,01,27,03,7E,A3(]J 9A,6D,8D,00,32,26,F7,33({T 8D,00,2D,A6,C0,4D,27,EE(^ A7,80,5C,BD,A2,82,20,F3(h 4F,A7,8D,00,1A,8E,02,DD(r 33,8D,00,14,A6,80,4D,27(| 04,A7,C0,20,F7,A7,C4,8E) 02,DC&$:COPYRIGHT 1990 FALSOFT, INC.&H:'''''''''''''''''''''''''''''&l: COCO IQ '&: BY '&: RICK COOPER '&: COPYRIGHT (C) 1989 '&:''''''''''''''''''''''''''''''& CB(12,12),LO(8,8,2),SL(8,2),SX(8,2)'6 1480'F 1480'U( &HFFD9,0'c2BS&H6400'ln ERRMSG&Kx ------&a &H8045,(&H27)&w &H8046,(&H28)& 200,&H4000&P1&H4000&P2&H4050& &HFFA2,&H37& EM1 40&ȍ EM$&L(EM$)&ܒ P1,P2256' P11,P2 255'P1P12' I1 L'9 P2I1,((EM$,I,1))'A I'OP2P2L1'\" P21,0'e, EM'w6 &HFFA2,&H3A'@ NEXT WITHOUT FOR'J BAD SYNTAX'T RETURN WITHOUT GOSUB'^ NEED MORE DATA'h BAD FUNCTION PARAMETER'r OVERFLOW(| OUT OF MEMORY($ UNDEFINED LINE(> BAD ARRAY SUBSCRIPT(Z ARRAY WAS DIMENSIONED(q DIVISION BY ZERO( USE ONLY IN PROGRAM( TYPES DO NOT MATCH(† OUT OF STRING SPACE(̆ STRING TOO LONG(ֆ COMPLEX STRING FORMULA) CANNOT CONTINUE) BAD FILE DATA)3 FILE ALREADY OPEN)Q BAD DEVICE/DRIVE NUMBER)j INPUT/OUTPUT ERROR)~ BAD FILE MODE) FILE NOT OPEN)& INPUT PAST END OF FILE)0 DIRECT STATEMENT): UNDEFINED FUNCTION)D FILE NOT FOUND* N BAD RECORD NUMBER*X DISK FULL*6b OUT OF BUFFER SPACE*Ql DISK WRITE PROTECTED*ev BAD FILE NAME*~ BAD FILE STRUCTURE* FILE ALREADY EXISTS* FIELD OVERFLOW* SET TO NONFIELDED STR* VERIFY DETECTS FLAW* WRITE/INPUT PAST EOR+ HIRES GRAPHICS ERROR+1Ɔ HIRES PRINT ERROR+XЕ 200,(&H8045)256(&H8046)62+lSA(&H27)256+SASA(&H28)1+ I1 40+ EM$+ I+ ISA SA38+ B$: I,("&H"B$)+ I+* 1A,50,86,37,B7,FF,A2,8E,4 40,00,3A,AE,84,CE,00,00,1> A6,80,A7,C0,4D,26,F9,86,OH 3A,B7,FF,A2,1C,AF,8E,00,jR 00,BD,B9,9C,7E,AC,6B,\ SA14,(SA39)256,f SA15,(SA39) 255,p SA31,(SA38)256,z SA32,(SA38) 255, &HAC60,&H7E, &HAC61,SA256-  &HAC62,SA 255- &HE48C,&H7E-. &HE48D,&HAC-@ &HE48E,&H57-R &HE4A3,&H7E-dʒ &HE4A4,&HAC-vԒ &HE4A5,&H57-ޞ: : f SA15,(SA39) 255,p SA31,(SA38)256,z SA32,(SA38) 255, &HAC60,&H7E, &HAC61,SA256-  &HACD30BR32R4BR4R4BR4R4BR4R4BU32R30D8M-12,+24L12M+12,-24L20U8"8"BR46BD14R30D8M-12,+22L12M+12,-22L20U8BD38BL8L10D4R10D6NL10BR6NR10U6NR10U4R10BR6D6F4E4U6BR6NR10D4NR10D6R10BR6U10F10U10"9M"BR16BD18R30D8L22D8R18F4D8G4L24H2NU28BE4BR4R14U4L14D4BD6BR16R4BR4R4BR4R4BR4R4BR6BU32R26F4D8G4F4D8G4L26H4U8E4H4U8E4BD6BR4R18D6L18U6BD14R18D6L18U6"9†"BR50BD14R26F4D6G4F4D8G4L26H4U8E4H4U6E4BD4BR4R18D6L18U6BD14R18D6L18U6BD20BL24NR10D4NR10D6R10BR6U10BR6NR10D10R10U6NL6BR6NU4ND6R10D6U10BR6R6ND10R6":bdž"BR14BD18R30D8M-12,+24L12M+12,-24L20U8BD32BR32NL4BR4R4BR4R4BR4R4BR6BU32R26F4D24G4L26H4U2R26U10L22H4U8E2BD4BR6R18D4L18U4":̆"BR50BD14R26F4D22G4L26H4U2R26U8L22H4U8E2BD4BR6R18D4L18U4BD32BL14ND10F10U10BR6D10BR6U10F10U10BR6NR10D4NR10D6R10";xц"BR12BD18R26F4D8G4F4D8G4L26H4U8E4H4U8E4BD6BR4R18D6L18U6BD14R18D6L18NU6BD6BR28R4BR4R4BR6R16U6L4U26L8G8D2R6D16L4D6BR30H4U24E4R20F4D24G4L20BU6BR4R12U20L12D20";ֆ"BR36BD44R16U6L4U26L8G8D2R6D16L4D6BR30H4U24E4R20F4D24G4L20BU6BR4R12U20L12D20BD14BL30R6ND10R6BR6NR10D4NR10D6R10BR6U10F10U10"<ۆ"BR14BD18R26F4D24G4L26H4U2R26U10L22H4U8E2BD4BR6R18D4L18U4BD26BR28R4BR4R4BR6R16U6L4U26L8G8D2R6D16L4D6BR26R16U6L4U26L8G8D2R6D16L4D6"<0:I110:TEM$P$(I,1):P$(I,1)P$(I,2):P$(I,2)TEM$:<健100= :@101,"YOU TRIED"NCNW"TIMES &":@165,"ANSWERED"NC"CORRECTLY"=,@229,"WHILE DOING"NW"WRONG."=FNQNCNW: NQ0 NQ1=[MS(NCNQ100)={@293,"YOUR SCORE IS"MS"%."=@357,"ANOTHER TRY (Y/N/C) ?";=X$:X$"Y" = X$"N":=X$"C"265=520NW"TIMES &":@165,"ANSWERED"NCx&$:COPYRIGHT 1990 FALSOFT, INC.&I:DICE ROUTINE BY BILL BERNICO '0,0:2:4:8,4:DT$"RDLU2R2D3L3U3F":DI$"BL4BUR22D22L22U22E5R22NG5D22NG5U22L22G5BF3":B(6):"BM112,94"DI$:ZB:4:C(6):"BM152,94"DI$:ZC:4:TBC:(11,8),"YOU ROLLED"(T):(13,16),"HIT A KEY'(44539: 2'@ Z1"BR7BD8"DT$'g Z2"BR2BD2"DT$"BR10BD12"DT$' Z3"BR2BD2"DT$"BR5BD6"DT$"BR5BD6"DT$' Z4"BR2BD2"DT$"BR10BD12"DT$"BU12"DT$"BD12BL10"DT$(( Z5"BR2BD2"DT$"BR10BD12"DT$"BU12"DT$"BD12BL10"DT$"BU6BR5"DT$(w Z6"BR2BD2"DT$"BD6"DT$"BD6"DT$"BR10"DT$"BU6"DT$"BU6"DT$::"DT$"BR5BD6"DT$"BR5BD6"DT$' Z4"BR2BD2"DT$"BR10BD12"DT$"BU12"DT$"BD12BL10"DT$(( Z5"BR2BD2"DT$"BR10BD12"D&"***************************&C* IN-BETWEEN VOL.2 *&d* COPYRIGHT (C) 1990 *&* BY FRED B. SCERBO *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************& 3000'+0:(32,188);(32,204);:I1160:A:(A144);:'G(32,195);(32,179);'93,88,93,80,93,88,16,45,44,44,34,45,44,45,37,44,45,44,45,37,40,,45,36,46,45,36,46,45,37,32,37'85,,85,89,85,,,37,,,42,37,,33,36,,37,,36,37,,,37,,42,33,,42,33,37,41,37(J#85,,85,80,93,,28,37,44,44,34,37,44,45,,,37,,,37,,34,37,,46,45,,46,45,37,32,45((85,,85,,85,,,37,,,42,37,,32,,,37,,,37,,42,37,,42,32,,42,,37,,37(-87,82,87,82,87,82,,39,35,34,40,39,35,39,,,39,34,,37,35,43,39,33,43,39,33,43,39,37,,37),2@358," AN INTRODUCTION TO ";:@390," SEQUENCE IN NUMBERS ";)n7@422," BY FRED B.SCERBO ";:@454," COPYRIGHT (C) 1990 ";)>>"*Z:(32,"=");+8_X$:X():X$"A"350:X$"B"100:X$"C"480:95+Gd0:0,1:1+`i(0,0)(254,170),,B+yn(6,4)(122,82),,BF+s(128,4)(248,82),,B+x(6,86)(122,164),,B+}(128,86)(248,164),,B,"BM26,188C0NU10R10NU10BR6R10U6L10U4R10BR6NR10D4NR10D6R10BR12BU6NE4D2F4BR6R10U6L10U4R10BR6ND10R10D4NL10BR6NR10D6U10R10D10BR6NR10U10R10BR6NR10D4NR10D6R10BR10U10NL4R10D4NL10D6NL14BR6U10R10D4NL10D6BR6U10R10D4L10R4F6BR6E4U2H4",130,6,246,80,6,86,120,162,130,86,246,162,(2,2),0,0:13,0,4:1-(0,0)(254,170),,BF--(8,6)(120,80),,BF-@42:0,1:1,1-"S4BM2,8C1","S4BM130,8C0","S4BM2,90C0","S4BM130,90C0","S4BM2,48C0","S4BM130,48C0"-I110-A(I)(10):N(A(I))1175-N(A(I))1:I:Y110:1,0-I24. B(I)(3)1:N(B(I))0190.,N(B(I))0:I:I14:N(I)1:.GB(10):BA((Y))200.hC(10):CB CA((Y))205. A$(1):P$(A(Y),1). A$(B(2)):P$(B,2). A$(B(3)):P$(C,2). A$(B(4)):P$(A(Y),2).1,0.Z0.0,4/ A$(1)"C0":P$(A(Y),1)/ A$(B(2))"C1":P$(B,2)/< A$(B(3))"C1":P$(C,2)/\ A$(B(4))"C1":P$(A(Y),2)/j 0,1:1,1/(8,6)(120,80),,B/X$:X$" "285:X$"@"490/1,0:(8,6)(120,80),,B:270/ZZ1:Z4Z10"1,0:(C(Z),D(Z))(E(Z),F(Z)),,B04'X$:X$" "285:X$(13)305:X$"@"4900`,1,0:(C(Z),D(Z))(E(Z),F(Z)),,B:2900r1Z1B(4)31506NWNW1:K15:0,4:1,1:10,3:0,1:1,1:1,3:K:2901;NCNC1:0,4:1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,01)@ A$(5):P$(A(Y),1)1AE A$(6):P$(A(Y),2)1JJ1,11dOX$:X$(13)3351mT0,11Y31:1,1:24:Y:4901^0,2:1:1,1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,02cI110: A$(5):P$(I,1)2h A$(6):P$(I,2)26mX$:X$(13)3652rr1,0:(8,46)(122,120),,BF:(132,46)(246,120),,BF:I2xw2|"BR56BD44R16U6L4U26L8G8D2R6D16L4D6BD10BL10D10R10U10NL10BR6ND10F10NU10BR6NR6U6NR6U4R6"3S"BR22BD50H4U24E4R20F4D24G4NL20BH6U18L8D18R8BG6BR10R4BR4R4BR4R4BR4R4BR6R28U12L6D4L14U4E4R10E4U8H4L18G4D4R6E2R8F2D2L10G8D12"3"BR48BD44R28U12L6D4L14U4E4R10E4U8H4L18G4D4R6E2R8F2D2L10G8D12BD12BL6NL6NR6D10BR12NU10R6NU10R6U10BR6R10D10L10U10"4F"BR22BD50R16U6L4U26L8G8D2R6D16L4D6BR24R4BR4R4BR4R4BR4R4BR26BU16E4U8H4L18G4D4R6E2R8F2D4L10G4F4R10D4G2L8H2L6D4F4R18E4U8H2"4"BR70BD28E4U8H4L18G4D4R6E2R8F2D4L10G4F4R10D4G2L8H2L6D4F4R18E4U8H2BL48BD24R6ND10R6BR6D10U6R10U4D10BR6U10R10D4L10R4F6BR6NR10U6NR10U4R10BR6NR10D4NR10D6R10"5i"BR18BD50R28U12L6D4L14U4E4R10E4U8H4L18G4D4R6E2R8F2D2L10G8D14BR34R4BR4R4BR4R4BR4R4BR16BU18NR8U14L8D14L10U14L8D22R18D10R8U10R8U8"5"BR74BD28NR8U14L8D14L10U14L8D22R18D8R8U8R8U8BD24BL48NR10D4NR10D6BR16U10R10D10NL10BR6NU10R10NU10BR6U10R10D4L10R4F6"6n"BR38BD34E4U8H4L18G4D4R6E2R8F2D4L10G4F4R10D4G2L8H2L6D4F4R18E4U8H2BD14BR4R4BR4R4BR4R4BR4R4BR4BU32R30D6L22D8R18F4D10G4L24H2U4R20U6L20U18"6"BR46BD14R30D8L22D6R18F4D8G4L24H2U4R20U4L20U18BD36BL12NR10D4NR10D6BR16NU10BR12H4U6BR8D6G4BR12NR10U6NR10U4R10"7b"BR38BD32NR8U14L8D14L10U14L8D22R18D10R8U10R8NU8BD10BL4R4BR4R4BR4R4BR4R4BR6BU32R30D8L22D8R18F4D8G4L24H2NU28BE4BR4R14U4L14D4"7"BR46BD14R30D8L22D6R18F4D8G4L24H2NU26BE4BR4R14U4L14D4BD14BL12NR10D4R10D6NL10BR8NU10BR8E6NH4NE4F6"89"BR16BD18R30D6L22D8R18F4D10G4L24H2U4R20U6L20U18B00100 ORG &4000 00110 SM ORCC #80 00120 LDD #$302F 00130 STD $FFA4 00140 BSR SBLOCK 00150 OUT LDD #$3C3D 00160 STD $FFA4 00170 RTS 00180 SS ORCC #80 00190 LDD #$302B 00200 STD $FFA4 00210 BSR SBLOCK 00220 LDD #$312C 00230 STD $FFA4 00240 BSR SBLOCK 00250 LDD #$322D 00260 STD $FFA4 00270 BSR SBLOCK 00280 LDD #$332E 00290 STD $FFA4 00300 BSR SBLOCK 00310 LDD #$292A 00320 STD $FFA4 00330 BSR SBLOCK 00340 BRA OUT 00350 RS ORCC #80 00360 LDD #$2B30 00370 STD $FFA4 00380 BSR SBLOCK 00390 LDD #$2C31 00400 STD $FFA4 00410 BSR SBLOCK 00420 LDD #$2D32 00430 STD $FFA4 00440 BSR SBLOCK 00450 LDD #$2E33 00460 STD $FFA4 00470 BSR SBLOCK 00480 LDD #$2A29 00490 STD $FFA4 00500 BSR SBLOCK 00510 BRA OUT 00520 RM ORCC #80 00530 LDD #$2F30 00540 STD $FFA4 00550 BSR MBLOCK 00560 BRA OUT 00570 SBLOCK LDX #32768 00580 LDY #40960 00590 MENU1 LDD ,X++ 00600 STD ,Y++ 00610 CMPX #40960 00620 BNE MENU1 00630 RTS 00640 MBLOCK LDX #32768 00650 LDY #40960 00660 MENU2 LDD ,X++ 00670 STD ,Y++ 00680 CMPX #39328 00690 BNE MENU2 00700 RTS 00710 SUM ORCC #80 00720 LDD #$3029 00730 STD $FFA4 00740 BSR MBLOCK 00750 LBRA OUT 00760 RUM ORCC #80 00770 LDD #$2930 00780 STD $FFA4 00790 BSR MBLOCK 00800 LBRA OUT 00810 SAVE JSR RS 00820 JSR RUM 00830 LDA #1 00840 STA $6F 00850 LDX #65456 00860 MENU3 LDA ,X+ 00870 JSR [$A002] 00880 CMPX #65472 00890 BNE MENU3 00900 LDX #32768 00910 MENU4 BSR GRAPH 00920 LDA ,X+ 00930 BSR BASIC 00940 JSR [$A002] 00950 CMPX #63488 00960 BLO MENU4 00970 CLR $6F 00980 RTS 00990 LOAD LDX #65456 01000 LDB #16 01010 LDA #1 01020 STA $6F 01030 MENU5 JSR $A176 01040 STA ,X+ 01050 DECB 01060 BNE MENU5 01070 LDX #32768 01080 MENU6 BSR BASIC 01090 TST $70 01100 BNE END 01110 JSR $A176 01120 BSR GRAPH 01130 STA ,X+ 01140 BRA MENU6 01150 END CLR $6F 01160 CLR $70 01170 JSR SUM 01180 JSR RM 01190 JSR SS 01200 RTS 01210 GRAPH PSHS D 01220 ORCC #80 01230 LDD #$3031 01240 STD $FFA4 01250 LDD #$3233 01260 STD $FFA6 01270 PULS D,PC 01280 BASIC PSHS D 01290 LDD #$3C3D 01300 STD $FFA4 01310 LDD #$3E3F 01320 STD $FFA6 01330 PULS D,PC 01340 END 01280 PULS D,PC 01290 END X))(B$(X))(C$(X))(D$(X)):E$(X)(Z)::120SʀX1 SA1:Z(A$(X))(B$(X))(C$(X))(E$(X)):F$(X)(Z)::P0/k<=9P0+Z1,R2-J3.B)*: P+0.,1&-2.3*) P/0  &9&9P0)fP)0YݽDo&AO%o9ovZ&- p& v 1op7 94P012354<=>?5HR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(192)CHR$(207); 24 PRINTCHR$(192)CHR$(207)CHR$(192)CHR$(200)CHR$(207)R$CHR$(196)CHR$(192)CHR$(207)R$CHR$(200)CHR$(197)CHR$(203)CHR$(194)CHR$(197)CHR$(202)CHR$(197)CHR$(197)CHR$(202)CHR$(202)CHR$(207)CHR$(192)CHR$(196)R$; 25 PRINTCHR$(197)CHR$(206)CHR$(204)CHR$(200)CHR$(197)CHR$(206)CHR$(205)CHR$(206)R$CHR$(207)CHR$(204)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(207)CHR$(204)R$CHR$(197)CHR$(202)CHR$(203)CHR$(197)CHR$(202); 26 PRINTR$CHR$(197)CHR$(202)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(197)CHR$(202)CHR$(192)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(202)CHR$(207)R$CHR$(207)R$; 27 PRINTCHR$(207)R$CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(199)CHR$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1 " (57) INPUTBAS"/' " (64) MAKEPROM"/> " (87) LASTLINE"/T " (93) CHESSIQ"/` "END"".} " (25)*SPECTRA3". " (35) BETWEEN2". " (37) DICE". " (37) INPUT3". " (51) ERRMSG". " (56)+INPUT". " (56)*INPUT"/XREF","(182) COMMANDO"0. END) FILESRCH"/ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$ "(167) SOUNDGEN","(172) &$:COPYRIGHT 1990 FALSOFT, INC.&4 400,31999&G:L110:P4000&W A$,CS:S0&s(@0,"WORKING ON LINE";L&2 X0 63& TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::,…XX$" "240,̀I11 NP:XX$B$(I)500,֋I:430- XX$430-ꁥ240-6Q$A$(I):(Q$,1)"*"540-}:@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM."-:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-.Q(Q$):QQ6:SL$(Q$,Q).& SL$,R." "OCTOBER".9 " (14) MAKESPEC".O " (20) SPECTRA".f " (25)+SPECTRA3".} " (25)*SPECTRA3". " (35) BETWEEN2". " (37) DICE". " (37) INPUT3". " (51) ERRMSG". " (56)+INPUT". " (56)*INPUT"/𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%'()*+,-.12 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASfMAKESPECBASSPECTRA BAS&SPECTRA3ASMeSPECTRA3BINEBETWEEN2BASDICE BAS{INPUT3 BASjERRMSG BASINPUT ASM/INPUT BININPUTBASBAS8MAKEPROMBAS0CLASTLINEBASCHESSIQ BAS߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?I&$:COPYRIGHT 1990 FALSOFT, INC.&; * INITIALIZATION&1:700:SM4000:RM4105:SUM4151:RUM4164:SS4017:RS4061::M"SPECTRA3":SUM:SS:2:0&40:"INITALIZING...":F2:B4:230,2:282,0:59078,18:59079,18:65497,0:B:8'(9,17:10,7:11,49:12,34:13,50:14,32:15,15'h21,15:2,15:3,3920:4,3920:"BM0,0R3G3U3F4":(0,0)(4,4),1:B:F:SUM'5620:5700:Y32Y16RM::F(X16):"O3T8C":F16RM:F:(209,1)(223,8),,BF:SM:"BM"(X)","(Y)>I A$:A$""4620:A$(13):(A$)314620>cB$((A$)32):4620>{5780: * OLD TEXT>"BM"(X)","(Y)>A$:A$""4820:A$(13):(A$)314820>O$((A$)32):4820> * FILE/EXIT?5810:SS:D0:L8:I2:K39:"BM89,41D49L89R2DR88U48RD49L89":(0,41)(88,89),,BF:(0,6),"Save File":(0,7),"Load File":(0,8),"Kill File":(0,9),"Screen Dump":(0,10),"Exit/BASIC"?(1,KI8)(87,K8I8),4:(1,KI8)(87,K8I8),4,@FXX(0):YY(1):J1250::(0)0I 5080,5090,5200,5230,5260:(YY22YY42)5030@f(1,KI8)(87,K8I8),4,@YY23II1:I1I1@ąYY41II1:I5I5@΁5020A;؁5770:(0)14(7,9),"DISK FULL. USE NEW DISK":J14000::RS:5220:(7,9),"SAVE FILENAME:":5710:65496,0:"O",1,Q$"/PIC":4177::5220AD0:I1:K63:(51,64)(172,116),,B:(52,65)(171,115),,BF:65496,0:0,17,3,C$,E$:J112832:5100::C$E$:J112832:5100::5130AQ$(C$,J,14):(Q$,1)(0)B(Q$)127B;(Q$,9,3)"PIC":DD1:D$(D)(Q$,8)"/""PIC":B D0(7,9),"NO FILES SAVED":J13000::5220:X1D:(7,8X),D$(X)::(7,8X),"Exit to Menu"B(53,KI8)(170,K8I8),4:(53,KI8)(170,K8I8),4,CIFB(0):XX(0):YY(1):FB1ID15220:FB1B:"I",1,D$(I):4222::5220:YY22YY425150Ck((53,KI8)(170,K8I8),4,C2YY23II1:I1I1C"F6(224,KI8)(319,K8I8),4:(224,KI8)(319,K8I8),4,G!@XX(0):YY(1):J1250::(0)0I 5500,5590,5600,5610,5610,5610,5610,5610:YY22YY425440GDJ(224,KI8)(319,K8I8),4,G^TYY23II1:I1I1Gx^YY41II1:I8I8Gh5430G|RB:C63: * PALETTEHF,B:2:(10,1),"PALETTE COLOR CHANGER":(2,3),"Left & Right Keys -> Select Palette":(5,5),"F1 & F2 Keys -> Select Color"HJ015:J:(J1628,60)(J1644,100),,BF::(R24,13),P$:(7,18),"Press Fire Button when done"HA$:A$(8)RR1:R1R0:B:(R26,13),P$:F:(R24,13),P$IA$(9)RR1:R16R15:B:(R22,13),P$:F:(R24,13),P$I>A$(103)CC1:C1C63:R,C :R,CIhA$(4)CC1:C64C0:R,C :R,CI~…(0)RS:FF9:Í5530IB:SUM:RM:FF9:IRS:FF9:ICPI3:RS:FF9:I5650:5640: * JOYSTICKJ4(X,Y)(X4,Y4),2:(X,Y)(X4,Y4),1:5650:(XX,YY)(XX4,YY4),2:FB1JIXXX:YYY:5630JXXDP((0)):YYDP((1)):FB(0):X0X0:X319X319JY0Y0:Y191Y191:J&J0RS:FF9:280: * ERROR ROUTINEJ:59291,196:59292,P:: * PATTERN ENABLEK,D59291,212:59292,181:: * RESTORE CODEKWNQ$(L," "):J0L1: * HPRINT INPUTK~XA$:A$""5720:A$(13)5760KbA$(8)JJ1:J1A$" ":(Q$,J1,1)" ":((IJ)8,K8)((IJ)88,K87),,BF:JJ1:5750L lJ05750:(A$)32JJ1:(Q$,J1,1)A$:(IJ,K),A$L&vL8Q$(Q$,J):LxI22:K9:L8:(52,64)(245,87),,B:(53,65)(244,86),,BF:L5620:SS:LRS:5650:L(67,82)(260,101),,B:(68,83)(259,100),,BF:(10,11),"ARE YOU SURE ? ":M F9F:F155700:F15MB80::8:M0o * FONT DATAMBp * BOLD TEXTMYzB$(0)"BR7":SPACEMzB$(1)"BRD4RU4BD6LBR4BU6":!MB$(2)"DRUBR2DRUBR2":"MB$(3)"BRD6RU6BR2D6RU6BRBD2L6BD2R6BU4BR3":#MB$(4)"BR2RFRL4GRDR3DRG2LEL3BR8BU5":$NB$(5)"BDDRUBR5G5LE5BD4DRUBU5BR3":%NIB$(6)"BR4FGU2L2DLF5LH4DGRGRDR2BU6BR5":&NcB$(7)"BRDGREUBR2":'NB$(8)"BR3G2D2F2LH2U2E2BR3":(NB$(9)"F2D2G2RE2U2H2BR5":)NB$(10)"BRBDF4RH4D2L2R7LHG3LE4RBU2BR3":*NB$(11)"BR2BDD4RU2NL3NR2U2BUBR4":+OB$(12)"BD5BRD2NLEUBR2BU5":,O:B$(13)"BD3R5BU3BR2":-OWB$(14)"BD5DRUBR2BU5":.OsB$(15)"BR6G6RE6BR2":/OB$(16)"BRD6R3U6L3GD4NE3RE4D4BU5BR2":0O$B$(17)"BR2NGD6L2R3NR2U6BR4":1O.B$(18)"BDRUR3DRDLDL2G2DNE2R5HRBU5BR2":2P8B$(19)"BDRUR3FDGNL2FDGNU5L3ULBU5BR7":3PHBB$(20)"BD3E3RG4R4NU3DGR3HELU4BR3":4PqLB$(21)"BD5RDR3NU3EU2HL4ELUR5BR2":5PVB$(22)"BD2D3FNU2R3U2FUHL3U2RUR2BR3":6P`B$(23)"DRUR3D2G2D2RU2E2U2BR2":7PjB$(24)"BRGDFGDFNU5R3NU5EUHNL2EUHL2BR5":8QtB$(25)"BRGDFNU2R4G3LR2E2U3GU2L2BR5":9Q@~B$(26)"BD5DRUBU3LURBR2BU"::QfB$(27)"BRBD5DGREUBU3LURBUBR2":;QB$(28)"BR3G3F3RH3E3BR2":<QB$(29)"BD2R5BD3L5BU5BR7":=QB$(30)"F3G3RE3H3BR5":>QB$(31)"BDR4G3BD2RBU2E2UHNL2BR3":?RB$(32)"BR5L4GD4FNU5R4BU2L2UR3UL3RERHBR3":@RNB$(33)"BR3D2HD3NR2HD3HDBR7UGU3GU3GU2BR5":ARyB$(34)"R5FDGNL2FDGNU5L5ENU4RU5BR6":BRB$(35)"BR3LDLGD2FNU3RDR3URBU4LHRBR3":CRB$(36)"RD5GR2U6RF2D2G2RE2U2H2BR4":DRB$(37)"RNR4D3NR3D2GR2NU6R4ULBU4RUBR2":ES%B$(38)"RD5GR3HU2NR2U3R3DRUBR2":FSYB$(39)"BR2DLND3GD2F2UFR2U2HR2ND2BU2LUL2BR5":GS B$(40)"D6RU3NR2U3BR3D6RU6BR2":HSB$(41)"R2D6L2R5LHU5R2BR2":ISB$(42)"BD4DED2R3NU5EU5L3BR5":JS(B$(43)"RD5GR2NU6BR4UGU2LHRURU2FUBR3":KT2B$(44)"RD5GR6ULBL3U5RBR5":LT;O$(22)"BR4F2NEL2ULG3D7F3RE2NU5EU4H2L2GLD5F2RBU13BR6":6^HO$(23)"BRNR7GR7D2G3ND7GD7BU14BR8":7_!RO$(24)"BR2G2D2NF6RF6D2G2L3HNU3HU2E3RE2NU3EU2H2L3BR9":8_^\O$(25)"BR3G3D3NFRF2E3ND5U2H2LURF3D7G4U2GULGBU13BR10":9_fO$(26)"BRBD2GR2GBD5GR2GBU11BR4"::_pO$(27)"BD2DRDBD6HDFGBU12BR5":;_zO$(28)"BR6G6F6UH5E5BUBR3":<_O$(29)"BD4R8BD5L8BU9BR12":=`O$(30)"F6G6UE5H5BUBR9":>`CO$(31)"BR2NG2R2DRND2FDNG4DG4BD3D2ED2BU14BR6":?`O$(32)"BR5BDR5F3ND2UHD4G3U4LD2ND2G3NU3HU2E2NRBL5E3NRG3ND5GD4F2UF2R5EREBU11BR4":@`O$(33)"BR4G4D3F2R2NG5E2NE3U2LGBD4NR5BD2NL2GR2GR3GLBR6ELNU14LHRU11LEL6NG3UR4BR7":AaEO$(34)"BR4NG4R5GNL4G4ND8GD6NG3DFNR4FR3E4NU2LNG2U3LU2G5ENU4EU4E4D4EU3BUBR3":BaO$(35)"BR5G4ND7GD6F2U2FD2FNU10NR5ER5E2BU10GLDLUGU2GU2G2NG2D8BU11BR10":CaO$(36)"BR4NG4RNG2R7ND12GNL6GRD11G2L2UGUGU2GULUNG3NU7EU7E4BR7":Db5O$(37)"BR5NG5RNG3R4GNL3G5ND5GD6NG2R6D2R2ENL6E2BL8NU5EUNU4ERNR4E6G3U3FL2U2ENG5BUBR6":EbO$(38)"BR6G3ERE2R4GNL3G4D8EU7BR2D8G4UH2LG2ER3FERE3U2E2NFG2U6E4F2DH2DFBU4BR4":FbO$(39)"BR4G3ND8GD7F4NR5UNU10R6ENU4EU4L7ND4NU5E7GL2DLU2GU2NG4BR8":Gc+O$(40)"BR4NG4RNG2R4GNL3G4D4GU5BD7LNG2R2DED2ENR2DR3BR3NU10EU10LG6D2U5RD4U5E5BR4":HcmO$(41)"BR3NG3RNG2R4GNL3G3ND6GD6BD2LNG2RNF2R2DRNU9EU9E4BR":IcO$(42)"BR5NG3RNG2R4GNL3G3ND6GDGHGBR3D5BD3H3LNF3LNGF3R2E3NU7EU7E4BR":Jd&O$(43)"BR3NG3RNG2R4GNL3G3ND6GD6BD2LNG2NR3RFNE2NR3FR3BR3NE2UELEL2HNL3E4LENL3HL2G3D2U5LND6E5D2EDR2EBU":Kd{O$(44)"BR3NG3RNG2R4GNL3G3ND6GD6BD2NG2R3NU8NR3DR6GNL2E2BU2BL6U7E4D2ED2EDE2BU":Ld$O$(45)"BR3NG3RNG2RGR3EG4ND7GD7NG3DR2GNR4FR3E2LNU12LU5LGERNU7RE2BD8BRFNU14E2LU12HG3BU3BR7":Me-.O$(46)"BR2NG2DED12NG3DRGNR3FRLBU13D2RD2RD2RD2RD2RD2FU15GR2UFGNR2FRE2BU":Ne|8O$(47)"BR4G3ND8GD7FED2ED2NR6FNU11R5E3NU7EU7NH4LNH4LH4DLG3E2ND9BU2BR11":OeBO$(48)"BR4G2RD2L2GER2D3L2GER2D7GLHBR4BUNU12F2REBU7BL4NF2UF3E2NU6EU5HL2G3BU3BR9":Pf2LO$(49)"BR4G3ND8GD7FED2ED2NR6FNU11R5E2H2LGER2F3RE2BL4NU7EU7NH4LNH4LH4DLG3E2ND9BU2BR11":QfVO$(50)"BR3NG3RNG2R4GNL3G3ND6GD6BD2LNG2R2DNR3FNR3U2EU7NE5RD6BD4BR4NU4ENU2EUH3DHLRE3NU5RNG2U5HBR4":Rf`O$(51)"BR13G3NL4GL2U2NL2ULG3F8UH7GF7DGH7UF6D2NL4DL2UHNL3HL2G2DFRE2BU14BR10":SgFjO$(52)"BR3NG3RNG2R5GL2NL2G3ND7GD6FED2ED2FR5E3G2L6U3NU6RU8NG2E2RGNR3FR2E2BUBR2":TgtO$(53)"BR4ND11G2RD2GLGEFED7G2ER3GR3FNL3EFNU14E2LU12HNG2BR5":Ug~O$(54)"BR4ND11G2RD3L2GEFRD6NG3DR2GR2GRE4NU10EU9HNG2BR4":VhO$(55)"BR4ND11G2RD3L2GEFRD6G2ER3GRDE2RU13NG2FD13ED2E3NU11EU10HNG2BR4":WhiO$(56)"BR2NF11DF11LNG2H11GBD5BR2R10BD7BL12E2R3GR3GLBU2BL3E11GL3EL3ERBR7":XhO$(57)"BR3ND7G2RD3L2GEFRD2G2ER3GR3GLR6D3GL5EL3GBR10BU2UHU10HND10NG2BR5":YiO$(58)"BR3NG2R3GR3DNL2R4EG5NR3NL4G9ERE2R5FNL6GLR4GLR2E2BU13BR3":ZiYO$(59)"R5G5NU4BD2E7F7G7H7BD2D5R5NH4BR4R5U5NG4BU4U5L5NF4BL2BD3G4F4E4H4BD3GFEBU7BR6"iO$(60)"R15D15L15U14BR2BDR11D11L11U10BR2BDR7D7L7U6BR2BDR3D3L3U2BU7BR10"iO$(61)"BR3G2NUDLD5NF7EDF6NE6RE6NHU5LU2LNL3HL2G2NRNH2DH3DLBUBR11"j(O$(65)"BRBD4NR3GDF3HGND5GD4FERENU8F2EGHU9NL2EBR4BU4":aj\O$(66)"BR3GND13GHFD11LF2E2RNU6EU5HG2BU8BR6":bjO$(67)"BR2BD4ND10R2F2GUHL3GRD7F2URE2BU12BR3":cjO$(68)"F7RH7RF6EGD6GNU5LG2U2GH2RNU6FU7EBU5BR8":dkO$(69)"BR3BD4G3RD6LF2UNU8NE3U4RERURELUNL4HL2BU5BR7":ek8O$(70)"BR7GLULGND13GD2NL2NR3D9LF2E2BU13BR5":fk O$(71)"BD4BR2ND9G2RD6GRFR2NE5NG5R3FD2G2L4HR5EU12HND9NG3BR6BU4":gkO$(72)"BR3GND12GHFD10LF2EBR2DFHUNU7EU6HG2BU7BR6":hkO$(73)"BR2DLDBD4EFLND8GLFD5LF2EBU14BR3":il!(O$(74)"BR4DLDBD4NENR2NGD5RNU4DRDG2LNH2URBU14BR5":jlc2O$(75)"BR3GND13GHFD11LF2EBU7E2ND4FD3G2LRFND2RD3E2BU13BR3":kl 16,FB,E3,CC,0,0,34,6,A6,806TH 81,30,25,26,81,39,23,A,81,416wR 25,1E,81,46,22,1A,80,7,80,306\ 68,61,69,E4,68,61,69,E4,68,616f 69,E4,68,61,69,E4,AB,61,A7,616p 20,D4,4D,35,90,D,D,20,20,547z 48,45,20,44,49,53,54,4F,20,457) 50,52,4F,4D,20,50,52,4F,47,527L 41,4D,4D,45,52,D,20,20,20,207p 20,20,20,42,59,20,54,4F,4E,597 20,44,49,53,54,45,46,41,4E,4F7 D,20,20,20,20,20,20,20,20,207 20,20,20,20,56,20,31,2E,33,D7 D,D,20,20,20,20,20,20,20,208ʆ 31,20,2D,20,32,37,36,34,D,208CԆ 20,20,20,20,20,20,20,32,20,2D8fކ 20,32,37,31,32,38,D,20,20,208 20,20,20,20,20,33,20,2D,20,328 37,32,35,36,20,31,2F,32,D,208 20,20,20,20,20,20,20,34,20,2D8  20,32,37,32,35,36,20,32,2F,329  D,D,D,20,43,48,4F,4F,53,459:  20,31,2C,20,32,2C,20,33,20,4F9] $ 52,20,34,3F,20,4,45,50,52,4F9 . 4D,20,4E,4F,54,20,50,52,4F,479 8 52,41,4D,4D,45,44,20,50,52,4F9 B 50,45,52,4C,59,20,20,20,20,419 L 54,20,41,44,44,52,45,53,53,3A: V 20,4,D,20,20,31,2D,45,50,52:3 ` 4F,4D,20,45,52,41,53,45,44,20:V j 3F,D,20,20,32,2D,50,52,4F,47:z t 52,41,4D,20,45,50,52,4F,4D,2E: ~ D,20,20,33,2D,56,45,52,49,46: 59,20,45,50,52,4F,4D,2E,D,20: 20,34,2D,52,45,41,44,20,45,50; 52,4F,4D,2E,D,20,20,35,2D,52;+ 45,54,55,52,4E,20,54,4F,20,42;N 41,53,49,43,D,20,20,36,2D,45;r 58,41,4D,49,4E,45,2F,43,48,41; Ć 4E,47,45,20,4D,45,4D,4F,52,59; Ά D,D,D,43,4F,4D,4D,41,4E,44; ؆ 3A,20,D,D,53,54,41,54,55,53; 3A,D,4,20,20,45,50,52,4F,4D< 20,53,45,4C,45,43,54,45,44,20 x 45,43,4B,49,4E,47,20,46,4F,52>+ 20,46,46,27,53,4,4D,4F,56,49>O 4E,47,20,45,50,52,4F,4D,20,54>r 4F,20,4D,45,4D,4F,52,59,4,56> 45,52,49,46,49,4E,47,20,45,50> 52,4F,4D,4,50,52,4F,47,52,41> 4D,4D,49,4E,47,20,41,44,44,52? 45,53,53,3A,20,4,53,54,41,52?$ Ȇ 54,20,41,44,44,52,45,53,53,3F?? ҆ 20,4,0,0,0,0,0,0,0,02,4F,4D,20,54>r 4F,20,4D,45,4D,4F,52,59,4,56> 45,52,49,46,49,4E,47,20,45,50> 52,4F,4D,4,50,52,4F,47,52,41> 4D,4D,49,4E,47,20,41,44,44,52? 45,53,53,3A,20,4,53,54,41,5