&9:COPYRIGHT (C) 1983 CLOAD PUBLICATIONS INC.&C<5000&LFDN0&SP3&Z" THIS PROGRAM WILL SAVE A SPARE DIRECTORY IN GRANULE #68. THE SPARE DIRECTORY CAN BE PUT BACK IF THE MAIN DIRECTORY EVER CRASHES."&d@203,"MAIN MENU";'n@225,"1 SAVE SPARE DIRECTORY"'Ax@257,"2 GET SPARE DIRECTORY"'e}@289,"3 KILL SPARE DIRECTORY"'@321,"4 DESCRIPTION"'@353,"5 END THIS PROGRAM"'@393,"MAKE SELECTION";'Q$: Q$"" 150'Q(Q$)' Q1 Q5 150( Q 200,380,620,570,190((%Ȟ4(G҇" SAVE SPARE DIRECTORY"(f܇@96,;:"WHICH DRIVE #";DN(q恦 550( Q$"R" 200 : Q$"M" 80(@198,"NOW SAVING DIRECTORY";(:DIRECTORY SAVE TO GRANULE #68( N2 7) DN,17,N,A$(N),B$(N)) " N)#'E$(A$(2),68,1))( ((E$ (255)) (E$ (208))) ::"GRANULE 68 IS ALREADY IN USE... I WON'T SAVE ANYTHING THERE":550:Q$"R"200:70), N2 7)6 N2 (A$(N),68,1)(208): DN,17,N,A$(N),B$(N)* @ DN,34,N9,A$(N),B$(N)*J N*4T@325,"SPARE DIRECTORY SAVED";*O^128,3: N0 500: N*XhDN0*br 80*i|8*" GET SPARE DIRECTORY"*@96,;:"WHICH DRIVE #";DN* 550* Q$"R" 380 : Q$"M" 80*@198,"NOW GETTING DIRECTORY";++:DIRECTORY GET FROM SPARE IN GRANULE #68+? DN,17,2,C$,D$+z (C$,68,1)(208) 900:550: Q$"R" 380: 70+€ N2 7+ DN,34,N9,A$(N),B$(N)+֋ N+ N2 7+ DN,17,N,A$(N),B$(N)+ N,@325,"SPARE DIRECTORY RETRIEVED";,128,3: N0 500: N,'DN0,1 80,[&@482,"ONTINUE, EDO OR ENU";,0Q$: Q$"C" Q$"R" Q$"M" 560 : ,:1-D" WHEN A DISK CRASHES, THE MOSTCOMMON PROBLEM IS IN THE DIREC- TORY. THIS PROGRAM SAVES A SPARE DIRECTORY IN GRANULE #68 OF THE DISK. THE SPARE DIRECTORYWILL NOT SHOW UP IN A LISTING OF YOUR DIRECTORY. HOWEVER, IT IS THERE.".!N" THE SPARE IS PROTECTED SO YOUCAN'T ACCIDENTALLY WRITE OVER IT. ONE GRANULE WILL ALSO BE SUBTRACTED FROM THE FREE GRAN- ULES ON YOUR DISK.".,X 550.Fb Q$"R" 570 : 80.kl7:" KILL SPARE DIRECTORY".v@96,"THIS WILL destroy ANY SPARE DIRECTORY YOU HAVE SAVED, AND WILL RE-CLAIM THE EXTRA GRANULE.".@256,;:"WHICH DRIVE #";DN/550:Q$"R"620:Q$"M"70/- DN,17,2,C$,D$/f (C$,68,1)(208)900:550: Q$"R" 620:70/~(C$,68,1)(255)/DN,17,2,C$,D$/Ё70/::" THERE IS NO DIRECTORY SAVED ON THAT DISK !!":.@256,;:"WHICH DRIVE #";DN/5:CY140:C2:49:CX56:CY5:BL1:49:CX184:BL1:49:CX56:CY145:BL1:49:CX56:CY5:C(52)1:49:CX184:C(52)1:49:CX56:CY145:C42:49:M$">BY":CX170:CY140:60:M$"RUSSELL"9ACX152:59:M$"AND":CX176:59:M$"DELOUIS":CX152:59:M$"=:CLOAD":CX152:CY184:60:P2:70:M$"PRESS":CX100:CY80:60:M$";K;:FOR:KEYBOARD":CX30:CY85:59:M$";J;:FOR:JOYSTICKS":CX30:59:M$:LBM$:M$"K"M$"J"66:KM$"K":4,1:K B(P)" ":X(X)X((343)247)(X0)((344)247)(XOP):Y(Y)Y((342)247)(Y0)100((341)247)(Y99W(P)Y2E3)100:68:CB(P)((65280)2P)0:X(X)(0)0((3482P)64(OP1)):Y(Y)(0)0Y((349P2)58)(Y0)100((349P2)6)(Y99W(P)Y2E3)100;AD2E3 NC1:D(52):4:(0,60)(254,116),,BF:M$"1:2:3:OR:4:DECKS?":CX24:CY84:60;wEM$:NC(M$):NC1NC469:60:D(NC52):4;F"BM0,80KR6DGLGLGD2BD36BR28L6UEREREU2,BR2R3FDGFDGL3HUEHUBD41BR28BL2L3HUEHUER3FDGFD,BDDRFNR2BD3R3EU4HL2BD42BR26BUULHNL2BU3L3GD4FR2,D6BR6REU4HLGD4BD37BR24U6BL6LGD4FREU4,BR3RNR2D5GLHBD37BR28BL3LNL2U5ERF,BR2R3FD3GNFLNHGLHU4BD41BR28BL2L3HU3ENHRNFERFD4?LD2ND4R3EREBD6HLHBD38BR26U2NU4L3GLGBU6FRF,BFD4FR5EU4HL5,BR4NGD6NLR2,BFER5FDGL5G2DR8,BFER5FDGNL2FDGL5H,BF6U6GLGLGR7,NR8D3R7FDGL5H,BR6L4GD4FR5EUHL4,R8DGLGLGLG2,BFER5FDGNL4FDGL5HUEH,BFNDER5FD2NL6D2GL4,,BR5D2,BR5DNR3L3GFR5FGL3NDL3@YMC3BDD4RFRFR7EREU4HLHL7GBD2BR7HL3GD2FR3E,C4,RER5FDGLGDBD2D,,BD2ND4RERERFRFD2NL6D2,R2ND5R5FDGNL2FDGL6,BDD4RFR5EBU4HL4,R2ND5R5FD4GL6,NR8D3NR4D3R8,NR8D3NR4D3,BR2NR6GD4FR6U3L,D3NR6D3BR8U6,BR2R2ND5R2BD6L4,BR8D5GL5HUABN"D3ND3R2NM+7,-3M+7,3",D6R8,ND6RFRFRERED6,"ND6M+8,6U6",BFD4FR5EU4HL5,ND6R7FDGL4,BFD4FR3BU2FRFBU2U3HL4,ND6R7FDGL4FRFRF,BD5RFR5EUHL5HUER5F,R4NR4D6,D5RFR5EU5,D2RF3NDRE3U2,D6RERERFRFU6,DRFRFGLG2BR9H2BU2EU,DRFRFND3REREU,R8DGLGLGLGDR8D5R2BD6L4,BR8D5GL5HUABN"D3ND3R2NM+7,-3M+7,3",D6R8,ND6RFRFRERED6,"ND6M+8,6U6",BFD4FR5EU4HL5,ND6R7FDGL4,BFD4FR3BU2FRFBU2U3HL4,ND6R7FDGL4FRFRF,BD5RFR5EUHL5HUER5F,R4NR4D6,D5RFR5EU5,D2RF3NC&359,126&461::BY RUDE SYSTEMS, (C) CLOAD&,1:CLNC14CLNC52:CX72:CY70:M$"SHUFFLING":60:Y152:X0NC1:D(Y52X)Y:X,Y:"T100":73&M$:M$"L"B2:M$"R"B1:M$"B"B0:M$"S"CL0:4:B3'?P01:SP(P)0:H01:Q(P,H)0:A(P,H)0:SB(P,H)0::B(P)W(P)B(P)100(W(P)100)'(P128,53)(P128126,124),,BF:CY43:M$PN$(P):58:W(P)100M$"LEAVES":58:M$"WITH":57:W(P)999999M$"BROKE:THE":58:"BANK:WITH":57'P1B PN$(P)O$17:13(X BP1B:PN$(P)R$PN$(P)O$13:M$"WHO;S:BET?":58:PN$(P)"":N0:M$:CXP1282:CYCY10(~ 3:(CX2,CY1)(CX10,CY7),,BF( M$:M$""11:C(M$):C8N NN1:(CX,CY1)(CX10,CY7),,BF:CXCX12:PN$(P)(PN$(P),(PN$(P))1):10)f C13W(P)5E3:B(P)500:N 7:PN$(P)O$:7:N7M$"A"M$"Z"11:PN$(P)PN$(P)M$:60:NN1:N711:10) M$";S":60:M$"TOTAL:IS":58:M$(W(P)):(M$,1,1)"<":58:M$"WITH:A:BET":58:M$"OF:<":58:PN$(P)R$M$((B(P)),2):60:17*SCXP12848:(CX,CY)(CX48,CY7),,BF:B(P)Y(B(P)):B(P)0M$"QUIT":M$((B(P)),2)*z60:B(P)15:B(P)0PN$(P)O$*W(P)W(P)B(P):P:PN$(0)O$PN$(1)O$P01:PN$(P)R$:B(P)500::5*Q(2,0)0:A(2,0)0:1:H0:R0:P01:PN$(P)O$44+4:44:UCQ(2,0):R1:P01:BL1:PN$(P)O$44+:BL1:44:P01:PN$(P)O$31::SP0:H0:R1:CC(P,H):48:Q(2,0)2131:Q(P,0)21"T6":"BM"(P10440)",60":71:W(P)W(P)2.5B(P):Q(P,0)0:31:R2,+QQ(P,H):R2W(P)B(P)SP0OP1:W(P)B(P)SP OP2:Q2131:OP3SP(P),XIP(224OP36):CXXI4:CY183:M$("HT:ST:DB:SR:SP",OP32):OP1W(P)B(P)(M$,OP31,2)"SR,60:OP4X4:X1:Q17UC1UC7Q10X0:Q12W(P)B(P)X2-BX36XI:3:(B,181)(B28,191),,B:4,1:PN$(P)R$27-wXX(X):CXX36XI2:(CX,182)(CX24,190),,B:Y01::(CX,182)(CX24,190),,B:B(P)26-(0,181)(255,191),,BF:X 29,43,54,33-NF(P)0:44:Q(P,H)22RR1:21.V,1:CX38P104(H0)40:CY5:(CX,CY)(CX64(H0),CY42),,BF:(CX38,CY42R10),,BF:CC(P,H):R0:48:Q(P,H)21BL1:49:42.gH 32:SP0.sP:35. H0:R1:SP1129:CC(P,H):48:RR1:21/<!W(P)W(P)B(P):CC(P,0):C(P,1)C:CQ(P,0)2(C5)5:Q(P,0)C:Q(P,1)C:SPC:R1:BL(C11):44:H1:R0:CC(P,H):48:R1:SP(P)0:C(P,H)444:29/E"28/#R1:CC(2,0):48:Q(2,0)21P01:W(P)W(P)B(P)(Q(P,0)21)::70:4/$Q(2,0)17RR1:44:36/%QDQ(2,0)(Q(2,0)22):P2:H0:42:R9:P01:H101:QQ(P,H)0&Q QQD Q21B(P)B(P)100(Q(P,1)0PN$(P)R$B(P)100):W(P)W(P)B(P)SB(P,H):QQD W(P)W(P)B(P)SB(P,H):B(P)B(P)100(Q(P,1)0PN$(P)R$B(P)2E3)0(H,P:40)CX42P104H38:CY14H8:P$:(CX4,CY2)(CX54,CY8),,BF:60:1\*4(Q(P,H)22):55:(CX,CY18)(CX36,CY29),,BF:M$(Q(P,H)):(M$,1,1)":":CXCX4:CYCY20:60:1+B(P)W(P)54:W(P)W(P)B(P):SB(P,H)B(P):44:291,X(NC52):D(X)044:CD(X)1:D(X)0:CLCL1:N(C4)1:P2 R1N(C(P,0)41)SP(P)12:-C(P,H)C:QQ(P,H):N10N10:N1Q11A(P,H)A(P,H)1:N112h.QQN:Q21A(P,H)QQ10:A(P,H)A(P,H)12u/Q(P,H)Q2~055212BL:(CX,CY)(CX34,CY45),,BF:"V25L255O4CV1532BL D$"BM"(CX)","(CY)"C2R36D46L36U46BF2BR2ND16R7FRFD12GLGL3NL2D9BD6BR2D3GNLFND3RENRHBU18BL2U8R6FRFD4GLGNL4FRFD6RFRFNR4GLGD4FRFR6U8U9BU6BL2U3HNLENU3RFNRGLBD18BR2NR2L2GLGD12FRFR7U16":D$:BL0:33N(CO4):S((CO4N)O4)(N0):C(S2):SECX8CY32353(N0N9)327688192S:SS0(SE)4O44C:D$"BM"(CX)","(CY)"R36D46L36U46BR4BD2XN$(N);":D$:N9(CX4,CY11)(CX32,CY35),,B4U54x6W(P)W(P)B(P)2:Q(P,H)0:2947P2CX88R16:CY130R2:H1CXP104:CYR10:CX40R16P10456((R3)(R7)(R11)):CYR5485-958:PN$(P)O$:M$(W(P)):W(P)5000:B(P)0:(M$,1,1)"<":58:75::CXP1285G;CYCY105ML$"_W_WUUUUuUUuUUUUUWUWU_WUWUUUUUUuUUeUUUVUZjjfUeUUUUeUUUVUUUYejfjfYeUeUUU464_II$BI$!0b:O_5M4*1p1pӺ1 1J&5*51@1C 1#J&5M"7?O(ML$)2:ML(O)256(O1)132:0ML:PT$"O3L4CDFAEL8GGL4FEFDEL2CP1T3":P01:PN$(P)O$:W(P)5E3::CL0:O44:T616:O11:DS52:P012:N$(P)::P042:L$(P)::CX40:CY0:C(52)1:498@CX168:C(52)1:49:CX40:A$(32)30108 Ǐ:258=:++++++INSTRUCTIONS+++++++8:"In this game two players (or oneagainst the computer) take turnschoosing numbers from the board."9F"After you choose a number, its value is added to your score. Your opponent then has a chance to claim any numbers that are factors of your number."9:"These numbers are added to his score. After all the numbers have been chosen, the highest score wins."9@480,"Press any key to play the game";:5000:A$:A$""4025: :!ML(FC256NL)::ko CALL TO GET CHARS FROM KEYBOARD. THEY ARE RETURNED IN TT$.:pNU$"":TT$"":TT0:zNU$: NU$""6010: (SR$,NU$) 6030: NU$" " NU$"z" 6010 : TT$TT$NU$:TTTT1:NU$;:ML(16):6010; NU$(13) ;J TT TT$(TT$,(TT$)1):TTTT1: NU$;:5000;V 60104wܷ- 2]'M&C O"1#&# &# =߆ == =ܷ'\0 = 4DDDD 5!!1 Z&⮍md1"j]&1`- > JF == 7 1 Z&$1!j&1`-5 03BB<@@@|BBBB|BBBB>B<@@@|BBBBB0|B<@@DHpHDBB0wIIAAA\bBBBBLR`@@@>@<|> BBBBF:BBBB$AAAIIwB$$BBBBBB>B<~ ~000IUUUUUU>>>>>IA""**II<``<<Ã<0@@@@   @@  $BB$<<<"A"A@@NQQI>"AAAAA~!!!>!!!~>A@@@@@A>~!!!!!!!~@@@~@@@@@@~@@@@>A@@@GAA>AAAAAAAA>>D8ABDHpHDBA@@@@@@@@AcUIAAAAAAAaQIECAA>AAAAAAA>~AAA~@@@@>AAAAIEB=~AAA~HDBA>A@@>A>AAAAAAAA>AAAAAA"AAAAAIUcAAA""AAAAA" @< <@@ <<*I  $$$$$$$>I( I>pQr'E  %BF9A""A @@>ACEIQaA>>>A >AA> "@@@~A>>A@@~AAA> >AAA>AAA>>AAA?A>   >A @@>ACEIQaA>>>A&4:COPYRIGHT(C) 1983 CLOAD PUBLICATIONS&Q: DANIEL N. HAMILTON&l: 9717 S. 52ND AVE&: OAK LAWN, IL 60453&4::(27)256(28)1874:359,57:NL16:FC0:1,1: SET UP GRAFTEXT&:++++++INITIALIZE++++++++++++'. N$(2),L(37),A(37),T(2),TL(2):SR$(13)(8)'X:"Do you need instructions? (Y/N)";'d 5000'A$:A$"Y"4005:A$"N"20'N$(2)"Computer":TL(1)453:TL(2)470:C0:CT0:T(1)0:T(2)0:FL0'I237:A(I)0:I(d:+++++++++SET UP++++++++++++(Gi:@128,;:"What is your name? ";:5000:6000:N$(1)TT$:(jn(N$(1))8N$(1)(N$(1),8)(~s@129,"Press:";(x@198,"1 - If you want to play against the computer."(}@326,"2 - If you have a friend with you.")/5000:A$:A$"1"C1:145:A$"2"130):@128,;:"What is your friend's name? ";:5000:6000:N$(2)TT$) (N$(2))8N$(2)(N$(2),8)):@0,(10,(185));"FACTORS GAME";(10,(185));*I3222432:@I,(185);:@I31,(185);:I*6I237: L(I):@L(I),I;:I*P@256,(32,(185));*j@352,(32,(185));*I39949532:@I,(185);(185);:I*@(391(((N$(1)))2)),N$(1);*@(408(((N$(2)))2)),N$(2);* 5000+v 35,38,41,44,47,50,53,56,58,98,101,104,107,110,113,116,119,122,162,165,168,171,174,177,180,183,186,226,229,232,235,238,241,244,247,250+P1:305+:++++++CLAIM FACTORS+++++++, ͇@288,N$(P);"'s turn: ";:@305,"Do you wish to":"claim any factors of";N;"? (Y/N)":5000,6A$:A$"Y"200,1:405:A$"N"210,נ150,1:150,1:@305,"No?":@320,"":5000:I1800:I:200,1:@310,"Ok. Then,":5000:I1800:I,,:++++++PICK A NUMBER+++++++-#11,1:@288,N$(P);"'s turn: ":@320,"":@305,;:"What number? ";:5000:6000:NB$TT$:200,1-16N(NB$)-;N2N37I13:1,3:I:@320,"That number is not on the board";:5000:I11000:I:305-@(N)N 305.EA(N)1I13:1,3:I:@320,"That number is not on the board";:5000:I11000:I:305. J505.OC11005.,TP1P2:P1.6Y205.W:+++++FACTOR ROUTINE+++++++.150,1:@305,"Yes?":@320,"":5000:I1500:I:150,1:@310,"Ok. Then,":5000:I1800:I. 1,1:@305,"Enter X if done";:5000/@320,"Enter a factor of";N;:5000:6000:F$TT$/$F(F$)/`F$"X"@345,"Ok.";:5000:1,1:1,3:I1500:I:305/F2F371,1:1,1:@320,"That number is not on the board";:5000:I11000:I:@320,"":5000:41004A(F)11,1:1,1:@320,"That number is not on the board";:5000:I11000:I:@320,"":5000:4100(NF)(NF)100,1:50,5:@288,"":@288,F;"Is not a factor of";N;:@320,"You may not claim more factors";:5000:I11000:I:3050200,1:@L(F)," ";050000T(P)T(P)F1LJ@TL(P),T(P);1ȁ500010A(F)1:CTCT1:CT3620051Jч@320,"":5000:4101:++++++UPDATE TOTAL++++++++ +++++++AND SCREEN++++++++1T(P)T(P)N1@L(N)," ";1@TL(P),T(P);1 50001A(N)1:CTCT1:CT3620051 2:++++COMPUTER'S TURN++++++25P2:@288,N$(P);"'s turn:":50002J1,3:I1500:I2[I2(N2)2r A(I)1I :10302FL11090:10702 (NI)NI I :10402 FL11090:10702@305,"Computer picks":@320,I;"as a factor of";N:50003T(P)T(P)I3@TL(P),T(P);3,@ L(I)," ";38 50003\$FL1:A(I)1:CTCT1:CT3620053|)200,3:J1500:J,I:10903.200,3:200,333@305,"Computer does not claim any factors of";N;:500038I11000:I3=11053B200,3:200,248G@305,"Computer does not claim any more factors.":50004ILI11000:I4Q1,1:@305," [Thinking]":@320,"":5000:T20:N37214VA(N)1N :11204[11704`T10:I2(N2)4e A(I)1I :11404j(NT1)T2 T2(NT1):MN5oN:11705t (NI)NI I :11555>y(NT1)T2 T2(NT1):MN5L~N:11705[T1T1I:I5z(NT1)T2 T2(NT1):MN5N5@288,"":@288,"Computer's turn:";:@320,"Computer chooses the number";M;:50005100,1:200,1:100,15T(P)T(P)M6@TL(P),T(P);6+@ L(M)," ";:50006<I11000:I6[A(M)1:CTCT1:CT3620056rFL0:NM:P1:2056:+++++++END OF GAME+++++++6ՀI110:0,1:220,1:0,0:220,1:I6ֿ1,16ڇ@288,"":@320,"":50007(߅T(1)T(2) @290,N$(1);" Wins by";T(1)T(2);" Points":5000:30057qT(2)T(1) @290,N$(2);" Wins by";T(2)T(1);" Points":5000:30057@293,"Good game. It's a tie.":5000:30057 :+++++REPLAY ROUTINE++++++7 @320,"Press the spacebar to play again";:50008 A$c&]: JAMES VENTLING 2400 CORNWALL DR. XENIA, OHIO 45385&: ALL COVERS MUST HAVE THE LOGO AT THE TOP OF THE SCREEN DURING GRAPHICS DISPLAY.':DECLARE ALL VARS USED BEFORE USING VARPTR ON A STRING OR THE STRING ADDRESS MOVES.'|:LINES 50-95 PUT THE LOGO ON SCREEN. THEN LOGO'S LEFT ALONE. DON'T EDIT LINES 50-65. IT WON'T WORK.':DISCLAIMER (LINES 1000-1160) MUST ALWAYS BE INCLUDED IN ANY COVER PROGRAM.' :4::4,1( LO$(7),N1(75),N2(75),N3(75),N4(75)(Q0()(:4,1:1,1:X()(2LO$(0)"jZUVeUV")4LO$(1)"VfZfjfj"*6LO$(2)"UUUUVUUUVUUUZUUUV"+a8LO$(3)"ZZZZZZZZZZZjVUiZeiZVZZZjVUeVeYZUZZVZV",/:LO$(4)"jUUeVUUVUYZUUUiUjVUUViYVUUUiUjVVZVYVeeUUeejjZZVjZYVijZjjZZZVeiZViUijZjjZYZZejZVeeijZj",LO$(6)"UjYijjZVjUUUjYiZjjUUUjUjUUUUUUUUUUYUeUjUUjUjUUVUUUUVUUYUiUjUUjjUZUYUjUUYUjUj".ALO$(7)" 44 44Z&5J&55 5J&9".;FVP0:AD0:VP(LO$(0)).XKAD(VP2)256(VP3).jPVP(LO$(7)).UQ(VP2)256(VP3):Q.XQ7,(25)25.Z"S4A0C3BM0,191R255U149L255D148R255BM0,0"._Q(AD).d1000/n OUR DISCLAIMER - HAS TO BE IN ALL COVERS./x/;@38,"CHROMASETTE MAGAZINE"/c" ISSUE #27 SEPTEMBER 1983";/i/:" ALL PROGRAMS CONTAINED HEREIN"/" COPYRIGHT (C) CLOAD"/" PUBLICATIONS P.O. BOX 1448"/" SANTA BARBARA, CA 93102."0ȇ" REPRODUCTION BY ANY MEANS"0F҇" PROHIBITED. CLOAD PUBLICATIONS"0l܇" ASSUMES NO RESPONSIBILITY FOR"0" ERRORS, OMISSIONS OR DAMAGES"0" CAUSED BY THE USE OF THESE"011)"PROGRAMS."0I12000:I01N4,1:1,1:3,1:"O1L40T2":XL64:YL120:C1:R():R0:P9:T8: X1(9),Y1(9),X2(9),Y2(9),TX(9),TY(9)1mQ0P:X1(Q)XL:Y1(Q)YL:1xQ121200013000140001$Q1.Q0P:X2(Q)XL:Y2(Q)YL:183000:4000:1,4:1102s`X2(0)16:X2(3)16:X2(9)16:Y2(0)88:Y2(3)88:Y2(9)88:X2(2)64:X2(6)64:Y2(2)64:Y2(6)64:X2(1)112:X2(5)112:X2(8)112:Y2(1)88:Y2(5)88:Y2(8)882eX2(4)64:X2(7)64:Y2(4)176:Y2(7)176:SH3:3jX2(0)8:X2(9)8:X2(1)120:X2(2)80:X2(3)104:X2(4)72:X2(5)64:X2(6)56:X2(7)24:X2(8)483noY2(0)152:Y2(9)152:Y2(1)152:Y2(2)136:Y2(3)96:Y2(4)120:Y2(5)80:Y2(6)120:Y2(7)96:Y2(8)136:SH4:3tX2(0)16:X2(9)16:X2(1)64:X2(2)112:X2(3)80:X2(4)64:X2(5)48:X2(6)80:X2(7)64:X2(8)484:yY2(0)120:Y2(9)120:Y2(1)64:Y2(2)120:Y2(3)120:Y2(4)96:Y2(5)120:Y2(6)120:Y2(7)176:Y2(8)120:SH5:4~X2(0)8:X2(9)8:X2(1)80:X2(2)48:X2(3)120:X2(4)96:X2(5)72:X2(6)64:X2(7)56:X2(8)324Y2(0)64:Y2(9)64:Y2(1)184:Y2(2)184:Y2(3)64:Y2(4)72:Y2(5)96:Y2(6)72:Y2(7)96:Y2(8)725 3000:40005hX2(0)120:X2(9)120:X2(1)80:X2(2)64:X2(3)48:X2(4)8:X2(5)48:X2(6)56:X2(7)72:X2(8)805Y2(0)64:Y2(9)64:Y2(1)96:Y2(2)72:Y2(3)96:Y2(4)64:Y2(5)184:Y2(6)136:Y2(7)136:Y2(8)184:SH1:60X2(0)64:X2(9)64:X2(1)80:X2(2)104:X2(3)128:X2(4)80:X2(5)48:X2(6)0:X2(7)24:X2(8)486Y2(0)64:Y2(9)64:Y2(1)176:Y2(2)128:Y2(3)176:Y2(4)176:Y2(5)176:Y2(6)176:Y2(7)128:Y2(8)176:3000:40007X2(0)64:X2(9)64:X2(1)92:X2(2)120:X2(3)64:X2(4)92:X2(5)36:X2(6)64:X2(7)8:X2(8)367oY2(0)64:Y2(9)64:Y2(1)120:Y2(2)176:Y2(3)176:Y2(4)120:Y2(5)120:Y2(6)176:Y2(7)176:Y2(8)120:SH2:89X2(0)0:X2(9)0:X2(1)32:X2(2)128:X2(3)0:X2(4)96:X2(5)128:X2(6)112:X2(7)64:X2(8)16:Y2(0)96:Y2(9)96:Y2(1)64:Y2(2)160:Y2(3)160:Y2!"$%'()+,XFORMCOVBAS fTRAILS BAS#FACTORS BASBLAKINS BAS&lBLAKJAK BASFKEEPBUDGBAS*DIRSAVE BASANALYZE BIN-(4)64:Y2(5)96:Y2(6)112:Y2(7)64:Y2(8)112:3000:40008X2(0)16:X2(9)16:X2(1)32:X2(2)88:X2(3)40:X2(4)96:X2(5)112:X2(6)88:X2(7)64:X2(8)40:Y2(0)80:Y2(9)80:Y2(1)64:Y2(2)176:Y2(3)176:Y2(4)64:Y2(5)80:Y2(6)128:Y2(7)104:Y2(8)128:SH6:9X2(0)8:X2(9)8:X2(1)8:X2(1)8:X2(2)64:X2(3)120:X2(4)120:X2(5)72:X2(6)120:X2(7)8:X2(8)56:Y2(0)168:Y2(9)168:Y2(1)152:Y2(2)64:Y2(3)152:Y2(4)168:Y2(5)96:Y2(6)176:Y2(7)176:Y2(8)96:3000:4000:X2(0)0:X2(9)0:X2(1)48:X2(2)64:X2(3)80:X2(4)128:X2(5)72:X2(6)96:X2(7)32:X2(8)56:Y2(0)64:Y2(9)64:Y2(1)64:Y2(2)112:Y2(3)64:Y2(4)64:Y2(5)128:Y2(6)176:Y2(7)176:Y2(8)128:SH7:;bX2(0)8:X2(9)8:X2(1)64:X2(2)120:X2(3)120:X2(4)80:X2(5)80:X2(6)48:X2(7)48:X2(8)8:Y2(0)120:Y2(9)120:Y2(1)176:Y2(2)120:Y2(3)112:Y2(4)112:Y2(5)64:Y2(6)64:Y2(7)112:Y2(8)112:3000:4000<)X2(0)8:X2(9)8:X2(1)64:X2(2)120:X2(3)120:X2(4)80:X2(5)80:X2(6)48:X2(7)48:X2(8)8:Y2(0)120:Y2(9)120:Y2(1)64:Y2(2)120:Y2(3)128:Y2(4)128:Y2(5)176:Y2(6)176:Y2(7)128:Y2(8)128:SH8:<X2(0)8:X2(9)8:X2(1)72:X2(2)56:X2(3)120:X2(4)120:X2(5)56:X2(6)72:X2(7)8:X2(8)8:Y2(0)112:Y2(9)112:Y2(1)176:Y2(2)176:Y2(3)112:Y2(4)128:Y2(5)64:Y2(6)64:Y2(7)128:Y2(8)112:3000:4000=X2(0)8:X2(9)8:X2(1)112:X2(2)16:X2(3)120:X2(4)120:X2(5)16:X2(6)112:X2(7)8:X2(8)8:Y2(0)72:Y2(9)72:Y2(1)176:Y2(2)176:Y2(3)72:Y2(4)168:Y2(5)64:Y2(6)64:Y2(7)168:Y2(8)72:3000:4000>X2(0)48:X2(9)48:X2(1)120:X2(2)8:X2(3)80:X2(4)80:X2(5)8:X2(6)120:X2(7)48:X2(8)48:Y2(0)64:Y2(9)64:Y2(1)136:Y2(2)136:Y2(3)64:Y2(4)176:Y2(5)104:Y2(6)104:Y2(7)176:Y2(8)64:SH9:>R(9):RSH 2000>ڈR 1150,1160,1120,1130,1140,1170,1180,1190,1200>? I0P:DX2(I)X1(I):TX(I)DT:DY2(I)Y1(I):TY(I)DT:I:?2I1T:CC1:C4C2?;C,1?cX1(0)X1(0)TX(0):Y1(0)Y1(0)TY(0)?II1 P:X1(II)X1(II)TX(II):Y1(II)Y1(II)TY(II)?Ȼ(X1(II1),Y1(II1))(X1(II),Y1(II)),?ҋII,I?1,2::0,4::3,1:C,1?II1P@Q(X1(II1),Y1(II1))(X1(II),Y1(II)),:(256X1(II1),Y1(II1))(256X1(II),Y1(II)),@bII:"DBG":II1 P:X1(II)X1(II)TX(II):Y1(II)Y1(II)TY(II)?Ȼ(X1(II1),Y1(II1))(X1(II),Y1(II)),?ҋII,I?1,2::0,4::3,1:C,1?II1P@Q(X&9:COPYRIGHT(C) 1983 CLOAD PUBLICATIONS INC.&V: DANIEL N. HAMILTON&r: 9717 S. 52ND AVE.&: OAK LAWN IL. 60453&:&0(27)256(28)1004&300&:********TITLE PAGE**********&:@266,"LIGHT TRAILS"'n J13:"V28L255O4":"BV-AV-GV-FV-EV-DV-CV-BV-AV-GV-FV-EV-DV-CV-BV-AV-GV-FV-EV-DV-CV-BV-AV-GV-FV-EV-DV-C":J' :@259,"DO YOU NEED INSTRUCTIONS?"' Z$:Z$"" 11' Z$"N" 201'd:******INSTRUCTIONS**********(e:"IN THIS GAME YOU MUST STEER YOURLIGHT CYCLE ON THE PLAYING FIELDWITHOUT CRASHING INTO ANY WALLS,OBSTACLES, OR TRAILS LEFT BY YOU OR YOUR OPPONENT'S CYCLE.")f:"YOU WILL BE ALLOWED 3 CRASHES BEFORE YOU LOSE THE CONTEST."::"USE THE JOYSTICKS TO CONTROL YOUR DIRECTION.)#g@480,"ANY KEY TO CONTINUE";)9hZ$:Z$"" 104)i:"YOU WILL BE GIVEN A THREE SECONDCOUNTDOWN AT THE BEGINNING OF A HEAT. AFTER THAT YOU WILL NOT BE ALLOWED TO STOP.":*yj"TRY TO CUT OFF YOUR OPPONENT OR BOX HIM IN."::"ON THE FIRST AND THIRD HEAT THERE WILL BE ESCAPE TUNNELS ON THE LEFT AND RIGHT WALLS."::"REMEMBER, ONLY THREE CRASHES ANDYOU LOSE!"*k@480,"ANY KEY TO CONTINUE";*lZ$:Z$""108+m:" THE DIFFICULTY LEVELS REPRESENTDIFFERENT PLAYING SPEEDS FROM SLOW TO FAST."::" LEVEL 4 BEGINS WITH A SPEED SLIGHTLY SLOWER THAT LEVEL 2 ANDINCREASES SPEED WITH EACH HEAT TO A FINAL SPEED SLIGHTLY FASTERTHAN LEVEL 3.+n@480,"ANY KEY TO BEGIN";+oZ$:Z$""111+:****NAMES AND STRINGS******,*ɞ:"ENTER THE NAME OF THE RIGHT JOYSTICK PLAYER";NR$,eʉ"ENTER THE NAME OF THE LEFT JOYSTICK PLAYER";NL$,˅ NR$"" NR$"RIGHT",̅ NL$"" NL$"LEFT",̀I1 (NR$):R$R$(((NR$,I,1))32):I,΀I1 (NL$):L$L$(((NL$,I,1))32):I-υ (R$)8 R$(R$,8)-5Ѕ (L$)8 L$(L$,8)-BL$(128):B3$(128)(128)(128):I116:OG$OG$(255):I:RC$R$BL$"crashed":LC$L$BL$"crashed":I120:CR$CR$((5))";":I-,:*****SELECT SPEED**********.-:" ENTER THE LEVEL OF DIFFICULTY":::" 1) EASY 2) CHALLENGING 3) HARD 4) VARIABLE SPEED":.."ENTER THE NUMBER OF YOUR CHOICE YOUR CHOICE";CH// CH1CH2CH3CH4301/00 CH 305,306,307,308/@1SP80:309/P2SP40:309/`3SP15:309/u4SP60:L41:309/5(27)256(28)12,SP/:******DRAW SCREEN**********/ L41 SPSP10:(27)256(28)12,SP000:I063:(I,0,8):(I,31,8):(I,30,8):I:I031:(0,I,8):(63,I,8):I0]K0 K2 I811:(0,I):(63,I2):I0gKK10 K 411,406,408,409,4101WI510:(20,I,2):(10,I,2):(40,I,3):(50,I,3):(20,I15,6):(10,I15,6):(40,I15,7):(50,I15,7):I:I1020:(I,5,2):(I,10,2):(I,20,6):(I,25,6):(I30,5,3):(I30,10,3):(I30,20,7):(I30,25,7):I1a4111I1842:(I,8,2):(I,22,3):I:I822:(18,I,6):(42,I,7):I:I1416:(18,I):(42,I):(I15,8):(I15,22):I:4112I1548:(I,6,2):(63I,12,3):(I,18,6):(63I,24,7):I:4112UI135:X(510):X228X251I :@X,(255);:I2lA55:B15:C8:D152(A,B,5):(C,D,4)2I311:@238,I;"";:220,1:J1400:J:I:@238,B3$;2:*******MAIN GAME LOOP******2X(0)2 X 700,6013 X:****CRASH ROUTINES*********3dY"V31L255O1":I16:@488,RC$;:"V-V-V-V-V-":CR$:@488,OG$;:I3ZRCRC1: RC3 :@10,"END OF MATCH":@70,NR$;" CRASHED 3 TIMES.":@134,NL$;" WINS!!":LTLT1:8013[4014"V31L255O1":I16:@488,LC$;:"V-V-V-V-V-":CR$:@488,OG$;:I4LCLC1: LC3 :@10,"END OF MATCH":@70,NL$;" CRASHED 3 TIMES.":@134,NR$;" WINS!!":RTRT1:80144014 :*******SCOREBOARD*********5)!@224,"***********SCOREBOARD***********":@292,"TOTAL WINS TOTAL WINS":@326,NL$;:@340,NR$;:@391,LT;:@405,RT;5J:*****REPLAY ROUTINE*******5w@480,"PRESS FIRE BUTTON TO PLAY AGAIN";5(65280)255(65280)127903:9026:@129,"TYPE [C] TO CHANGE SKILL LEVEL":@239,"OR":@320,"PRESS FIRE BUTTON TO PLAY AGAIN AT THE SAME LEVEL";6-I1500:I6fZ$:(65280)255(65280)127907:Z$""9056Z$"C" K0:RC0:LC0:L40:301:9056 L41 SP606K0:RC0:LC0:401罩޶]\.k?\]-Cͦǁ&t&b&쌘 팒H쌂 {wu/?\],laZ&N GCA&0 )%#݁&Ȯ&্&̓§z&eK&voki#&XVT&C<86)'%߶[Z.x?Z[-Oϧ &&্&΃ §y _?Z[,lϧ& ytq+&b [VS &DA>30-ϧ%&ȁ&&ާЃħ |ϧ& U& A&xqli $_\Y T'~~=9'঄/,&'0&-ȁ&&ާЃi& 359,126&/: SOFTWARE BY RUDE SYSTEMS&J: COPYRIGHT (C) CLOAD''380:S$"O4;L8DL16D;DL8;O3BO4;DEDO3;L4BP64L8BL4AP32L8BL4AO4;L8DL16D;DL8;O3BO4DED;O3;L4BP64L8AL16A;;AL8BA;L4GP16L8GL16G;;GL8BO4DL4GL8P8EL16E;EL8;O4GEL4DP8L8DL16D;DL8;O3BO4;DEDO3;L4BP64L8AL16A;;AL8BA;L2GP4;P4;P4;":61'OI$:I$"*FLAG*"P(P1)(P2):4'\PDD 4'I$"*PROMPT*"20:I$"*END*"40:I$"":" <>";:I$:(32(I$))2)I$:4("":4:(S$,V1,3):V(V3)(V192):17(UI$:I$"J"I$"K":DD(I$)73:4:(S$,V1,3):V(V3)(V192):20(]4(g(I$()I$:I$"R"3,1:1:::P0500::P055:I$::P0:DD1:4:I$"L"V192(S$,V1,3):VV3:41:41)*(0,110)(255,120),,BF:M$"LOADING":CX84:CY110)<+:"NOW, CLOAD AND RUN 'BLAKJAK'.":::)r12BL:(CX,CY)(CX34,CY45),,BF:"V25L255O4CV15*@2BL D$"BM"(CX)","(CY)"C2R36D46L36U46BF2BR2ND16R7FRFD12GLGL3NL2D9BD6BR2D3GNLFND3RENRHBU18BL2U8R6FRFD4GLGNL4FRFD6RFRFNR4GLGD4FRFR6U8U9BU6BL2U3HNLENU3RFNRGLBD18BR2NR2L2GLGD12FRFR7U16":D$:BL0:*3N(CO4):S((CO4N)O4)(N0):C(S2):SECX8CY32353(N0N9)327688192S:SS0(SE)+ 44C:D$"BM"(CX)","(CY)"R36D46L36U46BR4BD2XN$(N);":D$:N9(CX4,CY11)(CX32,CY35),,B+5+ ;CYCY10+{ML$"_W_WUUUUuUUuUUUUUWUWU_WUWUUUUUUuUUeUUUVUZjjfUeUUUUeUUUVUUUYejfjfYeUeUUU464_II$BI$!0b:O_5M4*1p1pӺ1 1J&5*51@1C 1#J&5M"-M?O(ML$)2:ML(O)256(O1)132:0ML:PT$"V15O3L4CDFAEL8GGL4FEFDEL2CP1V1":O44:T616:O11:DS52:P012:N$(P)::P042:L$(P)::CX40:CY0:C(52)1:49.@CX168:C(52)1:49:CX40:CY140:C2:49:CX56:CY5:BL1:49:CX184:BL1:49:CX56:CY145:BL1:49:CX56:CY5:C(52)1:49:CX184:C(52)1:49:CX56:CY145:C42:49:M$">BY":CX170.ACY140:60:M$"RUSSELL":CX152:59:M$"AND":CX176:59:M$"DELOUIS":CX152:59:M$"=:CLOAD":CX152:CY184:60/\GD$"BR5RNR8U25NLR4NR4D25R2U24F16NL14F8NL2R2BR5RU25NLR4NR4D25NLR3NRU7NU18E6F17R5E2GL5H17NLUE10L4":"BM0,65C3R4D32NL4R4U32NLR2D32R2U32R7FRF3D5G4LNL4FR3FRF3D9G3LGL3GL4BR18RU25NLR4NR4D25NLR3NU25R13NU2XD$;BR21/H"BD8BR6C4R2NRD4FDRFRFR9EREU30NLR4D27NGE2U25R2BD32XD$;/IP0:DD1:CC3:CX54:CY110:M$"INSTRUCTIONS":60:PT$:40JBDD3ND2R6ND2U3HL3GBD41BR28BUU3NU2L6NU2D3FR3E,BFER3FDGL3GD2R5BD36BR23BHGL3HUER3EU2L5,BFER3FDGFDGL3HBD37BR28BHGL3HUEHUER3F,BR4ND6GLGDR5BD39BR23BL4NU6EREUL5,NR7D3R5FDGL3HBD37BR28NL7U3L5HUER3F,BR2NR2GD4FR3EUHL2BD39BR26BL2NL2EU4HL3GDFR21KR6DGLGLGD2BD36BR28L6UEREREU2,BR2R3FDGFDGL3HUEHUBD41BR28BL2L3HUEHUER3FDGFD,BDDRFNR2BD3R3EU4HL2BD42BR26BUULHNL2BU3L3GD4FR2,D6BR6REU4HLGD4BD37BR24U6BL6LGD4FREU4,BR3RNR2D5GLHBD37BR28BL3LNL2U5ERF,BR2R3FD3GNFLNHGLHU4BD41BR28BL2L3HU3ENHRNFERFD42LD2ND4R3EREBD6HLHBD38BR26U2NU4L3GLGBU6FRF,BFD4FR5EU4HL5,BR4NGD6NLR2,BFER5FDGL5G2DR8,BFER5FDGNL2FDGL5H,BF6U6GLGLGR7,NR8D3R7FDGL5H,BR6L4GD4FR5EUHL4,R8DGLGLGLG2,BFER5FDGNL4FDGL5HUEH,BFNDER5FD2NL6D2GL4,,BR5D2,BR5DNR3L3GFR5FGL3NDL33tMC3BDD4RFRFR7EREU4HLHL7GBD2BR7HL3GD2FR3E,C4,RER5FDGLGDBD2D,,BD2ND4RERERFRFD2NL6D2,R2ND5R5FDGNL2FDGL6,BDD4RFR5EBU4HL4,R2ND5R5FD4GL6,NR8D3NR4D3R8,NR8D3NR4D3,BR2NR6GD4FR6U3L,D3NR6D3BR8U6,BR2R2ND5R2BD6L4,BR8D5GL5HU4]N"D3ND3R2NM+7,-3M+7,3",D6R8,ND6RFRFRERED6,"ND6M+8,6U6",BFD4FR5EU4HL5,ND6R7FDGL4,BFD4FR3BU2FRFBU2U3HL4,ND6R7FDGL4FRFRF,BD5RFR5EUHL5HUER5F,R4NR4D6,D5RFR5EU5,D2RF3NDRE3U2,D6RERERFRFU6,DRFRFGLG2BR9H2BU2EU,DRFRFND3REREU,R8DGLGLGLGDR85TO HOWDY PARTNER," "," ",WELLCOME TO RUDEY'S SALOON.," "," ",YOU'RE NEW TO THESE PARTS?,DON'T GET STRANGERS COMIN',ROUND HERE ALL THAT OFTEN.,"LET ME INTRODUCE MYSELF,","I'M RUDEY, SHERIFF RUDEY.","I OWN THIS PLACE, THE",TOWN FOR THAT MATTER.,6MQ" "," ",WE RUN A CLEAN GAME HERE.,"WE CALL IT 'BLAK JAK',",SOME FOLKS CALL IT '21'.," ","IF YOU'RE FIXIN' TO PLAY,",THEN YOU PLAY BY THE RULES.," "," ",FIRST I GOT TO KNOW IF,YOUR GONNA PLAY USING,JOYSTICKS OR KEYBOARD?," ",'J' OR 'K' WILL DO.78S *PROMPT*,"OKAY, I'LL TELL YOU",HOW TO PLAY USING,*FLAG*,THE KEYBOARD.,*FLAG*,THE JOYSTICKS.,*FLAG*," ","WELL, THE FIRST THING",YOU NEED TO KNOW IS,HOW TO GET INTO THE GAME.,"IF THERE'S AN OPEN SEAT,",OR ONE OF MY BOYS IS PLAYIN'8U (THE BOYS ARE NAMED AFTER ME),YOU CAN GET IN THE GAME BY,PRESSING 'L' 'R' OR 'B',"(LEFT, RIGHT, OR BOTH SEATS)",IF THE SEAT IS AVAILABLE.,,IF YOU WANT TO TAKE OVER,ANOTHER PLAYER'S SPOT,THAT PLAYER HAS TO QUIT FIRST.," "," "8W "AFTER PRESSING 'L' 'R' OR'B',","YOU WILL BE ASKED,",WHO'S BET?,TYPE IN YOUR NAME THEN,PRESS <>.IF YOU MAKE,A MISTAKE WHILE TYPING YOUR,"NAME, THE BACK ARROW WILL ERASE",THE LAST CHARACTER ENTRY.,9Y NOW YOU PLACE YOUR BET.," ",YOU CAN INCREASE YOUR BET IN,100 DOLLAR INCREMENTS BY ...,*FLAG*,PRESSING THE UP ARROW,ON THE KEYBOARD.,*FLAG*,PUTTING THE JOYSTICK,TO THE TOP.,*FLAG*," ":vZ YOU CAN DECREASE YOUR BET IN,100 DOLLAR DECREMENTS BY ...,*FLAG*,PRESSING THE DOWN ARROW,ON THE KEY BOARD.,*FLAG*,PUTTING THE JOYSTICK,TO THE BOTTOM.,*FLAG*," ",YOU ENTER YOUR BET BY ...,*FLAG*;/] PRESSING THE SPACE BAR.,*FLAG*,PRESSING THE JOYSTICK BUTTON.,*FLAG*,," "," ",YOU GET A CHANCE TO CHANGE,YOUR BET BEFORE EACH ROUND.,YOUR BET WILL NOT CHANGE,UNLESS YOU CHANGE IT.<^ " "," ",YOU CAN QUIT THE GAME AT THE,START OF A NEW ROUND BY,DECREASING YOUR BET TO 0.," "," "," ",," ",WHEN IT'S YOUR TURN,YOU WILL BE GIVEN SOME OR ALL,OF THE FOLLOWING OPTIONS," "," ",'HT' ............. HIT<a'SD' ........... STAND,'DB' .......... DOUBLE,'SR' ....... SURRENDER,'SP' ........... SPLIT," ",PRESSING 'S' ... WILL SHUFFLE.,," "," "," "=!b HIT ... YOU MAY TAKE A,HIT AT ANY TIME YOU HAVE,21 OR LESS POINTS.," ",STAND ... YOU MAY TAKE NO,MORE OPTIONS AFTER YOU STAND.," ">d " ",," "," ",DOUBLE ... YOU CAN DOUBLE.,ONLY THE FIRST TWO CARDS,OF EACH HAND," ",SURRENDER ... YOU CAN NOT,SURRENDER IF YOU HAVE TAKEN,ANY OTHER OPTION.," ",SPLIT ... YOU CAN SPLIT YOUR,ORIGINAL TWO CARDS ONLY, IF THEY ARE THE SAME VALUE.," ",?n" ","WHEN IT'S YOUR TURN,",THE ABBREVIATED OPTIONS,THAT YOU ARE PERMITTED,('HT SD SR' ... ETC.),WILL BE DISPLAYED ON YOUR SIDE,OF THE GAMEBOARD.," ",MOVE TO THE OPTION YOU WANT,*FLAG*,USING THE LEFT OR RIGHT ARROWS,*FLAG*,USING THE JOYSTICK?s *FLAG*@x *FLAG*,AND PRESS THE SPACE,BAR TO ENTER IT.,*FLAG*,AND PRESS THE JOYSTICK,BUTTON TO ENTER IT.,*FLAG*," "," ",," ",ALL PUSHES ARE TIES.," ",BLAK JAK'S PAY ONE AND A HALF,TIMES YOUR NORMAL BET.," ",DOUBLES PAY (OR TAKE) TWO,TIMES YOUR NORMAL BETA " ",SPLITS PAY NORMALLY FOR EACH,HAND BEING PLAYED," ",SURRENDER TAKES ONE HALF OF,YOUR NORMAL BET.,," "," ",MY DEALER AND FRIEND RUDEY,LIKES TO GIVE ADVICE SO,HE'S GONNA PUT A PURTY,BLUE BOX AROUND THE OPTION,THAT HE WOULD TAKE.," "Au MY BOYS LOVE TO PLAY,'BLAK JAK' SO ANY TIME BOTH,SEATS ARE OPEN THEY'RE GONNA,JUMP RIGHT IN.," "," ",B "OH YEA, MY DEALER DON'T CHEAT.",IF I THOUGHT HE DID HE'D BE IN,BOOT HILL RIGHT NEXT TO THAT,STRANGER THAT ACCUSED 'EM OF,BEIN' DISHONEST.Bh " "," ",TO REVIEW THE,INSTRUCTIONS PRESS,'R'," "," ",TO LOAD 'BLAK JAK' PRESS,'L'," ",*END*.," "," ",B "OH YEA, MY DEALER DON'T CHEAT.",IF I THOUGHT HE DID HE'D BE IN,BOOT HILL RIGHT NEXT TO THAT,STRANGER THAT ACCUSED 'EM OF,BEIN' DIS &9:COPYRIGHT(C) 1983 CLOAD PUBLICATIONS INC.&t :E P MEINERS, 9350 COUNTRY CREEK 30, HOUSTON TX 77036&1170&SNK:T$T$(K):T$(K)T$(J):T$(J)T$:'+(MX(43):MMX38:1024,(MX256):1025,MX(1024)256:M:MX(1024)256(1025):MXMX9:T$(MX),BA(100):LG$(32,191)'2::LG$;:6)"BUDGET ANALYSIS MENU":LG$:6)"1 LOAD CHECK FILE":6)"2 BUDGET REPORT":6)"3 CHART OF ACCOUNTS":6)"4 EXIT PROGRAM"'<:6)"SELECTION?"(FA$:A$""70:A(A$): A 150,290,180,90('P128,1:@390,"TRY AGAIN!":70(4Z::50(dTF0:I1100:BA(I)0:::"FILE NAME";F$:F$(F$,8):(188)6DV1:130(nDV10:::"POSITION CASSETTE.":140(x" ";:F$"":">"F$" ";:):"USE DISK";A$:(A$,1)"Y"DV1::DV1:F$F$".DAT":)@"PRESS WHEN READY ";A$:0:)sTM0@390,"";:"ARE YOU SURE";A$:A$"Y"50):TM0:8)"LOAD FILE SETUP":LG$;:100:@384," SEARCH FOR FILE";:120:"I",DV,F$:0:@384," LOADING FILE";:120:#DV,LC$,BL,BK*I(DV)TMMX #DV:50:TMTM1:#DV,T$(TM):@448," AT RECORD"TM;:170*:7)"CHART OF ACCOUNTS":LG$:"USE PRINTER";PS$:(PS$,1)"Y"230:50*:7)"CHART OF ACCOUNTS":LG$;:LC0+$ȍBC$:BC$"END"210:BD$:@64LC32,BC$" "BD$:LCLC1:LC12200:220:A$"Q":50:190+@ҏ:220:A$"Q"50:190+r܇@480,"'Q' QUIT, 'ENTER' NEXT PAGE ";:A$:+:"PREPARE PRINTER."::140:270:LCLC1+BC$:BC$"END":250:BD$:#2,20)BC$26)BD$:LCLC1:LC61260:240:240,LC66LCLC1:#2:250:50,:LC66LCLC1:#2:260,#2:#2:#2,25)"CHART OF ACCOUNTS":#2:#2,19)"CODE"30)"DESCRIPTION":#2:LC7:,"THE 'DETAIL' REPORT REQUIRES A","SORT, THE 'SUMMARY' REPORT","DOES NOT."::-"TM0@390,"MEMORY EMPTY!":70-e,:9)"BUDGET REPORT":LG$:280:"PERFORM 'DETAIL' REPORT";A$:(A$,1)"Y"600-u6TM1560-@:9)"BUDGET REPORT":LG$:"PREPARE PRINTER."::"REPORT TITLE? ";TT$:540:LCLC1:OB$(T$(1),37,2):BA0:BT0:0.JI1TM:OB$(T$(I),37,2)490./TLCLC1:LC62530.^#2,5);(T$(I),1,2)"/"(T$(I),3,2)" ";:TY((T$(I),5,1))1: TY 430,440,450,460,470,480:CK$(T$(I),6,4)/1hAM((T$(I),10,8)):#2,TY$" "CK$" ";:#2,"#####.##-";AM;:#2," "(T$(I),18,1)" "(T$(I),19,18)" "(T$(I),37,2)/hr(T$(I),18,1)"R"380:TY3BABAAM :BABAAM/|:490:LC54LCLC1:5300LCLC9:#2:#2:410:#2:#2,10)"CURRENT BALANCE ";:#2,"#####.##-";BL:#2:#2,10)"BANK TOTAL ";:#2,"#####.##-";BK07LC66LCLC1:#2:400:500~BT0#2,10)"BUDGET SURPLUS ";:#2,10)"BUDGET DEFICIT ";0#2,"#####.##-";BT:#2:0TY$"DEPOSIT ":0TY$"INTEREST":0TY$"FEE ":0TY$" ":1TY$"WITHDRAW":1TY$"MEMO ":1=LC57LCLC1:530:LCLC11SBABA1:BTBTBA1H0:#2:520:#2,30);:#2,"#####.##-";BA;:#2," "BD$:BA0:#2:#2:LCLC4:OB$(T$(I),37,2):2 HH1:BC$:BC$"END":BD$">> UNKNOWN <<"::BD$:BC$OB$::5202(#2:LC66LCLC1:5302#2:#2:#2,19)"BUDGET REPORT"41)TT$:#2:#2,5)"DATE TYPE ITEM # AMOUNT CLEAR DESCRIPTION BUDGET"3 ,5)"----- ------ ------ -------- ----- ----------------- ------":#2:LC8:3:00:@169," SORTING ";:B1:STM1:SN0:PS03:PSPS1:@265," PASS ="PS;:JB S:KJ1:(T$(K),37,2)(T$(J),37,2)30::4DSN0:SSN:BB1:SN0:PSPS1:@265," PASS ="PS;:KS B 1:JK1:(T$(K),37,2)(T$(J),37,2)30::4&NSN0:BSN1:SS1:SN0:5704XTF1H0:620:TF1:0:@170," TOTALING ";:I1TM:H0:OB$(T$(I),37,2):520:AM((T$(I),10,8)):(T$(I),18,1)"R"610:(T$(I),5,1)"2"BA(H)BA(H)AM :BA(H)BA(H)AM5b@261," AT ITEM"I"OF"TM;::H05MlBT0::9)"BUDGET REPORT",LG$:LC0:"USE PRINTER";A$:(A$,1)"Y"7005rv:9)"BUDGET REPORT":LG$;:LC05HH1:BC$:BC$"END"650:BD$:@64LC32,BD$:660:@64LC3224,"#####.##";BA:LCLC1:LC12640:220:A$"Q":50:6306:220:A$"Q"50:H0:63069BABA(H):BA0BA1BA::6TBA1BA(H):BTBTBA:6eLC597306LCLC3:#2:#2:#2,12);:#2,"#####.##-";BT;:BT0#2,32)"BUDGET SURPLUS":400:#2,32)"BUDGET DEFICIT":4007':"PREPARE PRINTER."::"REPORT TITLE? ";TT$:740:LCLC1:07HH1:BC$:BC$"END":680:BD$:670:#2,12);:#2,"#####.##-";BA;:#2,25)BC$32)BD$:LCLC17ЅLC62730:710:7107څLC66LCLC1:#2:73087#2:#2:#2,7)"BUDGET REPORT"29)TT$:#2:#2,14)"AMOUNT"24)"CODE"32)"DESCRIPTION":#2:LC7:8=8U CHART OF ACCOUNTS8[8t AC,AUTOMOBILE CARE8 AI,AUTOMOBILE INSURANCE8 AM,AMERICAN EXPRESS8* AP,APPLIANCES84 BF,BALANCE FORWARD8> BK,BOOKS & MAGAZINES9H CE,COMPUTER EXPENSE9'R CI,COMPUTER INCOME99\ CL,CLOTHING9^f CM,CONDOMINIUM MAINTENANCE FEE9sp CP,CAR PAYMENT9z EC,VISA (EXECU-CHARGE)9 ED,EDUCATION9 EN,ENTERTAINMENT9 FD,FOOD9 FO,FOLEY'S DEPARTMENT STORE9 FU,FURNITURE:  GF,GIFTS: GS,GASOLINE:6ʆ JC,J. C. PENNEY'S:MԆ LT,ELECTRIC BILL:gކ MA,MARI'S ALLOWANCE:| MC,MASTER CARD: ME,MEDICAL EXPENSE: MI,MISCELLANEOUS INCOME: MT,MORTGAGE PAYMENT: MS,MISCELLANEOUS: PA,PAY CHECK;$ PH,TELEPHONE BILL;/. RE,RELIGIOUS & CHARITABLE;K8 RI,RENTER'S INSURANCE;fB SA,SAVINGS (REGULAR);}L SI,SAVINGS (IRA);V SR,SEAR'S ROEBUCK & CO.;` TV,CABLE TV BILL;j TY,TOYS;t VA,VACATION;~ VS,VISA (MACON GA.); END< 800:0:1:40L;/. RE,RELIGIOUS & CHARITABLE;K8 RI,RENTER'S INSURANCE;fB SA,SAVINGS (REGULAR);}L SI,SAVINGS (IRA);V SR,SEAR'S ROEBUCK & CO.;` TV,CABLE TV BILL;j TY,TOYS;t VA,VACATION;~ VS,VISA (MACON GA.); END< 80}oUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUUU@ڈ$Ž33ONH؄ >բ컈jMT-BM 186, 110BD5RFR5EUHL5HUER5FBM 186, 110BM 186 186BM 174, 110ND6M+8,6U6BM 174, 110BM 174 174BM 162, 110BFD4FR5EU4HL5BM 162, 1H؍נ -Ů &++o+Ϡ}o}o0 150BM 138, 110R4NR4D6BM 138, 110BM 138 138BM 126, 110BDD4RFR5EBU4HL4BM 126, 110BM 126 126BM 114, 110D5RFR5EU5BM 114, 110BM 114 114BM 102, 110ND6R7FDGL4FRFRFB.DATY1QN32ANALYZE}oH؍נ -Ů &++o+Ϡ}o}o0 150BM 138, 110R4NR4D6BM 138, 110BM 138 138BM 126,