8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL L ` c 7 # ; @  QWTSP I`)Kp O   T / *%iݛiݛ?*DR.DISK3.3% SEARCHER.SETUPz#6#6SEARCHER #6#6-WITCHING.HOUR ,SPEEDCALC3.3+Y}%CHESS#5#5REFLECTION.LDR2#5#5*REFLECTION6#5#5+MINDBUSTERS #6@)APPLEFONT4#6@*APPLEFONT2 #6#6'DR.DISK#1 #1(ANIMATOR #1#1)ANIMATOR2#1~#1+MULTIMEMORY!#1#1(SOFTBALL.STATS Y#5#5&SEEKEREEKER x#5#5(VAR.LIST #0#0(HIGHRISE; #0#0)MIAMI.ICEF #1#1'HICKORYO #1#1(SKYSCAPEW%#1#1)SPEEDCALCkb#1 #1&LEDGER{(#1#1BESTOF87#'' (CLIMBER5  HROUTX*NORMAL.SET)CONVERTER&#,#,-BOWLING.CHAMP )SWITCHBOX- >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@LLnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R 0 ~ OL 1Qq<\| ;L5 Ά ;L5 ]  s,,)L+ ,T,Q XLK0L,ɍ 0sɃ)߮cWS8M^ɀVPKE@;   ҠԠš ̠ӠӠ٠Ϡ ٠Π٠ҠΩ ̺κidi  *ʠޥ``쪼؄⅍莋 * #  tΔ  t Δ` 0@ 4!4TTt44 T%Tt44 T%Tt#44T%Tt%4 T!TttĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀĀ0 &e`N 8eNN` X  -LC  s,,` X| s ii)`% "ȱ$ȱ ` 'I tΔi Ό׮ejjȪi$``)?4),pi(i(m`        i,`i`)`i'``u`yy`8` TI``(iHihȑ` i Hȱh`ȱ-$eΩe p  p L7` ΅ȱ΅ȥȥέ * ,)̒뭒  ΔҬȌЩ`ijfJfJf****)ieeqɠ`   ȱȭȥȥȭȭ 1QQ    tΓ`ȱȱȱii  tΓ`JfijfJf****) E L  !`  L+`ȱqq iȱi ȱIؐ i(͑&!iH h m(`I@ i62i Heeh dd eHeteee$f Tff ff  g8gIJbaa a b @bpb bb cKc cc d4d ddddcc%f83dwAccU%1```` `E`~```)a 1 ` %  +  1Ls ﮹DL0`Ks#=#Cc#Cccc.my$cc&$'Dc3?cFKDՎ 8``,ޛ}Ɍ  L  Lκ@ ْ ْ  @) L `@  +`޴L# %  +  1` %   +   Ι1ݤݬ  #QHIH`GX^~[aG,,,um Ƀ8 L,mOΚе`     ,mNiejk jM3r;%;'d%Y;'gy9ϊYK)e,Dy:E,VYK;w,YU[+elKYK)e,qR\WKqָCǎPvJ>تC[+elRYLTʙS*eLeS*U%q:e ]dC}w%.tKU,N%DTʙS*eL'Y'd]V'\NWd钩dd*IDQ%2q*y:q:\JĥĩdN :380 J110B11:410> Q10ĴS230,290,290,230,330 (Z91)21:1:" ":::24:10:16368,0:"PLAY AGAIN (Y/N)?"; (16384)128240 K(16384)128:K78K89Ĺ16368,0:240 K89120 16368,0:::  -10TH FRAME : EXd36096:790n850:990)x1180`:230,32:62450::6,0:7,141:(191256)76150{(4);"PR# A$300":16010021250 -MAIN LOOP-Q110:Z90A1R110:2(Z91)1:1:" ";:F130:F:1:"$":F130:F:R B10 <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80,***"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "xEFG >0 e()) $20I$ i EFGXL+LY:YT vKĪ'Q)*yҼį'y:?..=+s+/'>$((+^Jrr%j'K+]32$$$d_$rܲJ+8N\JKIW}Wwq:wDpTUs>3PD^ItI^OW,9*sIVOu|teR⩕udW^N%:^U.=qYZS9d:sꊜ.ĬKI/$K/%>*9ĦJJJdגP앲TPq.9q9^IS%2VRK:s:s%Ld$_O_JY*]^J{)+\J+Y+^J|J,ULd\JĭdY'Qy؝'B8*$ğ^NI̕,LĻ'TRA BALLS-> "24:5:"TAKE TWO MORE BALLS, "NA$(Z91);".";\ ,I12000::24:5:30); 6S(Z9)S1:B11:380:J10360 @350 J24:5:"TAKE ONE MORE BALL, "NA$(Z91);"."; TI12000::24:5:29); ^S(Z9)1:B12:380:230 hS(Z9)1:B1 !"#$()$"N"80 ZA$"N"F11/ n::650:350J xH0:K0:A735:160:\ 270:H1340z H0:K0:AT:160:H1340 130 B(A)0B(A)SB(A)2ı B0D(A7):CAM(B):B(C)SB(C)2260 B(C)220 SC(0).9:HSCHSC:FA:TC  Z1::* 232,96:233,3:27:0:3J8:11:"THE WITCHING HOUR"q12:6:"PRESS '1' FOR ONE PLAYER"(12:"'2' FOR TWO PLAYERS"2A$:NP(A$)48:NP1NP250<NP2110F5:"DO YOU WANT TO GO FIRST (Y/N)?"; PA$:F11:A$"Y"A٠٠ϠŠԍӠԠРԍԠŠؠԪɠ Ϊɠ ƪؠӠڠϠŠԠŪŠՠŠՠԠϠŠٯΩ˺ҺҠJ"X"X"u"u"g"g"g""#ēהɋʈ˕͊ԠԠӠҠҍĠϿŠŠŠŠ̠ŠΠϠΠԍϠҠӠĪŠčˠōҠh(`'H)' #$' #'')')h'Lo 'LC$' $','*'$''I'0$ȱ'ɍL^$' $'`ȱ' ɍ`H% h` $,'0 ' $ '` $$`(` $)`,,`n' $I i8n')`E!(!d!}!!!""J""' #')jjjj &') 0 .#L6#8 ` &') 0 .#LJ# &Ӆ& >$','J'  )   #iiLa# QLQ XL') ei$')xJJJi% $` ` #$('H i ''ȑ$'  Hn#'&$% >$ $`'8' La"'' ILQ 'i')xL|"'')LQ Lo 'I'0 'I 'Lo !' # $$%& >$,'0' $ɚ"- 'L" $H$(h,'0 ' #Lv"!'Lo ,"'Lo $% Ⱦ%L H$(h ȹ$H$H` $% $ $,'0'Lo $% $ $ ,'0'Lo $% $ $,'0'Lo $% $ $,'0э'Lo $'n#' !'LQ &$% >$ &`( $ $' !n#'Lo ' ' X(% 6$ $ ,'"'''''8n#'''!' ' X%%$ >$,#'0L$,!'L"% $ $' (% $' (% $'$ % $'$$ ,'0, '0 q&L d&L & $% >$$% $ # $ 2:410:230 r -FIRST BALL-? |I110:A(I):B(I):"$":R PS1:J10:420f  -SECOND BALL-o PS0 470:TT(Z9):SS(Z9):TTJ S(Z9)680,710,730,750,770 T(Z9)T:S(Z9)S 21(A3)2(Z91)(A2):37(Z92(Z92))22:T(Z9): CK1T1CL1:B7 260/ B(CM(B))260\ SC1(0).9:HSCHSC:FA:TCM(B):KCj CK0260 T1CM(B)L1:K1C:B7 : AF:B(T)B(F):B(F)0:1130 KB(K)0:AK:1130 "AT:1130 ,610:S1Ģ21:12:"THE WITCHES WIN!":3206 "ENTER SPEEDSCRIPT FILE NAME TO CREATE :";A$[ (4);"BLOAD ";B$;",A$2000,TTXT"| L(48859)(48860)2568192 I8192L1 (I)141ĹI,60  'D$;"BSAVE ";A$;",A8192,E";L1 ( %'ER TEXT FILE NAME TO CREATE":":";B$D xD$;"BLOAD ";A$;",A$2000"e }L(48859)(48860)2568192u I8192L1 (I)60ĹI,141 D$;"CREATE ";B$;",TTXT" D$;"BSAVE ";B$;",A$2000,E";L1;",TTXT"  "ENTER TEXT FILE NAME":":";B$ D$(4)*("DO YOU WANT TO:"c2" (1) MAKE A SPEEDSCRIPT FILE INTO A TEXT FILE"<" (2) MAKE A TEXT FILE INTO A SPEEDSCRIPT FILE"FA$:A(A$)PA1A270ZA100,200d"ENTER SPEEDSCRIPT FILE NAME":":";A$& n"ENT7,10,10176,4,16,62,48,4816,1,232,232,10,134P27,24,101,6,133,26i144,2,230,27,165,40133,8,165,41,41,3"5,230,133,9,162,8,160,0,177,26,36,50648,2,73,127,164,36@145,8,230,26,208,2J230,27,165,9,24,105T4,13":(16384)128ľA$61(T1410)73,(F4)825NQSQS5:QS27QS2d A$"I"F0FF1z A$"K"F4FF1 A$"J"T10T1T11 A$"L"T14T1T11A$(13)1260xA$(F5T165):216,120,133,69,134,70 132,71,166,X(A):"XYZ"39A1113932:78,A190,A:XA7819028:A,11A,139:z78,11194,140:194,1178,14078,76136,11194,76136,14078,76F2:T12:QS2QS1(T1410)73,(F4)825(F5T165);(8);A$"7,141:(191256)76ĺ(4);"PR#A$300":790C 54,0:55,3:1002`A3635236567:F:A,F:f tjB(A)2ıtY(A)1:X(A)~B(A)0ĺ"@AB":X(A):"FGH":X(A):"LMN"B(A)0ĺ"CDE":X(A):"IJK":X(A):"OPQ" B(A)0ĺ"RST":X(A):"UVW":,-1,-5,7,5,-7- 7,3,7,3,7,0,3,7,3,7,3,0U 7,3,7,3,7,0,3,7,3,7,3,0,7,3,7,3,7z 2,2,2,2,2,2,2,-1,-1,-1,-1,-1,2 -1,-1,-1,-1,-1,2,-1,-1,0,1,1,2 1,1,1,1,1,2,1,1,1,1,1,2,2,2,2,2,2,2 1,0,4,0,44,62,0A768855:F:A,F:-6,0:I,J cl(7);:!v:DD(28),B(42),X(35),Y(35),N(28)lS1:A07:M(A)::A028:D(A):A04:F04:H6AF7:X(H)4F11:Y(H)4A:N(G)H:GG1:F,AA042:B(A)::A06:F:864A,F::760:1190:A042:1130:: -6,1,60:350 L0K10İ620:5703 !K10H1530T &FZ:TT1:KK1:270:K10340r 0AT:ZA:H0:160:H1340 :610:21:11:"JUMP AGAIN (Y/N)?"; DA$:A$"Y"A$"N"580 N610:A$"N"SS:350 XD1:22:430b:21:J12:I140:" ";:HE WITCH'S TURN". 22:12:"FROM: ";(8);8 1250S A$;:AN((A$)65):ZAi 25:"TO: ";(8);s 1250 A$;:T1N((A$)65):CK1:L0:K10:160:CK0 H0:A7 A36460 160:H1460 AA1:A36453 D540 L545 62! 621:12:"THE GHOSTS WIN!"A @10:"PRESS THE "V JA$:A$" "330\ K TSS:Z(Z0):H0:A735:160::H0300 ^D0:610:NP1S1Z1 hF11Z1 rNP1SF1120 |S1Ģ21:12:"THE GHOST'S TURN":400 21:12:"T3,9,202,208,226+^165,69,166,70,164,71>h88,76,240,253[255,129,129,129,129,129x139,171,255,128,128,192192,208,212,224,255,192192,192,194,202,234,199255,129,129,225,129,225225,225,255,128,128,135 159,255,238,255,(J,K)):L(Y$):TX6J31L:TY3K:TY:TX:Y$:K,J< TRRU U15:14:"GAME OVER"z V17:08:"PRESS Y TO PLAY AGAIN" YG$:G$""345 ZG$"Y"ĉ::"SWITCHBOX OFF": [G$"Y"Ĭ \ ^: hI05:J01 r11I2:I4J2:"*";:27I2)0:K,J ,J01:K14:GLPT(K,0):ACSC(J,K):SC(J,5)SC(J,5)AC:SC(J,6)SC(J,6)(ACGL)GL:SC(J,7)SC(J,7)(SC(J,K)SC(1J,K)):K,J 6J01:K67:SC(J,K)SC(J,K)SC(J,5):K,J @J01:K57:SC(J,8)SC(J,8)SC(J,K):K,J4 JJ01:K58:Y$(SC(A$):A89A1212104 7,138:6,0:350:530` RR14:7,138:RR1:8:"+";:30:"+";i 490 7,141:QR1QR:1:28QR21:" ";PT(RR,0);" ";:7,138:8QR20:AR$(QR) 630:SC(1QR,RR)PT(RR,0)290 260 "7,141:J01:K58:SC(J,K,./01234567897,8,9% 80,1,4,9,16,25,36,49,64V ::"READING DATA STATEMENTS- ONE MOMENT":t (768)169Ĺ230,64:970 (190256)76ĺ(4)"PR#A$35C":210 54,92:55,3:1002:6,0 ::"PLAYER 1: ";P1$:"PLAYER 2: ";P2$ "IS THIS CORRECT?":A$:A8dSW(4,7,1),SP$(1),LB(32,4),AR$(1),PT(4,16),SC(1,8)znSP$(0)"%&)":SP$(1)")!"(34):AR$(0)"<--":AR$(1)"-->":QR1xJ14:PT(J,0)K18:L:PT(J,K8)L:PT(J,9K)L:K,J 10,2,2,2,2,2,2,2,2 40,1,2,3,5,8,13,21,34 20,2,3,4,5,6,* X " LuX%IX%`, )``Hh`  ` 률` o ($%) `2$()%` (` L #< > 8 L2L@ <v<%ߙ  ;%ߙL <%L ;%<%;% ݕ , eL  3020832080LM" XaY% I9786%i$iOl$$ki"X%$ a #F > % H | hݬ L7 ʊ H{HHH`  ! # 1234567890+-.  N2@ 71,1,1,11,1,127,0,0,000,0,0,0,127,64G64,64,64,64,64,64X1,1,1,1,1,1i1,1,0,0,0,0|0,0,0,0,64,6464,64,64,64,64,641,1,1,1,1,11,127,0,0,0,00,0,0,127,64,6464,64,64,64,64,127,192,192,192+D223,223,255,159,135,129HN129,255,170,170,170,168eX170,139,128,255,216,240b255,193,192,192,192,255l129,129,129,129,129,129v129,255,255,254,252,248248,224,128,255,193,193193,192,193,207,254,255 127,1,255,192&192,192,192,192,192,192C171,171,171,169,129,129`193,199,229,181,181,165}168,170,170,170,199,193193,193,193,195,199,204129,129,159,255,255,199&193,193,159,142,142,2550255,191,191,255,192,248:255,255,241:"*": |:I047 10I2:I44:(33);(34);Q 27I2:(37);(38);q 9I2:I45:(35);(36); 28I2:(39);(40)  5:I06:HP87I14171I1428 VSI3228:VEVS50:VS8VS8 VE182VE182 HP,VSHP,VE::.7,141:J116:KPT(RR,J):JJ2J2NK9L(K10):L$(L):520YL$" "~23:JJ:L$:JJ:((K),1);:J:J04:SY5J4:K0J3:SX12J2K4WP((1)2)&SW(J,K,0)WP:SW(J,K,1)0:6200K,J:7,141 D1:12:J18,0,126,6,62,96,102,60,0760,60,6,62,102,102,60,0S@0,126,96,48,24,12,12,0qJ0,60,102,60,102,102,60,0T0,60,102,102,124,48,24,0^0,24,48,126,126,48,24,0h0,124,102,102,126,102,102,0r0,62,102,102,62,102,126,0|0,60,102,6,6,10227,48,24,0&0,0,28,62,62,62,28,0<0,0,0,0,14,0,0,0S0,0,0,14,0,14,0,0n0,60,102,48,24,0,24,00,60,102,118,110,102,60,00,24,28,24,24,24,60,00,60,102,48,12,102,126,00,60,102,48,96,102,60,0"0,48,56,52,126,48,48,01,3,7,15,31,63,1273x126,124,120,112,96,64,0,0O1,3,7,15,31,63,127,127f0,0,0,0,0,0,0,127127,127,127,127,127,127,127,1270,0,28,62,127,62,28,00,0,0,0,0,0,0,00,0,0,127,127,0,0,00,12,6,127,127,6,12,0 0,24,48,127,165,9,24,105,4,133,9,202;208,226,165,69,166,70,164,71N(88,76,240,253c20,0,0,0,0,0,0,0<0,64,96,112,120,124,126,127F127,63,31,15,7,3,1,0P64,96,112,120,124,126,127,127Z63,31,15,7,3,1,0,0d127,126,124,120,112,96,64,0n0,133,69'134,70,132,71,166,7,10,10B176,4,16,62,48,4,16,1b232,232,10,134,27,24,101,6133,26,144,2,230,27,165,40133,8,165,41,41,3,5,230133,9,162,8,160,0,177,2636,50,48,2,73,127,164,36 145,8,230,26,208,2,230,27 185,0,145,200-t141,89,3,169,128,141,88,3K~78,89,3,144,3,173,48,192l162,0,232,208,253,144,3,17348,192,162,159,232,208,253,23890,3,208,211,24,173,59,3233,3,141,59,3,173,49,3105,3,141,49,3,144,186,968,5,0,255,216,120,:!I3620036311:A:I,A:@I3636036599:A:I,A::W$BYNYLY42:BXNXj.BY:BX:" ":8BXNX:BYNYLY43BBY:BX:"O":L169,1,141,88,3,160,0,169V160,141,49,3,169,255,141,59`3,173,59,3,141,90,3,78j88,3,144,12,1768:!I768947:A:I,A:=I2457624831:I,128:vI24832250874:I,128:I1,136:I2,170:I3,136:I3532835439:A:I,A:I3555235559:A:I,A:I3556835575:A:I,A:I3570435711:A:I,A: I3609636103:I,08:8776,208:781,220:841,5:849,4:798,97:768:l776,232:781,255:841,0:849,0:798,240:768:776,216:781,240:841,4:849,4:798,240:768:776,160:781,160:841,1:849,96:798,240:768:776,160:781,220:841,6:849,6:798,97:LY:JX(NX2)LY6:WX(JX2):SDJX(JX2)2:MH7,141:SFPT(RR,NX21)aRSGSC(QR,RR)SFy\TX631QR((SG))fRR1:TX:SG:SC(QR,RR)SG:7,138:960p776,80:910z776,160:910776,201:910781,200:841,1:849,196:798,96:768 LB(J,2)LY1:1080:830:SW(WY,WX,0)1SW(WY,WX,0)*SW(WY,WX,1)LB(NB,0)1:LB(NB,1)0:LB(NB,2)LY:LB(NB,3)0:LB(NB,4)NX2SD4:NBNB1:SW(WY,WX,1)0:BXNX2SD4:BYNYLY41:1070:9504SX12WY2WX4:SY5WY4:WPSW(WY,WX,0):620:9301>WY(SW(WY,WX,0)SD)VX12SD:LB(J,1)VX:LB(J,3)NY1:BXNXVX:LB(J,4)BX:BYNYLY43:1090:930SW(WY,WX,0)SDLB(J,0)0:SW(WY,WX,1)1:1080:920 LB(J,3)NY1:1080:((1)31)880,890,900LB(J,1)0:BXNXDX:LB(J,4)BX:BYNYLY43:1090:940J032:LB(J,0)EX0:720+:EX06801{DYLB(J,0):DXLB(J,1):LYLB(J,2):NYLB(J,3):NXLB(J,4):(LYNY)İ1060LB(J,3)NY1(NY3)4:NY1740,760,790,800LY4LB(J,0)0:8401080:((1)31)880,890,900aVX0:830:SW(WY,WX,1):J;" ";:'N1:3((P1$)5):P1$;@X34((P2$)5):P2$;Fb]lSY:SX:SP$(WP):zvJ032:LB(J,0)0::NB1A$:A$"-"ıA$"+"A$(((1)81))A(A$):A1A8640LB(0,0)1:J13:LB(0,J)0::LB(0,4)10A2EX1,62,0&0,62,102,102,102,102,62,0@0,126,6,6,62,6,126,0X0,126,6,6,62,6,6,0u0,60,102,6,118,102,62,00,102,102,102,126,102,102,00,24,24,24,24,24,24,00,96,96,96,96,102,60,00,102,102,54,30,102,102,00,6,6,6,6,6,126,0$0,102,126,102,102,102,102,0D0,62,102,102,102,102,102,0c0,60,102,102,102,102,60,0~0,62,102,102,62,6,6,00,60,102,102,102,54,108,00,62,102,102,62,102,102,00,60,102,12,48,102,62,0&0,126,24,24,24,24,24,000,102,1ߏߏߏ晀؁؃聀؃ăЃă܀쀀΃ȁ؁܁쀀܁΃ȁ`Y ]  m   {  <  E a ZЩ ] @]`OUE 4 } p }< !H"j v" !" t t  t ( F d F  Mi8i `    L `0Pp  m i  < ɨ E a Z  i ɞ8 & ) JJ ȌL `,0 0 ii L ii L i܅i  ȱqq `t  t  t,`L i  89,J ,i*,m, iL 8`mi8&,`` 0 ʊ L9  y ɞ 8  i3 i(!  `  ` I M ` ,,@M ` ` L,T,QL . S.4   m   < aLZ6)8ii``,0 i8&/(ɍ"ɠɈɕ,,`,:<=>?@ABCD < E a Z 3  m  { Lɢi&L8 ms  LT iR  5+ i L  `85018&0" G Ξ͞  `쩀   o ( @ ,W,R,T,Ppčt L Vj |9 24,0,002,102,102,102,62,05:0,102,102,102,102,102,24,0VD0,102,102,102,102,126,102,0vN0,102,102,102,60,102,102,0X0,102,102,102,60,24,24,0b0,126,48,24,12,6,126,0l0,0,0,0,0,0,0,0v0,0,0,0,0,0,0,00,0,0,0,0,0,0,0 0,0,24,60,60,ߏ~~``````````````````````````~~pppppppppppppppppppppppppp . S. '. SR T  S : ?S S P. D E.  S J A + S J AS V H l 6 .   O   imm  0!,0.*! $ $mi 75 8 mddꭳLλLL- / /L-@--@- $QP`NEGHIJKLM,0 I8iͩ ͩh8 0 ,a,0 ̨ QH ePh 8P PQ PQ Ψ mm,0 imM)`  x  ~,W,R,T,P  ,T @  a0 &xɉ  a͍ xyxiJJJJ8Hihh ȑȭȭ`@荇}jLV}jN ȍN00}i}`` Q,4) Lȱ ȥ `ȥL`,4n0  1^ȱȱҍii  i%ة  Lkȱ`HH憆氀憆ආ挘昀澾澰漼憆憶昆昼漆澘` 1K0,4Mȱȱii ^ OL$ QeȘe)Fn`ժР"Hn 8iLk`Ѐ i` 8m`澼渆,pi(i(m`        @*TI```      ɺL~LHh`@  Y    LL8 &8 # 88  < E a Z&"i8&Hmhm&LL`  `)? `) eiiiȱȱ  mm`?ȱȱȱȱȱȱ i`1Q` `i iL` ȥȱ  .,8$j mmЯȌL%` S`ȱȭȭȥȥȭȭi P3 3 UE A I D  2N C   3 A 3 3  SC U I 2 IS  . R.  T H  R P SSE E j2 ; S. S    SCR S    R. 3  . R. t /ȱ OP$N8OQQ&PNQeOQP$OP`` iȱqȱqȱq iȱȱȱ iȭȭȭȭȱȱȱ 1 0QmmmΤа` i`ȱȱȱȱȱȱﭢ iȱȱ mΤ` 捗  ' 'ɸ 'NPQRSTU1:3:"TO MOVE";:14:"PRESS":2:"THIS HAND";:13:"THIS KEY"a CH213:CV13815012:770: I14:DD(I)10:J17:DP(I,J)0:: HH84:HV35:MH83:MV24 GM1410 NW0:TH((1)12)1:TM((1)60) RHTH240 RHTH:RMTM GMdPI4(1)*nDP(4,7),CX(12),CY(12)Px840:960:1120:1160:6,0:7,138y(190256)76ĺ(4);"PR#A$300":15054,0:55,3:1002:510::60019:16:"1":16:"2"I01:5I:J01:18,147J8I528I,147J8I::@ 2ЂЁЁԃԆվѪժԊЂȪԪʠҀՀŁՀЂԊժѪվԆԃЁЁЂꀭ񊁭ઁઁઁઁ񊁩ֺюՆՆՆՆюֺՀŁՀҀʠԪȪ$  Ww A D R  O  " F I ҄ՊՊՊՊՊՊՊՊՊՊՊՊՊՊՊՊՊՊӄ  Š S 2E @  Cd *K~ 5 F.D A  : O #7 0 0 6 I E W4 1 . SE  O U 1.01 F W ; . i,`N% "N$N L=L,`ɠ ̠ Ӡ٠٠Ϡ,T,Q X% "$ ᭳ii  i  iξνμ`ȥȌ 6ȱȥȌ 6к`  .,8$j 쭛̠mmΤЭ` `,T,Q X,0>% "$   i  i *a0,0I``)?8 ),pi(i(m`         ȥ eȥ e` iȱ `ȱ ọ̇̄EG%jCͪEehEÃÃGE欃ƃƃEefơ'fE$c‚F‚‚ᡂhá ed$$d ?FĬ¡Bժժժժժժժժժժժժժժժժժժժժխ@*TI fH)h)`@LgΝLg8Lgi, ,εЯL"ȱȱ iΤ @``K~jѣfƐe2TM0" GM3TM30(TM30)9 GM4TM5(TM5)N HRTH:MNTM:610\ "HR1:MN0 ,24:2:"PRESS RETURN TO ANSWER, ESC FOR MENU"; 6670 @460:A$(27)150 JA$(13)350 T310 ^THHRTMMN3907 hNWNW1:NW3Ģ24:2:38);:VXYZ[\]^_`abcdefghi3031":D9(1)45:EE:M9:P(6,6)= nR(X)(X100.5)100V xS(X)(X10.5)10x Y12:X16:P(X,Y):::Y0 X16:P$(X),P(X,3): X17:PP(X)X85: J$"SATSUNMONTUEWEDTHUFRI":X112:F$ CC$CC$" "F$::CC$CC$CC$:F$(C <1940YFD$"000031059090120151181212243273304334":K11440:HC(22):MM$"041081040"PM$"286317345011041072102133164194225255":D$(1)"S":D$(2)"N":ES93ZA$"JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC":OO$"OUT OF RANGE!!"" dMD$"31283130313031313031$(DC)::0j1011111,0000101,1110110,1110101Ut0101101,1111001,1111011,1000101r~1111111,1111101,0000000I112:CY(I),CX(I)::2,18,5,22,9,2313,22,16,18,17,1216,6,13,2,9,15,2,2,6,1,126144,2,230,27,165,403133,8,165,41,41,3J5,230,133,9,162,8b160,0,177,26,36,50z$48,2,73,127,164,36.145,8,230,26,208,28230,27,165,9,24,105B4,133,9,202,208,226L165,69,166,70,164,71V88,76,240,253 `DC010:SS,134,190,230,230,1883254,224,176,152,140,140P188,230,188,230,230,188m188,230,230,252,176,152I768I87:A:I,A::216,120,133,69,134,70132,71,166,7,10,10176,4,16,62,48,416,1,232,232,10,13427,24,101,6,133,2)):2PC:0HI35456I728:I,128:I7,128KRJ16:A:IJ,A:::h\188,230,246,238,230,188f152,156,152,152,152,188p188,230,176,140,230,254z188,230,176,224,230,188176,184,180,254,176,176254,134,190,224,230,188188:2:I22:CHI,CV2((I)2)CHI,CV2((I)2):@ CI0:CHHC10:CV13215612:830:DP(DE,CI)PCİ750:DP(DE,CI)PC *CV13815012:CHHC2HC1816:830:DP(DE,CI)PCİ730:DP(DE,CI)PC4:: >CICI1:PC((SS$(DC),CI,1833(A):HH8444(A):5@84,68HH,HV:83,67HH1,HV1:nAMN30PI:MV6844(A):MH8359(A):684,68MH,MV:83,67MH1,MV1:I22:CHI,CV4((I)2)CHI,CV4((I)2):I11:CH5(I0),CVICH5(I0),CVI:DCDD(1)İ790LvDD(1)DC:HC186:DE2:DCHR10(HR10):DCDD(2)İ790DD(2)DC:HC220:DE3:DC(MN10):DCDD(3)İ790DD(3)DC:HC246:DE4:DCMNDC10:DCDD(4)İ790DD(4)DC:0:700:720690:710:A(HR6MN360)PI:HV6URS TEST"6 14:7:"3: HOURS AND HALF HOURS TEST"b &16:7:"4: FIVE MINUTE INTERVALS TEST"x 018:7:"5: QUIT" :24:A$:A$"1"A$"5"570 DA$"5"Ā NGM(A$): XI112:CY(I):CX(I):I:: bDE1:HC160:DC(HR10):DC0DC10lMN0 610:670+ 460:A$(27)1504 430O 24:1:A$:A$(27)ı_ A$(13)ı A$"1"HRHR112(HR12): A$"2"MNMN560(MN55): 460 ::6:8:"PRESS KEY TO CHOOSE GAME:" 10:7:"1: PRACTICE" 12:7:"2: HO5:"THAT IS NOT CORRECT, TRY AGAIN";:I11000::300| rHRTH:MNTM:670:24:2:38);:7:"THIS IS THE CORRECT ANSWER"; |I11500::240 24:2:38);:10:"CORRECT! GOOD ANSWER"; I11000::240 24:11:"PRESS ESC FOR MENU"; HR1:C$,9):CC$F$CC$' X18:PH$(X):P X122:HC(X)::R$"0":T$"00":720m CCMT720:CC0CCCCK1 CCCC120:CDCC(CC):CC(CC):CD(CD7.2):CC81(CC7CD) 1770:LL0İ5000 17:CD$;: :10:"** DAYS SKY **":3:1550:31:R$"X16:A2Y1P(X,2)(Y1P(X,2)):Q31SA2(A2360)P(X,1):A2360A2A2360n$E180A:E360EE360.E1(EA2):E1180E1360E181310:E1E1D9:P5P(X,3):X3İ1750BP(X,4)(1P5221P5(E1)):XX((P521P(X,4)2)(2P(X,4)))ILPONGATION---------- ";M8;"@";L$A"MOON'S PHASE - "PH$(M3)q17:"-P- PLANET TABLE ,-D- NEW DATE":1700:11:"** PLANET TABLE **":3:1550:S115:1:"PLANET DIST. ANG. W/ SUN R.A"6:"--------------------------------------"* ";A;"@"8"SUN'S DECLINATION---------- ";S;"@"l"SUN'S ALTITUDE AT NOON----- ";A1;"@";D$(W)"SUN'S RIGHT ASCENSION ------ ";A3$"R.A. AT 9:00PM------------- ";A5$"MOON'S AGE----------------- ";M1;"DY"#"MOON'S ELpA360AA360!uAR(A)`zSR(S):A1((LL)(LL0))S90(LL):A1R(A1):1250:1200W2(LL0):A190A1180A1:W3W:2:1550::"-----------------------":"DAY OF THE YEAR------------ ";D1 "SUN'S GEOCENTRIC ANGLE----- 020:I$"N"720J4D2((M$,(M3)2,3))D:1640:M2D1D1LY:Y1Y1LYt>D3D2185:M3D20D2D2LY:D3D3LYHS0:D30A180D2185:860RA180D3(180ZY)180\A180S23.43333333((D9D2180185))fA180S23.43333333((D9D3))M1,2)):DIDI(M2)LY:DI$(DI):DI$(DI$,2)^:"DAY (1-"DI$") ";:2240:I$""D(I$)vD1DDIĺOO$:770 H$(A$,(M3)2,3)" "::"LATITUDE (0-90)";:2240:I$""LL(I$)4500(LL)90ĺOO$:780 :5:1670:1295:1550:::2"********** SKYSCAPE **********":4:"DATE INPUT"X"----------":Y0Ģ6:1550::}"YEAR ";:2240:I$""Y(I$)Y1977ĺ"MUST BE AFTER 1977":7401600::"MONTH (1-12) ";:2240:I$""M(I$)M1M12ĺOO$:750/DI((MD$,2MT)(T4PT)640v3(T4MT)(T4K1)680ET4T4K1:680a(T4MT)(T4PT)ī680gY9((T4MT)18.5):Y940Y939U9((T44)(1D9)):U9(3U9.5):MM((MM$,3MM2,3)):LL0MM81MM(MM81)3:2:7:U9:40Y9:(PP(X));!0X:V:20:1:"VMERCURY WVENUS XMARS YJUPITER"D"ZSATURN [URANUS *SUN )Q(MOON"N3::"Q";::"NEW MOON + SUN "B$X:"T- NEW TIME,P- P. TABLE,D- DATE,L- LAT";:1700bY9999:MTPT660l(T4.5ĝ:40Y9:(81);:.X17:X72140MT4P(X,6):610:Y9999560xU9((P(X,6)4)(1D9)):U9(3U9.5)4005:U93U916560SR((U91)8):Z(1024SR984(U91)12839Y9):Z127ZZ128!Z32Z45U9U92(LL0)1:540&OWN-NORTH""T4AA:610:Y88882Y9999450L4000:Y8Y9:A10450`U916U93450vU9:40Y9:(42)T4AAM2K1:T4K1T4T4K1610:Y9999500MM(M19.83333)1:7104000:U916U93500U9:40Y9:(MM);:(Y8Y9)380 r40);:390F |" - - - - - - - - - - - - - - - - - - - ";` X::200::LL0395 LL24ĺ"E"18)"S"19)"W":400 "UP-NORTH"5)"----OVERHEAD"5)"DOWN-SOUTH":400 LL24ĺ"W"18)"N"19)"E":400 "UP-SOUTH"5)"----OVERHEAD"5)"D"TIME-- "R$":"T$+ ":2020:I$"N"230S ,:T3T160T2AA720:T30T3T3K1g 6T3K1T3T3K1 @MTT3360:MT0MTMTK1 JPTT3360:PTK1PTPTK1 T4:1550:31:R$":"T$ ^TM(R$"."T$):TM6TM18Ğ hXX7LC:3:1:X114:XXXī:"T$6 5:1:"INPUT THE TIME:":"---------------"i :" HOUR (0-23) ";:2240:I$""T1(I$) T10T123ĺOO$:245 :" MINUTE (0-59) ";:2240:I$""T2(I$) T20T259ĺOO$:255 R$(T1):T$(T2):(T$)1T$"0"T$ 13:(X,5)(XX(XXXX1))(1)2:P(X,4)(P(X,4)93.5):P(X,5)P(X,5)D9{VP(X,5)S(P(X,5)):Q1$(P(X,4)):Q2$(P(X,5))`Q1(Q1$):Q2(Q2$):1410jP$(X);14Q1);Q1$;24Q2);Q2$;:Q31ĺ"@W";tQ31ĺ"@E";~1460:Q4$(Q4):Q5$(Q5):Q510Q5$"0"(Q5$,1)<Q5$(Q5$,2):Q4$Q4$":"Q5$:Z(Q4$)q28)QQ$36Z)Q4$::14:"* - VISIBLE AT 9 P.M."17:"SUN'S R.A.--------"Q8)A3$:"R.A. AT 9:00PM ---"Q9)A5$21:"-S- FOR DAYS SKY -D- FOR NEW DATE":1700A2K1A360:A2K1A2A7(8:"ENTER NEW LATITUDE";:2240:I$""LL(I$)P((LL)90ĺOO$:4560g(2020:I$"N"4550~(4500:I$"S":1720(CI1:C2$""(C1$(CD$,CI,1):C1$" "5030(C2$C1$C2$:CICI1:5040(C1$(CD$,CI,2):C2$C1$C2$:CICI2)CI41'LL0U9LC9U9:40086'U9LC9U9:Y939Y9<'X'LL$"@N":LL0LL$"@S"r'L1(LL):L124L140'LC((L140)7.5):D1((D$,(M3)2,3))D'':2:7:"********** SKYSCAPE **********":4:"LATITUDE CHANGE"("---------------"H1):H1H1HDI&T4HC(HD)HC(HD1):T4HC(HD)H1T4:T41440T4T41440^&610:Y9999560&700:T41115T41200U9U91&T41290U9U91&T4615T41115U9U92&U(7)U9:B$(PP(7))"HALLEY'S COMET":530&I$:&17:CD$;:'700M114.2M34*%*M114.2M115.2M35D%4M115.2M121.6M36`%>M121.6M122.6M37{%HM122.6M128.5M38%R%\B$"":Y1985Y1986560%f(Y1985D1305)(Y1986D1149)560%pHDD1365:HD516HDHD365&zH1(HD295)10:HD(1260=$ 1238,1220,1200,1178,1115,915,720,660,640,625,610g$(17)::7:12:"**** SKYSCAPE ****"m$$"-N- TO RE-INPUT OR RETURN TO CONTINUE"$I$:$M2M1M9:M11M128.5M31$ M11M16.9M32$M18.0M16.9M33% M18.0US",19.182N#b "SA","SC","LI","VI","LE","CA","GE","TA","AR","PI","AQ","CP"#l "NEW","WAXING CRESCENT","1ST QUARTER","WAXING GIBBOUS","FULL"#v "WANING GIBBOUS","3RD QUARTER","WANING CRESCENT"$ 1770,1719,1620,1500,1418,1365,1335,1310,1290,1275,D$(CD$,2,40):O" 365.26,29.53059,59.818184,42.719626,262.3644,52.916763|" 134.69697,218.79464,87.97,224.7,686.98" 4332.79813,10759.7195,30686.5884" "MERCURY",.3871,"VENUS",.7233,"MARS",1.5237,"JUPITER",5.2028 #& "SATURN",9.5308,"URAN14550!1700.!P51.376344086:K5A24q!K5(K51233.73)90K1:K5K5D9:K5(K5).322581224:P5P5K5:!CC1CCCC84!CD$(CC$,CC1)!(CD$,2,1)" "(CD$,3,1)" "CD$" "CD$!(CD$,41,1)" "(CD$,42,1)" "CD$(CD$,2)"CY9400)ZY0> |Y91000(Y91000)Y94000(Y94000)ZY0n Y1Y1977:Y1Y1365(Y14)D1:Y20001690 Y1Y1((Y2001)100)((Y2001)400)((Y1)4000)  I$ I$"D"720 (I$"S"I$"T")S11230 I$"P"1010 !I$"L"S13$":"(A4$,2):A5$(A5):A5$(A5$,2)":"A4$N6Q87(A3$):Q97(A5$):h@LY0:Y4(Y4)LY1JY100(Y100)Y400(Y400)LY0TY1000(Y1000)Y4000(Y4000)LY0^hY9Y1:Y94(Y94)ZY1 rY9100(Y9100)Y9400(X,6)PSP(X,6)MS1540&QQ$" ":DP(X,6)K1P(X,6)MS1540XP(X,6)PS1540b1500pQQ$"*":K$"-- "H$;D","Y;" ";:LL10ĺ" ";(LL);LL$;:A3$(A3):A3$(A3$,2):A4$(A4):A4$(A4$,2)"A410A4$"0"(A4$,1)0,A3$AA2Q11330x9Q5Q3P(X,5)4AA:Q50Q5Q5K1MQ5K1Q5Q5K1P(X,6)Q5:Q4(Q560):Q5(Q5Q460.5):Q560Q50:Q4Q41Q424Q40SUA560A4:PSSU360:MSSU360:PSK1PSPSK1MS0MSMSK1MSPS1510P(60M8 M1R(M1):M8R(M8)HYY(7(Y17(Y17)).2):YY0YY7bK$(J$,(YY3)2,3):Q30:Q1E180:Q13601350(A2EA2Q113402Q31:<Q31:FQ1Q1360:A2360A2E1340PQ30ıZA20A2Q11340dQ30ın2K1:A3(A260):A4A2A360:A5A39:A523A5A524dA4(A2A360.5):A460A40:A3A31tA324A30AAA360A4:1560M1((Y1M9)(Y1M9))M910:M1M9M1M1M92050:M8360M2:M8180L$"W"M8180L$"E"M8180M835010)CD$C2$:I$C2$: 5010(CD$C2$: OMD9{5EE6GM9l>- (X8H (Yx J F CñFR@ TG IBLYMDIxD@DH<LLL&L1 LCD1dHCz]@VJ;1@*&#!@`@ `d4% @D( PoE*変./SlZm/׈`33+Rfb `%`,%0a %%# > v 6 3/%+d%% a L[f% ͬ%%d% L| % % ?&" %0:$&ڙ ˩ L} %`e%ie% ( `x8  5% %%ȱ ̜%<%#)?'L '< ` *%JJJJ%. %̜%学% .Ȯ%0 ̜% ?.5 Lȱ5*Ȫʽ. 90ʝ1% J"%-%c%(%%8%L.%c%%%% -%(%% ̜% Lv N%%L * -%c%%(̞%L e%%mc%c%3'f%mc%(L c%m%-%(`(8c%%")"(c%%(ୠ%%%6$ > v{ 6 mi#) % %%%A%#_%`%) #ȥiil8  L 8  % %L| %%c%d%e%i%f%%%̡%?%i8e%")"(8  Lg%pl%8%02譝%) (f%Jʩ (%f%mc%c%f%mc%%ʎ% (`((` ?=&%%% %#%  b >L| LJ2%f%m%%%莬%`,%0a %% $ > % LCRL #)% %%L/ ,%0a %Dž`%b%d%e%` ( L %"(")e%%%%i%%i%آ %i%%i%%%"(") `%i0(ȭ%)JJJJi0(ȭ%)i0(`"(") (ȑ(ȑ(Ȯd%c%f%%Jiʩ (% #)?(Ƚ#)?(Ȯ%%ά%w<ʽ%%Еʊ H H`<)%`" L " % Y L| a " ,##kl `_%jlmnopqrstuvwxy X " Lu%I%`, )``Hh`  ` 률` o ($%) `2f%(%` (` L # > 8  L2L@ <v%ߙ  %ߙL %L %%% ݕ ,L:  3020832080L" Xa% I9786%i`%iOl_%a%k"%b% a # > % H | hݬ L7 ʊ H{HHH`  ! # 1234567890+-.  N21 7C> "" ##.#:# K#Y#>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m}(ŏo-CF19*0UC&}Vm~($tjP( O"_"m"{"""PP> ,.02468P(e%e% ( `2#%d%d%}f%% `d%d% `# > r N8A0IC% 98@042.m%3&%  J 6 ɰ e%LL| e% %ͬ% %d%Ld% " L| d%e%d%e% " `d%e%` % % % (L"j%jL"%v%݂莙% HHL]!h% %ʊ HH` AACEILSSSTSABTOXNOGIQAUVSNSPTGNNRNME"@9 d%% :? d%% ), %%L"%%L"ȥ%%`L"  %%`ʆȅjfeʊei&m`%(`()%)%ȱ%8` n%2%%ȥ % %ȭ%Ȣ̜%L -!%%8%m%%%%Ƚ̜%ȥ % %ȭ%Ȣ%m% ɸȥl`# > % YLL| %%  %%%%%%L"H%%%%%%%%hA0 @0e3 J 6 Ќɰ8  %L%*̜%HH hh%%  %%%%%.E.%0%Ƚ%` o )($a%8b% \` 4 T `) ȱLȱei 88 _%`%"8%ȱ %8ȱ## ` `" "N='LR%%3 %  #%Lm)% b >`%ʽEx%80%80%i %%-LE.񈌫%%8%%.E0%%`Ι̦% 'eiɻL `$T T  X " L| #`%9 > %%_%`%5)&8  %%ȱ̜%% b iв3Ц%%8  L| n  ȑ >`# > ,%0a %0#I q`%%` `HH ʁL8HH whhhh Lhh``L X Q)Ȍ/ U q Xȱ4L %)莦%ȱ ilѩ +kl + L$ > rL| L@ ` Y   2 f%    Lokl  L %JL> `%' > ` o $() %1 >  `  b e L L%͠%J%%%%%%%% %͵%%%%Ͳ%θ%κ%%%%%L%%%%%%%% %ͱ%η%ι%%Ͳ%θ%κ%%%%%LD$ > rL| L@ + + + +2f% +_%`% + + +ȱ +iL/ 0 0 0 Li%%`%x%`%8%m%%%8%m%%%͡%L%͠%J%%%%%%%% %͵%%%%Ͷ%%%%%%%L%%%%%%%% %ͱ%η%ι%%Ͷ%%%%%%%ѹ%%  n  ȑL%0`%`%8%%%8%%%% 0 L%@LCB% Af[b8@m%3Wm%AB8i@% 0% 0 3 J 6 )%ɰ!m% 4 0 Lo%% A%%%% K%%%% $b > =%%L| $ > LR$ > % ݆LRʊ HQHHH`hh%%`  7 x%3[%ɰT%%8  E% %%Ȣ̜%% % %%  b `%#%8%0譝%)  'JLB N%%Ϯ%*%̜% %L% L % % % %% X " L| H%hLhL+,%0a %%%%%LL| ,%0a %%%%H(%%  ` %% ⥪E ."` X%,%0a %0L$ > % S DP!L%5%% > r !L$ > % 80LL%$ > % mP %%%% f%%ʩ 8  XB)8ȱ%ȱ̬%HH hh%`%%  L"%%`8` ABТ% A[8@m%3% J 6 Уɰ%`%%  G r륢HHHHHH%% h%hhhhhhE m% i `ȑ${ > d%e%L|%()%L"H Q-M+I.EP%(A B@L" HL!HL]! L! IL"! L!Iڡ J x+5-0*+/&^!)L"hH T"L!L!LShH## T"hH## r륢HHHHHHHL]!XLihH T"L3"h 4%LthhhhhhhhhE HH #H #H`%%#` & eL((((P0A$FS$JJ1:9806A$ESC$600:MAIN MENUGA$"C"1010P920^J0JNClJNCJ0u900EDIT CODE I,J3450:Z$"ENTER NEW DESCRIPTION":342010:2:CLRLN(("A")J),"";CODE$(I,J)$860:NEXT CODE.3420 >8'H"CODE","DESCRIPTION"/RJ0G\3450:CLEAR BOTTOMof"PRESS <-- OR --> FOR OTHER CODES"p" TO CHANGE"z" FOR MENU"10:2:CLRLN(("A")J),CODE$(I,J)10:A$A$BS$JJ1:98203450:SET SCREEN6EDIT TRANSACTION CODES^:Z$"EDIT TRANSACTION CODES":3420d Z$"WHICH TYPE CODE":3420Z$"PRESS 1 OR 2":3420 A$:A$"1"A$"2"600:MAIN MENU*I(A$)14:Z$"EDIT TYPE "A$" TRANSACTION CODE":RANSACTION"2 " 3","FIND/CHANGE TRANSACTION"Q " 4","SORT TRANSACTIONS"k " 5","PRINT REPORT"q  "","SAVE CHANGES/EXIT" A$:(A$"1"A$"5")A$ESC$710 A$ESC$3200:SAVE TO DISK AND EXIT(A$)750,1070,1250,2030,22MENU NEW LEDGER &N 0Z$"PUT FORMATTED DATA DISK IN DRIVE 1":3420a :Z$"AND":3420 DZ$"PRESS ":3420:A$ NNR0:NT0 XMAIN MENU b l"PRESS","TO" v"-----","--" " 1","EDIT TRANSACTION CODES" " 2","ENTER T":3420! 3450:CLEAR BOTTOM+ A$:E D$"OPEN LEDGER.DATA"_ D$"READ LEDGER.DATA" I01:J0NC:CODE$(I,J):: NR:TRNR NR510 I1NR:RD$(I): D$"CLOSE LEDGER.DATA" RN1:SET CURRENT RECORD NUMBER 600:MAIN -"' 6" 1 USE EXISTING LEDGER"H @" 2 SET UP NEW LEDGER"P JA$` TA$"1"380p ^A$"2"540y h330 r290 |EXISTING LEDGER  Z$"PLACE YOUR DATA DISK IN DRIVE 1":3420 Z$"AND":3420 Z$"PRESS TO CONTINUEz|}~E ESC$(27)1 MR400: MAX NO OF RECORDSI NC25:NO. OF CODESb CODE$(1,NC),RD$(MR) LD8:LC5:L18:L28:LP15:LS15:LM10:DEFAULT REPORT FORMATTING WIDTHS Z$"YOUR PERSONAL LEDGER":3420 10 ""PRESS TO" ,"----- -1dCLRLN868:CLEAR TO END OF LINE SUBROUTINE`nCS958:CLEAR TO END OF SCREEN SUBROUTINExB0$"":B1$" ":B20$" "D$(4):CTRL-DQU$(34):QUOTER$(13):RETURNBS$(8):BACK SPACE FS$(21):FORWARD SPACԠϺάˠҠҿźϠҠǮԠàӠźĺԺԬҬҠԠٿԺƠ̠ӺӠǠԠȠ͠ϠҠŠҠϠРԠƠנŠҠϠ͠ԠƠǮԠPPP<"<"-"NTF,@@AAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGBHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBX*ERROR*ԺŠՠŠٯΩà٠Π׺ŠՠŠٯΩȺϺΠENTER TRANSACTION%8TRMR1120+B`LZ$"THERE IS NO ROOM FOR ANY MORE RECORDS":3420wV:3530:600:MENU}`jZ$"ENTER TRANSACTION":3420t3540:ENTER DATE~3660:ENTER CHECK NO.I01:3730::ENTER CODES 3930:ENTER SOURCE/PAYEE*4000:ENTER DESCRIPTIONB4070:ENTER AMOUNTL3450tZ$"PRESS TO ACCEPT":3420~3480ACCEPT ENTRYNRNR1:TRTR1:RNTR:4150FIND/CHANGE TRANSACTIONNR0600:MENU4190:RETRIEVE RECORD RN)A$:A$;:T$T$A$::! 2 I01T < VT8:HT1:3460:Z$"CHOOSE CODE "(I1):3420 F 3450:Z$"PRESS TO ACCEPT ALL CODES":3420 P Z$"OR":3420 Z Z$"PRESS TO CHOOSE PARTICULAR CODE":3420 d A$:A$R$A$"C"2660!n C(I)1:A$R$C> TO CHOOSE PARTICULAR DATES":3420C A$:A$R$A$"C"2540[ D1$B0$:A$R$2610| 3450:"FROM:",:2590:D1$T$ "TO:",:2590:D2$T$ 2610 T$B0$:"MONTH (MM): ";:2600::,"YEAR (YY): ";:2600::T$(T$,2)(T$,2): ( II12:  13:CS:"DESCRIPTION",LSC "";A$:A$B0$LS(A$):2440\ 14:CS:"AMOUNT",LM "";A$:A$B0$LM(A$):2460 3470 :Z$"SELECTION":3420 3450 Z$"PRESS TO ACCEPT ALL DATES":3420 Z$"OR":3420& Z$"PRESS <2340%8 9:CS:"CHECK NUMBER",LCHB "";A$:A$B0$LC(A$):2360aL 10:CS:"CODE 1",L1V "";A$:A$B0$L1(A$):2380` 11:CS:"CODE 2",L2j "";A$:A$B0$L2(A$):2400t 12:CS:"SOURCE/PAYEE",LP~ "";A$:A$B0$LP(A$):2420A$:A$R$A$"C"2270)A$R$2490<CHANGE FORMATo:Z$"PRESS RETURN TO ACCEPT EACH FIELD":3420 Z$"OR":3420 Z$"ENTER NEW FIELD WIDTH":3420 Z$"WIDTH = 0 ==> OMIT FIELD":3420$ 8:CS:"DATE",LD. "";A$:A$B0$LD(A$):1)RD$(I2):RD$(I2)T$/zI2I1:I1I11:21409JJ1@IJTRNRY600:MENUeREPORT:Z$"PRINT REPORT":34203450:Z$"PRESS TO ACCEPT DEFAULT FORMAT":3420Z$"OR":3420Z$"PRESS TO CHANGE FORMAT":3420B0$II1:20604I1RD$(1)RD$(I):RD$(I)B0$N NR1TR1:600:MENUi*J2:NEXT RECORD PLACEu4I2NR>RD$(J)B0$JJ1:2110HIJRD$(I)RD$(J):RD$(J)B0$RI1I1:I2I\I102180fRD$(I1)RD$(I2)2180pT$RD$(I1):RD$(I"DATE:",DT$,"CHECK NUMBER:",CK$VI01:"CODE ";I1,CODE$(I,CD(I)):Io"SOURCE/PAYEE:",PY$"DESCRIPTION:",DC$"AMOUNT:",AMT$D$"PR#0"1250:FIND/EDIT MENUSORT TRANSACTIONSNR0600I1:RN1 RD$(I)ETE":3420&Z$"OR":3420K0Z$"PRESS TO ABORT DELETION":3420i:A$:A$R$A$ESC$1850{DA$ESC$1250NRD$(RN)B0$XNRNR1bNR0600lRNRN1:RNTRRN1vRD$(RN)B0$19001250PRINT RECORD RN:D$"PR#1"A$"C"İ4070'4150:STORE RECORDA1250:FIND/EDIT MENUn3450:Z$"PRESS TO CHANGE "Z$:3420Z$"OR":3420Z$"PRESS TO ACCEPT":3420A$:A$R$A$"C"1790DELETE RECORD 3450:Z$"PRESS TO DELATE":1760JA$"C"İ3540:TZ$"CHECK NUMBER":1760L^A$"C"İ3660WhI01srZ$"CODE "(I1):1760|A$"C"İ3730IZ$"SOURCE/PAYEE":1760A$"C"İ3930Z$"DESCRIPTION":1760A$"C"İ4000Z$"AMOUNT":1760A$ESC$6001400J3450:"JUMP HOW MANY RECORDS (+/-)? ";A$iJ((A$)):ST1:J0ST1}J(J):J1350I1JRNRNSTRNTRRN1RN1RNTRRD$(RN)B0$1530"I,1250:FIND/EDIT MENU6CHANGE @Z$"D-->"&Z"HANGE UMP"Hd"

