t&$:COPYRIGHT 1990 FALSOFT, INC.&X:PEEK(135)' by Keiran Kenny, Sydney, 1988.&^ &p@144,(159)&(135)48(135)58P(135)48:@204,"SUB. ";:60&(P 100,200,300,400,500,600,700,800,900&2135,0&<@144,(143)&F20' d"100":'ȇ"200":'%,"300":'2"400":'?"500":'LX"600":'Y"600":'f "800":'s"900":(135)48(135)58P(135)48:@204,"SUB. ";:60&(P 100,200,300,400,500,600,700,800,900&2135,0&<@144,(143)&F20J&$:COPYRIGHT 1990 FALSOFT, INC.&: :MUSIC CATALOGUE&T:BY GIANCARLO PILLOT&k:MADE APRIL, 1990&~(:VERSION 1.00&2 1000&< T$(100),A$(100),F$(100),TY$(100)&F 150,18 :REM SET BAUD RATE HERE, CURRENTLY AT 2400&P 1' Z "THE MUSIC CATALOGUE"')d "BY GIANCARLO PILLOT"';n (32,131);'Ax'b "PLEASE CHOOSE AN OPTION:"'~ 3);"(1) LOAD A FILE"' 3);"(2) SAVE A FILE"' 3);"(3) EDIT CURRENT FILE"' 3);"(4) GET A DISK DIRECTORY"'A$( A$"1" A$"4" 180(G(A$)(0҈ G 240,450,640,1860(6ܑ(i:THE FOLLOWING ROUTINE IS FOR LOADING FILES(o(@64,"A FILENAME IS 8 CHARACTERS OR"( " LESS AND CONTAINS NO PERIODS"( " (.) OR SLASHES (/)"( (" "ENTER <^> TO GO BACK"),@0,"NAME OF FILE TO LOAD";)*6 FILE$){@ (FILE$)8 (FILE$)1 (FILE$,"/") (FILE$,".") 100,1: 300)J FILE$"^" 80)TX1)^SIZE0)h "I",#1,FILE$".CAS")r (1)1 410)| #1,T$(X),A$(X),F$(X),TY$(X))XX1*  370*SIZEX1* #1*) 80*[:THE FOLLOWING ROUTINE IS FOR SAVING FILES*až*̇@64,"A FILENAME IS 8 CHARACTERS OR"*և " LESS AND CONTAINS NO PERIODS"*" (.) OR SLASHES (/)"** "ENTER <^> TO GO BACK"+@0,"NAME OF FILE TO SAVE";+ FILE$+k (FILE$)8 (FILE$)1 (FILE$,"/") (FILE$,".") 100,1: 510+ FILE$"^" 80+& "O",#1,FILE$".CAS"+0 X1 SIZE+:#1,T$(X)+D#1,A$(X)+N#1,F$(X)+X#1,TY$(X)+b X+l #1+v 80, CUR1,":DISPLAY/ EDIT MODE,(,= "RECORD #";CUR,L"ARTIST:",Z A$(CUR),h"TITLE:",uƇT$(CUR),Ї "FORMAT OF RECORDING:",ڇ F$(CUR), "TYPE OF MUSIC:", TY$(CUR),, " aDD sORT dELETE pRINT qUIT"- "UP AND DOWN ARROWS TO VIEW"-7 SIZE100 :"FILE FULL"-W SIZE0 : "FILE EMPTY"-a*A$-4 A$"^" CURSIZE CURCUR1: 660-> A$(10) CUR1 CURCUR1: 660-H A$"A" SIZE100 910-R A$"S" 1050-\ A$"D" 1380.f A$"P" SIZE0 1520.,p A$"Q" 80.7z 810.K:ADD SELECTION.Q. "TYPE 31 CHARACTERS OR LESS IN RESPONSE". "ARTIST: ";A$(SIZE1).A$(SIZE1)(A$(SIZE1),31). "TITLE: ";T$(SIZE1).T$(SIZE1)(T$(SIZE1),31)/)ʻ "FORMAT OF RECORDING: ";F$(SIZE1)/:F$(F$,31)/`޻ "TYPE OF MUSIC: ";TY$(SIZE1)/TY$(SIZE1)(TY$(SIZE1),31)/SIZESIZE1/CURSIZE/ 660/:SORTING BY SINGLE BUBBLE//$ "WOULD YOU LIKE TO SORT BY:"0 . 3);"(1) ARTIST"0 8 3);"(2) TITLE"0*BA$0>L A$"1" 11300RV A$"2" 12500^` 10900sj: "SORTING..."0{tF00~ X1 SIZE10 A$(X)A$(X1) 12200T$T$(X):T$(X)T$(X1):T$(X1)T$0T$A$(X):A$(X)A$(X1):A$(X1)T$1T$F$(X):F$(X)F$(X1):F$(X1)T$1FT$TY$(X):TY$(X)TY$(X1):TY$(X1)T$1NF11Vċ X1g΅ F1 11401r؁ 6601: "SORTING..."1F01 X1 SIZE11 T$(X)T$(X1) 13401 T$T$(X):T$(X)T$(X1):T$(X1)T$2 T$A$(X):A$(X)A$(X1):A$(X1)T$20T$F$(X):F$(X)F$(X1):F$(X1)T$2Z(T$TY$(X):TY$(X)TY$(X1):TY$(X1)T$2b2F12j< X2{F F1 12602P 6602Z:DELETE A SELECTION2d SIZE1 6602n:"ARE YOU SURE? (Y/N)"2xA$: A$"" 14002 A$"N" 6603 XCUR SIZE13"T$(X)T$(X1)34A$(X)A$(X1)3FF$(X)F$(X1)3ZTY$(X)TY$(X1)3b X3rSIZESIZE13҅ CURSIZE CURSIZE3܁ 6603:PRINTING..33 "DO YOU WANT TO PRINT WITH"3 " HEADINGS (Y/N)"3A$4 A$"" 15504" A$"N" 17304?, "PRESS ANY KEY OR <^> TO ABORT"4X6A$: A$"" 15904k@ A$"^" 6604|J X1 SIZE4T#24^#2,"ARTIST:"4h#2,A$(X)4r#2,"TITLE:"4|#2,T$(X)4#2,"FORMAT:"4#2,F$(X)5#2,"TYPE OF MUSIC:"5#2,TY$(X)5 X5&6605K‡"PRESS ANY KEY OR <^> TO ABORT"5UA$5hօ A$"" 17405{ A$"^" 6605 X1 SIZE5#25#2,A$(X)5#2,T$(X)5#2,F$(X)5#2,TY$(X)5& X50 6605::DIRECTORY5D6N6X (0);"FREE GRANULES"6?b "PLEASE PRESS ";L$6Il 805UA$5hօ A$"" 17405{ A$"^" 6605 X1 SIZE5#25#2,A$(X)5#2,T$(X)5#2,F$(X)5#2,TY$(X)5& X50 6605::DIRECTORY5D6&<d: CoCo 640 by 192 Graphic Layout Plotter for LaserJet&G 330&R 360&j#2,(27)"&f0S";&x I1 5& 440: 560& 400& J1 9: 560: J&ȋ I&ҁ 440: 560&܇#2,(27)"&f1S";& I1 16' 520: 600' 480'% J1 9: 600: J'- I'? 520: 600'j"#2,(27)"*p400X"(27)"*p2100Y";'+ If your LaserJet has Auto CR/LF, remove ;CHR$(10) from line 300(,#2,"Color Computer 3 640 by 192 Mode - Grid of 160 Horizontal by 50 Vertical Pixels";(10)('6#2,(27)"E";(-@(BJ: set landscape(ZT#2,(27)"&l1O";(`^(sh: set margins(r#2,(27)"9";(|#2,(27)"&a13L";((: define light horizontal line(#2,(27)"*c2400A";(#2,(27)"*c1B";))(: define heavy horizontal line)C‡#2,(27)"*c2400A";)[̇#2,(27)"*c3B";)a֐): define light vertical line)#2,(27)"*c1A";)#2,(27)"*c1900B";)): define heavy vertical line)#2,(27)"*c2A";*#2,(27)"*c1900B";*&*Q0: print horizontal line at current x,y and increment*i:#2,(27)"*c0P";*D#2,(27)"*p+38Y";*N*X: print vertical line at current x,y and increment*b#2,(27)"*c0P";*l#2,(27)"*p+15X";*v#2 100 ' CoCo 640 by 192 Graphic Layout Plotter for LaserJet 110 WIDTH "LPT1:",255 120 OPEN "LPT1:" FOR OUTPUT AS #1 130 GOSUB 330 140 GOSUB 360 150 PRINT#1,CHR$(27)+"&f0S"; 160 FOR I=1 TO 5 170 GOSUB 440:GOSUB 560 180 GOSUB 400 190 FOR J=1 TO 9:GOSUB 560:NEXT J 200 NEXT I 210 GOSUB 440:GOSUB 560 220 PRINT#1,CHR$(27)+"&f1S"; 230 FOR I=1 TO 16 240 GOSUB 520:GOSUB 600 250 GOSUB 480 260 FOR J=1 TO 9:GOSUB 600:NEXT J 270 NEXT I 280 GOSUB 520:GOSUB 600 290 PRINT#1,CHR$(27)+"*p400X"+CHR$(27)+"*p2100Y"; 300 PRINT#1,"Color Computer 3 640 by 192 Mode - Grid of 160 Horizontal by 50 Vertical Pixels" 310 PRINT#1,CHR$(27)+"E"; 320 STOP 330 ' set landscape 340 PRINT#1,CHR$(27)+"&l1O"; 350 RETURN 360 ' set margins 370 PRINT#1,CHR$(27)+"9"; 380 PRINT#1,CHR$(27)+"&a13L"; 390 RETURN 400 ' define light horizontal line 410 PRINT#1,CHR$(27)+"*c2400A"; 420 PRINT#1,CHR$(27)+"*c1B"; 430 RETURN 440 ' define heavy horizontal line 450 PRINT#1,CHR$(27)+"*c2400A"; 460 PRINT#1,CHR$(27)+"*c3B"; 470 RETURN 480 ' define light vertical line 490 PRINT#1,CHR$(27)+"*c1A"; 500 PRINT#1,CHR$(27)+"*c1900B"; 510 RETURN 520 ' define heavy vertical line 530 PRINT#1,CHR$(27)+"*c2A"; 540 PRINT#1,CHR$(27)+"*c1900B"; 550 RETURN 560 ' print horizontal line at current x,y and increment 570 PRINT#1,CHR$(27)+"*c0P"; 580 PRINT#1,CHR$(27)+"*p+38Y"; 590 RETURN 600 ' print vertical line at current x,y and increment 610 PRINT#1,CHR$(27)+"*c0P"; 620 PRINT#1,CHR$(27)+"*p+15X"; 630 RETURN N 560 ' print horizontal line at current x,y and increment 570 PRINT#1,CHR$(27)+"*c000100 ORG $3000 00110 ACROSS RMB 1 00120 DOWN RMB 1 00130 DIR RMB 1 00140 TYPE FDB $0001 00150 FDB $0100 00160 FDB $00FF 00170 FDB $FF00 00180 START ORCC #$50 00190 CLR $FFDF 00200 LDU #ARRAY 00210 LDD #0 00220 ALOOP STD ,U++ 00230 CMPU #ARRAY+128*192 00240 BLO ALOOP 00250 LDB #0 00260 STB DIR 00270 LDY #TYPE 00280 LDD #$3360 00290 STD ACROSS 00300 00310 LOOP LDA #128 00320 MUL 00330 ADDB ACROSS 00340 ADCA #0 00350 LDU #ARRAY 00360 LEAU D,U 00370 LDB ,U 00380 LDA DIR 00390 CMPB #2 00400 BHS OTHER 00410 00420 INCA 00430 ANDA #3 00440 BRA CONT 00450 00460 OTHER DECA 00470 ANDA #3 00480 00490 CONT STA DIR 00500 PSET INCB 00510 ANDB #3 00520 STB ,U 00530 ANDB #3 00540 LDA #$55 00550 MUL 00560 STB $B5 00570 LDA DOWN 00580 LDB $B9 00590 MUL 00600 ADDA $BA 00610 TFR D,X 00620 LDB ACROSS 00630 LSRB 00640 LSRB 00650 ABX 00660 LDA ACROSS 00670 ANDA #3 00680 LDU #TABLE 00690 LDA A,U 00700 TFR A,B 00710 COMA 00720 ANDA ,X 00730 ANDB $B5 00740 PSHS B 00750 ORA ,S+ 00760 STA ,X 00770 00780 WRAP LDB DIR 00790 LSLB 00800 LDD B,Y 00810 ADDA ACROSS 00820 ANDA #$7F 00830 ADDB DOWN 00840 CMPB #192 00850 BNE DOWN1 00860 CLRB 00870 BRA DOWN2 00880 DOWN1 CMPB #$FF 00890 BNE DOWN2 00900 LDB #191 00910 DOWN2 STD ACROSS 00920 LBRA LOOP 00930 00940 TABLE FDB $C030 00950 FDB $0C03 00960 00970 ARRAY RMB 1 00980 END START 2U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20" 55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2 56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI 58 PCOPY3TO1:PCOPY4TO2 59 FORII=1TO1000 60 IFINKEY$=""THEN61ELSE600 61 NEXTII 600 REM START MENU TEXT 610 DIM A$(40) 620 READ MN$ 630 FORP=1TO34:READ A$(P):IF A$(P)="END"THEN640ELSENEXTP 640 IF A$(P)="END"THEN A$(P)="" 650 CLS 660 PRINT" RAINBOW ON TAPE" 670 PRINT" (C) FALSOFT, 1987" 680 PRINT 690 PRINT " (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN0P0%00*@0ʆ=0ʉ03Ķ0$L J0\U=׵0ʍ"00ˍ0ƿ0ˍ 0ƿ0ˍ (0 =0TT:00̦CԵ4ৄ90X쥻0ʄ0&_ &ƿ0ctr0 0 0 &ƿ000 0 &_ &ƿ00):NEXTP 790 PRINT " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU" 800 PRINT "PRESS ^ (UP ARROW) TO EXIT MENU"; 810 XX$=INKEY$:IF XX$=CHR$(94) THEN CLS:END ELSE IF XX$=""THEN810ELSE650 820 PRINTSTRING$(32,45); 1000 DATA "OCTOBER" 1010 DATA " (22) HORROR"," (27) SCROLL"," (29) QUEENS"," (32) SCRNDMP"," (36) SCRNDMPS"," (38) LP78DMPS"," (39) TESTSCRN"," (46) ENERGY" 1020 DATA " (50) GRAFTRAN"," (63) DESKTOPL"," (68) DESKTOPH"," (72) GENFONT1"," (75) GENFONT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOART"," (81) MIRORPIX" 1030 DATA " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK" 9999 DATA END ," (78) FUNFACE"," (79) MARTIAN"," (805,31C5U10LUR2DLDRC4RDLERC3R4BD2NL6BD2L6UC0R6BU2L4":(244,19)(252,31),35:0:(244,19)(252,31),,BF:"BM245,31C5U10LUR2DLDRC4RGR2C3R2ERBD2LGL2HLBD2RFR2ERUC0LGL2HLRER2ER"0"(244,19)(252,31),36:0:(244,19)(252,31),,BF:"BM245,31C5U10LUR2DLDRC4DRGC0RC3FD2FBD2H2U2H":(244,19)(252,31),340"BM272,161C1R3GR3GR3GR3GR3GR3D2L2UR6HC6D2HR2":(287,160)(289,174),38:"C1R0BL2R0FC6FL2DR2GBU5EL2UR2H":(287,160)(289,174),39:"RULGU2R2HD12HD2FURU2":(287,160)(289,174),401"BM165,31C9D3C8RL2GLR6FL8DR8DC5L8DC6R8":(154,31)(175,39),411r"BM235,15C11R0E2C12DBRR0BGC11R0RBE3C13E":K150:((25)245,15(14),10(4)):12:2602T0:M(1)M(29):K230:M(K)(28)::LL.5:SCSC(5L)50:"V31;T255L255O5;1;2;3;4;4;5;5;6;6;5;4;2;O5;1;2;3;5;7;8;10;11;12":L1L1:: 2/250:X160:SC0:"T255L255265497,0:1:(X5,32)(X14,39),,BF:6:(211,56)(290,63),,BF:SC$(SC):5:(26,7),SC$:X160:Y40:(X5,31)(X14,39),41,:SC999994003TT1:PM(T):RM(T1):1:(94,33)(113,51),,BF:(94,33)(93L(R,0),33L(R,1)),R,35"0:E0:T28250:2803,E(60):(X,Y)(XL(P,0),YL(P,1)),P,:A$:(343)247X1211:(X,Y)(XL(P,0),YL(P,1)),,BF:XX6:(X5,31)(X14,39),41,:(78,16)(86,23),31:3004P6(344)247X1801:(X,Y)(XL(P,0)6,YL(P,1)),,BF:XX6:(X5,31)(X14,39),41,:(78,16)(86,23),32,:3004@(342)247X1801:(X,Y)(XL(P,0),YL(P,1)),,BF:PP7:P28PP28:3004J(341)247X1801:(X,Y)(XL(P,0),YL(P,1)),,BF:PP7:P1PP28:3005TA$(32)EL (500)80(78,16)(86,23),33,:1:(X,Y)(XL(P,0),YL(P,1)),,BF:FY 1606:(X,F)(XL(P,0),FL(P,1)),30:(X,F)(XL(P,0),FL(P,1)),P,:SC(SCLE)::3005^PL0:Q13:T(P,Q1)0Q::(XQ66,FT(P,Q1))1PLPL1:Q::Q6ehA$:PL065496,0:"O1V31EAV20CV10GFV3ADE":65497,0:SCSC5:::(X,F)(XL(P,0),FL(P,1)),30,:F:PL06rF5943345:400:VFL(P,1)F186:PL0:H09:(H6130,V)1PLPL1:H7P|PL10(130,V6)(189,50),29:(130,V6)(189,50),29:(130,V)(189,56),29,:65496,0:"O1V31EGV25ADV15BADV10FEV4ADBV1AEF":65497,0:SCSC25:VV67]V:2708"L255T255O1V20C;C;CO1V31D;D;D;D;D;DV20D;D;DV5D;D;P1P1P1P1V20D;D;V31D;C;D;DV25DDDV20DDCDV10DDDDV5DCDDV1DDCDT255":A$:0,4:(16,22),"GAME OVER":(14,23),"PRESS ANY KEY":C37:Q18T60:65496,0:"V3O1AGP3;"((12)):A$:A$""430:(244,19)(252,31),(3)33,:CCQ:"V1O1;"((9)):(287,160)(289,174),C,8T29:C40Q1:410:C38Q1:410:4109P4:(110,175)(213,191),,BF:1:(130,32)(189,141),,BF:(108,32)(210,54),,BF:(244,19)(252,31),34,:A$:260:(244,19)(252,31),(3)33,:CCQ:"V1O1;"((9)):(287,160)(289,174),C,8T29:C40Q1:410:C38Q1:410:4109P4:(110,175)(213,191),,BF:1:(1HR$(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 " (34)+4CTURING"/$ " (36) ADD"/: " (44) CCGRAPH"/P " (44)$MSGRAPH"/d " (52) POPUP"/{ " (55) CALENDAR"/ " (56) MUSIC"/ " (60) LASER"/ " (66) STATES"/ " (75) PEEK135"/І "END"RING". " (34)*4CTURING"/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) Q&$:COPYRIGHT 1990 FALSOFT, INC.' 11,11,5,11,17,11,5,17,17,11,17,11,17,11,11,11,11,5,11,17,17,5,11,17,11,17,11,17,12,6,,12,,,12,12,6,18,,,6,12,6,6,6,12,12,6,12,12,12,,6,6,,12,18,,6,6,6,18,12,,18,6,,18,18,,12,12,,12,,,6,12,12,18,,,12,12,12,12,12,12,12,12,12' 6,12,,6,6,,18,12,,6,6,6,12,18,,18,18,,18,18,,001,011,111,011,011,111,100,001,111,011,011,011,000,101,111,000,110,111,000,010,111(5::"

ractice?":44539:500,():"INITIALIZING, PLEASE WAIT...":"P1": 011,001,111,001,111,111,011,001,101,000,111,111,011,001,011,001,011,011,001,011,001((101,001,111,011,011,111,001,100,111,011,011,011,101,000,111,011,000,111,010,000,111(2001,101,111,001,111,111,101,001,011,000,111,111,101,001,101,101,101,001,001,101,001){<65497,0:1:1000:0,63:1,0:2,37:3,37:4,10:5,7:6,56:7,36:8,38:9,35:K1115:K,0::M(30),L(38,1),T(38,2):&HE6B7,&H39:2:&HE6B7,&H20*BFK128:K,120::29,3100:30,120:41,120:K3140:K,65::M(29)(28):T():L5:B$"R5D5L5U5BF2RDL":K114:L(K,0),L(K,1):L(K14,0)L(K,0):L(K14,1)L(K,1)::K128:T(K,0),T(K,1),T(K,2)*P:&HE6C6,33:1:K128:Y13:A$:H0:X13:HX66:VY66*Z(A$,X,1)"0""C9BM=H;,=V;"B$:X,Y::"C1BM=H;,=V;"B$:X,Y*d(0,0)(L(K,0),L(K,1)),K:K+n1:"A0C3BM129,50D92R61U92R20D108L102U108R20":(128,60),3,3:"C0BM108,59R21BR61R20C3BM16,65NR94":K122:"FD3"::"FDFDFRFR3FR230EUE":K17:"U11E":+x5:(14,0),"*Stevedores*":4:(12,1),"BY Grant Bloedow"+"C3EU7L84C6BM15,54R92D10L92U10BM211,54R80D10L80U10,W(28,69),3,3:(16,59),6,6:(212,59),6,6:5:(2,7),"U.S.S.Grant":1:(108,32)(210,54),,BF-"C8BM90,30":K122:"E5RG5BR4H5RF5"::X01:HX13280:"BM=H;,52":K13:"E7RG7BR7H7LF7BH7":K,X:"BM89,31R123NR7D22R8U22R3U7L135D29L8U22R8U18HL16GD17FR16U7L12U9R12C5":(77,30),8,8-A$"C5BM78,23NR2ELU2EC9NRUREC7HLFL2DBF2C6LDR2G":A$"R4C9UC5BD2R0C1":(78,16)(86,23),31:A$"R2C9UC5BD2R0C1":(78,16)(86,23),33:(78,16)(86,23),,BF:A$"R5C9UC5BD2R0C1".F(78,16)(86,23),32:4:(0,161)(319,191),,BF:"BM0,160NR46UNR42UNR40UR39UL39UR38UL38BM319,160NL41UL40UR40UL39UR39UL39UR39."C0BM232,31NR20U3EU3EU3EU3R20D3GD3GD3GD3LBM225,53C5NR45UC6R45U20L45D20BE5R10NU5R10U5L20ND10BFC4D3R8UL8UR8UNL8BR2R8DL8DR8DL8":(235,30),0/(226,50),6,6:"BU4C5NR8L11D5R19U5BM24????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO CONTINUE"+@ " * MACHINE LANGUAGE PROGRAM": " + ASSEMBLY LANGUAGE SOURCE";+JX$:X$""330+T X$" " 370+^I110:X$B$(I)500+hI:330+r, |: " (XX)= PAGE NUMBER OF LISTING",:,<P1114:B$(P)A$(P),B$(4P)A$(P4):P,f: " $ MS-DOS VERSION OF CCGRAPH":, " PRESS 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-JXX$430-Tꁥ240-tQ$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.".$.DQ(Q$):QQ6:SL$(Q$,Q).P& SL$,R.a "NOVEMBER".x " (11) STEVEDOR". " (26) AGEDAYS". " (34) TURING1". " (34) TURING2". " (34)*TURING". " (34)+TURING". " (34)*4CTURING"/𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%012345 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASSTEVEDORBASTAGEDAYS BAS&TURING1 BAS'TURING2 BAS(TURING BIN)TURING ASMl4CTURINGBIN4CTURINGASM*ADD BAS+CCGRAPH BASMSGRAPH BASPOPUP BAS,CALENDARBAS-MUSIC BASMLASER BAS.STATES BAS/PEEK135 BASw߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?&$:COPYRIGHT 1990 FALSOFT, INC.&> *******************&X *** AGE IN DAYS ***&r ****** BY *******&( RICHARD BARBERIAN JR.&2 *******************&< CM(50),BM(50),M(50)&F&P I 1 12: CM(I): I'Z I 1 12: BM(I): I'd I 1 12: M(I): I'Wn"ENTER TODAY'S DATE IN FORM MM,DD,YY";CC,CD,CY'x"ENTER BIRTHDATE IN FORM MM,DD,YY";BB,BD,BY'CMCM(CC):TCDCMCD'BMBM(BB):BDM(BB)BD:TBDBMBD'TYCYBY:TD((TY1)365)(TY4)TCDTBD1( TD0 : 120( ::::(.TW TD7(L 8);"YOU'VE BEEN ALIVE"(lȇ " #,###,###";TD(~҇ 14);"DAYS"(܇( 14);"AND ":( " ###,###";TW( 13);"WEEKS"(::" (PRESS ANY KEY TO CONTINUE)") A$ : A$"" 270): 120)J" 0,31,59,90,120,151,181,212,243,273,304,334){, 334,304,273,243,212,181,151,120,90,59,31,0)6 31,28,31,30,31,30,31,31,30,31,30,31 ###,###";TW( 13);"WEEKS"(::" (PRESS ANY KEY TO CONTINUE)") A$ &$:COPYRIGHT 1990 FALSOFT, INC.&B N0 3: DX(N),DY(N):&VST0:X128:Y96&f4,1::1,1&t(C(X,Y)&2 C0 ST0 C5:D(D3) 3:ST0: 90&< C0 ST1 C5:D(D1) 3:ST0: 90&F C5 ST0 C0:D(D0) 3:ST1: 90'"P C5 ST1 C5:D(D1) 3:ST0'/Z(X,Y,C)'=dXXDX(D)'On X255 X0'ax X0 X255'oYYDY(D)' Y191 Y0' Y0 Y191' 40' 0,1,1,0,0,-1,-1,0':DATA 1,1,1,-1,-1,-1,-1,15 ST0 C0:D(D0) 3:ST1: 90'"&$:COPYRIGHT 1990 FALSOFT, INC.&6 200,&H30001&XTY&H3003:DI&H301F:LO&H3028& (&H300B)26 M"TURING":&HFF40,0&( DI,0&2 LO,51: LO1,96&< &H3040,2&F &H3050,3&P TY0,0: TY1,255&Z TY2,1: TY3,0'd TY4,0: TY5,1'n TY6,255: TY7,0'*x 170'@ TY0,1: TY1,1'X TY2,1: TY3,255'r TY4,255: TY5,255' TY6,255: TY7,1'3,1::1,1':PMODE4,1:COLOR0,5:PCLS:SCREEN1,1' &H300B TY1,255&Z TY2,1: TY3,0'd TY4,0:250)(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);) (234)R$(239)(133)R$(143)R$(138)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);)(234)R$(236)(133)R$(143)R$(138)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)(208)(223)R$(229);*D(234)R$R$R$R$(143)R$R$R$(255)(240)(245)(250)(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(176)(213)(218)R$(223)R$(229);*(234)R$(239)R$R$(143)R$R$R$(255)(252)(253)(250)(159)(156)(157)(154)R$(165)(170)R$R$(188)(188)(188)(191)(213)(218)R$(223)R$(229);+(238)(236)(239)(224)R$(143)R$R$R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)R$(223)R$(229);,'(234)R$R$(224)R$(143)R$(105)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)R$R$(191)R$R$(191)(213)(218)R$(223)R$(229);,(234)R$R$R$R$(143)R$(110)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(161)(162)(191)R$R$(191)(213)(218)R$(223)R$(229);-^(234)R$R$R$R$(143)R$(99)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(165)(170)(191)R$R$(191)(213)(218)R$(223)R$(229);."(234)R$R$R$R$(143)R$R$(243)(255)(243)R$(147)(159)(145)(151)(155)(146)(167)(171)(167)(170)(191)(179)(179)(191)(213)(219)(211)(223)(225)(231);.(235)(226)R$R$(129)(143)(130)R$(195)(195)(195)(194)(195)(195)(195)(195)(193)(195)(195)(194)(195)(195)(195)(193);/l(195)(195)(194)(195)(194)(193)(195)(1950P0%003`0=003Ķ0$L J0\U=׵0ֹ=0TT:00CԵ4ৄ0X쥻00&_ &ƿ00 0 92)(196)R$;0(197)(206)(204)(200)(197)(206)(205)(206)R$(207)(204)R$(204)(204)(207)R$(207)(204)R$(197)(202)(203)(197)(202);1.R$(197)(202)R$(204)(204)(207)R$(197)(202)(192)R$(197)(202)(197)(202)R$(207)R$(202)(207)R$(207)R$;1(207)R$(202)(197)(202)(197)(199)(202)R$(197)(202)R$(207)R$(207)R$(199)(203)(192)R$(199)(203)(197)(203);2g(193)(207)(195)(202)(207)(195)(207)(193)(207)(195)(202)(199)(203)(192)(197)(203)(192)(199)(203)(192)(207)(195)(207);2I11000:""I22,1:1:1,1:1:0:1,1:65314,24822,3:1:1,32 "BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!(50,80)(78,100),,BF:(194,80)(166,100),,BF:(102,80)(142,100),,BF:(86,84)(94,96),,BF:(150,84)(158,96),,BF3s"31:423#2,3:1:1,34,$"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4%(128,116),1,1:"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4&(128,90),3,1:"BU20C1NL20C4R76C1R20"4'31:424(2,3:1:1,35E)"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5*(76,94),14,1,.8:(176,94),14,1,.8:(76,94),1,1:(176,94),1,15+(76,86)(176,102),,B:(96,90)(156,96),,BF:(128,74),3,16C,"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-31:426."BM0,54C1U42R20":(16,24),16,1,.8,.8,.17:"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"70"BR48U42R20":(154,24),16,1,.8,.8,.17:(154,44),16,1,.8,.8,.17:"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81(19000100 ORG $3000 00110 ACROSS RMB 1 00120 DOWN RMB 1 00130 DIR RMB 1 00140 TYPE FDB $0001 00150 FDB $0100 00160 FDB $00FF 00170 FDB $FF00 00180 START ORCC #$50 00190 CLR $FFDF 00200 LDU #ARRAY 00210 LDD #0 00220 ALOOP STD ,U++ 00230 CMPU #ARRAY+128*192 00240 BLO ALOOP 00250 LDB #0 00260 STB DIR 00270 00280 LDY #TYPE 00290 LDD #$2A40 00300 STD ACROS1 00310 00320 LOOP LDA #128 00330 MUL 00340 ADDB ACROS1 00350 ADCA #0 00360 LDU #ARRAY 00370 LEAU D,U 00380 LDB ,U 00390 LDA DIR 00400 CMPB #2 00410 BHS OTHER 00420 00430 INCA 00440 ANDA #3 00450 BRA CONT 00460 00470 OTHER DECA 00480 ANDA #3 00490 00500 CONT STA DIR 00510 PSET INCB 00520 ANDB #3 00530 STB ,U 00540 ANDB #3 00550 LDA #$55 00560 MUL 00570 STB $B5 00580 LDD ACROS1 00590 BSR PSET1 00600 00610 LDA #127 00620 SUBA ACROS1 00630 LDB DOWN1 00640 BSR PSET1 00650 00660 LDA #127 00670 SUBA ACROS1 00680 LDB #191 00690 SUBB DOWN1 00700 BSR PSET1 00710 00720 LDA ACROS1 00730 LDB #191 00740 SUBB DOWN1 00750 BSR PSET1 00760 BRA WRAP 00770 PSET1 STD ACROSS 00780 LDA #32 00790 MUL 00800 ADDA $BA 00810 TFR D,X 00820 LDB ACROSS 00830 LSRB 00840 LSRB 00850 ABX 00860 LDA ACROSS 00870 ANDA #3 00880 LDU #TABLE 00890 LDA A,U 00900 TFR A,B 00910 COMA 00920 ANDA ,X 00930 ANDB $B5 00940 PSHS B 00950 ORA ,S+ 00960 STA ,X 00970 RTS 00980 00990 WRAP LDB DIR 01000 LSLB 01010 LDD B,Y 01020 ADDA ACROS1 01030 ANDA #$7F 01040 ADDB DOWN1 01050 CMPB #192 01060 BNE CD1 01070 CLRB 01080 BRA CD1A 01090 CD1 CMPB #$FF 01100 BNE CD1A 01110 LDB #191 01120 CD1A STD ACROS1 01130 LBRA LOOP 01140 01150 ACROS1 RMB 1 01160 DOWN1 RMB 1 01170 01180 TABLE FDB $C030 01190 FDB $0C03 01200 01210 ARRAY RMB 1 01220 END START TART DDB CH2 01200 CMPB #192 01210 BNE CD2 T"," (81) MIRORPIX"? " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK"?' ENDNT2"," (78) FUNFACE"," (79) MARTIAN"," (80) COCOAR&$:COPYRIGHT 1990 FALSOFT, INC.&9 :ADDING MACHINE&V:"CHOOSE YOUR HEADING"&q"NO.1 TOTAL EARNINGS"&("NO.2 TOTAL INTEREST"&2"NO.3 TOTAL INCOME"&<"NO.4 TOTAL DEDUCTIONS"&F"NO.5 TAXABLE INCOME"&P"NO.6 CHECKS OUTSTNDG": R' Z R 110,130,150,170,190,210'd:"NUMBER";N:#2,"$";N"<===ADD ON":N1N:N2N2N:@78,"$"N2"**TOTAL**":#2,"$";N2"==>**TOTAL**":X1300:X:100'n#2,(20,229):#2,""'x#2,"TOTAL EARNINGS":#2,(14,241):#2,"":100(#2,(20,229):#2,""(B:#2,"TOTAL INTEREST":#2,(14,241):#2,"":100(^#2,(20,229):#2,""(#2,"TOTAL INCOME":#2,(14,241):#2,"":100(#2,(20,229):#2,""(:#2,"TOTAL DEDUCTIONS":#2,(14,241):#2,"":100)#2,(20,229):#2,"")@ȇ#2,"TAXABLE INCOME":#2,(14,241):#2,"":100)\҇#2,(20,229):#2,"")܇#2,"CHECKS OUTSTANDING":#2,(14,241):#2,"": 1002,(20,229):#2,""(:#2,"TOTAL DEDUCTIONS":#2,(14,241):#2,"":100)#2,(20,229&$:COPYRIGHT 1990 FALSOFT, INC.&L :POP-UP MENUS.BY:DOUGLAS B. LIMING& 3 : COUNT5 : BL128 16 (31) 15 : ITEM$(12),CHEK$(12,15)& : : @ 10,"POP-UP MENU" : @ 39,"BY: DOUGLAS B. LIMING" : &( H0 63 : (H,5,2) : H'2 Y1 COUNT : ITEM$(Y) : Y'V< ITEM ONE,ITEM TWO,ITEM THREE,ITEM FOUR,ITEM FIVE'zF U1 COUNT : TU1 COUNT'P (ITEM$(U))(ITEM$(T)) BIG$ITEM$(U) : BIG$ITEM$(T)'Z T : U'dHOP(BIG$) : BIG(HOP2) : BEGIN15BIG(nSPCE$" "(/x D1 HOP : SPCE$SPCE$" " : D(sSTART(COUNT2) : OPSSTART32 : OP256OPS : STBEGIN(OP1)( K1 COUNT(JAKE((BEGINOP)32) : @ BEGINOP,SPCE$;(CHEK$(K,JAKE)ITEM$(K) : @ BEGINOP,ITEM$(K); : OPOP32 : K)HOTST ) @ ST,"*";)\PUSH$ : PUSH$(94) PUSH$(10) PUSH$(13) 190)oȇ @ ST,(BL);)҅ PUSH$(94) STHOT STST32 : STHOT(32(COUNT1)))܅ PUSH$(10) STHOT(32(COUNT1)) STST32 : STHOT* PUSH$(13) 190,1 : 250*% 180*7 Y1 COUNT*IDAW(ST32)*y CHEK$(Y,DAW)ITEM$(Y) PIC$CHEK$(Y,DAW)* Y*" : @ 192,"YOU CHOSE ";: PIC$*,)))܅ PUSH$(10) STHOT(32(COUNT1)) STST32 : STHOT* PUS& "READING A CALENDAR"&S"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1990"&d5:R()&(@3,"calendar for november,1990";&2@64," S M T W T F S "&<@115,"1 2 3 "&F@131,"4 5 6 7 8 9 10 "'*P@162,"11 12 13 14 15 16 17 "'VZ@194,"18 19 20 21 22 23 24 "'d@226,"25 26 27 28 29 30 ";'n 250,1:@288,(64," ");:@384," ":@288,"";(xA1(23):B1(17):C1(20):D(8)1:E(19)1:F(10)20:G(2)1(/S(6): S 140,170,200,230,260,290(s"ELECTION DAY IS ON NOVEMBER 4. WHAT DATE IS";A;"DAYS LATER";({ Z(Y4A: 320("VETERANS DAY IS ON NOVEMBER 12. WHAT DATE IS";B;"DAYS LATER";( Z(Y12B: 320)0ȇ"THANKSGIVING IS ON NOVEMBER 22. WHAT DATE IS";C;"DAYS EARLIER";)8҉ Z)JY22C: 320)|"WHAT DATE IS";D;"DAYS AFTER":"NOVEMBER";E;) Z)YDE: 320)"WHAT DATE IS";E;"DAYS BEFORE":"NOVEMBER";F;) Z)YFE: 320*""WHAT DATE IS";G;"WEEKS AFTER":"NOVEMBER";D;*, Z*16YD(7G): 320*[@ ZY @396,"CORRECT":"L30CDEFGGG"*J ZY @384,"SORRY,";Y;"IS THE ANSWER.":"L4B-"*TEN$*^ EN$(13) 110 : EN$"E" 360 : 340*h:E: 320*""WHAT DATE IS";G;"WEEKS &$:COPYRIGHT 1990 FALSOFT, INC.&G :****************************&j:* LASER CYCLES *&:* COPYRIGHT (C) 1985 BY *&(:* ROBERT ROGERS *&2:* VERSION 1.1 JUNE 1986 *&<:* FOR 4K COLOR BASIC COCOS *'F:****************************'#P390'LZ0:@228,"PRESS ANY KEY WHEN READY";'Wd44539'nX(1)9:Y(1)15:C(1)3:Z(1)1:J(1)2:K(1)3'xX(2)54:Y(2)15:C(2)4:Z(2)2:J(2)0:K(2)1'0:E0'T110:B$B$(128):T'Q(8):Q3 Q4 150(X162:(X,1,Q):(X,30,Q):X(>Y130:(1,Y,Q):(62,Y,Q):Y(^@235,"GET READY!";:125,20(~@235,"GET SET!!!";:147,15(ȇ@235,"GO!!!!!!!!";:218,10(҇@235,B$;(܀T12(A(J(T)):B(K(T))(A10 Z(T)1:280)A53 Z(T)2:280)B20 Z(T)3:280)5B43 Z(T)4:280)PZ(T)290,300,310,320)f"X(T)X(T)1:330)|,X(T)X(T)1:330)6Y(T)Y(T)1:330)@Y(T)Y(T)1:330)J(X(T),Y(T))01,10:(X(T),Y(T),5):Q11000:Q:490)T(X(T),Y(T),C(T))*^T*#h(345)247230,10:44539*-rEE1*7|220*MA1:B63:C1:D31*T0*L(4):XA1 B:(X,C1,L):X:BB1:AA1:(255),1*YC D:(B1,Y,L):Y:DD1:CC1:(255),1*C17 480+ XB A1 1:(X,D1,L):X:BB1:AA1:(255),1+?€YD C 1:(A2,Y,L):Y:CC1:DD1:(255),1+N̅C17 480+Xց410+@266,"LASER CYCLES";:200,6:@456,"BY ROBERT ROGERS";:Q11000:Q:+T1T2::T1+(C(T)):@224," PLAYER"T"WON!",S12::Q113:A,B:A,B:Q:S,Y 204,2,204,4,193,4,204,2,204,4,193,4,185,2,193,2,197,2,193,4,185,2,193,4,176,4,Q2048E:Q(Q.1):EE10:EEQ:@224," YOUR SCORE IS"E"PLAYER"T,Q11000:Q,&(C(T)):@224," PLAYER"T"WON!",S12::Q113:A,B:A,B7&"***************************&C* THE FIFTY STATES *&d* COPYRIGHT (C) 1990 *&* BY FRED B. SCERBO *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************& 3000'+0:(32,188);(32,204);:I1128:A:(A128);:'G(32,195);(32,179);'126,124,124,124,120,113,124,124,124,114,48,53,60,60,56,62,61,60,58,62,60,60,58,62,61,60,58,62,60,53,60,60(123,115,115,115,,117,,,112,122,48,53,51,51,50,56,53,,56,59,51,51,58,56,53,,56,59,51,53,51,51(^#,,,112,122,117,,,112,122,,48,,,58,,53,,,58,,48,58,,53,,,58,,,,53((121,115,115,115,120,116,115,115,115,120,48,49,51,51,58,,55,50,,59,48,49,58,,55,50,,59,51,49,51,55)-@358," AN INTRODUCTION TO ";:@390," THE FIFTY STATES ";)I2@422," BY FRED B.SCERBO ";:@454," COPYRIGHT (C) 1990 ";)b7X$:X$(13)55)< P$(50,2),A$(6),B$(50),C$(50),A(50),N(50),B(4),C(4),D(4),E(4),F(4),AO(50))AI13: C(I),D(I),E(I),F(I)::I16:A$(I)::I150:P$(I,1),P$(I,2):*F1,0*K::(32,"=");:@102,"AN INTRODUCTION TO":@135,"THE FIFTY STATES":@199,"A) REVIEW STATES":@263,"B) QUIZ STATES":@327,"C) QUIZ NAMES"*P@388,"<<