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`TH SO THE LENGTH OF THE WRITE MAY BE OFF A DAY OR TWO."=<.<." IF AT ANY TIME YOU WANT TO RETURN TO THE MAIN MENU DURING THE PROGRAM; JUST HIT A WHEN INPUT IS ASKED FOR.";</A$</]A CALL ON IT.";.;." IT WILL ALSO FIGURE YOUR COMMISSION COSTS FOR YOUR STOCK AND OPTIONS INTO YOUR RATE OF RETURN.";.7<." A MAXIMUM OF 50 OPTION WRITES CAN BE STORED IN ONE FILE. THE NO. OF DAYS OF A WRITE IS FIGURED ON A 30 DAY MON.04:J)COCO1.04:T)COCOOL0:^)CO89CO89>:h)CCCC100O:r)CC89CC89\:|)CCCCNRt:)CC(CC100.5)100:)CO(CO100.5)100:);.:5:" THIS PROGRAM IS DESIGNED TO SHOW YOU THE POSSIBLE RATE OF RETURN IF YOU BUY A STOCK AND WRITE OL0ī104509(COCOOL*9(NR0ī10470;9(CCCCNR100K9(CCCC.0099[9(COCO.0099p9(CC(CC100)1009)CO(CO100)1009)PAPRNS9)PA5000COCO1.069")PA5000COCO1.049,)PA5000CCCC1.0696)PA5000CCCC1.04:@)CCCC108((Z0Z082(CCCC2Z(8<(ZCCNR78F(Z65Z65C8P(CCZNR[8Z(PA5000CCCC1.15s8d(PA5000CCCC1.18n(CCCCCC8x(8( ALLOCATE ROUTINE8(CCCC1.088(COCO1.088(CCCC1.58(NR0COCO1.58(COCC30CO0:CC30: 9(07'PA5000CC1.15-7'PA5000CC1.1>7'PAPRNR100U7'PA5000CC1.15j7'PA5000CC1.1u7'CCNR7'PA30000CCPA.0041427'PA30000CCPA.006827(PA20000CCPA.009227 (PA2500CCPA.013127(CCCC6NR8(ZNR10 - OC6.' 68'86B' SINGLE LOT/ODD LOT ROUTINES6L'PA2500CPA.00922m6V'PA2500CPA.013126`'PA800CPA.026.46j'C65C656t'PA5000CC1.156~'PA5000CC1.16'6' MULTIPLE ROUND LOT ROUTINE6'PAPR1007'100501305&CXCCCO5&NRNR1(5&1013045&NRNR1A5&CYCCCXN5&CCCXCO_5&COCYCOCYj5&10370t5&9980z5&5' "OPTION COMMISSION = ";OC5'5' : PRINT "PURCHASE = $";NO * OP * 100 + OC6$' : PRINT " SALE = $";NO * OP * 10PAOLPR4%100504%COC*4%PA100PR54%10050A4%CXCCOJ4&NR2U4 &10130^4&NR1k4 &CYCCCXx4*&CCCXCO44&COCXCOCX4>&103704H&99804R&101304\&103704f&99804p& MULT LOTS + ODD LOT4z&PAPROL4&100504&COC5&1SUBROUTINE3%OL0NR0J103&%OL0NR1J2C30%OL0NR1J3V3:%OL0NR1J4i3D%OL0NR1J53N%J9570,9620,9670,9810,98403X%3b%PANSPR3l%100503v%COC3%103703%99803%PANSPR3%100503%CCC3%103703%99804%762$NO5OC67.6.2$NO5OP1.75OC62.4J2$NO5OP1.3125OC57.2]2$NO6OC81.12x2$NO6OP1.75OC74.882$NO6OP1.375OC68.642$NO7OC94.642$NO7OP1.8125OC87.362$NO7OP1.375OC80.082%9990 3% ASSIGN ROUTINE 81J$NO2OP1.75OC31.2.1T$NO3OC48.67H1^$NO3OP2.5OC45.43e1h$NO3OP1.9375OC43.681r$NO3OP1.9375OC40.561|$NO3OP1.1875OC37.441$NO4OC56.241$NO4OP2OC54.081$NO4OP1.75OC49.922$NO4OP1.3125OC45.(CC100.5)1000#OCCC#0#9990;0#NO4OP2OC54.08K0#NO1OC25f0$NO1OP2OP4OC300$NO2OP1.75OC33.280$NO2OC38.940"$NO2OP3.3125OC36.770,$NO2OP2.5625OC34.6106$NO2OP2.3125OC301@$NO2OP2OC33.25OP.4375OC716OP(NO1)4I/#OP.375OP.625OC716OP(NO1)5.5p/#OP.5625OP1OC716OP(NO1)7/#OC0ī9990/# ABOVE LINE QUITS WHILE AHEAD/#PROP:NRNO:PANRPR100/#PA800ī9210/#9490/#OP2CCCC1.040#OP2CC................. ,.(# OPTION COMMISSIONSL.2# "NUMBER OF OPTIONS ";NOb.<# "PREMIUM ";OPy.F# FIND OPTION COMM.P#OP.0625NO1OC2.5.Z#OP.0625NO1OC82.5(NO1).d#OP.125OC92.5(NO1).n#OP.1875OC102.5(NO1)/x#OP.1877LOSE ";F$-5-@ >>> .....CREATE NEW FILE ..... ;-EZ-F::"CLOSE ";F$;" FILE":p-G:D$;"CLOSE ";F$-H:D$;"LOCK ";F$-J:"NAME OF NEW FILE";:F$-TF$""ĺD$;"CATALOG":8010-^D$;"OPEN ";F$-hD$;"CLOSE ";F$-r5000.'# .....CK ";F$X,b"NAME OF FILE TO USE":" RETURN FOR CATALOG":" 'NEW' FOR NEW FILE"m,g" ";F$,lF$""ĺD$;"CATALOG ":7010,nF$"NEW"ġ:8010,p,q"OPENING ";F$;" FILE",r,tD$;"UNLOCK ";F$,vD$;"OPEN ";F$ -D$;"C0:J:5000+zD$;"UNLOCK ";F$2+D$;"OPEN ";F$G+D$;"DELETE ";F$Z+D$;"OPEN ";F$b+D$l+5000v+N7000+S5000+W ..................... +X ......INPUT FILE NAME --F$,]F$""ĺ:D$;"CLOSE ";F$::"CLOSING ";F$;" FILE"::D$;"LO:"# OF YOUR CHOICE?";:A$:J((A$,1))R*J200,1470,1450,6000,6990,8000,5995\*5000*k10);::"LOCKING ";F$;" FILE";:*o:D$;"CLOSE ";F$:D$;"LOCK ";F$:*p:"DELETE ";F$;" FILE";:A$:(A$,1)"Y"6010 +q:"FILE NOT DELETED":J145"SELECT OPTION"/):5);"1 WRITE OPTION"N):5);"2 RECALL OPTION"w):5);"3 LIST OF OPTIONS ON FILE"):5);"4 DELETE FILE ENTRIES"):5);"5 INPUT NEW FILE "):5);"6 CREATE NEW FILE"):5);"7 EXIT PROGRAM")*.06( PA5000CCCC1.04*( CCCC1.049( COCO1.04F( COCOOLW( CO89CO89e(CCCC100v(CC89CC89( CCCCNR(CC(CC100.5)100(CO(CO100.5)100(( ........................ ( SELECT OPTIONS ()SSION = $30.00"$' CO0:CC30:16304' OL0ī3510A' COCOOLQ' NR0ī3520b' CCCCNR100r' CCCC.0099' COCO.0099' CC(CC100)100' CO(CO100)100' PAPRNS' PA5000COCO1.06' PA5000COCO1.04( PA5000CCCC10Z0&\ CCCC2Z &a ZCCNR/&f Z65Z65;&k CCZNRS&p PA5000CCCC1.15k&u PA5000CCCC1.1z&z CCCCCC& & ALLOCATE ROUTINE& CCCC1.08& COCO1.08& CCCC1.5& NR0COCO1.5& COCC30ī3500' "MINIMUM COMMIA5000CC1.15%% PA5000CC1.16%% PAPRNR100M%* PA5000CC1.15b%/ PA5000CC1.1m%4 CCNR%9 PA30000CCPA.004142%> PA30000CCPA.00682%C PA20000CCPA.00922%H PA2500CCPA.01312%M CCCC6NR%R ZNR10&W ZSION $ $ 1$ SINGLE LOT/ODD LOT ROUTINEL$ PA2500CPA.00922f$ PA2500CPA.01312$ PA800CPA.026.4$ C65C65$ PA5000CC1.15$ PA5000CC1.1$ $ MULTIPLE ROUND LOT ROUTINE$ PAPR100$ 3300% P0 #v 3280#{ 3340# 3460)# 3280C# MULT LOTS + ODD LOTP# PAPROLZ# 3300c# COCm# 3340z# CXCCCO# NRNR1# 3340# NRNR1# CYCCCX# CCCXCO# CY0COCOCY# 3460# 3280# $ CC=FINAL STOCK COMMIS10" PANSPR" 3300"" COC," 34606" 3280C" PANSPRM"! 3300V"& CCC`"+ 3460j"0 3280w"5 PAOLPR": 3300"? COC"D PA100PR"I 3300"N CXCCO"S NR2"X 3340"] NR1"b CYCCCX"g CCCXCO"l CY0COCOCY#q 346R SHARE: ";PRG! NSPR100ĺ"10% COMMISSION = $";(NSPR10.5)100:O! J0a! MAP ROUTINEr! NR(NS100)! OLNSNR100! OL0NR0J1! OL0NR1J2! OL0NR1J3! OL0NR1J4! OL0NR1J5" J3075,3100,3125,3195,32LUNT ELLIS & LOEWI, INC. STOCK COMMIS- SION PROGRAM. ADAPTED FOR THE APPLE BY DAVID G. SPARKS 1980." INPUT ROUTINE "NUMBER OF SHARES: ";NS ! INPUT "PRICE PE:1460A4"ERROR NUMBER ";ER:"AT LINE # ";EN::D$;"CLOSE ";F$G>mH:"FILE NOT FOUND"::F$"":6990R"VOLUME MISMATCH"\"I/O ERROR"f"DISK FULL"p"FILE LOCKED"z"SYNTAX ERROR"2100 ..................... "BR10ī2100IER2020,2054,2040,2060,2070,2120,2130,2140,2150,2160,2170QERo"LANGUAGE NOT AVAILABLE""RANGE ERROR""RANGE ERROR" "WRITE PROTECTED""END OF DATA":RN$"END"2090 RN$;" ...IS NOT IN THIS FILE"*I12:I65 DAYS > ";A((A(14)A(4)100)365A(10));"%";4);:M"RECALL ANOTHER?";gA$:(A$,1)"Y"1470wA$R$5000}5000D$;"CLOSE ";F$ ...................... ERROR SUBROUTINE EN(218)(219)256:ER(222):E7):33);A(1)A(11)A(12)3(18):31);" -";A(4)f(19):10);"ADD. APPRECIATION";34);A(A(13))(21):10);"TOTAL ";34);A(A(14))(23):5);"NET RETURN ";::A(15);::" % FOR ";A(10);" DAYS"55);A((A(8)A(4)100)365A(10));" % < 3(17),r(12):15);"DIVIDENDS ";A(7)e|(14):15);"TOTAL ";A(7)(A(6)A(1)A(17))(15):5):"NET RETURN ";::A(9);" %";::" FOR ";A(10);" DAYS "(16):"IF ";NAME$;" CALLED @ ";A(11);" ";A(11)A(1);" -";A(12);" = "(1S$,3,2))"@DL5DD((S$,2,2))?J(7):"SELL------ CALL"T" ";MN$;" ";A(11);" @";A(6);" ";A(1)A(6);" -";A(17);" = ";A(1)A(6)A(17)Y" EXP. ";MN$;" ";DD^10:"IF ";NAME$;" STAYS AT ";A(16)h(10):15):"OPTION INCOME ";A(6)A(1)ABEGINNMNG OF THE STOCK REVIEW PORTION 3D$:ZZ4<:2^10);"DATE OF WRITE$ ";A(2)"(3):"BUY------- ";NAME$;30);"COST",(4):A(1);2);NAMES$;" @ ";A(16);3);A(16)A(1);" +";A(3);" =";::A(4):6S$(A(5)):DL(S$):DL6DD((]ZZ1ZZ2::"LIST OF STOCKS ON FILE":"------------------------------":V1K:Z$(V):VeK0:D$(4):"NAME OF STOCK TO BE REVIEWED; ";:RN$RN$""5000:"LINE 806"ZZ31320 *************************& THIS IS THE FILE (2D$;"OPEN ";F$2<D$;"READ ";F$QFNAMES$:KK1:Z$(K)NAMES$ZPMN$fZI117pdA(I)wnIxRN$R$ĺD$:1450ZZ3ĭRN$NAMES$15301350D$81015);::"ONE MOMENT PLEASE ":::ZZ1:RN$"END":1320BNAMES$LMN$VNS(`M2;D2;Y20jCM8tC1F~LN,DD,YYNPCVDV]TeN1lLtSP|C3AAT2N2P1C2D$  RETURN TO 810# ....................... INPUT INFO FROM ECP 50.84,51.92,53.00,54.08,55.16,56.24,57.32,58.41,59.49,60.57,61.65,62.73 53.54,54.35,55.16,55.97,56.78,57.60,67.06,68.14,69.22,70.30,71.39 72.47,73.55,74.63,75.71,76.79D$(4)$.D$;"APPEND ";F$8D$;"WRITE ";F$ p980,zDD((DT$,3,2)):YY((DT$,2))OLN((DT$,2)):X1LN:MN$:XUeTMLN30DDuTDM230D2YYY2ī980LTMTD425"360 8 IS LENGTH"L(365TD)TM425 JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,D5 DAYS > ";A((T2C1100)365L);"%";4);:A$:q "SAVE THIS WRITE?";:A$:(A$,1)"Y"ĺD$;"UNLOCK ";F$:1040*K0::"RECALL A PREVIOUS ONE? ";:A$:(A$,1)"Y"147045000>D$;"CLOSE ";F$HR(DT$)8ī970\(DT$)6890f420-";C1AA(SPNSC3)C1J(19):10);"ADD. APPRECIATION";33);A(AA)VT2TAA|(21):10);" TOTAL ";33);A(T2)(23):5);"NET RETURN ";::A(T2C1100);::" % FOR ";L;" DAYS" :N2A(T2C1100)05);A((TC1100)365L);"% < 36NPUT SPPRSPM PRINT "COMMISION,IF SOLD AT THIS PRICE ";: INPUT C3W3000aC3CC"COMMISION COST IS: ";C3:J11500::34,0(16):"IF ";NAME$;" CALLED @ ";SP;" ";SPNS;" -";C3;"= "(17):33);NSSPC3(18):32);""DIVIDENDS ";DV&(14)I015):"TOTAL ";DV(PCNSOC)]:TDV(PCNSOC)gDC2OCqN(15)X5):"NET RETURN ";::A(TC1100);" %";::" FOR ";L;" DAYS"bN1A(TC1100)l34,19:v PRINT "STRIKING PRICE OF CALL";: I CALL"E" ";MN$;" ";SP;" @";PC;" ";NSPC;" -";OC;"= ";PCNSOC]"EXP. ";MN$;" ";DDj34,18:"AMOUNT OF DIVIDENDS";:DV34,010:"IF ";NAME$;" STAYS AT ";P1(10)15):"OPTION INCOME ";PCNSOC(12)15): ";PSNS;"+";CM;"= ";30);::PSNSCM:X|C1PSNSCM: C1=TOTAL COST OF STOCKb(19)"STRIKING PRICE OF CALL";:SP"CALL PREMIUM ";:PC"EXP. DATE OF CALL (MMDDYY)";:DT$:850NONS1009000(7)"SELL------ "CALL OPTION WRITTING WORKSHEET":"----------------------------------------"V ,P1PSw 6 CONVERT TD$ TO TODAYS DATE @M2((TD$,2)) JD2((TD$,3,2)) TY2((TD$,2)) ^(3) h"BUY------- ";NAME$;" @ ";PS;30);"COST"-rNS;" ";NAME$;"T":"----------------------------------------"Z "NAME OF STOCK";:NAME$:NAME$""5000 "NUMBER OF SHARES (100'S) ";:A$:NS(100(A$)):NS "PRICE/SHARE ";:PS:PRPS 3000 CMCC "COMMISION COST IS: ";CM J11500:L ":6);Z:1 dA(20):2000:D$(4): D$ = CONTROL D= nD$(4)d x5);"TODAYS DATE (MMDDYY):";:TD$w (TD$)6120 (TD$)1120 A(X)((X100))100 Z$(30): R$(13) 7000 5000 . 6);"CALL OPTION WRITTING WORKSHEE *"4 $"* BY *"c ("* DAN RHOADES *" 2"* *" <"***************************************" F P"INSTRUCTION? (Y OR N)";:A$:(A$,1)"Y"İ12000 * *6 * GREEN APPLES *T * NORTH CENTRAL IOWA *r ************************x  "***************************************" "* *" #"* OPTION WRITER 4  ************************? * DAN RHOADES *^ * *} * COMMISSIONS BY * * DAVE SPARKS * * OCT. 6 1980 * * * * 50 STOCKS PER FILE *                DL'C1$(T$,1):C2$(T$,1):C6(C1$)64:C7(C2$)64:C5C7C626:),0)"GRM#M"A$(T%(0),0)F$F$" S":D$"OPEN"F$:D$"WRITE"F$:IC0C:IR0R:A$(T%(IR),IC):IR,IC:D$"CLOSE"::20:10:"DONE","DONE":'L(B$):T$"":X0:I1L:((B$,I,1))64T$T$(B$,I,1):XX1:.'T1$(B$,LX):IL::(T$)1C5(T$)64:"A$(T%(100),0):FL2A$(T%(179),0)"FC"A$(T%(179),0)eFL3A$(T%(180),0)"FC"A$(T%(180),0)FL3A$(T%(101),0)"FC"A$(T%(101),0)FL3A$(T%(1),0)"FC"A$(T%(1),0)FL1FL2A$(T%(0),0)"GRM#MFC"A$(T%(0),0)FL0FL3A$(T%(0)179,0)(A$(179,0),(A$(179,0))2)RgR1801130:FL3A$(180,0)(A$(180,0))2)fj"**SORTTING**"t T%(0)R1 A$(0,Q),A$(0,B),C$(0),W$(0),T%(0)p"ADDING HEADERS":C06040:IC1C:A$(T%(0),IC)I$A$(T%(0),IC)::FL1FL2A$(T%(100),0)"FCF"FL3:A$(1,0)(A$(1,0),(A$(1,0))2)V `FL0FL3A$(0,0)(A$(0,0),(A$(0,0))5) aR1001130:FL1A$(100,0)(A$(100,0),(A$(100,0))2) cR1011130:FL3A$(101,0)(A$(101,0),(A$(101,0))2)"eR1791130:FL1(A$(179,0),1)"F"FL2:A$():D$"OPEN"F$;",D";DR:D$"READ"F$:IC0C:IR0R:A$(IR,IC):IR,IC: D$"CLOSE"::C01120:I$(A$(0,1),R4):IC1C:A$(0,IC)(A$(0,IC),(A$(0,IC))R4): , [(A$(0,0),7)"GRM#MFC"FL1:A$(0,0)(A$(0,0),(A$(0,0))7)' \FL0(A$(1,0),1)""COLUMN LETTER MUST BE WITHIN ABOVE RANGEu "MAIN SORT ON WHICH COLUMN (A THRU Z) ";Q$:Q(Q$)64C1:Q0QC210 ::"SECONDARY SORT (A THRU Z OR RTN) ";B$:B$""BQ:240 B(B$)64C1:B0BC220E A$(R,C),C$(R),W$(R),T%(R):D$(13)(4LOG,D";DR:106i k:"USE SAME RANGE AS USED IN SPREADSHEET":::"FILE RANGE (B2.L20) ";A$:A$""A$F$ }L(A$):I1L:(A$,I,1)"."A1$(A$,I1):A2$(A$,LI):IL* :B$A1$:10000:C1C5:R1(T1$):B$A2$:10000:C2C5:R2(T1$):CC2C1:RR2R1::VIEW AVE":11:"LONG LAKE MN. 55356"4 PI12000:V d(978)191ĺ(4)"BRUN SS-DOS g(978)190ĺ(4)"BRUN B.NSORT":105 h(4)"BRUN B.NSORT-48K" i::::"WHICH DRIVE IS FILE IN ?";DR:DR1DR2105 j::"FILE NAME ";F$:F$""ĺ(4)"CATAE j SPREADSHEET SORT PAGE :8:12:"SPREADSHEET SORT":10:19:"BY":12:11:"RICHARD H. PETERSON":14:14:"612-473-5846"$ 21:12:"'RHP ENTERPRISES'":13:"248 LAKE     lpx|~𷄝]V߼ȿ1BhzBB5zaM|wQTWZ\^`cegkޔ6G݀ $-H^ݭ_%H\ݭ]HZݭ[H`ݭa rsLNHhL{ K @ jLrs`au`hhHHL9DLQL#VXZdfLf Lf Lf Lf e fL䍁L׍L6 -Lf ]Lfl8 o,,(`l6LfLlll f ލ` f Lи fL fL f L f L f QLB'Byyyy-Bz9BEBWBWBWBfBlBrBxBBhBBBBBBimBXmB z5hDLw@@DiLj@AC@B@BCAC KB C@ CAB"@lL@ʽBi@ȽBi}@ΩL6 ݍ̹A_COkhC濹տ AuA LBPADL Lf @1ɝ @ `ƠĠάō#C@CCA @i@@AAACCi$΢D@DA@ /k@ɝe*ɷ@MIiՐɵA@餐;-7iϑ@ȩ53@ʭXCWC _C@Ƚ`C @i@@8/e@@eAA"THE AVERAGE COST OF THIS PORTFOLIO,"+;^Z;a"$";M$(5);", RETURNED DIVIDENDS TOTALING"`;c;f"$";T1$;" FOR AN ANNUAL YIELD OF ";O$(11);"%.";k $;" FOR AN ANNUAL YIELD OF ";O$(11);"%.";k MT);T1$:26);"=========="':(23)L:"PRESS ANY KEY TO CONTINUE":V$_:  SUMMATIONr:%:P11000:P{:*(5):/14);"SUMMATION":4 AVERAGE COST CALCULATION:9M(5)M(1)M(2)M(3)M(4):>M(5)M(5)4:CM$(5)(M(5)):R::%;\S);H$(0);T);H1$89I1I(2)I(4)I(6)I(8):I107100F9I1$(I1)Z9M$I$(0):N$I1$d96860{9S);I$(0);T);I1$99T1A1B1C1D1E1F1G1H1I19T1$(T1)9N$T1$96860926);"----------"9:5);"TOTAL DIVIDENDS";nF1$(F1)8pM$F$(0):N$F1$)8r6860@8tS);F$(0);T);F1$f8vG1G(2)G(4)G(6)G(8):G107100t8xG1$(G1)8zM$G$(0):N$G1$8|68608~S);G$(0);T);G1$8H1H(2)H(4)H(6)H(8):H1071008H1$(H1)8M$H$(0):N$H1$868609);C1$+7XD1D(2)D(4)D(6)D(8):D10710097ZD1$(D1)M7\M$D$(0):N$D1$W7^6860n7`S);D$(0);T);D1$7bE1E(2)E(4)E(6)E(8):E1071007dE1$(E1)7fM$E$(0):N$E1$7h68607jS);E$(0);T);E1$7lF1F(2)F(4)F(6)F(8):F107100 8M$A$(0):N$A1$6686016S);A$(0);T);A1$X6&B1B(2)B(4)B(6)B(8):B10ī7100f6(B1$(B1)z6+M$B$(0):N$B1$60686065S);B$(0);T);B1$6@C1C(2)C(4)C(6)C(8):C10ī71006BC1$(C1)6DM$C$(0):N$C1$6F68607HS);C$(0);T:P11000:P56900&5S18:T3425X(M$)<5SSXH5Z(N$)R5TTZX5^5{512);"ANNUAL DIVIDENDS"5:58);"COMPANY";27);"DIVIDEND"57);"---------";26);"----------"55 A1A(2)A(4)A(6)A(8)5A1$(A1)6"%" 4.4"PRESS ANY KEY TO CONTINUE":V$H4 ***** *****N4h4 ANNUAL DIVIDENDSn44 ***** *****44:P11000:P4(10)412);"ANNUAL DIVIDEND"4415);"BY COMPANY"44P13000:P503O$(9)(O(9))A3O(10)O(1)O(3)O(6)O(9):O$(10)(O(10))c3O(11)O(10)1:O$(11)(O(11))t3P13000:P35);"4TH QUARTER YIELD : ";O$(9);"%"35);"AGGREGATE QTRLY YIELD : ";O$(10);"%"45);"ANNUAL YIELD : ";O$(11);N(4)A(8)B(8)C(8)D(8)E(8)F(8)G(8)H(8)I(8)T2N(4)(N(4).5):N$(4)(N(4))j2M$M$(4):N$N$(4)t25100210);"TOTALS";S);M$(4);T);N$(4)221);"===================="22O(9)N(4)M(4)3O(9)(103O(9).5)103:O(9)O(9)10$(8)1D510011FR);H$(0);S);H$(7);T);H$(8)P1JL$I$(0):M$I$(7):N$I$(8)Z1L5100}1NR);I$(0);S);I$(7);T);I$(8)1121);"--------------------"1M(4)A(7)B(7)C(7)D(7)E(7)F(7)G(7)H(7)I(7)1M(4)(M(4).5):M$(4)(M(4))22) 0.L$E$(0):M$E$(7):N$E$(8)*005100M02R);E$(0);S);E$(7);T);E$(8)l06L$F$(0):M$F$(7):N$F$(8)v0851000:R);F$(0);S);F$(7);T);F$(8)0<L$G$(0):M$G$(7):N$G$(8)0>51000@R);G$(0);S);G$(7);T);G$(8)1BL$H$(0):M$H$(7):N$HR);A$(0);S);A$(7);T);A$(8))5100a)R);C$(0);S);C$(5);T);C$(6))L$D$(0):M$D$(5):N$D$(6))5100)R);D$(0);S);D$(5);T);D$(6))L$E$(0):M$E$(5):N$E$(6))5100)R);E$(0);S);E$(5);T);E$(6)*L$12);"3RD QUARTER"(vI(x8);"COMPANY";25);"COST";33);"DIVIDEND"}(z7);"---------";24);"------";32);"---------"(L$A$(0):M$A$(5):N$A$(6)(5100(R);A$(0);S);A$(5);T);A$(6)(L$B$(0):M$B$(5):N$B$(6)(5100)R);B$(0:O$(5)(O(5))'P13000:PN'5);"2ND QUARTER YIELD : ";O$(3);"%"}'5);"AGGREGATE QTRLY YIELD : ";O$(4);"%"'5);"ANNUALIZED YIELD : ";O$(5);"%"''"PRESS ANY KEY TO CONTINUE":V$'p 3RD QUARTER'r:P11000:P(t.5):N$(2)(N(2))(&M$M$(2):N$N$(2)2&5100Y&10);"TOTALS";S);M$(2);T);N$(2)z&21);"===================="&O(3)N(2)M(2)&O(3)(103O(3).5)103&O(3)O(3)100&O$(3)(O(3))&O(4)O(1)O(3):O$(4)(O(4))'O(5)O(4)20):M$I$(3):N$I$(4)%5100A% R);I$(0);S);I$(3);T);I$(4)G%g%21);"-------------------"%M(2)A(3)B(3)C(3)D(3)E(3)F(3)H(3)I(3)%M(2)(M(2).5):M$(2)(M(2))%N(2)A(4)B(4)C(4)D(4)E(4)F(4)G(4)H(4)I(4)&N(2)(N(2));E$(3);T);E$(4)0$ L$F$(0):M$F$(3):N$F$(4):$ 5100]$R);F$(0);S);F$(3);T);F$(4)|$L$G$(0):M$G$(3):N$G$(4)$5100$R);G$(0);S);G$(3);T);G$(4)$L$H$(0):M$H$(3):N$H$(4)$5100$R);H$(0);S);H$(3);T);H$(4)%L$I$( #5100-#R);B$(0);S);B$(3);T);B$(4)L#L$C$(0):M$C$(3):N$C$(4)V#5100y#R);C$(0);S);C$(3);T);C$(4)#L$D$(0):M$D$(3):N$D$(4)#5100#R);D$(0);S);D$(3);T);D$(4)#L$E$(0):M$E$(3):N$E$(4)#5100$R);E$(0);S:P11000:P&"12);"2ND QUARTER","["8);"COMPANY";25);"COST";33);"DIVIDEND""7);"---------";24);"------";32);"---------"""L$A$(O):M$A$(3):N$A$(4)"5100"R);A$(0);S);A$(3);T);A$(4)#L$B$(0):M$B$(3):N$B$(4)O(2).5)103 !gO$(2)(O(2))1!hP13000:P`!j5);"1ST QUARTER YIELD : ";O$(1);"%"!l5);"AGGREGATE QTRLY YIELD : ";O$(1);"%"!n5);"ANNUALIZED YIELD : ";O$(2);"%"!p!r"PRESS ANY KEY TO CONTINUE":V$! 2ND QUARTER")I(2)( JN(1)(N(1).5):N$(1)(N(1))> OM$M$(1):N$N$(1)H T5100n Y8);"TOTALS";S);M$(1);T);N$(1) ^21);"====================" `O(1)N(1)M(1) bO(1)(103O(1).5)103 cO(1)O(1)100 dO$(1)(O(1))!fO(2)O(1)4:O(2)(103$(0);S);I$(1);T);I$(2)?21);"--------------------"R,M(10):M$(10)e1N(10):N$(10)x6O(20):O$(20);M(1)A(1)B(1)C(1)D(1)E(1)F(1)G(1)H(1)I(1)@M(1)(M(1).5):M$(1)(M(1)) EN(1)A(2)B(2)C(2)D(2)E(2)F(2)G(2)H(2$F$(2)51004R);F$(0);S);F$(1);T);F$(2)SL$G$(0):M$G$(1):N$G$(2)]5100R);G$(0);S);G$(1);T);G$(2)L$H$(0):M$H$(1):N$H$(2)5100R);H$(0);S);H$(1);T);H$(2)L$I$(0):M$I$(1):N$I$(2)5100R);I$(2)#L$C$(0):M$C$(1):N$C$(2)-5100PR);C$(0);S);C$(1);T);C$(2)oL$D$(0):M$D$(1):N$D$(2)y5100R);D$(0);S);D$(1);T);D$(2)L$E$(0):M$E$(1):N$E$(2)5100R);E$(0);S);E$(1);T);E$(2)L$F$(0):M$F$(1):NER" \8^8);"COMPANY";25);"COST";33);"DIVIDEND"l`7);"---------";24);"------";32);"---------"iL$A$(0):M$A$(1):N$A$(2)n5100sR);A$(0);S);A$(1);T);A$(2)xL$B$(0):M$B$(1):N$B$(2)}5100R);B$(0);S);B$(1);T);B3000:P5200$ ***********J ALIGN NAME,COST,DIVIDENDb SUBROUTINEi |R15:S29:T38W(L$)X(M$)Z(N$) RRWSSXTTZP - 1ST QUARTERU:P11000:PZ12);"1ST QUART I(7)AH:I$(7)AH$* I(8)AI:I$(8)AI$G I(9)I(2)I(4)I(6)I(8)Y I$(9)(I(9))c (23) "PRESS ANY KEY TO GO TO THE SUMMARY":V$ 5000 - SUMMARY:P11000:P(10)6);"QUARTERLY AND ANNUAL SUMMARY"P1"IS THERE ANOTHER STOCK? (Y/N)":V$5 V$"N"ī5000I 9TH STOCKO Y 1200l I(10):I$(10)z I$(0)AA$ I(1)AB:I$(1)AB$ I(2)AC:I$(2)AC$ I(3)AD:I$(3)AD$ I(4)AE:I$(4)AE$ I(5)AF:I$(5)AF$ I(6)AG:I$(6)AG$10) H$(0)AA$' H(1)AB:H$(1)AB$= H(2)AC:H$(2)AC$S H(3)AD:H$(2)AD$i H(4)AE:H$(4)AE$ H(5)AF:H$(5)AF$ H(6)AG:H$(6)AG$ H(7)AH:H$(7)AH$ H(8)AI:H$(8)AI$ H(9)H(2)H(4)H(6)H(8) H$(9)(H(9)) (23)# $Z G(5)AF:G$(5)AF$-\ G(6)AG:G$(6)AG$C^ G(7)AH:G$(7)AH$Y` G(8)AI:G$(8)AI$vf G(9)G(2)G(4)G(6)G(8)h G$(9)(G(9))p (23)r "IS THERE ANOTHER STOCK? (Y/N)":V$t V$"N"ī5000z 8TH STOCK| ~ 1200 H(10):H$(F(4)F(6)F(8) 6 F$(9)(F(9))*> (23)S@ "IS THERE ANOTHER STOCK? (Y/N)":V$eB V$"N"ī5000xH 7TH STOCK~J L 1200N G(10):G$(10)P G$(0)AA$R G(1)AB:G$(1)AB$T G(2)AC:G$(2)AC$V G(3)AD:G$(3)AD$X G(4)AE:G$(4)AE 6TH STOCK  12003 F(10):F$(10)A F$(0)AA$W F(1)AB:F$(1)AB$m" F(2)AC:F$(2)AC$$ F(3)AD:F$(3)AD$& F(4)AE:F$(4)AE$( F(5)AF:F$(5)AF$* F(6)AG:F$(6)AG$, F(7)AH:F$(7)AH$. F(8)AI:F$(8)AI$4 F(9)F(2))AC$ E(3)AD:E$(3)AD$1 E(4)AE:E$(4)AE$G E(5)AF:E$(5)AF$] E(6)AG:E$(6)AG$s E(7)AH:E$(7)AH$ E(8)AI:E$(8)AI$ E(9)E(2)E(4)E(6)E(8) E$(9)(E(9)) (23) "IS THERE ANOTHER STOCK? (Y/N)":V$ V$"N"ī5000D$(7)AH$ D(8)AI:D$(8)AI$< D(9)D(2)D(4)D(6)D(8)N D$(9)(D(9))X (23) "IS THERE ANOTHER SECURITY? (Y/N)":V$ V$"N"ī5000 5TH STOCK  1200 E(10):E$(10) E$(0)AA$ E(1)AB:E$(1)AB$ E(2)AC:E$(2ERE ANOTHER SECURITY?":V$, V$"N"ī5000> 4TH STOCKD N 1200a D(10):D$(10)o D$(0)AA$ D(1)AB:D$(1)AB$ D(2)AC:D$(2)AC$ D(3)AD:D$(3)AD$ D(4)AE:D$(4)AE$ D(5)AF:D$(5)AF$ D(6)AG:D$(6)AG$  D(7)AH: C$(0)AA$! C(1)AB:C$(1)AB$7 C(2)AC:C$(2)AC$M C(3)AD:C$(3)AD$c C(4)AE:C$(4)AE$y C(5)AF:C$(5)AF$ C(6)AG:C$(6)AG$ C(7)AH:C$(7)AH$ C(8)AI:C$(8)AI$ C(9)C(2)C(4)C(6)C(8) C$(9)(C(9)) (23) "IS TH$(4)AE$N B(5)AF:B$(5)AF$4S B(6)AG:B$(6)AG$JX B(7)AH:B$(7)AH$`] B(8)AI:B$(8)AI$}_ B(9)B(2)B(4)B(6)B(8)` B$(9)(B(9))b (22)g "IS THERE ANOTHER SECURITY? (TYPE Y/N)":V$l V$"N"ī5000 3RD STOCK  1200 A(6)A(8) A$(9)(A(9))& (22)W "IS THERE ANOTHER SECURITY? (TYPE Y/N)":V$i V$"N"ī5000y 2ND STOCK! & 1200+ 0 B(10):B$(10)5 B$(0)AA$: B(1)AB:B$(1)AB$? B(2)AC:B$(2)AC$D B(3)AD:B$(3)AD$I B(4)AE:B STOCK   1200 / A(10):A$(10)= A$(0)AA$S A(1)AB:A$(1)AB$i A(2)AC:A$(2)AC$ A(3)AD:A$(3)AD$ A(4)AE:A$(4)AE$ A(5)AF:A$(5)AF$ A(6)AG:A$(6)AG$ A(7)AH:A$(7)AH$ A(8)AI:A$(8)AI$  A(9)A(2)A(4)PROGRAM HAS A MAXIMUM OF 9 STOCKS"J Y"WHICH CAN BE LISTED. IF MORE ARE"s ^"NEEDED, THE ROUTINES SHOWN IN THE" c"PROGRAM CAN BE ADDED TO INCREASE THE" h"MAXIMUM TO THE DESIRED AMOUNT." r(22) w"PRESS ANY KEY TO CONTINUE":V$ - 1ST(AH) iAI(AI.5):AI$(AI)% x8 :P11000:PB (10)i 6);"QUARTERLY AND ANNUAL RETURN"o  8);"OF SECURITIES PORTFOLIO"  P13000:P ,:P11000:P @ B: D(17) E" NOTE " J O:::" T"THIS # ("COST OF SHARES PAID : $";AH, -(2)O 2"DIVIDEND RECEIVED : $";AIi FAB(AB.5):AB$(AB) KAC(AC.5):AC$(AC) PAD(AD.5):AD$(AD) UAE(AE.5):AE$(AE) ZAF(AF.5):AF$(AF) _AG(AG.5):AG$(AG) dAH(AH.5):AH$ "2ND QUARTER: (2)? "COST OF SHARES PAID : $";ADH (2)k "DIVIDEND RECEIVED : $";AEq  "3RD QUARTER:" (2) "COST OF SHARES PAID : $";AF (2) "DIVIDEND RECEIVED : $";AG  "4TH QUARTER:" #(2)******** V' ` INPUT SUBROUTINE- jB t **********H ~[ :P11000:Pd (2) "NAME OF COMPANY : ";AA$  "1ST QUARTER:" (2) "COST OF SHARES PAID : $";AB (2) "DIVIDEND RECEIVED : $";AC 3 **********************$? QTRLY & ANNUALIZEDU RETURN OFq SECURITIES PORTFOLIO  BY TOM ALEXANDER$ 1983.8 ********************* B1500 L **                             ENU"A NOW.":24:" PRESS ANY KEY TO CONTINUE.";:A$Ac2c0u936:12::" INSERT YOUR MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:TE$c:u30000cNu:936:12:14:"LOADING...."cXu(4)"RUN MENU"4:" PRESS ANY KEY TO CONTINUE.";:A$:b2936:12:"PUT THE SECURITES PORTFOLIO MASTER DISK"::" IN THE DRIVE NOW.":24:" PRESS ANY KEY TO CONTINUE.";:A$b2b0ub:u30000bNu:936:12:14:"LOADING...."cXu(4)"RUN M:a)936:12:"THERE IS ALREADY A FILE BY THAT NAME ON":ia)"THIS DISK. PLEASE DELETE IT/THEM FIRST."a)24:" PRESS ANY KEY TO CONTINUE.";:A:1150,b.11:" YOU HAVE NOT DECLARED DATA FILES YET."::" USE MENU SELECTION 'L' TO LOAD DATA.":20F`'936:12:" I/O ERROR - CHECK YOUR DISK DRIVE.":II11500:IIP`'1150``'E410200`'936:12:4:"YOUR DISKETTE IS WRITE-PROTECTED."`'24:7:"PRESS ANY KEY TO CONTINUE.";:A$:936::1150`'XX(37)1:XX:1:868:XX1:1:868:"::" THE DRIVE BEFORE CONTINUING."d_'24:" PRESS ANY KEY TO CONTINUE.";:A$:936::t_'E2557870_'E1110140_'936:12:"IMPROPER FILE NAMES - PLEASE TRY AGAIN.":24:" PRESS ANY KEY TO CONTINUE.";:A$:1150`'E8101718)(219)256:^$'7870'^t'E(222)@^~'E1(218)(219)256`^'PRINT E,E1: GET A$: PRINT v^'E6E181518180^'E6E182418270^'E610130)_'936:9:"UTILITY PROGRAM NOT FOUND. PLEASE PUT"::"THE SECURITIES PORTFOLIO MASTER DISK INACE YOUR DATA DISKETTE IN THE DRIVE."::"DO NOT ATTEMPT TO LOAD DATA FILES USED"::"BY ANY OTHER PROGRAM THAN PORTFOLIO."]$24:3:"HIT ANY KEY WHEN READY TO CONTINUE.";:A$]"$936:12:12:"PLEASE STAND BY."],$]'E(222)^'E255E1(2" SALES "8630C\#936:10:"CHOICE FOR STOCKS FILE : ";S1FILE$I\#r\#"CHOICE FOR SALES FILE : ";S2FILE$\#:" ARE THESE CORRECT (Y/N)?";:A$:\#A$"Y"A$"N"9160\#A$"Y"8630\#1150\$E(222):E:30000}]$936:10:"PL#Q01S2FILE$(T$,6,(T$)):9160A[x#Q01:S1FILE$(T$,6,(T$))e[y#(S1FILE$,9)" STOCKS "8630o[#8680[#BSCH,V1):TSCH,V)[#N64:BSC13N80[#BSC10N32[#BSC11N48[#X015:H,V)XT$T$(XN):[#:\#(S2FILE$,8)SC:H,V:BSC12(BSC12BSC13)8(BSC10BSC11):H,V1QZ(#BSC10TSC0SP0kZ2#BSC10TSC0SPSP1zZ<#SP29050ZF#ZP#MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253ZZ#POKE 216,0: POKE MEM + 1463,12: POKE MEM + 1464,253Zd#19:"[nA$"A"Ģ24:13::"**ABORTED**";:II11500:II::1150yY"I0462:(5,I)TSC5,I1)BSC)(4,I1)96,I1)9)8960Y"Y#T$OP$Y #JX21VSEL1:J:1:" ";::VSEL:1:958Y#I21:1::" ";:2:T$;:8Z#VI:H737:9100:TVSEL0VSEL24ZX"VSEL:1:37):6::Q00ĺ" CHOICE FOR ";::"STOCKS";::" FILE :";X"Q01ĺ" CHOICE FOR ";::"SALES";::" FILE :";X"16368,0:A$X"A$(13)ĢVSEL:31::A$;" ";:X"TSC30,2VSEL2):BSC30,2VSEL1)7Y"A$MAX$:N$(LTR)FWj"1,V)0FILE$" ":N$" ":N$" "TEST$" "MAX$TEST$mWt"TEST$" "N$" "VSELV21:8890W~"" ";:50,63192(LOCK$" ")W"XXX0ĺ" ";::"*";::FILE$;W"XXX1ĺFILE$;W":" ";::XXX1ĺN$;W"W":X"ZZZ58120:)ĂX+V"LTR64:XX1:VX442::V21:1MV$"LOCK$" ":0,V)10LOCK$":"WV."XXX0V8"1,V)1FILE$" "VB"1,V)2FILE$" "VL"1,V)9FILE$" "VV"1,V)4FILE$" ":LTRLTR1:XXX1 W`"TEST$N$:OP$"OPEN "!U!MAX$"W":D$(4)+U!9230:U!255:::KU!1::D$;CA$U!24:"SELECT LETTER OR PRESS RETURN TO ABORT.";:1:1U!4:ZZZ5ĺ" CURRENT AVAILABLE LEDGER FILES :"U"ZZZ5Ģ4:" CURRENT LEDGER FILES :"V"X1452:(5,X)11NDLY.":T!10100ET!24:" PRESS ANY KEY TO CONTINUE.";:A$yT!:7:"YOU WILL NEED A BLANK APPLE-FORMATTED"T!:"DISKETTE TO STORE YOUR DATA ON."T!24:" PRESS ANY KEY TO CONTINUE.";:A$:1150T!Q00T!10100 U!CA$"CATALOG"TE THE CREATE FILE":FSz!"COMMAND (1) BEFORE YOU CAN DO ANYTHING":wS!"ELSE. ONCE YOU HAVE YOUR BOOKS READY,":S!"YOU CAN BEGIN ADDING YOUR SECURITIES":S!"TO THE DATA BASE. ALL COMMANDS ARE SELF":T!"EXPLANATORY AS WELL AS USER FRIETIONS (Y/N)?";:A$2R+!A$"Y"A$"N"Ģ9::8490DR4!A$"Y"1150QRH!936:4RR!"'SECURITIES PORTFOLIO' IS DESIGNED TO":R\!"KEEP TRACK OF YOUR SECURITIES FOR YOU.":Rf!"IF YOU WISH TO START A NEW SET OF":Sp!"BOOKS, YOU MUST EXECUES INITIALIZED ***"!Q L(FI$)1Q T20(.5L)BQ 12:T);FI$HQ [Q A013000:A0eQ 1150mQ *wQ 936Q 10000Q!D$""Q !10:"S E C U R I T I E S P O R T F O L I O"Q!XX13000:XXQ !936R*!10:" DO YOU NEED INSTRUCP& D$;"CLOSE ";S1FILE$ P0 *AP1 D$"RENAME "S2FILE$",BOOBOO"`P2 D$"RENAME BOOBOO,"S2FILE$oP3 D$:10500xPN SR0PX *Pb D$;"OPEN ";S2FILE$;", L160"Pl D$;"WRITE ";S2FILE$;", R0"Pv SRP D$;"CLOSE ";S2FILE$P P Q FI$"*** FIL$OS1FILE$(S1FILE$,20)" STOCKS"GOS2FILE$(S2FILE$,20)" SALES"QO9230WOxOD$"RENAME "S1FILE$",BOOBOO"OD$"RENAME BOOBOO,"S1FILE$OD$:10500OTR0O *O D$;"OPEN ";S1FILE$;", L80"O D$;"WRITE ";S1FILE$;", R0"O TR"DO YOU WANT TO CREATE NEW FILES (Y/N)?";:A$NN}A$"N"A$"Y"Ģ11::8060_N~A$"N"1150mN12:868N12:1:868:"ENTER NAME FOR STOCKS FILE :";S1FILE$N14:1:"ENTER NAME FOR SALES FILE :";S2FILE$OS1FILE$""S2FILE$""Ģ11::8060MM *M * QUIT#M *:MTY$"THANK YOU..."SML(TY$):T20(.5L)]M(10)jMT);TY$uM"30000}M, *M6 * INITIALIZE NEW FILEM@MJT$"*** INITIALIZE NEW FILE ***"MTL(T$):T20(.5L)M^T);T$MhMr *-N|12:D$;"CLOSE ";S1FILE$$LP34,0:35,24*LZ4Ld1150(/";D1;"/";Y1D: *:DD3)" NUMBER OF SHARES(D): ";A1HDNA2$(A2)SDXH$A2$\Db480gDlA2$H$Dv3);" PRICE PER SHARE(E): $";A2$DA3$(A3)DH$A3$D950DA3$H$D3);"TOTAL COMMISSION (F): $";A3$DA4A1A2A3EA4$CR1RTRī6850C34,3#CCCD$;"OPEN ";S1FILE$;", L80"cCD$;"READ ";S1FILE$;", R";RCN$,A1,A2,A3,M1,D1,Y1,A$C(4)C3);" NAME OF SECURITY(A): ";N$C&3);" CERTIFICATE NUMBER(B): ";A$ D03);" PURCHASE DATE(C): ";M1;"10IĢ24:868:" ** LOADING MORE **";:J613000:J6:17:OB6770YBD$:B23:6:868::"EDIT A FILE (Y/N)? ";:A$:BA$"Y"A$"N"6841BA$"N"1150B24:3:868::"PRESS A NUMBER AND HIT : ";R$:BR(R$) AD$;"OPEN ";S1FILE$;", L80"?A"D$;"READ ";S1FILE$;", R0"GA,TRWA6TR0ī7800]A@AJ" SECURITIES AVAILABLE FOR EDITING : "ATA^AhI0ArII1A|D$;"READ ";S1FILE$;", R";IAN$A10);I;13);N$AITR6840EB(I10)" @x *@y13000@#@(7)K@7);"READING PROGRAM FROM DISK..."^@D$;"RUN SOLD"p@ * EDIT FILEv@|@@T$"*** EDIT A FILE ***"@L(T$)@T20(.5L)@T);T$@S1FILE$""İ12000:1150@ *@@34,7A *23) ??F?24:868:" RECORD ANOTHER SALE (Y/N)? ";:V$X?V$"Y"ī6450q? ::D$;"CLOSE ";FF$?34,0:35,24??(1150?2?<4630?F *?G13000?P?Z(7)?d7);"READING PROGRAM FROM DISK..."@nD$;"RUN MARKET:Y1:A$!>jD$;"CLOSE ";S1FILE$+>t63607>~:::e>" ALL SHARES OF THIS SECURITY HAVE BEEN">:" SOLD. RETURN TO THE MAIN MENU TO MAKE">:11:"ANOTHER SELECTION.">D$;"CLOSE ";F$>6360>1910>D$;"CLOSE ";F$>R0?(FILE$=C30ī63606= * NO STOCK LEFT AFTER SALEH=N$N$"-SOLD"[=A10:A20:A30n=$M10:D10:Y10=.A$"TENDERED ON SALE"=8 * SOLD ALL STOCK=BD$;"OPEN ";S1FILE$;", L80"=LD$;"WRITE ";S1FILE$;", R";R=VN$:A1:A2:A3>`M1:D1SR1 V$"N"Ĺ34,10::5280;HD$;RD$;"OPEN ";S2FILE$;", L200";\D$;"READ ";S2FILE$;", R0": ";R$:;0R(R$)U0R1RTRĢ22::4810_034,1e0x0 * 2ND SCREEN~00 *0D$;"READ ";S1FILE$;", R";R0$N$,A1,A2,A3,M1,D1,Y1,A$0.A10ī627008" SECURITY: ";N$1B" NUM$;", R";I/N$(/14);I".";17);N$7/ITR4800/(I10)10IĢ24:868:" ** LOADING MORE **";:J613000:J6:15:/4730/D$/23:8::"RECORD A SALE (Y/N)? ";:A$:/A$"N"A$"Y"4801/A$"N"1150/023:2:85L).T);T$-.S1FILE$""İ12000:11507. 34,1=.]. D$;"OPEN ";S1FILE$;", L80"|.*D$;"READ ";S1FILE$;", R0".4TR.>TR0ī6330.H5);"FROM WHICH FILE WAS SALE MADE :".R.\.f:34,5.pI0.zII1 /D$;"READ ";S1FILEA$"N"ġ:1150T-23:1:868:" ";::"TYPE A NUMBER AND PRESS : ";R$:`-R(R$)z-R1RTRĢ22::4500--D$;"READ ";S1FILE$;", R";R-N$,A1,A2,A3,M1,D1,Y1,A$---T$"*** RECORD A SALE ***"-L(T$).T20(.,ND$;"READ ";S1FILE$;", R";I',XN$>,b14);I".";17);N$M,lITR4490,v(I10)10IĢ24:868:" ** LOADING MORE **";:19::J612000:J6,4420,D$,23:7::"DISPLAY A SECURITY (Y/N)? ";:A$:,A$"N"A$"Y"4491-R SECURITY (Y/N)? ";:V$:;+V$"N"V$"Y"Ģ23::4290M+V$"Y"ī3450S+g+D$;"CLOSE ";F$x+34,0:35,24~++1150+ *+D$;"OPEN ";S1FILE$;", L80"+D$;"READ ";S1FILE$;", R0"+TR+&TR0ī4240+0+:I0+DII1Q$;"." *J*T4260"*^:::O*h"ALL SHARES OF THIS SECURITY HAVE BEEN"|*r"SOLD. RETURN TO THE MAIN MENU TO MAKE"*|"ANOTHER SELECTION."*4260*:*1910*D$;"CLOSE ";F$* **(22)+24:868:" ";::"ANALYZE ANOTHE"MARKET VALUE : $";J$() *Q)"YIELD BASED ON COST : ";R$;"%"z)"YIELD ON MARKET VALUE : ";S$;"%"):) *)" *),3);"IF ";A1;" SHARES OF ";N$;" WERE SOLD")63);"TODAY, THE PROCEEDS WOULD RESULT"*@3);"IN A ";950 (dR$H$(nSHJ:SS1007(xS(102S.5)102V(S$(S): * YIELD - MARKET`(H$S$i(950s(S$H${( *(50(:("NUMBER OF SHARES OWNED : ";A1("COST OF SHARES OWNED : $";E$("TOTAL ANNUAL DIVIDEND : $";HH$ )T VALUE'J(102J.5)102+'H$(J)4'950>'J$H$Z'FCJE: * GAIN OR LOSSt'FC(102FC.5)102'FC$(FC)' H$FC$'950'FC$H$'( *'2RHE:RR100'<R(102R.5)102'FR$(R): * YIELD - COST'PH$R$(Z$:868&jG(G$)0&kG0G10000000Ģ9:3670N&tHA1G: * TOTAL DIVIDENDf&~H(102H.5)102r&H$(H){&950&HH$H$&12:868:"CURRENT PRICE PER SHARE : $";I$:868&I(I$)&I0I10000000Ģ11::3750'JA1I: * MARKE50 % 34,3% % *"% D$4% A10ė:4190N% 11);"ANALYSIS OF ";T% d%" ";N$;" "j%%EA1A2A3: * TOTAL COST%$E(102E.5)102%.E$(E)%8H$E$%B950%LE$H$%V&`10:868:"ANNUAL DIVIDEND PER SHARE : $";G1-12): ";M2:868&$g M21M2123430Z$k 8:868:" ENTER DATE (1-31) : ";D2:868o$l D21D2313435$p 9:868:" WHAT YEAR IS IT 19";Y2:868$q Y210Y2993440$z $ " SECURITIES AVAILABLE FOR ANALYSIS :"$ $ % 43:3300 # # V$"Y"ī25702# D$;"CLOSE ";F$C# 34,0:35,24O# :1150U# [#* #4 W$"*** CURRENT STATISTICS ***"#> L(W$)#H T(402)(.5L)#R T);W$#S S1FILE$""İ12000:1150#\ :34,3:35,24$f 7:868:" WHAT MONTH IS IT (." "RENT YEAR THE INFORMATION WILL BE REC-"4" c" "ORDED IN 'SECURITIES SOLD'. OPTION 'G'"i" " "IN THE MAIN MENU."" P13000:P" :::" 24" 868:" ";::"DISPLAY ANOTHER SECURITY (Y/N)? ";:V$:# V$"Y"V$"N"Ģ23:3300 !: !D (15)!N 1910H!X " TO GO TO THE MAIN MENU ->"\!b D$;"CLOSE ";F$m!l 34,0:35,24u!v V$! :1150! 3300! ::! "ALL SHARES OF THIS SECURITY HAVE BEEN"! ! "SOLD. IF THE SALE OCCURRED IN THE CUR-"! PRICE PER SHARE: $";A2$' A3$(A3)2 H$A3$; 950F A3$H$l 3);"TOTAL COMMISSION : $";A3$| A4A1A2A3 A4$(A4) H$A4$ 950 A4$H$  3);" TOTAL COST: $";A4$  D$;"CLOSE ";S1FILE$  & :::!0 A$ " D$, A10ī3220#6 (6)G@ 3);" NAME OF SECURITY: ";N$kJ 3);" CERTIFICATE NUMBER: ";A$T 3);"PURCHASE DATE(1-31): ";M1;"/";D1;"/";Y1^ h 3)" NUMBER OF SHARES: ";A1r A2$(A2)| H$A2$ 480 A2$H$ 3);" SECURITY (Y/N)? ";:A$:: A$"Y"A$"N"Ģ22::2771K A$"N"1150 23:1:868:" ";::"TYPE A NUMBER AND PRESS : ";R$: R(R$) R1RTRĢ22::2780 34,3  D$;"READ ";S1FILE$;", R";R N$,A1,A2,A3,M1,D1,Y1, n 35,24x  J60& J6J61G D$;"READ ";S1FILE$;", R";J6O N$g 14);J6".";17);N$w J6TR2770 (J610)10J6Ģ24:868:" ** LOADING MORE **";:I12000:I:16: 2700 D$ 23:868:2::"CARE TO DISPLAY A ***" L(T$)" T20(.5L). T);T$K S1FILE$""İ12000:1150Q [ 2590a g  D$;"OPEN ";S1FILE$;", L80"( D$;"READ ";S1FILE$;", R0"2 TR< TR0ī3130F P " SECURITIES AVAILABLE FOR REVIEW :"Z d 34,6*L D$;"CLOSE ";S1FILE$$V (23)Z` " ";::"ADD ANOTHER SECURITY (Y/N)? ";::V$wa V$"Y"V$"N"ĺ:2390j V$"Y"ė::2100t 34,0~ 1150  2080 *  * * REVIEW A FILE  T$"*** DISPLAY A FILE * WRITE TO RECORD TR+N$:A1:A2:A3;M1:D1:Y1CA$b * PLACE EACH INFORMATION} * ITEM IN A SEPARATE * FIELD D$;"WRITE ";S1FILE$;", R0" * WRITE FILE INTO$ * RECORD # 0. TR8 * PRINT NEW RECORD #B NUMBER : ";A$:8687q(A$)20A$(A$,20)@z *`D$;"OPEN ";S1FILE$;", L80"D$;"READ ";S1FILE$;", R0" * READ TOTAL RECORDS TRTR:TRTR1 * GET TOTAL RECORDS AND * ADD 1D$;"WRITE ";S1FILE$;", R";TRʌ868:"MONTH PURCHASED (1-12) : ";M1:868EgM11M1122150~h15:868:"DATE PURCHASED (1-31) : ";D1:868iD11D1312152j17:868:"YEAR PURCHASED : 19";Y1:868kY110Y1992154p19:868:"CERTIFICATE7:868:"NUMBER OF SHARES : ";A1:868OIA11A1100000002120R9:868:"PURCHASE PRICE PER SHARE : ";A2:868SA20A2100000002130\11:868:"TOTAL PURCHASE COMMISSION : ";A3:868]A30A31000000021400f13: *9230AT$"*** RECORD NEW SECURITY ***"YL(T$):T20(.5L)eT);T$S1FILE$""İ12000:1150 11::868:234,245:"SECURITY NAME (5 CHARACTERS): ";N$:8685(N$)5Ģ4::868:31:(N$,5):21004HN>X24::"PRESS ANY KEY TO RETURN TO MAIN MENU.";:A$:Ob34,0:35,24Yl1150mvD$;"CLOSE ";F$s}(15)" ";::"THERE ARE NO FILES ON RECORD."::XX13000:XX34,0:35,241150 * * ENTER NEW SECURITYES ARE ON FILE:":'J603J6J61TD$;"READ ";S1FILE$;", R";J6\N$q14);J6;17);N$J6TR1850&(J610)10J6Ģ24:" ";:"*** FURTHUR ENTRIES: ***";:A13000:A:15:01780:D$;"CLOSE ";S1FILE$D *JT$"*** INDEX OF SECURITIES ON FILE ***"9TL(T$)I^T20(.5L)UhT);T$]r *n|34,6:35,23D$;"OPEN ";S1FILE$;",L80"D$;"READ ";S1FILE$;", R0"TR11::8682TR0ī1910:"THE FOLLOWING SECURITI1V10Ģ23::1410"V1ī79801V2ī1970@V3ī2460OV4ī3360^V5ī4570mV6ī6470|V7ī6520V8ī6570V9ī1550 * *" * INDEX OF SECURITIES, *692307S1FILE$""İ12000:1150@:2-OLIO.",<5:"7. DISPLAY SECURITIES SOLD."?P5:"8. EDIT."hd5:"9. DISPLAY SECURITIES ON FILE."n5::5:"L. LOAD DATA."x5::5:"Q. QUIT."(22)13::"SELECT OPTION :";::V$V(V$)V$"Q"7870V$"L"8630VT$" *** MAIN MENU ***"*L(T$):T20(.5L)H3:T:T$O7o5:"1. CREATE DATA FILES."5:"2. ADD DATA."5:"3. DISPLAY DATA."5:"4. CURRENT STATISTICS."5:"5. RECORD A SALE."(5:"6. MARKET VALUE OF PORTFL7L5L6$$L70H$H$".00":1100>.L72H$H$"0":1100N8L73H$H$VB *\LdV *p`D$(4)x~::1:2:I239:" ";:II223:I:2:" ";:39:" ";:I24:2:I239:" ";:I5:2:I239:" ";:I:10100940L30H$H$".000":9409L32H$H$"00":940RL33H$H$"0":940bL34H$H$hp * * SUB-ROUTINE TO * FILL 2 DECIMAL * PLACES *L5(H$)N5(H$)N6(N5)N6$(N6)L6(N6$)Q$FC$ A Q$"SHORT TERM LOSS OF $":Q$Q$(FC$,(FC$)1)G O  *f  * SUB-ROUTINE TO}  * FILL 3 DECIMAL * * PLACES 4 * >L1(H$) HN1(H$) RN2(N1) \N2$(N2) fL2(N2$) pL3L1L2zL30H$H$".000":"L"FC.00ī700( W$"L"FC.00ī720@ W$"S"FC.00ī740X W$"S"FC.00ī760`  * Q$"LONG TERM GAIN OF $":Q$Q$FC$  Q$"LONG TERM LOSS OF $":Q$Q$(FC$,(FC$)1)  Q$"SHORT TERM GAIN OF $ ":Q$YDY2Y1:YD1ī6003 MDM2M1:YD1MD6ī630H YD1MD6ī600] YD1MD6ī570q YD1MD6ī600 &YD0MD6ī630 0YD0MD6ī600 :DDD2D1 DDD0ī600 NDD0ī630 XW$"L":640 b * l * vW$"S"  * W$TERM GAIN OF $" hQ$Q$FC$# r@ |Q$"LONG TERM LOSS OF $"Z Q$Q$(FC$,(FC$)1)` ~ Q$"SHORT TERM GAIN OF $" Q$Q$FC$  Q$"SHORT TERM LOSS OF $" Q$Q$(FC$,(FC$)1)   *  * 6 MOS HOLDING PERIOD  * YD0270 MDM2M1# MD02501 MD0270> DDD2D1L DD0250[ DD0270f W$"L"o 280z W$"S"  * "W$"L"FC.00ī350 ,W$"L"FC.00ī380 6W$"S"FC.00ī410 @W$"S"FC.00ī440 J * T * ^Q$"LONG [  8430!(1110)2 *@< * SUBROUTINE FORVF * LONG OR SHORTkP * GAIN OR LOSSsZ *dY184ī480nY184M16ī480xY184M16D122ī480 * * 1 YR HOLDING PERIOD *YDY2Y1YD1250                                            @0ic i[ 0`` ----------------------"=" "TOTALS";Y);Z1$;V);Z2$;W);Z3$m"" "========================================"s"' PS! ************! ;! Z1ABBBCBDBEBFBGBW! Z2ADBDCDDDEDFDGDs! Z1(Z1.5):Z2(Z2.5)! Z3Z2Z1! Z3(Z3.5)! Z1$(Z1):Z2$(Z2):Z3$(Z3)! M$Z1$:O$Z2$:P$Z3$! 1980! :P1900:P" "------------------4):P$F$(5) 61980R 8F$(0);S);F$(1);Y);F$(2);U);F$(3);V);F$(4);W);F$(5)\ <856 >L$G$(1):M$G$(2):N$G$(3):O$G$(4):P$G$(5) @1980 BG$(0);S);G$(1);Y);G$(2);U);G$(3);V);G$(4);W);G$(5) ************! TOTAL$D$(5)1980N D$(0);S);D$(1);Y);D$(2);U);D$(3);V);D$(4);W);D$(5)X%856&L$E$(1):M$E$(2):N$E$(3):O$E$(4):P$E$(5)(1980*E$(0);S);E$(1);Y);E$(2);U);E$(3);V);E$(4);W);E$(5)/856 4L$F$(1):M$F$(2):N$F$(3):O$F$(z#X±   Š !ԠŠ ˠ Ϡ] ٯ̠Π5ӭӠԠ ˠΠҠ6 ®Ԡ ®ԭˠë Ҡ ҠŠ< ԯԠίӠ"̠Ϡ ̠Ϯà!Π!ήŠ ήӠήӠҠ@@YY3fP*U*U*U*U*U*U*U*U*U*U*U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*U@*U*U*U*U*U`F `P*ysdy?N3N3~9~O9fys($'<.'*** WRITTEN BYT8'*** LYNELL JACKSONnB'*** JANUARY 14, 1987tL'V'*** LAST MODIFIED BY`'*** LYNELL JACKSONj'*** JANUARY 27, 1987t'~'<*** "ISL HELLO" ***>DMONDAY-SATURDAY." #""F#"TECHNICAL/SOFTWARE SUPPORT HOURS ARE"w#"8:30 AM --> 4:30 PM PST MONDAY - FRIDAY." #""#"CALL US FOR A FREE CATALOG OF"#"COMPUTER SUPPLIES AND THE LATEST AND"#"MOST UP TO DATE PUBLIC DOMAIN SOFTWARE." Z#"A DIVISION OF U.S.COMPUTER SUPPLY INC."O d#"511-104 ENCINITAS BOULEVARD"j n#"ENCINITAS, CA 92024" x#"(800) 992-1992 (USA) #"(800) 992-1993 (FOR CA) #"(619) 942-9998 (FOREIGN) #"" #"ORDER HOURS ARE"#"6:00 AM --> 4:30 PM PST l24:7110 vGO$: # : TB%(21(PR$)2)I TB%:PR$;O U (#r +#<*** DATA LOCATION ***>x /# 2#"FOR OTHER PUBLIC DOMAIN AND" <#"USER-SUPPORTED PROGRAMS PLEASE CONTACT:" F#"" P#"THE INTERNATIONAL SOFTWARE LIBRARY",16297,1:16300,1:16301,1:16304,12 70108 @ :M I1ND%_ PR$:I:7110f Ip 7010v  RN$""ė:D$;"CATALOG": (:D$;"RUN ";RN$ 2 X [<*** SUBROUTINES ***> _ bPR$"< PRESS ANY KEY TO CONTINUE >" GF%11110 :E PR$" U.S. COMPUTER SUPPLY INC. PRESENTS:"S 10:7110 PR$"THE INTERNATIONAL SOFTWARE LIBRARY" $13:7110 .7010:1210 L V: `PR$"* LOADING PROGRAM *" j11:7110: ~D$;"BLOAD ISL HELLO.GRAPHIC"( CING FOR PRINTING DATA LINE6 * I = LOOP VARIABLE S * GO$ = CONTINUE STRING GF%1:* DISPLAY GRAPHIC FLAG, 1=YES, 0=NO ND%20:* NUMBER OF DATA LINES RN$"":* NAME OF THE PROGRAM TO RUN NEXT  <*** MAIN PROGRAM ***>  <*** "ISL HELLO" ***>">*** PROGRAM WRITTEN BYV(*** LYNELL JACKSONp2*** JANUARY 14, 1987vdg<*** VARIABLES ***>knD$(4):* CONTROL-DxH$(8):* CONTROL-H* PR$ = DATA LINE FOR PRINTING * TB% = TAB SPA     P*Os?~~?O`P*U*U*U*U*U@*U*U*U*U*U``P*?U`<P*U*U*U*U T*U*U*U*U`P*U*U*U*U*U*U*U*U*U*U*U`L}|L1`><P*ysd?N3N?~9rO9fIs`P*U*U*U*U*U@*U*U*U*U*U``s3O{qc<P*?U`<P*U*U*U*UP*U*U*U*U`P*U*U*U*U*UP*U*U*U*U*U` `P*ysx?N30~9O9fpST$VA$SP$ZN$HA$"5"ė:5::10:"CLOSE FILE"::1560R(AIDS":10:1560VA$""E1:13:I1:"ENTER AMOUNT BID $";AM$(I):((AM$(I))47(AM$(I))58)(AM$(I))46800(AM$(1))13750 (AM$(I))13810:740 II1:AM$(I1);:VA$VA$AM$(I1):760c*LS$VA$:15:958::"ENTETINUES FILE---RETURN=MENU":W$:D$::24:38)::CV2:JJ5:(W$)13Ĺ34,1:35,24:230^D$:120::A$"5"ĺ"END OF FILE--PRESS ANY KEY TO RETURN TO MENU":K$:D$:34,1:35,24:23034,1:35,24: ADD ITEMS:5:10::"ENTER NEW BITEMSFILE40"İ1110:690}NF$"ITEMSFILE40"Ĺ34,2:35,22:J10::2::"ITEM#-NAME---VALUE-BID AMT":::I1RE:R$(I):67034,2:35,22:J10::2::"RECORD N0. NAME":::I1RE:" ";I;" ";R$(I)XCV(37):IJP$"Y"Ğ:24:" ANY KEY CONES":56010:1560"NF$IN$I&(AN$(1))58AN%(IN$):BR1:8700"HARD-COPY PRINTOUT (Y OR N)?";P$:868:P$"Y"İ110:130:RS%0:140:REDA$"3"ıNI0REXRS%I:140bR$(I)lIv160NF$"AUCTION.NAMES"NF$"$NA$:130:RS%0:150:1:RS%1:150:"0":160:170:900T READS AND OUTPUTS FILEA$"6"ė:5:10::"READ BIDDERS FILE":A$"7"ė:5:5::"READ ITEMS FILE"::NF$"ITEMSFILE40":560A$"2"ė:5:5::"READ NAMES FILE"::NF$"AUCTION.NAM:D$"PR#1"::10:"JANUARY 22, 1983":10:"WELCOME TO THE":"ORCHARD SCHOOL AUCTION, ";NA$::"YOUR BIDDING (ACCOUNT) NUMBER IS: ";RU:::D$" PR# 0":130150:"?"NA$:RS%0:150:RX:160:380150:NA$:160"CREATING FILE: ";NA$7NFES FILE+|:5:10::"ADD NAMES"::1560(AN$(1))58Ģ15::"YOU MUST USE ONLY LETTERS FOR FILE NAMES":J12000:::380NA$IN$FS0NF$"AUCTION.NAMES":RS%0:180:130:140:RN:160:RURN1:RXRUFS1RXRX1:RURX 100:RS%RU FRE (0)H "INPUT ITEM NUMBER (1-7)";:A$:A$:(A$)49(A$)56230^ A$"7"İ105:230 "A$"8"ė:10:"ENTER RUN 220 TO CONTINUE":1016: 6A$"6"500 @A$"4"1220 JA$"3"710 TA$"5"840 ^A$"2"520 hFS0r ADD TO NAMESS ANY KEY TO CONTINUE":K$:K$: -:"IT ALSO HAS ALOT OF ERROR CHECKING SO THAT YOU WON'T BOMB THE PROGRAM; EVEN RESET IS VECTORED PROPERLY" 2:"UPON STARTING FOR THE FIRST TIME THE ONLY VALID ENTRY IS #1: ADD NAMES. IT IS SELF PROMPTING. IT WILLONS." (:"ONE OF ITS KEY FEATURES THAT THE DATA IS SAVED TO DISK ALMOST IMMEDIATELY AFTER IT IS ENTERED; CONSEQUENTLY, ANY MAJOR FAILURE (POWER OUTAGE, ETC) WILL NOT DESTROY THE DATA (EVEN THE RUNNING "; )" TOTALS). JUST REBOOT."" *:"PRTION MANAGER AT A LOW-MEDIUM SIZE AUCTION (<$10,000) AS IT KEEPS TRACK OF ALL THE RECORDS AND BIDDERS; AS WELL AS MAINTAINING A RUNNING TOTAL." :"IT HAS BEEN USED FOR PTO AUCTIONS IN THE SO. BURLINGTON, VT SCHOOL DISTRICT. AS WELL AS CHURCH AUCTI D$(4)X:"PRESS RETURN FOR AUCTION PROGRAM":"ANY OTHER KEY FOR DESCRIPTION"rK$:D$:(K$)1310 D$"RUNAUCTION" AUCTION.DESCRIBE BY STEPHEN SILVERMAN :"THE PROGRAM 'AUCTION' IS A FUNCTIONAL ONE: IT PERFORMS LIKE AN AUC     R"::"PRESS ANY KEY TO CONTINUE":ZQ$:D$:230$,1)"X"AN%((XV$,2,4))İ160::22:1:"ITEM ";:(XV$,2,4);:" ALREADY SOLD"::K124:K::230n&b1860&l:22:1:"FILE CLOSED...(IT CANNOT BE EDITED)"::"PRESS ANY KEY TO CONTINUE":ZQ$:D$:2300':22:1:"YOU CANNOT EDIT THAT RECORD NUMBELK4SP$" ":"%0SP$" ":J%:180:RS%0:130:140:QR%:I1:RS%1%D140:XR$(I):XV$(XR$(I),4):AN%(XV$)İ160:AN$XR$(I):SR%I:FT$NF$:NA$AN$:RB1:%NII1:RS%I:IQR%ğ::22:1:"NO SUCH ITEM NUMBER"::K124:K::160:230d&X(XV13ĺ:1710!$(BN$(I))131750I$BN$(I);:ZN$ZN$BN$(I):II1:1720\$ZN$""ĺ:230d$:$ ADDS SPACES FOR FORMATTING$LK9(VA$)$LK8SP$" ":$LK6SP$" ":$LK7SP$" ":$LK5SP$" ":%&1570#h(AN$(I))8ĺ:15705#r(AN$(I))131670]#|AN$(I);:IN$IN$AN$(I):II1:1620z#A$"1"IN$""ĺ::230#IN$""ĺ::160:230#:# NUMBEROR NAME ENTRY FOR ADD FILE#16:20:I1:ZN$"" $BN$(I):(BN$(I))32(BN$(I))TER ACCT. NUMBER ":"(BLANK RETURN GETS BACK TO MENU) "C"J7:20"TAN$(I):(AN$(I))32(AN$(I))13(AN$(I))8ĺ:1570"^CV(36):(AN$(I))8CV20Ĺ36,CV1:15):7:36,CV1:II1:NL(IN$)1:IN$(IN$,NL):1620#c(AN$(I))8CV20Č868::CF$:160:170!230?! NUMBEROR NAME ENTRY FOR ADD FILEQ!"I1:IN$"":1!,A$"5"Ģ7:"ENTER ACCT. NUMBER":3:" (BLANK RETURN GETS BACK TO MENU) ":1610!6A$"1"Ģ7:"ENTER NEW NAME: ":" (BLANK RETURN GETS BACK TO MENU) ":16108"@7:"EN36,S1:1390$ S39ĺ(7);:13906 36,S1:1390 CB$"":I16:CA$(I)((((CF$,I,1))128)):CB$CB$CA$(I)::CC((CB$))ND:CC$(CC) LS$(((LS$))((CC$))):190 :15:"EDITING FILE ";NF$:!180:130:RS%LR%:150:CC$:RS%CN%:150T$&xS(36):S39ĺ(7);:S1:13901CF$""}QT$(13)Ģ15::16:I132:QN$(I)((1191I)):CF$CF$QN$(I)::1510QT$(8)1470QT$(21)1490(QT$)32ĺ(7);:1390S1192,(QT$)128:36,S1:1390S0ĺ(7);:1390 140:TD$:RS%CN%:140:ED$:1607-CN%0CN%LR%1930O2(TD$,1)"P"ī1900}<EV((ED$,6)):ND((TD$))EV:LS$"-"TD$F:5::"ENTER CHANGES-PRESS RETURN WHEN COMPLETE":P:8:"$";:"BID";::6);::"ITEM":Z10:ED$d10:1nQECORD NUMBER TO EDIT: ";CN$:CN$""1240<(CN$)581240KCN%(CN$)k(AN$(1))64NF$IN$:1310NF$"AUCTION.NAMES":RS%(IN$) 130:140:NF$:160"SEARCHING FOR FILE ";NF$(NF$,1)"*"ī1900(130:RS%0:140:LR%:RS%LR%:0" 'D$"WRITE";NF$;",R0"$ '"6"3 'D$"CLOSE"CCTION DATA":'"CAUTION.. THIS PROGRAM DESTROYS SPECSUM, AND NONUMBFILE, AND ELIMINATES EXTRA FILES (PAGE 2). TYPE C TO CONTINUE, ANY OTHER KEY TO END.":A$:A$:A$"C"Ā $' "SPECSUM","NONUMBFILE" )'X12 .'NF$% 3'D$(4)2 8'RN$(0)K B'D$"OPEN";NF$;",L40"_ V'D$"UNLOCK";NF$s `'D$"DELETE";NF$ j'D$"OPEN";NF$;",L40" t'D$"WRITE";NF$;",R1" ~'RN$ 'D$"WRITE";NF$;",R0" '"1" 'X 'NF$"CATFILE" 'D$"OPEN";NF$;",L44'CT1: STARTOVERD'::"CAUTION...DESTROYS AUCTION DATA":'"CAUTION.. THIS PROGRAM DESTROYS SPECSUM, AND NONUMBFILE, AND ELIMINATES EXTRA FILES (PAGE 2). TYPE C TO CONTINUE, ANY OTHER KEY TO END.":A$:A$:A$"C"Ā $' "SPECSUM","NONUMBŠĩ̠͍:"TO MODIFY THE AUCTION NAME FOR YOUR PARTICULAR USE, MODIFY LINE #440.":"PRESS TO RUN AUCTION, ANY OTHER KEY TO CONINUE":K$:K$:(K$)13ĺ"RUNAUCTION"K :"THE PROGRAM 'AUCTION' IS A FUNCTIONAL ONE: IT PERFORMS LIKE AN AUCD AND PAID SUMS WHICH ARE SEEN AT THE TOP OF THE SCREEN WHEN 'AUCTION' IS BEING RUN."\" THIS PROGRAM REQUIRES A PRINTER IN SLOT #1 (THIS CAN BE CHANGED BY MODIFYING LINES 110 AND 430 IN 'AUCTION')":"PRESS ANY KEY TO CONTINUE":K$:K$:MPROGRAM IS TO BE USED WITH ";::"CAUTION";::" AS IT INITIATES THE AUCTION PROGRAM";" BY CREATING A FILE (OR DELETING ONE WHICH ALREADY EXISTS) CALLED AUCTION.NAMESFILE, WHICH ";V"IN ADDITION TO KEEPING TRACK OF NAMES IT ALSO STORES THE UNPAIN': NAMESFILE40, ITEMSFILE40, AND RESET."}"THE PROGRAM OF COURSE WILL ALSO CREATE A NEW TEXT FILE AS EACH NEW BIDDER IS ADDED SO DON'T USE PROGRAMS WITH A FULL DISK."V"THERE IS ONE OTHER FILE ON THE DISK: 'AUCTION.STARTOVER'.":" THIS s:"#7: EXECUTES FRE(0) FOR GARBAGE COLLECTION (PROGRAM WILL START TO SLOW DOWN WITH TOO MANY VARIABLES STORED. USE IT EVERY 5-10 MINUTES)."u"PRESS ANY KEY TO CONINUE":K$:K$:)x:"THERE ARE 3 FILES THAT ARE USED IN CONJUCTION WITH 'AUCTIOBIDDER. LETS YOU AND THE BIDDER LOOK AT THE PRINTOUT OF THE ITEMS BEFORE THE FILE IS CLOSED. IF THERE IS AN ERROR, YOU CAN ABORT AND EDIT"i"NOTE: YOU CANNOT REOPEN OR EDIT A CLOSED FILE"n:"#6: READ BIDDER'S FILE. AUTOMATICALLY COMES UP IN #5"N CLOSED (IT CANNOT BE REOPENED OR EDITED)"W K:"PRESS ANY KEY TO CONINUE":K$:K$: P:"#3: ENTER NEW BIDS IS, OF COURSE, THE MOST USEFUL. IT IS ALSO SELF PROMPTING. Z:"#4: EDIT BIDS. ALLOWS YOU TO CORRCT BAD ENTRIES."d:"#5: CLOSE (PAY) ASSIGN A BIDDERS NUMBER." <:"#2: READ NAMES WILL LET YOU LOOK AT (OR PRINT) ALL THE FILE NAMES; NOTE THAT A '?' BEFORE ANY NAME INDICATES THAT THE BIDDER HAS A NUMBER, BUT HAS NOT MADE A BID";+ F". A '*' BEFORE ANY NAME INDICATES THAT FILE HAS BEEOP$"X"620 OP$"/"550/ OP$"^"640= CNTCNT1Z "INVALID OPERATOR":300 &NUM$"0"ĺ"DIVISION BY ZERO":CNTCNT1:BNUMBNUM1:300 0630 XSUMSUM(NUM$):900 bSUMSUM(NUM$):900 lSUMSUM(NUM$):900 vSUMSUM((NUM$)A$"VERIFY"1180% 2B$(BNUM,BCOL)A$? 6CNTCNT1:BNUMBNUM1R ;A$"END"ī990b @CNT1ī400p JSUM(A$)y T300 OP$(A$,1) OP$"C"B$(0,BCOL)(BNUM2):690 NUM$(A$,((A$)1)) OP$"+"600 OP$";"600 OP$"-"610 12 THIS PROGRAM DEVELOPED BY ALAN PETERMANS3 FOR MORE INFO CALL 721-3295pPB$(50,50):BCOL1:BNUM1vZd10);"COMPUTER CALCULATOR"n34,2"INPUT (+1,-2,X3,/4,^5,CLEAR,VERIFY,END)34,3," ";A$:PP0.(A$)2300 1 L  0L-  0LĔ ȕȥɕȥʕȕȭ ˕ɕȥȥʕȭ˕̕ȱ͕ȱΕȱϕ̕ȱЕ͕ȱѕΕϕȭЕȭѕ``L #  ȱȱȱ ȱȱ!LĔZLĔ.  .  - -lLĔ? 0LĔ L  0LĔ  0 < . fL #  L`? 0L- 9L&!BL& X`    X J . <`  # L ȱȱȱ ȱȱ  L  ' 0L 0L  0 < . fЏLb` ```` `ee`ee`ee`ee`ee` #  f`  Ș X` 9LZLB! X` st`Ʉ0L ߢ u 9ե R ȥoȥp` ߍ ߍ ߍ ߍ ߍ # ȱ t / b  ҕ b ```L  0L-  0LĽ ȾȥɾȥʾȾȭ ˾ɾȥȥʾȭ˾̾ȱ;ȱξȱϾ̾ȱо;ȱѾξϾȭоȭѾ``L #  ȱȱȱ ȱȱ!LĽZLĽ.  .  - -lLĽ? 0LĽ L  0LĽ  0 < . fL #  L`? 0L- 9L&!BL& X`    X J . <`  # L ȱȱȱ ȱȱ  L  ' 0L༠ 0L  0 < . fЏLb` ```` `ee`ee`ee`ee`ee` #  f`  Ș X` 9LZLB! X` st`Ʉ0L ߢ u 9ե R ȥoȥp` ߍ ߍ ߍ ߍ ߍ # ȱ t / b  Ҿ b ```    UTINE DOES FAHRENHEIT TO CENTIGRADE CONVERSIONS AND BACKhvT0:X0:5"FAHRENHEIT TO CENTIGRADE OR":"CENTIGRADE TO FAHRENHEIT IS THE FUNCTION":"ENTER F OR C ";:T$ $(T$, RADIUS IS ";C1:.k"THE DIAMATER IS ";C2:Sp"THE AREA OF THE CIRCLE IS ";C3\z900e800k THIS ROUTINE DOES MENU RETURN CHACKING:"DO YOU WISH TO CONTINUE (Y) OR (N) ";:Z$(Z$,1)"N"10b THIS RO THE AREA FO A CIRCLE""8*C10:C20:C30A4:5>"CALCULATING THE AREA OF A CIRCLE IS THE FUNCTION"H::R"ENTER THE RADIUS ";:C1:\C2C1C1:C33.14159C2:eC2C1C1:C33.14159C1C1:f"THE006 THIS ROUTINE DOES SQUARE ROOT<FQ10O:5r"SQUART ROOT IS THE FUNCTION"|::"ENTER # ";:Q1::"THE SQUARE ROOT OF ";Q1:" EQUALS ";(Q1)900700 ! THIS ROUTINE DOES W500 X>Y THIS ROUTINE DOES ECPONENTIATIONDZVbE10:LSTE20_l:5v"EXPONENTIATION IS THE FUNCTION"::"ENTER # ";:E1:" ^ ":"ENTER # ";:E2:E1E1E2"TOTAL = ";E19006E DOES DOVISION.D10:D207:5W"DIVISION IS THE FUNCTION"a::x&"ENTER # ";:D1:+" / ":0"ENTER # ";:D2:5D20ĺ"YOU CAN'T DEVIDE BY ZERO ":900::555:D1D1D2D"TOTAL = ";D1N900 ROUTINE DOES MULTIPLICATION+ ; M10:M20D :5j "MULTIPLICATION IS THE FUNCTION"t :: "ENTER # ";:M1: " * ": "ENTER # ";:M2: M1M1M2 "TOTAL = ";M1 900 400  THIS ROUTIN/ - THIS ROUTINE DOES SUBTRACTION5 .E 6S10:S20N @:5q J"SUBTRACTION IS THE FUNCTION"{ T:: ^"ENTER # ";:S1: c" - ": h"ENTER # ";:S2: rS1S1S2 |"TOTAL = ";S1 900 300 %  THISEASE" 115 ? THIS ROUTINE DOES ADDITIONE U A10:A20^ :5~ "ADDITION IS THE FUNCTION" :: "ENTER # ";:A1: " + ": "ENTER # ";:A2: A1A1A2 "TOTAL = ";A1 "900 +200 ," s x" ";:F$2 (F$,1)"+"ī200H (F$,1)"-"ī300^ (F$,1)"*"ī400t (F$,1)"/"ī500 (F$,1)"^"ī600 (F$,1)"S"ī700 (F$,1)"A"ī800 (F$,1)"T"ī1000 (F$,1)"E"Ā :"ENTER CORRECT SYMBOL PL" / FOR DIVISION"@ n" ^ FOR EXPONENTIATION"c o" S FOR SQUARE ROOT" p" A FOR THE AREA OF A CIRCLE" q" T FOR FAHRENHEIT TO CENTIGRADE CONVERSION": r" E TO END THE PROGRAM)  :I THIS PROGRAM WILL FUNCTION AS A CALCULATOROW5:("ENTER THE FUNCTION YOU WISH TO PERFORM"2<F" + FOR ADDITION"P" - FOR SUBTRACTION"Z" * FOR MULTIPLICATION" d    M:1500' POP$"^"SUMSUMNSUM:15006 B$(I,COL)T PP1ĺSUM;5);I:I:1590s SUM;20);I;3);"(RETURN)" " ";W$:W$"END"ī1590 I 6"PR#0" @3001300 SUM(B$(1,COL))& :1500V A$B$(I,COL):OP$(A$,1):NUM$(A$,(A$)1)g NSUM(NUM$) OP$"+"SUMSUMNSUM:1500 (OP$";"SUMSUMNSUM:1500 2OP$"-"SUMSUMNSUM:1500 <OP$"X"SUMSUMNSUM:1500 FOP$"/"SUMSUMNSU):900! SUMSUM((NUM$)):900T SUM0:BNUM1:BCOLBCOL1:CNT0:BCOL51BCOL1] 300t SUM;25);CNT:300~ 34,0  90 "PRINTER OUTPUT? ";PR$ (PR$,1)"Y"ĺ"PR#1":PP1 "WHAT COLUMN? ";COL I1(B$(0,COL)) I1V(32):(32)V(32)$VA03.V6010<VLINE$(7)YVA$"S M T W T F S"V" ";A$;" ";A$;" ";A$VI16:LINE$(I):WI13:(32):WAW"<<< HAVE A GREAT YEAR! >>>"W"OTTAWA 6502 USER GROUP -- POB 6283RINTER, THEN"(@V"PRESS A KEY ";:A$GJV::15:"... STANDBY ..."QTV::[VSLOTkV(9);"80N"yVCN1NC%V(32)V(32)VL17VI120:(32);:VY$(L,Y11);" ";Y$(L,Y21);" ";Y$(L,Y31);" ";Y$(L,Y41)VCH YEAR?(YYYY): ";Y0$*$V(Y0$)422050n&VY1((Y0$,1)):Y2((Y0$,2,1)):Y3((Y0$,3,1)):Y4((Y0$,1)){(VY(Y0$),VY1582Y2999ĺ(7);"PARDON?":22050.V0V"HOW MANY COPIES?(1-20): ";NC%:NC%1NC%20220622V: 6V"START UP THE P21150RA$(13)21900-R21150:IGNORE3UOU**** PRINTER MENU ****U"OTTAWA 6502 USER GROUP -- POB 6283 STN J -- OTTAWA -- K1P 5R3"U:U6V"PRINTER SLOT? (1-4) ";SLOTVSLOT1SLOT4ĺ(7);"PARDON?":22020V:"V"WHIN> ... RETURN TO MENU"%R23:1:A$9RA$(8)21180ORMM1:M121174^RM12:YY1oR5000:21150RA$(21)21190RMM1:M1321186RM1:YY1R5000:21150RA$(32)21210R3000: CHOICER5000: DISPLAY MONTHR);:,&RI118:I:1:(32);:39:(32);:I0R18:1:I139:(32);:O:RbDR3000: CHOICE|NR5000: DISPLAY MONTHXR:20:T8bRT:" ... LAST MONTH"lRT:" ... NEXT MONTH"vRT:" ... ANOTHER CHOICE"RT:" TREPLY$"H"İ3720T ^REPLY$"7"İ4750j hREPLY$"8"İ1870 rREPLY$"9"İ2200 }REPLY$(3)4560 160    INITIALIZE     DEFINE VARIABLES  A1RECNBR350 D LIST " COMMAND DRIVER( Q 21:14::"SELECTION: ";::REPLY$ (REPLY$"1"REPLY$"9")REPLY$"H"REPLY$"Q"Ģ21::260 REPLY$"2"İ650 REPLY$"1"İ2470 "REPLY$"4"İ850 ,REPLY$"3"İ1110 6REPLY$"Q"4560 @:4:"DO YOU NEED INSTRUCTIONS (Y/N)? ";0 <A$H =A$"Y"A$"N"40X FA$"Y"90b P3720l ZXDF0 dN9MAXNBRFLDS13 nN3FLDLN(N9MAXNBRFLDS) xN2SEL$(N9MAXNBRFLDS) N7FLDNAME$(N9MAXNBRFLDS) LISTS PROGRAM  2700: COMMAN9(4)"BLOAD PCHK"y:8:"INSERT YOUR DATA DISK IN THE DRIVE NOW."::"(YOU NEED A BLANK, APPLE-FORMATTED DISK)"24:"HIT ANY KEY TO CONTINUE.";:A$RESTART7004210(936:10:8:"T H E D A T A B A S E":II11500:II( 215                   ******************2`S"31160y21000:31010-yA$"P"31180?y22000:31010TyA$(13)31130c}::12:9 }"CALENDAR IS OFF THE AIR"}23@***** CALENDAR *****A* WRITTEN 1980 BY *B* PAUL IRWIN *C* (613) 728-6728 *D**TEN BY PAUL IRWIN"6yT12:10J@y5:"A PERPETUAL CALENDAR PROGRAM FOR"sJy"YOUR CHOICE OF SCREEN OR PRINTER:"Ty:T:"S ... SCREEN"^y:T:"P ... PRINTER"hy:T4:" ... RETURN TO BASIC"yX(0)y20:16:"WHICH? ";:A$yA$"**"Vv" **** "Wv" ** "-Xv" ** ";Yv"** "I\vY$(7,10)UfvI110kpvJ17:Y$(J,I):qzvwy}yy**** MAINLINE MENU ****"y:::255,y3:16:"CALENDAR".y:60y"FROM THE OTTAWA 6502 USER GROUP"2y:9:"WRIT?v"******"@v"* **"(Av" ** "6Bv" ** "DCv" ** "RDv"** "`Ev"** "kHvEIGHTyIv" **** "Jv"** **"Kv"** **"Lv" **** "Mv"** **"Nv"** **"Ov" **** " RvNINESv" **** " Tv"** **"Uv"** &v" ** "'v" ** "%*vFIVE3+v"******"A,v"** "O-v"** "].v"***** "k/v" **"y0v"** **"1v" **** "4vSIX5v" **** "6v"** **"7v"** "8v"***** "9v"** **":v"** **";v" **** " >vSEVEN "** **"v" ** "$v" ** "2v"** "@v"******"KvTHREEZv" **** " hv"** **"vv" **"v" ** "v" **"v"** **"v" **** "  vFOUR!v" ** ""v" *** "#v" * ** "$v"******"%v" ** " ZEROu" **** "!u"** **"/u"** **"=u"** **"Ku"** **"Yu"** **"iu" **** " sv ONEv" ** "v" *** "v" ** "v" ** "v" ** "v" ** " v" **** " vTWO v" **** "v"** **"vE YEAR!PuF0(12):0,31,61,92,122,153,184,214,245,275,306,337:I112:F0(I):uMO$(12):MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBERuJANUARY,FEBRUARY:I112:MO$(I):uLINE$(7)uT(3):T(1)1:T(2)28:T(3)55u STN J -- OTTAWA -- K2A 1T3"0WI18:(32):8WCN?W0EY^0u**** CONSTANTS ****z:uD03:PHASE DAY OF WEEKbuSTART THE YEAR ON MARCH FIRST AND TABLE THEduFIRST DAY OF EACH MONTH. THIS WORKS WHENfuFEBRUARY IS THE LAST MONTH OF TH(A$)0(N8$)019806(A$)0N8$A$" DB"@1991t:"YOU DON'T HAVE AN OLD FILE NAME YET.":1921:REPLY$"7A":475023:"SAVE LIST UNDER THE NAME : "N8$:" (Y/N)? ";:B$B$"N"B$"Y"Ģ22::1992::B$"N"1921A$"Y"A$"N"1921#A$"N"ı+:"ENTER A NEW LIST NAME OR PRESS RETURN"::"TO REWRITE THE LIST UNDER THE OLD NAME."::"(REMEMBER, 'REWRITING' MEANS ANY DATA"::"PREVIOUSLY ON THAT FILE WILL BE ERASED.":"ENTER A LIST NAME:";A$ LIST 1 RECORD PER LINE%&I0"LIST IS NOT IMPLEMENTED YET."_: COMMAND DRIVER eDkNX PUT TO STORAGEblP1HDG$"PUT A LIST TO STORAGE"v3600XDF07309:1:"DO YOU REALLY WANT TO SAVE DATA (Y/N)?";:A$WR$(X,Z)""Y1(R$)-ZN1FLDNBRıX(R$,Y,1)"/"ZZ1:WR$(X,Z)"":1740WRKSPACE$(X,Z)WRKSPACE$(X,Z)(R$,Y,1)Y"CLOSE ";N8FILNAME$" "A2NXTREC1;" RECORDS READ FROM STORAGE"9000NBR(N1FLDNBR$)"X1N1FLDNBR5N7FLDNAME$(X)<"Xe,XDF0ĆWRKSPACE$(A1RECNBR,13):XDF1y6X1A2NXTREC1@R$J1660K14:13:"RECORDS READ : "XTX^1760hr|  UNPACK R$ INTO WRKSPACE$Z1 THAT IS NOT A DATA BASE FILE, TRY AGAIN":9000:e936:12:" LOADING DATA, PLEASE STAND BY."|N8FILNAME$""160"READ ";N8FILNAME$A1RECNBR$A1RECNBR(A1RECNBR$)A2NXTREC$A2NXTREC(A2NXTREC$)N1FLDNBR$N1FLDUST"::"RE-LOAD 'DATA BASE' TO LOAD A NEW DATA"::"FILE."w16:1:"DO YOU WANT TO RELOAD DATA BASE (Y/N)?";:XX$XX$"Y"XX$"N"1443XX$"N"ı300004750N8FILNAME$(T$,6,(T$))(N8$,5)" DB "14610936:12:"((R$,(R$)1))1:1370.F(R$,1)"E"1400KP(R$)0STARTRCD(R$)QZgdFIRSTRCDSTARTRCDqn1230xPR1:(4)"PR#0"y9000: ENTER FROM DISKXDF01450<936:9:"DUE TO MEMORY CONSTRAINTS, YOU M2990: DISPLAY 1 RCD2STARTRCDSTARTRCD1J (37)20PR11250u:"SCROLL TO? (TYPE 'H' FOR HELP)";R$(R$)1R$R$"0"((R$,1)"H"46002(R$,1)"-"STARTRCDFIRSTRCD((R$,(R$)1)):1370<(R$,1)"+"STARTRCDSTARTRCDT RECORD"!"TO BE DISPLAYED."'E"ENTER A NUMBER:";START$j(START$)0STARTRCD(START$){(4)"PR#"PRSTARTRCD0STARTRCD1STARTRCDA2NXTREC1ĺ:" -END OF INFORMATION ENCOUNTERED-":1400STARTRCD1STARTRCD1:9000 r255,1:832:Z9(255)sZ91ė:11:" UNABLE TO COMMUNICATE WITH PRINTER."::" CHECK YOUR PRINTER FOR MALFUNCTION.":9000:1130tSTARTRCD0~FIRSTRCDSTARTRCDP1HDG$"DISPLAY A RECORD"3600 "ENTER THE NUMBER OF THE FIRS2k12:5:"SEND OUTPUT TO PRINTER (Y/N)? ";:XX$NlXX$"Y"XX$"N"1131fmXX$"N"PR0:1140onPR1o936:5:"MAKE SURE YOU HAVE YOUR PRINTER HOOKED"::" UP PROPERLY AND READY TO PRINT."q18:"SET THE PAPER AT THE TOP OF THE FORM."7V7"X1N1FLDNBRAN7$(X);":";::WR$(N,X):HXPV6bX1N1FLDNBRVV1:V:HT(N7$(X))2:LN40HT:HT8300$(GOOD$)0WRKSPACE$(N,X)GOOD$.X8BLV` DISPLAY RECORDa936jDG$"CORRECT A RECORD" z3600/XDF0730Z"ENTER RECORD NUMBER TO BE EDITED:";NN1NA2NXTREC1ĺ"THE NUMBER IS TOO LOW OR TOO HIGH!":9303:1:937"ENTER NEW DATA OR PRESS RETURN IF DATA"::"IS NOT TO BE CHANGED."A2NXTREC,X)GOOD$8X1ĭ(WRKSPACE$(A2NXTREC,X))0ı (WRKSPACE$(A2NXTREC,X),1)"/"WRKSPACE$(A2NXTREC,X)WRKSPACE$(A2NXTREC1,X):WRKSPACE$(A2NXTREC,X)*X4A2NXTRECA2NXTREC1>?H650R\ CORRECT A RECORDfpP1HNED YOUR DATA"::" STRUCTURE YET, ENTER 'H' FOR HELP.":9000:t 6:" TO EXIT, PRESS RETURN FOR FIELD NAME.": 8:"RECORD #";A2NXTREC V9:10 X1N1FLDNBR VV1::N7FLDNAME$(X);::": ";:HT(N7$(X))3:LN40HT 8300:WRKSPACE$(TA. THE '2' (ADD)":I,"COMMAND IS USED TO ADD TO YOUR DATA":X,("BASE.":,2" THE '8' COMMAND IS USED WHEN YOU WANT":,<"TO STORE THE DATA ON THE DISK. IF YOU":,F"DON'T ALREADY HAVE A FILE ON THE DISK":-P"FOR THE DATA BIS ALLOWS YOU TO NAME EACH FIELD IN":Y+"THE DATA BASE (I.E. NAME, ADDRESS AND":l+"PHONE #).":+" AFTER DESIGNING THE STRUCTURE OF THE":++9000+2+ :"DATA BASE YOU WILL BE READY TO BEGIN":,"ENTERING YOUR DA*~*936:::G*" THIS PROGRAM WILL ALLOW YOU TO DESIGN":x*"ENTER TO, MANIPULATE AND RETRIEVE FROM":*"YOUR OWN DATA BASE.":*" IF YOU ARE STARTING A NEW DATA BASE,":*"YOU WILL NEED TO USE THE '1' COMMAND.":(+"TH001) "EACH LIST IS PRECEDED BY THE LETTER 'T'"k) "YOU MUST ENTER THE FULL NAME EXACTLY AS IT APPEARS"q) ) "CATALOG") ))) PRINT HEADING)$).)8(40(P1HDG$))2)BP1HDG$)LX139)V"-";)`X)j""*t REACHED"(> (? 9000(H )(R 2990/(\ j(f 24:1:"DO YOU WANT TO CONTINUE SEARCH (Y/N)? ";:XX$(z XX$"N"XX$"Y"3430( XX$"N"ı( ASTARTRCD1( 3320( ( DISPLAY A CATALOG LISTING( ( P1HDG$"NAMES OF LISTS") 36' X1N1FLDNBR0' "ENTER ";N7FLDNAME$(X);D' ":";N2SEL$(X)K' XS' A1e' XAA2NXTRECw' Y1N1FLDNBR' (N2SEL$(Y))0ĭN2SEL$(Y)(WRKSPACE$(X,Y),(N2SEL$(Y)))STARTRCDX:3410' Y' X'* (4 " THE END OF THE LIST HAS BEEN && N7FLDNAME$(X);":"; &0 ;&: WRKSPACE$(STARTRCD,X)B&D XH&N N&X T&b h&l FIND A RECORDn&v & P1HDG$"FIND A RECORD"& 3600& XDF0730& :"ENTER THE VALUE(S) TO BE FOUND FOR EACH":' "FIELD OR PRESS RETURN FOR A FIELD.":CORD"%- :6:"H) HELP"/%. :6:"Q) QUIT"5%h ;%r Q%| END THE SESSIONW% h% "THANK YOU"n% t% z% % DISPLAY 1 RECORD% % % % STARTRCD1ı% STARTRCDA2NXTRCD1ı% "RECORD #"STARTRCD:% X1N1FLDNBR&0(P1$))2:P1$$ 7:7$ 6:"1) BEGIN A NEW LIST"N$ 6:"2) ADD DATA"i$ 6:"3) DISPLAY DATA"|$ 6:"4) EDIT"$ 6:"5) SEARCH"$ 6:"6) LOAD DATA"$ 6:"7) DISPLAY CATALOG"$" 6:"8) SAVE DATA ON DISK"%, 6:"9) REMOVE A REXDF0ĆWRKSPACE$(A1RECNBR,13):XDF13# A2NXTREC1<# 160B# S# PRINT MENUY# u# ::2:I138:" ";:I# I223:I:2:" ";:39:" ";:I# 23:2:I138:" ";:I# 5:2:I138:" ";:I:# P1HDG$"*** COMMAND MENU ***"$ 3:(4 YOU CAN"(" "HAVE UP TO 13 FIELDS."." =" N1FLDNBR0G" HT15O" V8["( X113"2 "NAME FIELD ";X;": ";:LN10:VV1:8300:N7FLDNAME$(X)GOOD$"< (N7FLDNAME$(X))02660"F N1FLDNBRN1FLDNBR1"P X"Z "d 9000"n "o N10ı$#x TO START A NEW ONE (Y/N)? ";:XX$>! XX$"Y"XX$"N"2493M! XX$"N"ıV! 410t! P1HDG$"BEGIN A NEW LIST"~! 3600! "ENTER THE TITLE OF EACH FIELD WHEN"! "REQUESTED. WHEN YOU HAVE NAMED ALL THE" " "FIELDS, JUST PRESS RETURN.CA2NXTREC1 t = ~ 936:12:13:"RECORD DELETED.":9000C I O V q INITIALIZE WORKSPACEw XDF02500 936:9:"STARTING A NEW DATA BASE WILL ERASE THE"::" CURRENT ONE FROM MEMORY!":"! 14:1:"DO YOU WANT 2990L 23:1:"DO YOU REALLY WANT TO DELETE IT (Y/N)?";:R$f R$"Y"R$"N"2310$ NA2NXTRECA2NXTRECA2NXTREC1:2450. R$"N"ı8 XNA2NXTRECB Y1N1FLDNBRL WRKSPACE$(X,Y)WRKSPACE$(X1,Y)V Y` X j A2NXTRENXTREC1;" RECORDS PUT TO STORAGE.")390009?U REMOVE A RECORD[xP1HDG$"REMOVE A RECORD"3600XDF0730"ENTER THE RECORD NUMBER:";NN1NA2NXTRECĺ"THIS RECORD IS NOT PRESENT":2250STARTRCDN"OPEN ";N8FILNAME$1"WRITE ";N8FILNAME$?A1RECNBRMA2NXTREC[N1FLDNBRm X1N1FLDNBRN7FLDNAME$(X) X*X1A2NXTREC14Y1N1FLDNBR>WRKSPACE$(X,Y);"/";HYR" "\Xf"CLOSE"#z936:12:7:A2ILE$;" BY THE NUMBER OF ENTRIES" 8H" YOU SPECIFY FE TRY AGAIN"69000:160<6E1(218)(219)256:E,E1:t6936:11:"ARE YOU SURE YOU WANT TO QUIT (Y/N)? ";|6R$6R$"Y"R$"N"45606R$"Y"Č936:1606444069366:::6 "THE FOLLOWING ARE LEGAL ENTRIES AS"7"SC452065v::"YOU CANNOT REDFINE YOUR DATA STRUCTURE"a5"DURING THIS SESSION. IF YOU WISH TO"5"WORK WITH A DIFFERENT STRUCTURE, THEN"5"PLEASE END THE PROGRAM AND START AGAIN."5:1605E2544550 6::"YOUR INPUT IS IN ERROR,PLEAS438074::"THE REQUESTED FILE IS NOT A DATA BASE."G49000:1410W4E1144104&::" THAT FILE NAME IS IN ERROR."409000:1504:E25544604D::"DO YOU REALLY WANT TO QUIT (Y/N)?";:A$4N::A$"Y"Ħ4X300005lE120ITHER FAULTY OR NOT EVEN "::" IN THE DISK DRIVE. CHECK IT OUT!"S39000:1603E4ĺ"YOUR DISKETTE IS WRITE-PROTECTED!!":9000:1603E543503"THE FILE YOU REQUESTED EITHER DOES NOT"3"EXIST, OR IS EMPTY."39000:14104E13ATA BASE CAN BE UP TO 10 LETTERS LONG"k2i:"AND THE ACTUAL INFORMATION CAN BE 30"::"LETTERS LONG."w2j9000:}2r2| - ERROR DETECTION22E(222)2::" *ERROR DETECTED*"2::2E84300D3"YOUR DISK IS E"ACCESS A DATA BASE YOU HAD SAVED AT":\1@"SOME EARLIER TIME, YOU WOULD USE THE":1J"'6' COMMAND AND THEN TELL THE PROGRAM":1T"WHAT FILE THE OLD DATA BASE IS STORED":1^"IN."'2h:" THE HEADINGS OF EACH FIELD IN YOUR"::"DIS IN THEM, I.E.":-0"'ADDRESS BOOK')":^0" TO LIST THE CONTENTS OF THE DATA BASE,":0"USE THE '3' COMMAND, TO MAKE CHANGES":0"TO THE DATA, USE THE '4' COMMAND.":0"9000:30," IF YOU RUN THIS PROGRAM AND WISH TO":+16THE NAME OF":/9000P/:::"A DATA FILE YOU WANT TO ACCESS, THE '7'":/"COMMAND WILL GIVE YOU A LIST OF ALL":/"THE DATA FILES STORED ON THE DISK. (IT":/"WOULD BE A VERY GOOD IDEA TO NAME YOUR":0"DATA FILES WITH WHAT W DATA. YOU MUST THEN GIVE":O."A NAME TO THE FILE THAT THE DATA WILL":."BE STORED ON. SO WHEN YOU WANT TO ":."RETRIEVE THE DATA LATER, THE PROGRAM ":/"WILL KNOW WHAT DATA FILE IT IS STORED"::"IN. IF YOU CAN'T REMEMBER ASE YOU ARE WORKING WITH":M-Z"THE PROGRAM WILL OPEN A NEW FILE FOR":Z-d9000:3-n"YOU. IF, HOWEVER, YOU ARE WORKING WITH":-x"DATA FROM AN ALREADY EXISTING FILE, THE":-"OLD DATA IN THE FILE WILL BE REPLACED":."WITH THE NE$:8315:(T)' "COST OR BASIS: $";FA= N$BE$:8315:(T)X "SALE PROCEEDS: $";FBe FCFBFA FC(102FC.5)102 FC$(FC) A$"L"FC.008384 A$"L"FC.008388 A$"S"FC.008392 A$"S"FC.008396 :::5);"LO8315:(T)% "DATE SOLD: ";M2,D2,Y22 YDY2Y1A YD18360P YD08364_ YD08328n YD18346{ MDM2M1 MD08360 MD08364 MD08354 DDD2D1 DD08360 DD08364 A$"L" 8366 A$"S"  :N$BDE ACQUIRED:"!t BC$"DATE SOLD:":v BD$"COST OR BASIS:"Sx BE$"SALE PROCEEDS:"]z 8322g{ T20t| X(N$)~ TTX  :: N$BA$:8315:(T) "PROPERTY: ";CA$: N$BB$:8315:(T) "DATE ACQUIRED: ";M1,D1,Y1  N$BC$:E:"  .  15);"APRIL 22, 1984 SHOULD BE"T  15);"ENTERED AS 04,22,84. THIS"u  15);"APPLIES TO ALL DATES"  15);"WHETHER BOUGHT OR SOLD."  (23)  "PRESS ANY KEY TO CONTINUE"  M$ l :P11000:P p BA$"PROPERTY:" r BB$"DATS ANY KEY TO CONINUE INSTRUCTIONS"* M$0 A P11000:PG j 10);"INSTRUCTIONS CONTINUED"s (7)  "DATES ARE TO BE ENTERED USING NUMBERS"  "REPRESENTING MONTH, DAY, AND YEAR" "SEPARATED BY COMMAS." ::  "FOR EXAMPLD CONTAIN A DECIMAL POINT"H "AND TWO DECIMAL NUMBERS. AN EXAMPLE OF"e "THIS FORMAT FOLLOWS: "o :: 10);"DO NOT TYPE:"  20);"$1,234"  10);"ENTER THIS AMOUNT AS FOLLOWS:"  21);"1234.00" (23)" "PRES22)( o"PRESS ANY KEY TO CONTINUE":V$; |:P11000:Ph "TO ACCURATELY DETERMINE THE AMOUNT OF" "GAIN OR LOSS FOR EACH PROPERTY LISTED," "AMOUNTS SHOULD BE ENTERED WITH NO" "DOLLAR SIGN ($) AND NO COMMA (,). EACH" "AMOUNT SHOUL8);"CAPITAL GAINS AND LOSSES"1 TP13000:PD Y:P11000:PL ^:V `(10) c"THIS PROGRAM HAS A MAXIMUM OF FOUR" e"STOCKS TO BE LISTED. THE NUMBER CAN" h"BE INCREASED BY REPLICATING THE" j"ROUTINES LISTED IN THE PROGRAM." m(=  ******************!< LONG TERM AND SHORTBZ TERM GAINS AND`t LOSSESz BY TOM ALEXANDER  1983  ******************@E:P12000:PJ(10) O           !!! ! ! ! ! !(4)"RUN MENU"ATHE MASTER DISK IN THE DRIVE."::24:7:"PRESS ANY KEY TO CONTINUE.";:AA$hB:u30000BNu936:12:14:"LOADING...."BXu(4)"RUN MENU"B MENU""A2RR1GOOD$(GOOD$,RR1)+A2RRRR1BSC10TSC0SP0I>BSC10TSC0SPSP1X>SP25130^>>MEM1313,22:MEM1466,21:MEM1463,12:MEM1464,253> POKE 216,0: POKE MEM + 1463,12: POKE MEM + 1464,253>19::D$;T$>