RINT ELETE"ln"ENTER MENU"txA$A$"J"1490A$BS$ST1:J1:1520A$FS$ST1:J1:1520A$"C"1590A$"D"1810A$"P"1930A$"E"1070:Z$"FIND/DISPLAY TRANSACTION":3420A 3620:DISPLAY DATE^3720:DISPLAY CHECK NO.I01:3920::DISPLAY CODES (3990:DISPLAY SOURCE/PAYEE24060:DISPLAY DESCRIPTION<4140:DISPLAY AMOUNTF3450P"<-- 2800#!x 3450:Z$"<--,-->":3420K! Z$"PRESS TO ACCEPT":3420S! J0|! 8:1:CLRLN:(("A")J),CODE$(I,J)! A$:A$BS$A$FS$A$R$2720! A$R$2790! A$BS$JJ1:2760! JJ1! J0JNC! JNCJ0! 2710" C(I)J " I" :D$"PR#1"#" A0C" "PERSONAL LEDGER REPORT":" D1$B0$ĺ(D1$,3,2);"/";(D1$,2);" TO ";(D2$,3,2);"/";(D2$,2):"" I01", C(I)0ĺ"CODE ";I1;": ";CODE$(I,C(I)):"6 I"@ LDĺ("DATE"B20$,LD);B1$;#J LCĺ(B20$"CHED$,7,5):CHECK NO.O0II01:CD(II)((RD$,12II,1))("A")::CODES 1 & 2r0PY$(RD$,14,20):PAYEE/SOURCE0DC$(RD$,34,20):DESCRIPTION0AMT$(RD$,54,9):AMOUNT0UNT/6STORE RECORD RNt/@RD$(DT$,7,2)(DT$,1,2)(DT$,4,2)CK$(CD(0)("A"))(CD(1)("A"))PY$DC$AMT$/JRD$(RN)RD$/T/^RETRIEVE RECORD RN/hRD$RD$(RN):RECORD DATA/rDT$(RD$,3,2)"/"(RD$,5,2)"/"(RD$,1,2):DATE0|CK$(RN:"DESCRIPTION:",DC$:+.ENTER AMOUNT7.VTAB14D.WIDTH 9d.3450:"AMOUNT: ";A$:3450.A(A$):A1(A):A2(100(AA1).1).A2$(A2):(A2$)1A2$"0"A2$."AMT$(B20$(A1)"."A2$,9)/,14:1:CLRLN:"AMOUNT:",AMT$::DISPLAY AMO -x3450,-"SOURCE/PAYEE: ";A$:3450B-PY$(A$B20$,20)-12:1:CLRLN:"SOURCE/PAYEE:",PY$::DISPLAY SOURCE/PAYEE-ENTER DESCRIPTION-VTAB13-WIDTH 20-3450-"DESCRIPTION: ";A$:3450-DC$(A$B20$,20).13:1:CLRL420 ,A$%,A$BS$JJ1:3870=,A$FS$JJ1:3870M, A$R$3900W,3820e,J0JNCs,(JNCJ0},23810,<ACCEPT CODE,FCD(I)J,P10I:1:CLRLN:"CODE ";I1;":",CODE$(I,CD(I)):,ZENTER SOURCE/PAYEE,dVTAB12-nWIDTH 20$::DISPLAY CHECK NO.)+ENTER CODESD+I=WHICH CODE (0 OR 1)W+VTAB 10 OR 11d+WIDTH 1n+3450+Z$"CHOOSE CODE "(I1):3420+22:Z$"PRESS <--,--> OR TO ACCEPT":3420+J0,20:CLRLN:Z$(("A")J)" "CODE$(I,J):3 *3450;*$8:1:CLRLN:"DATE:",DT$::DISPLAY DATE A*.]*8A$:A$"0"A$"9"3640s*BDT$DT$A$:A$;:*LENTER CHECK NUMBER*VVTAB9*`WIDTH5*j3450*t"CHECK NUMBER: ";A$:3450*~CK$(B20$A$,5)+9:1:CLRLN:"CHECK NO:",CK) A$:A$R$A$ESC$35008) A$ESC$ġ:600:MENU>) s) 22:Z$"PRESS ANY KEY TO CONTINUE":3420:A$::) ENTER DATE YY/MM/DD) VTAB 8) WIDTH 6) 3450:"DATE: ";) DT$B0$)J12:3640:3640:DT$DT$"/":"/";:*3640:3640216,0:3200:ERROR TRAP -- BACK TO CHOICE@(\ CENTER DISPLAY`(f TB20((Z$)2):TB1TB1n(p TB)Z$:}(z VT18:HT1( HT:VT:CS:HT:VT:( Z$"PRESS TO CONTINUE":3420( Z$"OR":3420) Z$"PRESS TO RETURN TO MENU":3420ATA")' I01:J0NC:CODE$(I,J)::1' NR?' NR3360H' I11T' I1NRs' RD$(I1)B0$I1I11:3330' QU$;RD$(I1):I1I11' ' D$"CLOSE LEDGER.DATA"'* 216,0:RESET ONERR'4 :Z$"PRESS TO EXIT":3420'> 3480'H ,(R "TOTAL: $";A1$;".";A2$B&l D$"PR#0":RESET OUTPUT TO MONITORQ&v 600:MENUh& SAVE ENTRIES/EXITn& & Z$"PRESS TO SAVE CHANGES":3420& 3480& :Z$"SAVING CHANGES":3420& 3410& D$"OPEN LEDGER.DATA"' D$"WRITE LEDGER.D0))B20$,L1);B1$;;% L2ĺ(CODE$(1,CD(1))B20$,L2);B1$;X% LPĺ(PY$B20$,LP);B1$;u%& LSĺ(DC$B20$,LS);B1$;%0 LMĺ(B20$AMT$,LM);B1$;%: %D AA(AMT$)%N RN:RNRT%X A1(A):A1$(A1):A2$((100(AA1).1)):(A2$)1A2$"0"A2$&b :ECORDS#$ 4190:RETRIEVE RECORD5$ D1$B0$3020L$ (RD$,4)D1$3150c$ (RD$,4)D2$3150t$ C(0)03040$ CD(0)C(0)3150$ C(1)03060$ CD(1)C(1)3150$ LDĺ(DT$B20$,LD);B1$;$ LCĺ(B20$CK$,LC);B1$;% L1ĺ(CODE$(0,CD(CK",LC);B1$;0#T L1ĺ("CODE 1"B20$,L1);B1$;R#^ L2ĺ("CODE 2"B20$,L2);B1$;z#h LPĺ("SOURCE/PAYEE"B20$,LP);B1$;#r LSĺ("DESCRIPTION"B20$,LS);B1$;#| LMĺ(B20$"AMOUNT",LM);B1$;# :# RTRN:RN1TR$ RD$(RN)B0$3150:SKIP BLANK R XM% ^$ $ɱ ɸ)L! +'8n,'"'!'""!' ) "' ""' '$'&' ""%' Xʅ%%$ f$,,'0L'$,&'L"% $$!' (% $"' (% $" j#(" ,$'0,%'0 &L u&L &$% f$700:19:14:"EDITING BOX ";Ar "PRESS ESC TO CANCEL":7:"RETURN FOR SAME"::"STORE RESULT IN BOX ";:R$"" XC21(R$):23:XC:";"; "C(49152):C128290 ,49168,0:C141C155Ģ23:XC:" ";:360 6C136C255340 @23:XC:" ";:):C1281806 49168,0:C136FF120(F1):170V C149FF120(F20):170p CC175:C1C22180~ C11250 C18180 CC7 MQ0:C260,1120,1210,1500,1510,1520,1660,1670,1680,1690,1370,1250,1470,1460,1440:T(0):170 560:BdE%(2,23),M$(8),CM$(7),MM$(14):D$(4):D$;"BLOAD ANIMATOR2"ynI08:M$(I)::I07:CM$(I)::I014:MM$(I):x530A$"":I172:A$A$"0 ":A(0):650:590F1:AB1:AE20:AS0:AP101390710:MQ1ė:: C(49152Ӡ٠٠ϠŠĠàŠˍˠԠˍŠɠ؍РԠˠؠԠɠ Ϊɠ ƪؠӠڠϠŠԠŪŠՠŠՠԠϠŠٯΩ˺Ҡ $I i8n#')``!@!!!!""9"9"G"G"k"k"]"]"]"##ɋʈ˕͊ԠԠӠҠҍĠϿŠŠŠŠ̠ŠΠϠΠԍϠҠӠĪԠĠˍŠ $` ` #$('H i h(`'H)' #$ ' ' $'')')h'L #'Lk$#' $',#'*'$''I'0$ȱ'ɍL$' $'`ȱ' ɍ`H% h` $,#'0 ' % '` $$`(` $)`,,`n#' ,+'L 6''6+' 789 $""" j#&")jjjj j#&" j#&& f$Ly#) 08 ` `T  )   $iiLy#''6Lo X`') ei$')xJJJi%" "n,'L  "n,'&$% f$ $`'8' LP"'' I,')(Lo 'i')xLr"'') ')Lo L 'I 'ILo $'I$'0%'I%'L &' # $$%& f$,$'0#' $ɚ"-%'L" $H$(h,#'0 ' $Ll"&'L$% $ # $#' $:% Ⱦ:%L!H$(h ȹ%H%H`$% $ $ ,#'0"'L}!L $% $ $,#'0!'!' ) "' "L $% $ $,#'0' $,#'0ߍ"'"L "n,' ""' 'Lo &$% f$ &`( $ (R$)2R$"":280. JR$(R$,(R$)1):280C TC176C185290u ^23:XC:(C128);:R$R$(C128):Q(0):280 hC155İ660: rR$""AAA:390 |AA(R$):AA20İ660: ::1070 XP184:YP44:DX65:DY80:980! 7:Q08:28::("123456789",Q1,1);::" ";M$(Q):I 32768,A,206,12:XC0:YC0:QF0:870X QFİ590: SC(YC8):SA1024YC128SC984XC:CC$" " OC$CC$:CC$((SA)128):XC1:YC1:OC$; C(49152):C128T(0):450 49168,0:OC$" "ĖXC1:YC1:CC$; BOXES";:1160:C2061490/700:650:520:660:EABF:PAEF:hAAB:QF0:AR0:AX032771,AO,60:32768,A,AX,60:AOAX:QF1ıC(49152):C128Ĺ49168,0:1600I0AP5::ARARAS:AR259AR0AR0AR259"AX2(AR2"AN ERROR HAS OCCURRED"Ex"MAKE SURE THAT YOU HAVE A FORMATTED"_" DISK IN THE DRIVE":"PRESS ANY KEY TO CONTINUE"W$:590:170700:19:10:"QUIT ANIMATOR";:1160:C217MQ1:660:32736:520700:19:9:"CLEAR ALL0 -(T(0):C$:C$(13)C$(27)ıZ2C$(127)C$(8)N$N$C$:C$;:1320j<N$""1320F(N$)14:" ";:(N$)14:(N$)1N$"":1320PN$(N$,(N$)1):1320ZF$"LOAD":1270:(N$)0ĺ:D$;"BLOAD ";N$;",A$84C4"d590n:32777,20:A$:32780:AA20:500:/660:oF$"SAVE":1270:(N$)0ĺ:D$;"BSAVE ";N$;",A$84C4,L$5E8"x590::2:"ESC TO CANCEL, RETURN FOR CATALOG":F$;" FILENAME:";:N$"" 1320:C$(27)N$"":N$""ĺ:D$;"CATALOG":128A1t242,0:32777,A:A$:32780:AA20:500:<~660:N" -REALLY/";iC(49152):C128117049168,0:C206ĺ"NO":C217ĺ"YES":1170560:700:19:10:"DELETE BOX ";A;:1160:C2061240700:A20Č32786,A$242,0:27:"ONE MOMENT";F832774,A:I023:J02:"";E%(J,I):::32780eB:I023:J02:OE%(J,I)LQ06:T(O2):(4613(OT2));:OT:::I23ĺV:27:1:10):`560:700:19:10:"INSERT BOX ";A;:1160:C2061150j700:A20Č32783,242,0:32777,AA@I023:J02:E%(J,I):::32780:p:I023:J02:O127E%(J,I):O0OO256E%(J,I)O:Q06:T(O2):(4613(OT2));:OT:::I23ĺ:242,0:32777,0:1010:32768,0,206,12:$32768,A,206,12.1:5P1127P0*C3P0P0128:P1P1128iTT(T2):I023:I1:1:E%(0,I)P0:E%(1,I)P1:E%(2,I)P0J110:("..;.;;",T1,2);::(".;",(T1)1,1);::P01:XPP,YPPXPDXP,YPPXPDXP,YPDYPXPP,YPDYPXPP,YPP::QF1:1000:60:29:10:"@";:790;zXP149:YP140:DX128:DY40:980|I03:19I:J01:239J::IJ4;::" ";CM$(IJ4);::C(49152):C12891018:I05:22:19)::49168,0:CC176C0C7ı TC4(C4):P042T(T1):P1P0:P042P08PM):DF800,820:M T2(T2)E%(XB,YC)E%(XB,YC)PM:XC1:YC1:";";S*4T2(T2)E%(XB,YC)E%(XB,YC)PM:XC1:YC1:".";>HQF1:RDF1:860:29:8:"@";:790\8:I13:29:" "::fDF0:860:29:9:"@";:pDF2:81:1:"FRAME ";F;" ";E10:"RANGE ";AB;" ";:18:":";AE;" ";v22:"SPEED ";AS;" ";:32:"PAUSE ";AP;" ";|XCXC(XC0):790XCXC(XC20):790YCYC(YC0):790 YCYC(YC23):790XB(XC7):PM2(XC7XB):T(E%(XB,YC)103:IJ10:: 520:660K242,0:32777,0:I020:A$::32780:r700:XP2:YP140:DX275:DY48:98019:I04:2::I;::" ";MM$(I);:17::I5;:" ";MM$(I5);:32::(65I);::" ";MM$(I10):1:18:Q17:40)::002:!&:(4);"PR#A$7E10":+0AF:\:580:1:"WHICH BOX?";A:A(A):A1A20570oD22:1:39):zN::3XJ2510580:I3I92828:P01bIP,JPI22P,JPI22P,J25PIP,J25PIP,JPl::vJ01:I110:I42:J1 Q113:C(("JLIK123456789",Q,1))128Ăt Q750,760,770,780,840,850,870,880,890,990,1020,1050,1060:430 IA2824280(A10):J2680(A10):32768,A,I,J X(0): A120:500:: 6,0:7,126:(48640)7655054,16:55,126:1):AEABAA1:AAEAAB7,AEABAA1:AAEAABA61530R@C1601630iJ(49152)1281610xT49168,0:^C136İ1670:710hC149İ1660:710rQF1:|ASAS(AS15):ASAS(AS15):APAP(AP0):APAP(AP150)::QUIT,DRAW,MOVE,ERASE,CLEAR,SAVE,INVERT,UPDATE,REVERTtBLACK1,GREEN,PURPLE,WHITE1,BLACK2,ORANGE,BLUE,WHITE2EDIT FRAME,INSERT FRAME,DELETE FRAME,RANGE BOTTOM,RANGE TOPANIMATE,FASTER SPEED,SLOWER SPEED,LESS PAUSEMORE PAUSE,LOAD,SAVE,200,192,14,208,244,165= 105,133,175,165,106,133,176,96V  1,0,14,28,42,1,8,3m  8,3,8,3,8,0,32,0  32,0,32,1,32,3,32,3 " 32,3,32,0,64,0,64,0 , 64,1,64,3,64,3,64,3 6 64,182,106,182,106,182,106,183 @ 106,185,106,185,106,185,106200,192,14,208,244,173,0,192C 201,128,144,249,141,16,192,170e 41,15,240,241,201,5,176,237 72,32,58,255,169,163,32,237 253,138,32,237,253,32,142,253 104,170,142,195,149,189,195,149 170,160,0,189,200,149,153,103 0,232, d8192.nI3825138399:A:I,A:XXA:[xX16759ĺ"ERROR IN DATA STATEMENTS.":w8192,0:8193,0:8194,016384,0:16385,0:16386,0:27318,0:27319,0:27320,0: 174,195,149,189,195,149,170,160 0,185,103,0,157,200,149,232 (m`         ``$ͽ8.Nmm` ` ᥡ``8967`č ` @ .mm`Ȍăăă ăă >Ń춃묶ă -ă`т1ăă؂1 ă`~|xp`@?)?),pi(iTUčno` ,ƒ0LɰɺFHÃ8n5 D iyă8̶TUčnoÃh`no`6767` 8ƁγƁ́H` .HLLULLLLLҁ 0 G+ & ߂ _ iε` G ă ߂ ε`89ɺ89 yƒ  ŀƀ` (0dd  i0ŀƀ` yƒ 怀憆澀澀澀怀漀涞怀怀怀漀澆쀀怀挰澀澀昀怀怀漘ąI`xEFG >0 e()) $20I$ i EFGXL氘漀氌漀漀漀ఘ漀CLEAR,INVERT,QUIT,107 J 149,107,149,107,149ZD$(4):I$(9)dD54'nD611xPL20vB(9),CC(20),IN(21),ST(8),RT(20,8),TT(20,8),F$(8),NA$(20),R$(21)TM$"TEAM NAME"C$"0000"I18F$(I)IJ1PLNA$(J)NA$(J)(NA$(J),1,10)JJ1PL9 R$(1980DE(P$"S")"(j TIMES AT BAT,RUNS,HITS,RBIS,DOUBLES,TRIPLES,HOME RUNS,WALKS  LIST PLAYERS BY NUMBER & NAME 44 JIM,22 PETE,03 JOHN,08 KEN,55 MIKE  06 BARRY,07 BILL,08 BOB,09 MARTY,22 LOUIE'* 11 PLAYERX,12 PLA1210I35000#&BB23-012105:I4?D5000INBB15SX1210[bI2el5000kvsA$A$""1920(A$"Y")(A$"N")1920"TO SCREEN OR PRINTER (S/P)?"P$P$""1980(P$"P")(P$"S")S (Y/N)?"T1920&^A$"N"16600h1960:r4010@|FX"WORKING..."^d"DO YOU WANT SORTED PRINTOUTS OF HIT, RBI, AND RUN LEADERS (Y/N)?"1920A$"N"1760196017701670BB19E4AV$(B(9))((AV$,1,1)" "1510;AV$(AV$,2,6)U(AV$,1,1)"."1530eAV$"0"AV$R$(J)R$(J)(AV$,1,5) SORT BY AVERAGESBB43"E5,12106MM11630@2030 J"DO YOU WANT A PRINTOUT OF THE GAME'S STATJ 2< BUILD R$)FB(1)01380:PB(3)01380DZ1410OdB(9)0_nAV$"0.000"ix1420B(9)(B(3)B(1)1000.5)1000.0001I18B$(B(I))B$(C$,1,D5(B$))(B$,D6,(B$))R$(J)R$(J)B$IB(9)01530ATA (Y/N)?"~1920(A$"Y"1180.6C2@3010Q SHELL SORT]J1PLiIN(J)JCC(J)((R$(J),BB,E))JJPL111I1JCC(IN(I))CC(IN(I1))1310TEIN(I) IN(I)IN(I1)IN(I1)TEI(I18J1PL.ST(I)ST(I)RT(J,I)5JDB(I)ST(I)KIXR$(J)""b$1350p.TT$R$(J)z82030B"DO YOU WANT A PRINTOUT OF THE YEAR'S STATS (Y/N)?"L1920VA$"N"1140`1670j1560 t"DO YOU WANT TO SAVE THE DW >LSLL H1670$ RJ1PL/ \I18W fA$"N"(NA$(J),4,7)"PLAYERX"920y pB(I)((R$(J),11(I1)4,4)) zB(I)RT(J,I)B(I) RT(J,I)B(I) 930 B(I)RT(J,I) ST(I)0 I R$(J)(R$(J),1,10) 1350 J MM1 I R$(J)"" 1350( TT$R$(J)2 1560m "DO YOU WANT TO INPUT STATS FROM ANOTHER GAME (Y/N)?"w 1920 A$"Y"230 2030 "WOULD YOU LIKE TO MERGE IN DATA FOR THE YEAR (Y/N)?" 1920 A$"N"840 C1 *3010 4WSWB(I)))D5450# B(I)999540. KI89 B(K)0@ KH I8O IY &1350d 0I18} :RT(J,I)RT(J,I)B(I) DTT(J,I)TT(J,I)B(I) NI XJ b1670 lMM0 vI18 J1PL ST(I)ST(I)TT(J,I) J B(I)ST(I) (YSTS) rLL(TSYS)& |J1PLH (NA$(J),4,7)"PLAYERX"420 R$(J)R$(J)"000000000000000000000000000000000.000" 600 2030 (NA$(J),4,(NA$(J)));"'S STATISTICS FOR THIS GAME:" I18 B(I)0 F$(I) B(I) ((J)(NA$(J),1,(NA$(J)))(" ",1,10(NA$(J)))D I18R TT(J,I)0^ ST(I)0e Il "Jv ,2030 6"GAME STATISTICS" @"WHO DID YOU PLAY" JOT$ T"ENTER YOUR SCORE AND THEIR SCORE (SEPARATED BY A COMMA)" ^YS,TS hWWYERX,13 PLAYERX,14 PLAYERX,15 PLAYERXd4 16 PLAYERX,17 PLAYERX,18 PLAYERX,19 PLAYERX,20 PLAYERX INPUT/OUTPUT ROUTINE  "ENTER DATA FILE NAME:":FF$:3100 D$;"OPEN ";FF$:C23070 D$;"READ ";FF$:SW,SL:J1PL:R$(J); R$(J)(NA$(J),1,(NA$(J)))(" ",1,10(NA$(J)))R$(J)H J:3080 D$;"WRITE ";FF$:W;(13);L:J1PL:(R$(J),11,32):J D$;"CLOSE ";FF$:216,0:C2Ā  :5:"ERROR # ";(222);" OCCURRED AT LINE ";(219)256(218)4& 10:"HINT: HA i $$<`=1J0I S`H i1h`H`ޏ 3 miT&>`?` L^ހM 왁 L^L9 eiхB  `i) ii` iɌB P*ȩUxi)$ [B歙7,4 $4,7 `$T  <`=J@MkC G`<=ȱ q 0Ά`1 `iɌ錝 3*N# @DE j jCl h ; BCCB@*T 1ʈMʈiΊΉL1  `  <= ` BCCB@*T @A` VH I 1MLN3HO 1IT T  1L ɼ1LT j, ɭQ퍁mD+4T j  LiЯ LSM  _ 2L,P,W,R,T@A C @B HV[1k 1<`= ( u$HHT    BCCB@*T  S  ޏ  A12851504 A(16384):A128Ĺ16368,0:5130RA$(A128):A$"P"5130X"0"Q1;(R$(IN(J)),BBK,1)"0"Q0K3ĺ"0":5080h(R$(IN(J)),BBK,1)"0"Q0ĺ" ";:5080(R$(IN(J)),BBK,1);:K3ĺ""K:TT((R$(IN(J)),BB,E)):5120J::"TOTAL ";F$(I);" ";T:DE0ĺD$;"PR#0" A(16384):";:I:" "(TT$,33,5)/|:DE0ĺD$;"PR#0"91700J:DE15020cD$;"PR#1":I$;"80N":T0::F$(I)" SORT:":"# PLAYER "F$(I):J1PL:(R$(IN(J)),4,7)"PLAYERX"5090 (R$(IN(J)),1,10)" ";:Q0:K03:(R$(IN(J)),BBK,1)1);46K:" ";:5120:I:" "(R$(IN(J)),43,5)M@J::"TOTALS ";JI18:Q0:K14:(TT$,(I1)4K,1)"0"Q1T(TT$,(I1)4K,1)"0"Q0K4ĺ"0";:4210^(TT$,(I1)4K,1)"0"Q0ĺ" ";:4210h(TT$,(I1)4K,1);rK:" (R$(IN(J)),4,7)"PLAYERX"4160u(R$(IN(J)),1,10)" ";:I18:Q0:K03:(R$(IN(J)),11(I1)4K,1)"0"Q1(R$(IN(J)),11(I1)4K,1)"0"Q0K3ĺ"0";:4150"(R$(IN(J)),11(I1)4K,1)"0"Q0ĺ" ";:4150,(R$(IN(J)),11(I1)4K,ICS FOR "T$":":MM14070FTM$" VS "OT$" SCORE:"YS"-"TS:4080u"RECORD FOR THE YEAR: WINS:"W" LOSSES:"L:"ROSTER IS SORTED BY BATTING AVERAGE":"# PLAYER AB RUNS HITS RBI 2B 3B HR BB AVG""J1PL:VE YOU PREVIOUSLY SAVED THE":"DATA FILE TO DISK?"n0 D$;"CLOSE ";FF$::"TRY AGAIN."::"HIT ANY KEY":A${: C1810D 3010 PRINT ROUTINE:DE14030D$;"PR#1":I$;"80N"MM1T$"THE YEAR":4050T$"THIS GAME""STATIST`EFG i(()) $ i EFGL W@ W`$ [  $ [B / $ [!  ` ` Yi Y` Y VV V`i`V>C 8[>C 8>C ;`M$ o<`=N& oip>`?`2ΐ#2 ΰ  ɀIi  m m `GG`C-,Ɉk`ɕk`ɠS`΃` } } } ji el `k ~  H ~Ʃ ~ ~й Hi . П } } kl een`m ~Ԅȱ8ee  ,~  J~ԀՊݫݫݫ߻߫ݫՊՂЀԀԃтɂȀՂՂʄҀȀȀҀʄՂՂȀɂтԀЮીޠ܀ЀЏ 聐оОЎЏЫԋЋހՏԏЀ` ȩ)iȌ) eeȱȮ*0 в eL `Ѐ  " """* ***" "" ** ** ՀՀĐՀĔĪՀёёЪՀЪА* ( *UՀ*ULA1 `o0mmL08`LGLS E NNS >EE>E 8)>E֠ FȌFЪ` > FȌF`FC $D`iI`i `* ****"FGmEGF8MG8&M&0G8&M&0 HI#,,DI,EIHII C`Lr D3 04komq,o0  L  lonq,o0  L  `q o08%%$$L%m%$m$`q$ %.mΈ`INE# % S DP(LV%<V%$ > r %!L$ > % 80LLV%$~ > V% mP S%0%U%1% $8%ʩ B)8ȱ<%ȱ<%HH hhS%`9%:% LM"R%U%`8` ABТ;% A[8@m;%3;% J 6 Уɰ;%`)%*%  G r륢HHHHHH)%*% h;%hhhhhhE $$` O% P% Q% (LM"jO%jLM"P%vQ%݂)% HHL"!h)% )%ʊ HH` AACEILSSSTSABTOXNOGIQAUVSNSPTGNNRNME"@9 dR%T% :? dS%U% ), R%S%LM"T%U%LM"ȥ9%:%`LM"$$ ( `2#2%$$}$% `$$ `# > r N8A0IC;% 98@042.m;%3&;%  J 6 ɰ $LL| $ ;%<% <%$L$ " L| $$$$ " ` `,%`,Y%0a X%W%#y > v 6 3/%+$W% a L[$ <%<%$ L| 7% % ?&" 7%0:$&ڙ ˩ L} 6%`$i$ ( `x8 5+% ,%,%ȱ ,%<+%")?'L '< ` *-%JJJJ6%. 6%,%6% .Ȯ6%0 ,% ?.5 Lȱ5*Ȫʽ. 90ʝ1,%(J"4%-3%$(5%8%84%L.8%$5%4%5% -3%(4%5% ,% Lv N,%8%L * -3%$8%(.%L $8%m$$3'$m$(L $m8%-3%(`(8$8%k")"($8%(0%1%%W%Ω# > v{ 6 mi") ;% ;%;%W%A;%"$$) "ȥiil8 L 8  ;% +%L| 0%1%$$$i.%$8%0%1%?3%i8$k")"(8 Lg+%pl8%8,%02-%) )%$Jʩ ()%$m$$$m$%ʎ2% (`((` ?=&,%%% +%"-%  ' L| LJ28%$m8%8%%<%`,Y%0a X%W%# > % LCRL ");% ;%;%L/ ,Y%0a X$$$$$` ( L ;%"(k")$)%*%)%i)%*%i*%آ )%i)%*%i*%;%;%"(k") `*%i0(ȭ)%)JJJJi0(ȭ)%)i0(`"(k") (ȑ(ȑ(Ȯ$$$)%Jiʩ ()% ")?(Ƚ")?(Ȯɠ<%<%w<ʽ<%;%Еʊ H H`<),%`j" L j" % Y L| a " ,""kolp`  `  Ld 8dd 8 HH h hL8 X+%#8%8,%0-%)  'JLI N,%8%Ϯ8%*8%,% S%LU% L V% % V% R0%1% X " L| HV%hLhL,Y%0a X%?%@%A%B%L L| ,Y%0a X  15448:18)"CHESS"8:15)"JOHN KRAUSE"I(A(12),C(69)f2I1625616263:I,192:I<I1626416383:I,7:IFI1628516362:J:I,J:IPI012:A(I):IZB(0)17118:B(1)18142:B(2)19166:B(3)20190:B(4)21214 dI069:C(I):242,96,169,3,133,25,164,48=t240,41,136,240,38,16,19,164[~9,177,6,230,9,73,255,164|25,49,253,145,253,198,25,16238,96,164,9,177,6,230,9164,25,17,253,145,253,198,2516,240,96,164,9,177,6,2309,164,25,145,253,198,25,16296,133,6,185,179,964$133,7,169,0,133,9,164,251W.185,162,96,133,254,165,252,10x810,24,121,154,96,133,253,32B75,96,165,253,24,105,128,133L253,165,254,56,233,32,133,254V76,75,96,32,90,96,165,254`24,105,4,133,254,201,96,48j,68,68,29,4,12,4,28V72,40,72,8,104,1,64,64,65,0,43,40,56,40,43,103,17,19,17,10342,106,102,42,42,73,21,29,21,21,59,9,25,9,57,35,37,37,5,35165,251,69,252,41,1,133,4832,19,96,166,8,208,1,96232,134,48,165,48,41,15,168185,170,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7P7,255,255,255,255,255,255,255,255,7w7,252,254,253,251,250,253,254,252160,208,206,194,210,209,203,144,142,130,146,145,13919,21,19,21,115,68,42,46,42,74,21,20,12,20,2185,85,119,87,85,100,68,68RI6I384I%\B$"1"I08906fI6II256BpII128bz251,R:252,C:8,I:24576:sK7:M3:L30J0K:I04:B(I)MJ,C(L):LL1:I:J:4,2,3,5,6,3,2,4,7,7,1,1,1,1,1,1,1,1,77,0,0,0,0,0,0,0,0,7,7,0,0,0,0,0,0,0,0,7'7,30:JIK:850)J060:J:5504F790EK0K6550]F1:R1R:C1C:198t(16368)141770} 550R2R:C2C:RR1:CC1:I0 K(1628510RC):820*RR2:CC2:IK4R0I255I251>R7I1I5H1628510RC,IC1:670%DI211R0RR1:670?NI196C7CC1:670VXI128I141F670^bJ0nlA(J)I650vJJ1:J13620550IJ:I6I262I820:540251,R:252,CJ1628510RC:K(J)I1417408,7:24576J0TSELF?";' A$:(A$)0(A$)2490V 16202,0:B$"2":A$"2"Ĺ16202,16:B$"1": ::"YOU HAVE THE (1) WHITE OR (2) BLACK PIECES?"; B$:(B$)0(B$)2520  F0 &I(16384):16368,0 0I215R7RR1:670 :I193C0C K134648ı: 16200,0::"CHECK DATA STATEMENTS":^ ::"ENTER SKILL LEVEL (1-5)";{ A$:(A$)0(A$)5440 16201,(A$) ::"(1) NEW GAME OR (2) SET UP POSITION?"; E$:(E$)0(E$)2470 ::"COMPUTER VS. (1) YOU OR (2) I ,Z1 6(16202)ZZ10 @I15:198:IS JK2:ZZ(B$):Z2(Z2)L15a T910:900x ^(16384)128350 h: r::"PLEASE WAIT ..." |I2457625275:J:I,J:KKJ:I I2527625339:I,255:I I1544916200:J:I,J:KKJ:I A$"2"240$ 540:16202,0N 15486:(16256)229(16256)150310 J(16252)16264:R(J101628.5):CJ1628510R 198:K(J):I0:820:IK J(16253)16264:R(J101628.5):CJ1628510R 820 "(16256)99(16256)28220I:430 n(16200)96İ370T xB$"2"Ĺ16288,6:16289,5:16358,250:16359,251d E$"1"150 R07:C07:1628510RC,0:C:R :R07:C07 I(1628510RC) 820 C:R:R0:C0 A$"1"B$"1"230 E$"2"İ540 24042,96,84,84,44,44,44,4444,4,65,64,67,66,65,64V67,66,188,252,60,124,188,252u60,124,188,96,96,97,97,9797,98,98,980,0,0,0,213,170,213,170,213,170,213,170,213,170,213,170213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,170M213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,170 213,170,213,170,213,170,213,170,213,170,213,170,213,170,213,1700,0,0,0,42,85,42,84,42,85,42,84,42,85,42,8442,85,42,84,42,85,42,84,42,85,42,84,42,85,42,84-(42,88,21,201,89,16,17,56,233S$20,168,185,136,63,208,8,169,236,157,116,63,32,21,61$189,108,63,56,233,9,168,169,0,217,136,63,16,8,169$247,157,116,63,32,21,61,189,108,63,56,233,11,168,169$0,217,136,63,16,8,169,245,157,116,63,32,21,61,961%168#l61,189,108,63,24,105,9,168,185,136,63,16,8,169,9r#v157,116,63,32,21,61,189,108,63,24,105,11,168,185,136#63,16,8,169,11,157,116,63,32,21,61,96,189,108,63#56,233,10,168,185,136,63,208,36,169,246,157,116,63,32$21,61,189,108,63,201,81,426,63,76,144,60,173,124,63,24Y"D109,125,63,141,125,63,88,96,173,74,63,208,89,189,108"N63,24,105,10,168,185,136,63,208,36,169,10,157,116,63"X32,21,61,189,108,63,201,31,48,21,201,39,16,17,24#b105,20,168,185,136,63,208,8,169,20,157,116,63,32,21222,61,201,2C!208,6,32,192,62,76,222,61,201,3,208,6,32,218,62x!76,222,61,201,4,208,6,32,230,62,76,222,61,201,5!&208,6,32,242,62,76,222,61,32,47,63,76,222,61,189!0108,63,201,98,48,150,224,0,240,16,169,16,56,237,74":63,141,74,63,202,142,1144,60,232,142,126,63,169,20,157,108,63,169,16,56,237t 74,63,141,74,63,254,108,63,188,108,63,185,136,63,201 7,240,86,172,74,63,240,4,201,0,16,77,192,0,208 4,201,1,48,69,201,0,16,9,188,108,63,169,0,56!249,136,63,201,1,208,6,32,5,62,76,3,172,74,63,208,6,201,1,16S192,48,8,201,0,48,186,201,7,240,182,157,76,63,2016,240,4,201,250,208,12,169,46,157,128,63,104,104,104104,76,229,61,188,108,63,185,136,63,172,75,63,153,13663,188,108,63,169,0,153,136,63,236,73,63,208,3,76: 73,108,63,141,124,63,173,116,63,141,125,63,96,221,128p63,48,250,240,248,152,157,128,63,189,75,63,24,105,6168,185,113,60,56,253,128,63,221,127,63,48,59,224,1 240,221,221,127,63,240,50,96,189,108,63,24,125,116,63141,75,63,168,185,136,653,136,63,104,168J^189,76,63,153,136,63,24,105,6,168,174,73,63,169,0h157,129,63,174,126,63,185,113,60,56,253,129,63,168,169r192,157,129,63,152,224,0,208,34,221,128,63,48,28,208|11,173,35,192,205,127,63,144,18,141,127,63,140,128,6371,0,0>,21,12,248,237,235,244,8,19,10,11,1,247,246,245,255l69,11,247,245,9,10,1,246,255,46,9,5,3,3,1@0,1,3,3,5,9,46,120,169,192,141,128,63,162,0J142,127,63,202,142,126,63,76,97,61,189,108,63,24,125T116,63,72,168,185,136,63,188,108,63,17,127,127,64,6,0,1,64,7,127,127,64,0,0,0,0]0,0,0,0,0,63,120,0,0,51,24,0,30,60,121,112127,115,31,124,127,127,127,124,127,112,31,124,31,124,127,11231,127,127,112,6,0,1,64,7,127,127,64,7,124,127,64"7,127,127,64,6,0,1,64,7,127,127,64,0,07,127,0,0,127,127,0,0,127,127,0,0,96,3,0b3,127,127,96,15,127,127,120,15,127,127,120,0,0,0,00,0,0,0,0,0,0,0,0,48,24,0,0,48,24,096,48,24,12,97,124,126,12,25,124,126,48,25,124,126,4831,127,127,112,6,0,1,64,7,127,127,64,7,124,127,64-1,124,127,64,1,115,127,64,1,79,127,64,1,79,127,64c0,63,126,0,0,48,6,0,0,63,126,0,0,48,6,07,127,127,112,31,124,31,124,24,0,0,12,0,0,0,00,0,0,0,0,0,0,0,3,103,115,96,3,103,115,963,127,127,96,0,96,3,0,0,127,127,0,0,127,127,0*0,12,0,0,0,0,03d0,0,0,0,0,0,0,0,0,0,1,64,0,0,7,64in0,0,127,64,0,15,127,112,0,63,126,48,0,63,127,112x1,127,127,112,1,127,127,124,7,127,103,124,7,127,96,487,127,120,0,7,127,126,0,7,127,127,64,0,0,0,00,0,0,0,0,0,0,0,0,60,30,0,0,60,30,065,42,84,42,85,42,84,42,85,42,84,42,85,42,84b242,85,42,84,42,85,42,84,42,85,42,84,42,85,42,84<0,0,0,0,0,0,0,0,0,0,0,0,0,3,96,0F0,15,120,0,0,15,120,0,0,3,96,0,0,15,120,0P0,3,96,0,0,3,96,0,0,15,120,0,0,63,126,0 Z0,63,126,0,0,0,0,0,0,0,09,0,157,84,63,168,185,89,60,157,116,63,32,21,61h%254,84,63,188,84,63,192,8,48,237,96,169,4,157,100%63,169,0,157,84,63,240,22,169,8,157,100,63,169,4%157,84,63,208,10,169,8,157,100,63,169,0,157,84,63&168,185,105,60,157,116,63,157,92,63,32,21,61,189,108I&63,24,125,116,63,168,185,136,63,208,13,189,116,63,24&125,92,63,157,116,63,76,6,63,254,84,63,189,84,63& 221,100,63,48,206,96,169,0,157,84,63,168,185,97,60&157,116,63,32,21,61,254,84,63,188,84,63,192,8,48& 237,96#89)"(D)IFFERENT GAME BOARD"1B16368,0IL(16384)1281090dVA$:A$"D"DE1:1140v`A$"N"1090jBO(30)2:BO(40)2:BO(31)3:BO(39)3t(16):14)"(O)NE PLAYER"~14)"(T)WO PLAYERS"16368,0(16384)1281170 AR.")8)"PRESS SPACE TO MAKE MOVE."H:11)"TYPE (E) TO QUIT."l(10):11)"(W)HITE MOVE FIRST"11)"(B)LACK MOVE FIRST"16368,0(16384)1281030A$:A$"W"TU2:1070$A$"B"1030.(13):10)"(N)ORMAL GAME BOARD"1MQ18/QXYOF(Q)1PO(XYOF(Q))16RQITTU(TU2)11]^WC0BC07000phWCBC647000yr500|XY0XY7XY63XY70İ6800100I071:TA(I)0:::(2):(14)::"REFLECTION":(4):9)"(I-J-K-M) MOVES CURSO3):" FALSE MOVE, FORFEITURE OF TURN."D '768,50:769,10:770T (I1500:Ib )FL0340{ +768,3:769,125:770 ,6:2X2649OF(X4)2,Y202 6768,2:769,110:770:340 @TU1BCBCCHIPS1:WCWCCHIPS:333JBCBCCHIPS:WCWCCHIPS40 TU1OF1:240! OF0= Z:6:1X2639,Y202P 1:4(TU1)3^ FL0280w 768,2:769,110:770 2X2649OF(X4)2,Y202 768,3:769,125:770 XYY9X:PO(XY)0290 4000 CHIPS0İ5000:BO(XY)TU1:320+ "(2X19Y1)2OF1:190 OF0= Z:6:1X12639,Y1202 BO(X19Y1)0ę1:4(BO(X19Y1)2)3:2X12649OF(X14)2,Y1202 ZZ3:Z16Z1 XX1YY1Ĺ768,1:769,160:770 Z:5:1X2639,Y202 Q160140 BO(X9Y)0116384):X1X:Y1Y:16368,02 Q201Y0YY1G Q205Y7YY1\ Q203X7XX1q Q202X0XX1 Q197186 (23):" ARE YOU SURE YOU WANT TO QUIT? ";:A$:A$"Y"7000 (22):" " BO() dFL1:TU1M$"BLACK'S TURN":120? nM$"WHITE'S TURN"p x21:15)M$:(23):10);BC;30);WC;" " }(22):" BLACK'S CHIPS WHITE'S CHIPS" PL1ALBC1:130 ALWC1 COM1TUPLİ6000:250 X4:Y4:Z1:16368,0 Q(*:BO(80),TA(71),A(71),PO(80),PT(71)S TU1:0:232,28:233,3:::FL1:PL1Y c9000m1000w2000(100002DE1İ3000:100<4:1:2154,82:2128,62F7:2127,82:2153,62PBC2:WC2:Y25:X25 ZA:PO(Y9X)A:: 104,64:16384,00(4)"RUN REFLECTION"a$:A$"T"ıA$"O"1160GCOM1:(19):13)"WHAT LEVEL (1-2)"U16368,0m(16384)1281210A$:LE(A$):LE1LE31230(21):9)"COMPUTER PLAYS (B)LACK"9)"COMPUTER PLAYS (W)HITE"16368,0(16384)1281260A$:A$"W"PL2:1300) A$"B"12801:7DI0159W6:36,I244,Ih2:0,I33,I|5:245,I279,II4I18 I2636,0I2636,15936,I20244,I20 IR (22):"TYPE (W) FOR PLACING A WHITE CHIP 1ı $'XX1:X,A! .'100103 8' 2,0,6,0,9,0A B' 46,60,0^ G' 7,63,63,19,45,45,45,45 L' 45,19,63,63,63,63,63,17,27,45,45,45,45,45,45,45,19 V' 63,63,63,63,63,63,63 `' 19,45,45,45,45,45,45,45,45,45,19,63,63,63!j' 63,63,63,63,63,63,21,2,-2,2,1,1,2,-2,2,0D# 2,-2,2,1,1,2,-2,2,0,5,-2,8,2,2,8,-2,5,0|# -8,-12,-2,-2,-2,-2,-12,-8,0,16,-8,5,2,2,5,-8,16,0# 172,01,03,174,01,03,169,04,32,168,252,173,48,192,232,208,253,136,208,239,206,0,03,208,231,96 'X795:(796)2ı 'A:A7150 5 (#I18%2#A1<#OF(I)A8F#IDP#X071SZ#A:PT(X)AYd#sn#I770795:M:I,M:Ix#I8719:BO(I)5:## -10,-9,-8,-1,1,8,9,10 # 16,-8,5,2,2,5,-8,16,0,-8,-12,-2,-2,-2,-2,-12,-8,0# 5,-2,8,2,2,8,-2,5,0BCIĒBL:2266,140I28768,2:769,80I2:770?In:(21):TIĺ10)"THE GAME IS A TIE":712012)M$" IS THE WINNER"" WOULD YOU LIKE TO PLAY AGAIN? (Y/N)";16368,0(16384)1287130A$:A$"N"ĉ::A$"Y"4:M$"WHITE":WH1:7020KbBCWCGCBC:WI2:WH3:M$"BLACK":BL6:7020igTI1:GCWC:WH1:BL6:WI0ulI1GCvWCIĒ3:215,140I2BCIĒ4:2266,140I2768,2:769,80I2:770ICO:I1GCWCIĒWH:215,140I2I1379:PT(I)6(I9):!@I6429:PT(I)6(I9):[I16121:PT(1)I19a{I5459:PT(I)I48:I64289:PT(I)(I9)1:I62581:PT(I)I57:I69339:PT(I)(I9)1:X1:WI3:WCBCGCWC:BL2):ZZ1HYQW:H2Y1!XYY1-E070<BO(E)A(E)BK500VQ18kY1OF(Q)06630PO(Y1OF(Q))2PO(Y1OF(Q))1:6630PO(Y1OF(Q))0QXY76860XY636890XY706920I913:PT(I)15I:TA(E)0BO(E)TA(E):A1A11$E4(BO(XY)TU1?)Q18l*XYOF(Q)1PO(XYOF(Q))PO(XYOF(Q))1s.Q2NWQW:REC1:Y1XY<TU3TU:6010:REC0:TU3TU:QWNWHIFQWHYHYQW:H2Y1:6550ZHY06550dQWHY.85QWHY1.15ZZ((1)HI0ĂXY:6203OQWHI.85QWHI1.15ZZ((1)2):ZZ1HIQW:H1XYU8g;LE2REC1ı=(HI32000LE1)(HY32000LE2)FL0:CHIPS0BXYH1LLE2XYH2V500jY(XY9):XXYY9tA1AL:E070 A(E)BO(E)I $pHY32000:OF(PL2)1XzHI32000:XY070:PO(XY)0BO(XY)0ĂXY:6203b4000yCHIPS0ĂXY:6203TTWCBC:QW(TT8)CHIPSPT(XY)(65TT)8LE2CHIPSA1QW10000LE2REC0İ6400:XY:6203QWHIHIQW:H1XY::6203CHIPSW1:I07:T075TA(TI9)05080V6:2T2649(T4)2,I202o768,2:769,110:7704(TU1)3:2T2649OF(T4)2,I202BO(TI9)TU1768,3:769,125:770Q18XYOF(Q)0PO(XYOF(Q))1QT: 0 T:I: :/CHIPS0:I18:L1:V0RVVOF(I):XYV70XYV04040gBO(XYV)54040BO(XYV)4TUXX1:LL1:4005XX1BO(XYV)TU1İ4100XX0:IW1:V0VVOF(I):TA(XYV)TU1WW1:WL4110 "CHIPS 6:1X,Y; Q215Ē7:OF0:WCWC1:BO(T9I)3:3110h Q194Ē4:OF1:BCBC1:BO(T9I)2:3110! 768,1:769,160:770:3120& 1:2X11OF(T4)2,Y+ 768,3:769,125:770, Q1603120- E18. T9IOF(E)0PO(T9IOF(E))1/ HERE."7 "TYPE (B) FOR PLACING A BLACK CHIP HERE."d " HIT THE SPACEBAR TO MOVE THE CURSOR."v I07:T07 XT2638:YI202 16368,0 Q(16384) Q160Q194Q2153080 6:1X,Y:ZZ2:Z16Z1 Z:5:1X,Y 3030,45,45,45,45,45,45,45,45@!t' 45,19,63,63,63,63,63,63,63,63 g!~' 63,17,13,45,45,45,45,45,45,45,45!' 19,31,63,63,63,63,63,63,63!' 10,45,45,45,45,45,45,45,19!' 31,63,63,63,63,63,10,45,45,45,45,45,19!' 31,63,63,63!* 0,-1"* 1,1,1,1,1,0,0,1,1,0,0,1,1,1,1,1U*UU*U*ժժŪժѪժ55,255,24,24,241J  24,24,24,248,248,24,24,24NJ 24,24,24,248,248,0,0,0nJ  24,24,24,255,255,24,24,24J* 204,153,51,102,204,153,51,102J4 51,153,204,102,51,153,204,102J> 8,12,14,127,127,14,12,8JH 255,0,0,0,0,0,0,0KR HROUT ML ROUTI,0,0,0,0,0,255,255.I 255,255,0,0,0,0,0,0JI 255,255,255,0,0,0,0,0fI 0,0,0,0,0,255,255,255I 24,24,24,31,31,24,24,24I 24,24,24,31,31,0,0,0I 0,0,0,248,248,24,24,24I 0,0,0,31,31,24,24,24I 24,24,24,255,255,0,0,0J 0,0,0,2HNA3D$C$HX&Hb SHAPE DATAKHlI3609636263:A:CSCSA:I,A:HvCS11534ĺ"ERROR IN FIRST SET OF DATA STATEMENTS.":H 128,128,128,128,128,128,128,128H 0,0,0,0,255,255,255,255H 0,0,0,0,0,0,0,0H 0,0,0,0,0,0,0,255I 0RUISE YOUR MIND?"::11)"3 - BLOW YOUR MIND?">G16302,0YGA(16384):A127550G16297,0:16304,0:16300,0:16299,0:16300,0:16303,0:I150:G520G&16368,0:AA176:A1A3520G0230,32:3086G:A1D$A$HDA2D$B$"Y"T10:T20:T30:70"F380DF230,32:3086:230,64:3086UF(4);"PR#0"jFP12:P:I18FI,I279I,I279I,191II,191II,IFI:230,32:PF11:26:" "0G11:11:"DO YOU WANT TO:"::11)"1 - BEND YOUR MIND?"::11)"2 - BX)P(X)210E^SEhI2123:I:14:H$::24:14:(H$,1,14);:I15:(7);:Er22:20:"PUZZLE SOLVED!":20:"PLAY AGAIN?"E|26:"Y/N";:K$EK$"N"ĉ::ET$(T1)"."(T2):R$(R1)"."(R2)ER$"0.0"(T$)(R$)R1T1:R2T2FK$T2;:170D10AC:38:" "5DACAC1:AC1AC1OD10AC:38:"3";:210fDACAC1:AC8AC8yD9AC:38:" "D"260D,P(AC)P(AC)1:P(AC)1P(AC)1D6330D@P(AC)P(AC)1:P(AC)56P(AC)56DJ10AC:24:(D$,P(AC),12)ETX18:PP( FAST":14)"AS YOU CAN!!!!";GCKE(16384):J0:16368,0:JKE200|CT3T31:T312T30:T2T21:T260T200:T1T11CJ0J5J0CJ240,320,300,170,270C1:22:"RECORD "R1":";:R210ĺ"0";CR2:1:24:"TIME "T1":";:T210ĺ"0"; D6,0:7,141:(4);"PR# A$300"VBN18:PP(N)((3)55)1:2:1N:(D$,PP(N),12):BN18:P(N)((2)55)1:10N:24:(D$,P(N),12):B11:38:"3"CAC1:21:14)"USE THE I, J, K AND M":14)"KEYS TO MATCH THE PATTERN":14)"IN THE RED BOX AS12221212222121211112121222121111112212212"TAF::5:" ";:I435:(95);::mAP:14)"MINDBUSTERS"AZ" ";:I435:(95);:::11:15)"PLEASE WAIT...":440Ad:5:1,395,395,751,751,3An6:154,76250,76250,147154,147154,76Bx @ 360969@R10:R20:H$" "B@620@(A$"'%!&%4&&!'$!&%4&&!'!&%4&!$!$!%%&!$$$'!&%&!'&!'#%$%$&!&%4$&##'%$%!&$&"@2B$"/0(.+(+(*.)0+-(-..*+-.0++0+(/*)++0/*+0(+).++0/.(*+(+(/)/00+)+/()+*(+",A<C$"112221122121212121111121222NE%K\I768856:A:CKCKA:I,A:`KfCK8413ĺ"ERROR IN SECOND SET OF DATA STATEMENTS.":fKpKz 216,120,133,69,134,70,132,71K 166,7,10,10,176,4,16,62K 48,4,16,1,232,232,10,134K 27,24,101,6,133,26,144,2L 230,27,165,40,133,8,165,41#L 41,3,5,230,133,9,162,8AL 160,0,177,26,36,50,48,2bL 73,127,164,36,145,8,230,26L 208,2,230,27,165,9,24,105L 4,133,9,202,208,226,165,69L 166,70,164,71,88,76,240,253L 255,255,255,255,255,255,255,255 ?hLp 1  *   9 V 10   ' ("( m'mɠi`08`` hɍ[ 8 , $1 * #2 -8$n2*#/n2 21,1$м nLp hɍS 8 , $1 *  '(LZ(LZ ('LZ'LZ'LZ '(LZ(LZ('!LuLLL7`H 1h' (G"i-*, m'67m( LpH"LLtLLULd 1#  +*#` m , * #- +*#`/  8  ` X 3 ,R    n'( }I0H }h,ɠ!8i!" LɈ"!" Lɕ"8i"!"" L`  ` V` V =-`-m/ ,8 8 m.m*  ` ,# *$  +*$$ ,## `'P0( m * , #  +,#& m * , #- +,#(O0' m , * LSLmAP      `2# [#$ # 婍` V -0= -- * ,    *   ,    +6"DISK ERROR":2703B@18:1:I180:" ";::I)):II1:(I)1412200A(1425632)250SAD$;"BLOAD";NA$;",A$8A00":260wAD$;"BSAVE";NA$;",A$8A00,L$300"A320ACE3:200A320:18:1:EN(222)A"EN6EN7ĺ"COULDN'T FIND "NA$:270A,EN13ĺNA$" ISN'T A CHARACTER SET":270B(@d(978)190ĺ"PRODOS NOT FOUND":.@n:@xD$(4)P@D$;"BLOAD HROUT"r@D$;"BLOAD NORMAL.SET,A$8D00"@6,0:7,141@D$;"PR# A$300"@D$;"BLOAD APPLEFONT2":CE4096@280@CE@NA$"":I14256@(I)141260ANA$NA$((#12N2i- *#2 /,1$ Lp8項&i` 1hɍLp 1hɍLp 2 [$ j`ҠŠƠҠԺH"LLL7LLfL 1h' (5'm  m 8 (m  m !  Lp 1' (2'm  m8 (mm!hɍj p #% $ &#,$* V =-%,&* $& m $#% m #ХLp 1 ?hɍh p  ȱ iilѩ kl p RL# > rL|  L y` yY yo yp2 y$ y y y yLkl yp RL R$L> ŵ$ > ` o $() ŵ?)%qH G%K%I%LA%0%JA%G%F%H%0%I%L%J% G%E%G%I%H%B%H%J%A%G%0%I%LE%G%K%I%F%H%L%J% G%A%G%I%H%B%H%J%E%G%K%I%L # > rL|  L  o p 2$ $$  LvL6 7 7 7 Lp*%,%`*%x*%`E%8A%m0%K%F%8B%m1%L%B%1%LA%0%JA%G%B%H%0%I%1%J% G%E%G%I%H%F%H%J%A%G%0%I%LE%G%K%I%B%H%1%J% G%A%G%I%H%F%H%J%E%  ' `I%J%  3 ȑL?%0`+%`I%8G%M%J%8H%N%*%,% 7 L,@LCB)% Af[b8@m)%3WmM%AB8i@)% 7)% 7 3 J 6 )%ɰ!mN% 4 7%?%@%A%B% H0%E%1%F% RA%E%B%F% # > DC%D%L| $Y > LY$1 > % ݍLYʊ HXHHH`hhC%D%`  7 I%3[J%ɰTG%H%8 E+% ,%,%Ȣ,%,% %@% I%J%L L - <-  6GF(,PP(&-&&)?_' N i8.  N - <-  . '(` Π٠čʬ    <LG '(` L(')'Ni8.N   = =0L'0  6  &0L0  .  &0   '(` )LL"LLQ&%0Q&&`EFG`EFG`JJJL@JL@JJ)O$ `"3DUfw*;L]n        *U"w] L 0')'G8n  # <L , $  ,.  ,  ,.`)? )`ºغĠ* +,),JJJm+` , # * $  -0= -*$,#`߿ @ $  `ԠŠԠԠĠŠŠؠɠίͯҠҠҠ [ $2 ,/  , ?2)$)`Ji [ 2 C      m m    L     ` [?2!#i8"$  2$#?2 #2!# $ ##` n  Lphɍ  nLp`Hh`' (5'm  m 8 (m  m !  V`     i i 8 8        m   m      V =,- * m *, m ,LpH 1"LcLzLLLL hɍ8// V Lphɍ8.. 9 V Lphɍ800,S,R Lp ?hɍ0- , # * $ *$,#Lphɍ X 3 #% $m &#,$* V =-%,&* $& &#% m %ФLp 1 ?hɍh p #m % $&#,$* V =-%,&* $& m $#% %Lp 1 ?hɍC p , * )%h `µ 0%1%$$5)&8 ,%,%ȱ,%,% ' iв3Ц0%1%8 L| 3 ȑ `# > ,Y%0a X%0"I"" ` `j" j"N='  ̐ L< #( g RPQ g RP Q LK Ƹ "I"ș P Q ֩  ̐ȱ $Hȱh   ` 𯐭睊 ސ `ĠԠŠԠĠ D$(4):CTRL-D-D$"BLOAD SEARCHER"C1014,0:1015,144^(^ SET & VECTOR ^ x2"'SEARCHER' ENABLED"z?, 009, 176, 072, 138, 072, 152, 240, 003, 032, 237, 1131|6 253, 104, 240, 003, 032, 237, 253, 104, 076, 237, 1539@ 253, 000, 000, 000, 000, 000, 000, 000, 000, 000, 253J 000, 000, 000, 000, 000, 000, 000, 000, 000, 000, 02, 237, 1218K 253, 165, 241, 076, 168, 252, 160, 000, 162, 000, 1477 201, 100, 144, 012, 160, 176, 162, 176, 200, 056, 1387 233, 100, 201, 100, 176, 248, 201, 010, 144, 010, 1423" 162, 176, 232, 056, 233, 010, 201, 010, 176, 248, 1504ǠԠȠ͠ϠҠŠҠϠРԠƠנŠҠϠ͠ԠƠǮԠԠϺάˠҠҿźϠǮԠàHBIBJBKBLBMBNBOBPBQBRBSBTBUBVBWBX*ERROR*ԺŠՠŠٯΩà٠Π׺ŠՠŠٯΩȺϺΠӠźĺԺԬҬҠԠٿԺƠ̠ӺӠ "L!h 46%L9hhhhhhhhhE HH"H"H`>%6%#`((((PPPP""!NTF,@@AAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZBABBBCBDBEBFBGB(),%LM"H Q-M+I.EP%(A B@LM" L{!HL"! L{! ILM"s! L{!Iڡ J x+5-0*+/&^!)LM"hH "L!L{!LShH"ݛ" "hH"ݛ" r륢HHHHHHHL"!XLihH$(`()+%)-%ȱ,%8` 3+%2,%,%oȥp+% -%oȭ,%oȢo,%L 6%6%86%m,%,%6%,%oȽo,%oȥp+% -%oȭ6%oȢo6%om,%pɤom,%opip`ȑ$ > $$L|>%%+%=%-%<%,%LM"H9%:%+%;%-%=%,%<%hA0 @0e3 J 6 Ќɰ8 +%L*,%HH hh9%:% ;%+%=%-%<%,%`ʆȅjfeʊei&m6%` o )($$8o$p !` 4 T `) ȱLTȱevyziwp8wwzo8opp$$"8)%ȱ )%8ȱȥl`#" > % YLL| 9%:% ;L,%%3 +%  "-%L2)-% ' `6%ʽEx;%80*%80*%i )%;%-LE.;%)%8;%)%.E0)%6%`)%.E.)%0)%ȽĠ4690& MMT&*4690%&4TM/&>46907&HM0E&R"MEM=";MK&\b&f"*FUTURE VALUE $"j&pC0t&z3950z&&"*PRESENT VALUE $"&C1&3950&&"PRINCIPAL $"&C1&3950&PV(C)&&"ANNUAL INT RATE (%)"'C0,34,34,0 TITLE SCREENR::7:12:"BOWLING CHAMP!":I14:NA$(I)"":16368,0:10:7:"HOW MANY BOWLERS (1-4): ";(16384)1281200A(16384)128:A49A521180(A):AA48:16368,0:I1A:14I:6:"BOWLER #"I"'S NAME: ,4,2,62,0,B 152,62,32,16,24,32,34,28,0ML 160,16,24,20,18,62,16,16,0mV 168,62,2,30,32,32,34,28,0` 176,56,4,2,30,34,34,28,0j 184,62,32,16,8,4,4,4,0t 192,28,34,34,28,34,34,28,0~ 200,28,34,34,60,32,16,14,0  448,34,34,20,8,2TS.":& 0,0,0,0,0,0,0,0,0F 24,20,20,62,20,62,20,20,0e 32,8,28,8,28,28,62,62,28 80,28,62,127,127,127,62,28,0 120,63,31,79,103,115,121,124,126$ 128,28,34,50,42,38,34,28,0. 136,8,12,8,8,8,8,28,0 8 144,28,34,32,2445,8,230,26,208,23 230,27,165,9,24,105,4,133U 9,202,208,226,165,69,166,70m 164,71,76,240,253s LOAD REDEFINED CHARACTERSX0:AD36096:L116:B:IADBADB7:A:XXA:I,A::XXB::X6223ĺ"ERROR IN CHARACTER DATA STATEMENS FOR ML AT 768."::\ 216,133,69,134,70,132,71,166,7Wf 10,10,176,4,16,62,48,4wp 16,1,232,232,10,134,27,24z 101,6,133,26,144,2,230,27 165,40,133,8,165,41,41,3 5,230,133,9,162,8,160,0 177,26,36,50,48,2,73,127 164,36,1A(I),B(I):XXA(I)B(I)::X540ĺ"ERROR IN DATA STATEMENTS FOR PIN POSITIONS.":[ l* -PIN DATA-4 12,40,13,39,14,38,14,40 > 15,37,15,39,16,38,16,40 H 17,39,18,40RX0:I768853:A:XXA:I,A::X7950ĺ"ERROR IN DATA STATEMENT650G47(G)+H:V:" ";:D -SCORING ROUTINES-RJ110ı`PSS2:jS5:TTJ:J10S3:S4:TTJ2:J10S4TTJ:J110S5:S1:TTJ:J10S2: S1:UA(10),B(10):I110:365900 016336,0:JJ1:D112:X1V:X2H :X1X1D:X2X21:(X2,(X11)2)16X2,(X11)21)128)36ĖX21:X1:" ";:JJ1:16336,0:570 D NH:V:" *";:HH1:H40550 XJ1J1J b2Z93:73QB1:GJ48 lJ110650vPSG88: -ROLL BALL-0 H1:C19:E11:D1:16368,0I VCED:H:V:"*";l (16384)127T5V:VE::530z R110: H:" "; V:DD:T5C:CE:ET5:480 VT5:H135:H:V:" *";:R110:: J0 &(H,2(V1))16H,2(V1)1)128)> TO CONTINUE"*A$"""*A$3*A$""53609*C*5450p*"LOAN AMORTIZATION SCHEDULE FOR YR ";J1*""PRIN $";V(2);" RATE ";V(3)100;"%";" PAYM $";V(7)*,*6"# BEG BAL PRINC INT END BAL"*@*J*T10))PV(4)(V(4))))ZV(5)1252409)dV(4)V(4)1D)nV(5)0J)xv)"# OF YEARS AND MONTHS:";V(4);",";V(5)|)))TE05310)"THIS IS A LOSING INVESTMENT."))"THIS IS A PROFITABLE INVESTMENT."))*"HIT