&5d: PROGRAM TO LIST ALL PERMUTATIONS OF A PHRASE&@n 2000&Fx&] "WORDS: "; WD$&iA$ ""& I 1 ( WD$ )&B$ ( WD$, I, 1 )& ( B$ ( 64 ) ) ( B$ ( 91 ) ) A$ A$ B$& I' ( A$ ) 190,360,340,320,300,280,260,240,220,200'CȀ K 1 10: 220: J 10: 380: 'IҊ's܀ L 1 9: 240: J 9: 380: ' ( A$ ) 9 120 : ' M 1 8: 260: J 8: 380: ' ( A$ ) 8 120 : (  N 1 7: 280: J 7: 380: (* ( A$ ) 7 120 : (T O 1 6: 300: J 6: 380: (u" ( A$ ) 6 120 : (, P 1 5: 320: J 5: 380: (6 ( A$ ) 5 120 : (@ Q 1 4: 340: J 4: 380: ) J ( A$ ) 4 120 : )5T R 1 3: 360: J 3: 380: )V^ ( A$ ) 3 120 : )h S 1 2: J 2: A$,: 380: )r ( A$ ) 2 120 : )|: SUBROUTINE TO ROTATE PORTION OF WORD): ENTER WITH J=# OF LETTERS IN GROUP*: ENTER WITH A$=WORD*1: EXIT WITH A$=ROTATED WORD*FJ ( A$ ) J*fB$ ( A$, ( A$ ) J )*B$ ( B$, ( B$ ) 1 ) ( B$, 1 )*A$ ( A$, J ) B$*̐OTATE PORTION OF WORD): ENTER WITH J=# OF LETTERS IN GROUP*: E7,11,11A% 11,11,11,3,3,35,36,11,11AF 11,11,11,26,26,64,57,11,11Ag 11,11,11,35,36,38,39,11,11A 11,11,11,3,3,18,57,15,62A 11,11,11,31,41,42,44,11,11BY3:@0," BULLETIN BOARD POSTER PRINTER":@32,(32,42);:@102,"FOR COLOR COMPUTERS";:@134," I - II - III ";:@166,"AND DMP-130 PRINTER";:@229,"BY: GEORGE QUELLHORST";C@288,"INDICATE WHICH COMPUTER YOU HAVE":@325," PRESS <1> <2> <3> ":@384,"IF YOUR MACHINE DOES NOT OPERATE";:@416,"WITH THE SPEED-UP POKE,(65495,0)":@455,"YOU MUST PRESS <1>"C_P$:P$""252:P$"1":253:P$"2":254:P$"3":255:252C@259,"LOADING DATA PLEASE WAIT":279:273C65495,0:@259,"LOADING DATA PLEASE WAIT":279:273D$65497,0:40::1:7,12:0,0:"LOADING DATA PLEASE WAIT":1,0:38,12:279:256DG0:282,0:80::1,0:2:11,0:3,2:"S E L F C E N T E R I N G P O S T E R P R I N T E R";:2,1:78,0:3,1DF2122:GG1:5,F:G;:HG6:H12258:40,F:H:FE;3,15:3,2:" Input the amount of characters for line number one and press ENTER. ";:3,1E3,16:3,2:"The following line lengths are available: < 8 > - < 13 > - < 16 > - < 22 >";:3,1F3,17:3,2:"You must stay within the [brackets ]. Press ENTER before the last bracket.";:3,1FZ8,19:3,3:"Press ENTER immediatly after the message to center your message.";:3,1F8,20:3,3:" Press ENTER just before the last bracket to left justify. ";:3,1G 10,22:3,2:"ENTER ANY LINE LENGTH AND PRESS ENTER-ENTER FOR AN EMPTY LINE.";:3,1Gc10,23:3,2:" ENTER ANY LINE LENGHT AND SHIFT/UP - ENTER TO QUIT INPUT ";:3,1G 3,1:G1:B9:C13:F2122:267G G7:F2122G B,F:"";B$(G):G640,F:G612G6H  A(B$(G)):A8 A13 A16 A22 B,F:(25,32);:267Hg AAC:A,F:"]";:B2,F:"[";:"";A$(G):A$(G)(95)272:A,F:"]":G61240,F:G6HGG1:G12272:FHBB35:C48:266H:40:1:0,0:282,255:65496,0:3H:282,0:@1,"SELF CENTERING POSTER PRINTER":@32,(32,42);IUS96:F111:@S,F:SS32:F:@481,"LINE WIDTHS ARE: [8-13-16-22]";:S100:F111I@S,"";:"";B$(F):A(B$(F)):A8A13A16A22@S,(25,32):275:@S2,"["IA(AS4):@A,"]";:@S3,"";:"";A$(F):A$(F)(95)278:@A,"]"JSS32:FJ#282,255:65494,0:CT1:9J`X198:Y16: A(X,Y):::X190:Y19:L(X,Y):::J{,:Printer codes gosubsJ-#2,(27);(29);(27);(14);:DP((576(LC(D)72))2):: 8 Characters double strike.K:.#2,(27);(23);(27);(14);:DP((576(LC(D)72))2):: 8 Characters single strikeK~/#2,(27);(18);:DP((480(LC(D)36))2):: 13 Double st.K0#2,(27);(19);:DP((480(LC(D)36))2):: 13 Single st.L!1#2,(27);(29);:DP((576(LC(D)36))2):DP255DQ1:DPDP255::: 16 Double str.L~2#2,(27);(23);:DP((576(LC(D)36))2):DP255DQ1:DPDP255:::16 Single st.L3#2,(27);(23);(27);(20);:DP((960(LC(D)42))2):DP255DQ1:DPDP255::((576(LC(D)36))2):DP255DQ4,239,224,252,251,224,224,239,252,251,224,224,224,239,239,254,224,224,224,239,224,253,254,224,224,239,224,224,253,254,224,239,254,224,252,239,2240Vh 239,253,239,251,239,224,239,224,239,224,239,224,239,254,224,224,239,224,239,253,254,224,239,224,239,224,253,254,239,224,239,224,224,253,239,224,239,239,239,239,251,224,224,224,224,224,253,2541i 253,239,239,239,239,224,253,239,239,239,254,224,253,254,224,252,251,224,224,253,239,251,224,224,239,254,239,252,239,224,224,252,239,254,224,224,252,251,224,253,254,224,224,224,224,252,251,2241j 224,224,252,251,224,224,224,252,251,224,224,224,252,251,224,224,224,224,252,239,239,239,239,224,239,239,239,239,254,224,224,224,252,239,239,224,224,239,239,239,224,224,224,239,239,224,224,2242k 252,251,253,254,224,224,239,252,239,239,254,224,239,251,224,224,239,224,239,251,239,224,239,224,239,232,232,232,232,224,231,231,231,231,239,224,252,239,239,254,239,224,239,224,224,239,239,2243nl 253,239,239,251,239,224,224,224,224,253,254,224,239,232,232,232,239,224,239,231,231,231,231,224,224,239,224,224,252,224,224,253,239,239,251,224,224,239,224,224,224,224,239,224,239,252,239,22444m 224,224,224,239,224,224,254,224,224,239,224,224,253,239,239,251,224,224,224,239,224,239,224,224,239,224,239,224,224,224,224,224,239,224,239,224,235,236,224,224,252,224,237,238,224,252,251,2244n 252,251,224,235,236,224,251,224,224,237,238,224,239,224,224,252,253,224,224,224,252,239,224,224,224,224,253,239,224,224,224,253,254,224,224,224,224,239,254,224,224,224,224,224,253,254,224,2245o 224,239,251,224,224,224,253,254,239,252,251,224,252,251,239,253,254,224,224,224,224,224,252,224,251,224,224,224,224,224,252,239,239,239,251,224,239,224,224,239,224,224,239,224,252,239,239,2246p 239,224,253,239,251,224,253,254,224,224,224,224,251,224,224,252,251,224,251,224,239,224,253,224,254,224,224,224,252,224,251,224,224,224,253,224,239,251,224,253,239,224,239,252,239,254,239,224,254,224,224,224,224,224,224,224,224,224,253,2246: Characters data6 12,12,12,12,12,11,12,11,117 68,68,68,11,11,11,11,11,117. 68,68,7,68,7,68,68,11,117M 12,1,69,34,70,4,12,11,117n 11,71,72,41,42,73,74,11,117 38,68,36,38,39,75,67,11,117 63,43,11,11,11,11,11,11,117 76,42,63,63,63,78,77,11,117 79,80,65,65,65,41,81,11,118 11,11,11,82,36,38,83,11,1183 11,11,12,12,7,12,12,11,118T 11,11,11,11,11,11,63,43,118t 11,11,11,11,7,11,11,11,118 11,11,11,11,11,11,63,11,118 11,84,40,41,42,43,85,11,118 1,3,3,3,3,3,4,11,118 48,12,12,12,12,12,47,11,119 1,15,15,86,14,14,7,11,119/ 1,15,15,17,15,15,4,11,119P 87,87,87,33,65,65,65,11,119o 7,14,14,34,15,15,4,11,119 1,14,14,45,3,3,4,11,119 7,40,41,42,43,14,14,11,119 1,3,3,7,3,3,4,11,119 1,3,3,33,15,15,4,11,11: 11,11,11,12,11,11,12,11,11:% 11,11,11,12,11,11,12,42,11:F 40,41,42,63,78,80,58,11,11:e 11,11,11,7,11,11,7,11,11: 78,80,58,15,40,41,42,11,11: 1,3,91,41,12,11,12,11,11: 1,3,88,26,89,90,36,11,11: 1,3,3,7,3,3,3,11,11: 2,8,8,17,8,8,13,11,11; 1,3,14,14,14,3,4,11,11;2 2,8,8,8,8,8,13,11,11;N 1,3,14,9,14,3,4,11,11;l 1,3,14,9,14,14,14,11,11; 1,3,14,14,10,3,4,11,11; 3,3,3,7,3,3,3,11,11; 47,12,12,12,12,12,47,11,11; 5,15,15,15,16,3,4,11,11< 18,19,20,21,22,23,3,11,11< † 6,14,14,14,14,3,4,11,11<>Æ 93,24,25,26,3,3,3,11,11<\Ć 3,27,28,29,30,3,3,11,11҆ 11,97,90,78,80,58,98,11,11>"ӆ 47,65,65,65,65,65,47,11,11>CԆ 38,83,92,12,12,12,12,11,11>[Ն 0,0,0,0,0,0,0,0,0>sֆ 0,0,0,0,0,0,0,0,0>׆ 11,11,11,58,55,56,57,11,11>؆ 14,14,14,45,3,3,4,11,11>ن 11,11,11,1,14,14,4,11,11>چ 15,15,15,44,3,3,4,11,11?ۆ 11,11,11,1,59,60,4,11,11?/܆ 46,12,12,47,12,12,12,11,11?L݆ 11,11,11,1,3,3,33,15,4?kކ 14,14,14,50,51,3,3,11,11?߆ 11,12,11,48,12,12,47,11,11? 11,65,11,65,65,65,65,66,67? 14,14,18,19,9,22,23,11,11? 48,12,12,12,12,12,47,11,11@ 11,11,11,50,52,26,26,11,11@. 11,11,11,50,51,3,3,11,11@K 11,11,11,1,3,3,4,11,11@i 11,11,11,1,3,3,31,14,14@ 11,11,11,1,3,3,33,15,15@ 11,11,11,50,51,14,14,11,11@ 11,11,11,1,53,54,4,11,11@ 63,63,63,9,63,61,62,11,11A 11,11,11,3,3,18,5`"TIME:"TT"SECONDS."/-j AA0 1000: AA/5t A/A~ 1410/Y AT271 268 1/cA$/y A$(9) 1710/@AT,(128);/ T0 10: T/@AT,(207);/Ā T0 10: T/΅ A$"0" A$"1" 1240 : 1170/B$A$B$0@AT,A$;0  AT00) AT273 266 103 A$0N 59 0:TTTT10g A$(9) 17600y(@AT,(128);02 T0 10: T0<@AT,(207);0F T0 10: T0P A$"0" A$"1" 1370 : 12900ZB$A$B$0d@AT,A$;0n AT0x11 RR1 N$1("EVALUATION"1M" PROBLEM NUMBER NUMBER"1q" NUMBER WRONG RIGHT"1"--------------------------------"1 " 1 THRU 5 "W" "R1ȇ " 6 THRU 10 "W1" "R12҇ "11 THRU 15 "W2" "R22'܇ "16 THRU 20 "W3" "R32I:"YOU GOT"WW1W2W3"WRONG"2j"OUT OF 20 QUESTIONS FOR A"2P((RR1R2R3)20)1002"PERCENTAGE OF"P"%."2 RR1 16102"O",#1,(N$,8)2"#1,R,R1,R2,R3,W,W1,W2,W3,N$2, #136"THANK YOU "N$3,@"PRESS ANY KEY TO BEGIN NEW TEST"3FJ "" 1610 : 16203VT RR0 103a^:RR13wh"NAME OR XIT"3r N$3| N$"E" 103"I",#1,N$3 #1,R,R1,R2,R3,W,W1,W2,W3,N$3 #13 14103 TA268 271 3 @TA," ";4‹ TA4B$""4ց 11604- TA266 2734;@TA," ";4D TA4NB$""4Z 1280RR13wh"NAME OR XIT"3r N$3| N$"E" 103"I",#1,N$3 #1,R,R1,R2,R3,W,W1,W2,W3,N$3 #13 14103 TA268 271 3 @TA," ";4&&;1:2000:A(98,6),L(90,9),A$(11),B$(11),PC(11),LC(11)&Z150,18:250:Z$(30,32)&:9,0:3,2:"PRINT THIS <";:3,2,B:"Y";:3,2:"> OR <";:3,2,B:"N";:3,2:">O";:1,0:38,0&D111:PC(D)(B$(D)):LC(D)(A$(D)):PC(D)8B$(D)"08"'1D$(D):(D$)9D$"0"(D$,1):D$(D$,2)'{K$"Line:"D$".("B$(D)"): "A$(D):2,(D2):0,0:K$:D:1,0:38,22'0,0:P$:P$"Y"8:P$"N"256:7'#2:#2:8,0:Z$:8,0:3,2,B:"N O W P R I N T I N G";:1,0:38,0:1,0:14(n S64::@4,"PRINT THIS ES OR 0":@32,(32,45);:D111:PC(D)(B$(D)):LC(D)(A$(D)):PC(D)8B$(D)"08"( D$(D):(D$)9D$"0"(D$,1):D$(D$,2)( SS32:@S,D$;".(";B$(D);"):";A$(D):D( P$:P$"Y"13:P$"N"273:12)" #2:#2:@4,"N O W P R I N T I N G";)dD111:#2,(27);(28);(27);(15);(27);(85);(0);)DQ0:PC(D)8302:PC(D)13304:PC(D)16306:PC(D)22307)T19:#2,(27);(16);(DQ);(DP);:Q1(A$(D)):Y16*A$(D)""I111:#2:I:23*FA$(D)(95)CT128:A$(D)(95)CT024*{V((A$(D),Q,1))32: V0 #2,(32);:21*#2,(A(L(V,T),Y));*Y:Q*#2:T:#2:#2*D:T19:#2:::T110:180,1:T:CT128:24+):5,3:3,2:"YOU HAVE THE FOLLOWING OPTIONS";:1,0:38,0+9,8:0,0:"1. PRINT ANOTHER COPY":9,10:"2. START A NEW POSTER":9,12:"3. QUIT":9,16:3,2,B:"PRESS NUMBER DESIRED";:1,0:38,16+0,0:P$:P$""26:P(1,"123",P$)::P13:P227:P332::26,.T111:M111:A$(M)"":B$(M)"":M:256,32:@33,"YOU HAVE THE FOLLOWING OPTIONS":@64,(32,42);:@165,"1. PRINT ANOTHER COPY":@229,"2. START A NEW POSTER":@293,"3. QUIT",P$:P$""29:P(1,"123",P$)::P19:P230:P3:-"M111:A$(M)"":B$(M)"":M:273->d: Graphics blocks data.e 252,239,239,239,254,224,236,239,239,239,254,224,239,224,224,224,239,224,253,239,239,239,251,224,224,224,224,253,239,224,239,251,224,224,224,224,239,239,239,239,239,224,234,233,224,224,239,224.f 239,239,239,224,224,224,239,224,224,239,239,224,224,224,224,224,224,224,224,224,239,224,224,224,238,239,239,239,251,224,239,224,224,224,224,224,224,224,224,224,239,224,254,224,224,224,239,224/g 234,239,239,239,239,224,239,224,224,252,239,22&#2:#2:#2&6 #2,(27)(69)(27)(71)&\A:A100 #2,8)(A32);:20&}A0 #2,(A,B32);: 20&(A0 #2:20&2(A) 60,70,80:20&<#2,28)(14)"CHARLES E. BROWN JR":'F#2,39) "ROUTE 1, BOX 590":'<P#2,31) "WHITE STONE, VIRGINIA 22578-9765":'tZ 151,131,131,131,131,131,131,131,131,131,131,171,0'_ 149,128,170,151,139,133,170,151,171,149,128,170,-1'd 149,128,170,149,160,144,170,151,171,148,128,170,-2(#n 149,128,138,141,142,133,138, 141,142,133,128,170,-3([x 141,140,140,140,140,140,140,140,140,140,140,142,0(}#2,(27)(70)(27)(72)(:PERSLOGO/BAS, 870429. WILL PRINT PERSONAL LETTERHEAD AND GRAPHICS,171,148,128,170,-2(#n 149,128,138,141,14[&- : PROGRAM DEVELOPED AND WRITTEN BY&F: ERIC LEVINSON&d: 1039 NEVADA STREET&(: GLENWOOD, IL 60425&2: (312) 799-6747&<: COPYRIGHT (C) 1987&F 5000&P B$(255)&Z&d"BINARY ARITHMETIC"' n"BY ERIC LEVINSON"'$x"WHAT IS YOUR NAME";'- N$'L N$"PRINT SCORES" 1630'["STANDBY"'dAA0'r A0 1' B0 1' C0 1'Ȁ D0 1'҅ A1 A$"1": A$"0"'܅ B1 B$"1": B$"0"' C1 C$"1": C$"0"( D1 D$"1": D$"0"(#B$(AA)A$B$C$D$(/AAAA1(= D,C,B,A(K A1 5(Q"(m,A1(16)1:A2(16)1(6 A1A215 300(@@0,"PROBLEM #"A(J@172,B$(A1)(T@203,"+"B$(A2)(^@235,"-----"(hB$""(r 1160(|ANS$B$(A1A2)) B0 15)" B$B$(B) 410 : B)F BA1A2 @267,"RIGHT":RR1)k BA1A2 @267,"WRONG":WW1) AA0 1000: AA) A)€ A6 10)̞)A1(16)1:A2(16)1) A1A20 470)@0,"PROBLEM #"A)@172,B$(A1)* @203,"-"B$(A2)*@235,"-----"*%B$""*1 1160*D&ANS$B$(A1A2)*S0 B0 15*o: B$B$(B) 580 : B*D BA1A2 @267,"RIGHT":R1R11*N BA1A2 @267,"WRONG":W1W11*X AA0 1000: AA*b A*l A11 15*v+ A1(16)1:A2(16)1+" A1A215 640+: A10 A20 640+O@0,"PROBLEM #"A+`@172,B$(A1)+t@203,"*"B$(A2)+@235,"-----"+B$""+Ё 1160+ANS$B$(A1A2)+ B0 15+ B$B$(B) 760 : B, BA1A2 @267,"RIGHT":R2R21,' BA1A2 @267,"WRONG":W2W21,> AA0 1000: AA,F A,l :"THE NEXT TEST WILL BE TIMED.",*"STANDBY FOR 8 BIT NUMBERS.",4AA16,> E1 15,H A0 1,R B0 1,\ C0 1,f D0 1,p A1 A$"1" : A$"0"-z B1 B$"1" : B$"0"-6 C1 C$"1" : C$"0"-S D1 D$"1" : D$"0"-pB$(AA)B$(E)A$B$C$D$-|AAAA1- D,C,B,A,E- A0 15:B$(A)"0000"B$(A): A- A16 20-ʞ:TT0-A1(256)1:A2(256)1.ޅ A1A2255 980.@0,"PROBLEM #"A.'@170,B$(A1).;@201,"+"B$(A2).Q@233,"---------".[B$"".d0.p$ 1280..ANS$B$(A1A2).8 B0 255.B B$B$(B) 1100 : B.L BA1A2 @265,"RIGHT":R3R31.V BA1A2 @265,"WRONG":W3W31/&# :***************************&E:**PHRASE CENTERER**********&g:**A COCO QUICKY**********&(:**BY GIP WAYNE PLASTER*****&2:***************************&<&F "STRING:";S$&PL(S$)&ZL32"TOO LONG":70'd"THIS PHRASE HAS"L"CHARACTERS."'@n"ON WHAT LINE DO YOU WISH TO PRINT?"'Ux"ENTER 1-16:";R'R16 R1120:: WILL NOT ALLOW MORE THAN 16 OR LESS THAN 1'RR1:: CONVERT LINE TO COMPUTER'S NUMBERING SYSTEM'LNR32:: CONVERTS FOR 32 COLUMN SCREEN(3X(32L)2:: FIND NUMBER OF SPACES BEFORE PHRASE(WCCLNX:: ADDS SPACES AND LINE(LC(CC):: MAKES SURE NUMBER IS INTEGER("THE PRINT @ LOCATION IS";LC(ȇ"DO YOU WANT TO TRY AGAIN?"(A$:A$""210(܅A$"Y"70 COLUMN SCREEN(M& :-BLOCKOUT-'&(:BY TONY OWENS'&?:MONMOUTH,OREGON'&(A(16):B(16):C(16):D(16):E(16):Y(16):V8:LV0:"T255L255"&20:EGEG1: EG2 360&o#2,"#------------"(cs#2,"-------------------------"(mt 80(|x"DONE!!!"WOULD YOU LIKE ON YOUR FIFTH LINE?"'K E$'L"THIS WILL PRINT CONTINUSLY."'M"NOW PRINTING......."'P#2,A$(U#2,e&#2,6);"HANDY GRAPHICS CODE REFERENCE CHART":#2,6);"COLOR","+PATTERN","=CODE#"::INSERT FANFOLD PAPER, TURN ON PRINTER, BUT WATCH SCREEN!'dC18:P015:D12816(C1)P:"CODE#"D"="(D)(13):#2,6);C,P,D:P:C:#2,6);"1=GREEN 2=YELLOW 3=BLUE 4=RED 5=BUFF 6=CYAN 7=MAGENTA 8=ORANGE":#2,6);"FOR PATTERNS CONSULT COCO OWNER'S MANUAL"OLD PAPER, TURN ON PRINTER, BUT WATCH SCREEN!'dC18:P015:D12816(C1)P:"CODE#"D"="(D)(13):#2,6);C,P,D:P:C:#2,6);"1=GREEN 2=YELL27170/)T2701:(J$,T,1)" "175///[W$J$C$:F(W$):@MD,W$;(XF,32):/W$(J$,T):C$"":W$W$C$:F(W$):@MD,W$;(XF,32):C$D$:J$S$(J$,((J$))T):DD32:155/J150: A$(J):A$(J)"END"190/J/0:JJ10ÀI1J0AO(I)(J)0,ͅNP(AO(I))1 2000?NP(AO(I))1:I0J׀P1J0ܞ:@232,"PLEASE STAND BY":A$"":B$"":R$"":C$"":D$"":S$" "0Q$A$(AO(P)):K(Q$)0N1K:(Q$,N,1)" "2400A$A$(Q$,N,1)0N1K(Q$):B$(A$,3):N4K1R(12):R42601(B$B$" "1@B$B$(A$,N,1):N1 :@35,"DECODE STATEMENT NO.";P:M96::J$" "B$:X31:1501M289:@289,"=>"(128);1X29:C$(128):D$(128):S$" "2Y$:Y$"@"345:Y$(13)300:Y$(8)290:Y$""28027R$R$Y$:J$" "R$:@291,"";:150::2802I"(R$)12802'M289:L(R$):R$(R$,L1):@M,"";:J$" "R$:150::2802,R$Q$305:31521@480," YOU ARE ABSOLUTELY CORRECT!! ";26CRCR1:3353 ;@480," SORRY, THAT IS NOT CORRECT !";3@IRIR13AEX$:X$(13)330:X$"@"345:3253\J@480,(30,32);:2803OX$:X$(13)340:X$"@"345:3353TP3Y:@128,"";3^LCRIR: L0 L13c" NUMBER CORRECT = "CR3h3m" NUMBER WRONG = "IR4*r:" STUDENT SCORE = ";(CR100L);"%"4Lw:" ANOTHER TRY (Y/N/C)";4a|W$:W$""3804r W$"Y" 4 W$"N" :4 W$"C" 22043804ނ ENTER DATA AT LINE 10004 "FOOD IS AN ESSENTIAL PART OF EVERYONE'S DAILY LIFE."5E "WATER IS AN EVEN MORE IMPORTANT PART OF A PERSON'S DAILY INTAKE."5 "YOU COULD GO FOR MORE DAYS WITHOUT FOOD THAN YOU COULD WITHOUT WATER."5 "HUMANS ALSO NEED A CERTAIN AMOUNT OF SLEEP EACH DAY."6 "THE HUMAN BODY MUST BREAK DOWN FOOD BEFORE IT CAN BE ABSORBED."6^ "MANY PEOPLE BELIEVE THAT ALL-NATURAL FOODS ARE BETTER FOR YOU."6$ "SOME PEOPLE GET VERY UPSET WITH THE CHEMICALS THEY FIND IN THEIR FOOD."6. "GOOD EATING HABITS USUALLY LEAD TO GOOD HEALTH."78 "TOO MUCH SUGAR IN YOUR DIET IS NOT GOOD."7LB "FIBER IS AN IMPORTANT PART OF YOUR DIET, TOO."7V ENDYOU."6$ "SOME PEOPLE GET VERY UPSET WITH THE CHEMICALS THEY FIND IN THEIR FOOD."6. "GOOD EATING HABITS USUALLY LEAD TO GOOD HEALTH."78 "TOO MUCH SUGAR IN l&- "REVIEW OF SYNONYMS-HOMONYMS-ANTONYMS"&e"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1988"&nN40&( A$(N),A(N)&2P$(32,191)&< T1 N&F A$(T),A(T): T&P:XX1&Z@2,"homonyms-antonyms-synonyms";&d@64,P$&nR(N)' x@98,A$(R)'@128,P$':@160,"1.BOTH ARE SYNONYMS"'Z@196,"2.BOTH ARE HOMONYMS"'z@232,"3.BOTH ARE ANTONYMS"'@268,"4.NONE OF THE ABOVE"'@288,P$'@321,"WHICH TYPE ARE THESE WORDS? ";'EN$(҅ EN$"1" EN$"2" EN$"3" EN$"4" 220 : 200(܇EN$(P (EN$)A(R) @395,"CORRECT":CC1: 250(v@389,"SORRY, THE ANSWER IS";A(R)(@454,"PRESS ENTER TO GO ON";(AN$( AN$(13) 80 : AN$"E" 280 : 260)@452,"YOUR FINAL SCORE IS";(CX100);"%.":)" COARSE-COURSE,2)., METE-MEET,2)A6 SCENT-CENT,2)V@ HAPPY-JOYOUS,1)iJ NICHE-NOOK,1)|T NOOK-KNOCK,4)^ PARE-PEAR,2)h KNIGHT-AFTERNOON,4)r SLIM-THIN,1)| SNEER-FROWN,1) STEAK-STAKE,2) SITE-CITE,2* REIN-REIGN,2* THEIR-THOSE,4*+ FOR-FOUR,2*? THEIR-THERE,2*R† THERE-HERE,3*ĭ DIRTY-SPOTLESS,3*}ֆ COLD-FRIGID,1* FRIGID-WARM,3* ICY-FRIGID,1* FRIGID-RIGID,4* OPEN-SHUT,3* SHUT-SHOOT,4* SHOOT-CHUTE,2+ BEACH-BIRCH,4+& BEACH-BEECH,2+.0 SECURE-SAFE,1+A: LEAVE-EXIT,1+TD LEAVE-LIVE,4+kN KING-SOVEREIGN,1+X KING-PEASANT,3+b SOVEREIGN-PEASANT,3+l KING-RING,4+v ROUGH-SMOOTH,3+ ROUGH-SLEEK,3+ SLEEK-SMOOTH,1, UNFAILING-CERTAIN,1, AMBITIOUS-LAZY,3,4 INDUSTRIOUS-LAZY,3,R AMBITIOUS-INDUSTRIOUS,1,k HARMFUL-HARMLESS,3X KING-PEASANT,3+b SOVEREIGN-PEASANT,3+l KING-RING,4+v ROUGH-SMOOTH,3+ ROUGH-SLEEK,3+ SLEEK-SMOOTH,1, UNFAILING-CERT{&o(~~~~Y& {@ N& {🈎(~~3'4& n}8{{{{Hy{Hy{.|{{|l%|{{ %{}{'{%d4"{:愎=:譴|{5"9|{{{{{I% { #}{' |{}{'| {{|{{%|{{ %{}{'  [{%Ŏ``큌%~~E' O&&| '| ǽ~}l~B&}|}| W&}|}|9{{:9ƀ{{'t{Z 99 9{9 { 9@{@9܍9׍9܍9``큌}%0~~p焆}~0+"p0\t%9`{}{& {%94' ',@'p'5'~l'4'' {O_큌{%9覀' 9' 9'9 T L S S O F T W A R E P R E S E N T S ~ IMAGE V1.3 FOR THE RADIO SHACK CGP-220ENLARGE ?PMODE ? 0=BLACK 4=BLUE 1=WHITE 5=YELLOW 2=RED l 6=VIOLET 3=GREEN 7=MAGENTATYPE COLOUR # FOR SCREEN VALUEeVEN RED OR oDD RED?PRINT SET BITS AS bLACK OR wHITEC }}}}}}}}{ SHACK CGP-220ENLARGE ?PMODE ? 0=BLACK 4=BLUE 1=WHITE 5=YELLOW 2=RED l 6=VIOLET 3=GREEN 7=MAGENTATYPE COLOUR # FOR SCREEN VALUEeVEN RED OR oDD REW&  ************************&? * DECODING SKILLS *&^ * A DECODING GAME *&} * BY FRED B.SCERBO *& * 60 HARDING AVE. *& * NORTH ADAMS,MA 01247 *& * COPYRIGHT (C) 1988 *& ************************'8 3000:0:(32,188);(32,204);:I1256:A:(A128);:'T (32,195);(32,179);'29,28,28,26,29,28,29,21,28,28,26,30,28,28,26,29,28,28,29,20,29,28,21,31,18,16,29,24,30,28,28,29(21,,,26,21,19,18,21,,,,26,,,26,21,,,21,,21,,16,26,29,18,21,,26,,19,19(O21,,,26,21,,17,21,,,18,26,,,26,21,,,21,,21,,16,26,16,29,23,,26,,16,21(28,28,28,24,28,28,28,20,28,28,24,28,28,28,24,28,28,28,28,20,28,28,20,28,16,96,28,24,28,28,28,28)'#110,108,108,108,108,109,100,110,,97,110,,108,110,104,100,109,108,,,100,109,108,,96,96,110,108,108,108,108,109)y(107,99,99,99,99,99,,107,99,110,96,,,106,,,101,,,,,101,,,,,107,99,99,99,99,99)-98,,,,,101,,106,,109,98,,96,106,,,101,,,,98,101,,,,98,98,,,,,101*;2108,108,108,108,108,108,100,104,,,108,,108,108,104,100,108,108,108,108,104,108,108,108,108,104,108,108,108,108,108,108*c7@419," BY FRED B.SCERBO ";*<@453," COPYRIGHT (C) 1988 ";*A@483," NSTRUCTIONS OR UIZ ";*FX$:XX():X$"I"75:X$"Q"135:70+K:@34,"THIS PROGRAM IS DESIGNED TO HELP YOU REVIEW IMPORTANT INFORMATION IN A FUN AND EXCITING WAY.":@194,"YOU WILL BE GIVEN A SENTENCE WHICH HAS THE SPACES IN IT JUMBLED AROUND.",P@322,"YOU MUST RE-TYPE THE SENTENCE SO THAT IT IS CORRECT & MAKES SENSE.",.U@450,"PRESS TO CONTINUE.";,AZ(13)90,_:@34,"HERE IS AN EXAMPLE OF SUCH A SENTENCE:":@130,"T HEC OWWA SST ANDING UP.",d@194,"YOU WOULD DECODE THIS TO READ:":@258,"THE COW WAS STANDING UP."-;i@322,"PRESS WHEN YOU THINK THAT YOU HAVE THE SENTENCE RIGHT."-cn@450,"PRESS TO CONTINUE.";-ws(13)115.]x:@34,"IF YOU DO NOT GET THE ANSWER CORRECT, YOU WILL BE GIVEN A CHANCE TO TRY IT AGAIN. YOU MAY CHECK THE SCORECARD BY PRESSING THE <@> KEY. YOU MAY THEN RETURN TO THE PROGRAM BY PRESSING TO CONTINUE".}@290,"BE SURE TO TYPE SLOWLY!":@354,"PRESS TO BEGIN.".(13)130.0.AO(50),A$(50),B$(50),NP(50).0:180.D0/(J$)& F$"HRESFILE"& 2&/ N&H30 &H32&>( &HFFA2,N&T2M F$"/HR"(N)&\< N&nF &HFFA2,&H33&PM F$"/HR3"&Z &HFFA2,&H3A&d 100& 200,&H3E68&. &H96,&H12::2400 BAUD&F A&H3E69 &H3F0C&_( H$: A,("&H"H$)&g2 A&x< 0&H3E69&FF$"HRESFILE"'!PC$(&H77)(&H00)(&H15)(&H22)(&H30)(&H46)(&H26)(&H54)(&H07)(&H27)(&H13)(&H23)(&H33)(&H76)(&H02)(&H57)'2ZM F$"/HR0"'JdM F$"/HR1",&H2000'\nX0((C$))'tx A&H4000 &H43FF' A,(A&H3C00)' A'M F$"/HR2",&H400'M F$"/HR3",&H2400'X0((C$))' &H6F,0:"DONE"'(Ȇ BD,B3,ED,1F,01,EE,02,10,8E,40,00,86,FE,97,6F,8E,3F,10,8D,4A,8D,48,30,01,8C,3F,60,26,F5,8D,07,10,8C,7C,00,26,EA,39,8D,62,A6,80,AD,9F,A0,02,7A,3F,0D,26,F5,8D,55,A6,80,B7,3F,0F,86,04,B7,3F,0E,48,79,3F,0F,49,79,3F,0F,59,58,7A,3F,0E,26,F1,F7,3F)҆ 0F,BA,3F,0F,AD,9F,A0,02,7A,3F,0D,26,D8,39,E6,A4,54,54,54,54,8D,07,E6,A0,C4,0F,8D,01,39,A6,C5,48,48,69,89,00,A0,48,69,88,50,48,69,84,48,48,69,89,00,A0,48,69,88,50,48,69,84,39,C6,03,8E,3F,0A,A6,80,AD,9F,A0,02,5A,26,F7,86,F0,B7,3F,0D,8E,3F,10)܆ 39,1B,43,50A,3F,0F,AD,9F,A0,& 200,&H3E68&%"PLEASE WAIT"&A &H96,&H12::2400 BAUD&Y( A&H3E69 &H3F0C&r2 H$: A,("&H"H$)&z< A&F &H3E8A,&H46: &H3E8B,&H40&P 0&H3E69&Z A16384 17824 160&d C0 15&n B0 9&x AB10C,16CC' B: C: A'k#2,"CGP-220 HEXADECIMAL COLOR CODES: 0=BLK 1=RED 2=GRN 3=YEL 4=BLU 5=MAGENTA 6=CYAN 7=WHT"'C$"": C0 7'C$C$(C): C' C&H10 &H17'C$C$(C): C'X0((C$))(2ȇ#2," 00 01 02 03 04 05 06 07 10 11 12 13 14 15 16 17"(LC$"": C&H20 &H27(`C$C$(C): C(t C&H30 &H37(C$C$(C): C(X0((C$))(#2," 20 21 22 23 24 25 26 27 30 31 32 33 34 35 36 37")C$"": C&H40 &H47)-C$C$(C): C)A" C&H50 &H57)U,C$C$(C): C)g6X0((C$)))@#2," 40 41 42 43 44 45 46 47 50 51 52 53 54 55 56 57")JC$"": C&H60 &H67)TC$C$(C): C*^ C&H70 &H77*"hC$C$(C): C*4rX0((C$))*|#2," 60 61 62 63 64 65 66 67 70 71 72 73 74 75 76 77"* &H6F,0:"DONE"*+ BD,B3,ED,1F,01,EE,02,10,8E,40,00,86,FE,97,6F,8E,3F,10,8D,4A,8D,48,30,01,8C,3F,60,26,F5,8D,07,10,8C,7C,00,26,EA,39,8D,62,A6,80,AD,9F,A0,02,7A,3F,0D,26,F5,8D,55,A6,80,B7,3F,0F,86,04,B7,3F,0E,48,79,3F,0F,49,79,3F,0F,59,58,7A,3F,0E,26,F1,F7,3F, 0F,BA,3F,0F,AD,9F,A0,02,7A,3F,0D,26,D8,39,E6,A4,54,54,54,54,8D,07,E6,A0,C4,0F,8D,01,39,A6,C5,48,48,69,89,00,A0,48,69,88,50,48,69,84,48,48,69,89,00,A0,48,69,88,50,48,69,84,39,C6,03,8E,3F,0A,A6,80,AD,9F,A0,02,5A,26,F7,86,F0,B7,3F,0D,8E,3F,10, 39,1B,43,50A,3F,0F,AD,9F,A0,02,7A,3F,0D,26,D8,39,E6,A4,54,54,54,54,8D,07,E6,A0,C4,0F,E(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 RAIN& F$"HRESFILE"&' N&H30 &H32&6 &HFFA2,N&a(M F$"/HR"(N),&H4000,&H5FFF,&H4000&i2 N&{< &HFFA2,&H33&FM F$"/HR3",&H4000,&H57FF,&H4000&P &HFFA2,&H3A%M&55+)M4Ȧ!E=0)m+ %4b+b5 5&f F0):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"," (80 1987":"V31O4":X16:"CV-V-V-V-V-"::"V31":T100/t'.TT1:11100:(0)10130:(1)" "10200:T 100300'3HI$(1)""T100:15:Z$(40,"%"):(0,0),Z$:(0,23),Z$:X112:X,0::10:(15,5),"TOP SCORES":"S4C11BM116,43L39GD96FR166EU96HL40":100500b'411,C(6):12,C(1):12:X110:HI$(X)""ST$((X),2)". "HI$(X):(10,6X),ST$::0'810,(63):TT1:(0)10130:(1)" "10200:T (T10)(T10).415,C(4):10040:15,CS:100401T'BS0:R1:F0:11200:1:(39((SP)),5),SP:(36((RP))2,13),RP:P0: J(K)XT:V3:W3:1,0:G1:BL5:9000:TI2001'GS$"GAME OVER PRESS BUTTON TO START SPACE- OPTIONS":Z08:Z32:(32,15Z),(S$,1Z8,8):2'L100:(0)10130:(1)" "10200:S60Q4010060:100102'tR1:F0:11200:T1:S0:P1:X15:(32X,9),"%":"O5V31GV26GV21GV16GV11GV6GV1GV31"::V3:W3:BL5:R0: J(A)((0)((PDH)10)2)2'~0:(34,13),"####":RR1:1:(36((R))2,13),R:G294RS:FR1:F8F82'3'10100:9000:993d'0:X010:X,C(X)::1:(16,7),"OPTIONS:":"S4C6BM124,59L15GD62FR100EU62HL15"4'L9:C1$"YES":C2$"NO":OP$"REBOUND?":R$(0)"REBOUND.":R$(1)"DEMOLISH.":10250:QR:OP$"VISIBLE?":R$(0)"VISIBLE.":R$(1)"INVISIBLE.":10250:I(R1)24'OP$"SPEED?":C1$"SLOW":C2$"FAST":R$(0)"SLOW SPEED.":R$(1)"FAST SPEED.":10250:BS(R1)21:OP$"PADDLES?":C1$"LARGE":C2$"SMALL":A$" SIZE.":R$(0)C1$A$:R$(1)C2$A$:102505'1:(14,14),"PRESS BUTTON":R1LP$"#$":SP$"$":QD28:PD24:LP$"###$":SP$"#$":QD26:PDQD5G'(0)(1)""0:10050:102305( 1:(15,L),OP$:2,C(9):3,C(9):2:(14,14),C1$:3:(26(C2$),14),C2$5(Z(63):(0)33R1:P1Z:P2C(9):R1:P2Z:P1C(9)5(2,P1:3,P2:(0)110260:"T255O5B"6 (((0)102806n(20:(15,L),OP$:(14,14),C1$:(26(C2$),14),C2$:9:(15,L),R$((R1)2):LL1:2,C(2):3,C(3):6*X015:X,0::2:X010:X,C(X)::6+\C,C(4):OC,CS:OCC:CC1:C16C11::7(+11000:X110:X,0::"S4BM0,0C1D191R14U174R226D174R15U191":(1,1),1:"BM258,15"TI$:80007+S$"L4GD20FR54EU20HL4BL46BD32":"C6BM263,27"S$S$S$:1:(33,7),"BALLS:":(33,11),"ROUND:":(33,3),"SCORE:":X110:X,C(X)::84N 6,0:2:X010:X,C(X)::13,C(6):"S4C13BM117,83L4GD22FR92EU22HL4":1:(15,10),"QUIT GAME?":11:(15,12),"YES":12:(23,12),"NO"8fN*A(63):(0)33C1A:C2C(9):C1C(9):C2A8N411,C1:12,C2:(0)(0)3210010::200109N>A$(40,"$"):13,0:X112:X((X1)6)61:(0,12X),A$:(0,11X),A$::X112:0:(0,12X),A$:(0,11X),A$:9ANHX015:X,0::40:X08:X,C(X)::65496,0:9Ga: P2:(32,15),"GAME":(36,16),"OVER":1:PL$"T6V20O2L16CP16CP16CP16CP16CP16CP16CP16CP16CECECFCFCGCGCECEDFDFDGDGDADADFDFCGCGCACACBCBCGCGDADADGDGDFDFDGDGCECECBCBCGCGCECECBCBCGCGCECE":"V31T6O1":'UZ129:"V-CECE":190::[ZE1:SPS:RPR:H110:SSC(H)PH:H11: :::dP10X9P 1:HI$(X1)HI$(X):SC(X1)SC(X):;nSC(P)S:HI$(P)". . . . . . . . ":(HI$(P),17((S)),((S)))(S):0:X2351:(2,X),(28,"#"):;x9:(8,4),"CONGRATULATIONS!":(5,7),"You achieved top score":10:(4,9),((P),2):"BM26,74R4BD2L4RDNU4BR2NU4":X021:Y06:11:(X25,Y72)(5X,Y9),"$"<#ÂOJ26:11,(63):Y,X:9:(6,17),"Enter your initials:":A$:CH$"ABCDEFGHIJKLMNOPQRSTUVWXYZ.*-":11:PT02:JC1:OJ26 TO CONTINUE";+JX$:X$""330+TX$" "370+^I114:X$B$(I)500+hI:330+r+|: " (XX)= PAGE NUMBER OF LISTING",,/P1524:B$(P)A$(P),B$(10P)A$(P10):P,r " PRESS TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::,…XX$" "240,̀I15 NP:XX$B$(I)500-֋I:430-XX$430-ꁥ240-=Q$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.% "MAY". " (20) STRATA"," (31) FLIPIT"," (37) SCRNFONT"," (45) COLORS"," (48) HRSAVE"," (48) HRLOAD"," (48) CGPPRINT"," (48) COLORPIE"," (54) SIGNATUR"," (60)*IMAGE"/j " (76) JUMBLE"," (88) NYMS"," (90) NO SMOKE"," (𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я  $%'(*+./57: FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BAS2STRATA BASFLIPIT BAS&!SCRNFONTBAS)COLORS BASHRSAVE BASHRLOAD BASCGPPRINTBASCOLORPIEBAS,rSIGNATURBAS-IMAGE BINFJUMBLE BASZNYMS BASoNO SMOKEBAS0cCANVAS BAS1TICKET BASGRAFCODEBAShBIGDUMP BAS2/PAL32 BAS3gCENTERERBASBLOCKOUTBASPLETTER BAS4PERSLOGOBAS BOOLEAN BAS ^BESTLISTBAS6POSTRPTRBAS FONTDEMOBAS8vFONTPOKEBAS9ROMRAM BAS;PALINDRMBAS<LETTERS BAS=}PERMS BAS߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?& **** FLIP IT ****&2 * BY ERIC TUCKER *&:@64," ******* F L I P I T ******":@96,"((( DESIGNED BY ERIC TUCKER )))":@192," TWO PEOPLE ARE NEEDED TO PLAY.":@256," <<<>>>":44539'(3:1,0:65314,248:2:(128,96),255,1,1,.65,.35'B2(180,0)(182,191),,BF:"C3":(10,10)(170,170),,BF'(CX,CY)38804H(CX,CY)PC 820: SXCX:SYCY:CXX:CYY:(X,Y),6,PC:(X,Y),PC,PC4RCXCX20:CYCY20: CXSX CYSY 8804\ SD$4f(CX,CY),PC,3:8504pSD$: PC1PC4:160:PC1:1605z CHECK NUMBER OF PIECES5gBS0:WS0:W2016020:V2016020:(W,V)1BSBS1:(W,V)4WSWS15o:5BS$(BS):WS$(WS):BS$(BS$,(BS$)1):WS$(WS$,(WS$)1)6!"C2":(200,64)(230,72),,BF:(200,104)(230,112),,BF:L(BS$):L2"BM212,65;C1;":"BM214,65;C1;"6V1((BS$,1)): V10 1060 : V1 1070,1080,1090,1100,1110,1120,1130,1140,11506 L2 V1((BS$,1)): V10 1060 : V1 1070,1080,1090,1100,1110,1120,1130,1140,11507L(WS$): L2"BM212,105;C1;":"BM214,105;C1;"7yV1((WS$,1)): V10 1060 : V1 1070,1080,1090,1100,1110,1120,1130,1140,11507ԅ L2 V1((WS$,1)): V10 1060 : V1 1070,1080,1090,1100,1110,1120,1130,1140,11507ސ7 end of game8:1,10:T15000:8d@64," ******* F L I P I T ********":@128,"BLACK HAS";BS:@192,"WHITE HAS";WS8 WSBS S$"WHITE": WSBS S$"BLACK"8 WSBS @256," IT'S A TIE GAME.": @256," ";S$;" IS THE WINNER."9&@320,"ANOTHER GAME";:I$:(I$,1)"Y":(I$,1)"N":10509=$"R4D6L4U6R4BR4":9O."D6BR4BU6":9i8"R4D3L4D3R4BU6BR4":9B"R4D3NL4D3NL4BR4BU6":9L"D3R4U3ND6BR4":9V"NR4D3R4D3NL4BU6BR4":9`"NR4D6R4U3NL4BU3BR4":9j"R4ND6BR4"::t"R4D6L4U6D3R4U3BR4"::~"R4D3L4NU3BD3R4U6BR4"::10509=$"R4D6L4U6R4BR4":9O."D6BR4BU6":9i8"R4D3L4D3R4BU6BR4":9B"R4D3NL4D3NL4BR4BU6":9L"D3R4U3ND6BR4":9V"NR4D3R4D3NL4BU6BR4":9`"NR4D6R4U3NL4BU3BR4":9j"R4ND6BR4"::t"R4D6L4U6D3R4U3BR4":(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)(195& :ENGLISH PRINT FONT&6:FROM KROMICO SOFTWARE&L:BY BILL BERNICO&S(:&a2 A$(122)&w<4,1:1:1,1:0,1&FA$(32)"BR8&PA$(33)"BR2G2RED8BD2D2HR2HBU2U3LU3R2D3U5FBU2BR2&ZA$(34)"BRBUGDRND2RULBR3DRND2RULUBR3'5dA$(35)"BR7G2D6LDU6L2GR3D3L3GR3ND2R4UNL2D3EU5NL3UL2NUR3UD5R2EL3U3R3EL3U2EBR5'nA$(36)"BR5DND15G4D4RNU4E3R3D6LNU6DLDL3HL2NDE2GR2DR2U10RFURUNL3EBUBR3'xA$(37)"BR4LG3DED2ED2EDE3LEL2EL2EBR6G2RDLD2HD3HD3HD3HD2UBR6REL3EL2ELE3DED2ED3EUBU7BR2(;A$(38)"BR6RF2NG3L2UL2G2RGDEDRND3G2NR3G3RGDERGDERGD2EURE3H2R2D2F5REUGLNH4UH4E2R2D2RENL5BU8BR3(XA$(39)"BRD4UHR2UL2BUBR5(A$(40)"BR6G4REG3REG3R2UG2ND5RD7RU4D5RU3FDBU16BR3(A$(41)"BD17E4LGE3LGE3LGUE2DHENU3LNU5HNU5UHU3GDBU2BR7(A$(42)"BR3D3ND3NL3NR3NG2NH2NF2E2BUBR3)%A$(43)"BR5BD4D4ND4NL4LND5NU3DL4R8UL3R4BU8BR3)HA$(44)"BRBD13D3GE2UL2RBU14BR5)dA$(45)"BD9NR6ER6BU8BR3)A$(46)"BD15R2GU2BU14BR5)A$(47)"BD16E2LELE2DHE2DHE2DHE2DHE2DHE2BR3)A$(48)"BR4G3D8UHU4E4NR2DNR3FNR3FR2GR2D4LU4D6G3UNE3L2H2EDRDRBU12BR8*#A$(49)"BD2E2ND13GR2UD13H2R4GE2BU11BR3*mA$(50)"BD4E4L2D3HUR2ER2DRND5FD3NG3LNG7LG5D3GUENR6FNR4FR2E2HREBU10BR3*A$(51)"BR3G3NF2RE2RNG3DRF2DHD2HD4H2ED2R2D4ENU2G4H3LE2D2ED2ED2EBU13BR6*A$(52)"BR6D14FU14LG6DR8FL8R6D3FDEBU13BR3+3A$(53)"BR9G3L4U2R5GL4D6E3RG2RERGR2FND3L3FRD3G3LHNR3HNR5HLR4H2GRBU10BR10+w"A$(54)"BR5F2RGH2LF2DH2LG2D9HNU6UE5D2EUD3EUND5FD3G5U3LU3BU11BR9+,A$(55)"BD3E2R7GNL7G2RG2RG2ERG3ERG2ERG2D2FU3ED4E2LBU13BR6, 6A$(56)"BDBR6L3G3R2DL2FRED3HR3HD2R3HD3HR3ND3GD3G2NH4L2UR2NH4L3ULULUE8L2DEUL2UBR6,[@A$(57)"BUBR4G4D3FNU4EUD3RU2FE4ND5GD6G2NL5G2HRU2L2EBU7BR4R2UH2LF2LNH2LHU2BR7,JA$(58)"BD7R2GU2BD6D2HR2BU13BR4,TA$(59)"BD7R2HD2BD4D3GE2UL2BU13BR6,^A$(61)"BD6R6EL6BD3R6GNL6BU9BR5,hA$(63)"BR3G3ER4HLD2R3DL2FRG4DBD2D2HR2BU13BR6-ZrA$(65)"BD6U3NE2RE3NR3DR4G3L2DEUR3EG2DGDG2NH3NR7DNR7G2NR3DNR4DFBR3HR2E3D3FNE2U14GND9E2BR3-|A$(66)"BD3UEDRUR3EG3D4L2GDER2D5LG2NDE2REU9FED8EU8EDER3GR2D2HD2G2HUND9D2R3ND5FD4LG2L5GE3R3DL3BU13BR8.A$(67)"BDBR4G3RG2ND4RD6FNU4RNU2ED2NR4UR6NE2NUL3U12G3D6EU6ER5GLU2LUBR6.kA$(68)"BDBR2NR7FR8GR2GRD2NL2D3NL2D3GNL6GL6GE3U10G3D7G2E3U2L3GE2R2U4E2R2D5RGD2RGDBU11BR7.A$(69)"BR4G3ND8RG2D4RED4RNU2FNU2NR4ER5NE2NUL3U12G3D6EU6ENR7ER2D2R3G4R4UNL3BU5BR3/ A$(70)"BD6E2DR3UL2EU2D14L2GR2ERURUHU11R7NUL2UL3ED13GU8R3EL4U4BUBR8/^A$(71)"BD6D4FDU8E3D9G2U2D3NR7ERD2R4HU12L2ND8R5HD2R2GR2G4R4HLD2R2ND3LD3G2BU13BR6/A$(72)"BD3UNR5ER5EG4D9GRENU9FRNU11EU11E2NRG2D4RE3D2END9RD7G2LEBU13BR5/A$(73)"BD3URUR2D12L2GDR2UEU11EBR3G2D12L2DRE2U12EBR303A$(74)"BD5BRRUL2U2E2R3DL4R6DL3R5LG3D9GL3G2ER3DRUR3U2RU10ED9BL3DU9E2RERBUBR30A$(75)"BD3E2R3NEGL2FD8G2LGE5DU8BR2NE2D8G3R4HLD2FURE3D2FU2FRDH4LF2EH2E3LEL3GE2RBU3BR60A$(76)"BD2E2R4EG2NL4D11L2G2ERENU9RNE3R2F2RNE3HRNE2UE2LHBL3NU7FU7EBU3BR71EA$(77)"BR6LG4D11LUREU5L2UR2U4ERD11NG2U5R6D5EG3H2R3GNU12HU6LNR5RU5LHR2DR6H2GRGND5R2DR2D12NEHU11E2BUBR31A$(78)"BD3E2D2R3H2D14L3NDER2EU10RED11NG2U4E3R4GDGDGDGDR4EG2L2U2RHEUEUEU3L3FRU2L3G3E4RL5E2RGR2BUBR72A$(79)"BR9L4G5ND6RD8R8LGL4U2LUE2NU8LU7ER6FL3HGD10UE3R3DG3REU5FUL3NG2RE2DHULBU3BR62A$(80)"BUBD3E3D2LR2HD2LR2ND14GND13DG3R2GRDFGLNG2DR2D4R3U3NU13R4GU2L3R5EL2E2DNU7HU2L2G3FRLHE3REUL3NGR2EU2GU2GL2E2NDBR82A$(81)"BR8L3G5ND6RD8R10GR2EGHL3GL4UHUF2R2NU13R2E4G2DEU9L3HR3D2LFNG3DERD4L3G3UBL3NU8EU8EBR113BA$(82)"BD14E5U8EG2L2GE2RD10G2E3FG2R5G2HRU2LUENU8ENE4F4DNE3H2R3H3LNF3UE2U4L4E2D3FR2UL2U2BUBR83&A$(83)"BR11G6H3UE2R3D2REL6GF3NR6L2HG2DED2ED2NR7ENR5RE2L2R8GR2ND3GD3G3UGU4RNDG5L3HU2R7DH2RL5R2UBU10BR1340A$(84)"BD3E2DE2NR5DR9EG2L5D6G3NU3LU7NE3RG2D3F2E2NU5G2NR2DR8NE2NULGNL4U12BUBR74\:A$(85)"BD3E2R6EG2L6R4G4ND4RNED6FU3FD2FU2FR3NE4GNL2U13G2D6GU5EBR4E3D13E2L3DU11FRBU3BR44DA$(86)"BD3UE2RG2RD10NLENU11D2F2NE6H2R3GUHRUNE3U3NE3U6H2BR7NG3D9ENL3U3NL3U3NL2UHBR45NA$(87)"BD3E3D14H2RU9LE2RFD12GU3FRE2U10GE2D14HUF2DU3RD2NE4U13BR2UED11EU9HBR45qXA$(88)"BD3E3D4FU4LGR2D6L3ER3U4D6GDG2ND2L3NDERFRBR4R4EG3REL2U2LND2LU5R3GL3D3R2UL2U5EUE2LED3FU3FDEBU2BR45bA$(89)"R3GRD10NG3LG2D2ED2NR3ER4HR5DGBU3L2BU2RL4U10FRUD9UE3R3D2G2LEURU4L3NGR4DU3GU2GU2GUL2BR86*lA$(90)"BD3UE2D2LR8U2GNL7D2NG5LG3L3R8L2GLDR3L8R4G2RERG3UGD2GUR8GU2R2L7RER5EBU11BR36nvA$(97)"BD6NE3F2G2D2F2U3HD2RFUR3D2EL2NU9EU8NEL3F2DGNLEU3HBU3BR66A$(98)"RD12NLFNU13FU2FURENU7RU6L2U2G3U6EBR76A$(99)"BD6NE3RD5GR5EG2LGU3LRU6E2D2ED2EBU5BR37A$(100)"BFGDERGR2GR2G4ND4RD5FU3FD3E3NU6LNGU5NE2ULURBU5BR57HA$(101)"BD7RNE3D4GRFNU6F2NE3UEL2ELU2E4L3FU2LBU5BR67xA$(102)"BR3G2D12LR3GU9L2R4L2U4EDED2EBU2BR37A$(103)"BD17R5EL5E6D5L2EU2L2GLEL2NU5EU4E3D2ED5EU4EBU4BR37A$(104)"BDFD13E2NL3HU10NE2D6E4GDED9G3ERE2U9BU5BR38A$(105)"BD6ED9FE2LGU9RHBU2URBUBR48=A$(106)"BD5ED2ED10GE2U8H2BU2URBUBR48~A$(107)"BDFD12HR4G2U13NE2D6E3R2FL3FRG4ER2GR2D4EUL2U3BU10BR58A$(108)"BDFD11NL2DFELU13EBR38A$(109)"BD6UED10HF2ELU9FNRE2D10FU10FNRE2D10RNE2U9FBU6BR39A$(110)"BD5NE2RED9FE2LGU9FNE2RED2RU2D9FE2LGU8EBU4BR49NA$(111)"BD7NE4ND4RD5F2UHUF2E2NU6LU4H2EDFU2BU4BR49 A$(112)"BD5E2D13LR2NFU5NL2U7FE2D2ED9GH3R5DL3FE2U6BU5BR39A$(113)"BD6NE3ND6RNE2D7FU2FE2D5NGR2HU9FG2DU5L2EBU4BR69 A$(114)"BD5NE2RED8HF3E2LGU2GU8FE2D2ED3EUBU5BR3:B*A$(115)"BD13NE8R6GLU2NL3BR3ENU2LU3LD2HL3EL2NU2EU2E2DR4GNL2E2BU3BR3:o4A$(116)"BD4NE3RD9HR2D2EDNE2HU10FRBU4BR4:>A$(117)"BD5NE2RED8FNU9FU3FDEF2E2L3FU10G2R3G2D5U8BU4BR6:HA$(118)"BR3G3RDEUD10NLF2NE4U2RL2ELU7BR4NHD7EU5BU5BR3;)RA$(119)"BR2G2D2RU3D12HF2EUGU9FE2ND9FD8F2E2RGNHEU9NG3FND8BU4BR3;j\A$(120)"BD6E3DGRD2RU2D5G4U3FRE2RD2RD2E3GLHUHUE4D2HLE2BU3BR3;fA$(121)"BD5NE2RED10GDFR3EUGBH3RNU10EDE4NU6LU5G2BU6BR6;pA$(122)"BD7UE3D2ED2EDG4R4HLD2R3DL2D2EL2DL2GDFR2EBU16BR5<zA$"English Print Font":"BM5,5": 1020< "BM0,33R255 Y0 Y0>  A$(Y)>$:20=*ʀX11500:=WԼ1:A$"brought to you":"BM50,30":1020=A$"by Bill Bernico":"BM45,55":1020=A$"& Rainbow Magazine":"BM20,80":1020=X11000::1:880= X1 (A$)=Y((A$,X,1))> Y0 Yo& N14&  F(N),C(N),S$(N)&. I1 N&D( F(I),C(I),S$(I)&U2 I:Z96: 2&d< X0 96&~FY((9216XX).5)&P YZ YZ1 140&Z(160X,96Z)&d(160X,96Z)&n(160X,96Z)&x(160X,96Z)&ZZ1: 80'(160X,96Y)'(160X,96Y)'$(160X,96Y)'6(160X,96Y)'DZY1: X'\(160,0)(160,96),'jȀ I0 N'rBA'AA6.28318F(I)'AAA:R96: 350:S(X)'XX160X:YY96Y'(160,96)(XX,YY),'AAA(AB)2:R48: 350((160X,96Y),C(I),1(R96: 350(?"(160X,96Y)(160(X)96,96Y),(V,X0:Y((96Y)8)(v6 A3.1416 X40(S$(I))(@(X,Y),S$(I)(J I(T 340(^X(R(AA).5)(hY(R(AA).5)(r(| .07142857143,2,COLOR 2) .07142857143,3,COLOR 3)# .07142857143,4,COLOR 4)@ .07142857143,5,COLOR 5)] .07142857143,6,COLOR 6)z .07142857143,7,COLOR 7) .07142857143,8,COLOR 8)† .07142857143,9,COLOR 9)̆ .07142857143,10,COLOR 10)ֆ .07142857143,11,COLOR 11* .07142857143,12,COLOR 12*0 .07142857143,13,COLOR 13*O .07142857143,14,COLOR 14*n .07142857143,15,COLOR 157,COLOR 7) .07142857143,8,COLOR 8)† .07142857143,9,COLOR 9)̆ .07142857143,10,COLOR 10)ֆ .07142857143,11,COLOR 11* .07142&d :**************************** SIGNATURE BY JIM BENNETT, 1988 ********************************&500,22000:7:4,1:0:1,1:1:L$(25),C(2,2):CC22000:560&(4,17)(251,49),,B:(6,19)(249,47),,BF:P24:P P3:P:470'(H$"40":V$"80":T$"SELECT YOUR OPTION":640:(38,82)(211,82),:H$"96":V$"100":T$"1 WRITE":640:H$"92":V$"120":T$"2 LOAD":640:V$"140":T$"3 SAVE":640'2V$"160":T$"4 PRINT":640:V$"180":T$"5 ERASE":640(,(N$)8640:N$N$I$:810;H:SAVING;RMN$,3584,5119,3584::OMITTHIS LINE IF USING TAPE<\:CSAVEMN$,1536,3071,1536:' DELETE FIRST APOSTROPHE IF USINGTAPE<"f880:40":@146,"<0-63>"'d X0 63'n Y0 63'1x:"X =";: X'C:"Y =";: Y']:&HFFBD,X:&HFFBC,Y'c3,175)&<@33,"32 COL. SCREEN PALETTE UTILITY":@63,(1,175)&F@64,(32,175)&P@98,"X=BACKGROUND Y=FOREGROUND"'Z@132,"<0-63>":@146,"<0-63&T:PROGRAM: LETTERS/TWO, GIVES TWO COLUMN PRINTING, WITH HEADER SPACE&_ 15000& CO80 :PAGE WIDTH FOR TOTAL TEXT& NL45 :LINES PER FIRST PAGE (LINE COUNTER)' TM10 :WIDTH OF TOP MARGIN (VARY FOR LETTERHEAD)'FSP0 :SINGLE PAGE FLAG (CONTINUOUS/SINGLE PG)'hLE0 :LENGTH OF DATA ENTRY':CN = COUNTER FOR CHARACTERS (RD$=INPUT CHARACTER READ)':LF = LINEFEED':PL$ = PRINT LINE STRING(:ST = FLAG FOR FINISH OF WORK(?PL$(116):AL0:CN1:Z$(128):PG0 :(PG=PAGE COUNTER)(oBL$(32,32) :1 LINE OF BLANKS ON SCREEN(IN((CO80)2) :DETERMINES PAGE CENTERLINE(:----------MAIN MENU(:" TWO COLUMN PROGRAM LISTER":(32,131);)7(Z$"note"Z$" THE FILE TO BE USED MUST BE IN 'ASCII' FORMAT.")Q-:Z$"filename"Z$" ";)2DN$:((DN$,4),1)"/" DN$DN$"/BAS")< (DN$)12 (DN$)5 30)A:Z$"source"Z$"drive"Z$" ";:DD:DD*1F:Z$"city"Z$"and"Z$"date"Z$" " :INPUT, NEXT LINE, MAY BE UP TO 79 CHARACTERS, CENTERED ON PAGE*XP " ";NM$:LE(NM$):LECO 70*oZ:PN((COLE)2)*dZ$"stop"Z$"for"Z$"each"Z$"page"Z$" Y/N "*nI$:(I$,1)"Y" (I$,1)"y" SP1 :(I$,1)"N" (I$,1)"n" 110 :SP0+%w:----------LOAD THE DATAFILE TO BE PRINTED+Wx:" LOAD THE FILE FROM DISK":(32,131);+}:Z$"insert"Z$"data"Z$"disk"Z$"in"Z$"drive"Z$;DD+::Z$"press"Z$"enter"Z$"to"Z$"continue"Z$;:AN$+"D",#1,DN$,1+#1,1 RD$+LF(1), :----------SET UP NEW PAGE FOR PRINTING,Y:" PREPARE FOR NEW PAGE":(32,131);:PGPG1,ȇ: " PLEASE WAIT."::" PRINT LINES ARE BEING COUNTED."::" PRINTING WILL START BEFORE THIS NUMBER SHOWS"NL21-5͇@331,(129);(5,131);(130):@363,(133);:@369,(138):@395,(132);(5,140);(136)-UҀ F1 NL2:PL$(F)BL$: F-܀F11NL2:PL$(F1)(37,32) :37 SHOWS COLUMN WIDTH (INCLUDES CR)-F2137:CNCN1:CNLF ST1:300 :37 SHOWS COLUMN WIDTH (INCLUDES CR)-#1,CN. RD$(13) 280.%(PL$(F1),F2,1)RD$.-F2.?@364,F1;:F1.k,SP1 400 :AL0 400 :#2:#2.6@480, Z$"now"Z$"printing"Z$:F1 NL:#2,IN);PL$(F); " ";PL$(FNL).@.E#2:#2,36)"Page"PG.JST1#2,(12):450/FT#2,(12):NL56:190 :56 SHOWS NUMBER OF LINES, PAGE 2 AND AFTER/t:----------READY A NEW PAGE FOR PRINTING/AL1::" INSERT NEW PAGE":(32,131);:Z$"position"Z$"new"Z$"page"Z$"in"Z$"printer"Z$0::Z$"press"Z$"enter"Z$"to"Z$"continue"Z$" ";:I$07#2,(TM,13):#2,PN);NM$:#2:0W:----------JOB IS FINISHED0š::" PRINTING IS FINISHED":(32,131);:" THE TWO COLUMN PRINTING IS FINISHED."0LJ::" PRESS 'Y' FOR ANOTHER PRINTING OR PRESS 'N' TO STOP.":PG01OI$:(I$,1)"Y" (I$,1)"y" :(I$,1)"N" (I$,1)"n" :4601&:FIRST SPACE ALWAYS LOST. SO INDENT ONE SPACE TO START.10:USE NO PRINT CODES IN TEXT. CARRIAGE RETURN AFTER LINE.23::DO NOT PLACE HEADER SPACES IN FILE COPY. PROGRAM = 3, OR 10 IF USING LETTERHEAD.2D:IF DATE IS TO BE PRINTED BY PROGRAM, TOP CENTER, DO NOT PLACE DATE IN DATA COPY.2N:USE VIP/WRITER LINELENGTH OF 37, NON JUSTIFIED.3O:NOTE THAT YOU MUST COUNT ANY 37-CHARACTER LINE AS INCLUDING THE CARRIAGE RETURN (36 CHARACTERS +CR)4:LETTERS/TWO, 870424. WAS ORIGINALLY '2-COLUMN/BAS' IN THEMAY 1985 RAINBOW, PAGE 44, BY STEPHEN LAI. PROGRAM MODIFIED BYC E BROWN FOR NEWSLETTERS AND CORRESPONDENCE USE.LINE AS INCLUDING THE CARRIAGE RETURN (36 CHARACTERS +CR)4:LETTERS/TWO, 870424. WAS ORIGINALLY '2-COLUMN/BAS' IN THEMAY 1985 RAINBOW, PAGE 44, BY STEPHEN LAI. PROGRAM MODIFIED BYC E BROWN FOR NEWSLETTERS AND CORRESPONDENCE &" :**************************&C:** LLIST FORMATTER **&d:**************************&(:** BASIC LOADER FOR **&2:** FLIST/BIN **&<:** ML CODE BY C.ROSLUND **&F:** DECEMBER 1982 ISSUE **' P:** OF THE RAINBOW **'*Z:**************************'MdBD1:150,BD::** BAUD RATE **'mnA$(32,188):B$(32,179)'xDV(188):STDV256'XST ST103:X,&HFF:X' DV6 C$"CASSETTE" : DV14 C$" DISK":&H95A,0(%L$"* * * LOADING * * *":L1$"READY PRINTER-LLIST AT OK PROMPT"(F:**************************( 6F,8D,00,19,BE,01,68,AF,8C,11,30,8C,11,BF,01,68,86,7E( B7,01,67,86,39,A7,8C,EA,39,00,00,00,34,17,D6,6F,C1,FE( 27,06,35,17,6E,9D,FF,EF,81,0D,26,06,6C,8D,FF,E9,20,F0)6 96,9C,81,50,25,13,86,0D,BD,A2,BF,86,20,C6,04,BD,A2,BF)r 5A,26,FA,6C,8D,FF,CE,A6,8D,FF,CA,81,3C,25,CF,C6,06,86)& 0D,BD,A2,BF,5A,26,F8,6F,8D,FF,B8,20,BF,XX)0:**************************):::A$;)" **** MAIN MENU ****")A$;* :" <1> SET PRINTER BAUD"*C:" <2> CHANGE DEFAULTS"*d:" <3> LLIST PROGRAM"*o$:B$;*{. 3500*8A(Q$):A1 A3 1000*B A 1500,2500,3000*L:**************************ܞ:::A$;+" **** BAUD MENU ****"+ A$;++:" <1> - 600"+G" <2> - 1200"+c" <3> - 2400"+" <4> - 4800"+"" <5> - 9600"+,:B$;+6 3500+@Q(Q$):Q1 Q5 1500+JE$"08741180701",TBD((E$,(Q2),2)), ^ 150,BD,h 1000,9r:*************************,IО:@128,A$;,iڇ@198,"***** READING *****",@262,"***** D A T A *****",@320,B$;,11)C$:B$;,ENST, D$, D$"XX" 2120, C("&H"D$),* EN,C,4ENEN1-> 2060- H-+R:*************************-H ą (ST)&H6F 2000-W Ξ:::A$;-~ ؇" **** DEFAULT MENU ****":A$;- :" <1> - COLUMN WIDTH ---->"(ST57)- " <2> - INDENTATION ----->"(ST68). " <3> - PRINTOUT LENGTH ->"(ST84)., " <4> - SKIP LINES ------>"(ST88).E " <5> - MAIN MENU".P :B$;.\  3500.{ (Q(Q$):Q1 Q5 2510. 2 Q 2620,2630,2640,2650,1000. <@217,;:CW:CW1 CW255 2620 : ST57,CW: 2510/ F@249,;:ID:ID12630 : ST68,ID: 2510/Q P@281,;:PL:PL1 PL65 2640 : ST84,PL:ST88,(66PL): 2510/ Z@313,;:SL:SL1 SL65 2650 : ST88,SL:ST84,(66SL): 2510/ d/ n:*************************/ (ST)&H6F 2000/ ž:::A$;0 ̇" **** LLIST MENU ****":A$;06 օ (ST)&H6F 2000: 30100j DV14 F1$" FILENAME/EXT" : F1$" FILENAME"0x @384,B$;0 @192,F1$;:F$0 DV14 3080 : 31300  F$"" @210,"directory":D1 : D00 @224,;:" DRIVE NUMBER - ";DN1(  D1 DN::" PRESS ";Q:30101D &@294,L$:L1$;:@416,;:1U 0ST:DN: F$1 :@224,;:" READY CASSETTE - ";Q1 D@294,L$:L1$;:@416,;:1 NST: F$1 X:*************************1 Q$:Q$""35001 2 :*************************2% :** BASIC LOADER BY: **2E :** CLAY HOWE **2e :** STURGIS, MICHIGAN **2 :** (616)-651-4248 **2 :*************************2 :** NOVEMBER 1985 **2:************************* :*******************s&B : A BASIC ROUTINE TO USE HPRINT FONTS IN WIDTH 32&RM"IBM.FNT"&c4,1:1,1:1&(X9:Y0:A$"PMODE 4 HPRINT"&2 10000& 0,0,DC,76,66,60,F0,0/H 0,0,7C,C0,78,C,F8,0/4R 10,30,7C,30,30,34,18,0/O\ 0,0,CC,CC,CC,CC,76,0/jf 0,0,CC,CC,CC,78,30,0/p 0,0,C6,D6,FE,FE,6C,0/z 0,0,C6,6C,38,6C,C6,0/ 0,0,CC,CC,CC,7C,C,F8/ 0,0,FC,18,30,60,FC,0/ C,18,18,30,18,18,C,00 66,33,99,CC,66,33,99,CC0+ 30,18,18,C,18,18,30,00G 6,26,66,FE,FE,60,20,00_ 0,0,0,0,0,7E,7E,00wʀ X&HF09D &HF3960ԍ A$0A("&H"A$)0 X,A0 X0M"IBM.FNT",&HF09D,&HF396,0C,18,30,60,FC,0/ C,18,18,30,18,18,C,00 66,33,9& :ROMRAM 8/85 RAINBOW&% 999&O 26,80,190,128,0,183,255,222,166,128&|( 183,255,223,167,31,140,224,0,37,241,57&2 I121:A:A$A$(A): I&