L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 CcˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( t Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u` OUTPUT TO PRINTER ONLY%t::::0~36,25R"MARKET VALUE OF SECURITIES"X4);"-------------------------------------------------------------------------------": 78 DASHES36,47:"MARKET";36,63:"GAIN";36,76:"%"  ;"TURN ON PRINTER AND ALIGN PAPER", ::L 10);"*";20);"*";30);"*"V(22)gP11000:P$" PRESS TO BEGIN PRINTING ->".V$8:P12000:PB(10)L15);"PRINTING..."VD$;"PR#1"`(9);"80N"j * DIRECTS": *HX$:AAI:63016R +"BSAVE "OB$",A";A;",L";L:(4)"NOMONO":(4)"CLOSE" ,::::(7)"---> CONVERSION COMPLETE!": -N$"":H$"0123456789ABCDEF" .N1(N16):N$(H$,N16N11,1)N$:NN1:N063022 /(N$)2N$"0"N$ 0 6ROGRESS "::21:35,22: %(4)"OPEN"NB$:(4)"DELETE"NB$:(4)"OPEN"NB$:(4)"WRITE"NB$:"REM EXEC THIS FILE":"CALL -151" &(4)"MONO":(4)"WRITE"NB$ 'OAA (AOAL63019 )NA:63021:HX$N$":":I07:N(AI):63021:HX$HX$N$" B$OB$".BIN"G :A(21902)(21901)256:L(21920)(21919)256 !:" BINARY START ADDRESS = "A:" LENGTH = "L: "" ===========": #" PRESS KEY:" $:20:G$::23::" CONVERSION IN P 3584216,0::S:" BINARY TO TEXT FILE "::34,13:"ENTER BINARY FILE NAME TO LOAD OR PRESS":" KEY FOR CATALOG:":"--> ";OB$:OB$""ĺ(4)"CATALOG":6300363000(4)"BLOAD"OB$ NMONO":"RUN 63999":"NEW":"TEXT:HOME":"?CHR$(7)"Q$"---> CONVERSION COMPLETE!"Q$ ("NOMONO":"DELETE TEMP.EXEC":D$"CLOSE TEMP.EXEC" )D$"EXEC TEMP.EXEC" "DELETE TEMP.EXEC":D$"CLOSE TEMP.EXEC" )D$"EXEC TEMP.EXEC" H$"WRITE"NA$Q$":?"Q$"REM EXEC THIS FILE"Q$":?"Q$"NEW"Q$":POKE33,30:LIST-63998:?"Q$"SAVE "OA$;Q$":FORI=1TO16:?:NEXTI:?"Q$D$"CLOSE"NA$Q$":POKE33,40:END" &"VTAB23:INVERSE:?"Q$" CONVERSION IN PROGRESS "Q$":NORMAL:VTAB21:POKE35,22:HOME"Q '".FP"E NA$OA$ĺ:"CAN'T HAVE 2 FILES WITH THE SAME NAME--":63002K T ! u ":13::" W O R K I N G ": #D$"OPEN TEMP.EXEC":D$"DELETE TEMP.EXEC":D$"OPEN TEMP.EXEC":D$"WRITE TEMP.EXEC" $"LOAD"OA$ %"63999?"Q$D$"OPEN";NA$Q$":?"Q$D!216,0:::D$(4):Q$(34)Z:" APPLESOFT TO TEXT FILE "::34,13:"ENTER APPLESOFT PROGRAM TO CONVERT OR":"PRESS KEY FOR CATALOG:":"--> ";OA$:OA$""ĺ(4)"CATALOG":6300363000  NA$OA$"  LH8ưhHiRhi`*D 88! ڤ \ĝ ;LL! کLH8ưhHiRhi`*iRhi`*Dĝ  88! ڤ \ĝ ;LL! ک88! ڤ \ĝ ;LL! کLH8ưhHiRhi`*! کLH8ưhHiRhi`**`ȪbHPh ĝĝ ;"RUN BINTOTXT"& D$;"RUN KING TUT"EH D$;"RUN PRINT LEDGER DOC"e D$;"RUN PS.HELLO.MODIFIED"~D$;"RUN CALCULATOR"tD$;"RUN METRICS AREA"D$;"RUN METRICS LENGTH"<D$;"RUN METRICS VOLUME"D$;"RUN METRICS TEMPERATURE WEIGHT"45DN(15)=X"THERE ARE NO RECORDS ON FILE. PRESS"g]" TO GO TO THE MAIN MENU ->"{bD$;"CLOSE ";F$g34,0:35,24lV$v:20005845::"ALL SHARES OF THIS SECURITY HAVE BEEN" "SOLD. IF THE SALE OCCURRR SHARE: $";A2$hA3$(A3)(rH$A3$2|1750=A3$H$c3);"PURCHASE COMMISSION: $";A3$sA4A1A2A3A4$(A4)H$A4$1750A4$H$3);" TOTAL COST: $";A4$D$;"CLOSE ";F$P12000:P:::058A10ī5770(6)=3);" NAME OF SECURITY: ";N$a3);" CERTIFICATE NUMBER: ";A$3);" PURCHASE DATE: ";M1;"/";D1;"/";Y1",3)" NUMBER OF SHARES: ";A16A2$(A2)@H$A2$J740TA2$H$^3);" PRICE PEPnI1TR)xD$;"READ ";F$;", R";I1N$E14);I;17);N$LIVD$:"TYPE A NUMBER AND PRESS : ";R$R(R$)R1RTRī529034,3:P12000:PD$;"READ ";F$;", R";RN$,A1,A2,A3,M1,D1,Y1,A$D$B#G8`cX@|G?h@#u?G*_?W~L?#`G<x ????y??[X@`2dx?>@kk Eѐ"@??? ???~>X@>~?D$;"RUN METRICS KITCHEN"T21::"PRESS ANY KEY TO CONTINUE ";::A$:A$::6:ꩥ$ѸȱȱeLޱ, 8Hȥh lSPL F { ȪbHPh ĝĝ     L)T);T$5140%+ FD$;"OPEN ";F$;", L80"`D$;"READ ";F$;", R0"h(TRx2TR0ī5700~<F"WHAT SECURITY DO YOU WISH TO REVIEW?"P"(CTRL-S:STOP SCROLLING - S:CONTINUE)"Z_34,7a35,22dP11000: *D$;"CLOSE ";F$$&(18)Q0"ADD ANOTHER SECURITY? TYPE Y OR N":V$c:V$"Y"ī4440mD34,0wN2000}Xb4080 *:P11000:P * * REVIEW A FILET$"*** REVIEW A FILE ***"L(T$)T20(.5S >N</0L; 3 w ><*8EW'׿3?/>8X@`30p F#8wπo<p hHiRhi` 38i i6` lݠqᥜq    `ȑ  H 67LҦ `#᥄L# Rqȑrȑ# eiLH8ưC1A$(Q)"":Q$ѸȱȱeLޱ, 8Hȥh lC F PQ ީ  V + 0 Z ҩ%01&%0Q&&8%01&8& 8! D:2:CB:4:"LOADING "TI$(N1)' N4 SA$(120)B XC,A$(1)K ]PC1X bQ1120l lB$(A$(Q),1,1) nB$(255)ī700 vB$(A$(Q),3,1) B$(4)B$(132)ī660 700 B$(A$(Q),34,1) B$(4)ī700TI$(PC)(A$(Q),4,30):PCP"" N11ĺBE$;BE$;:21:CL:470 N1$"N"INĺBE$;BE$:21:CB:100:21:"THIS IS THE LAST PAGE CHOOSE FROM 1-";N:X1300::255:21:CL:470 N1$"N"MM1:550 N1$"S"IN:560 IN &3:CB 0I :N1$"S"N1$"":2:CB:3:4000 2:36::"P";::" ";M 21:"CHOOSE 1-"N".";::"S";::".START OVER.";::"N";::".NEXT PAGE ":" "::"Q";::".QUIT"; "";N1$:N1(N1$):N1NN1$"0"N1(N1)470 N1$"N"510 N1$"S"510 N1$"Q"ĺ(4)"RUN HELLO END 216,0:? ::::"PRINT SHOP IMAGE DISPLAYER":T h:7:0,0:3082l |,64096,128,50,50r  M1:T0:NPC:A$TI$:I1N I9430 5:"< "I"> "TI$(I):450 TM16II1:460 5:"<"I"> "TI$(I):450 TT1:IN56TURN":55 <TI$(120) F5953 n400: MENU = xP1N1G 100k (4);"BLOAD";TI$(P1);",A$6000"t 360 22:10:TI$(P1) 24:" PRESS SPACE TO CONTINUE.";:K$:K$" "Ė1:170 :::" PRINT SHOP IMAGE DISPLAYER ":: 110 $ (175)(176)256558CL868:CB958:BE$(7)g::::" PRINT SHOP IMAGE DISPLAYER "::("PLACE GRAPHICS DISK IN DISK DRIVE"2:"AND PRESS ."7"";R$:::"PRINT SHOP IMAGE DISPLAYER": 8R$""Ģ(20):"PLEASE PRESS RE      R";TR! * WRITE TO RECORD TR5N$:A1:A2:A3EM1:D1:Y1MA$l * PLACE EACH INFORMATION * ITEM IN A SEPARATE * FIELDD$;"WRITE ";F$;", R0" * WRITE FILE INTO * RECORD # 0TR * PRINT NEW RECORD #+6" PURCHASE DATE (MM,DD,YY): ";M1,D1,Y1Q@" CERTIFICATE NUMBER: ";A$YJ *tTD$;"OPEN ";F$;", L80"^D$;"READ ";F$;", R0"h * READ TOTAL RECORDS TRrTR:TRTR1| * GET TOTAL RECORDS AND * ADD 1D$;"WRITE ";F$;", SECURITY ***"'L(T$):T20(.5L)3T);T$=34,2G::XP12000:P~" NAME OF SECURITY: ";N$N$(N$,5)" NUMBER OF SHARES: ";A1"" PURCHASE PRICE PER SHARE: ";A2," PURCHASE COMMISSION: ";A3 D$;"CLOSE ";F$" P11000:P, (15)W "THERE ARE NO FILES ON RECORD. PRESS"* " TO GO TO THE MAIN MENU ->"4 V$> 34,0:35,24H 2000 * * ENTER NEW SECURITY *:P11000:PT$"*** RECORD NEW+l "(CTRL-S:STOP SCROLLING - S:CONTINUE)"<v P11000:PB N I1TRi D$;"READ ";F$;", R";Iq N$ 14);I;17);N$ I D$;"CLOSE ";F$ *  "PRESS TO GO TO MAIN MENU ->" V$ 34,0:35,24 200011000:P ? T$"*** INDEX OF SECURITIES ON FILE ***"K L(T$)[ T20(.5L)g T);T$o *& 34,6:35,230 D$;"OPEN ";F$;",L80": D$;"READ ";F$;", R0"D TRN TR0ī3330X b "THE FOLLOWING SECURITIES ARE ON FILE:">: ";V$V(V$)'V1V10ī20006V1ī3000EV2ī4000TV3ī5000cV4ī6000rV5ī8000V6ī10000V7ī11000V8ī12000 V9ī14000 V10ī15000 * * * INDEX OF SECURITIES *  :P3);"4. CURRENT STATISTICS"6R3);"5. RECORD A SALE"^\3);"6. MARKET VALUE OF PORTFOLIO"f3);"7. REVIEW SECURITIES SOLD"p3);"8. EDIT A FILE"z3);"9. QUIT"2);"10. INITIALIZE FILES"(20)"TYPE A NUMBER AND PRESS 3);"3. REVIEW A FILE"H * FILL 2 DECIMAL$ * PLACES, *9L5(H$)FN5(H$)SN6(N5)a&N6$(N6)o0L6(N6$)|:L7L5L6DL70H$H$".00":1900NL72H$H$"0":1900XL73H$H$b *lv *D$(4)F$"STOCKS"FF$"SAT *^L1(H$)!hN1(H$).rN2(N1)<|N2$(N2)JL2(N2$)WL3L1L2tL30H$H$".000":1740L30H$H$".000":1740L32H$H$"00":1740L33H$H$"0":1740L34H$H$ * * SUB-ROUTINE TOOF $":Q$Q$FC$<Q$"LONG TERM LOSS OF $":Q$Q$FC$BQ$"SHORT TERM GAIN OF $ ":Q$Q$FC$Q$"SHORT TERM LOSS OF $":Q$Q$FC$ *6 * SUB-ROUTINE TO@ * FILL 3 DECIMALJ * PLACESWOA@ p? @@ 00 8pp88x p8x8|8xX@@B$$$p7e_p檪'UU$$u`5X|jUUW0V(UUUUUUlv *zꪪt~  0MD6ī890 4YD0MD6ī860, >DDD2D1; HDD0ī860K RDD0ī890[ \W$"L":900c f *k p *v zW$"S"~  * W$"L"FC.00ī960 W$"L"FC.00ī980 W$"S"FC.00ī1000 W$"S"FC.00ī1020  *Q$"LONG TERM GAIN TERM GAIN OF $" Q$Q$FC$$ B Q$"SHORT TERM LOSS OF $"P Q$Q$FC$V ^  *{  * 6 MOS HOLDING PERIOD  * YDY2Y1:YD1ī860 MDM2M1:YD1MD6ī890 YD1MD6ī860 YD1MD6ī830 YD1MD6ī860 *YD"L" 540 W$"S"  *8 &W$"L"FC.00ī610P 0W$"L"FC.00ī640h :W$"S"FC.00ī670 DW$"S"FC.00ī700 N * X * bQ$"LONG TERM GAIN OF $" lQ$Q$FC$ v Q$"LONG TERM LOSS OF $" Q$Q$FC$  Q$"SHORTN OR LOSS ^ *! hY184ī7406 rY184M16ī740Q |Y184M16D122ī740Y  *u  * 1 YR HOLDING PERIOD}  * YDY2Y1 YD1510 YD0530 MDM2M1 MD0510 MD0530 DDD2D1 DD0510 DD0530 W$EDGER *# * *? * LANGUAGE-APPLESOFT*[ * COMPUTER-APPLE IIE*w  * PRINTER-EPSON MX *  * *  ********************* " * , * 6 * @ * SUBROUTINE FOR J * LONG OR SHORT T * GAICd nx1910 *' *C *********************_ * *{ * PORTFOLIO * * BY * * TOM ALEXANDER * * * * 2ND MODULE OF * * SECURITIES L   """""""""           20(.5L)V1);PL$1D$;"RUN PORTFOLIO"LIO"&:L$" LOADING "L(L$)3V20(.5L)::(V)CV);L$::mM$"MAIN PROGRAM":L(M$):V20(.5L)}V);M$::P1500:PPL$"PLEASE WAIT...":L(PL$):V20(.5L)V1);PL$D$;"RUN PORTFOLIO"PPLEASE WAIT...":L(PL$):VBERS FOR THE MONTH, DAY, AND YEAR."L"THE NUMBERS SHALL BE SEPARATED BY"w"COMMAS. FOR EXAMPLE, APRIL 17, 1985""IS TYPED AS 04,17,85."\(20)f"PRESS TO GO TO MAIN MENU ->"p34,0zV$ *:P11000:P(5)D THAT THE NAMES OF"?"THE SECURITIES WILL BE SHORTENED TO"n"THE FIRST FIVE CHARACTERS IN ALL CASES."x(23)"PRESS TO CONTINUE ->"V$ *:P11000:P(8)"ALL DATES SHOULD BE ENTERED USING TWO"#"NUMVIATIONS FOLLOWED"?&"BY A NUMBER TO IDENTIFY EACH BLOCK OF"c0"SHARES OF THE SAME SECURITY."i:D"FOR EXAMPLE: ";18);" XYZ1"N18);" XYZ2"Xb"THE ABOVE EXAMPLE LISTS TWO BLOCKS OF"l"XYZ STOCK."v"IT SHOULD BE NOTES`00`00`0000?X@??????????0000000?0?00`00  " (23)P12000:PE"PRESS TO CONTINUE ->":V$X:P11000:PT$"*** INSTRUCTIONS CONTINUED ***"34,2L(T$):T20(.5L):T);T$:"NAMES OF SECURITIES SHOULD BE ENTERED""AS THREE LETTER ABREGRAM IS TO BE USED FOR AN"E |"ANNUAL SUMMARY OF CAPITAL GAINS AND"k "LOSSES, THE SALES FILE MUST BE" "INITIALIZED AT THE BEGINNING OF EACH" "NEW YEAR. SELECT OPTION #10 ON THE MAIN" "MENU AND OPTION #2 ON THE INITIALIZING""MENU."/ J"MUST BE INITIALIZED. SELECT OPTION #10"\ T"ON THE MAIN MENU AND OPTION #1 ON THE" ^"INITIALIZING MENU. IF THE FILES ARE NOT" `"INITIALIZED THE PROGRAM WILL 'HANG' ON" b"SELECTING ANY OF THE OPTIONS ON THE MENU" h r"IF THE PRO00:P T$"IMPORTANT"$ L(T$)4 T20(.5L)@ T);T$H  *X TT1:LL2c Z1Lq T);"=";{ TT1 856 Z ":: ,P11000:P 6"WHEN USING THIS PROGRAM FOR THE FIRST" @"TIME, BOTH FILES - STOCKS AND SALES - DO YOU WANT TO:" 2:F <5);"1. REVIEW OPERATING INSTRUCTIONS"h F5);"2. GO TO THE MAIN MENU"r P(17) Z"TYPE A NUMBER AND PRESS : ";V$ dV(V$) nV1V2ī1370 xV2ī2180  *  * INSTRUCTIONS  * :P1105);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"3  * 30 $= (10)J 15);P$P ^ 15);PP$h (17) 5);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" P13000:P :P11000:P : "**************************************" ::: ("  *% *********************A * *] * LEDGER *yB * *L *********************V *` *j::tP11000:P~D$(4)P$"SECURITIES"PP$" LEDGER"(6)&    @>Ëuנ|hmb4} {L?:c0`p˽FKXӦag o<0???X@?/ `?b`c   X\ OC߃  D?X@  D$;"CLOSE ";F$*f BB(0)0:CC(0)0:DD(0)0Up "PRESS TO MAKE SELECTION ->"]z V$g 4250o *w * * PRINT MARKET VALUE * 34,5  * P12000:P :: 10);"*";20);"*";30);"*" ::" 6)80( G2);BB(V);G3);CC(V);G4);DD(V)4 Z139B Z);"=";I ZO Y 3400e ::: "THERE ARE NO FILES ON RECORD. RETURN"* "TO THE MAIN MENU TO RECORD A SECURITY"4 "OR QUIT."> P11000:PH (23)R 34,0:35,24\ :34,7:35,22: X0:V0%D Z1HH/N XX19X 1200Kb A(X)0ī3220l 2);NN$(X);G1);A(X);G2);B(X);G3);C(X);G4);D(X)v BB(V)BB(V)B(X) CC(V)CC(V)C(X) DD(V)DD(V)D(X) Z * Z139 Z);"-"; Z  13T);T$: P12000:P= J$"CURRENT VALUE OF SECURITIES"U L(J$):T20(.5L)a T);J$r P11000:Px  26);"MARKET";35);"GAIN" "COMPANY";10);"SHARES";19);"COST";26);"VALUE";34)"-LOSS" Z139 Z);"-";& Z 0 PLAYED ON THE MONITOR";^ 6);"2. PRINTED ON THE PRINTER"Ih ::::xr " TYPE A NUMBER AND PRESS : ";V$| V(V$):V0V2ī2930  V2ī3480 34,0: P11600:P T$"*** MARKET VALUE ***":L(T$):T20(.5L) GL$(GL):H$GL$:1690/ GL$H$:GL$GL$"%"= NN$(X)N$Q A(X)A1:B(X)A4e C(X)PV:D(X)FCs E$(X)GL$ :P1500:P * D$;"CLOSE ";F$" *, I6 P11000:P@ ::J " DO YOU WANT THE REPORT: "T :6);"1. DIS* COMPUTE & STORE$P * VALUES,Z *6d XX1>n *]x PVA1PR: * CURRENT VALUEm PV(PV.5) A4A1A2A3: * TOTAL COST A4(A4.5) FCPVA4: * GAIN/LOSS FC(FC.5) GL(PVA4)A4 GLGL100:GL(102GL.5)102103 A2$(A2):H$A2$$ 1530/ A2$H$V "PURCHASE PRICE PER SHARE: $";A2$p A3(102A3.5)102 A3$(A3):H$A3$ 1690 A3$H$ "COMMISSION : $";A3$( D$:2 "CURRENT PRICE PER SHARE : $";PR< *F 333333?333333333333D3333333333333?3333?3?3333?3??3?3333?3?33333?3333X@DDDDD@DD@@DD@@DDD@DD@@DD@D@@@@<? U?X@<??  @~|xp`X@@`px|~   ELETE FILE */%& "FILE "FILE$" BEING DELETED."5%+ M%0 D$;"DELETE ";FILE$b%N * END ROUTINE *%X :"PROGRAM TERMINATED."ENT FILE *$ :;$ "FILE ";FILE$;" TO BE DELETED!"A$ m$ "ONCE DELETED IT CANNOT BE RECOVERED!"s$ $ :"OK TO PROCEDE (YES/NO)";$ R$$ $ $ R$"YES"3100$ "DELETION OF "FILE$" CANCELLED."$ $ 3150 % * YES - D T$A2$(I):A2$(I)A2$(J):A2$(J)T$E# T$C$(I):C$(I)C$(J):C$(J)T$g# T$S$(I):S$(I)S$(J):S$(J)T$# T$Z$(I):Z$(I)Z$(J):Z$(J)T$# T$M$(I):M$(I)M$(J):M$(J)T$# ** END BRANCHING **# J# I# # 2460# 2250 $ * DELETE CURRUT":(0.0656NN)" SECONDS TO DO "N" NAMES."E"< "FINISHED DOING ";R"F I1N1^"P I", ";k"Z JI1N"d L$(I)L$(J)2750"n ** SWAP **"x T$L$(I):L$(I)L$(J):L$(J)T$" T$F$(I):F$(I)F$(J):F$(J)T$" T$A1$(I):A1$(I)A1$(J):A1$(J)T$##E$! D$;"WRITE ";FILE$ ! N.! N025609! I1N! L$(I);",";F$(I);",";A1$(I);",";A2$(I);",";C$(I);",";S$(I);",";Z$(I);",";M$(I)! I! ! D$;"CLOSE ";FILE$! ! !( *** ALPHABETIZING ***-"2 "ALPHABETIZING":"PROCESS TAKES ABOI),F$(I),A1$(I),A2$(I),C$(I),S$(I),Z$(I),M$(I)5 V I? ` 2420X j *** NONE AVAILABLEv t *** END DATA OR NO DATA ~ D$;"CLOSE ";FILE$ *** SUB TO STORE *** ARRAY ONTO DISK ::"STORING DATA ON DISK":! D$;"OPEN ";FIL0 END ALL OPTIONS,3 RETURN TO MENU<140B] *** SUB TO LOAD INFOz *** FROM DISK TO ARRAY D$;"OPEN ";FILE$ D$;"READ ";FILE$ N$ *** IS DATA AVAILABLE?. N024108 *** AVAILABLEB I1N. L L$(\I*f0: STOP SEND OUTPUT TO PRINTER0p^z"PLEASE REMOVE LABELS AND REPLACE PAPER""AND TURN OFF POWER ON PRINTER (UNLESS""ANOTHER SET OF LABELS IS TO BE RUN).""PRESS RETURN WHEN READY TO PROCEDE."ZILCH$225I1N* SKIP PRINT?/* NO - PRINT IT!OM$(I)TG$TG$"ALL"2135d F$(I);" ";L$(I)pA1$(I) A2$(I)"-"ĺA2$(I)*C$(I);", ";S$(I);" ";4Z$(I)"0"ĺ>Z$(I)"0"ĺZ$(I)HA2$(I)"-"ĺR:W* END SKIP OR NOT SEND OUTPUT TO PRINTER$"NAME";"ADDRESS LINE #1"["ADDRESS LINE #2 (IF ANY)"s"CITY, STATE, ZIP"{:0:"CHECK LABELS! OK";:ZILCH$::ZILCH$"YES"ZILCH$"Y"20401870 *** END LINE UP LOOP1F, THEN"0:"INSERT MAILING LABELS, THEN TURN"KD"PRINTER POWER ON.":hN *** BEGIN LINE UP LOOPX"USE LINE FEED KEY"b"TO ADVANCE TO LINE"l"ONE LINE ABOVE DESIRED"v"START. THEN PRESS""RETURN WHEN READY."ZILCH$1:* END CORRECT VS DELETE6 :"MORE CORRECTIONS";> B$OB$"Y"1195Y2460c2250&*** BEGIN PRINT LABELS'"PRINT ONLY FOR THOSE WITH WHAT"("MEMORANDUM (OR ALL)";)TG$:* TARGET STRING0"BE SURE POWER ON PRINTER IS OF;")" ."IS THAT CORRECT (Y FOR YES)";:ZILCH$PZILCH$"Y"1230Z1800h* DELETEuIXN1L$(I)L$(I1):F$(I)F$(I1):A1$(I)A1$(I1):A2$(I)A2$(I1)C$(I)C$(I1):S$(I)S$(I1):Z$(I)Z$(I1):M$(I)M$(I1):INN1;Z$(X)JZILCH$T6^ZILCH$"."Z$(X)ZILCH$P`"MEMORANDUM: ";M$(X)\bZILCH$bdfZILCH$"."M$(X)ZILCH$h"CORRECTED VERSION IS:"r|F$(X);" ";L$(X)A1$(X)A2$(X)C$(X);", ";S$(X);" ";Z$(X)"(";M$(X)("ADDRESS (LINE 2, USE - IF NONE):"4A2$(X)@ZILCH$FeZILCH$"."A2$(X)ZILCH$y"CITY: ";C$(X)ZILCH$ZILCH$"."C$(X)ZILCH$"STATE: ";S$(X)"ZILCH$,6ZILCH$"."S$(X)ZILCH$@"ZIP CODE: " ZILCH$&(ZILCH$"/"1750;2ZILCH$"."1350L<L$(X)ZILCH$RFlP"FIRST NAME: ";F$(X)xZZILCH$~dnZILCH$"."1410xF$(X)ZILCH$"ADDRESS (LINE 1):"A1$(X)ZILCH$ZILCH$"."A1$(X)ZILCH$X *** INPUT LOOPH"FOR EACH ITEM, ENTER A PERIOD (.) IF IT"q"IS OK AS IS. OTHERWISE, TYPE THE""ENTIRE ITEM AS IT SHOULD BE.""(TO DELETE THE ENTIRE ENTRY, TYPE A""SLASH, / , FOR THE LAST NAME.)" "LAST NAME: ";L$(X)#0"V *** END OF LOOP5`:" END OF FILE":::XjN0ğ:"NO DATA ON FILE."::bt1170z~ * NOT AVAILABLE *"NO DATA ON FILE" * END AVAIL OR NOT2250 * CORRECTION * *** MAIN LOOP"CORRECT WHICH ONE";#1"I1N(:"#"I,"(";M$(I);")"=F$(I);" ";L$(I)IA1$(I)bA2$(I)"-"ĺA2$(I)C$(I);", ";S$(I);" ";Z$(I):"=========="$ZILCH$"N"1080.::"PRESS RETURN TO CONTINUE"::ZILCH$8 (CONTINUE)BIL(4);"PREXISTING DATA(p* ANY DATA AVAILABLE?Az"PRINT ON PRINTER";JPR$[PR$(PR$,1)q"ONE AT A TIME";}ZILCH$ZILCH$(ZILCH$,1) * IS ANY DATA AVAILABLE?N0ī1110 * YES, DATA IS AVAILABLEPR$"Y"PR$"y"ĺ(4);"PR"IS THAT CORRECT";Q$4(Q$,1)"Y"470>NN1KL$(N)L$XF$(N)F$gA1$(N)A1$vA2$(N)A2$ C$(N)C$S$(N)S$ Z$(N)Z$%M$(N)M$*"ANOTHER";4Q$>(Q$,1)"Y"470H2460R2250\ f * PRINT ESS (OR -) ="&A2$&0"CITY = ";.:C$?D"STATE = ";GNS$VX"ZIP = ";^bZ$ud"MEMO (OR -) = ";}fM$lv"INFORMATION RECEIVED IS:":F$" "L$A1$A2$"-"ĺA2$C$", "S$" "Z$"("M$")": ENTER NEW DATA *hN200ğ:"FILE CONTAINS 200 NAMES."::"PROGRAM CANNOT HANDLE MORE."::2460: *** BEGIN INPUT LOOP"LAST NAME = ";L$"FIRST NAME = ";F$"FIRST LINE OF ADDRESS ="A1$ "SECOND LINE OF ADDR,&6"YOUR OPTION, PLEASE? ";O,@>JO0ĺ"END":KTO1450X^O2870fhO31190trO41830|O52600O63000"PLEASE ENTER A NUMBER BETWEEN 0 AND ";"";6"";210 *** END LOOP *** * QUIT"$ "1. ENTER INFORMATION"F "2. PRINT INFORMATION (ON"j " SCREEN AND/OR PRINTER)" "3. TO CORRECT INFORMATION" "4. TO PRINT MAILING LABELS" ""5. TO ALPHABETIZE LIST" '"6. TO DELETE CURRENT FILE (AND QUIT)"======================X ::5::"ADDRESS FILER"::"PLEASE WAIT.":"LOADING FILE":m 2290: GET DATA~ A$"M E N U" L(A$) 39): (39L)2);A$;39): 39): "CURRENT FILE IS ";FILE$  "0. TO j"(OR ? FOR CATALOG": k"OR * TO SET UP A NEW FILE.)H n"";FILE$\ pFILE$"?"116n qD$;"CATALOG"t r} s104 t* EXIT INPUT LOOP * xFILE$"*"126 y"NAME FOR NEW FILE = "; z"";FILE$ {N0 |2460 ~* CONTINUE * =BE USED, SET IT UP USING THE NEW FILE OPTION IN THIS PROGRAM; THEN REVISE THIS PROGRAM BY gINSERTING FILE NAME HERE AS FILE$= AND REMOVE ALL STEPS BETWEEN LINES (=====). h* START INPUT LOOP * i"NAME OF EXISTING FILE TO BE USED." L=LAST NAME, F=FIRST, A1 & A2 = 1ST & 2ND LINES OF ADDRESS, C & S & Z = CITY & STATE & ZIP, M=MEMORANDUM PD$"": D$=CONTROL-D Z *** ADDRESS FILER *** _ d * USES FILE "FILE$" e=======================Y f IF ONLY ONE FILE IS EVER TO  ADDRESS FILER1 === BY BILL HOOPER ===M=== P.O. BOX 129 ===i=== WISE, VA 24293 ===*** VERSION 5 (1986/3/8)( *** DIMENSIONED FOR 2002L$(200),F$(200)<A1$(200),A2$(200)FC$(200),S$(200),Z$(200)KM$(200)j M                  D$;"CLOSE ";F$V X0"` I1HH<j D$;"OPEN ";F$;",L80"Wt D$;"READ ";F$;", R";Ik~ N$:A1:A2:A3{ A10ī2830 M1:D1:Y1:A$ * :: "NAME OF SECURITY : ";N$ "NUMBER OF SHARES : ";A1 A2(103A2.5)000:P::0T$"*** MARKET VALUE ***"HL(T$):T20(.5L)VT);T$:\m P12000:P 3);"** ENTER MARKET PRICE OF SECURITY **" 34,8$ D$;"OPEN ";F$;", L80". D$;"READ ";F$;", R0"8 TR:TR0ī3350B HHTRL 9M5   *  *6* * ALIGN MARKET TOTALS>4 *O>N1$(BB(V))]HN1(N1$)nRN2$(CC(V))|\N2(N2$)fN3$(DD(V))pN3(N3$)zN4(KK$)J139N1J252N2J367N3J479N4 * *:P11MARKET VALUES X *& bM0(NN$(X))6 lM1$(A(X))D vM1(M1$)T M2$(B(X))b M2(M2$)r M3$(C(X)) M3(M3$) M4$(D(X)) M4(M4$) M5(E$(X))  * H013M0 H125M1 H239M2 H352M3 H467M4H57B-ROUTINE TO#  * FILL 2 DECIMAL5  * PLACES=  *J L5(H$)W N5(H$)d N6(N5)r N6$(N6) L6(N6$) L7L5L6 L70H$H$".00":1840 L72H$H$"0":1840 L73H$H$ & * 0 : * D * N * ALIGN E TO  * FILL 3 DECIMAL-  * PLACES5 " *B ,L1(H$)O 6N1(H$)\ @N2(N1)j JN2$(N2)x TL2(N2$) ^L3L1L2 hL30H$H$".000":1680 rL32H$H$"00":1680 |L33H$H$"0":1680 L34H$H$   *  * SU39K4 Z d *$ nK1$(AA(V))2 xK1(K1$)C K2$(BB(V))Q K2(K2$)b K3$(CC(V))p K3(K3$) K4$(DD(V)) K4(K4$)  * G115K1 G223K2 G331K3 G439K4   *   * SUB-ROUTIN * 2240  *1  * SUBROUTINE TO ALIGNI  * MARKET VALUEQ  *a K1$(A(X))o K1(K1$) K2$(B(X)) K2(K2$) K3$(C(X)) K3(K3$) K4$(D(X)) K4(K4$) ( * 2G115K1 <G223K2 FG331K3 PG4  *" ******************; * *T * MARKET VALUE *m * * ******************` *e * INITIALIZE VARIABLEStNN$(90),A(90),B(90),C(90),D(90),E$(90)~ *D$(4)F$"STOCKS"                   ӍӍǠ͠ΠƠ̍ձ̍ǠӱӍԠ͠ӠƠӍԱӍұӍԠ͠ӠƠӍӍǠ͠ΠƠ̍dzӍԠ͠ӠƠӍԠ͠ӠƠӍѱϱӍԠ͠ΠƠӍб͠ΠƠӍα֠Ԡ͠ΠƠӍˠԠ͠ΠƠӍͱĠԠȲ͠Ԡ͠ΠƠӍ̱òɠǠ͠ΠƠ̍٠Ԡ͠ӠƠӍñȠǠ͠ΠƠ̍ɠǠ͠ΠƠ̍ʱƱҠǠ͠ӠƠ̍ȱ̍ŲӠǠ͠ӠƠ̬̍٬̠Ŭ٬נˬ             ձčĠΠōֱĠΠōұčĠΠōӱčĠΠōԱčĠΠōϱčĠΠōбčĠΠōѱčĠΠōΠō̱ĠΠōͱčĠΠōαӍĠΠōŠȲčĠΠō˱àdzɱڠʱčĠΠōij֠DzȱčĠΠōƲӠóǠŲčĠΠōƱčĠΠōDZ Πō²֠òčĠΠōIJˠĠΠōıĠ͠űčĠϰ F TO GO TO MAIN MENU ->"K: ";V$I;V(V$):V1V2ī15240I;V1ī15280I;V2ī15350I;I;D$;"OPEN ";F$;", L80"I;D$;"DELETE ";F$I;TR0J;OLIO FILE. IF YOU DO"?H;"NOT WANT TO ERASE THIS INFORMATION"fH;"PRESS 'N' TO RETURN TO THE MAIN"H;"MENU. OTHERWISE PRESS TO"H$;"DISPLAY THE OPTIONS FOR CHOICE."H.;V$H8;V$"N"ī2000HB;HL;5);"DO YOU WANT TO:"HV;I`;6)G 7 G7G: */G: * INITIALIZE NEW FILEBG::P11000:PgG:T$"*** INITIALIZE NEW FILE ***"G:L(T$):T20(.5L)G:T);T$G:G: *G:"INITIALIZING A NEW FILE WILL ERASE"G:"ALL OF THE INFORMATION THAT IS NOW"H:"ON THE PORTFFILES ON RECORD. PRESS"AF3" TO GO TO THE MAIN MENU ->"IF3V$ZF334,0:35,24mF3:P11000:PwF42000F6:P11000:PF6 *F6 * QUITF6 *F6TY$"THANK YOU..."F6L(TY$):T20(.5L)F6(10)F6T);TY$F7P11800:PTHER" Eh3"FILES? (Y/N): ":V$9Er3V$"Y"ĺD$::12110CE|3(23)sE3"PRESS TO GO TO MAIN MENU ->":V$E3D$;"CLOSE ";F$E334,0:35,24E3:P11000:PE32000E3 *E3D$;"CLOSE ";F$E3P11000:PE3(15)F3"THERE ARE NO (102A4.5)102,D3A4$(A4):H$A4$:17507D3A4$H$]D33);" TOTAL COST: $";A4$eD"3:D,3"ARE THERE OTHER CHANGES TO BE MADE IN"D63"THIS FILE?";D@3" TYPE Y OR N: ";V$DJ3V$"Y"ī12310DT3E^3"DO YOU WANT TO MAKE CHANGES IN OC23);" CERTIFICATE NUMBER: ";A$TC23);" DATE OF PURCHASE: ";M1;"/";D1;"/";Y1nC2A2$(A2):H$A2$:740yC2A2$H$C23);" PRICE PER SHARE: $";A2$C2A3$(A3):H$A3$:1750C2A3$H$C23);" COMMISSION: $";A3$D2A4A1A2A3:A4E ";F$!B<2D$;"OPEN ";F$;", L80": ";V$/@1B@1V$"M"ī13180W@1V$"N"ė:12110x@1V$"A"Ą"CORRECT NAME: ";N$@1V$"B"Ą"CORRECT CERTIFICATE NUMBER: ";A$@1V$"C"Ą"CORRECT PURCHASE DATE (MM,DD,YY): ";M1,D1,Y1A1V$"D"Ą"CORRECT NUMBER TOTAL COST : $";A4$*?$1D$;"CLOSE ";F$;?.1P11000:PE?81::o?B1"WHICH LINE IS TO BE CHANGED? TYPE:"?L110);"A, B, C, D, E, OR F"?V1 *?`1?j1"TO RETURN TO SELECTION MENU TYPE: N"?t1?~1"TO RETURN TO THE MAIN MENU TYPE: M"?1)A1>0A2$(A2)>0H$A2$$>0740/>0A2$H$X>03);" PRICE PER SHARE(E): $";A2$f>0A3$(A3)q>0H$A3${>01750>0A3$H$>03);"PURCHASE COMMISSION(F): $";A3$>0A4A1A2A3>0A4$(A4)>0H$A4$>11750>1A4$H$?13);" PEN ";F$;", L80"+=40D$;"READ ";F$;", R";RH=>0N$,A1,A2,A3,M1,D1,Y1,A$Q=H0(4)x=R03);" NAME OF SECURITY(A): ";N$=\03);" CERTIFICATE NUMBER(B): ";A$=f03);" PURCHASE DATE(C): ";M1;"/";D1;"/";Y1=p0 *>z03)" NUMBER OF SHARES(D): ";S:STOP SCROLLING - S:CONTINUE)"%; ";R$<0R(R$)< 0R1RTRī12280<034,3< 0:P12000:P=*0D$;"O1000:P;/-;/T$"*** EDIT A FILE ***"9;/L(T$)I;&/T20(.5L)U;0/T);T$];:/ *c;D/m;N/34,7u;X/ *;b/D$;"OPEN ";F$;", L80";l/D$;"READ ";F$;", R0";v/TR;/TR0ī13240;/;/"WHAT SECURITY DO YOU WISH TO EDIT?":':P11000:PG:$'(7)o:.'7);"READING PROGRAM FROM DISK...":8'D$;"RUN MARKET":* *:+:P11000:P: +(7):+7);"READING PROGRAM FROM DISK...": +D$;"RUN SOLD":. * EDIT FILE;.:P1 RETURN"/9 &"TO THE MAIN MENU TO ENTER A NEW"H9*&"SECURITY OR QUIT."\94&D$;"CLOSE ";F$d9>&R0n9H&(23)9R&P11000:P9W&9\&"RECORD ANOTHER SALE? TYPE Y OR N":V$9a&V$"Y"ī99509f&D$;"CLOSE ";FF$9p&34,0:35,249z&:P11000:P:8%M1:D1:Y1:A$(8%D$;"CLOSE ";F$28%9800>8%:::k8%"ALL SHARES OF THIS SECURITY HAVE BEEN"8%"SOLD. RETURN TO THE MAIN MENU TO MAKE"8%"ANOTHER SELECTION."8%D$;"CLOSE ";F$8&98008 &:::9&"THERE ARE NO FILES ON RECORD.7:%SR7D%D$;"CLOSE ";FF$+7N%C30ī9800L7X% * NO STOCK LEFT AFTER SALE^7b%N$N$"-SOLD"q7l%A10:A20:A307v%M10:D10:Y107%A$"TENDERED ON SALE"7% * SOLD ALL STOCK7%D$;"OPEN ";F$;", L80"7%D$;"WRITE ";F$;", R";R8%N$:A1:A2:A3$D$;"READ ";FF$;", R0"'6$SR:SRSR1/6$ *B6$ * SALES FILEJ6$ *h6$D$;"WRITE ";FF$;", R";SR6$N$:E1:E2:E3:E46$E5:E6:E76$B1:B2:B3:B46%F1:F2:F36% *6%M2:D2:Y26&%AA$:QQ$:FD:U$60%D$;"WRITE ";FF$;", R0":87305b$D$)5h$D$;"OPEN ";F$;", L80"E5r$D$;"WRITE ";F$;", R";RY5|$N$:A1:A2:A3m5$M1:D1:Y1:A$5$D$;"CLOSE ";F$5$93805$:"IS INFORMATION CORRECT? TYPE Y OR N":V$5$V$"N"Ĺ34,10::87305$D$5$D$;"OPEN ";FF$;", L200"6FDFC4$W$(QQ$,1)'4$W$"L"ī925024$W$"S"<4"$U$W$L4,$C30ī9370k46$ * C3 = EI - B1 SHRS LEFT4@$N$M$:A1C3:A2E24J$A3C3E9:A$"TENDERED ON SALE"4T$M1F1:D1F2:Y1F34^$:"IS INFORMATION CORRECT? TYPE Y OR N":V$5`$V$"N"Ĺ34,10:17503#E6$H$53#"COST OF SHARES SOLD : $";E6$Y3#FCB4E6: * GAIN OR LOSS s3#FC(102FC.5)1023#FC$(FC):H$FC$3#17503#FC$H$3#3103#3#"THE SALE OF ";B1;" SHARES OF ";N$;" RESULTED"3#"IN A ";Q$;"."4#QQ$Q$:2 #B4B1B2B3*2#B4(102B4.5)10282#B4$(B4)C2(#H$B4$M22#1750X2<#B4$H$~2F#"SALE PROCEEDS : $";B4$2P# *2Z#D$;"CLOSE ";F$2d# * C3 = SHRS LEFT AFTER SALE 2n#C3E1B12x#E6$(E6):H$E6$3#21"X0E7E3:8870!1"E7E5;1"E7(102E7.5)102`1"XA1B1: * SHRS LEFT AFTER SALEo1"X0ī87601""PRICE PER SHARE : $";B21"B2(103B2.5)1031"B2$(B2)1"H$B2$1"7401"B2$H$2#"COMMISSION : $";B3ARES SOLD : ";B10B"XA1B1M0L"H1B1A1: * RATIO SHRS SOLD TO SHRS BOUGHT0V"H2(A1B1)A1: * RATIO SHRS REMAINING TO SHRS BOUGHT0`"X0ī87620j"E5E5B10t"X0E6E4:88400~"E6H1E4: * COST OF SHARES SOLD1"E6(102E6.5)10AL COST!/!E4(102E4.5)102=/!E5E3E1: * COMM P/SHRW/!E5(102E5.5)102a/!E9E5w/!F1M1:F2D1:F3Y1/!M$N$/"AA$A$/"D$:/""ENTER INFORMATION FOR SECURITY SOLD -"/.""DATE SOLD (MM,DD,YY) : ";M2,D2,Y20<""NUMBER OF SH .p!1750.z!A4$H$6.!" TOTAL COST: $";A4$d.!" DATE BOUGHT: ";M1;"/";D1;"/";Y1.!" CERTIFICATE NUMBER: ";A$.! *.!E1A1: * NO.SHRS BOUGHT.!E2A2: * PURCH PRICE P/SHR.!E3A3: * PURCH COMMISSION/!E4A1A2A3: * TOT03- A2$(A2)- H$A2$%- 7400- A2$H$R-!" PRICE PER SHARE: $";A2$l- !A3(102A3.5)102z-!A3$(A3)- !H$A3$-*!1750-4!A3$H$->!" COMMISSION: $";A3$-H!A4A1A2A3-R!A4(102A4.5)102-\!A4$(A4)-f!H$A4$;R$,0 R(R$)#,: R1RTRī8230-,D 34,1@,N :P11000:PS,X * 2ND SCREENY,b a, *|, D$;"READ ";F$;", R";R, N$,A1,A2,A3,M1,D1,Y1,A$, A10ī9680, " SECURITY: ";N$, " NUMBER OF SHARES: ";A1- A2(103A2.5)1*+3);"FROM WHICH FILE WAS SALE MADE?";+P11000:Pe+"CTRL-S:STOP SCROLLING - S:CONTINUE"v+P11000:P+:34,5+I1TR+D$;"READ ";F$;", R";I+N$+ 14);I;17);N$+ I+ D$:,& "TYPE A NUMBER AND PRESS : "P11000:P&*D$;"READ ";F$;", R";RC* N$,A1,A2,A3,M1,D1,Y1,A$I**\*@:P11000:P{*JT$"*** RECORD A SALE ***"*TL(T$)*^T20(.5L)*rT);T$*|34,1**D$;"OPEN ";F$;", L80"*D$;"READ ";F$;", R0"*TR+TR0ī9740)vD$;"OPEN ";F$;", L80"5)D$;"READ ";F$;", R0"=)TRM)TR0ī6910S)_)I1TRz)D$;"READ ";F$;", R";I)N$)14);I;17);N$)I)D$))"TYPE A NUMBER AND PRESS : ";R$)R(R$))R0RTRī7150 * :z #@??>X±  Ԡ 𠠠 ͠ ϠE"Ӡ ӠǠԠ ŠŠ ŠŠ!Π РŠ̠ Ԡ ٠ ˠŠ ̠ Ҡ ӠҠӮϮĠ Ԡנ Ԡנ РנΠנϠ ԠԠ ԠĠ(ԠҠàҠà* END LINE 1"36,8:"COMPANY";836,20:"SHARES";L36,35:"COST";a36,47:"VALUE";v36,62:"-LOSS";36,75:"G/L"  * END LINE 24);"-------------------------------------------------------------------------------"(SEVERAL DISKS OF PRINT SHOP GRAPHICS ARE AVAILABLE FROM BRAC (DISK VOLUMES H11, H12, H13, & H14) AT $2.50 EACH."v|k3_   T116:T2W T11:T215: D$;"RUN ADDRESS FILER" D$;"RUN FPTOTXT" D$OGRAM SHOULD WORK WITH OTHER TYPES AS WELL."2?@SPL,36,31,"ONCE AGAIN, WE HAVE A SELECTION OF PRINT SHOP (TM) GRAPHICS FOR YOUR ENJOYMENT. THIS GROUP WAS SELECTED FROM A RECENT DISTRIBUTION DISK OF THE INTERNATIONAL APPLE CORE.":pJSPL,36,31,"D A JOYSTICK TO PLAY."SPL,36,31,"THIS PROGRAM WILL KEEP TRACK OF YOUR SECURITIES AND CALCULATE MARKET GAINS. THE PROGRAM IS BY TOM ALEXANDER. COMPLETE INSTRUCTIONS ARE GIVEN.",SPL,36,31,"AN EPSON MX PRINTER IS EXPECTED, BUT THE PRTHE FILE WILL BE AUTOMATICALLY CONVERTED."0wxSPL,36,31,"THIS GAME WAS CREATED WITH THE ARCADE MACHINE BY BRODERBUND. THE AUTHOR OF THE GAME IS ALBERT LESIAK."}SPL,36,31,"INSTRUCTIONS ARE PROVIDED WHEN YOU RUN THE PROGRAM. YOU WILL NEE PROMPTED."SPL,36,31,"THIS PROGRAM, ALSO CONTRIBUTED BY KEN KRANTZ, IS FOR CONVERSION OF BINARY FILES TO TEXT FILES":*SPL,36,31,"TO USE IT, JUST RUN THIS PROGRAM, INSERT THE DISK WITH THE PROGRAM YOU WISH TO CONVERT, AND PRESS RETURN. ILE FORM, PROGRAMS MAY BE EDITED WITH YOUR WORD PROCESSOR, OR SENT BY MODEM TO OTHER COMPUTERS.": SPL,36,31," THIS PROGRAM IS FOR CONVERSION OF APPLESOFT FILES TO TEXT. SIMPLY RUN THIS PROGRAM AND TYPE THE NAME OF THE FILE YOU WANT TO CONVERT WHENDISK.NETWORK. IT WILL GENERATE A DISK FILE WITH YOUR ADDRESS LIST, THEN PRINT THE LIST TO MAILING LABELS."qy bSPL,36,31," NETWORKER KEN KRANTZ HAS CONTRIBUTED PROGRAMS TO SIMPLIFY CONVERSION OF PROGRAMS TO TEXT FILE FORM. WHEN IN TEXT FLING LIST,APPLESOFT/TEXT CONVERTER,BINARY TO TEXT CONVERTER,KING TUT'S REVENGE,SECURITIES LEDGER,PRINT SHOP GRAPHICS  EXIT TO BASICLkVSPL,36,31,"THIS HANDY PROGRAM WAS SUBMITTED BY NETWORKER BILL HOOPER IN RESPONSE TO A MESSAGE IN A RECENT 900,4000,4100,4200,4300! :70+ +::C ,(21(A$)2):A$:v 21:3:"M = MENU R = RUN PROGRAM ";:A$:A$ A$"M"A$"R"Č198:400 3:: 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;::  7v MAI0,2700,2800,2850,2850,29750 PK15PKWĉ:70x 21:"PRESS ";::"M";::" FOR MAIN MENU ";::"R";::" TO RUN "; A$:(A$)96A$((A$)32) A$:A$"M"A$"R"Č198:162 A$"R"ĉ::PK3000,3100,3200,3300,3400,3500,3600,3700,3800,3PK((A$)):PK1PKWČ198:1301 PKWĉ::_ 2::A$" ":300:y 2::A$A$(PK):300: 34,3:35,22:32,1:33,33:5:10::32,5:6 PK1100,1200,1300,1400,1500,1600,1700,1800,1900,2000,2100,2200,2300,2400,2500,260TWORK #16 ":300::23:A$" THE BIG RED APPLE CLUB ":300Y ZXT1T2:5:4X1T1:s dX9ĺ(64X9);:120{ nX; x:10);A$(X): 21:10:"ENTER SELECTION ";:A$:A$ (A$)96A$((A$)32) A$"A"A$"Z"A$((A$)649)! "THE BIG RED APPLE CLUB":300:A$"1105 SOUTH 13TH, #103":300:A$"NORFOLK, NE 68701":300h <8:5000~ F::A$" ":810: H2:2::X15:" ";::35:X15:" ";:: K1::A$": :":300:3:300:= P2::A$" DISK.NE (175)(176)25655'D$(4)L(21):D$;"PR#0":D$;"NOMONCIO"T:rW:A$(W):X1W:A$(X):T11:T2W:A$"+":800:(8:A$"CONTRIBUTED PROGRAMS":300:14:A$"DISTRIBUTED BY":300:6:A$"DISK.NETWORK #16":300[ 216:A$       M8(H1$(X))M9$(I1(X))+M9(M9$)4H04AH115M1N H224M2[H332M3h H439M4u*H548M54H656M6>H765M7HH872M8RH980M9\f * p *z * ALIGN PRINT TOTALS *N1$(B2(V))N1(N118600L73H$H$: *#D+N *3X *Ob * ALIGN PRINTED SALESWl *hvM0(N1$(X))yM1(A1$(X))M2(B1$(X))M3(C1$(X))M4$(D1(X))M4(M4$)M5(E1$(X))M6(F1$(X))M7$(G1(X))M7(M7$)  L33H$H$"0":1700) L34H$H$/ 7  *N  * SUB-ROUTINE TOe  * FILL 2 DECIMALw  * PLACES  * L5(H$) N5(H$) N6(N5) N6$(N6) L6(N6$) L7L5L6 L70H$H$".00":1860&L72H$H$"0": H840M8 /  * F  * SUB-ROUTINE TO] " * FILL 3 DECIMALo , * PLACESw 6 * @L1(H$) JN1(H$) TN2(N1) ^N2$(N2) hL2(N2$) rL3L1L2 |L30H$H$".000":1700 L32H$H$"00":1700 PH440M4 Z d *8 n * SUB-ROUTINE TO ALIGNU x * TOTALS FOR ALL SALESf M5$(A2(V))t M5(M5$) M6$(B2(V)) M6(M6$) M7$(C2(V)) M7(M7$) M8$(D2(V)) M8(M8$)  * H514M5 H621M6 H729M7  * SUB-ROUTINE TO/  * ALIGN ALL SALES7  *H M1$(A1(X))V M1(M1$)g M2$(B1(X))u M2(M2$) M3$(C1(X)) M3(M3$) MM(U1$(X)) M4$(D1(X)) M4(M4$)  * (H114M1 2H221M2 <H329M3 FH033MM,C1$(90),E1$(90),F1$(90),G1(90),H1$(90),I1(90)k tN$(90),E1(90),E2(90),E3(90),E4(90),E5(90),E6(90),E7(90) vB2(90),B3(90),B4(90),F1(90),F2(90),F3(90) xM2(90),D2(90),Y2(90),AA$(90),QQ$(90),FD(90),U$(90) ~D$(4) FF$"SALES" 2310  *%  *% *********************A * *] * SECURITIES SOLD *y * *L *********************V *` * INITIALIZE *e *jN1$(90),A1(90),B1(90),C1(90),D1(90),U1$(90). oA1$(90),B1$(90)          "TO GO TO THE MAIN MENU AND SELECT #10.";"V$::4390C"  *M"(10)" "UNEXPECTED ERROR #";ER;" IN LINE #";(218)(219)256"*:(0)0:DD(0)0!2880!2880*! *@! * ONERR ROUTINEH! *e!D$;"CLOSE":34,0:35,24x!:P11000:P!(7):ER(222)!ER5ī4630!(8)!"THE 'STOCKS' AND 'SALES' FILES HAVE"!"NOT BEEN INITIALIZED. PRESS "+"-> ";V$ V(V$)' V1V3ī43106 V1ī4370E V2ī4470M :] D$;"CLOSE"n 34,0:35,24 &:P11000:P 0(8)::(15) 5"LOADING":: D13);"MAIN PROGRAM" bD$;"RUN PORTFOLIO" l * v:P11000:P !BB(0)0:CC: ::2"PRESS TO CONTINUE":V$E:P11000:Pm(7):3);"WHAT DO YOU WANT TO DO:":8);"1. RETURN TO MAIN MENU"8);"2. RETURN TO MARKET VALUE MENU"8);"3. QUIT":: "TYPE A NUMBER AND PRESS 6,J4:KK$d,4);"==============================================================================="p6:::@34,0:35,24JD$;"PR#0"T(9)"I"^ * DIRECTS OUTPUT TO MONITOR ONLYhD$;"CLOSE ";F$rBB(0)0:CC(0)0:DD(0)0|:::):KKKK100%KK(102KK.5)102?KK$(KK):KK$KK$"%"PH$KK$:1690[KK$H$4);"-------------------------------------------------------------------------------"208036,J1:BB(V);36,J2:CC(V);36,J3:DD(V); "3X0:V02Z1HH<XX1(F1860:PA(X)0ī4020NZ36,H0:NN$(X);`d36,H1:A(X);rn36,H2:B(X);x36,H3:C(X);36,H4:D(X);36,H5:E$(X)BB(V)BB(V)B(X)CC(V)CC(V)C(X)DD(V)DD(V)D(X)Z KKDD(V)BB(V *D$;"CLOSE ";FF$%34,08:P11000:PI(8)::(15)\"LOADING"::u13);"MAIN PROGRAM"D$;"RUN PORTFOLIO" * NO RECORDS  *:P11000:P:::"THERE ARE NO RECORDS ON FILE. RETURN" &"TO THZX0"X1SR:XX1F"A1(X)0:B1(X)0:C1(X)0:D1(X)0M,XU6V0q@B2(V)0:C2(V)0:D2(V)0wJTP13000:P^"PRESS TO GO TO SALES MENU ->":V$c34,3h2370r *| * RETURN TO MAIN * MENU);H1);A1(X);H2);B1(X);H3);C1(X);H0);U1$(X);H4);D1(X)OxB2(V)B2(V)B1(X)eC2(V)C2(V)C1(X){D2(V)D2(V)D1(X)Z *Z139Z);"-";Z1380H6);B2(V);H7);C2(V);H8);D2(V)Z139Z);"=";9);"SHARES";24);"SALE";31);"L/S";36);"GAIN""COMPANY";10);"SOLD";17);"COST";22);"PROCEEDS";31);"TRM ";35);"-LOSS"Z139(Z);"-";2Z<:A34,9FX0:V0PZ1SRZXX1d11809n2);N1$(X(B4.5)tFD(FD.5) ~ *.N1$(X)N$DA1(X)B1:B1(X)E6ZC1(X)B4:D1(X)FDhU1$(X)U$p *D$;"CLOSE ";FF$I:P12000:PT$"CAPITAL GAINS AND LOSSES"L(T$):V20(.5L)V);T$P11000:P1 D$;"CLOSE ";FF$ X0# I1SR- XX1JD$;"OPEN ";FF$;", L200"fD$;"READ ";FF$;", R";I~N$:E1:E2:E3:E4$E5:E6:E7.B1:B2:B3:B48F1:F2:F3BM2:D2:Y2LAA$:QQ$:FD:U$VB1(B1.5)`E6(E6.5)jB4 TO SALES MENU ->":V$ R 2370(\ *Bf * DISPLAY ALL SALESJp *]z :P11000:Pk :::: T$"READING DISK..." L(T$):T19(.5L) T2);T$ D$;"OPEN ";FF$;", L200" D$;"READ ";FF$;", R0" SR SR0ī4340 LES COMMISSION : $";BC$1 B4(B1B2)B3K B4(102B4.5)102` B4$(B4):H$B4$j 1710u B4$H$ 5);" SALE PROCEEDS : $";B4$  "GAIN/LOSS: ";QQ$* *4 D$;"CLOSE ";FF$> (23)H "PRESS TO GO;" TOTAL COST : $";E6$+X *5b BBB2Ol BB(103BB.5)103dv BB$(BB):H$BB$n 1550y BB$H$ 5);"SELLING PRICE PER SHARE : $";BB$ BCB3 BC(102BC.5)102 BC$(BC):H$BC$ 1710 BC$H$ 5);"SA50  AB$H$9 5);"PURCHASE PRICE PER SHARE : $";AB$C ACE7] AC(102AC.5)102r AC$(AC):H$AC$| 1710 AC$H$ 5);"PURCHASE COMMISSION : $";AC$& E6(102E6.5)1020 E6$(E6):H$E6$: 1710D E6$H$#N 5)LYSIS OF ";| :" ";N$;" ":% O 5);"NUMBER OF SHARES SOLD : ";B1 5);"DATE SOLD : ";M2;"/";D2;"/";Y2 5);"DATE BOUGHT : ";F1;"/";F2;"/";F3 ABE2 AB(103AB.5)103 AB$(AB):H$AB$ 15";R$ R(R$)$ R1RSRī2780, *6 34,3I :P11000:PQ *m D$;"READ ";FF$;", R";R" N$:E1:E2:E3:E4, E5:E6:E76 B1:B2:B3:B4@ F1:F2:F3J M2:D2:Y2T AA$:QQ$:FD:U$^ *h D$: r 10);"ANAROLLING - S:CONTINUE)"_ :(d 34,6En D$;"OPEN ";FF$;", L200"`x D$;"READ ";FF$;", R0"h SRx SR0ī4340 * I1SR D$;"READ ";FF$;", R";I N$ 15);I;18);N$ I D$:: "TYPE A NUMBER AND PRESS : A NUMBER AND PRESS : ";V$. V(V$)C V1V5ė:2390R V1ī2560a V2ī3420p V3ī4470 V4ī4210 V5ī6010  :P11000:P P12000:P *2 " WHICH SALE DO YOU WANT TO REVIEW?"Z "(CTRL-S:STOP SCV :::%` 2);"DO YOU WANT TO:"-j :Zt 7);"1. EXAMINE INDIVIDUAL TRANSACTION"~ 7);"2. DISPLAY ALL SALES ON MONITOR" 7);"3. PRINT CAPITAL GAINS & LOSSES" 7);"4. RETURN TO THE MAIN MENU" 7);"5. QUIT" :::" "TYPE$)N2$(C2(V))!N2(N2$)2N3$(D2(V))@N3(N3$)H *UJ139N1bJ265N2oJ380N3u} * :P11000:P T$"*** SECURITIES SOLD ***" L(T$):T20(.5L)$ . T);T$8 34,3B L P11000:P V$::4210.V * .j(10)Z.t"UNEXPECTED ERROR #";ER;" IN LINE #";(218)(219)256`.~19)256p.~56{.~.TURN> TO GO TO SALES MENU ->"%-fV$/-p23707-z *F- * QUITN- *_-34,0:35,24r-:P11000:P-D$;"CLOSE ";FF$-DOAVE"-8"NOT BEEN INITIALIZED. PRESS "-B"TO GO TO THE MAIN MENU AND SELECT #10" .LO TO SALES MENU ->",V$%,2370-, *>,  * NO SALESF, *r, D$;"PR#0": * RETURN OUTPUT TO MONITOR~,*:::,4"NO SALES HAVE BEEN RECORDED. RETURN",>"TO THE MAIN MENU FOR ANOTHER CHOICE.",H::,RP12000:P-\"PRESS TO GZ * *h*2);"--------------------------------------------------------------------------------"p* *x*& **0 **:2160*D36,J1:B2(V);*N36,J2:C2(V);*X36,J3:D2(V)*b *&+l2);"===========================================A1$(X);)r36,H2:B1$(X);/)|36,H3:C1$(X);B)36,H4:D1(X);V)36,H5:E1$(X);j)36,H6:F1$(X);})36,H7:G1(X);)36,H8:H1$(X);)36,H9:I1(X)) *) *) *)B2(V)B2(V)D1(X))C2(V)C2(V)G1(X))D2(V)D2(V)I1(X)*ERM";(36,75:"-LOSS"1( * END OF 3RD LINE9( *A( *(2);"--------------------------------------------------------------------------------"( *(" *(,(6X0:V0(@Z1SR(JXX1(T1880(^36,H0:N1$(X);)h36,H1:"SELL";'n36,60:"SALE";/'x36,76:"GAIN"G' * END OF 2ND LINE]'36,3:"COMPANY";q'36,11:"SOLD";'36,18:"BOUGHT";'36,27:"PRICE";'36,35:"COST";'36,43:"SOLD";'36,51:"PRICE";'36,58:"PROCEEDS";(36,68:"T#1"& (9)"80N"&::A&30);"CAPITAL GAINS AND LOSSES"G&(&22);"--------------------------------------------------------------------------------"&<36,10:"SHARES";&F36,19:"DATE";&P36,28:"BUY";&Z36,43:"DATE";'d36,51:"LONG"%U$"S"U$"SHORT"&% *J%N1$(X)N$:A1$(X)B1$:B1$(X)F4$m%C1$(X)E2$:D1(X)E6:E1$(X)F5$%F1$(X)B2$:G1(X)B4:H1$(X)U$%I1(X)FD% *%D$;"CLOSE ";FF$%I%:P1990:P%(10)%15);"PRINTING..."&D$;"PROLD$E6(E6.5): * COST@$$E2(103E2.5)103:E2$(E2)Q$.H$E2$:1550\$8E2$H$b$B$LB2(103B2.5)103:B2$(B2)$VH$B2$:1550$`B2$H$: * SELL PRICE$jB4(B4.5): * SALE PROCEEDS$tFD(FD.5): * GAIN/LOSS%~U$"L"U$B3:B4#F1:F2:F3'#M2:D2:Y2=#AA$:QQ$:FD:U$_#F1$(F1):F2$(F2):F3$(F3)#F4$F1$"/"F2$"/"F3$: * CDATE BOUGHT#M2$(M2):D2$(D2):Y2$(Y2)#F5$M2$"/"D2$"/"Y2$: * DATE SOLD $B1(B1.5):B1$(B1): * SHRS S"4 *"> *,"HD$;"OPEN ";FF$;", L200"G"RD$;"READ ";FF$;", R0"O"\SR_"fSR0ī5890t"pD$;"CLOSE ";FF$|"zX0"I1SR"XX1"D$;"OPEN ";FF$;", L200""D$;"READ ";FF$;", R";I"N$:E1:E2:E3:E4"E5:E6:E7#B1:B2: AND LOSSES"!:(!16);"* * * *"0!:A!P11000:Pl!5);"TURN ON PRINTER AND ALIGN PAPER"v!(20)!P11000:P!3);"PRESS TO BEGIN PRINTING ->"!V$! :P11000:P!(10)! 13);"READING DISK..."!* *E MAIN MENU TO ENTER A SECURITY"0 0"OR QUIT."E :D$;"CLOSE ";FF$V D34,0:35,24` N(20) X"PRESS TO GO TO SALES MENU ->" bV$ l2370 v *  * PRINT REPORT  * :P11000:P :: !5);"PRINT CAPITAL GAINS占䮠䬠򍠱䍠󮠠占ϬԬčﮠ占ﬠ占䬠䍠䬠፠宠󠳮򠴮ԠĠ占占򮠠占䬠䍠占宠姠占򮠠宠Ӡ쮠占占䍠䧠䍠嬠䠧姠嬠䬠㮠占፠占獠䬠Ӡ獠占Ϡҍ嬠占堭䬠󍠠􍠸占􍠱󍠍ӠҠ獠Ҭ占򍠠򍠠­􍠷䍠򍠠䮠占庍占󍠳占󍠵占ϬԬĮ占ϠӠӮԠč󮠍栱占占占宍占󮠠ҬƠӠҍ򍠍ӠҠ썠嬍ﮠ           D$(4)!Z$"LEDGER DOC"^"PRESS CTRL-S TO STOP LISTING.":"ANY KEY TO CONTINUE."mD$;"MONI"D$;"OPEN ";Z$D$;"READ ";Z$$J$:J$"|"ĺJ$;:1060B(12)VD$;"CLOSE ";Z$`D$;"RUN LEDGER"F GOOD-LUCK! AND, THANK YOU FOR PLAYING KING TUTS' REVENGE."oC12:D97:X1D:CV$(V$,2)(V$,1):A$(A$,2)(A$,1)A(16336)(V$,1)" "(A$,38)" "(V$,1)A(16336)X255::::::(4);"BRU{ :"IF THE GAME ENDS, AND YOU'RE NOT HAPPY WITH YOUR SCORE, PUSH THE PADDLE BUTTON FOR ANOTHER CHANCE IN THE ARCADE." ::"PLEASE BE VERY PATIENT, IT TAKES A LONG TIME TO LOAD THIS SECTION OF THE GAME." S15000:S::235WA$" "SPIDERS";::" (THEY CAN TAKE A LOT OF HITS)":` :"BATS";::" (THEY JUST KEEP COMING)": :"FALLING OBJECTS";::" (YOU NEVER KNOW WHEN)": :"SNAKES";::" (SNEAKY LITTLE DEVILS)": :"KING TUTS'GHOST";::" (HE CAN'T BE DESTROYED)"YOU ARE BEING REPRESENTED BY THE LITTLE FIGURE LOCATED AT THE BOTTOM LEVEL OF THE PYRAMID."c "USE THE PADDLE TO CONTROL THE MOVEMENT, AND THE PADDLE BUTTON TO DESTROY THE VARIOUS MONSTERS." " WATCH OUT FOR:":1 :200,123" ^X200250:A(16336): `11X,100:11X,100d bYX1:12Y,100:12Y,100:A(16336)q dXX2:X~ n9X,123 xS1750:S 9X,123:7251,123:6251,123 S1750:S ::100 11::"GET PADDLE(0) READY":: ] "775,100:775,100- PX75200:A(16336)E Q11X,100:11X,100o RYX1:12Y,100:12Y,100:A(16336) SXX3:X:J110 T9200,123:S1150:S:9200,123:(7) U10206,99:S1150:S:10206,99 ZJ \9200,123:S1250:S ]90:1:SH250007 (4);"BLOAD SHAPE TABLE,A";SH`232,SH(SH256)256:233,(SH256)h:625,100:650,100:675,100#7251,123(S11500:S2675,100:775,1007S1500:S<975,100AS11500:S F975,100:󮍠򍠠󮠠䮠占占䬠􍠠򠱮占󮠠占ϬԬĠﮠ򍠠䍠占􍠠򍠠䍠占􍠠ﬠ򍠠占􍠠򍠠䬠䍠䍠󠳮򠴮Ԡč宠姠썠占򮠠䬠󍠠占宠占󮍠䬠荠󍠠썠Y  YLć`miL\i !mL\miL\`E H L niL( nLni`E H 5L   5L   L  u `H) ``)(m}I@Y@YL@YL)@n}I@Y@YL@YLH0]HXpY0HyYyY L0HyYyY L0HyYyY }HHHH Й`v:  r(Y#YY (YLćӥ   Y#Y~^PY ިYPYɽBC0Y}8Yi`HLa)IHLa)IH6HH8HY`Ԑ`pY L L LpY  L   L  yHHHY`Ґ`HPYL y0H@Y<`hh`)@`挢PY 6`` PY0]HY@Y   PY)@PY>PY HY@Y y 0# PYY @ PYYPY Д` HYHYL HYHY@YL HYHY@YL @YHYHYL HYHYL@YHYHY@Y<HY԰`PYhhLZI1wZI1w`  w +ZZک`)w`y) ˩`yĭ~^`~^`H)q0 h?8埝Y`heY`h`H)qLr0 h?8埝Y`heY`BC0Y}8Yi`@ivxAw-*i Ѱ!Ym)YniY(YL` YJYY  Y YLY僝Y YLY vy 0  Y ŇЧv (YKYY  (Y(YLYeYӐ(YLY y  (Y ŇЦ`   Qi<`} h~ h# h% hvQ `Q Q ` HJJJJQ h)Q `Q Q$Q(Q,Q0Q4Q8`t3t+ Y8#YmiY Y LץuAu9(YmLmňm0ij LĴȄm{ 6i zLIJ}CB H`)H` zװ z损h@ivaAe `%`` 2$  $(4 ' v  ivLL  `vL [ƅ) L Lz 来!LZ Ƃ L|La |Lz |Lz |Lz r0 nŗ nLz nŖnn| 6 * IYƄ' `zL朥!L Ɓ L{zL {L{L{Lq0 mŕL 0HL. L. L. HHEL^^^^^^^^vd{tuqr}~|z`JK`pdd e J qJK  r`J` ` `HxHhHHYHL ) `H) I IL HL #nmi0HL HH HL xHHYHL HT F 8.$  挠 y}^ HH0H``8`8 `   e 0HeHHH`HHLQ L7 H HH L7 0HZH HH HH)L7 HLf HH) HLf HJJJJLx HinHH`)`)H H HhhLf @)H  . s t 0   s  . < s   . , 0 ?ƞL$L I)y GY`   ^L`yyH0š pY  yy` 8|L}  :J ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  `                                        N ARCADE MODE"S)" "(V$,1).A(16336)5XY255::::::(4);"NUR END2"SODE"Sx`~?@pp@?|k~@@?0~~@~W`~?x`~`0D`p|Q pp@?|~ Ā~@(@`(UUx`~x0x;`~??pCp@?| ~z~@o|/~@|W`~?r`u`ɛɓLIL`JIJ`KIK`J ` qq` `ɻ qqt`u``ggB u H0H`H)`⥚) 恥 悥晩*`xAI IA&I IA9I `yBwCLIILLILLILLI`I1w`II挽IאI`JatbtuLK bu0`ɱɶ 8鱅hhLɍLxJ&Hɻq`ɠt`K"xxb`I)IGebb Ge`GHehebb`H)<<b`I)I Gebb  Ge` GHehebb`IIpYII`k` k0 _rI _rI __I_I _ILILILI в`I@ivehe`wfFg@h<@ bebLPaivxbebbI1`w`bebbeb?i9j5@ eLe eeL`H)Ƞݠȅb`I)IGebb Ge`GHehebb`H) FeFfLLi DeDfLLi 7EeEfB}CeBc}CcfG G&G&G:nyY yYPY0HY+@Y  E@PYLإ`myY yYPY0%H א`ZL1ZL1 ZL10ZL1@Z[[`Z[0H L[i[ e [[܆L,0, Ы`Z[[8[[`^L^LELLE u H`H)(h e~~}i})`H) !IIްIpY I Ihh`I I u H`vLw Y4Y+-nyY yYY  YE  Lw¥`(Y1Yʐ*myY yYY (YE L`' $(,048< @ivA'x @TD|~0p@?|x`~xp/ ~@pu0`*`~?<`~*`xW0x0~|p`@ @ U Q`_`~ĀA @0p~`@P"xp@?|@``+ ~@p50@_j`~?`~*`Ѐ pwDx @|| @`Q((T@_`~@U D` ~@` pp@?|0`+~@`?`@?~@_j`~?`~@(` `7pТ`@x|0*p@?|W`~~ @0@ D @|0@`xp@?|@+~@@?@`~@_:`~?|`~`` T``p| p@?|Āw`~Ԁx Q`@*A      !!!!"""####$$$%%%%&&&''''((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?``|~_0~g~?|  xA 0 Ux`~` @~pp@?|Q?*ppp@?|x`~xx/~@|W`~?`@p:`~?~0@`@||_`@~? Р~?|x @ p `~` `@|`00~x0p@?|x`~xx/~@xU`~?@``:`~?~`@@`<x_@`||?x0`@UT(U``~ @` 0 0`` ``@ ```c0@` `0ĀĀĀĪ(@( A A( A(@A(ŀ  " "   " 33333  ?30 ?30038<63?00?0333?3 333333>0 @pp|@@@{@P*U @` p ` @P*U pxxG>xolclcxopG>  @pxxG>xolclcxopG>p|ЀЀ|p0ppT*UT*U|~FF~qC~{gff~{g|qC%%ЀЀ@@|~FF~qC~{gff~{g|qC<`|l\U*U@ @p@xAp@ @@U*U@?@1@1@?|p@~y@aF@aF@~y?|p @?@1@1@?|p@~y@aF@aF@~y?|p`?x``p | U*    @    U*`p0 0 p|p_?~0X1F0X1Fp_?~`|((`p0 0 p|p_?~0X1F0X1Fp_?~`|`x~xx<_@(U*8|8(U*x|  |c|wO? 6L1 6L1|wO?xcPP x|  |c|wO? 6L1 6L1|wO?xcx~@~~o`wp*U*BbB*U*>ccxa}sC 3 C 3 }s~xaЀЀ  >ccxa}sC 3 C 3 }s~xa@p?@@`x@*U*@ @ @ @> @ @ @ @*U*@````>x`?|`0c `0c `?|@>x @````>x`?|`0c `0c `?|@>x+Hfu3\~!mCQ=CjOS?f`J_c@E>I^c`@kpv|rl}xü       ' }u}}YYG- ()=?? !1211e2d,*?Ti(P< BJ+Hfu3\~!mCQc`P (X( "A؁ "A (X(Ђ0Ђ (X(ԂĈ (X( "A@@@@@@@@@@@@@@@`psg~|ppp``pxxxxx@@88T*6**@*@*6*ԀlԀ*6**тPpppppppppppppp8|`|`9@?||Ǐ||8x|~>>>~ppp@ @ @ P(@P(@ @ @ ШШ@ @ @ Ā@ @ @ P(T||||||||||||||||~?@@@@?|?|G@ @P0P D ЂЂ D @P0PĠ`Ġ@P0P@P0P D @``@```G@c`?pppppppA(TlTT ԀԀT TlTXTlTTԀԀԀ `?`?`?`?`?`?`?`?`?`?`?`?`?`?pxxp``xxxx1p8px|||||`` DA DAĀ6ĀĀ(xxxxxxxxxxxxxx>>xx?>>>>?p{xp>> |~xx @U A*P@ TA@$A@(P A P@ A@((@"U (@* _ i<`, w_ _IL_0Ja0 `bhh`L_`ks!!!!-?????=====GGGGG         YURP8 xgޕޕ((#vC˕˕!!U!Ld!ޔהYY g湭: 808`OR!!!!!!!!!R! !!!!!!!---PPbbba디,,,        }u}}YY}}}u}}}}}}}u}}YY޷u}}}}}u}}}}a----aЀЀ```` 0000@@@@ĀĀĀ 0@0H` (08pA^37)?:[ PP @@   KKƯ@@@@ 0 @@00F00@@@ 0`0 @1 0`00` rrrrrrrrrrr;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;""""""""""""""""22222222222222222222222222"""""""""""222222222222222222222222222222222222222222222222222rrssssssssssssrKKKKKKKGMECKOOOOOO222222222222222"2"2"2"2""""""""22""""""""""""""22222222222CCCCCrsssssssCCCCCssssssCCCCssssss333333333ssssrsCCCCCCCCCssssss333333333ssssssssrKKKKK;;;;;;;;;KKKK3333333332CCCCCCCCC3333333323CCCCCCCCCBB22222222222;OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOssssssss333333sssssr3332ssssssCCCCCCCCCssssss333333333ssssss333333323ssssssssKKKKKKKC333333333333333333CCCCCCCCC333333333KKKBBBBBBBBBBBB2222222223333333333333333333@ (*U*D ( @@ p:07HOB*P*@*U@ Q*@@P`pH\l rB`@`@T@ P*P"@ P 8|W;@|@88PPTT P( TD*@$`u?`nT UU"* Q @` 8Xd'!@@( U U*( U T(px$.vy !p p ` ((U E (U >I@k@] > (<0@ ` (A(A `   ` Њ ` (A*~~~~~~~~~~~~~~@Lxp@@p|~|@@@```````  XPRW  > v   qZZy^ yy^HP[0H[HHP\I\HH`H% HHâ Y(YPYpYvY|YYGI   .      .  0 . < ,`L-PY `(Y0 Y&" ~Y@PY(Y1 L* Y, Y" ~Y@PY Y L*ćЕ`HYi8 `@Y8i`hh [@A j )  __ w_  _Lz " zJJJJ"xNx+% pL@ < X2 Lzp,08l+JJJJ I٠**<%<(=о<Y<<Y<&，YЍ`J>J><& <&3*!!!!500000000%%%%%%%''ofBhxz eZlzKOeeeeػceػc@eceof&&6z" M;-Z :(>`"xUR8ޥՎ(#A!!U!Ld!xՎ湭: 808`OR!!!!!!!!!R! !!!!!(P*ЪP @ @ @@ @@ @@ @ @ (P*ЪP*FTbp`@A'א詴! 綐}! 綐 `i:` }}}ɶ}}}~LyLyyyꍶyyyLx٠ŠҠŠŠӠӠΠϠΠԠΠĠϳŬΠӠ٠ŠŠĬ̤ðΠŠҠxx` X{  { @{ ,ɲpɱ X`{{,,{{0@rzuzuz@zzzLzL|L}~LŠįŠϮŠŠ 2222ZZZ  AP6Hf*ΠԠ yz x ߼詷 췠詷 LzxzyYyyay` X hy :hh yL,R,Q X lxLiɍ ɱɹɸL8x x syxP]ghxSyikmZyjln eLע8yByx轖x `ΠՠŠȠŠ̠įtttttttt