&$:COPYRIGHT 1990 FALSOFT, INC.&* &9"SCRIPTO"&_"A UTILITY TO MAKE SHORT SCRIPT"&("TELEPROMPTER COMPATIBLE..."::&2"PROCEED ???": 200,1&,DN1 "DRIVE:";DD$: ("0123",DD$)0 @64,"";:300:: FL$FL$":"DD$:@0,"FILENAME:";FL$*H6 80*`@:edit some credits*fJ*T@0,"(1) LOAD FROM FILE"*^@32,"(2) LOAD FROM MEMORY"*hMU$:MU$""360*r("12",MU$)0360*|MU$"2" 440* "I",#DN,FL$+ X1 20+ Y0 14+'#DN,CP$(X,Y)+/ X+5+U‡@0,"WHICH PAGE ? (1 - 20)"+p̻ ">";PN$:PN$"" 80+օ((PN$)20 (PN$)1) 450+PN(PN$),:@33,(8);:X1 14:(CP$(PN,X),31): X: TD1 1000:TD::"EDIT IT?";ES$:ES$"N" 440,6"WHICH LINE ? (1 - 14) ";WL$:WL(WL$),P(WL1 WL14) 500,V,w@0,"PAGE:";PN;" LINE:";WL;,@32,(32,175);:CP$(PN,WL);:(32,175):,& "SURE YOU WANT TO CHANGE IT?",0K$:K$"" 560,:K$"N" 440-D@64,"";: L$-#N(L$)32 L$(L$,32)-JX(L$)32 L$L$(32(L$),32)-cbCP$(PN,WL)L$: 440-~l:display some credits-v-" (1) LOAD FROM FILE"-" (2) LOAD FROM MEMORY"-K$:K$""660-K$"2" 770-"I",#DN,FL$. X1 20. Y1 14.&ƻ #DN,CP$(X,Y)..Ћ Y.6ڋ X.@ #DN.f"CREDITS LOADED...PRESS ANY KEY".|K$:K$"" 760.:@5,"Q-QUIT ANY OTHER TO PAUSE";. X5 2 1.@0,X;:TD1370:TD. X.*: TD1 740: TD.4/> X1 20/H@33,(8);/#R Y1 14/2\CP$(X,Y);/:f Y/Kp TD1 450/czK$:K$"" 960/l TD/t X/ 1534,110/K$: K$"" 930/ 80/:pause credit screen/ K$"Q" 80/K$:K$"" 970/ԁ 9000 :terminate process0 :0/:save memory to file0G@480,"WORKING...";0Y "O",#DN,FL$0h X1 200w Y1 140$ #DN,CP$(X,Y)0. Y08 X0B@480,"FILE SAVED...";0L TD1 1000: TD0V #DN: 80"" 970/ԁ 9000 :termi&d: SAMPLE SETUP&n 500&,x V$(13)&32&9&k: INCLUDE THESE STRING DEFINITIONS SOMEWHERE&V$(2)"R5L5UE2R2EU2H2L2G"&V$(3)"BUFR2E2UHLRFU3H2L2G"&V$(4)"BR5U4RL6E4RD4"&V$(5)"BUFR3EU2HL4U4R5"'V$(6)"BRR3EU2HL3GD2BU3U2E3RF"'V$(7)"E6U2L6"'<V$(8)"BUFR3EU2HL3GD2BU4U2ER3FD2G"'ZV$(9)"BUFR3EU6HL3GD2FR4"'V$(10)"R4L2U8G2E2BM+4,+8;R3EU6HL2GD7"'V$(1)"U7ER3FD7U4L5"'V$(11)"BUF3REU7L2"'V$(12)"BUFR3H2F2EU6HL3GD6"'V$(13)"U8D4F4H4E4"("D$"E6F6G6H6"(&,H$"U2EURUR2DRDFEURUR2DRDFD2G6H6"(D6S$"E6F6D2G2L4D2U2L4H2U2"(n@C$"E2RU2E2R2F2D2RF2D2G2L4D2U2L4H2U2"(JB$"R50D60L50U60D30BR19"(T: SAMPLE CALLING SEQUENCE(^ZX100:ZY100:ZA$"QD": 10020(h 360)': SUBROUTINE TO DRAW CARD ON SCREEN)8': ZA$="VS", ZX=SCREEN X COORD, XY=SCREEN Y COORD)J'$ZU$(ZA$,1))'. ZU$"C" ZU$B$C$ : ZU$"H" ZU$B$H$ : ZU$"S" ZU$B$S$ : ZU$B$D$)'8ZV$(ZA$,1)* 'B ZV$"T" ZV10 : ZV$"J" ZV11 : ZV$"Q" ZV12 : ZV$"K" ZV13*''L (ZV$)0 ZV(ZV$)*4'V 10140*>'` ZU$*K'j 10140*c't "BM+4,+10"V$(ZV)*p'~ 10140*' "BM+47,+48""A2"V$(ZV)*'*' "BM"(ZX)","(ZY)";"*'"T" ZV10 : ZV$"J" ZV11 : ZV$"Q" ZV12 : ZV$"&$:COPYRIGHT 1990 FALSOFT, INC.&X:HOT GOLD' by Keiran Kenny, Sydney, 1989.&h 200:DL200&sP(68)&T168:L:P(T)L:'( 0,1,2,3,4,32,36,64,96,128,160,192,193,194,195,196,164,132,131,7,8,9,10,11,39,71,103,135,167,199,200,201,202,203,171,139,107,75,43'2 14,46,78,110,142,174,206,207,208,209,210,21,53,85,117,149,181,213,214,215,216,185,153,121,89,57,24,23,22'<0'F@0,"**HOT OR COLD! LOOK FOR GOLD!**";'PD12000:'ZH5(58):V5(26)(dX(64)1:Y2(29):XH YV 100:(X,Y,2)(,nXH HLHX :HLXH(FxYV VLVY :VLYV(K$:K$(8)K$(9)K$(10)K$(94)K$""130:(X,Y)(@0,(31)((341)247YY1:Y1V @14,"COLD!":Y1V @14,"HOT!") (342)247YY1:Y1V @14,"COLD!":Y1V @14,"HOT!")b(344)247XX1:X1H @14,"COLD!":X1H @14,"HOT!")(343)247XX1:X1H @14,"COLD!":X1H @14,"HOT!")XH YV (X,Y):260)ȅY3Y3)҅Y31Y31)܅X0X0)X63X63*(X,Y,2):D1DL::(X,Y)* 140*+HV131*TZ168:60Z,1:@HVP(Z),(159);:*q@6,"YOU STRUCK GOLD!!!"*"D13000:*,@1,"LUCKY YOU! LOOK FOR MORE? Y/N"*6K$:K$""310*@K$"Y"0:70*JK$"N":*T310X63X63*(&$:COPYRIGHT 1990 FALSOFT, INC.&, C&A C444 #2:&T C999 #2&v( C 0 C 999 #2,(C);&2 C 0 N(C): C: X1 N:#2,(C);: X&< 10&F -45,37,999&P 37,-43,32,37,999'Z 37,32,32,49,32,32,-33,37,32,32,49,32,32,37,999'Fd 37,-3,32,37,-16,32,-3,36,-16,32,37,-3,32,37,999'|n 37,32,32,37,-16,32,-5,36,-16,32,37,32,32,37,999'x 37,32,32,37,-16,32,36,79,78,69,36,-16,32,37,32,32,37,999' 37,32,32,37,-16,32,-5,36,-16,32,37,32,32,37,999(' 37,-3,32,37,-16,32,-3,36,-16,32,37,-3,32,37,999(\ 37,32,32,49,32,32,-33,37,32,32,49,32,32,37,999(s 37,-43,32,37,999( -45,37,999( 4446,32,36,79,78,69,36,-16,32,37,32,32,37,999' 37,32,32,37,-16,32,-5,36,-16,32,37,32,32,37,999(' 37,-3,3&3 :CARDPUZL - BY WALTER PULLEN - 21 JUNE 1990'&SN4:V$"JQKA":S$"CDHS":D1&NNNN: V(N,N),S(N,N),A(NN),D(1,N,N4):J1&(II1: IN JN 100 : I1:JJ1&2V(I,J)1:S(I,J)0'%#ȅPY144:BD0:&HFF9A,0:1390>?Ғ&HFF9A,0:BD0::1390>_܅PX136 PX1911,1:1390>xBDBD1:BD63 BD0>&HFF9A,BD:1390>1530>:>:USER LETTER SELECTION>:?="LP1::8,0:2:&HFF9A,BD:(9,0),"PLAYER #"(PL):(9,1),"SELECT YOUR TILE(S).":2:(80,168)(227,191),,B:1700?,X09:Y09:ZZ$(X10Y1)"" 4,0:(50X22,30Y13)(50X2215,30Y139),,BF?6Y,X?@LP1::1740:1780:1830?J(0)11600@TPX50 PX263 PY30 PY156 1,1:1600@S^GX((PX50)22):GY((PY30)13):(50GX22,30GY13)41,1:1600@h(50GX22,30GY13)(50GX2215,30GY139),,BF@r(0)01650@|LT$ZZ$(GX10GY1):ZZ$(GX10GY1)"":T19:(PL$(PL),T,1)" "(PL$(PL),T,1)LT$::TA1LPLP1:1700:T19:(PL$(PL),T,1)" "1600AFT:T0800:T:ALAqT19:(PL$(PL),T,1)" "1720A4:((T4)164,170)((T4)1616,189),,BF:8:(T29,22),(PL$(PL),T,1)AT:A:A:GET POINTER LOCATIONA:BPX(0)5:PY(1)3:B:B2:PUT POINTER ON SCREEN.B9:BT(PX,PY)(PX5,PY5),1B8:(PX,PY)(PX5,PY5),:(PX4,PY)(PX,PY),:(PX,PY4),:B:B&:ERASE POINTERB0:B:(PX,PY)(PX5,PY5),1:T POINTER LOCATIONA:BPX(0)&$:COPYRIGHT 1990 FALSOFT, INC.&+ :&2:&I:ADD-ON WORD GAME&e(:(C) MARCH 28, 1989 BY&2:JOEL MATHEW HEGBERG&<:936 NORTH TWELFTH STREET&F:DE KALB, ILLINOIS 60115&P:&Z:'/d65496,0:32::0,1:2::0,0:0:7600:PL$(4),ZZ$(100),GB$(15,15),SC(4):1,500:BD0:&HFF9A,BD'n65497,0::R():4,2:2:(160,0)(160,191),:(9,11),"CMP":(29,11),"RGB"'x(0)0120'1740:1780:1830:(0)0130'PX160::':':DATA FOR LETTER DISTRIBUTION':(l A,8,B,3,C,3,D,3,E,11,F,3,G,2,H,3,I,8,J,2,K,1,L,5,M,2,N,5,O,7,P,3,Q,1,R,5,S,5,T,6,U,3,V,2,W,3,X,1,Y,2,Z,1(s:(:DATA FOR LETTER VALUES(:(܆ 1,3,3,4,1,5,6,5,1,8,7,5,6,6,1,3,9,4,3,4,1,8,7,9,6,9,0(:(:DATA FOR STARTING WORDS(:) 15,COMPUTER,PRINTER,TANDY,RAINBOW,DISKETTE,MONITOR,JOYSTICK,CARTRIDGE,KEYBOARD,KILOBYTES,CASSETTE,MOUSE,INTERFACE,BAUDRATE,BASIC)1140)65497,0:8,0::LN0:A$"PLEASE WAIT...":1340::X115:Y115:GB$(X,Y)"":Y,X:T1100:ZZ$(T)"":T*'"T126: A$,A:B1 A:1740:1780*E,X(100):ZZ$(X)""300*6ZZ$(X)A$:1830:B,T:T1100:ZZ$(T)"" ZZ$(T)"*":T::T*@""320+.JNP1:T127:A:4000T,A:T::LN0:A$"HOW MANY PLAYERS?":1340:(10,5),"1 PLAYER":(30,5),"2 PLAYERS":(10,10),"3 PLAYERS":(30,10),"4 PLAYERS"+@T(0)0340+g^1740:1780:1830:(0)1350+hPY40 PY87 PX80 PX3111,1:350+rPY48390::PY79 NPNP2:390+|1,1:350+PX152410::PX239 NPNP1:410,1,1:350,=LP100::PL1 NP:SC(PL)0:PL$(PL)(9,32):1550:PL,D:,b:SELECT A STARTING WORD.,i:, A:B(A):A1 B:A$:A,:,:INITIALIZE GAME BOARD,:,X115:Y115,(0).07520,GB$(X,Y)(((4)),2,1)-&Y,X:T1(A$):GB$(T4,8)(A$,T,1):T--:-B:START THE GAME-I&:-W0PL1 NP-^::-}D:PUT GAME BOARD ON SCREEN-N:-X1110:8,0:2:&HFF9A,BD:(95,22)(215,143),,B.bT1032148:(T,23)(T,143),:T:T311438:(95,T)(215,T),:T.6lX115:Y115:GB$(X,Y)"1" GB$(X,Y)"4"640.vA(GB$(X,Y)):A1(X893,Y820),3,8::A2(X893,Y820),7,8::A3(X893,Y820),2,8::(X893,Y820),5,8.4:(GB$(X,Y)"@" GB$(X,Y)"Z") GB$(X,Y)"*"(X11,Y2),GB$(X,Y)/Y,X/W2:(80,168)(227,191),,B:1700:(0,0)(319,15),,BF:(0,144)(319,160),,BF/8:(6,0),"PLAYER #"((PL),2)":"(SC(PL))/(6,1),"ENTER YOUR WORD OR CLICK TO PASS.":W$""0D1:((W$)896,159)((W$)8101,159),:T025:T:((W$)896,159)((W$)8101,159),:T025:T:(0)1 WS0:10400A$:A$""690::A$(13)(W$)1760::A$(8)7300ƅ(W$)14690::A$"*"720::A$"A" A$"Z"69006:(12(W$),19),A$:W$W$A$:6900څW$""6901 W$(W$,(W$)1)1H(96,152)(300,159),,BF:6:W$""690::(12,19),W$:6901(0,8)(319,15),,BF:8:(6,1),"FIND START POSITION OF WORD."1PX((0)4.25)1:PY((1)4.25)12 (PX888,PY816)(PX895,PY823),1:6:(PX888,PY816)(PX895,PY823),,BF:T010:T2D(PX888,PY816)(PX895,PY823),12g (12)660::(0)17702*(0,8)(319,15),,BF:8:(6,1),"WHICH DIRECTION? (USE ARROW KEYS)"24DX0:DY0:A$:A$(12)660::A$(9)DX1::A$(10)DY1::8203%>TP$PL$(PL):UL0:AL0:LXPX:LYPY:LW13MHGB$(LX,LY)(W$,LW,1) AL1:8803oRGB$(LX,LY)"@" GB$"Z"9203\I(TP$,(W$,LW,1)):I09203f(TP$,I,1)" ":UL13pLXLXDX:LYLYDY:LWLW1:LW(W$)9103zLX1 LX15 LY1 LY1597048404UL0 AL0920::9804[(0,8)(319,15),,BF:3:(6,1),"LETTERS DO NOT MATCH!!!"4k""9304}(0)09404"" (0)095046604(0,8)(319,15),,BF:3:(6,1),"WORD TOO LONG!!!":9305LXPX:LYPY:DW0:TW0:WS0:PL$(PL)TP$5ހT1(W$):GB$(LX,LY)(W$,T,1):P(LX893,LY820):6:(LX11,LY2),GB$(LX,LY):L((W$,T,1))64:L22 L275WSWS(4000L):P3 TWTW1::P7 DWDW1::P2 WSWS(4000L)(4000L)::P5 WSWS(4000L)6LXLXDX:LYLYDY:T6*DW0 WSWS2:DWDW1:10206LTW0 WSWS3:TWTW1:103068:SC(PL)SC(PL)WS:(0,0)(319,15),,BF:(6,0),"PLAYER #"((PL),2)":"(SC(PL))6(6,1),"SCORE FOR THIS WORD:"(WS)6$(11,18),"CLICK TO CONTINUE."7.(0)0107078(0)010807CB PL:PL13:(PL$(PL)," ")015507QLPL:5407V8,0:2:&HFF9A,BD:T1 NP:(10,T2),"PLAYER #"((T),2)":"(SC(T)):T7`A$"CLICK BUTTON FOR MENU.":LN23:13407j131084t65497,0:1140:8,0:2:&HFF..w.. 0.000.0``.```.```w``.`p.6?"".".?.6 x?"..". x? x?.$x?("0x?<".0x?.0xl>0xl>0xl>. !l!l!lp "".w!l!l.0l0l0j. X~C"".X~X~.`?x".??. "??<.6<!?x".!?. !?0(0P"w0P0`.f`.0`0`0`. 0```.```.. ` `.` ` ` `w... $oÿQpG߱vkm $oÿQpG߱ $oÿQpG߱.6 7} ̡> 7} %wy.`0  %wy %wy =}3. `1` =}3 7Qp;߱ 0` 7Qp;߱ ? 7Qp;߱unl76L0  p@0 `0 000000000000;uno^@0T0``0EDED |߼y?ߛEUTDDETDTDTODUDEDEDEDEDUDEDDTTTDETDEDEDEDDEDEDUDEDO [}^IV*DEODEDEDTTTDUTTEDEDTOTTTTOTUEE | 29 BATOOTDEDOOOEUEUT _``1TODOOTODODODOD pB$E_UDEDEDEDDDEEDDTDTDUTDEEDETDEDEDDTTEEDTDT wۣoTUTODUTUUUTDUTEUTEUDEUUTEUDEUETEUTUTUDUDEUUTEUDEUDUTDEUDUTEUD z10 g3~oDDDDODODDDDDODODDOMm;;iuzJKUUOOOOOO?6.&8"(   ;?3&UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33wx.630#uW[c=R3>c.@aR`p(  n#.^ #݊@$= %3?3h݆,` o݆. w݆ 0w݊P ro.l`π@3`ip3 @67. C_C`3 `۟Fk` }.3? ` F- ~Eouw ݵߟ?' ?wݍ. 6n݊߀.6/ u. l6~2t^r߀`x^@l3x.@cB8<cB3#.6@.6  .` aw....?6 &"8>(? ;?3&"#UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U3380@000p`@`8pܻ@(p>0  @U_AdUP 0_`_`P_ 8   Wup Wu sWu_ 1W @ 8@ p`` R"0` Ҁw` `  _@8  @p ` "@ ` pC ` pG ` p@0wNp`""Np`@ f `o `@w pfo p@gDw0 `C0wDDO 0A0v8bowDOflLY[PfObL͐MoaLE @oALǘ@Uf@CB 0`LcB@ oof `LcnB f0bT)fO0b`2*oo0f 3,o"d0! "/"/0 ` " fofof fDODODODF0O!DOvOO # aO" f!$OXF0OCxwOCx C ,8OwOC F8wC 8 wC 0@wOwOC 0FfdwwB p0LY`foC 00Lif 0|΀O 00L( F00L ,0  p@D ` ` RODOD DOOODDDOOD8݀ODDOG0`DDOOD`pDODOxDODDDV۶DDDDODDODODDOEUTOUTDUTOUDTOUDEUDDUTOEUDqsv#uTDEDDDODODDDDEDEDDODDEODDDETDTDEDEDTDTO w㯀ETOETDUEUDEUDETUTDUTODUTOETUTOEUDEUTODUTDUDETDUTOETUTOEDETT/(N$(NW)SN$:Y(NW)SY:T(NW)ST: 220/;ց 1170: 260/R:SAVE CONFIG FILE/h"O",#1,"SAVESEQ"/A015:#1,N$(A),Y(A),T(A)::/&HFF40,0::40/32::&HFF40,0:"I/O ERROR":/40:5:" *** COCOMAX III DEMO ***"0::" WHILE THE DEMO IS RUNNING,"::" YOU MAY PRESS:":::" -SPACE BAR- TO SKIP TO NEXT SCREEN"::" -BREAK KEY- TO JUMP TO BEGINNING"::" -P- TO PAUSE, ANY KEY TO RESUME"0&:" -A- TO TOGGLE THE ANIMATION ON AND OFF"1N0::" TO EXIT THE DEMO: USE THE RESET BUTTON"::" PRESS ANY KEY TO START":::19)1:I$: I$""570::13);"PLEASE WAIT...":18)1D&HFFD9,0:A&H6800 &H6AAF:B:A,B::&HFFD8,01N 700:"I",#1,"SAVESEQ2XA015:#1,FX$(A),FY(A),FT(A):::&HFF40,0:2: &HFF9A,632Pb 610::A0 15: FY(A)0 FX$(A)"" A02~l"I",#1,FX$(A)"/CM3":&H6800::&HFF40,02vTFT(A): T5 6702 Z0 (T5)130:I$:I$" " Z1E8:2 I$"P"I$"p" 680:3 I$"A" I$"a" 690:3:: 61032I$: I$"" 680 : Z1E8:3hI$"":FF: F0 &HFF03,&H34 : &HFF03,&H35:3~::"DISK ERROR"3Ɔ 183,255,217,189,104,79,189,104,209,127,255,64,189,106,14,1834І 255,216,126,104,51,142,255,172,141,10,134,56,142,255,168,324Dچ 3,142,255,164,127,255,145,167,128,76,167,128,76,167,128,764 167,132,57,142,105,197,191,1,13,134,60,189,104,33,190,14 107,48,8,191,105,90,134,52,126,104,21,134,48,32,236,1985 1,215,111,141,222,142,255,255,191,105,75,189,105,58,183,1045D 134,206,104,181,198,16,141,21,206,104,197,198,12,141,14,1255 104,134,46,8,198,243,189,105,58,90,38,250,57,189,105,585 167,192,90,38,248,57,0,182,106,159,198,30,129,192,35,26 198,62,247,255,153,142,104,181,206,255,176,127,106,172,127,1066F* 173,198,16,141,8,142,104,197,206,106,162,198,12,166,128,16764 192,90,38,249,57,57,142,232,7,32,3,142,232,6,189,2326> 164,58,134,255,167,132,57,13,0,38,71,10,22,13,4,386H 47,127,105,147,141,100,183,105,146,183,106,159,142,128,0,1347CR 128,183,105,148,183,105,149,189,105,125,189,105,116,206,105,1517\ 16,142,105,173,198,160,125,105,150,43,47,104,196,52,1,1167f 105,148,36,5,118,105,148,51,65,53,1,37,5,182,105,1477p 32,26,104,164,52,1,116,105,149,36,5,118,105,149,49,3385z 53,1,37,6,166,137,255,96,32,2,141,14,167,128,183,1058t 147,90,38,194,122,105,146,38,166,57,52,20,190,105,75,1408 124,176,36,9,166,128,191,105,75,53,148,255,255,142,106,1768 191,105,75,127,255,145,183,255,216,189,161,118,183,255,217,16799 128,13,112,38,5,140,124,176,37,236,134,1,183,255,145,1839{ 255,217,32,200,206,105,173,246,105,150,42,14,57,141,187,2069 105,151,183,105,150,42,1,57,198,20,141,174,167,192,90,389 249,57,0,0,0,0,0,252,232,41,253,232,24,52,6,32:*ʆ 15,125,232,0,38,56,252,232,41,52,6,189,232,187,167,1:cԆ 48,1,79,140,232,23,37,246,53,6,32,37,127,232,5,254:ކ 0,136,255,0,0,182,255,2,125,106,172,39,29,122,106,160: 38,24,182,106,162,183,106,160,182,255,190,190,255,188,191,255;' 189,246,255,187,247,255,188,183,255,187,125,106,173,39,30,122;k 106,161,38,25,182,106,163,183,106,161,190,106,174,166,128,140; 106,172,37,3,142,106,164,183,255,186,191,106,174,59,189,104; 135,189,104,75,26,80,134,96,183,106,156,134,2,183,106,157<- 182,106,157,198,214,61,183,106,158,64,139,160,68,52,2,134 j 1,7,7,7,15,95,129,19,38,2,134,93,0,0,106,164>!t *** CENTER PRINT>=~ (20(O$)2),VT: O$>C>_ 0,18::::: 0,19:=V 142,248,0,141,10,48,1,140,253,0,37,247,28,175,57,198=` 1,247,255,145,230,132,127,255,145,231,132,57,0,0,0,0> j 1,7,7,7,15,95,129,19,38,2,134,93,L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1/ " (47) ADD-ON"/* " (50) HUCKBUCK"/A " (56) CARDPUZL"/X " (57) DRAWCARD"/n " (57) HOTGOLD"/ " (64) HEADER"/ " (65) CREDGEN"/ " (66) TELEPRMT"/ " (66) SCRIPTO"/ " (67) WHOSONLN"/ " (73) COCOTRIG"0І "END"" (47) ADD-ON"/* " (50) HUCKBUCK"/A " (56) CARDPUZL"/X " (57) DRAWCARD"/n " (57) HOTGOLD"/ " (64) HEADER"/ " (65) CREDGEN"/ " (66) TELEPRMT"/ " (66) SCRIPTO"/ " (67) WHOSONLN"/ " (73) COCOTRIG"0І "END`& 40:5:" CoCo Show Display Program":" For CoCo Max III Pictures":" (c) 1987 by Colorware":" By Dave Stampe"::&1000,&H6800: D$(15),N$(15),Y(15),T(15),FX$(15),FY(15),FT(15):F1'SC3:N0:Y$(0)"NO ":Y$(1)"YES"'(::" R)un : Run the current sequence":" N)ew : Create a new sequence": " E)dit : Edit current sequence": " Q)uit : Quit CoCo Show Program"::" Selection :";'2A$:A$"" 50( < A$"Q" A$"q" "Quit"::"End of Program":(SF A$"R" A$"r" "Run"::" One moment, please...": 530(P A$"E" A$"e" "Edit"::" One moment, please...": 100(Z A$"N" A$"n" "New"::" One moment, please...": 120(d 120)3n"I",#1,"SAVESEQ":A015:#1,FX$(A),FY(A),FT(A):::&HFF40,0)KxSP0:0,17,SC,A$,B$) SP128 X$((A$,128SP),11) : X$((B$,256SP),11)) (X$)255 180) (X$)0 (X$,3)"CM3" 170)D$(N)(X$,8):NN1: N16 180*SPSP32: SP256 130 : SCSC1: 120*^&HFF40,0:D0:B0 N:A015: D$(A)"" FX$(B)"" 200*D$(A)FX$(B) Y(D)FY(B):T(D)FT(B):N$(D)FX$(B):D$(A)"":DD1*ȋ::A0 15: D$(A)"" N$(D)D$(A):DD1*ҋ+ 40:" NUMBER FILE NAME SHOW? TIME":+KA1 16: 4,A1 : A;(32((A10)));" ";N$(A1)+q 24,A1 :Y$(Y(A1))" "T(A1)+w+ 1170:" Enter selection to edit, or":" press 'S' to save sequence:";R$: R$"" 260+ R$"S" R$"s" 480, 260,%"R(R$): RN 260 : RR1,P, 1170:" Include in Show? (Y/N):";,f6A$:A$"" 310,@ A$"N" A$"n" Y(R)0:350,J A$"Y" A$"y" Y(R)1: 350,T 300,^ 24,R2:Y$(Y(R));: T(R)5 T(R)5-bh 1170:" How many seconds should CoCo Show":" display this picture before":" continuing ";T$: T$"" 360-qr 360-|Q(T$): Q5 T(R)Q : T(R)5- 31,R2:T(R);. 1170: 4,21:"(Press ENTER to leave unchanged)": 4,19:"New position in sequence:";NW$: NW$"" 470.H 400:NW(NW$)1:OLR: NWOL 470.wSN$N$(OL):SYY(OL):STT(OL): OL15 440. AOL 14:N$(A)N$(A1):Y(A)Y(A1):T(A)T(A1):. NW15 460/€ A15 NW1 1:N$(A)N$(A1):Y(A)Y(A1):T(A)T(A1):????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO CONTINUE";+JX$:X$""330+TX$" "370+^I110:X$B$(I)500+hI:330+r,|: " (XX)= PAGE NUMBER OF LISTING",&:,QP1115:B$(P)A$(P),B$(5P)A$(P5):P,Y:, " PRESS TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::-…XX$" "240-!̀I11 NP:XX$B$(I)500-.֋I:430-=XX$430-Gꁥ240-gQ$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."..7Q(Q$):QQ6:SL$(Q$,Q).C& SL$,R.T "DECEMBER".k " (10)+COCOSHOW". " (10)*SAVESEQ". " (10)*ARIZONA". " (10)*CAR". " (10)*HALOWEEN". " (10)*IDEAS". " (20) WORMY". " (29) MATCH50"𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я $%()+,-01234578 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BASCOCOSHOWBAScSAVESEQ DAT&ARIZONA CM3'CAR CM3%HALOWEENCM3*IDEAS CM3WORMY BAS.MATCH50 BAS/ADD-ON BASHUCKBUCKBASCARDPUZLBASDRAWCARDBAS HOTGOLD BAS HEADER BAS6mCREDGEN BAS TELEPRMTBAS9cSCRIPTO BASWHOSONLNBAS COCOTRIGBAS:-߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?"ARIZONA ", 1, 15 "CAR ", 1, 15 "HALOWEEN", 1, 15 "IDEAS ", 1, 15 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 "", 0, 0 @0x?6.&8"(   ;?3&DUUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33D@pO`|OX|O8|Op@}tO3C343wɸ31313}NOC131433313314}nO33D33DC4D4DC4D3wp14C1C <mOCD4p`<M33 8p<obO4C38<~}`O31<|`~03D8 <Z,33480 <F@O1D00 <r$44p0<hO3333`p<211C1``M 4CD3CD4``Aw;333313333`@_`OC1314313DC334C4` `313D3141`YAz3D3D3D3`A`@@O` ``A`A``````9838[N[v`3C3C3C34C3343C3434`{8s8ns/->l1C33131331`|D3131333 `@`f4D3C14C14 `xD3DC33D3 `xUDO34C3 `xcDO11 `8 D `8 8DO 8O `8O `8 `x4C `x033  x*C334 ~14C1 p_33333D gpD1C334 #`D3C34D D    @`O` Y8F]34C3C34343C343434`8Dsϛ O1331313311`8^\@33314333C131433133`x^tCC4D3DC4C4D133D33DC44DC`|4C3DCD14C134`,?|`'6D3CD9199`?} 7U"t3I9934333`|xXÀI13139314C33131` |!431D19`o$BC939999`X `I933393333`h pI31113` oaĂ@pI339933 ` l<8ǀII31333333131`Á^ÌI1913931119`bR99199``pB`3333333333`?503333933311319333339`7y)&@13131`3O9[R@33333333``````>w`>w`<`lw`|`x`x``w```````q=m33339339`?11313313`?z~133131313131313`?fw99393`? 333`?nw1311311`=FX3993993` ?jw33133913313` >?1o313119319`:-Nw39333333`01`#@3`X`ô`=@                             L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-31:426."BM0,54C1U42R20":(16,24),16,1,.8,.8,.17:"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"70"BR48U42R20":(154,24),16,1,.8,.8,.17:(154,44),16,1,.8,.8,.17:"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81(190?6.&4>"7<&>>77&>$"$UUUUUUUUUUUUU"ݻwݻwUDDDDDDDDU""""3U3333Dݎݸpw?9w?3_߿U8}Ur'UR T0EuDpc0U33 bF@0+8 `媀耨؈ (0*芈`0`>\*UX0 `s`UXclx #ӬUX@lp`@Sk؁UXa@`8ZUXaX@UP言aه`X`FUXb`H` @1`  l00UX0cA0p08@UXa p x8__c@p x<Bϑ؍U__b@ h| Cu܀؍؁U__UXd@ ht #d؈Ud0A@H\ ݊l`@HlAkYxÈ@c8lW(@؈G`8ƶU_UXe G@@ϸG ` ` _C 0`T؁_C``Bh UC@x0c^*@@<aW@`a@."@@@ '{؍݈ @b m݊00 >@P(20`@uQf_0x( J舊hU_XHp8 *|fX_U 0 Ujfwh wf āfgvX kwfwv `0+ސfgvgvfhX _*fwfwf `[tgvwvX0L/Հwfgfwv /@fgvgvgvfX@/wfwfwfhX0` *fgvgvwfX?`+`wfwfgvX?+fgvgvwfX?.gvffwfw +Uffwvh`0+fwvwfh @8.v@8*<@?VȌ̊DȌ 7}D34DHȀ pl;ՀDC3C3DȈ1< v@\`%zitD3434C4X ? O`D33D34D3 7\CD44C34HȈ0 ;x*D4C34CCD4DH0`0 ڀDC3D3D34C4D́0/0 (D34CC0vp B@3D34DD40f` 0cjD3C344C4H0` !DC4C343DH  ` г3D3CDC4DC3D O 0.DC4DDJCD4H`߀ 0kDC4DJC44DH` g`a C3DJCCD`0 cp kD3CDJC43D4H` 30UPC4JCDD`<`30Z334JC444`8`6cIPDDDJCCH@808CCDJC4D@p08 9cFD344DJC4H0pp C3DJC4D>pD4DJC4D6 ED3CDJC44H7 "ƠC4DJCC )4\4DJC43DoF%334DJC4o(XDDJC3DHn0)CD334340%@CC34D8 @3C440ÀT,D44H0فC334DCCC0فawȪ0فac JC0ف6a64D30ف6a JC فfa@6Y4D3 فfapJC فa 6D4D3 فa BCJC فa S [P4D34 فa !0@DJC >فa1< jP4D3 فsaN8@d͍JC فva8`4D3 ف>a8@JC ف<c{2&ΏD4D34 فc9PvC 7فc[`5 C43 3cӀ0_cCD }c`0phBCH1wmg0`D44 mp0Vaшm4D44|sTf@CDJC:C3D^<<А\4DHV0H<|`J(DDCC4JD4 z`>`3l>`oiYujCCJ4DCDDCD`57wkO034DCJC4JC4CC4C44JC4JH  `+{ww. OvDDJDDDDDDDD344  `'`q> P7}~ C44DDJC4JC4JC4JC4JC4JJC3D`'91pRDCJDDDDDD3D4Hyg, qUi說_3JJJJJJDCC@yg.0(`CD4DJD34D'p`{D4CC4DJDC434H'`=뀄C34DJDC3DDD`` gDD4DJDC3C4CDHAܘ,,xC4CJDC3434HDD4DC43DDxπS[C43433D4CDHnbπDC4CDCD4HvpҥDDCC44/095<4CD4D3D3{;C3DC4C34CD 3xD3DDDD34O wۀ4D4C4C4C4D,o@DD34D3DvC4D4C4D4D CCD4D84D(@ (0pP Xh5`w08m33?33?3?3??8pvCDOD4DCOD4D4DCD4?<U*ODO?O?hOOD4D鿫F~v3[w|VհO3?3333?3?3?3?O3?3333?3? z;{D4D?CDOCDO4DC4DCD4DCDD4CD?D4DOD4DD4D g0~DWWw5D34O4CD4D?4D?D?3D?4O4COOg0|{MT=yDDDD?O44C4C4CDCDDDOO x=㱃 OO4COCODO3O3OO34OOD }|+'IJODD4D4DOD4DO ᇼ0 OOOD4D4OOOO [矼 U44DOC4C44 mǿ <@C4C4CDCD4D4DC4CC4 7{m?f{3343D343343DC34OC34O343343D34334O3D7(lm1B N˭MDDDDDDODDDDDDDDf?Nc **OOOOOOOOOOOV?jv!mQIiB`OOOOOOOCD34BDfO$@DOODOODOOBD&$:COPYRIGHT 1990 FALSOFT, INC.& : WORMY DAN TANDBERG, M.D. ALBUQUERQUE, NEW MEXICO&250&:MAIN LOOP&(X(A(H)): XC 100&2A(HU),Q:A(H),P:GU A(HL),C :GGU:LLU:@26,L;' TO BEGIN ";*܅ SC(1)SC(2)16370/a1,0:(170,180)(182,192),,BF/PL1"BM174,190S4C0R8L4U8G2":PL2"BM174,190S4C0NR8U4R8U4L8D2"/V1:H1: TR12/K$(H,V):CR$/X$:X$""240/X$(13)2950P(X$)0P8HH10# P9HH10GH0H1:240::H5H4:2400WP94VV10gP10VV10V0V1:240:V5V4:2400"2400'K(H,V,2)02400,1,0:(H(H),V(V))(H(H)58,V(V)40),,BF11K$(H,V)"BD4C0S2":P$(K(H,V,1)):K(H,V,2)1161,11#;M(TR)K(H,V,1)19@HH(TR)H:VV(TR)V1BE TR1pJ(((M(1)2).5))(((M(2)2).5))3401OI12:K$(HH(I),VV(I))"BD8C0S2":P$(K(HH(I),VV(I),1)):I1T(32)3402 Y1,0:I12:(H(HH(I)),V(VV(I)))(H(HH(I))58,V(VV(I))40),,BF:I28^(((M(1)2).5))(((M(2)2).5))3652c1,0:I12:Q0282:(H(HH(I))Q,V(VV(I))Q)(H(HH(I))58Q,V(VV(I))40Q),,B:Q:(H(HH(I))Q8,V(VV(I))Q)(H(HH(I))58Q8,V(VV(I))40Q),,BF:I3!hQ12:K$(HH(Q),VV(Q))"S4BR30BD14C1": PT$(PL):Q:SC(PL)SC(PL)2:2153mZ12:K(HH(Z),VV(Z),2)0:Z:1,0:I12:Q0202:(H(HH(I))Q,V(VV(I))Q)(H(HH(I))58Q,V(VV(I))40Q),,B:Q,I:2153rI12000:3w:@104,"FINAL SCORECARD"3|@168,"PLAYER ONE =";SC(1)4 @232,"PLAYER TWO =";SC(2)4U@296,"PLAYER ";:SC(1)SC(2)"ONE WINS!";:SC(2)SC(1)"TWO WINS!"4SC(1)SC(2)@296,"THE GAME IS TIED!"4@360,"ANOTHER TRY (Y/N)?";4X$:X$"Y":X$"N":"MENU"::4054 ALABAMA5 "BR40BD60U20M+4,-30R30M+4,+40LD6L26D6L10"5"BR12BD40U12R8D6NL8D6BR6NU12R6BR6U12R8D6NL8D6BR6R2U12NL2R8D6NL8D6NL8BR6U12R8D6NL8D6BR6U12R6ND12R6D12BR6U12R8D6NL8D6"5 ALASKA6!"BR14BD64NU2R6U4NL6BR6NU2R6U4NL6BR6NU2R6U4NL6BR6E6U2L12H6U6E2R6E2U2H2L4U4E2R4F2E4H4U4R12U2R16D2R12D38R4F6R4F10D4L4H10L4H6L6H6L8M-16,+10H2"6"BR22BD40U12R8D6NL8D6BR6NU12R6BR6U12R8D6NL8D6BR6R8U6L8U6R8BD12BR6U12D6R4NE6F6BR6U12R8D6NL8D6"6$ ARIZONA6."BR34BD50M+30,+12R22U54L40D8L6G4D8F4G4D4F4G6"7:8"BR18BD40U12R8D6NL8D6BR6U12R8D6L8R2F6BR6NU12BR6NR8M+8,-12NL8BD12BR6U12R8D12NL8BR6U12M+8,+12NU12BR6U12R8D6NL6D6"7IB ARKANSAS7yL"BR34BD50F4R4D6R40U8M+10,-38L6U4L56M+4,+408V"BR8BD40U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12D6R2NE6F6BR6U12R8D6NL8D6BR6U12M+6,+12NU12BR6R8U6L8U6R8BD12BR6U12R8D6NL8D6BR6R8U6L8U6R8"8` CALIFORNIA8Uj"BR68BD70NR22U6H10L4H10U4H4R4U4L4H6U10H4E4U8R30D26F28D6F2G2D6"8t"BR14BD40L6U12R6BD12BR4U12R8D6NL8D6BR6NU12R4BR6NU12BR4U6NR6U6R8BD12BR4U12R6D12NL6BR6U12R8D6L8R2F6BR6U12M+6,+12NU12BR6NU12BR6U12R8D6NL8D6"8~ COLORADO9"BR32BD52R60U40L60D40BE26E4R6F4"9"BR14BD40L6U12R6BD12BR6U12R8D12NL8BR6NU12R6BR6U12R8D12NL8BR6U12R8D6L8R2F6BR6U12R8D6NL8D6BR6R2U12L2R10D12NL8BR6U12R8D12L8"9 CONNECTICUT9"BR28BD62M+20,-8R28E4R20E4U30L68D30F4M-16,+6D6R2":|"BR12BD40L6U12R6BD12BR4U12R6D12NL6BR4U12M+8,+12NU12BR4U12M+8,+12NU12BR4NR4U6NR4U6R4BD12BR4NR6U12R6BR4R4ND12R4BR4D12BR4NR6U12R6BR4D12R6U12BR4R4ND12R4": DELAWARE:Ć"BR44BD62NR30U50E8R8F2D4G6D12F6M+10,+26";?Ά"BR6BD40R2NU12R8U12NL10BR6NR6D6NR6D6R6BR6NU12R6BR6U12R8D6NL8D6BR6NU12R6NU12R6NU12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6NR6U6NR6U6R6";M؂ FLORIDA;"BR20BD8R28F4R26F2R4U6R10D10M+18,+30D16G4L12H8U4M-16,-9U6E2U4H12L8G6L6H10L10U4H2U2"< "BR16BD40U6NR8U6R8BR6D12R6BR6U12R8D12NL8BR6U12R8D6L8R2F6BR6U12BR6R2ND12R8D12NL10BR6U12R8D6NL8D6"< GEORGIA<"BR44BD60R40U20L10U2H4U2L4M-8,-22U6L12D30F4G8F2D10">cF"BR28BD40NU12BR8R2U12L2R10D12NL8BR6U12R8D6NL8D6BR6U12D6R8U6D12BR6U12R8D12L8">rP ILLINOIS>Z"BR46BD6R30D6F2D30G2D4G2D4G2L4D2F4D2L8H2L4G2L2H4U6H10U4E2U2H6U2E6U4R6E4U4H4"?$d"BR16BD40NU12BR8NU12R6BR6NU12R6BR8NU12BR8U12M+8,+12U12BR6ND12R8D12NL8BR8NU12BR8R8U6L8U6R8"?2n INDIANA?ox"BR46BD8ND30R36D36F2D2G6L4G8L2G4L4H4L2G6L2H4U6E2U4E4U8"?"BR16BD40NU12BR8U12M+8,+12U12BR6R2ND12R8D12NL10BR8NU12BR8U12R8D6NL8D6BR6U12M+8,+12NU12BR6U12R8D6NL8D6"? IOWA@("BR40BD18R42D2F4D4F6D6G2L4D4G4D4L4H2L30H2U4H4U4H6U4E2U2H6R8"@l"BR32BD40NU12BR8U12R8D12NL8BR6NU12R6NU12R6NU12BR6U12R8D6NL8D6"@y KANSAS@"BR32BD18R52D2F4D4F4D20L60U32"A"BR20BD40U12D6R2NE6F6BR6U12R8D6NL8D6BR6U12M+6,+12NU12BR6R8U6L8U6R8BD12BR6U12R8D6NL8D6BR6R8U6L8U6R8"AȂ KENTUCKYAp҆"BR18BD48R80E4R2E4U2E4H4L2H4U4H4L2G2L4H6L4U2L8D4G4L4G4L8G4L4H4L4G8L4G4D2L4D4L4D6L2R8"A܆"BR10BD40U12D6R2NE6F6BR6NR8U6NR8U6R8BR6ND12M+8,+12U12BR4R4ND12R4BR4D12R8U12BR6NR8D12R8BR6U12D6R2NF6E6BR6D2F4ND6E4NU2"A LOUISIANAB`"BR28BD10R40F4D2F4D2G4LG8D6R26D4G2D2F4L10G2F2R8G4F4DL8H6L4D6L8H4G4L2H2L2H6L8H2L8U6E2U6E6U2H6U16B"BR10BD40NU12R6BR6U12R8D12NL7BR6NU12R8NU12BR6NU12BR6R6U6L6U6R6BR6D12BR6U12R8D6NL8D6BR6U12M+8,+12U12BR6ND12R8D6NL8D6"B MASSACHUSETTSCT"BR24BD20R50E4R2E4R8F6D4G6L4D4F8R2D6R10E2U6H4U4R6F4D16M-22,+8U6L4G6L6H10U4L28D4L4U4L18H2M+8,-22"D"BR8BD40U12R4ND12R4D12BR4U12R4D6NL4D6BR4R4U6L4U6R4BR4NR4D6R4D6NL4BR4U12R4D6NL4D6BR4NR4U12R4BR4D12U6R4U6D12BR4NU12R4NU12BR4R4U6L4U6R4BD12BR4NR2U6NR2U6R2BR4R2ND12R2BR4R2ND12R2BR4NR4D6R4D6L4"D%" MARYLANDD~,"BR24BD20R70D24R12D8L4D2L10H6U4H6U8E4U2L8D2G6D8F6D4L6H10U6H2L4H2U4L6G2L6U4L2G6L6U8"E6"BR6BD40U12R6ND12R6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR4BU12D2F4ND6E4U2BR6D12R6BR6U12R8D6NL8D6BR6U12M+8,+12NU12BR4R2NU12R8U12L10"E@ MAINEE`J"BR34BD36ND30R4E4U4E2M+6,-20E4R6F6R8F6D20R4F2D6R4F4G6L8G4L6G2L6G4L10G8H4"ET"BR26BD40U12R6ND12R6D12BR6U12R8D6NL8D6BR6NU12BR6U12M+8,+12U12BR6NR8D6NR8D6R8"E^ MICHIGANFMh"BR48BD68R40M+12,-22U10H2L8G6L4H2U4E4U4E2U4H2L4H6L4G6L2G6L2G4D8F2D6F2D2F4D2G2D4G6BU58L6H4L6U2E2L4G4L2G6D2R8F4R8F2E4R8E4R10U4L6H2L6G4"Fr"BR12BD40U12R6ND12R6D12BR6NU12BR6NR8U12R8BR6D12U6R8U6D12BR6NU12BR6NR8U12R8BD6NL4D6BR6U12R8D6NL8D6BR6U12M+8,+12U12"F| MINNESOTAG3"BR40BD64R50U8H8L4U6H4U2E4U8E8R2E2R4E2U4L8H2L4G2L4H2L10G4L10H4L2U2L14D8F2D6F2D12F2D28R2"G"BR6BD40U12R6ND12R6D12BR6NU12BR6U12M+8,+12NU12BR6U12M+8,+12U12BR6NR6D6NR6D6R6BR6R6U6L6U6R6BR6D12R6U12NL6BR4R4ND12R4BR4ND12R6D6NL6D6"G MISSISSIPPIH"BR40BD60R22D4F4R6E2R6F2R2U64H2L26G6D2G6D6G4D6F4D4G2D4G2D4G2D6"H"BR6BD40U12R6ND12R6D12BR6NU12BR6R6U6L6U6R6BR4NR6D6R6D6NL6BR6NU12BR6R6U6L6U6R6BR4NR6D6R6D6NL6BR6NU12BR6U12R6D6NL6BR6ND6U6R6D6NL6BR6U6D12"H MISSOURIH†"BR36BD60R54F4G4R12U12H4U4H6U6E4U4H4L2H10U4H2U4L54F4D4F4D8F4D32"Iĭ"BR14BD40U12R6ND12R6D12BR6NU12BR6R8U6L8U6R8BR4NR8D6R8D6NL8BR6U12R8D12NL8BR6NU12R8NU12BR6U12R8D6L8R2F6BR6U12"Iwւ MONTANAI"BR16BD14R92D38L50D6L4U2L6G2L2H4L4U8L2G4L4U8H6U6H6U10"J*"BR14BD40U12R6ND12R6D12BR6U12R8D12NL8BR6U12M+8,+12U12BR4R4ND12R4BR4ND12R8D6NL8D6BR6U12M+8,+12U12BR6ND12R8D6NL8D6"J; N CAROLINAJ"BR36BD18R72D4G2L4D4R8D4G2L12F4R2D4G4L2G6L8H8L12H8L14G2L28U2E4R4E6R4E8"KO"BR12BD50NR8U12R8BR6ND12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D12NL8BR6NU12R6BR6NU12BR6U12M+8,+12U12BR6ND12R8D6NL8D6BU18BL18U12D6L8U6D12BL8U12R4L8BL6BD12H6L2R8U6L8D12BL6U12L8D12NR8BL6NU12M-8,-12D12"K^ N DAKOTAK"BR26BD18NR68D38R74U12H2U6H2U6H2U6"L>&"BR20BD50R2NU12R8U12NL10BR6ND12R8D6NL8D6BR6U12D6R2NF6E6BR6D12R8U12NL8BR4R4ND12R4BR4ND12R8D6NL8D6BU18BL6U12D6L8U6D12BL8U12R4L8BL6BD12H6L2R8U6L8D12BL6U12L8D12NR8BL6NU12M-8,-12D12"LM0 NEBRASKAL}:"BR22BD18NR62D20R20D14R60U8H2U6H2U6H6L4H4"M D"BR8BD40U12M+8,+12U12BR6NR8D6NR8D6R8BR4R2NU12R8U6NL8U6NL10BR6ND12R8D6L8R2F6BR6U12R8D6NL8D6BR6R6U6L6U6R6BR6D12U6R2NE6F6BR6U12R8D6NL8D6"MN NEVADAM8X"BR36BD12R42D44L4G4D4H34U18"Mb"BR18BD40U12M+8,+12NU12BR6NR8U6NR8U6R8BR6D8F4E4U8BR6ND12R8D6NL8D6BR4R4NU12R8U12NL10BR6ND12R8D6NL8D6"Ml NEW HAMPSHIRENv"BR40BD68R28E4R2E4R4E2U4H4U2H4U42L2G4L4H2L4D4G2D12L4G4D6G6D4G2D4G2D6G2D6F2"N"BR34BD32U12M+8,+12NU12BR6NR8U6NR8U6R8BR6D12R8NU12R8U12BD18BL72D12U6R6U6D12BR6U12R6D6NL6D6BR6U12R6ND12R6D12BR6U12R8D6NL8BF6R6U6L6U6R6BR6D12U6R6U6D12BR6NU12BR6U12R8D6L8R2F6BR6NR6U6NR6U6R6"N NEW JERSEYO%"BR56BD4M+20,+10D8G6D2F4R2F4M-8,+24G4L4U6L8H8L2H4U4E6R2E2U2H6U8R2U8E6"O"BR36BD32U12M+8,+12NU12BR6NR8U6NR8U6R8BR6D12R8NU12R8U12BD18BL62R8L4D12L4BR14NR8U6NR8U6R8BR6ND12R8D6L8R2F6BR6R8U6L8U6R8BR6NR8D6NR8D6R8BR6BU12D4F4ND4E4U4"O NEW MEXICOO"BR36BD14R54D40L44D8L10U48"P"BR36BD32U12M+8,+12NU12BR6NR8U6NR8U6R8BR6D12R8NU12R8U12BD18BL62ND12R8ND12R8D12BR6NR8U6NR8U6R8BR4F6NG6NF6E6BR6ND12BR6NR8D12R8BR6NU12R8U12L8"PƂ NEW YORKQ І"BR78BD4R24D16L2D12R2D18L2D10G4L4M-22,-9H6L50U6E6R2E4U2R4U2R10D2R16U2E4U2H4E10R4E2R4BD60BR22E2R4E2R8D6L8G2L8U4Qچ"BR36BD32U12M+8,+12NU12BR6NR8U6NR8U6R8BR6D12R8NU12R8U12BD18BL46D4F4ND4E4U4BR6ND12R8D12NL8BR6U12R8D6L8R2F6BR6U12D6R2NE6F6"Q OHIOQ"BR92BD14D26G4D2G4D2L4G2D4L4G2D2L4H6L2G2L6G2L4H6L4H4U32R4E4R4F8R16E4R4E4R4E2R6"R&"BR36BD40U12R8D12NL8BR6U12D6R8U6D12BR6NU12BR6U12R8D12L8"R5 OKLAHOMARp "BR96BD24D28L10H2L2G2L4H2L4H4L6G2L4H2L8H2U16L24U6R78"R"BR6BD40U12R8D12NL8BR6U12D6R2NE6F6BR6NU12R4BR6U12R8D6NL8D6BR6U12D6R8U6D12BR6NR8U12R8D12BR6U12R6ND12R6D12BR6U12R8D6NL8D6"R OREGONSD*"BR106BD14NH4M-6,+14F6D28L80H4U8E4U34R14F2D6F2R12M+20,-8R8E2R6E2R6"S4"BR20BD40U12R8D12NL8BR6U12R8D6L8R2F6BR6NR8U6NR8U6R8BR6NR8D12R8U6NL2D6BR6NR8U12R8D12BR6U12M+8,+12U12"S> PENNSYLVANIASH"BR20BD18E6R2D4R70F10D2G4D2G4F8D4G6L4G4L74U40TR"BR4BD40U12R6D6NL6BD6BR4NR6U6NR6U6R6BR4ND12M+6,+12U12BR4ND12M+6,+12U12BR4NR4D6R4D6NL4BR8U6H4NU2F4E4U2BR4D12R4BR4BU12D8F4E4U8BR4ND12R6D6NL6D6BR4U12M+6,+12U12BR4D12BR4U12R6D6NL6D6"T\ RHODE ISLANDU f"BR46BD20ND30R26D8R2D6F4R2F4D8G2L6U8H4L8D12L6G2L4G2L4U4BR22U8R4D8L4"Up"BR24BD32U12R8D6L8R2F6BR6U12D6R8U6D12BR6U12R8D12NL8BR6R2NU12R8U12NL10BR6NR8D6NR8D6R8BD18BL70NU12BR6R8U6L8U6R8BR6D12R8BR6U12R8D6NL8D6BR8U12M+8,+12U12BR6R2ND12R8D12L10"Uz S CAROLINAV"BR36BD18E4R4E2R18F4R14F12G12D2G8L2G4L4H4U2H4U2H8L2H8L4H2L4U2E4R2"V"BR12BD50NR8U12R8BR6ND12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D12NL8BR6NU12R6BR6NU12BR6U12M+8,+12U12BR6ND12R8D6NL8D6BU18BL18U12D6L8U6D12BL8U12R4L8BL6D12L8U12BL6D12L8U12NR8BL6L8D6R8D6L8"V S DAKOTAW"BR26BD12NR68D38R64F4R2F6U4H2U4E2U4H2U12H2U6H6E2"W"BR20BD50R2NU12R8U12NL10BR6ND12R8D6NL8D6BR6U12D6R2NF6E6BR6D12R8U12NL8BR4R4ND12R4BR4ND12R8D6NL8D6BU18BL8U12D6L8U6D12BL8U12R4L8BL6D12L8U12BL6D12L8U12NR8BL6L8D6R8D6L8"W TENNESSEEW"BR26BD28R90G6L2G4L8G4L2G6L66U4E2U6E4U4"Xʆ"BR10BD40U12L4R8BR4NR6D6NR6D6R6BR6U12M+8,+12NU12BR6U12M+8,+12U12BR6NR6D6NR6D6R6BR6R6U6L6U6R6BR6NR6D6R6D6NL6BR6NR6U6NR6U6R6BR6NR6D6NR6D6R6"XԂ TEXASXކ"BR50BD4R12D14R4F2R4F6R8E2R4F2R6F2D8F2D6G4L4G6L4G4D8L4H4L6H6L2H4L2H6L4G6L2H2L4H10U2H4R28U30R4"YE"BR28BD40U12L4R8BR4NR6D6NR6D6R6BR6E6NH6NE6F6BR6U12R8D6NL8D6BR6R8U6L8U6R8"YP UTAHYq"BR40BD8R22D14R20D36L42U50"Y "BR32BD40NU12R8U12BR6R4ND12R4BR6ND12R8D6NL8D6BR6U12D6R8U6D12"Y  VIRGINIAZ "BR24BD48R88U4H4L2H4U4H2M-12,-4U4H4L2H4L8G4L2G12L6G4L6H4L4G6D2G10R10"Z{ $"BR18BD28D8F4E4U8BR6D12BR6U12R8D6L8R2F6BR6NR8U12R8BD6NL2D6BR6U12BR6ND12M+8,+12U12BR6D12BR6U12R8D6NL8D6"Z . VERMONTZ 8"BR88BD4D4G2D12L4G4D6G6D4G2D4G2D6G2D6L22U22L4U4E2U18M+6,-14R38"[? B"BR12BD28D8F4E4U8BR6NR8D6NR8D6R6BR6U12R8D6L8R2F6BR6U12R6ND12R6D12BR6NR8U12R8D12BR6U12M+8,+12U12BR4R4ND12R4"[P L WASHINGTON[ V"BR36BD14R62D36L16M-40,+6H2U4L8H2M-6,-20H6U2R8F4R4U2H2U2H4R6"\5 `"BR6BD28D12R6NU12R6U12BR4ND12R6D6NL6D6BR4R4U6L4U6R4BR4D12U6R6U6D12BR6NU12BR6U12M+8,+12NU12BR4NR8U12R8BD6NL2D6BR4BU12R4ND12R4BR4D12R6U12NL6BR4ND12M+8,+12U12"\E j WISCONSIN\ t"BR42BD62R42U12E2U6E2U4E2U4E2U4L2M-8,+12L2U8R2U6H4M-22,-6L6U4L4D2L8D7G2L2G6D10F10D6F2D6F4"]$ ~"BR8BD28D12R6NU12R6U12BR6D12BR6R6U6L6U6R6BR6NR6D12R6BR6NR8U12R8D12BR6U12M+8,+12U12BR6NR6D6R6D6NL6BR6U12BR6ND12M+8,+12U12"]8 WEST VIRGINIA] "BR56BD10D10R18D8R4E6R4E2R6F4D4L6D2G4D2G6L4M-8,+12F2D4G2L4G2L14H2L4H4L4H4L2H2U4H2U4E4U2E4U2E6U2E6U2E4U2E4D4"^U "BR18BD38D8F4E4U8BR6D12BR6U12R8D6L8R2F6BR6NR8U12R8BD6NL2D6BR6U12BR6ND12M+8,+12U12BR6D12BR6U12R8D6NL8D6BU18BL66NU12R6NU12R6U12BR6NR8D6NR8D6R8BR6R8U6L8U6R8BR4R4ND12R4"^c WYOMING^ "BR34BD18R56D36L56U36BF8F4R2U6L2G2"^ "BR12BD28D12R6NU12R6U12BR6D4F4ND4E4U4BR6D12R8U12NL8BR6ND12R6ND12R6ND12BR6D12BR6U12M+8,+12U12BR6NR8D12R8U6L2"BR6D12BR6U12R8D6NL8D6BU18BL66NU12R6NU12R6U12BR6NR8D6NR8D6R8BR6R8U6L8U6R8BR4R4ND12R4"^c WYOMING^ "BR34BD18R56D36L56U36BF8F4R2U6L2G2"^ "BR12BD28D12R6NU12R6U12BR6D4F4ND4E4U4BR6D12R8U12NL8BR6ND12R6ND12R6ND12BR6D12BR6U12M+8,+12U12BR6NR8D12R8U6L2"j&$:COPYRIGHT 1990 FALSOFT, INC.&F :***************************&`:TV HEADER GENERATOR&~:WRITTEN BY CHRIS MAYEUX&(:&2:BE SURE YOU ARE IN 32 COLUMN&<:VDG MODE BEFORE OPERATING&F:THIS PROGRAM&P:'Z:***************************'#d: WHERE EVER COMMANDS ARE'Bn: CRAMMED TOGETHER, IT IS'ax: FOR TIMING PURPOSES, DO': NOT SPREAD THEM OUT !!!':**************************':GENERATE COLORBAR PATTERN':**************************'(@0,"30 SECONDS COLOR BAR LOADED...":: 280:0(tCB$(4,32)(4,159)(4,175)(4,191)(4,207)(4,223)(4,239)(4,255)(ȇ@32,"";: X1 13: CB$;: X(0(܅ 1800 220(恦 1760( 360(:**************************) :GIVE DIRECTIONS TO USER)+:**************************)Q"STEP 1. SET RECORDER TO RECORD")t"" AND PUT IT ON pause")z,)6"STEP 2. WHEN READY TO RECORD,")@" TAKE RECORDER OFF OF ")J" PAUSE AND PRESS A KEY."*TK$: K$"" 340*^*)h:***************************Gr:ENTER SLATE INFORMATION*h|:***************************n*"WE WILL NOW MAKE A SLATE SCREEN"*"ENTER THE FOLLOWING INFORMATION"**:**************************+: THESE ARE THE DEFAULTS+":**************************+6NM$"SHOW NAME"+ESN$"0001"+_PD$"PRODUCER'S NAME"+rDT$"00/00/00"+LN$"30:00"+CU$"00:30"+:**************************+"25 CHARACTERS MAX"+"SHOW NAME:";K$,& (K$)25 K$(K$,25), 0 K$"" NM$NM$ : NM$K$,?:"SHOW NUMBER (####):";K$,\D (K$)4 K$(K$,4),zNK$"" SN$SN$ : SN$K$,X"PRODUCER NAME:";K$,bK$"" PD$PD$ : PD$K$,l"DATE (##/##/##):";K$-v (K$,3,1)"/" L$(K$,2)"/"(K$,5):K$L$-= (K$,6,1)"/" L$(K$,5)"/"(K$,2):K$L$-u ((K$,3,1)"/" (K$,6,1)"/") DT$K$: 670- K$"" DT$DT$-"SHOW LENGTH (##:##):";K$-K$"" LN$LN$ : LN$K$- "CUE TIME (##:##):";K$. K$"" CU$CU$ : CU$K$.#ƻ"FACILITY NAME:";FC$.=Ѕ FC$"" FC$"HERE".nڞ:"20 SECONDS OF SLATE IS LOADED.":: 280.:**************************.:DRAW SLATE SCREEN.:**************************.(0). @96,"TITLE:"(128)NM$;/@135,"SHOW #";SN$;/+ @192,"PRODUCER:"(128)PD$;/J*@260,"DATE:"(128)DT$;/4@322,"LENGTH:"(128)LN$(128)"MINUTE(S)";/>@389,"CUE:"(128)CU$(128)"MINUTE(S)";/H@448,"FACILITY:"(128)FC$;/R0/\ 1200 860/f 17600p:**************************0:z:TEN SECOND COUNT-DOWN0[:**************************0p::@238,"wait"0N0$"C0D9R1C5R9C0U9L10D16R10U16"0N1$"C5R10L9D16U16L1D9R10L10D7R10C0U16"0N2$"C5D8R1U8L1C0R10D9L10D7R10U1C5U6R1D6"1N3$"C0R11D9L10R10D7L10U1C5U14L1C5D14"1EN4$"C5R10L10C0D9R10U9D16L1C5L9U6R1D6"1xN5$"C0R10D1C5D8R1U9C0L11D9R10D7L10U1C5U5R1D5"1N6$"C0R10D1C5D8R1U9C0L11D9R10D7L10U7"1N7$"C0R10D16L1C5L9U7R1D7L1U7R8L9U8"1N8$"C0R10D16L10U7R10L10U9"2N9$"C0R10D9U9L10D9R10D7L10U1C5U6R1D6"2WP1$"BM100,82":P2$"BM116,82":P3$"BM136,82":P4$"BM152,82"2p 3,1: 1,0:0: 0,02(130,90),50,52(130,90),3,52$(95,80)(167,80),2. (167,100),28 (95,100),2B (95,80),2L(96,81),5,43 V"BM170,60C5E5F3G5"3!`"BM93,60H5G3F5"37j"BM129,40U5R4D5"3Jt(131,27),15,53]~(131,27),12,53u P1$N0$: P3$N1$3 P2$N0$: P4$N0$3:@0,"10 SECONDS COUNTDOWN LOADED...":: 2803 1,03 P2$N0$3T$"10": 12704:**************************404*؅ 50 12404K:**************************4_쁦 1310: 14604w P3$NT$: P4$NO$4 17204 T$" 2"16104 12304:*************************4(: THE TENS PORTION42:*************************5 ";: K$: K$"" 1930:3 ("1234",K$)0 200,1: 1930:< K$:M K$"4" :i (K$) 170,390,910O COLORBARS"9~:9D " (2) REDO SLATE"9N9X " (3) REDO COUNTDOWN"9b9l " (4) DON'T REDO"9v9 " CHOICE =-->";: K$: `&$:COPYRIGHT 1990 FALSOFT, INC.&h 14000:MX0:S$(300):SF26:ST0:PT1:RO(359): 359,57: 0,1&:"tAPE dISK->";D$:D$"D"D1:D1&:"FILENAME";FL$:FL$""30&(D1"REWIND TAPE, PRESS play":PR$'2 359,RO: 0,0: 350: 359,57: 0,1'<:"CMD>";'+FMU$:MU$""70'PMU$"?":"p PAUSE":"n NEXT LINE":"s START AND STOP SCROLL":"b BACKUP TEXT A BIT":"a ADJUST SPEED":"q EXIT TO RAT-DOS":: "PRESS enter";PR$:60'ZMU$"S":140'dMU$"B"K$MU$:330(nMU$"A"K$MU$:320(*xMU$"Q" 359,RO:(360(> 480(N XST MX(aY1(S$(X))(u(S$(X),Y,1);(K$:K$""280(TD1SF:TD(ȋ Y(҇(܋ X( TD1 1000: TD( EF1 270) RF1 359,RO: 0,0: 380: 359,57: 0,1: 140)L RF2 359,RO: 0,0: 440: 359,57: 0,1: 140)X: 60)yK$"S"TD11000:TD: 60)"K$"P" 550: 190),K$"N" : 220)6K$"Q")@K$"A":"SF=";SF:"SPEED";SF:60*3JK$"B":"BACK HOW MANY?>";ST$:STX(ST$): ST0 ST0: 140::: 140*DT 480:190*^^:get first 175 lines*oh "I",#D,FL$*r PP0 174:#D,S$(PP): PP:MX174:RFRF1:*|:get 2nd 175 lines*MX0* (D) RFRF1:EFEF1:MXMX1:*#D,S$(MX)+$MXMX1: MX175 MXMX1:RFRF1:+/ 400+I:get lines until eof+RMX0+n̅ (D) :MXMX1:#D:+ֻ#D,S$(MX):MXMX1: 460+: five second countdown+0,0:TD1375:TD+0,1:TD1375:TD+0,0:TD1375:TD,0,1:TD1375:TD,0,0:TD1375:TD:,)0,1:,?&:pause scrolling,T0K$:K$""560,_: 480XMX1:#D:+ֻ#D,S$(MX):MXMX1: 460+: five second countdown+0,0:TD1375:TD+0,1:TD1375:TD+0,0:TD1375:TD,0,1:TD1*&$:COPYRIGHT 1990 FALSOFT, INC.&W:COCOTRIG' by Keiran Kenny, Sydney, 1988.&c 380&p65497,0&w&(4,8:2:&21,128:(0,0)(15,15),1&<(0,1),"ENTER (A) 5-85 degs:"&FP21:V$""&PK$:K$""80&ZK$(13)190'dK$(8)110:150',n(P88,0)(P8,15),1,'FxPP1:P21P21:80']V$(V$,(V$)1)'f80't(P,1),K$'V$V$K$'PP1'80'V(V$):V5V85370'AV57.29577951'H150:X160:Y182((X,Y)(XH(A),Y),:(XH(A),YH(A)),:(X,Y),()(19,22),"A"(K(((X8H(A))8),22),"B"(|(((XH(A))8),((Y6H(A))8)),"C"((((X(H(A)2))8),23),"c"((((X8H(A))8),((Y(H(A)2))8)),"a")(((X(H(A)2))8),((Y8(H(A)2))8)),"b")4"(0,5),"SIN(A) ="(((A)),6))Z,(0,7),"COS(A) ="(((A)),6))6(0,9),"TAN(A) ="(((A)),8))@(0,11),"a ="((H(A)),8))J(0,13),"b = 150")T(0,15),"c ="((H(A)),8))^(0,17),"Press any key."* h44539:K$*r8:60*)|65496,0::(A)),6))Z,(0,7),"COS(A) ="(((A)),6))6(0,9),"TAN(A) ="(((A)),8))@(0,11),"a ="((H(A)),8))J(0,13),"b = 150")T(0,15),"c ="((H(A)),8))^(0,17),"Press any key."*