"XI$;C2M"(LJ16)","(MK8)"XEN$;"/IX0(I)LJ16: Y0(I)MK8/ TIME0 320 : TIMETIME0.3:"C3BM"((TIME25))",185D2": 1700`"O2L255T255;1;3;8;7;2;2;2;3":(HX(0),HY(0)1),4,2:I1 LEVEL: (HX(I),HY(I)1)4"BM"(HX(I))","(HY(I)):J1272LE:"O5V31;1;3;8;8;12":"C4XS$;":"O4;12;10;6;6;3;1":"C1XS$;":J:3201#" I: I3 5:"L240O"(I)";3;6;8;9":(HX(0),HY(0)1),1,2:"9;4;6;2;1":(HX(0),HY(0)1),4,2: I:"T4L8O2;1;P32;1L4P32;1;4L8;8P32;8;10P32;10L4;8;L2;3": PTSPTS(TIME):LEVELLEVEL1:1101,R$S$"BR16":L$S$"BL16":U$S$"BU8":D$S$"BD8": I14:"C2BM15,9"(R0$,5)"XS$;":"L255V25O3;5;8;6;4;4;1"2J6"1;1;2;8;2": (D0$,(I7)41)"XS$;":"3;10;4": I0 : (L0$,I41)"XS$;":"5;12;6": (U0$,(I6)41)"XS$;":"7;O4;4;O3;9":(R0$,(I1)41)"XS$;":II2: 3102r@:@230,"TOTAL POINTS ="PTS:@416:BU(1)180:BU(2)87:BU(3)41:BU(4)18:BU(5)6:BUBU(BL):150,BU:6052vK119:#2,SC$(K)::6103p:@73,"PRINT GRAPHICS",,," CU s& 30&:K1:L3: J15 1 1: I1 J: @L,"": LLK32:@L,"DO YOU NEED INSTRUCTIONS";: I: KK: J:"L250V22T20;3;5;9;7;8;8;2;4;5;3;2;1;1;10;11;9;6;2":A$' I1 (((),1)):J(0): I: 2000: E$(4),D$(9),HX(30),HY(30):LEVEL1'G( A(A)((A)1)16: B(B)((B)1)8: I0 9: D$(I): I'2 BL2L2H2U2E2R2F2D2,BL2U5G2,L6R2E4H2L2G2,BL2L2H2BR6H2E2H2L2G2,U6BL4D3R6,BL2L4R4E2H2L4U2R6,BU1U1D1G2L2H2U2R4L2U1E4,BL4U1E4U1L6,BL2L2H2BR6H2L2H2BR6H2L2,BL4E4L4H2E2R2F2( X,] 0,1::@234,"FINISHED":,: THE FOLLOWING GRAPHICS ARE USED TO DRAW A SIMPLE TEST PATTERN ON THE SCREEN, 4,1:,1,1,(5,45)(105,145),,BF,»(0,191)(256,0),,B-̻(100,10)(120,30),,BF-0ֻ(100,181)(140,181),-K(100,183)(140,183),-f(100,185)(140,185),-w(200,96),50-(200,96),25-(200,96)-(200,46)(200,146),-(150,96)(250,96),-&(200,10)(220,30),,B-0(200,10)(220,30),. :(205,11).(D(200,162)(220,182),,B.CN(220,162)(200,182),.RX(205,163).lb 30 ::BACK TO MENUT SCALE IS"SC$(LN)"X"," CHOOSE NEW SCALE",6)"1X",,6)"2X",,6)"3X":CM5/Z$(CT):LO(" 1 2 345",Z$):LPLO322:@LP,">";:19:@LPR2BD1D4BH2R4BR3BU3":G$(44)"BD5BR1L1U1R1D2G1BR4BU7":G$(45)"BD3BR1R3BR3BU3"B94G$(46)"BD6BR1L1U1R1D1BR3BU6":G$(47)"BR4D1G4D1BR7BU6":G$(61)"BD2R4BD2L4BR7BU4":GC$"BD2R1U1L1D1BD3R1U1L1D1":G$(58)GC$"BR4BU5":G$(59)GC$"BR1D1G1BR4BU7":G$(60)"BR4G3F3BR3BU6":G$(62)"BR1F3G3BR6BU6":G$(63)"BD1E1R2F1G2BD2D1BR5BU6"B>ST$(8)(9)(12)(13)"\"(94)(95)(10)"@I1:;!,'.&MW":MT$"GRAPHICS SCREEN ONLY GRAPHICS SCREEN & TEXT":CH$"USE UP OR DOWN ARROW TO CHOICE AND PRESS "CmRD6,6F,C1,FE,27,03,7E,82,73,F6,FF,22,54,25,FA,8A,80,BD,8E,0C,81,8D,27,08,0C,9C,D6,9C,D1,9B,25,02,0F,9C,32,62,39C:POKE PRINTER DRIVERC::2220:BA (A36):L$:L$"&H"L$:L(L$):B,L::DL$"":VP0:A0:B0:L0:VP(PT$):A(VP2)256(VP3):D<':65494,0:994:C12:"SIGNS"::X1600:::D't:@99,"********* SIGNS ********",,,15)"BY",,,8)"RICHARD A. WHITE",11)"44 DOW CT.",6)"FAIRFIELD, OH 45014",10)"513-829-5163",,,7)"(C) COPYRIGHT 1982"::" HIGH SPEED POKE Y/N";E='~19:Z$"Y"HP65495:" YES";: 10 :HP65494:" NO";:10_|X((BB)25):Y(BB)25E(128PX,92P1PY)(128PX,92P1PY),:(128,92P1),5,0E(128X,92PY)(128X,92PY),:(128,92P),5,1:P1P:PXX:PYY:B1B:PEEP:MRMTTTT}FILES***8I@103,"SAVE FILES";:CT6@199,(MT$,21),:@198,(MT$,23)865494,0:990:994:J12:MCL$,1536,7679,1536::ZS2:0:17:CT6:"O",#1,F$:#1,X,Y,LN,SC$,SC:K119:#1,SC$(K)::1:0::17:8ş:1000 9&އ@262,"";:" FILE NAME";F$:(F$)7F$(F$,7) 9SF$""CL$F$"M":F$F$"T"::CL$"":9:" RUN PAST LEADER";Z$:Z$"Y":ZS10:0:17:::9 :MAIN MENU:B@13,"SIGNS",,," START NEW SCREEN"," RETURN TO OLD SCREEN"," PRINTER",,,," LOAD FROM TAPE",6)MT$,,," SAVE TO TAPE",6)MT$,,,CH$;:CT1:Z$(CT):LO(1," 123 45 67",Z$):LPLO322:@LP,">";::19:@LP," ";:Z$(10)CT7CTCT1:1020:Z$(94)CT1CTCT1:1020:Z$(13)1020; CT 100,1050,600,900,900,950,950;-SC$(1)""1010:1,0:130;F:LETTER STRINGS SUB;A$"0":B$"":X0:Y0:U0:V0:BI$"D6R3E1":CI$"BR4BD1H1L2G1D4F1R2E1":LI$"D6R4":LE$"BR3BU6":G$(65)"BD6U4E2F2D1L4R4D3BR3BU6":G$(66)BI$"U1H1L3R3E1U1H1L3BR7"<G$(67)CI$"BR3BU5":G$(68)BI$"U4H1L3BR7":G$(69)LI$"BU3BL1L3U3R4BR3":G$(70)"D6U3R3L3U3R4BR3":G$(71)CI$"U2L2BU1BR5BU2":G$(72)"D6U3R4D3U6BR3":G$(73)"BR1D6BR3BU6":G$(74)"BD4D1F1R2E1U5BR3"=}G$(75)"D6BR4H3L1R1E3BR3":G$(76)LI$LE$:G$(77)"D6U6F3E3D6"LE$:G$(78)"D6U5F4D1U6BR3":G$(79)CI$"U4BR3BU1":G$(80)"D6U3R3E1U1H1L3BR7":G$(81)CI$"BL1F2BH1BU1U4BR3BU1":G$(82)"D6BR4H3L1R3E1U1H1L3BR7">G$(83)"BD5F1R2E1H4E1R2F1BR3BU1":G$(84)"R2D6U6R2BR3":G$(85)"D5F1R2E1U5BR3":G$(86)"D4F2E2U4BR3":G$(87)"D6E3F3U6BR3":G$(88)"D1F4D1BL4U1E4U1BR3">G$(89)"D1F2D3U3E2U1BR3":G$(90)"R4D1G4D1R4BR3BU6":G$(49)"BD1E1D6BR3BU6":G$(50)"BD1E1R2F1D1G4R4"LE$:G$(51)"BR1G1BD4F1R2E1U1H1L2R2E1U1H1L2BR6":G$(52)"BD6BR3U6G3R4BU3BR3":G$(48)CI$"U4G4BR7BU5"? G$(53)"BD5F1R2E1U2H1L3U2R4BR3":G$(54)CI$"U1H1L3BE1BR6BU2":G$(55)"R4D1G4D1BR7BU6":G$(56)"BR1G1D1F1G1D1F1R2E1U1H1L2R2E1U1H1L2BR6":G$(57)"BD5F1R2E1U3G1L2H1U1E1R2F1D1BR3BU2"@(G$(32)"BR7":G$(33)"BR1D3BD2D1BR3BU6":G$(34)"BR1D2BR3U2BR3":G$(35)"BD2R4BD2L4BU3BR1D4BR2U4BU1BR4":G$(36)"BR4BD2H1L2G1F1R2F1G1L2H1BR2D2U6BR5" @ G$(37)"D1R1U1L1BR4D1G4D1BR3R1U1L1D1BR4BU6":G$(38)"BF4BR2G2L2H1E4H1L1G1D1F4BR3BU6":G$(39)"BR1D2BR3BU2":G$(40)"BR3G2D2F2BR4BU6":G$(41)"BR1F2D2G2BR6BU6"AJ*G$(42)"BR2BD1D4BH2R4BU1BL1G2BU2F2BR4BU4":G$(43)"B," ";/hхZ$(10)CTCM CTCT1:460:Z$(94)CT1CTCT1:460:Z$(13)460:CT 1000,600/CTCT2:CT11,0:130:495:SC$(LN)(SC):1,0:1300 LP(CT3)322:@LP,">";:19:@LP," ";:Z$(10)CT3CTCT1:490:Z$(94)CT1CTCT1:490:Z$(13)4900HSCCT4:SC$"S"(SC):SCCT:SC$:0ZX:TARGET LINE0]65494,0:BP(150):BU(1,"61841 87 180",((BP),((BP))1)):BU4800BU1Gb:@73,"PRINT ROUTINES",,," CURRENT BAUD RATE ="BU,6)"RESET BAUD RATE",,," PRINT SIGN",,,," PRINT TEXT STRING",,," MAIN MENU":CT12gCT$((CT),1):LP(1," 1 2 3 4",CT$):LPLP322:@LP,">";:19:@LP," ";:Z$(10)CT4CTCTT1:615:Z$(94)CT1CTCT1:615:Z$(13)615:CT 620,640,630,6952pl" ";:"ENTER NEW BAUD RATE";BU$:BU$(BU$,1):BL(1,"36124",BU$):BL0"baud rate error":100,50:6052qBU(1)180:BU(2)87:BU(3)41:BU(4)18:BU(5)6:BUBU(BL):150,BU:6052vK119:#2,SC$(K)::6103p:@73,"PRINT GRAPHICS",,," CURRENT PRINT CHARACTER"," IS "A$,,,," KEY YOUR CHARACTER OR"," FOR "A$:19:Z$(13)650:A$Z$34,1:1,0:#2,(19)(27)(28):"C1":190:"C0":FO16854U2550 1:HP,0:B$(80,32):V079:1(U,V)(B$,V1,1)" "::(B$,V1,1)A$:CTV1:C14L:65494,0:C0#2," "::#2,(B$,CT):C0:4:@194,"PRESS 'C' TO PRINT NEXT"," SCREEN SECTION"," PRESS ANY OTHER KEY TO STOP":19:Z$"C"692:1,0:U25501:HP,05V80159:V1V79:1(U,V)(B$,V1,1)" "::(B$,V1,1)A$:CTV1:C15P:65494,0:C0#2," "::#2,(B$,CT):C0:5:@194,"PRESS 'C' TO PRINT LAST"," SCREEN SECTION"," PRESS ANY OTHER KEY TO STOP":19:Z$"C"692:1,0:U25501:HP,0:V1601926!V1V159:1(U,V)(B$,V1,1)" "::(B$,V1,1)A$:CTV1:C16R:65494,0:C0#2," ":#2,(B$,CT):C06^:6926#2,(27)(20):V0131:HP,0:B$"":CT0:U0131:1(U,V)B$B$" ":B$B$A$:CTU6:65494,0:#2,(B$,CT1)::#2,(27)(19)7#2,(27)(54):190:69571000 75:***LOAD FILE*** 7w@103,"LOAD FILES";:CT4@199,(MT$,21),:@198,(MT$,23)765494,0:990:MCL$:CT5"I",#1,F$:#1,X,Y,LN,SC$,SC:K110:#1,SC$(K)::174,1:1,0:0,1:"C0":1308::***SAVE >& 10100&H 2500:4:PT$(37,"*"):G$(100),SC$(19):2000:1000&`ZS60 17 : &"****TO PROCEED TOUCH ANY KEY****";&Z$:Z$"" 19 : '$"TO SET TAPE RECORDER AND POSITION TAPE TO SAVE OR LOAD, PRESS ANY KEY FOR MOTORON ON ANDTHEN ANY KEY FOR MOTOROFF"'-19'A::19::'I$(SC$(LN),CCDR,1):I(1,ST$,I$):I0XIIC7SC :I18XIIC4SC :XIIC9SC'XXI254SC$(LN)(SC$(LN),(SC$(LN))1):OV1:( CCCCIC:XXXI:X$(X)",":Y$(Y):LT1:"BM"X$Y$:(y"CC0:LNLNIC:I$(SC$(LN),2):SC(I$):YY2ICIC8SC:X2:X$(X)",":Y$(Y):"BM"X$Y$:($X2IC1:DR2:30:(&(SC$(LN))CC2IC1:DR3:30:((LN1IC1:34:(*(SC$(LN1)0IC1:34:)1,IC1:(SC$(LN1))0SC$(LN1)(SC$(LN),2):34:34).I$(SC$(LN),2):SC(I$):SH$(SC$(LN),CC2):YE8SC:LS(SC$(LN)):Y$(Y):X$(X):H$(SC4))0I$(SC$(LN),CC3,1):I(1,ST$,I$):I0XI7SC :I18XI4SC :XI9SC*v2YE$(YE):XI$(XI1):"C1S4":K0XI1:"D"YE$"R1U"YE$::CCCC1:LSCC248:CC(SH$)2:SC$(LN)SH$:"BM"X$","Y$"C0S"H$:*dK119:SC$(K)""::TARGET LINE*n::400:DM0:4,1:1:"C0":190*x4,1:1,0:0,1:LN1:SC$(1)(SC)+}X2:Y2:"BM2,2"SC$+HP,0:PP(X,Y)+<P(X,Y):P0(X,Y,1):(X,Y,0)+nI$:K15::I$""135:(X,Y,PP):A(I$)+I(1,ST$,I$):I0I10I 36,38,110,44,160,40,450,160,46:130,DR3:SC$(LN)SC$(LN)I$:IC1:LT1:30:LT0:OV0G$(A):130:OV0:130, ,vFO0"S4BM0,0;D79R1L1D80R1L1D32":W125:"R10U1D1"::"R5U32L1R1U80L1R1U79L5":W125:"D1U1L10"::,"S4BM0,0;D132":W113:"R10U1D1"::"R3U132L3":W113:"D1U1L10"::-:@46,"SIGNS",,," LETTER SCALE (1ST LINE)",6)"1X",,6)"2X",,6)"3X":CT1:FG0:490-~@LP,"X";:@260,"PAPER FORMAT",,,6)"22 INCH WIDE SIGN",6)"8 1/2 IN. X 11 IN. SHEET":CT0-LP(CT10)322:@LP,">";:19:@LP," ";:Z$(10) CT0CT1:420:Z$(94) CT1CT0:420:Z$(13)420:FOCT:.ž:@46,"SIGNS",,," MAIN MENU",,,," PRINT SIGN",,,,;:CM2:CT1:(SC$(LN))2SC$(LN1)""" CURRENT SCALE IS"SC$(LN)"X"," CHOOSE NEW SCALE",6)"1X",,6)"2X",,6)"3X":CM5/Z$(CT):LO(" 1 2 345",Z$):LPLO322:@LP,">";:19:@LP LL1:RR1: 730/5 L$(32) WW1:L0: 730/d L$(13) SS1:SLWS:: 1000: 3000/ LL1: L6 LWLW1:L30/ R355 R0: 3000/ 730/RXLWS: RX.2 G1:/ RX.5 G2:/ RX.8 G3:0 RX1.3 G4:0 RX1.8 G5:0, RX2.4 G6:0A$ RX3.0 G7:0V. RX3.7 G8:0k8 RX4.5 G9:0B RX5.3 G10:0Ѕ RX6.2 G11:0څ RX7.2 G12:0 RX7.2 G13:0 :@0,"TEXT: ";T$:@16,"TOTAL WDS=";W1 ‡@32,"NO.SENT'S=";S:@48,"NO.LONG WDS=";LW1; ̇@64,"AV.SEN.LNTH=";(SL)1i օ G13 @80,"grade lv:COLLEGE": 30501 @80,"grade lv:";G1 N96 127:@N,(140);: N1 32,1)"-"((C$,32V33,1))64((C$,32V33,1))9161010H31212*:& :MRED&1:17000:&/U$(127,128)&M( TX$(500),T(500),BL(500)&X2 230&c< 250&tFC$"N"370&PC$"I"410&ZC$"T"450&dC$"D"460&nC$"F"470&xC$"E"540&C$"X"620&C$"R"640&C$"L"650' C$"P"720'C$"Q"',C$"G"780'=C$"C"870'OȅC$"U"1140'a҅C$"2"1160'sӅC$"K"1200'ԅC$"^"1300'ׅC$"M"K$TX$(CL):620'܁1040:60'@384,U$;' &H5FF,128:' &H5FF,128'@384,U$;'@490,NL;( @500,CL;("@413,"TXT";(&,X$(26LX$TX$(D@@476,"CMND";(ZJC$:C$""330(gTC(C$)({^C&H0D C$"I"(h@480,C$;:(rTX$(0)"** '"X$(|T(0)1:BL(0)0(TX$(1)"/*":T(1)0:BL(1)0(NL2:CL0:(OLCL:SLT(CL):T(CL)NL)TX$(NL)X$:T(NL)SL:CLNL)7BL(CL)OL:BL(T(CL))CL)ENLNL1:)PCL0:)cYT(CL):CLY:)k )N$(TX$(0),5,8)) "O",#1,N$"/TXT":Y0) TX$(Y)"/*"530)#1,TX$(Y):ZT(Y):YZ)500): :)"I",#1,X$"/TXT":Y0*&LL1*0(1)1600**:#1,TX$(Y)*?DBL(Y)LL:LLLL1*XNT(Y)Y1:YY1:560*tXTX$(Y)"/*":T(Y)0:CL0*bNLY1::BL(0)0:*lCFT(CL):CBBL(CL):CLCF*vT(CB)CF:BL(CF)CB:*TX$(CL)X$:*YT(CL)*F(TX$(Y),X$)+ F0 710+ZT(Y):YZ+% Y0 CL0:+0 660+;CLY:+DYCL+Rڀ W1 9+aZT(Y):YZ+t Y0 CL0:+| W+CLY:+ "I",#1,X$"/TXT"+ (1)1860+ #1,X$+*OLCL:SLT(CL):T(CL)NL+4TX$(NL)X$:T(NL)SL:CLNL,>BL(CL)OL:BL(T(CL))CL,HNLNL1,*R 790,2\:,OfA0:B0:C0:T$"":CH$"",^p X1 24,pzH$(X$,X,1), H$"/"930,T$T$H$:BB1, X, YX1 32,H$(X$,Y,1),H$"/" 980,CH$CH$H$,ʋY,F(TX$(CL),T$)-ޅF0-$AF1:C(TX$(CL))AB-;A$(TX$(CL),1,A)-VC$(TX$(CL),AB1,C)-nTX$(CL)A$CH$C$:-y:YCL- X0 10-$(TX$(Y))331090-.@(X32),TX$(Y):XX1-81100-B@(X32),TX$(Y)-LZT(Y):YZ-V Y0-`X.j.tZBL(CL):CLZ.~.#YCL.1T(Y)0.?"S".a#2,TX$(Y):ZT(Y):YZ:1170.rK$TX$(CL):.X$K$:410UE...";.""280.":"TO GET BACK FROM THE FREQUENCY CRYPTOGRAM TO THE ORIGINAL, TYPE"Q$">"Q$/P,:"WHEN YOU'V &#d:RIXRATE READABILITY PROGRAM&5n: X32 63&Mx@X,(14332);: X&b@6411,"rixrate&@1286,"A RAPID READABILITY&@1606,"PROGRAM BASED ON THE&@1926,"RIX PROCEDURE BY J.&@2246,"ANDERSON (JOURNAL OF' @2566,"READING, MARCH 1983)'*@3206,"'Jȇ@3526,"< JOE KRETSCHMER >'j҇@3846,"'܇@4166,"' X480 511:@X,(14332);: X' P1 3000: P':@196,"DO YOU NEED INSTRUCTIONS?(@258,"(TYPE FOR YES-- FOR NO)(-R$: R$"" 270(? R$"N" 710(W"@32,"instructions:(,@64,"1.YOU WILL BE ASKED TO TYPE IN(6@98,"A SHORT TITLE FOR THE TEXT TO(@@130,"BE ANALYZED BY rixrate.(J@160,"2.AFTER THE TITLE IS ENTERED, A)T@194,"STATUS WINDOW WILL APPEAR AT)H^@226,"THE TOP OF THE SCREEN. rixrate)qh@258,"MONITORS READABILITY SENTENCE)r@290,"BY SENTENCE. ALL FIGURES WILL)|@322,"BE AT ZERO UNTIL A COMPLETE)@354,"SENTENCE IS ENTERED.*@384,"3.TYPE IN THE TEXT, SPACING*1@418,"AFTER EACH WORD AS USUAL, BUT*X@451,"*oR$: R$"" 430*:@66,"OMIT ALL PUNCTUATION EXCEPT*‡@98,"APOSTROPHES AND HYPHENS.*̇@128,"4.SIGNAL THE END OF A SENTENCE+ և@162,"BY PRESSING . BE SURE+5@194,"TO SPACE AFTER THE LAST WORD.+_@224,"5.DIALOGUE EXPRESSIONS SUCH AS+@258," SHOULD BE +@290,"CONSIDERED ONE SENTENCE.+@320,"6.USE THE _ KEY TO CORRECT +@354,"MISTAKES, BUT BE CAREFUL TO,#@386,"SPACE ONLY ONCE FOR EACH WORD.,J&@419,",a0R$: R$"" 560,::@64,"7.BE SURE TO INCLUDE ENOUGH,D@98,"SENTENCES TO CONSTITUTE AN,N@130,"ADEQUATE SAMPLING OF THE TEXT.-X@162,"TAKE BLOCKS OF SEVERAL SENTEN--)b@194,"TENCES FROM THE BEGINNING, -Pl@226,"MIDDLE AND END OF THE TEXT.-zv@256,"8.FINALLY, REMEMBER THAT READ--@290,"ABILITY ESTIMATES ARE ONLY ONE-@322,"FACTOR IN DETERMINING THE-@354,"THE DIFFICULTY OF WRITTEN .@386,"MATERIAL. CONTENT AND OTHER.@@418,"FACTORS ARE EQUALLY IMPORTANT..d@452,".{R$: R$"" 700.ƞ:S0:SL0:W0:LW0:R0.Љ"TEXT TITLE (9 LETTERS OR LESS): ";T$: 3000.L$: L$"" 730.L$;:RR1/ L$(8)H& &"READING DATA"&4 MA$(50,11),CH$(11)&O X0 11: CH$(X):X&XCC0&q A$: A$"EOD" 200&(MA$(CC,0)A$&2 X1 11: MA$(CC,X)&P X&UCCCC1: 30&Ȃ MAIN MENU&͞&҇"1. SEARCH FOR A NAME"' ܇"2. SEARCH ABOVE CERTAIN HD"'-"3. SEARCH BELOW CERTAIN HD"'K"4. SEARCH BY ALIGNMENT"'"5. SEARCH FOR BETTER THAN A CERTAIN AC"'"6. END THE PROGRAM"':"KEY THE NUMBER OF YOUR CHOICE":K$'K$:K(K$): K1 K6 270' 150,1(! K 400,600,800,1000,1200,1400(n:"WHAT MONSTER";T$: 150,1: X0 CC1: MA$(X,0)T$ 1450: 200(v X(:"MONSTER NOT IN FILE":"CHECK SPELLING": X1 1000: X( 200(X:"ABOVE HOW MANY HIT DICE";T: 150,1: X0 CC1)"bZ((MA$(X,3),2)): ZT 1450)1l X: 200)i :"BELOW HOW MANY HIT DICE";T: 150,1: X0 CC1)*Z((MA$(X,3),2)): ZT 1450)4 X: 200):"WHAT ALIGNMENT";T$: 150,1: X0 CC1: MA$(X,10)T$ 1450) X: 200*:"WHAT ARMOR CLASS";T: 150,1*T X0 CC1:Z((MA$(X,1),2)): ZT 1450*cċ X: 200*kx:*: Y0 11:CH$(Y);:MA$(X,Y): Y*:"PRESS ANY KEY TO GO ON";:K$* "" 1470 : 150,1:+l "NAME------ ","AC-------- ","MOVE------ ","HIT DICE-- ","# OF AT.-- ","DAM/ATTACK ","SP. ATTACK ","SP. DEF.-- ","MAGIC RES. ","INTEL.---- ","ALIGNMENT- ","SIZE------ "+І GOBLIN,6,6,1 (1-7 HP),1,1-6 OR BY WEAPON,NIL,NIL,NORMAL,AVERAGE,LAWFUL EVIL,SMALL (4' TALL),Xچ MINOTAUR,6,12,6 +3,2,2-8 OR 1-4/BY WEAPON TYPE,NIL,SURPRISED ONLY ON A 1,NORMAL,LOW,CHAOTIC EVIL,LARGE, RED DRAGON,-1,9/24,9 TO 11,3,1-8/1-8/3-30,BREATH WEAPON + POSSIBLE MAGIC USE,NIL,NORMAL,EXCEPTIONAL,CHAOTIC EVIL,LARGE (48' LONG)-= ROC,4,3/30,18,2 OR 1,3-18/3-18 OR 4-24,NIL,NIL,NORMAL,ANIMAL,NEUTRAL,LARGE (60' WINGS)-G EOD2)26:Y180(FR25.2)26:(224,180)(FX,FY),:(224,180)(X,Y),:FXX:FYY-DZ(0):B(2)31:EP((3)31)188: BB1 EPPE 8000- AS0 1310.DBC10(((B& 1000&C$(1)"SC ZKKV P ABPVGHMW LHBKMS MCFFPDL JBCF WMBCEEHDA, PLL "(34)"JCBP=1SC2WSKV0:DKTS"(34)". ("(34)"P"(34)" DKQKB AKSW SC 2.) SC KDL, GHS SGK "(34)"NBKPZ"(34)" NRSSCD.'C$(2)(34)"XTLBY @"(34)" PJRVX J OGCEGJP OJKXV, IKY QCK FJS'Y KXV YTV RVQICJGZ. YGQ "(34)"IGVJR"(34)"--LY DVYX QCK OGLSY UJGLJIDVX IQ ZLGVFY FCPPJSZ YC XVV TCA PKFT CB YTV OGCEGJP LX ZCSV, JSZ TCA AVDD.('(CA$(2)" YTVS YQOV "(34)"FCSY"(34)" JSZ YTV OGCEGJP ALDD FCSYLSKV ATVGV LY DVBY CBB.(2C$(3)"22222222.2*10=222222222, KG UIT YGJKS'W 22222222.2*10-222222222 JEDCH VJAG? (WAT XW.) WIJ CSKUJA XK WIJ XSBXKXNHJ WJSWI YXZXW-- XW YGJKS'W ZJW OAXSWJY, NDW XW CQQJLWK QDAWIJA LCHLDHCWXGSK.)OPY TRACK 17 ESTORE DIRECTORY ND WHICH";:R$'5< R$"C" 150'KF R$"R" 550']K R$"E" 90'gP 50'Z:@202,"FINISHED":'n:@195,"SOMETHING ALREADY ON TRACK 0 RUN ABORTED":(x:@195,"CANNOT RESTORE DIRECTORY TRACK 0 IS NOT A COPY!! RUN ABORTED":(G: ROUTINE TO LOCK OUT TRACK 0 (GRANULE 0)(Z 0,17,2,A$,B$( (A$,1)(255) (A$,1)(191) 200(110(A$(191)(A$,127)( 0,17,2,A$,B$(: ROUTINE TO VIEW TRACK 0)ܞ:@193,"THIS IS WHAT IS PRESENTLY ON TRACK 0")& T1800:)6 SN1 9 )K 0,0,SN,D1$,D2$)XD1$;D2$)l T1 300: T)u SN):@195,"DO YOU WANT TO COPY TRACK 17 TO TRACK 0 /";: R$)" R$"Y" 320), R$"N" 50)6 280*;: ROUTINE TO COPY TRACK 17 TO TRACK 0* @ *0J SN2 10*RT 0,17,SN,D1$(SN1),D2$(SN1)*[^ SN*kh SN1 9 *r 0,0,SN,D1$(SN),D2$(SN)*| SN* **: ROUTINE TO SEE IF TRACK 0 IS A DIRECTORY COPY* 0,0,2,A$,B$+ (A$,1)(191) 120+(: ROUTINE TO RESTORE DIRECTORY+d&:@195,"READY TO RESTORE DIRECTORY /";: R$+v0 R$"N" 50+: R$"Y" 590+D550+N +X SN1 9 +b 0,0,SN,D1$(SN),D2$(SN)+l SN+v SN2 10, 0,17,SN,D1$(SN1),D2$(SN1),  SN, , 8000,JALAL(VVH)4.6: AL0 AL0,X224((AL159)15):Y40((AL159)15):(224,40)(LX,LY),:(224,40)(X,Y),:LXX:LYY-X224((AL1592)8):Y40((AL1592)8):(224,40)(L1,L2),:(224,40)(X,Y),:BM80,169;U1;BM+94,0;N;D1;BU2;U1;"AI Z3 3:AZ57.29:X(A20):Y(A20):XA128(19X):XB128(21X):YA40(19Y):YB40(21Y)AN(XA,YA)(XB,YB),:A"BM126,170;XA$(S);"A BdX BU1;U4;E1;R2;F1;N;G4;D4;G1;L2;H1;BD1,BU6;BR2;N;G1;D6;R1;L2;BL1,BU5;E1;R2;F1;D1;G1;L1;G2;D1;N;R4,BU5;E1;R2;F1;D1;G1;N;L1;F1;D1;G1;L2;H1;BD1,BU2;N;R4;U1;E3;D6;BL3C1b BU6;N;R4;D3;E1;R2;F1;D2;G1;L2;H1;BD1,BU6;BR2;N;R2;G2;D3;U2;R3;F1;D1;G1;L2;H1;BD1,BU6;R4;D1;G3;D2;BL1,BU1;U1;E1;N;R1;H1;U1;E1;R2;F1;D1;G1;N;L1;F1;D1;G1;L2;H1;BD1,BU4;N;F1;U1;E1;R2;F1;D2;N;L3;D1;G2;L2Cl U6;R4;BD3;BL1;L3;D3;N;R4,U6;R4;BD3;BL1;L3;D3,U6;D1;F4;N;U5;D1;BL4,BU5;BR4;H1;L2;G1;D1;F1;R2;F1;D1;G1;L2;H1;BD1,N;U6;E2;N;U1;F2;N;U6;BL4,BU6;D1;F2;E2;N;U1;BD4;N;D1;H2;G2;D1D @TR(B(B41).5): TRLR 8020DJ(126LR,130)(130LR,130),:(128LR,130)(128LR,133),:(126TR,130)(130TR,130),:(128TR,130)(128TR,133),:LRTRDTP(100(EP((6AP.57).54)6)): P20 P20 : P20 P20DY AL5 AL0E^ AL0 AS50 AL0 (P)1 P0E%h PP1 BB1 E?rBBB93: AL0 BB0E_|X((BB)25):Y(BB)25E(128PX,92P1PY)(128PX,92P1PY),:(128,92P1),5,0E(128X,92PY)(128X,92PY),:(128,92P),5,1:P1P:PXX:PYY:B1B:PEEP:MRMTTTT} D3D6 : "C0;BM-10,0;XA$(D6);C1;XA$(D3);":D6D38q D2D5 : "C0;BM-7,0;XA$(D5);C1;XA$(D2);":D5D2:8 SD5281999 17108X30(SB)15:Y160(SB)15:(30,160)(SX,SY),:(30,160)(X,Y),:SXX:SYY:9q4Q1(TH3600): Q1Q8 320 : Q2(TH216000):Q3(TH36000)(6Q2):Q4Q1(10Q3)(60Q2):Q8Q1:"C0;BM184,170;XA$(Q7);C1;XA$(Q4);":Q7Q49R Q3Q6 320 : "C0;BM-7,0;XA$(Q6);C1;XA$(Q3);":Q6Q39\ Q2Q5 320 : "C0;BM-10,0;XA$(Q5);C1;XA$(Q2);":Q5Q2: 320:. X30 224 194: Y40 160 60:(X,Y),25,1: Y: X:A(128,92),55,1:~(84,92)(88,92),: X74 110 6:(86,X)(88,X),: X:(168,92)(172,92),: X74 110 9:(168,X)(170,X),: X: Z1 3: 5060: Z: Z5 7: 5060: Z: 5100;'X((6.283210)Z):Y((6.283210)Z);_XA30(20X):XB30(24X):YA40(20Y):YB40(24Y);xػ(XA,YA)(XB,YB),:;"BM28,24;XA$(0);BM39,58;XA$(1);BM10,36;XA$(2);";P Z1 9 2;ZX((6.283210)Z):Y((6.283210)Z)<%dXA224(20X):XB224(24X):YA40(20Y):YB40(24Y)<@n(XA,YA)(XB,YB),: Z<"BM222,24;XA$(0);BM239,36;XA$(2);BM233,58;XA$(4);BM210,58;XA$(6);BM204,36;XA$(8);"< Z2 8 2:X((6.283210)Z):Y((6.283210)Z)=XA224(20X):XB224(24X):YA100(20Y):YB100(24Y)=)һ(XA,YA)(XB,YB),: Z="BM237,113;XA$(2);BM215,121;XA$(1);BM203,102;XA$(0);BM215,85;XA$(1);BM237,92;XA$(2);"=(114,15)(142,25),,B:(128,19),18,1= Z1 5 2="X((6.28328)Z):Y((6.28328)Z)>$,XA30(20X):XB30(24X):YA100(20Y):YB100(24Y)>?6(XA,YA)(XB,YB),: Z>J"BM28,84;XA$(0);BM47,103;XA$(1);BM28,122;XA$(2);BM9,103;XA$(3);">| Z2 11 3: 5510:> Z1 10 3: 5510:: 5540>X((6.283212)Z):Y((6.283212)Z)?-XA30(20X):XB30(24X):YA160(20Y):YB160(24Y)?F(XA,YA)(XB,YB),:?"BM28,144;XA$(12);BM47,163;XA$(10);BM28,182;XA$(13);BM9,163;XA$(14);"? Z1 1?X((6.286224)Z):Y((6.286224)Z)@XA224(30X):XB224(33X):YA180(30Y):YB180(33Y)@!(XA,YA)(XB,YB),:@M"BM206,154;XA$(10);BM238,154;XA$(11);"@j(128,0),140,1,1,.23,.29@&"BM128,135;ND5;BM+12,0;ND3;BM+12,0;ND2;BM-36,0;ND3;BM-12,0;D2;"A 0(62,161)(91,172),,B:(163,161)(192,172),,B:(122,161)(134,172),,B:"(224,40)(LX,LY),:(224,40)(X,Y),:LXX:LYY/X224((AL1592)8):Y40((AL1592)8):(224,40)(L1,L2),:(224,40)(X,Y),:L1X:L2Y/0FRFR((RH)72000000): FR12 FR120:X224(FR25.2)26:Y180(FR25.2)26:(224,180)(FX,FY),:(224,180)(X,Y),:FXX:FYY0^DZ(0):B(2)31:EP((3)31)188: BB1 EPPE 80000q AS0 13100BC10(((B31)1.5707963)):CSCSBC: CS360 CSCS360 : CS0 CSCS3601NC(CS.5): CC1 1350 : C2(C100):C3(C10)(10C2):C4C(100C2)(10C3):C1C:"C0;BM134,23;XA$(C7);C1;XA$(C4);":C7C41( C3C6 1350 : "C0;BM126,23;XA$(C6);C1;XA$(C3);":C6C312 C2C5 1350 : "C0;BM118,23;XA$(C5);C1;XA$(C2);":C5C22FX30(C57.2)10:Y160(C57.2)10:(CX,CY),1,0:(X,Y),1,1:CXX:CYY2]PZ(0):B(2)31:EP((3)31)188: BB1 EPPE 80002 AS0 1610 : CD(AS5.28H)216:ACS57.29:XCD(A):YCD(A):TXTXX:TYTYY3 AL0 WS0 1610 : WD(WS5.28H)216:AWA57.29:XWD(A):YWD(A):TXTXX:TYTYY3/JS$: S$"" 16403UTX(S$): X10 1640 : 17103^"C0;BM126,170;XA$(S);C1;XA$(X);":SX3h S0 N(S)0 1710 : 18103mZ(0):B(2)31:EP((3)31)188: BB1 EPPE 80003r 21004 D715 N(S)0 : (30,160)(SX,SY),:"C0;BM83,170;XA$(D7);BM-10,0;XA$(D6);BM-7,0;XA$(D5);C1;XA$(15);BM+7,0;XA$(15);BM+10,0;XA$(15);":(128,40)(IX,IY),:(162,92GX),1,0,.1:D715:D615:D5154 (38,17)0 50004¿1,0:5BXSX(S)TX:BYSY(S)TY:SD(BX2BY2)5+ BX0 BX.0015@ BY0 BY.0015nXBYBX: BX0 1830 : SB(X): 18355&SB(X)3.14165+X((S3).9): X 1839,1939,20395/ SD528010 1710600CASB(RB(S)1.5708):DB(CA): (DB).2588 1710 : DB.0523 DB.0523 : DB.0523 DB.05236:X128(DB20)15:Y40(DB20)15:(128,40)(IX,IY),:(128,40)(X,Y),:IXX:IYY6DX((AL(SD1000)).04366)1000: X18 X18 : X18 X187N(162,92GX),1,0,.1:(162,92X),1,1,.1:GXX: 19407 SD528999 17107pX30(SB)15:Y160(SB)15:(30,160)(SX,SY),:(30,160)(X,Y),:SXX:SYY7SD(SD528): SDD1 : D2(SD100):D3(SD10)(10D2):D4SD(100D2)(10D3):D1SD:"C0;BM83,170;XA$(D7);C1;XA$(D4);":D7D48510;BM54,15;C3D20L5R30L5U20;BM84,0;C2D17R85U17;C3R1D16L83U16;BM175,1;C2R80BM+0,+10;L80U10;BM175,12;C3R80BM+0,+10;L80C2U10"94(120,10),4,3:(18,11),4,2:(19,25),3,2:4,1:"BM54,15;C1H2;BM49,35;H2;BM74,15;E2;BM79,35;E2;BM92,25;D11R71U11L71;BM175,25;R80D11L80U11"95"BM210,3;XL$(0);XL$(0);XL$(0);XL$(0);XL$(0);BM210,14;XL$(0);XL$(0);XL$(0);XL$(0);XL$(0);":4,1:"BM93,3;C0S7;XL$(28);XL$(25);XL$(11);XL$(13);BM+0,-1;XL$(18);C1S4":(54,22),5,1,1,.25,.75:(54,22),3,1,1,.25,.75:6 142,12,31,166,132,16,142,0,31,230,31,231,132,48,31,49,63,38,246,167,132,48,136,63,140,14,63,47,230,142,14,96,166,132,16,142,0,31,230,1,231,128,49,63,38,248,167,128,140,16,160,47,235,142,12,0,236,129,237,137,5,254,237:7 137,11,254,140,16,160,38,241,57;@8 I16310 16381: J: I,J:I:(0,66)(255,66),:(0,84)(255,84),:6:@237,"roach";:0,1<9"BM98,32;C1;G2E2F2H2;BM+0,-2;G3E3F3H3;BM+0,-2;G3E3F3H3;BM+2,-1R1;BM-5,0;L1":(95,26)(101,34),R,G:(92,25)(92,36),:(91,26)(105,34),RW,G:(92,25)(92,36),:(105,26)(111,34),RX,G:(0,48)(255,48),<:I108158 10:(I3,26)(I3,34),R,:I:(0,0)(255,0),:(255,0)(255,40),:(0,36)(255,36),:(22,17)(22,34),:(56,16)(72,16),:(87,1)(87,15),=[;I1734:(56,I)(72,I),:I:(15,53),4,1,1,.5,1:(19,57),4,1,1,.75,.25:(15,61),4,1,1,0,.5:(11,57),4,1,1,.25,.75:(15,57),4,1,1:(15,57),2,1,1:(32,51),1,1:(32,63),1,1><(45,54),3,1,1:(45,60),3,1:(45,54),1,1:(45,60),1,1:(130,57),7,1,1,.125,.875:"BM130,57;NE5NF5":(125,57),1,1:(129,54),1,0:(200,57),7,1:(200,57),3,1:(196,57),1,1>="BM215,63;NE9R10NU10L8NE7R1NE7R2E4;BM238,50;NF9R10ND10G4":3,1:"BM55,50;C3R10;BM60,63;C4R10;BM90,50;C3R20D12L20U12;BM147,50;C2R13D14L13U14;BM168,50;R12BD2L8BD2C3D6BR3U6BR3D6BR2BD2C2L8BD2L3R12":(100,57),3,3:(155,57),2,2?f>4,1:(223,61),5,5:(55,50)(60,63),:(65,50)(60,63),:(65,50)(70,63),:(65,55),5,5:"BM200,57;C0;NE4NF4NG4NH4C1"@ ?"BM97,53;C0;XL$(2);BM151,54;XL$(2);C1":(6,49)(138,64),P1,G:(123,67)(255,82),P1,:(146,49)(248,64),P1,G:(9,67)(111,82),P1,:23:24:1,1:I01000:I@:@16310:"V31T255L255O3A":(32) :64@aA RAINBOW ROACH BY J. FRAYSSE 1983A[AsB~7XS9 LC% C2:(X,Y)(X2,Y2),8 C4:(X,Y)(255,Y3),:14608Y2175SR10:(XX3,26)(XX3,34),R,:SS10/yRCRC1:XX9810RC:33:40:(XX3,26)(XX3,34),XM,:ID0: RC1 41:9/(25,10)(45,5),:(25,12)(45,17),:(25,11)(45,8),:(25,11)(45,14),:0 (25,10)(45,5),:(25,12)(45,17),:(25,11)(45,8),:(25,11)(45,14),:0_!B$"":S$(S):LX(S$): LX3 B$L$(0): LX2B$L$(0)L$(0)0"N2LX:B$B$L$(((S$,N,1))):N: IH1360#(177,14)(255,20),XM,:"BM178,14;C1;XN$;BM210,14;XB$;XL$(0);XL$(0);":3714$(177,3)(255,11),XM,:"BM178,3;C1;XNX$;BM210,3;XB$;XL$(0);XL$(0);":IH0:391E% SXS 391d&IH1:SXS:SSX:NX$N$:331j'1("C1":N3417 1:(56,N)(72,N),:N:1) (SRS)042:432<*RSRS50:N03:"V31T8L8O1ABDCFEL2G":N:N98158 10:(N3,26)(N3,34),R,:"V31L12O1AB":N:(176,26)(254,34),XM,:RC6:SR0:IH0:92j+16310:"V31T255L255O3A":(32)5:432, L$(36),R(2),RX(2),RW(3),P1(54),Y(9),XM(20),DX(9)3-L$(1)"BM+2,0;R1D6L3R6;BM+3,-6":L$(2)";D1U1R6D3L6D3R6;BM+3,-6":L$(3)";R6D3L4R4D3L6;BM+9,-6":L$(4)";D3R6L1U3D6;BM+3,-6":L$(5)";R6L6D3R6D3L6U1;BM+9,-5":L$(6)";D6R6U3L6;BM+9,-3":L$(7)";D1U1R6D6;BM+3,-6":L$(8)";R6D6L6U3R6L6U3;BM+9,0"4y.L$(9)";R6D6U3L6U3;BM+9,0":L$(0)";R6D6L6U6;BM+9,0":L$(11)";BM+0,+6;U3E3F3L6R6D3;BM+3,-6":L$(12)";R6D3L6R6D3L6U6;BM+9,0":L$(13)"BM+6,+1;U1L6D6R6U1;BM+3,-5":L$(14)";R4F2D2G2L3U6L1D6;BM+9,-6":L$(15)";R6L6D3R3L3D3R6;BM+3,-6"5a/L$(16)";R6L6D3R3L3D3;BM+9,-6":L$(17)";BM+6,+1;U1L6D6R6U3L3D1;BM+6,-4":L$(18)";BM+0,+0;D6U3R6U3D6;BM+3,-6":L$(19)";R6L3D6L3R6;BM+3,-6":L$(20)";R6L3D6L3U2;BM+9,-4":L$(21)";D6U1E5;BM+1,+6;H3F3;BM+3,-6":L$(22)";D6R6;BM+3,-6"6K0L$(23)";D6U6F3E3D6;BM+3,-6":L$(24)";D6U6F6U6;BM+3,0":L$(25)";R6D6L6U6;BM+9,0":L$(26)";R6D3L6U3D6;BM+9,-6":L$(27)";R6D6H3F3L6U6;BM+9,0":L$(28)";R6D4L2F2H2L4D2U6;BM+9,0":L$(29)";R6L6D3R6D3L6;BM+9,-6":L$(30)";R6L3D6;BM+6,-6"71L$(31)";D6R6U6;BM+3,0":L$(32)";D3F3E3U3;BM+3,0":L$(33)";D6E3F3U6;BM+3,0":L$(34)";F6H3G3E6;BM+3,0":L$(35)";F3E3G3D3;BM+6,-6":L$(36)";D1U1R6G6R6U1;BM+3,-5":L$(10)";BM+4,0"72Y(0)186:Y(1)172:Y(2)153:Y(3)138:Y(4)124:Y(5)105:Y(6)90:Y(7)76:Y(8)57:Y(9)42:DX(0)0:DX(1)8:DX(2)8:DX(3)0:DX(4)8:DX(5)8:DX(6)0:DX(7)8:DX(8)8:DX(9)08x34,1::3,1:"BM15,8;C2S4R4D2R4D2L4D2L4R4F4D17L12U17E4U6;BM31,20;C4R12D10L12U&65495,0:6:@167,"afabear software";:@174,(223);:@299,"presents";:0,1:(&H3EB9)&H32 350,&H3EA0:I&H82B9 &H831E:I&H4400,(I)::3&I02:&H3EBDI,18::I&H3F1E' I,&H26:I1,3:I2,&H7E:I3,&H83:I4,&H22:I5,&H7E:I6,&HA4:I7,&H4C'&H19B,&H3E:4'144:SX0:NX$""'2:RS50:(177,14)(254,20),XM,:@192,"PLEASE ENTER YOUR INITIALS";:N$:LX(N$): LX3 LX15(PB$"":N1 LX:B$B$L$(((N$,N,1))54):N:N$B$:"BM177,14;C1;XN$;BM210,14;XL$(0);XL$(0);XL$(0);XL$(0);XL$(0);":N98158 10:(N3,26)(N3,34),R,:N:(176,26)(254,34),XM,((155,26)(161,34),XM,:2:@194,"PLEASE ENTER DIFFICULTY LEVEL";:@232,"1-EASY 4-HARD";: DF: DF1 DF4 7)8:N2228:(33,N)(41,N),:N:"BM33,22;C1;XL$(DF);":1,1:RC6:S0:SR0:IH0) KD16DF4:X124(3)2:I16:J0:K0:N04:"V31O4L24T24BAFEDC":N:"T2O1C":N0150:N:"C":(155,26)(161,34),XM,) J9 11 :26* (X7,Y(J)4)(X7,Y(J)4),RW,:II.2:KK1:(56,I)(72,I),:JX(((0)31)40.5)4: (1)015*= XXJX:(X128)116X128116(X128)*\ I34 26 : KKD 11*"V31T255L255O3A":16310:K0:11*ID0:(X3,Y(J)4)(X3,Y(J)4),XM,:"T10L10O5AB":JJ1:(X3,Y(J)4)(X3,Y(J)4),RX,G:17+<(X3,Y(J)4)(X3,Y(J)4),RX,:"T12L12O5AB":JJ1:(X3,Y(J)4)(X3,Y(J)4),RX,G+ (X3,Y(J))5 (X3,Y(J))5 (X2,Y(J)1)5 (X2,Y(J)1)5 (X,Y(J))5 (X,Y(J)4)5 18 :19+(X3,Y(J)4)(X3,Y(J)4),R,:ID1:26,(X3,Y(J)4)(X3,Y(J)4),R,,3KK.25:N(0): (1)0 24 : KKD 20,]XXX:XXDX(J): (X128)12022:23,X128123(X128):(XX3,Y(J)4)(XX3,Y(J)4),RX,:(X3,Y(J)4)(X3,Y(J)4),RX,G:(X3,Y(J)3)(X3,Y(J)4),R,:26-B(XX3,Y(J)4)(XX3,Y(J)4),RX,:"V31T255L255O3A":16310:(X3,Y(J)4)(X3,Y(J)4),R,:K0:20-] J1 J4 J7 16-(X3,Y(J)4)(X3,Y(J)4),RX,:"T10L10O5AB":JJ1:16310:10- J9 29 : I34 ID0 28.231:N010:(X3,Y(J)4)(X3,Y(J)4),R,:255,1:(X3,Y(J)4)(X3,Y(J)4),RX,:N:32:SSJID:30.31:N010:(X3,Y(J)4)(X3,Y(J)4),R,:255,1:(X7,Y(J)4)(X7,Y(J)4),XM,:N:32:SSJ:30/)(X3,Y(J)4)(X3,Y(J)4),R,:N1120 20:N,1:N:(X3,Y(J)4)(X3,Y(J)4),XM,:SRSR1:XX&+"COPYRIGHT WILLIAM G. FRANKLIN 1982"&B S1 9:N(S)0:&L( 55&2:"YOU HAVE ENTERED COORDINATES FORTHE FOLLOWING STATIONS:"&5S$(1);:S$(2);:S$(3);:S$(4);:S$(5);:S$(6);:S$(7);:S$(8);:S$(9)'7:"WHAT STATION NUMBER (0-9)";S: S9 50'4< S1 110,70,70,70,80,80,80,90,90,90(F:"STATION";S;"IS AN ILS":"STATION BEARING (0-360)";A:AA57.29:"STATION DISTANCE (MILES)";D:DD5280:SX(S)D(A):SY(S)D(A):"RUNWAY HEADING (0-360)";X:RB(S)(X)57.29:S$(S)(S):N(S)1: 50(+P:"STATION";S;"IS A TACAN": 100(QZ:"STATION";S;"IS AN ADF": 100(d"STATION BEARING (0-360)";A:AA57.29:"STATION DISTANCE (MILES)";D:DD5280:SX(S)D(A):SY(S)D(A):S$(S)(S):N(S)1: 50)mn::"AIRCRAFT BEARING (0-360)";A:AA57.29:"AIRCRAFT DISTANCE (MILES)";D:DD5280:TXD(A):TYD(A):"AIRCRAFT HEADING (0-360)";X:CS(X))x"GALLONS OF FUEL (MAX 24,USES 6 GPH @ 2000 RPM)";X: X24 FR12 : X0 FR12 : FRX12*":"WIND DIRECTION (0-360)";X:WA(X)180:"WIND VELOCITY (MPH)";X:WS(X)*,::*qZ(0):X(1): X63 @64,"PLEASE PULL THROTTLE BACK": 140*w*::"PLEASE STAND BY. AIRCRAFT IS BEING SERVICED."*A$(15): X0 15: A$(X): X*4,1:0:5000+*,Q71:Q61:Q51:Q8.01:H0:AL0:C79:C69:C59:LR40:P11:0+@@H:0:THTHH+tJZ(0):R63(1):B(2)31:EP((3)31)188+T BB1 EPPE 8000+h AL0 R12 R1260R20 : RR116+m FR12 AL0 R700 : FR12 AL0 R0,o R130 R10,}rRR1((RR1).6):R1R:X30((R636.6)15):Y100((R636.6)15):(30,100)(RX,RY),:(30,100)(X,Y),:RXX:RYY,|AP((6((R2000)4488).57).54)6,AS(R(1AP)(1EP))16.66:ASA1((ASA1).1): AS10 AS0-MX30((AS39.46)15):Y40((AS39.46)15):(30,40)(AX,AY),:(30,40)(X,Y),:AXX:AYY:A1AS-a AS50 EP1- (VV)1 VV((APEP)AS)15 : VV(1AL10000)((APEP)AS)15- AL0 (VV)1 VV0.:V1V5((VVV5).3):X224((V1)15):Y100((V1)15):(224,100)(VX,VY),:(224,100)(X,Y),:VXX:VYY:V5V1.Z(0):B(2)31:EP((3)31)188:P(100(EP((6AP.57).54)6)): BB1 EPPE PP1 8000.ALAL(VVH)4.6: AL0 AL0/-X224((AL159)15):Y40((AL159)15):& 150,18 :set 2400 bps&/A$"This is "&CB$" printing."&Y(#2,A$"NORMAL"B$&|2#2,(27)"E"A$"EMPHASIZED"B$&<#2,(27)"F" :turns off emphasized mode&F#2,(27)"G"A$"DOUBLE STRIKE"B$'P#2,(27)"H" :turns off double strike mode'?Z#2,(27)"E"(27)"G"A$"EMPHASIZED, DOUBLE STRIKE"B$'ud#2,(27)"F"(27)"H" :returns to normal print'n#2,(15)A$"CONDENSED"B$'x#2,(14)A$"CONDENSED, DOUBLE WIDTH"B$'#2,(27)"G"A$"CONDENSED, DOUBLE STIKE"B$(-#2,(14)A$"CONDENSED, DOUBLE STRIKE, DOUBLE WIDTH"B$(j#2,(18)(27)"H" :turns off condensed, double stike(#2,A$(14)"DOUBLE WIDTH"(20)B$(#2,(14)(27)"E"A$"DOUBLE WIDTH, EMPHASIZED"B$(#2,(27)"F":turns off emphasized)&#2,(14)(27)"G"A$"DOUBLE WIDTH & STRIKE"B$)Rȇ#2,(27)"H":turns off double strike)҇#2,(14)(27)"E"(27)"G"A$"DOUBLE WIDTH & STRIKE, EMPHASIZED"B$)܇#2,(27)"F"(27)"H":turns off double strike & emphaziedAME RIN TIN TIN'S OWNER,RUSTY*%& "BAR GRAPH"&>"*** STEVE BLYN,COMPUTER ISLAND,1983"&KZ3:Y27&W( (8)&}2"WHAT IS YOUR NAME";: N$:220,3&"(39) ROACH", "(58) FLTSIM32"$e"(60) FLTSIM16", "(76) RAINTEXT*"$"(86) COPYDIR", "(94) SIN-COS"$$" PRESS ANY KEY TO CONTINUE"$ ""540$&$0 " (XX)= PAGE NUMBER OF LISTING"$:%D "(116) 3D GRAPH", "(126) MONSMENU"%EN"(133) CRYPTSAM", "(134) CRYPTO"%iX"(144) MR ED", "(149) RIXRATE"%b"(182) FORMATR","(200) SIGNS"%l"(247) SPOOLER*", "(252) PIXDUMP"%v"(256) 2CRAPSA", "(257) 3CRAPS"& "(259) PIPELINE", "(266) RAINBUG2*"&&" *=MACHINE LANGUAGE PROGRAM"&,&o " PRESS ANY KEY TO RETURN TO FIRST PAGE OF MENU"& " PRESS (BREAK) TO EXIT MENU"& "" 700 : : 400&Ƈ(32,45);T AND RIGHT ARROW KEYS TO ROTATE YOUR SHIP AND THE Q &:*****TRIVIA GAME*****&9:******GARY WICK******&U:*****MADISON,WI******&] S0&r P1 600: P&x&( @233,"TRIVIA QUIZ"&2 K1 850: K&<(4)&F@ 52,"SCORE:"S&P"ENTER YES WHEN READY-READY";Y$'Z Y$"YES" 100 : 80'd'nNN1'&x N25 520'/ A$'8 B$'V @34,"FOR TEN POINTS..."'c @96,A$'kT0'uTT1'Ҡ 128,1'܀ Q1 390:Q' T10 240 : 200'@ 298,"ANSWER NOW"'X$""'T0' T100 515'Z$'"TT1(, T300 340(,6X$X$Z$: @ 360,X$(A@ X$"" 270(ZJ X$B$ 430 : 280(aT (n^ 100,10(h @225,"SORRY,YOU'RE WRONG"(r Q1 1000: Q(|SS5(( 20( 200,15(SS10(ž(C0(CC1) Q1 300: Q) (C))"@235,"CORRECT!!!";)8 C7 20 : 470)t(8): @ 69,"SORRY, YOU'RE TOO SLOW.";: Q1 1000: Q)z) @ 202,"END OF GAME") @ 38,"YOUR SCORE IS:"S)& @ 353,"TO PLAY AGAIN,ENTER RUN"): NAME RIN TIN TIN'S OWNER,RUSTY*%D HOWDY DOODY LIVED IN -?,DOODYVILLE*pN WHO PLAYED ALAN BRADY ON THE DICK VAN DYKE SHOW?,CARL REINER*X FULL NAME OF BATMAN'S BUTLER,ALFRED PENNYWORTH*b WHO PLAYED MRS PEEL IN THE AVENGERS?,DIANA RIGG+ l THE VOICE OF MR MAGOO?,JIM BACKUS+Ev IN CAR 54 WHO PLAYED OFFICER MULDOON?,FRED GWYNNE+y WHAT WAS BARNABY JONES' OFFICE NUMBER?,615+ WHO PLAYED THE PENGUIN IN BATMAN,BURGESS MEREDITH+ WHAT IS "KING OF BEERS"?,BUDWEISER, ANDY TAYLOR WAS SHERIFF OF WHAT TOWN?,MAYBERRY,- POPEYE'S FOE IS-?,BLUTO,Y ERIC CARTWRIGHT'S NICKNAME WAS-?,HOSS, HEAD OF P&O(SECTION I) FOR UNLCE?,ALEXANDER WAVERLY,Ɔ COMMANDER OF FORT APACHE ON RIN-TIN-TIN?, LIEUTENANT RIP MASTERS-(І NAME THE MILLIONARE, JOHN BERESFORD TIPTON-Sچ SERGEANT JOE FRIDAY'S BADGE NO.?,714-w NAME CISCO KID'S HORSE,DIABLO- CASPER'S HORSE GHOST FRIEND?,NIGHTMARE- WHO WAS MR. WIZARD?,DON HERBERT. ACADEMY AWARD FOR BEST PICTURE OF 1961?,WEST SIDE STORY.V ACADEMY AWARD FOR BEST PICTURE OF 1973?,THE STING.~ BEATLE'S LAST ALBUM?, ABBEY ROAD. ACADEMY AWARD FOR BEST SONG OF 1961?,MOON RIVER.* NAME ZORRO'S SERVANT,BERNARDO4EU2HNL4EU2HNL4BR6NR4G[&, :***CASSETTE LABEL PRINTER PROGRAM***&?:BY J. D. RAY&[: 5065 FRANCE AVENUE&(: N. CHARLESTON, S.C. 29406&2: COPYRIGHT MAR, 1983&<: VERSION #1&F5: @ 100,(24,"#");&P @ 132,"# CASSETTE LABELS #";'Z @ 164,"# #";'Ed @ 196,"# BY J. D. RAY #";'mn @ 228,"# COPYRIGHT 1983 #";'x @ 260,(24,"#");' X1 1500: X': @ 234,"INSTRUCTIONS?": @ 270,"(Y/N)"'R$: R$"" 150' R$"Y"1260:170(:@5,"CASSETTE LABEL PROGRAM"(U@65,"DO YOU WANT THE FOLLOWING FOR THE TITLE:"(x@130,"1. ELONGATION (16 MAX)"(ȇ@162,"2. STANDARD (32 MAX)"(҇@194,"3. COMPRESSED (38 MAX)"(܇@226,"4. CONDENSED (55 MAX)"(( 200,1( X) X1 X4 240)/ X 280,410,520,640)E:ELONGATION MODE)"#2,(27);(19);(27);(14) :SELECT STANDARD & ELONGATION MODE), 1190)6:@128,"YOU HAVE SELECTED THE ELONGATIONMODE FOR YOUR TITLE."*@:@97,"ENTER TITLE (LESS THAN 16":" CHARACTERS):":*+J R$"R" 370*7T 200,1*B^ A$*h (A$)16 "TITLE TOO LONG FOR THIS TYPE":150,40: 170*r#2,A$ *|#2,(27);(15);(14);(27);(19) :END ELONGATION, UNDERLINE:BEGIN STANDARD PRINT* 750+ :STANDARD MODE+f#2,(27);(19);(15);(27);(31) :STANDARD CHARACTER SELECT, UNDERLINE, BOLD+r 1190+:@160," YOU HAVE SELECTED THE STANDARD PRINT MODE FOR YOUR TITLE"+:@224," ENTER TITLE ":, … R$"R" 490,̠ 200,1,#ֻ A$,c (A$)32 "TITLE TOO LONG FOR THIS TYPE":150,40:170,#2,A$;(14);(27);(32) :END UNDERLINE, BOLD, 750,:SELECT COMPRESSED MODE-#2,(27);(23);(15);(27);(31) :SELECT COMPRESSED MODE, UNDERLINE, BOLD-$ 1190-w@128," YOU HAVE SELECTED THE COMPRESSED PRINT MODE FOR YOUR TITLE"-&:"ENTER TITLE :":/ R$"R" 720/ 200,1/ A$/ƅ (A$)54 "TITLE IS TOO LONG FOR THIS TYPE": 150,40:1700Ї#2,A$0[ڇ#2,(14);(27);(32);(27);(19) :END UNDERLINE, BOLD:SELECT STANDARD TYPE0f䁥 7500{:START 2nd LINE0:@32,"ENTER 2nd LINE USING LESS THAN 32 CHARACTERS"00 R$"R" 8200 200,10 B$1* (B$)32 "LINE IS TOO LONG***RE-TYPE**":8001*4#2,B$1?>:START 3rd LINE1uH#2,(27);(23) :SELECT COMPRESSED PRINT MODE1R:@32,"ENTER 3rd LINE USING LESS THAN 5 CHARACTERS"1\: R$"R" 9401f "LEFT SIDE": 200,11p C$2z (C$)5 "LINE IS TOO LONG**RE-TYPE**":8702%2?"RIGHT SIDE": 200,12J D$2 (D$)5 "LINE IS TOO LONG**RE-TYPE**":9102#2,C$;34);D$2:START 4th LINE2:@32,"ENTER 4th LINE USING LESS THAN 5 CHARACTERS "2ʇ: R$"R" 10503ԇ "LEFT SIDE": 200,13޻ E$3U (E$)5 "LINE IS TOO LONG**RE-TYPE**":9803[3u"RIGHT SIDE": 200,13 F$3 (F$)5 "LINE IS TOO LONG**RE-TYPE**":10203#2,E$;34);F$3$:START 5th LINE4.#2,(27);(20) :SELECT CONDENSED CHARACTER4O8:@32,"ENTER 5th LINE USING LESS THAN 54 CHARACTERS"4UB4iL R$"R" 11404uV 200,14` G$4j (G$)54 "LINE IS TOO LONG**RE-TYPE**":11104t#2,G$5B~:@32,"DO YOU WANT TO PRINT ANOTHER LABEL (REPEAT) ENTER ":: "DO YOU WANT TO PRINT A NEW LABEL? ENTER "5N 200,15j R$: R$"N" 12305 R$"R" 12305: @ 64," LINE UP LABELS WITH PRINTER HEAD FOR PROPER ALIGNMENT"5:" PRESS WHEN READY"6P$: P$"" 12106Đ : 17064΀ X1 3:#2,(13):X6?؁ 1706R:INSTRUCTIONS6u @ 5,"CASSETTE LABEL PROGRAM"7:"THIS PROGRAM WILL ALLOW YOU TO PRINT LABELS FOR YOUR COMPUTER TAPES. THIS PROGRAM IS DESIGN- ED FOR USE WITH TRACTOR FEED LABELS. 79"YOU HAVE FOUR TYPE CHOICES FOR YOUR TITLE:"7 5)"ELONGATED TYPE (16 CHAR)": 5)"STANDARD TYPE (32 CHAR)": 5)"COMPRESSED TYPE (38 CHAR)": 5)"CONDENSED TYPE (54 CHAR)"7: 4)" HIT TO CONTINUE"7R$: R$"" 1310 8(82"THE FOURTH LINE IS USEFUL FOR COPYRIGHT INFORMATION, LOADING INSTRUCTIONS, OR A LISTING OF PROGRAMS ON THE TAPE."9?<:"FOR A MORE UNIFORM LABEL, TRY TO CENTER EACH LINE ON THE LABEL. AFTER PRINTING YOUR LABEL, YOU WILL BE ASKED IF YOU WANT TO PRINT ANOTHER LABEL OR PRINT A NEW LABEL."9dF: 5)"HIT TO CONTINUE"9}PR$: R$"" 13609Z:d"IF YOU CHOSE TO PRINT ANOTHER LABEL, YOU WILL HAVE TO SELECT YOU TITLE TYPE AGAIN AND CHECK YOU LABEL ALIGNMENT WITH YOUR PRINTER.:6n:5)"HIT TO CONTINUE":NxR$: R$"" 1400:T:Z91,12,250,34,39,16,243,72,77,16,243,110,115,16,243,148,153,16,243,186,191,222,39,24,77,222,115,24,153,56,40,200,78,32,116,200,154;[A40:B170:C55:D185:(A,B)K&+"COPYRIGHT WILLIAM G. FRANKLIN 1982"&K2:"STATION #";S: S9 50&w< S1 110,70,70,70,80,80,80,90,90,90&F"ILS":"BEARING";A:AA57.29:"DISTANCE";D:DD5280:SX(S)D(A):SY(S)D(A):"RWY HDG";X:RB(S)(X)57.29: 50'P"TACAN": 100'Z"ADF": 100'kd"BEARING";A:AA57.29:"DISTANCE";D:DD5280:SX(S)D(A):SY(S)D(A): 50'n"ACFT BRG";A:AA57.29:"DISTANCE";D:DD5280:TXD(A):TYD(A):"HDG";X:CS(X)'x"FUEL";X: X24 X24 : X0 X0 : FRX12(."WIND DIR.";X:WA(X)180:"VEL";X:WS(X)(QA$(15): X0 15: A$(X): X(d4,1:0:5000(,Q71:Q61:Q51:Q8.01:H0:AL0:C79:C69:C59:LR40:P11:0(@H:0:THTHH(JZ(0):R63(1):B(2)31:EP((3)31)188)T BB1 EPPE 8000):h AL0 R12 R1260R20 : RR116)om FR12 AL0 R700 : FR12 AL0 R0)o R130 R10)rRR1((RR1).6):R1R:X30((R636.6)15):Y100((R636.6)15):(30,100)(RX,RY),:(30,100)(X,Y),:RXX:RYY*"|AP((6((R2000)4488).57).54)6*cAS(R(1AP)(1EP))16.66:ASA1((ASA1).1): AS10 AS0*X30((AS39.46)15):Y40((AS39.46)15):(30,40)(AX,AY),:(30,40)(X,Y),:AXX:AYY:A1AS* AS50 EP1+% (VV)1 VV((APEP)AS)15 : VV(1AL10000)((APEP)AS)15+C AL0 (VV)1 VV0+V1V5((VVV5).3):X224((V1)15):Y100((V1)15):(224,100)(VX,VY),:(224,100)(X,Y),:VXX:VYY:V5V1,&Z(0):B(2)31:EP((3)31)188:P(100(EP((6AP.57).54)6)): BB1 EPPE PP1 8000,JALAL(VVH)4.6: AL0 AL0,X224((AL159)15):Y40((AL159)15):(224,40)(LX,LY),:(224,40)(X,Y),:LXX:LYY-X224((AL1592)8):Y40((AL1592)8):(224,40)(L1,L2),:(224,40)(X,Y),:L1X:L2Y-60FRFR((RH)72000000): FR12 FR12-:X224(FR25.2)26:Y180(FR25.2)26:(224,180)(FX,FY),:(224,180)(X,Y),:FXX:FYY-DZ(0):B(2)31:EP((3)31)188: BB1 EPPE 8000- AS0 1310.DBC10(((B31)1.5707963)):CSCSBC: CS360 CSCS360 : CS0 CSCS360.C(CS.5): CC1 1350 : C2(C100):C3(C10)(10C2):C4C(100C2)(10C3):C1C:"C0;BM134,23;XA$(C7);C1;XA$(C4);":C7C4/ ( C3C6 1350 : "C0;BM126,23;XA$(C6);C1;XA$(C3);":C6C3/H2 C2C5 1350 : "C0;BM118,23;XA$(C5);C1;XA$(C2);":C5C2/FX30(C57.2)10:Y160(C57.2)10:(CX,CY),1,0:(X,Y),1,1:CXX:CYY/PZ(0):B(2)31:EP((3)31)188: BB1 EPPE 800002 AS0 1610 : CD(AS5.28H)216:ACS57.29:XCD(A):YCD(A):TXTXX:TYTYY0 AL0 WS0 1610 : WD(WS5.28H)216:AWA57.29:XWD(A):YWD(A):TXTXX:TYTYY0JS$: S$"" 16400TX(S$): X10 1640 : 17100^"C0;BM126,170;XA$(S);C1;XA$(X);":SX1h S0 1710 : 18101^mZ(0):B(2)31:EP((3)31)188: BB1 EPPE 80001jr 210022 D715 S7 : (30,160)(SX,SY),:"C0;BM83,170;XA$(D7);BM-10,0;XA$(D6);BM-7,0;XA$(D5);C1;XA$(15);BM+7,0;XA$(15);BM+10,0;XA$(15);":(128,40)(IX,IY),:(162,92GX),1,0,.1:D715:D615:D5152N (38,17)0 50002Y¿1,0:2BXSX(S)TX:BYSY(S)TY:SD(BX2BY2)2 BX0 BX.0012 BY0 BY.0012XBYBX: BX0 1830 : SB(X): 18352&SB(X)3.14163+X((S3).9): X 1839,1939,203933/ SD528010 171030CASB(RB(S)1.5708):DB(CA): (DB).2588 1710 : DB.0523 DB.0523 : DB.0523 DB.05233:X128(DB20)15:Y40(DB20)15:(128,40)(IX,IY),:(128,40)(X,Y),:IXX:IYY4=DX((AL(SD1000)).04366)1000: X18 X18 : X18 X184uN(162,92GX),1,0,.1:(162,92X),1,1,.1:GXX: 19404 SD528999 17104X30(SB)15:Y160(SB)15:(30,160)(SX,SY),:(30,160)(X,Y),:SXX:SYY5jSD(SD528): SDD1 : D2(SD100):D3(SD10)(10D2):D4SD(100D2)(10D3):D1SD:"C0;BM83,170;XA$(D7);C1;XA$(D4);":D7D45 D3D6 : "C0;BM-10,0;XA$(D6);C1;XA$(D3);":D6D35 D2D5 : "C0;BM-7,0;XA$(D5);C1;XA$(D2);":D5D2:5 SD5281999 17106OX30(SB)15:Y160(SB)15:(30,160)(SX,SY),:(30,160)(X,Y),:SXX:SYY:64Q1(TH3600): Q1Q8 320 : Q2(TH216000):Q3(TH36000)(6Q2):Q4Q1(10Q3)(60Q2):Q8Q1:"C0;BM184,170;XA$(Q7);C1;XA$(Q4);":Q7Q47R Q3Q6 320 : "C0;BM-7,0;XA$(Q6);C1;XA$(Q3);":Q6Q37a\ Q2Q5 320 : "C0;BM-10,0;XA$(Q5);C1;XA$(Q2);":Q5Q2: 3207 X30 224 194: Y40 160 60:(X,Y),25,1: Y: X7(128,92),55,17(84,92)(88,92),: X74 110 6:(86,X)(88,X),: X8/(168,92)(172,92),: X74 110 9:(168,X)(170,X),: X8I Z1 3: 5060: Z8k Z5 7: 5060: Z: 51008X((6.283210)Z):Y((6.283210)Z)8XA30(20X):XB30(24X):YA40(20Y):YB40(24Y)8ػ(XA,YA)(XB,YB),:9"BM28,24;XA$(0);BM39,58;XA$(1);BM10,36;XA$(2);"9/P Z1 9 29[ZX((6.283210)Z):Y((6.283210)Z)9dXA224(20X):XB224(24X):YA40(20Y):YB40(24Y)9n(XA,YA)(XB,YB),: Z:"BM222,24;XA$(0);BM239,36;XA$(2);BM233,58;XA$(4);BM210,58;XA$(6);BM204,36;XA$(8);":B Z2 8 2:X((6.283210)Z):Y((6.283210)Z):~XA224(20X):XB224(24X):YA100(20Y):YB100(24Y):һ(XA,YA)(XB,YB),: Z:"BM237,113;XA$(2);BM215,121;XA$(1);BM203,102;XA$(0);BM215,85;XA$(1);BM237,92;XA$(2);";(114,15)(142,25),,B:(128,19),18,1;0 Z1 5 2;Z"X((6.28328)Z):Y((6.28328)Z);,XA30(20X):XB30(24X):YA100(20Y):YB100(24Y);6(XA,YA)(XB,YB),: Z;J"BM28,84;XA$(0);BM47,103;XA$(1);BM28,122;XA$(2);BM9,103;XA$(3);"<| Z2 11 3: 5510:<7 Z1 10 3: 5510:: 5540&"BM128,135;ND5;BM+12,0;ND3;BM+12,0;ND2;BM-36,0;ND3;BM-12,0;D2;">0(62,161)(91,172),,B:(163,161)(192,172),,B:(122,161)(134,172),,B:"BM80,169;U1;BM+94,0;N;D1;BU2;U1;">I Z3 3:AZ57.29:X(A20):Y(A20):XA128(19X):XB128(21X):YA40(19Y):YB40(21Y)?N(XA,YA)(XB,YB),:?'"BM126,170;XA$(S);"?- ?X BU1;U4;E1;R2;F1;N;G4;D4;G1;L2;H1;BD1,BU6;BR2;N;G1;D6;R1;L2;BL1,BU5;E1;R2;F1;D1;G1;L1;G2;D1;N;R4,BU5;E1;R2;F1;D1;G1;N;L1;F1;D1;G1;L2;H1;BD1,BU2;N;R4;U1;E3;D6;BL3@b BU6;N;R4;D3;E1;R2;F1;D2;G1;L2;H1;BD1,BU6;BR2;N;R2;G2;D3;U2;R3;F1;D1;G1;L2;H1;BD1,BU6;R4;D1;G3;D2;BL1,BU1;U1;E1;N;R1;H1;U1;E1;R2;F1;D1;G1;N;L1;F1;D1;G1;L2;H1;BD1,BU4;N;F1;U1;E1;R2;F1;D2;N;L3;D1;G2;L2ASl U6;R4;BD3;BL1;L3;D3;N;R4,U6;R4;BD3;BL1;L3;D3,U6;D1;F4;N;U5;D1;BL4,BU5;BR4;H1;L2;G1;D1;F1;R2;F1;D1;G1;L2;H1;BD1,N;U6;E2;N;U1;F2;N;U6;BL4,BU6;D1;F2;E2;N;U1;BD4;N;D1;H2;G2;D1A{@TR(B(B41).5): TRLR 8020AJ(126LR,130)(130LR,130),:(128LR,130)(128LR,133),:(126TR,130)(130TR,130),:(128TR,130)(128TR,133),:LRTRBBTP(100(EP((6AP.57).54)6)): P20 P20 : P20 P20Bm^ AL0 AS50 AL0 (P)1 P0Bh PP1 BB1 BrBBB93: AL0 BB0B|X((BB)25):Y(BB)25B(128PX,92P1PY)(128PX,92P1PY),:(128,92P1),5,0CJ(128X,92PY)(128X,92PY),:(128,92P),5,1:P1P:PXX:PYY:B1B:PEEP:;R4,U6;R4;BD3;BL1;L3;D3,U6;D1;F4;N;U5;D1;BL4,BU5;BR4;H1;L2;G1;D1;F1;R2;F1;D1;G1;L2;H1;BD1,N;U6;E2;N;U1;F2;N;U6;BL4,BU6;D1;F2;E2;N;U1;BD4;N;D1;H2;G2;D1D @TR(B(B41).5): 79(Ӎ ' 99^'' 9 ۆ9(y'C'E'9L'4P'S'(X'! ۽("7~ 7' ~' NOT AVAILBLE TILL JUNE ISSUE OF RAINBOW A SIMPLE TEXT HANDLING PROGRAM by D.S. LEWANDOWSKI ENTER TEXT TERMINATE EACH LINE WITH AN enter. PRESS ^ KEY AND PRESS ENTER TO STOP. C - CONTINUE E - EDIT L - LOAD FROM TAPE P - SEND TEXT TO PRINTER S - SAVE ON TAPE X - EXIT TO BASIC  FRX12(.Y&Y *** SIN/COS PLOT ***&#Z:&4c * SET UP *&>d 4,1&In1: 0&_x YA(240),YB(240)&t(0,0)(0,180),&(0,90)(240,90),& Y0 180 9&(0,Y)(5,Y),& Y& X0 240 60&(X,85)(X,95),&ȋ X&:220&:'+ * CALCULATE *'+,: @38,"PLEASE WAIT"'D6@102,"I'M THINKING"'T@ X0 240'`J@203,X'nT"L255;3"'|^THX38.2'hYA(X)9050(TH)'rYB(X)9050(TH)'| X':' * MENU *'' @13,"MENU"'@39,"CHOOSE BY NUMBER"(@103,"1. PLOT SIN"(+@135,"2. PLOT COS"(G‡@167,"3. PLOT SIN+COS"(ċ@199,"4. PLOT SIN-COS"(և@231,"5. PLOT COS-SIN"(@263,"6. QUIT"(A$""(A$: A$"" 500( A$"6" (:(W * PLOT POINTS*(X 1,0(b X0 240)%l (A$) 1000,1100,1200,1300,1400)2v(X,Y,0)): X)DA$"")dA$: A$"" 660 : 400)k:){ ** SIN **)YYA(X))):)K ** COS **)LYYB(X))V)`:) ** SIN+COS **)YYA(X)YB(X)90)):* ** SIN-COS ***YYA(X)YB(X)90*"*)(:*=w ** COS-SIN ***RxYYB(X)YA(X)90*X*kh SN1 9 *r 0,0,SN,D1$(SN),D2$(SN)*| SN* **: ROUTINE TO SEE IF TRACK 0 IS A DIRECTORY COPY* 0,0,2,A$,B$+ (A$,1)(191) >&[A(23):5:100,69,38,7,8,9,42,75,108,141,174,175,176,145,114,83,52,21,22,23,56,89,122&I123:A(I):A(I)1024,128:A(I)1248,128:I:@196,"contour nets and quilts";' @427,"r. delbourgo";:@456,"15,willowdene av.";:@481,"hobart,tasmania, australia7005";'M218,1:227,1:232,1:239,1:232,1:227,1:218,1:T11000:'0:@229,"NETS(N) OR QUILTS(Q) ?";:@352,"PRESS R TO RETURN TO MENU AT END";'I$:I$""6'I$"N"10'I$"Q"20' 6' C0:65495,0:4,1::1,0(% J020020:K0505:(JK6,2K92,1):K,J(Q X10102:Y1010.1:30:40:Y,X( Y10102:X1010.1:30:40:X,Y:65494,0("R"5(14(65495,0:1,1:1:1,1:8,5(I620620:(I,92)(I50,192),:I)I9219210:(I240,I)(I2160,I),:I)0Y1010.1:X1010.1)Q30:35:40:X,Y:65494,0)f1,0:T1500:T)t"R"5)1,1:T1500:T:25)Z70((XY)40)))#C(X2)2(X4)5(Y2)2(Y4):C7C5)$*(A13110X2.5Y:B1425Y*)BZ BZ***BZ192BZ192*=+(A,BZ,C1):xYYB(X)YA(X)90*X*kh SN1 9 *r 0,0,SN,D1$(SN),D2$(SN)*| SN* **: ROUTINE TO SEE IF TRACK 0 IS A DIRECTORY COPY* 0,0,2,A$,B$+ (A$,1)(191) &S:"CRYPTO". COPYRIGHT 1983 BY CHRIS REID, 319 E. 5TH ST., NEW YORK, NY 10003& (16057)50200,16048:I3346533566:I17408,(I)::40&I02:I16061,18:&I16158:I,38:I1,3:I2,126:I3,131:I4,34:I5,126:I6,164:I7,76' (411,62:50'A265495,0 :IF THIS SPEEDUP WORKS ON YOUR COMPUTER'L<5130'rF1500:FR(26),FR$(26)::Q$(34)'P"IF YOU NEED INSTRUCTIONS, TYPE "Q$"?"Q$" AND ENTER"::"IF NOT, TYPE CRYPTOGRAM AND ENTER";:(59,32);:C$'ZC$"":80( dC$"#":(#n(C$,1)"?"500(x:"AFTER YOU ENTER THE CRYPTOGRAM, IT WILL REAPPEAR ON SCREEN WITH NO WRAPAROUND. (TO KEEP WRAP- AROUND, TYPE "Q$"@"Q$" AND ENTER; THENENTER CRYPTOGRAM))K:"IF, FOR EXAMPLE, YOU SEE THE 1- LETTER WORD "Q$"Q"Q$" AND THINK IT MAYBE THE WORD "Q$"A"Q$", TYPE "Q$"A"Q$" AND THEN "Q$"Q"Q$):"AN "Q$"A"Q$" WILL APPEAR OVER EVERY "Q$"Q"Q$" IN THE CRYPTOGRAM)@480,"PRESS ANY KEY TO CONTINUE...";)""160*:"IF YOU DECIDE THAT "Q$"Q"Q$" IS REALLY"Q$"I"Q$", TYPE "Q$"I"Q$" AND THEN "Q$"Q"Q$". AN "Q$"I"Q$" WILL REPLACE EACH "Q$"A"Q$" OVER THE "Q$"Q"Q$"S. (TO ERASE THE "Q$"I"Q$"S, HIT THE SPACEBAR AND TYPE "Q$"Q"Q$")+$:"IF YOU FIND A MISTYPED LETTER INTHE CRYPTOGRAM, YOU CAN TYPE "Q$"&"Q$"AND GET INSTRUCTIONS ON HOW TO CORRECT IT+N@480,"PRESS ANY KEY TO CONTINUE...";+]ȅ""200+Ҟ:"IF YOUR SOLUTION ISN'T WORKING OUT, TYPE "Q$"^"Q$" AND IT WILL VAN- ISH. THE CRYPTOGRAM IS STILL THERE AND YOU CAN GET A FRESH START,܇:"IF YOU'RE REALLY STUMPED, TYPE "Q$"<"Q$". A NEW VERSION WILL REPLACE THE CRYPTOGRAM, WITH "Q$"A"Q$" AS THE MOST FREQUENT LETTER, "Q$"B"Q$" THE NEXT MOST FREQUENT, AND SO ON,@480,"PRESS ANY KEY TO CONTINUE...";,""240-:"SOME OF THE MOST COMMON LETTERS (E, T, A, O, I, N) WILL NOW BE REPRESENTED IN THE CRYPTOGRAM BYEARLY LETTERS SUCH AS A, B, C, D, E, F. THIS MAKES IT EASIER TOSOLVE.b:"A BLACK BOX AT LOWER RIGHT SHOWSYOU ARE USING THE FREQUENCY CRYPTOGRAM. IF YOU TRY A SOLU- TION LETTER THAT IS THE SAME AS THE PUZZLE LETTER IN THE ORIGI- NAL CRYPTOGRAM, A WARNING CHREEPIS PLAYED.@480,"PRESS ANY KEY TO CONTINUE...";.""280.":"TO GET BACK FROM THE FREQUENCY CRYPTOGRAM TO THE ORIGINAL, TYPE"Q$">"Q$/P,:"WHEN YOU'VE SOLVED THE CRYPTO- GRAM (OR GIVEN UP ON IT), TYPE "Q$"+"Q$" AND TRY ANOTHER--/6:"OR TYPE "Q$"#"Q$" TO END THE PROGRAM. (YOU CAN END THE PROGRAM DURING OR BETWEEN CRYPTOGRAMS)/@@480,"PRESS ANY KEY TO CONTINUE...";/JI$/TI$""3300 ^I$"#":0h:" & CORRECT MISTYPED LETTER"::" ^ ERASE SOLUTION"::" < GET FREQUENCY CRYPTOGRAM;":" > GET BACK THE ORIGINAL"::" + START ANOTHER CRYPTOGRAM;":" # END THE PROGRAM0r@480,"PRESS ANY KEY TO RETURN";0|I$1I$""3801I$"#":1:8016C$"@"NJ1::801DNJ17001OV071g(C$)32V337001(C$,32V32,1)" "(C$,32V33,1)" "6101&(C$,32V32,1)"-"((C$,32V33,1))64((C$,32V33,1))9161010H31212*:(C$,32VH,1)" "(C$,32VH,1)"-"6002CD(C$)32H2557002NC$(C$,32VH)(32H,32)(C$,(C$)32VH):6102XH2bV2:158(C$)SQ12ƀL1(C$)2Ї@L6332SQ(6432SQ)((L1)32),(C$,L,1);3Xڅ((C$,L,1))32(((C$,L,1))65((C$,L,1))90)@L3132SQ(6432SQ)((L1)32),(C$,L,1);3^3HH$""HI$HH$:HH$"":10003HI$:HI$""7603HI$"&"20003(C$)22510603ER$"":Z14951502:ER$ER$((Z)):4@471,"too long";:Z13000:43Z18:Z1494,((ER$,Z,1)):4=7604$FF1@466,"press > first";:Z13000::@466,(12,32);:1502,141:7604L@480,"LINE NO. OF CRYPTO. (1-7)?";4VI$4`I$""11105)j(I$)49(I$)55(C$)32(I$)31@507,"REDO";:Z11500::@507," ";:111057t@507,I$;5R~LI32(I$)(3SQ)325ER$"":ZLI992LI1023:ER$ER$((Z)):5ZLI LI315(Z1024)96Z992,38:120055ZZ150:5@480,(28,32);5ĀZZ150:6@480,"WHICH LETTER (A-Z)?";6I$6,(I$""13106u2(I$)65(I$)90@500,"REDO";:ZZ11500::@500," ";:13106<992Z,966F@500,I$;6PCN06ZZLI LI316d(1024Z)(I$)992Z,38:CNCN16n7*xCN0@500," ";:Z11000::@500,"REDO";:Z11500::@500," ";:131079ZZ150:7N@480,(21,32);7]ZZ150:7܇@480,"OCCURRENCE ON LINE (1-9)?";7J$7J$""15107(J$)49(J$)57(J$)CN @506,"REDO";:Z11500::@506," ";:15107@506,J$;8OC08ZLI LI318>"(1024Z)(I$)OCOC1:15908^,OC(J$)992Z,96:PSZ8d68s@ZZ150:8J@480,(27,32);8TZZ150:8@480,"REPLACEMENT (A-Z)?";8I$8I$""17109…(I$)65(I$)90@499,"REDO";:Z11500::@499," ";:17109'̇@499,I$;9;֒1024PS,(I$)9nZ132:ZLI991,((ER$,Z,1))::992PS,969LPS6332SQ((PS32)2SQ)(6432SQ)(3SQ)9(C$,L,1)I$9(F$)01820:Z126:(FR$(Z),1)I$(F$,L,1)(Z64):1820::]Z150::@480,(20,32);:Z150::@480,"GO AHEAD";:Z11000::@480,(8,32);:g&760:zЅHI$"^"3000:S13132SQ:S233S1:L1(C$):((C$,L,1)):652070:902070: @LS1S2((L1)32)," ";;:760; HI$"<"3500;& …FF1760;/ FF1;@ օF$""3300;i 2::1,1:65497,0:Z126:FR(Z)0:;y L1(C$); ((C$,L,1)); 6491FR(64)FR(64)1; ; Z126:FR$(Z)(FR(Z))(Z64):; QB1< &QB2QB:QB263110 1502,141> 760>% HI$">"4000>. FF0>> L1(C$)>s ʇ@L6332SQ(6432SQ)((L1)32),(C$,L,1);>y ԋ> ޒ1502,143> 聥760>HI$"+"4500>HI$"":F$"":FF0:SQ0:NJ0::80?mHI$"#":"THE PROGRAM HAS ENDED, BUT THE VARIABLES ARE STILL IN MEMORY. IF YOU WANT TO GET THE CRYPTO- GRAM BACK, TYPE "Q$"GOTO700"Q$" AND ENTER"::?LO$:LO$""LO$" "5000?PO1?FF0IN(PO,C$,LO$):5040?IN(PO,F$,LO$)?IN05090@ @IN3132SQ(6432SQ)((IN1)32),HI$;@POIN1@+΅HH$""HH$@@؅PO(C$)5020@NFF0750@m(LO$)65(LO$)90750@(FR$((LO$)64),1)HI$"L255O5V31CGDAEBF#C#A-E-B-FCGDA@750@ 2:70;BD3;BL1;L3;D3,U6;D1;F4;N;U5;D1;BL4,BU5;BR4;H1;L2;G1;D1;F?&& :GEMINI 10/15 PRINTER FORMATTER&@: COPYRIGHT 1983&Y: WILLIAM BOHNE&s(: ELGIN, ILLINOIS&2:THIS IS A MENU ORIENTED PROGRAM&<:DESIGNED TO FORMAT GEMINI 10/15&F:PRINTERS.&P:&Z:****SET BAUD RATE TO 4800****'d 150,87'n 500''xZ27:Z$(Z):L0'22040'B:@71,B$:'I:'r:****IF INPUT=X BREAK TO FORMAT****'I(I$): I0 I$"0" : I0 50,5: 2180 : ':':****ERRORS****'ȇ" LEFT MARGIN >= RIGHT":L0:(҇" RIGHT MARGIN <= LEFT":(>܇" CAN'T USE 0 OR 128 OR >=";B1:(b:" CAN'T USE THAT VALUE":(i:(:****SEND BELL****(230,5(#2,(7):(:(":****2 SEC TIMER****(,T0960:T:(6:(@:****SET MAXIMUM COLUMNS****)#J::" IS PRINTER 80 OR 132 COLUMN?")WT:" 80 OR 132";B$:B(B$):I$B$:160)^ B80 B127:RB: : B132 B255:RB:)h330)r:)|:****CHECK VALUE 'N'****):" (N=1 TO 127)":)" N=";I$:160* I1 I127 230:380 : *&:*?:****ON OR OFF?*****]::" ON = 1"*w‡" OFF = 0"*̇:" SELECT ON/OFF";I$:160:*:*B$"**1-SKIP PERF**":140*::" YOU MAY SELECT 0 TO 127 LINES"+:" SKIP HOW MANY LINES";I$:160+D I1 530 : I127 230: 490+a 250:#2,Z$"N"(I):+x250:#2,Z$"O":+:+&B$"**2-SET HEADER**":140+0::" YOU MAY SELECT 1 TO 16 LINES"+::" HOW MANY HEADER LINES";I$:160,"D I1 230:570 : I16 230:570,?N 250:#2,Z$"R"(I):,aXB$"**3-SET L MARGIN**":140,bL0:::"YOU MAY SELECT";L;:"TO";R;:"COLUMNS",l:" HOW MANY COLUMNS",v" TO THE LEFT MARGIN";L$:L(L$):I$L$:160- L0 680-3 L0 230:L0:610 : LB 230:610-K LR 200:610-g250:#2,Z$"M"(L):-250:#2,Z$"M"(0):-:-B$"**4-SET R MARGIN**":140-RB:::"YOU MAY SELECT";L;:"TO";R;:"COLUMNS".Ї:" HOW MANY COLUMNS".:ډ" TO THE RIGHT MARGIN";R$:I$R$:160:R(R$).a RL 210:710 : RB 710.}250:#2,Z$"Q"(R):.250:#2,Z$"Q"(0):.:. B$"**5-FORM LENGTH**":140.::" SET FORM BY LINES OR INCHES?"/  :" (L OR I)";Q$/E*Q$"X" 50,5: 2180 : Q$"L" A32 : A127:/4 A32 :140:::" YOU MAY SELECT 1 TO 32 INCHES" : 860/>: " HOW MANY INCHES":" (WHOLE INTEGER)";I$:160/H IA 230:830 : I1 230: 8300R250:#2,Z$"C"(0)(I):0O\140:::" YOU MAY SELECT 1 TO 127 LINES":0tf" HOW MANY LINES";I$:1600p IA 230:870 : I1 230: 8700z250:#2,Z$"C"(I):0:0B$"**6-LN FD LENGTH**":1401$::" SELECT FROM THE FOLLOWING LINE":" FEED SIZES:"1@:" 1/8 INCH = 01Z" 7/72 INCH = 11~" 1/6 INCH = 2 (DEFAULT)1" N/72 INCH = 31ʇ" N/144 INCH = 41ԇ:" SELECT LINE FEED SIZE";I$:160: I0 980 : I4 9802#ޅ I3 1040 : I4 10602[聦250: I0 1010 : I1 1020 : 10302l#2,Z$"0":2}#2,Z$"1":2#2,Z$"2":2140:::" SELECT N/72 INCHES"2380:250:#2,Z$"A"(I):3$140:::" SELECT N/144 INCHES"3(.380:250:#2,Z$"3"(I):3/8:3UBB$"**7-HOR TAB SET**":140:H253L::" YOU MAY SET UP TO";:H;:"TABS"3V:" HOW MANY TABS DO YOU":" WANT TO SET";T$:T(T$):I$T$:1604` T1 230:1110 : TH 230:11104j TT1T4pt" SET TAB =";I$:160: IR 220 : I0 220 : I128 220 : 11604{~11404X$(I):Y$Y$X$: TT: HA0 11804250:#2,Z$"D" Y$ (0):4250:#2,Z$"P" Y$ (0):4:5 B$"**8-VERT TAB SET**":140:HA0:H20:11005':5IB$"**9-SLASHED ZERO**":1405·::" DO YOU WANT SLASHED ZERO":" ON OR OFF?":4305؅ I0 250:#2,Z$"V"(0):5 I1 1220 : 250:#2,Z$"V"(1):5:6 B$"**10-UNDERLINE**":1406M::" DO YOU WANT UNDERLINE":" ON OR OFF?":4306q I0 250:#2,Z$"-"(0):6 I1 1270 : 250:#2,Z$"-"(1):6:6(B$"**11-DOUBL STRIKE**":14072::" DO YOU WANT DOUBLE STRIKE":" ON OR OFF?":4307/< I0 250:#2,Z$"H":7YF I1 1320 : 250:#2,Z$"G":7`P:7ZB$"**12-ITALIC CHARS**":1407d::" DO YOU WANT ITALIC CHARACTERS":" ON OR OFF?":4307n I0 250:#2,Z$"5":8x I1 1370 : 250:#2,Z$"4":8:8>B$"**13-PROPOR CHARS**":1408::" DO YOU WANT PROPORTIONAL":" CHARACTERS ON OR OFF?":4308 I0 250:#2,Z$"Z"(0):8 I1 1420 : 1409::" SELECT 1 T0 8 SPACES":" BETWEEN CHARACTERS";I94 I1 1460 : I8 14609Pȁ250:#2,Z$"Z"(I):9W:9yB$"**14-SUPERSCRIPT**":1409::" DO YOU WANT SUPERSCRIPT":" CHARACTERS ON OR OFF?":4309 I0 250:#2,Z$"T":#2,Z$"H":: I1 1500 : 250:#2,Z$"S"(0)::$::DB$"**15-SUBSCRIPT**":140:::" DO YOU WANT SUBSCRIPT":" CHARACTERS ON OR OFF?":430:" I0 250:#2,Z$"T":#2,Z$"H"::, I1 1550 : 250:#2,Z$"S"(1)::6:;@B$"**16-10 CHARS/IN**":140;=J250:::" 10 CHARACTERS PER INCH";YT#2,Z$"B"(1):290:;{^ I0 250:#2,Z$"B"(1);h:;rB$"**17-12 CHARS/IN**":140;|250:::" 12 CHARACTERS PER INCH";#2,Z$"B"(2):290:<B$"**18-COMPRESSED**":140<4250:::" COMPRESSED"?&::" DO YOU WANT UNIDIRECTION":" PRINT MODE ON OR OFF?":430>c0 I0 250:#2,Z$"U"(0):>: I1 1820 : 250:#2,Z$"U"(1):>D:>NB$"**22-PRNT PPR OUT**":140?X::" DO YOU WANT 'PRINT IF":" PAPER OUT' ON OR OFF?":430?%b I0 250:#2,Z$"9":?Ol I1 1870 : 250:#2,Z$"8":?Vv:?vB$"**23-FORM FEED**":140?250:#2,(12):290:?:?B$"**SOFTWR RESET**":140?::" REINITIALIZES FORMAT?" TO POWER UP SETTINGS@250:#2,Z$"@":290:@#:@EЁ250::@200,"**************@_ڇ@232,"* EXIT *@y@264,"**************@290:2300@@::" GEMINI 10/15": " PRINTER FORMATTER"@ " COPYRIGHT 1983"A" BY BILL BOHNE"A8 :::" PRINTER ON LINE ";Q$AN* Q$"Y" 2040A\4:320:A{>@102,"MAKE YOUR SELECTIONAH@169,"FROM THE MENUAR@233,"YOUR SELECTIONA\@294,"WILL BE SENT TO THEAf@364,"PRINTERBp@421,"<'X' RETURNS TO MENU>B z290B-:*****PRINT FORMAT MENU*****B3B9B`"* * * * * FORMAT MENU * * * * *"Bs X32416 32BA$:@X,A$:XB X48432 32BʍA$:@X,A$:XBԇ:" SELECT FORMAT NUMBER";ABޅ A1 2180 : A25 2180Co A 480,550,600,700,780,910,1090,1200,1220,1270,1320,1370,1420,1500,1550,1600,1650,1680,1720,1770,1820,1870,1920,1950,2000 Cz2180C:D " 1-SKIP PERF"," 2-SET HEADER"," 3-SET L MARGIN"," 4-SET R MARGIN"," 5-FORM LENGTH"," 6-LN FD LENGTH"," 7-HOR TAB SET"," 8-VERT TAB SET"D " 9-SLASHED ZERO","10-UNDERLINE","11-DOUBL STRIKE","12-ITALIC CHARS","13-PROPOR CHARS","14-SUPERSCRIPT","15-SUBSCRIPT"D "16-10 CHARS/IN","17-12 CHARS/IN","18-COMPRESSED","19-EXPANDED","20-EMPHASIZED","21-UNIDIRECT"E> $"22-PRNT PPR OUT","23-FORM FEED","24-SOFTWR RESET","25-EXIT PROGRAM"," "_|X((BB)25):Y(BB)25E(128PX,92P1PY)(128PX,92P1PY),:(128,92P1),5,0E(128X,92PY)(128X,92PY),:(128,92P),5,1:P1P:PXX:PYY:B1B:PEEP:MRMTTTT}RIXRATE 149/FORMATR 182BSIGNS 2001ASPOOLER 247L q &n POSITION TAPE TO SAVE OR LOAD, PRESS ANY KEY FOR MOT& &B (6)&#A (6)&1(R A B&?2 @ 200,A&N< @ 214, B&lF @ 394, "YOU ROLLED A";R&~P R 2 600&Z R 3 600&d R 12 600&n R 7 500&x R 11 500& X 1 800& X&(5)'@ 195, "ROLL ANOTHER";R "AND YOU WIN"'9@262, "ROLL A 7 AND YOU LOSE"'a@ 420, "PRESS WHEN READY."'@ 456, "FOR YOUR NEXT ROLL."' A$'X (6)'Y (6)'Z X Y''@ 200, X'@ 214,Y'(2)'@ 394, "YOU ROLLED A";Z( @ 295, "YOU NEED TO ROLL A";R(2 Z R 500(D Z 7 600(O 180(b X 1 1000(j X(s(2)( @ 230, "YOU'RE THE WINNER"(@ 294, "CONGRATULATIONS!"( 635(X X 1 1000(b X(g(l@ 264, "SORRY, YOU LOSE"){ Z 1 1000)| Z)!}(8))O @ 453, " TO CONTINUE TYPE Y, IF NOT N.")X L$)m L$ "Y" 670)s)y) 10) L$ "N" 66565495,0 ::SPEED-UP CPU) Y0 190 2 :: VERTICAL SCANNING OF THE SCREEN)G0 *d: TH%&,:***<3CRAPS> LISTING 2 FOR ARTICLE 5.&4 :&P " RULES"&Z::&}(" RULES FOR THREE DICE."&2&<" IF YOU ROLL A 10 OR 17 ON "&F"YOUR FIRST THROW, YOU WIN!"&P::&Z " IF YOU ROLL A 4, 5, OR 18,"'!d "ON YOUR FIRST THROW,YOU CRAP OUT"'4n Z 1 4500'<x Z'B'PB (6)'^A (6)'lC (6)'~R A B C' @ 200,A' @ 208, B'ȇ @ 216,C'҇ @ 393, "YOU ROLLED A";R;'܅ R 4 570' R 5 570' R 18 570( R 10 510(% R 17 510(7 X 1 800(? X(H"(5)(t,@ 195, "ROLL ANOTHER";R "AND YOU WIN";(6@261, "ROLL A 10 AND YOU LOSE";(@@ 420, "PRESS WHEN READY ";(J@ 454, "FOR YOUR NEXT ROLL.";(T A$(^X (6)) hY (6))rT (6))*|Z X Y T)3(5))A@ 198, X)N@ 207,Y)[ 216,T)d(2))@358,"***YOU ROLLED A";Z;)‡@376,"***";)և@ 262, "YOU NEED TO ROLL A";R;) Z R 510) Z 10 570) 320) X 1 1000* X* (6)*. @ 232, "YOU'RE THE WINNER";*N&@ 296, "CONGRATULATIONS!";*Y0 610*l: X 1 1000*tD X*}N(7)*X@ 264, "SORRY, YOU LOSE!";*b Z 1 1000*l Z*v 130+$:***NOTE 630 GOTO 130 RATHERTHAN 10 TO AVOID HAVING TO READ THE INSTRUCTIONS OVER AND OVER.C GG32+= 310+X" (X2,Y)C GG16+u, (X2,Y1)C GG32+6: THE FOLLOWING CONVERTS THE VALUE OF G TO PRINTER CODE+@GG64+J G95 GG64+TG$G$(G)+^ Y,h65494,0 :: SLOW