' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   ٠734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # d ֠z# u*`ŠҍŠҍ٠ҍ٠Ӯҍ̠ӍĠōŠԍӠ΍Ԡ̍İٍ̠ōĠ΍ɠ΍٠̍٠čɠ΍٠Ӎ̠΍Šō٠čŠǍΠ΍Ӎ΍٠ԍŠҍ٠ٍΠӍӍӍō٠čٍŠ̍ŠٍɠٍΠҍō͠ԍȍ٠׍٠ҍ  N MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$Q$˭(ZZ$)27ė:%˹43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"RUN BOX"AA$"":AA$ϭ(AA$)1353060ϭ(AA$)853040ϭBB$""ĭ(AA$"+"AA$"-")ĖH:" ";:BB$"":V:H:51000 ˢ22:6:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY KEY TO CONTINUE";:ZZ$"˭(ZZ$)27ı=#˗:8::"NO FILES WILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAI,1)"-"BB$"":60000:12500N(BB$):BB$""?CSLP(X)NHCM0RTCCSyCM$"S"CM20((CS))2:TCCSCMCM$"F"CMBCCSPC100:TCCSCMTCCR(I)DL1330DL01420(MS$"NOT ENOUGHT CASH":CR(I)CR(I)PN:54500:11002ӍԠԍԠȍŠٍ؍ ӍǠ΍̠ҍĠ΍Íčō؍Y":6:"4 SET MARGIN LIMIT":6:"5 SET ALL PARAMETERS"Tf6:"6 RETURN TO MENU"{j13:8:"MAKE SELECTION BY NUMBER"tSE$:SE$"1"SE$"6"60020~SE$"5"İ40:100:500:600SE$"1"İ40SE$"2"İ100SE$"3"İ500SE$"4"İ6"; ~C0:K110:C(I,K)XCK'K6C01250>K1VC(I,K)0CK:1250kKK1:K111190MS$"TEN COS. ALREADY OWNED":CR(I)CR(I)PN:54500:110020:1:"SHARES (+ = BUY, - = SELL)";:V20:H29:L7:53000(BB$,1)"+"(BB$0zVX(BB$):BB$"":X0Ģ22:1:"YOU ARE FINISHED WITH THIS INVESTOR":23:11:" ";:TM11500::200aX(X)X1X(NC1)ĢV1:H:"INVALID NUMBER";:TM11500::V1:H:" ";:1100e23:11:" ";OM23:11:"ENTER '0' TO QUIT";:6:1:"NO. COMPANY";29);"SHARES"oNPL0:Q110:C(I,Q)01106OPLPL1:6PL:C(I,Q);4);CP$(C(I,Q));30);S(I,Q)RQ:17:10:55000:"CASH RESERVE ";CH$S18:"COMPANY NUMBER ";:V18:H20:L7:53002000 I1! P$SN$(I)11008 SN$(I)"XXX"1050H II1:1020 V1:12:"NAME NOT FOUND IN LIST":TM11500::V1:H:" ";:V:H:" ";:V:H:1010L23:11:" ";:12:20:"  ; :" ";:` I24::" ";::40::" ";:: :" ";: :3:3:"NAME"; 23:11:"TYPE 'XXX' TO END"; V3:H12:L20:51000 P$BB$:BB$"":P$"XXX"R O M D I S K . . .":50100v :5:"R E A D I N G":7:5:"P A R A M E T E R S":9:10:"F R O M D I S K . . ." (4);"OPEN ";PF$ (4);"READ PARAMETERS/DATA" CR:PN:DL:PI:CM$:BC:PC:SS$ (4);"CLOSE PARAMETERS/DATA" 52000THE DATA DISK IN THE DISK DRIVE":52000 :5:"R E A D I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50000 :5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F E STUDENTS' PURCHASES OR SALES."H r"FIRST, ENTER THE STUDENT'S NAME."r s"NEXT, ENTER THE NO. OF THE COMPANY" t"(0-50) BEING BOUGHT OR SOLD. FINALLY," u"ENTER THE NO OF SHARES (+ = BUY," v"- = SELL)." x52000' }ND$"1"ė:12:"PLACE ' *** PROGRAM NAME : TRANSACT ***2BB$""@ SG1100ySN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)NW(200),TR(200):SG1PH(5,50)dn3:18:"ENTER"o5:17:"STUDENT"p7:14:"TRANSACTIONS:" q10:"ENTER TH          "  ƍ΍READ PARAMETERS/DATA";քCR:PN:DC:PI:CM$:BC:PC:SS$]ֺ(4);"CLOSE PARAMETERS/DATA"h֫60000wڹ216,0:20`:2:12:"SET PARAMETERS"8e5:6:"1 SET INITIAL CASH RESERVE":6:"2 SET COMMISSION RATE":6:"3 SET BAD TRANSACTIONS PENALT23:4:"PRESS ANY OTHER KEY TO CONTINUE";:ZZ$@"˭(ZZ$)27ı#˗:8::"NO FILES WILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$$˭(ZZ$)27ė:W%˹43624,1::5:O ENTRY";:TM11500::V:H:" ";:V:H:51000F~DZǢV1:H6:"ENTRY TOO LONG";:TM11500::V1:H6:" ";:V:H:" ";:BB$"":V:H:51000. ˢ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:#DǭAA$","AA$";"AA$":"51000YLǭ(AA$)31(AA$)128BB$BB$AA$:(BB$)L51080pVǢV:H:BB$;:51000`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000eǭ(BB$)1BB$"":V:H:" ";:51000jǫ51000@tǭ(BB$)0ĢV:H:"YOU MADE N"ñĺ(4);"OPEN ";SF$<"ĺ(4);"WRITE STUDENT/DATA"D,J1r-ĺSN$(J):K110:C(J,K):S(J,K):K:CR(J)}.ĺTR(J)/ĭSN$(J)"XXX"502501JJ1:50221Jĺ(4);"CLOSE STUDENT/DATA":8AA$"":AA$Bǭ(AA$)1351060Cǭ(AA$)851040oÁK110:C(J,K):S(J,K):K/sÄCR(J):TR(J)GxíSN$(J)"XXX"50050X}JJ1:50030wú(4);"CLOSE STUDENT/DATA"NLJ1:ú(4);"OPEN ";CF$ú(4);"READ COMPANY/DATA"ÁJ150ÄCP$(J)ÄLP(J)ÂJú(4);"CLOSE COMPANY/DATAND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":52000|>:5:"R E T U R N I N G":7:5:"T O M E N U . . ."C43624,1H(4);"BLOAD CHAIN,A520":520"BOX"Pú(4);"OPEN ";SF$Zú(4);"READ STUDENT/DATA"dJ1nÄSN$(J))CR(S)DB:DB09 3:7:" "@ (S ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000 :5:"S A V I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"T O D I S K. . ." 50200A4NL 3:7:SN$(S)' CR(S)01240> 3:7::SN$(S);:f CR(S)(CR(S)(1PI36000)100)100 3:7:" " I110 C(S,I)01300 S(S,I)0Ģ3:7::SN$(S)::DB(S(S,I)LP(C(S,I)))PI36000:DB(DB100)100:CR(S N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50100| (4);"OPEN ";PF$ (4);"READ PARAMETERS/DATA" CR:PN:DL:PI:CM$:BC:PC:SS$ (4);"CLOSE PARAMETERS/DATA" 52000  S1000" ySN$(1)""CP$(1)""200e }ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000 :5:"R E A D I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50000 NLJ1f :5:"R E A D I ACCOUNTS" q12:3:"RUNNING THIS OPTION REQUIRES NO":3:"ADDITIONAL ENTRIES. SIMPLY INSERT":3:"THE DATA DISK AND ALLOW THE COMPUTER" r3:"TO LOAD THE REQUIRED DATA. THEN ":3:"SAVE THE ADJUSTED CASH RESERVES":3:"BACK TO THE DATA DISK" x52x. *** PROGRAM NAME : MARGIN INTEREST ***9216,0G SG1100SN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)NW(200),TR(200):SG1PH(5,50)dn3:15:"DEDUCTING":5:10:"MARGIN/SHORT INTEREST" o7:9:"FROM INDEBTED      AA$:(BB$)L51080*VǢV:H:BB$;:51000f`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000eǭ(BB$)1BB$"":V:H:" ";:51000jǫ51000tǭ(BB$)0ĢV1:20:"YOU MADE NO ENTRY";:TM11500::V1:20:" ";:V:H:51000٠΍٠ōҮōҮ̍ŠҍŠҍ٠ҍ٠Ӯҍ̠Ӎ  A$ "(BB$)1BB$"":V:H:" ";:51000-jǫ51000tǭ(BB$)0ĢV:H:"YOU MADE NO ENTRY";:TM11500::V:H:" ";:V:H:51000~DZǢV1:H6:"ENTRY TOO LONG";:TM11500::V1:H6:" ";:V:H:" 750 500002z:12:14:"TO SAVE DATA"=50000ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE":DC$:5:"S A V I N G":7:5:"P A R A M E T E R S":9:10:"T O D I S K . . ." oúLP(J)xÂJ1ú(4);"CLOSE COMPANY/DATA"7ñG8AA$"":AA$\Bǭ(AA$)1351060pCǭ(AA$)851040DǭAA$","AA$";"AA$":"51000EǭAA$"@"I1II1::234FǭAA$"#"I(NC2)II1::234Lǭ((AA$)47(AA$)58)AA$"."BB$BB$AM DISK IN THE DISK DRIVE":52000:]5:"R E T U R N I N G":7:10:"T O M E N U . . ."43624,1:(4);"BLOAD CHAIN,A520":520"BOX"LP$((100PL.5)100):Pú:(4);"OPEN ";CF$Zú(4);"WRITE COMPANY/DATA"dÁJ150núCP$(J)LP(I)(BB$):BB$"""I&,52000,6o;ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000u@E5:"S A V I N G":7:5:"F I L E T O":9:10:"D I S K . . ."F50000J56000:55000#ND$"1"Ģ12:"PLACE THE PROGR1);:32:LP$;p 7:2:" ";:I2Ģ7:2:PLLP(I2):700:CP$(I2);:32:LP$; 6:2:" ";:I3Ģ6:2:PLLP(I3):700:CP$(I3);:32:LP$; 12:2:CP$(I);:V12:H32:L7:51000 TO MOVE BACKWARDS IN THE LIST":"PRESS '#' TO MOVE FOREWARD IN THE LIST"g 4:11:"COMPANY ENTRIES"u I1NC1 12:2:" "; 8:2:" ";:I1Ģ8:2:PLLP(I1):700:CP$(I < 9::" ";:S I1014::" ";:g 40::" ";:: 15::" ";: 10:12:"COMPANY";:11:2:"-------------NAME------------- PRICE";I 18:1:"PRESS '@'N G":7:5:"C O M P A N Y":9:10:"P R I C E D A T A":11:15:"F R O M D I S K . . ."g 53000 :(4);"OPEN ";PF$ (4);"READ PARAMETERS/DATA" CR:PN:DL:PI:CM$:BC:PC:SS$ (4);"CLOSE PARAMETERS/DATA" 55100 52000OF THE COMPAN- IES IN THE FILE FROM THE FINANCIAL PAGES OF THE LOCAL NEWSPAPER. CONVERT ALL FRACTIONAL PRICES TO DECIMAL FORM BEFORE ENTERING. x52000 } ND$"1"Ģ12:"PLACE THE DESIRED DATA DISK IN DRIVE 1":52000\ :5:"R E A D I #$ *** PROGRAM NAME : PRICE ***2 SG1100tSN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50),PH(5,50)NW(200),TR(200):SG1dn3:17:"UPDATE"o5:14:"THE FILE OF":7:13:"COMPANY PRICES" p10:"ENTER THE CURRENT PRICES      "" DENT/DATA"> J:(4);"OPEN ";HF$:(4);"DELETE HISTORY/DATA" T"CLEARING MEMORY - PLEASE WAIT ":"( TAKES ABOUT 30 SECONDS.)" ^T1200: `SN$(T)"" bX110:S(T,X)0:C(T,X)0:X cCR(T)0:TR(T)0:NW(T)0 eT hT150 jCP$(T)"":LP(ӍԠԍԠȍŠٍ؍(QQ$,QQQ)%(Q2$)1Q2$Q2$"0"<(Q2$)0Q2$"00"PQQ$Q1$"."Q2$V$hT)0 lM15 nPH(M,T)0' pM:T ND$"1"ė:10:"PLACE PROGRAM DISK IN THE DISK DRIVE AND":"PRESS ANY KEY TO CONTINUE":A$ :5:"R E T U R N I N G":7:5);"T O T H E":9:10);"M A I N M E N U . . ."  DC13520$ 20:" 6:H30:L4:BB$"":51000&PI(BB$)150000:5:13:"SHORT SELLING":7:5:"TO BE ALLOWED WITH MARGIN DEBT":10:5:"[N] NO SHORT SELLING":11:5:"[Y] ALLOW SHORT SELLING"DC$"":DC$:DC$"N"SS$"N":780DC$"Y"SS$"Y":780MARGIN OR DEBT ALLOWED":11:5:"[Y] INDEBTEDNESS ALLOWED"K DC$"":DC$b DC$"N"DL0:780s DC$"Y"680| 640 15:5:"DEBT LIMIT IN DOLLARS $":15:H28:L5:BB$"":51000 DL(BB$) DLDL16:5:"ANNUAL INT RATE ON DEBT":V1$"":DC$ DC$"N"PN0:5901 &DC$"Y"570: 0530y :15:5:"ENTER PENALTY AMT. ";:V15:H25:L9:BB$"":51000 DPN(BB$) N50000 S X bSS$"N":V15:H32 l5:12:"FOURTH PARAMETER":7:14:"MARGIN LIMIT"; v10:5:"[N] NO :BC(BB$)M 16:5:"PCT COMMISSION":V16:H20:L4:BB$"":51000:PC(BB$)Z 50000:` f  5:12:"THIRD PARAMETER" 7:6:"PENALTY FOR BAD TRANSACTIONS":10:5:"[N] ESTABLISH NO PENALTY":11:5:"[Y] YES, ESTABLISH A PENALTY" DCDARD COMMISION FEE":11:5:"[N] NO COMMISSION FEE":12:5:"[F] FLAT RATE FEE"a nDC$"":DC$ sDC$"S"CM$"S":BC20:PC0:150 xDC$"N"CM$"N":BC0:PC0:150 }DC$"F"CM$"F":135 110 15:5:"BASE FEE":V15:H20:L4:BB$"":510009:12:"$10,000 MINIMUM":12:"$100,000 MAXIMUM" 715:"ENTER INITIAL RESERVE (NO COMMAS OR $)";:16:13:"$";:V16:H15:L6:BB$"":51000 <CR(BB$) A50000 F d:5:12:"SECOND PARAMETER":7:12:"COMMISSION RATE"Q i10:5:"[S] STAN ) *** PROGRAM NAME : PARAMETERS ***/ :55000O3:17:"DEFINE"i5:14:"TRANSACTION"7:15:"PARAMETERS"50000#60000(-5:12:"FIRST PARAMETER"27:10:"STARTING CASH RESERVE":8:12:"FOR EACH STUDENT"2 3   ! LOAD CHAIN,A520":520"BOX" 8Pú:(4);"OPEN ";SF$WZú(4);"WRITE STUDENT/DATA"bdÁJ1InnúSN$(J)oÁK110:C(J,K):S(J,K):KsúCR(J):TR(J)xÂJú(4);"CLOSE STUDENT/DATA"ñ8Dz9AA$"":AA$Bǭ(AA$)1351060 Cǭ(AA DRIVE":52000@YE5:"S A V I N G":7:5:"F I L E T O":9:10:"D I S K . . ."dJ50000jND$"1"Ģ12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":52000:5:"R E T U R N I N G":7:10:"T O M E N U . . ."43624,1:(4);"BSN$(1)""SN$(I)"XXX"ĺSN$(I):12:7CV12:H7:L30:51000YSN$(I)BB$:BB$""f CR(I)CRr TR(I)0SN$(I)"XXX"300"II1:I200234#I200SN$(I)"XXX":300,520006;ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK ";:I1Ģ8:2:I1;:7:SN$(I1);7:2:" ";:I2Ģ7:2:I2;:7:SN$(I2);6:2:" ";:I3Ģ6:2:I3;:7:SN$(I3);12:3:I;:7*0:16:"STUDENT";:11:2:"NO. --------NAME--------"; 18:1:"PRESS '@' TO MOVE BACKWARDS IN THE LIST":"PRESS '#' TO MOVE FOREWARD IN THE LIST" 4:11:"STUDENT ENTRIES" I1 12:2:" ";E8:2:" DL:PI:CM$:BC:PC:SS$; (4);"CLOSE PARAMETERS/DATA"L DC$"N"200W 53100] 9::" ";: I1014::" ";: 40::" ";:: 15::" ";:6 1FE121FE89176V ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000a 60000 :5:"R E A D I N G";:7:5:"P A R A M E T E R S";:9:10:"F R O M D I S K . . ." (4);"OPEN ";PF$ (4);"READ PARAMETERS/DATA" CR:PN:"START WITH A LETTER. TYPE XXX WHEN YOU"H v"ARE DONE ENTERING NAMES."S 52000Y | 12:14:"TO READ DATA":52000 :8:7:"DOES A STUDENT FILE EXIST?" 10:16:"(Y) YES" 11:16:"(N) NO" DC$ FE(DC$) FE78FE110 OF":7:15:"STUDENTS:"J p10:"ENTER OF EDIT THE NAME OF THE STUDENTS"s q"THAT WILL BE PARTICIPATING IN THE" r"INVESTMENT EXERCISE. YOU MAY ENTER UP" s"TO 199 NAMES. STUDENT NAMES MAY BE NO" t"LONGER THAN 20 CHARACTERS. NAMES MUST"( ur$ *** PROGRAM NAME : STUDENTS"/BB$""= SG1100KPH(5,50)SN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)NW(200),TR(200):SG1dT150:SN$(T)"":T:eT1200:CR(T)0:TR(T)0:n3:17:"BUILD" o5:15:"A FILE          (QQ$,QQQ)&(Q2$)1Q2$Q2$"0"=(Q2$)0Q2$"00"QQQ$Q1$"."Q2$WT lQQ0QQ$QQ$".00":621204vQ1$(QQ$,QQ1)HQ2$(QQ$,QQQ)b(Q2$)1Q2$Q2$"0"y(Q2$)0Q2$"00"QQ$Q1$"."Q2$(Q2$)1Q2$Q2$"0"(Q2$)0Q2$"00"QQ$Q1$"."Q2$$vQ1$(QQ$,QQ1) Q2$A$)48(AB$)57530006BB$BB$AA$:(BB$)L53080M&ϢV:H:BB$;:530000ϭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:530005ϭ(BB$)1BB$"";:V:H:" ";:V:H:53000:ϫ53000Dϭ(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" :54000: TM11500::54000: $;:TM11500::54000: Z :ϫ53000XDϭ(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" ";:V:H:53000^NϱXϢV:H:"INVALID";:TM11500::V:H:" ";:V:H:53000ҁLN622:LN:" ";:LN: ԢV1:5:MS$;:TM11500:M E S":9:10:"F R O M T H E D I S K . . ."6R%CP$(J)"XXX"NCJ:J50hPú(4);"OPEN ";CF$Zú(4);"WRITE COMPANY/DATA"dÁJ150núCP$(J)oúLP(J)xÂJú(4);"CLOSE COMPANY/DATA"ñ8AA$"":AA$Bǭ(AA$)1351060Cǭ(AA$)1353060$ϭ(AA$)853040?ϭAA$"+"AA$"-"53020^ϭ(AA$)48(AA$)5753000~BB$BB$AA$:(BB$)L53080&ϢV:H:BB$;:530000ϭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:530005ϭ(BB$)1BB$"":V:H:" ";:V:H:53000ILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$$˭(ZZ$)27ė:%˹43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"RUN BOX"AA$"":AA$NTRY TOO LONG";:TM11500::V1:H6:" ";:V:H:" ";:BB$"":V:H:51000 ˢ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY OTHER KEY TO CONTINUE";:ZZ$"˭(ZZ$)27ı#˗:8::"NO FILES W0VǢV:H:BB$;:51000T`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000|eǭ(BB$)1BB$"":V:H:" ";:51000jǫ51000tǭ(BB$)0ĢV:H:"YOU MADE NO ENTRY";:TM11500::V:H:" ";:V:H:51000~DZmǢV1:H6:"E:C(J,K):S(J,K):K:CR(J)%.ĺTR(J)=/ĭSN$(J)"XXX"50250N1JJ1:50221oJĺ(4);"CLOSE STUDENT/DATA":8AA$"":AA$Bǭ(AA$)1351060Cǭ(AA$)851040DǭAA$","AA$";"AA$":"51000Lǭ(AA$)31(AA$)128BB$BB$AA$:(BB$)L5108ú(4);"OPEN ";CF$4ú(4);"READ COMPANY/DATA"@ÁJ150LÄCP$(J)WÄLP(J)síCP$(J)"XXX"NCJ:J50zÂJíNC0NC51ú(4);"CLOSE COMPANY/DATA"ñĺ(4);"OPEN ";SF$"ĺ(4);"WRITE STUDENT/DATA",J1-ĺSN$(J):K110624,1,H(4);"BLOAD CHAIN,A520":520"BOX"2HPú(4);"OPEN ";SF$fZú(4);"READ STUDENT/DATA"ndJ1znÄSN$(J)oÁK110:C(J,K):S(J,K):KsÄCR(J):TR(J)xíSN$(J)"XXX"50050}JJ1:50030ú(4);"CLOSE STUDENT/DATA"NLJ1:l:5:"S A V I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"T O D I S K. . ."w502004ND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":52000>:5:"R E T U R N I N G":7:5:"T O M E N U . . ."B43P$(X))2));CP$(X)S1NL/3:7:SN$(S);C110OC(S,C)X1230f3:7::SN$(S);:S(S,C)S(S,C)ENSTARTC3:7:" "S200ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000B$"". yV15:H7:L2:V:H::" ";::53000< ~EN(BB$)[ V:H:" ";:V:H:BB$;f BB$"" V15:H32:L2:V:H::" ";::53000 START(BB$):V:H:" ";:V:H:BB$; BB$""18:4:"ADJUSTING HOLDINGS FOR OWNERS OF":20((C ";:TM11500::2000{ aX(X)X1X(NC1)ĢV1:H:"INVALID NUMBER";:TM11500::V1:H:" ";:1107 e23:11:" "; j12:15:"SPLIT RATIO":1);"ENDING RATIO VAL BEGINNING RATIO VAL" t15:20);":"; wBPI:CM$:BC:PC:SS$7 (4);"CLOSE PARAMETERS/DATA"B 52000H i R23:12:"TYPE '0' TO QUIT"; S10:1:"COMPANY NUMBER ";:V10:H20:L7:53000 VX(BB$):BB$"":X0Ģ22:1:"YOU ARE FINISHED WITH STOCK SPLITS":23:11:" T I O N":11:15:"F R O M D I S K . . .":50000= NLJ1 :5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50100 (4);"OPEN ";PF$ (4);"READ PARAMETERS/DATA" CR:PN:DL:"i q12:"ENTER THE STOCK SPLIT RATIO AND THE INDIVIDUAL HOLDINGS WILL BE ADJUSTED ACCORDINGLY."t x52000 }ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":520002 :5:"R E A D I N G":7:5:"S T U D E N T":9:10:"I N F O R M A (***PROGRAM NAME : STOCK SPLIT ***6 SG1100DPH(5,50)}SN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)NW(200),TR(200):SG1dn3:15:"ADJUSTING":5:12:"STUDENT HOLDINGS" o7:14:"BECAUSE OF A":9:14:"STOCK SPLIT           0QQ$QQ$".00":62120+vQ1$(QQ$,QQ1)?Q2$(QQ$,QQQ)Y(Q2$)1Q2$Q2$"0"p(Q2$)0Q2$"00"QQ$Q1$"."Q2$1410622:15:"TYPE 'XXX'":23:16:"TO QUIT";:~ 4030:22:7:"PRESS SPACE BAR TO STOP":23:9:"AND START DISPLAY" 16368,0:K(16384)128K96ıFF$:(FF$)324020Pâ23:1:"PRESS ANY KEY TO CONTINUE";UþKPH(2,ST):PH(3,ST):PH(4,ST):PH(5,ST);PH(1,ST)01230Ab:(4);"CLOSE HISTORY/DATA"k190:12:5:"UPDATAING PRICE HISTORY LIST..."I150J521PH(J,I)PH(J1,I) JPH(1,I)LP(I)I(15);"FIV"":V:H:51000x ˢ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY OTHER KEY TO CONTINUE";:ZZ$"˭(ZZ$)27ı##˗:8::"NO FILES WILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANHE DISK DRIVE":52000:Q5:"R E T U R N I N G":7:10:"T O M E N U . . ."43624,1:(4);"BLOAD CHAIN,A520":520"BOX"ND$"1"Ģ12:"PLACE THE DESIRED DATA DISK IN DRIVE 1":520000:5:"R E A D I N G":7:5:"C O M P A N Y N A I)0 "I,n6 IF ND$ = "1" THEN VTAB 12: PRINT "PLACE THE DATA DISK IN THE DISK DRIVE": GOSUB 52000t@E5:"S A V I N G":7:5:"F I L E T O":9:10:"D I S K . . ."J50000:55000ND$"1"Ģ12:"PLACE THE PROGRAM DISK IN T2Ģ7:2:I2;:7:CP$(I2);n 6:2:" ";:I3Ģ6:2:I3;:7:CP$(I3); 12:3:I;:7 CP$(1)""CP$(I)"XXX"ĺCP$(I):12:7 V12:H7:L30:51000 CP$(I)BB$:BB$"" CP$(I)"XXX"NCI:I50 LP( QQ$Q1$"."Q2$ QQ$E-DAY HISTORY"::!DC$"S"ıt" COMPANY DAY 1 DAY 2 DAY 3 DAY 4 TODAY"z0 TRUNCATE:QQ0:QQ$"":Q1$"":Q2$""DQT(QT100)100:QQ$(QT)NQ(QQ$):T1QX(QQ$,T,1)"."QQT:62060b0=0ϭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:53000k5ϭ(BB$)1BB$"":V:H:" ";:V:H:53000v:ϫ53000Dϭ(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" ";:V:H:53000Nϱ XϢV:H:"INVALID";:TM11500::V:H:" ";:AA$)131330(AA$)81300AAA$","AA$";"AA$":"1240v(AA$)31(AA$)128BB$BB$AA$:(BB$)L1350 V:H:BB$;:1240(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:1240(BB$)1BB$"":V:H:" ";:1240(1240X2( FOREWARD IN THE LIST"4 4:11:"COMPANY ENTRIES"@ I150u 12:2:" "; 8:2:" ";:I1Ģ8:2:I1;:7:CP$(I1); 7:2:" ";:I0 TRUNCATE.:QQ0:QQ$"":Q1$"":Q2$""MDQT(QT100)100:QQ$(QT)aNQ(QQ$):T1QX(QQ$,T,1)"."QQT:62060bTlQQ0QQ$QQ$".00":62120vQ1$(QQ$,QQ1)Q2$(QQ$,QQQ)(Q2$)1Q2$Q2$"0" (Q2$)0Q2$"00" ";:V:H:53000NϱYXϢV:H:"INVALID";:TM11500::V:H:" ";:V:H:53000֢23:8:"PRESS ANY KEY TO CONTINUE ";־KK$֢23:1:" ";ֱ0 TRUNCATE:QQ0:QQ$"":Q1$"":Q2$""DQT(Q1060QǭAA$"."510406Vǭ(AA$)48(AA$)5751000r`BB$BB$AA$:(BB$)LBB$"":V:H:" ":51000jǢV:H:BB$;:51000tǭ(BB$)1BB$(BB$,(BB$)1):V:H:" ";:V:H:BB$;:51000vBB$"":V:H:" ";:51000R~IN, A520":520"STOCK SPLIT"O (4);"BLOAD CHAIN, A520":520"MARGIN INTEREST"~ "(4);"BLOAD CHAIN, A520":520"PARAMETERS" METERS" S (4);"BLOAD CHAIN, A520":520"STOCK SPLIT" (4);"BLOAD CHAIN, A520":520"MARGIN INTEREST" "(4);"BLO$)1BB$"":V:H:" ";:51000)jǫ51000tǭ(BB$)0ĢV:H:"YOU MADE NO ENTRY";:TM11500::V:H:" ";:V:H:51000~DZǢV1:H6:"ENTRY TOO LONG";:TM11500::V1:H6:" ";:V:H:" $)851040-DǭAA$","AA$";"AA$":"51000KEǭAA$"@"I1II1::234kFǭAA$"#"I200II1::234Lǭ((AA$)31(AA$)127)BB$BB$AA$:(BB$)L51080VǢV:H:BB$;:51000`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000eǭ(BBӍ΍:"THEN PRESS RETURN" $'A$+ .'216,0:5508ֺPH(1,ST):PH(2,ST):PH(3,ST):PH(4,ST):PH(5,ST)@ւST_ֺ(4);"CLOSE HISTORY/DATA"eֱ`:10:"DOES A COMPANY FILE EXIST ?"::" (Y) YES":" (N) NO "e10:29:FE$jFE(FE$)tFE89FE121FE78FE11060005<~N0 &τCP$(J)(+ϭCP$(J)""J50:5306030τLP(J)::ςJbDϹ216,0::(4);"CLOSE COMPANY/DATA"kNϫ165֗:5:"S A V I N G":7:5:"5 D A Y H I S T O R Y":9:10:"T O D I S K . . ."ֺ(4);"OPEN ";HF$:(4);"WRITE HISTORY/DATA"ցST1Y OTHER KEY TO CONT. PROGRAM";:ZZ$7$˭(ZZ$)27ė:%˹43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . . "::(4);"BLOAD CHAIN,A520":520"BOX"AA$"":AA$ϭ(AA$)1353060ϭ(AA$)853040ϭAA$"+"AA$"-"53020ϭ(A3,ST):PH(4,ST):PH(5,ST)t=~(4);"CLOSE HISTORY/DAT"C:5:"L O A D I N G":7:5:"P R I C E H I S T O R Y":9:10:"F R O M D I S K . . ."(4);"OPEN ";HF$:(4);"READ HISTORY/DATA"ST1501230&PH(1,ST):CP$(J)"XXX"NCJ$J(.NC0NC51G8(4);"CLOSE COMPANY/DATA"MBL:5:"S A V I N G":7:5:"5 D A Y H I S T O R Y":9:10:"T O D I S K . . ."V(4);"OPEN ";HF$:(4);"WRITE HISTORY/DAT"`ST150jPH(1,ST):PH(2,ST):PH(NY KEY TO CONTINUE";:ZZ$1(ZZ$)27ı9:43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"BLOAD CHAIN,A520":520"BOX"(4);"OPEN ";CF$(4);"READ COMPANY/DATA"J150CP$(J)LP(J)NO ENTRY";:TM11500::V1:20:" ";:V:H:800HV1:20:"ENTRY TOO LONG";:TM11500::V1:20:" ";:BB$"":V:H:" ";:V:H:80022:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS A ";:" I1014::" ";:6 40::" ";::o 15::" ";: 10:16:"COMPANY";:11:2:"NO. -------------NAME-------------"; 18:1:"PRESS '@' TO MOVE BACKWARDS IN THE LIST":"PRESS '#' TO MOVEH A LETTER. TYPE XXX WHEN YOU ARE DONE ENTERING COMPANY NAMES." t18:3:"(YOU DO NOT NEED TO TYPE XXX IF YOU ENTER 50 NAMES.)" 52000 60000 936 4010:53000 52000 9::" S" p8:3:"ENTER OR EDIT THE NAMES OF THE COMPANIES THAT WILL BE USED FOR INVESTMENT PURPOSES. YOU MAY ENTER UP TO 50 COMPANY NAMES."F r13:3:"COMPANY NAMES MAY BE NO LONGER THAN 30 CHARACTERS. NAMES MUST START WIT"& *** PROGRAM NAME : COMPANY ***1BB$""? SG1100SN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50),PH(5,50)NW(200),TR(200):SG1deT150:CP$(T)"":LP(T)0:Tn1:17:"BUILD" o3:15:"A FILE OF":5:15:"COMPANIE      !     PRESS ANY KEY TO CONTINUE":KK$% 2 43624,1c (4);"BLOAD CHAIN,A520":520"PARAMETERS,D1"j '6 '"THERE ARE NO PARAMETERS ON THIS DISK":"INSERT A DATA DISK WITH PARAMETERS ON IT":"THEN PRESS RETURN" ':"OR ":"INSERT THE PROGRAM DISK "(BB$)0ĢV1:H:"NO ENTRY MADE";:TM11500::V1:H:" ";:51000XDZ֭ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE":DD$֗::(4)֥56000ֺ(4);"OPEN ";PF$:(4);"ė:Zx43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"RUN BOX"jAA$"":AA$~(AA$)131510(AA$)81480AA$"+"AA$"-"1460(AA$)48(AB$)571410BB$BB$AA$:(BB$)L1530V:H:BB$;:14109234"RAA$"#"I50II1::234_\((AA$)47(AA$)58)AA$"."BB$BB$AA$:(BB$)L930tfV:H:BB$;:800p(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:800z(BB$)1BB$"":V:H:" ";:800800B(BB$)0ĢV1:20:"YOU MADE 700 !:(4);"OPEN ";CF$@(4);"WRITE COMPANY/DATA"LJ150XCP$(J)cLP(J)jJ (4);"CLOSE COMPANY/DATA" AA$"":AA$*(AA$)139104(AA$)8880>AA$","AA$";"AA$":"800HAA$"@"I1II1::CvND$"1"Ģ12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":940:}5:"R E T U R N I N G":7:10:"T O M E N U . . ."43624,1:(4);"RUN BOX"LP$((100PL.5)100):16368,0:K(16384)128K96ıFF$:(FF$)32 DAY 3 DAY 4 TODAY"'0I1NC1X:I$(I):J15:QTPH(J,I):62000:I$(J)QQ$:D2(I$));I$;". ";CP$(I);33(CP$(I)));I$(5);8(I$(5)));I$(4);8(I$(4)));I$(3);8(I$(3)));I$(2);8(I$(2)));I$(1)NIX(4);"PR#0"b200lE PAPER IS READY IN THE PRINTER":940:5:"P R I N T I N G":7:5:"P R I C E S O N T H E":9:10:"P R I N T E R . . ."(4);"PR#1":(9);"80N"29);"FIVE-DAY PRICE HISTORY"::&" COMPANY DAY 1 DAY 2TPH(J,I):62000:I$(J)QQ$:: CP$(I):I$(1);13(I$(1)));I$(2);13(I$(2)));I$(3);13(I$(3)));I$(4);13(I$(4)));I$(5): TM11000:TM I7(I7)İ680:500 :940:: I:940:(26);"1":(4);"PR#0"::200%:12:"MAKE SUR5,21: hI1NC1D rCP$(I);:QTPH(1,I):62000:34(QQ$));QQ$W |TM11000:TM J25:QTPH(J,I):62000:34(QQ$));QQ$: :I3(I3)İ680:430 940 : I::940:200 ::(4);"PR#3" I1NC1 I$(I):J15:Q::5);"[R] RETURN TO MAIN MENU"A 18:"ENTER YOUR CHOICE ";J DC$[ DC$"S"330l "DC$"M"440 ,DC$"P"ĺ:510 6DC$"R"620 @270 J K936:4000 T22:7:"PRESS SPACE BAR TO STOP":23:9:"AND START DISPLAY"; ^34,3:3S/DATA"- CR:PN:DL:PI:CM$:BC:PC:SS$O (4);"CLOSE PARAMETERS/DATA"Y 1170b 940 (26);"1":(4);"PR#0"::"PRINT-OUT OPTIONS":: 5);"[S] 40 COLUMN SCREEN" 5);"[M] 80 COLUMN MONITOR" 5);"[P] PRINTER"" " Z940 dO nND$"1"Ģ12:"PLACE THE DATA DISK IN THE DISK DRIVE":940 x:5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"P R I C E D A T A":11:15:"F R O M D I S K . . ." 1000:180 (4);"OPEN ";PF$ (4);"READ PARAMETER. *** PROGRAM NAME : PRICE HISTORY ***;SG170}SN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50),PH(5,50)(NW(21),TR(200):SG1F P3:17:"PRINT":5:15:"FIVE DAY":7:13:"PRICE HISTORY":9:16:"OF THE":11:15:"COMPANIES         H(BB$):" ";:51000>eǭ(BB$)1BB$"":V:H:" ";:51000Ijǫ51000tǭ(BB$)0ĢV:H:"YOU MADE NO ENTRY";:TM11500::V:H:" ";:V:H:51000~DZ/ǢV1:H6:"ENTRY TOO LONG";:TM11500::V1:H6:" ";:V:ˠӍ؍٠΍ōǠ΍̠ҰԠӍŠٍŠҍŠ΍Ӡ΍٠Ӎɠ̍ŠӍ΍ɠҍ̠΍Р͍٠Ӎ٠ō٠ȍԠӍӍĠōˠ΍٠ŠҍР΍K$8Zâ23:1:" ";>dñM0 TRUNCATEk:QQ0:QQ$"":Q1$"":Q2$""DQT(QT100)100:QQ$(QT)NQ(QQ$):T1QX(QQ$,T,1)"."QQT:62060bTlQQ0QQ$QQ$".00":62120vQ1$(QQ$,QQ1) Q2$Ġ΍Πҍ̠ЍΠӍ٠ӍĠǍΠٍŠ׍٠Ӎ͠čǠčŠǍ ALL FILES WILL REMAIN ON THE DISK."N (4);"BLOAD CHAIN,D1,A520":520"BOX"(4);"OPEN ";HF$:(4);"READ HISTORY/DATA"9KׁST1NC1oPׄPH(1,ST):PH(2,ST):PH(3,ST):PH(4,ST):PH(5,ST)uUׂZ׺(4);"CLOSE HISTORY/DATA"_ױڗ:12:5:"UPDATING PRICE HISTORY LIST..."ځI1NC1ځJ521PH(J,I)PH(J1,I)ڭ(AA$)8510402DǭAA$","AA$";"AA$":"51000PEǭAA$"@"I1II1::234oFǭAA$"#"I50II1::234Lǭ((AA$)31(AA$)127)BB$BB$AA$:(BB$)L51080VǢV:H:BB$;:51000`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000"eǭz!# /@    ŠĠ ! ٯ ӯŠ٠ԯ Р Š ؠ ŠԠϠŠӠΠԠ ٯ٠ՠӠΠ͠٠ ˠԠΠ:7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"T O D I S K. . ."` 50200 4:12:"PLACE PROGRAM DISK IN THE DISK DRIVE":52000 >:5:"R E T U R N I N G":7:5:"T O M E N U . . ." H(4);"RUN INVENTORY" Pú(4);" " I110) C(S,I)01300} S(S,I)0Ģ3:7::SN$(S)::DB(S(S,I)LP(C(S,I)))PI3600:CR(S)CR(S)DB:DB0 3:7:" " (S :12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000U :5:"S A V I N G" PARAMETERS/DATA"2 (4);"READ PARAMETERS/DATA"O PN:DL:PI:CM$:BC:PCq (4);"CLOSE PARAMETERS/DATA"| 52000 S1NL 3:7:SN$(S) CR(S)01240 3:7::SN$(S);: CR(S)CR(S)(1PI3600) 3:7:" 11000:2 (4);"BLOAD CHAIN, A520":520"MENU"= 216,0G 500T 43624,1\ 12 :5:"INITIAL PARAMETERS MUST BE DEFINED. THE OPTION TO DO THIS IS AUTOMATICALLY BEING LOADED." 43624,1 (4);"RUN PARAMETERS,D1": " 20: 2I321:I:" ";:40:" ":n 322:" "t Z d8:11:"WALL STREET ON-LINE" e11:15:"A CLASSROOM" f12:10:"STOCKMARKET SIMULATION" 18:13:"BY RALPH WHITE" TM43624,2  400\ (4);"OPEN PARAMETERS/DATA":(4);"READ PARAMETERS/DATA" CR:PN:DC:PI:CM$:BC:PC:SS$(4);"CLOSE PARAMETERS/DATA"12:" "" ";:29:" " 3:12:" R M A T I O N":11:15:"T O D I S K. . ."750200}4ND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":52000>:5:"R E T U R N I N G":7:5:"T O M E N U . . ."C43624,1H(4);"BLOAD CHAIN,A520":520"BOX" Pú:(4);"10(}S(I,M)0SDSDLP(C(I,M))S(I,M)/MCSDTCDL1350|MS$"EXCEEDS DEBT LIMIT":CR(I)CR(I)PN:54500:1100ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000,:5:"S A V I N G":7:5:"S T U D E N T":9:10:"I N F O SS$"Y"1400+3S(I,C)N2S(I,C)1350c<MS$"NOT ENOUGH SHARES":CR(I)CR(I)PN:54500:1100FS(I,C)S(I,C)N:S(I,C)0C(I,C)0:1360KC(I,C)XPCR(I)CR(I)TCQTR(I)1U54000V18:20:L7:" "Z1100xSD0yM1RD OR CAN'T RELOAD ( (768)0Ā{ ":"...LANGUAGE CARD CANNOT BE RELOADED":" UNTIL THE SYSTEM IS REBOOTED..." ,H THE PROGRAM."L Y22:2:"PRESS ANY KEY WHEN READY TO CONTINUE":DC$R ^| (4);"BLOAD CHAIN, A520":520"TITLE" C LANGUAGE CARD)" "BLOAD INTBASIC,A$D000" --WRITE PROTECT THE CARD A(16254): $C082  --NO CACOMPANY/DATA"$ SF$"STUDENT/DATA"; HF$"HISTORY/DATA"U PF$"PARAMETERS/DATA"f ,ND$"1"400x 6CF$CF$",D2" ;SF$SF$",D2" @HF$HF$",D2" EPF$PF$",D2" J:11:"PLACE THE DESIRED FORMATTED DATA DISK INDRIVE 2 BEFORE CONTINUING WIT MANUAL FOR YOUR COMPUTER TO MAKE WORKING COPIESOF THIS DISK." P:"YOU ARE GRANTED PERMISSION TO MAKE TWO COPIES OF THIS DISK FOR YOUR OWN USE." Z40 d n12:"1 OR 2 DISK DRIVE SYSTEM? "; sND$ xND$"1"ND$"2"115 CF$"~ 1012,0@ :4:" W A L L S T R E E T O N - L I N E"^::14)"BY RALPH WHITE":::"COPYRIGHT 1985 J. WESTON WALCH PUBLISHER"(:::8)"PRESS ANY KEY TO CONTINUE"2Y$<Y$(20)100@ F:"FOLLOW THE INSTRUCTIONS IN THE    53000HҁLN622:LN:" ";:LN:pԢV1:5:MS$;:TM11500::54000: (BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:53000e5ϭ(BB$)1BB$"":V:H:" ";:V:H:53000p:ϫ53000Dϭ(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" ";:V:H:53000NϱXϢV:H:"INVALID";:TM11500::V:H:" ";:V:H::" " 20> 2I321:I:" ";:40:" ":r 322:" "x Z d8:11:"WALL STREET ON-LINE" e11:15:"A CLASSROOM" f12:10:"STOCKMARKET SIMULATION" 18:13:"BY RALPH WHITE" TCM$:BC:PC:SS$3 (4);"CLOSE PARAMETERS/DATA" ND$"1"ė:12:3:"PLACE THE PROGRAM DISK IN DRIVE 1":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE":DC$   12:" " " ";:29:" " 3:12-# *** PROGRAM NAME: TITLE ***2:SG116ND$"1"ė:12:"PLACE THE DESIRED DATA DISK IN DRIVE 1":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE ";:DC$::500  (4);"OPEN "PF$:(4);"READ PARAMETERS/DATA" CR:PN:DC:PI:  1JJ1:502211Jĺ(4);"CLOSE STUDENT/DATA":A8AA$"":AA$VBǭ(AA$)1351060jCǭ(AA$)851040DǭAA$","AA$";"AA$":"51000Lǭ(AA$)31(AA$)128BB$BB$AA$:(BB$)L51080VǢV:H:BB$;:51000`ǭ(BB$)1BB$(BB$,(BB$)1):V:50ÄCP$(J)ÄLP(J)5íCP$(J)"XXX"NCJ:J50<ÂJLíNC0NC51kú(4);"CLOSE COMPANY/DATA"qñĺ(4);"OPEN ";SF$"ĺ(4);"WRITE STUDENT/DATA",J1-ĺSN$(J):K110:C(J,K):S(J,K):K:CR(J).ĺTR(J)/ĭSN$(J)"XXX"50250OPEN ";SF$(Zú(4);"READ STUDENT/DATA"0dJ1<nÄSN$(J)[oÁK110:C(J,K):S(J,K):KmsÄCR(J):TR(J)xíSN$(J)"XXX"50050}JJ1:50030ú(4);"CLOSE STUDENT/DATA"NLJ1:ú(4);"OPEN ";CF$ú(4);"READ COMPANY/DATA"ÁJ1SG110eSN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50),PH(5,50),NW(200),TR(200):SG1{ 2:17:"M E N U"I421:I:2:" ":5:17:"OPTIONS"(7:8:"A. CREATE A FILE OF COMPANIES"& 2 Ԡҍ΍àҍɠӍ΍ˠҍΠڍ٠͍̮Įō٠͍٠ȍŠōŠԍΠϱӍ΍$QQ$ #)jDC$"S"ĺNB;4);SN$(X);29(CR$));CR$;38(NW$));NW$:755" ";NB;8);SN$(X);40(CR$));CR$;54(NW$));NW$ IF DC$ = "S" OR DC$ = "M" THEN FOR TM = 1 TO 1500: NEXT TM: GOSUB 4000#DC$"S"DNB0~ IF DC$ < > "P" THEN VTAB 22: HTAB 7: PRINT "PRESS SPACE BAR TO STOP": VTAB 23: HTAB 9: PRINT "AND START DISPLAY"5:1:34,4:35,20X1NLNBNB1:QTCR(X):62000:CR$QQ$QTNW(X):62000:NW CSH RSV NT WTH":710$l588A:8:14:"PRINTING...."R(4);"PR#1"" RANKING OF STUDENT INVESTMENTS"" AS OF : ";DT$:" ""RANK NAME CASH RESERVE NET WORTH");"[M] 80 COLUMN SCREEN":BK7);"CHOOSE THE PRINT-OUT OPTION"RLDC$"":DC$gMDC$"R"ĺ:2100xNDC$"P"650XDC$"M"ĺ:(4);"PR#3":(12):670bDC$"S"ė:NB0:" RANKING OF STUDENT INVESTMENTS":8);"AS OF: ";DT$:"RANK NAME R(I):CR(I)CR(L):CR(L)T8 TTR(I):TR(I)TR(L):TR(L)TK IIM:I1520T 510g JJ1:JK504p 508y NNL D:11);"PRINT-OUT OPTIONS": F5);"[R] RETURN TO MAIN MENU": I5);"[P] PRINTER":J5);"[S] 40 COLUMN SCREEN":5 12:1:" ":12:1:"SORTING...PASS # ";Q NNLY MN M(M2):PSPS1:12:20:PS;:M0580 J1:KNM IJ LIM NW(I)NW(L)520 T$SN$(I):SN$(I)SN$(L):SN$(L)T$:TNW(I):NW(I)NW(L):NW(L)T:TC/DATA", CR:PN:DL:PI:CM$:BC:PC:SS$N (4);"CLOSE PARAMETERS/DATA"Y 52000 :12:1:"COMPUTING STUDENT # "; J1NL 12:22:J; SV0:K110:SVSVS(J,K)LP(C(J,K)):K NW(J)SVCR(J) TNTNNW(J) J NATNNLH9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50000T NLJ1 :5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50100 (4);"OPEN ";PF$ (4);"READ PARAMETERS16:"STANDING"N s12:"ENTER TODAY'S DATE (NO COMMAS)":V13:H10:L20:51000a tDT$BB$:BB$""l x52000 ySN$(1)""CP$(1)""400 }ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000I :5:"R E A D I N G":7:5:"S T U D E N T":$ *** PROGRAM NAME : TABLE ***-PS0: SG150sSN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)NW(200),TR(200):SG1PH(5,50)2F$" "dn3:16:"PRINTING"o5:16:"INVESTOR" p7:            ! 8:8:"B. CREATE A FILE OF STUDENTS"K <9:8:"C. UPDATE STOCK PRICES"v =10:8:"D. PRINT 5-DAY PRICE HISTORY F11:8:"E. ENTER STUDENT TRANSACTIONS" K12:8:"F. PRINT STUDENT TABLE" L13:8:"G. PRINT INDIV. INVESTMENTS" M14:8:ú(4);"CLOSE STUDENT/DATA"!ñ?ú(4);"OPEN COMPANY/DATA"]ú(4);"READ COMPANY/DATA"iÁJ150uÄCP$(J)ÄLP(J)ÂJú(4);"CLOSE COMPANY/DATA"ñĺ(4);"OPEN STUDENT/DATA""ĺ(4);"WRITE STUDENT/DATA",J1-ĺSN$(J):K:"R E T U R N I N G":7:5:"T O M E N U . . ."LH(4);"RUN INVENTORY"RpPú(4);"OPEN STUDENT/DATA"Zú(4);"READ STUDENT/DATA"dJ1nÄSN$(J)oÁK110:C(J,K):S(J,K):KsÄCR(J):TR(J)xíSN$(J)"XXX"50050}JJ1:50030 " Z1100F:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000:5:"S A V I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"T O D I S K. . ."502004:12:"PLACE PROGRAM DISK IN THE DISK DRIVE":520002>:5 ";:CR(I)CR(I)PN:54500:1100J2S(I,C)N2S(I,C)1350<MS$"NOT ENOUGH SHARES":CR(I)CR(I)PN:54500:1100FS(I,C)S(I,C)N:S(I,C)0C(I,C)0:1360KC(I,C)XPCR(I)CR(I)TCQTR(I)1U54000V18:20:L7:" PF$",D2" - d.n12:"1 OR 2 DISK DRIVE SYSTEM? ";7sDC$RxDC$"1"DC$"2"115iCF$"COMPANY/DATA"SF$"STUDENT/DATA"HF$"HISTORY/DATA"PF$"PARAMETERS/DATA",DC$"1"4006CF$CF$",D2";SF$SF$",D2"@HF$HF$",D2" EPF$ÍčōƍǍȍɍʍˍ͍̍΍ύЍэҍӍԍՍ֍׍ٍڍÍčōƍǍȍɍʍˍ͍̍ PANY NAMES":"THEN PRESS RETURN."::"OR"::"PRESS TO CREATE A NEW FILE."vDD$:DD$(13)DD$(27)60105DD$(13)60035DD$(27)200륫60400(4);"VERIFY ";CF$ :216,0:"THERE IS ALREADY A FILE OF COMPANY":"NAMES OND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000G216,0Sꥫ60100^(4);vFE78FE11060300FE89FE121ĺ(4);"VERIFY ";CF$:155PNF1:216,0::12:"THERE ARE NO COMPANY NAMES ON THE DISK.":"INSERT A DATA DISK WITH COMPú(4);"OPEN ";SF$9Zú(4);"READ STUDENT/DATA"AdJ1MnÄSN$(J)loÁK110:C(J,K):S(J,K):K~sÄCR(J):TR(J)xíSN$(J)"XXX"50050}JJ1:50030ú(4);"CLOSE STUDENT/DATA"ñú(4);"OPEN ";CF$ú(4);"READ COMPANY/DATA"4ND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":52000>:5:"R E T U R N I N G":7:5:"T O M E N U . . ."C43624,1H(4);"BLOAD CHAIN,A520":520"BOX"16368,0:K(16384)128K96ıFF$:(FF$)324020C$"M"ĭX10(X10)İ55000:XNLė*X2 F$F*L$"----------"`4L$;L$;L$;L$;L$;L$;L$y>QTNA:62000:NA$QQ$HF1$(F$,45(NA$))R"AVERAGE NET WORTH";F1$;NA$kDC$"S"DC$"M"İ55000DC$"M"ĺ(17)(4);"PR#0":580D20":520"PURGE" kC(A$)640 nC1C10100s yI721:I6CĢ(I):3:" "z zI C205,220,230,235,240,250,260,270,280,290,300 (4);"BLOAD CHAIN,A520":520"COMPANY" (4);"BLOAD CHAIN, A520":52"H. STOCK SPLIT ADJUSTMENT"G N15:8:"I. UPDATE INTEREST CHARGES"p O16:8:"J. SET INITIAL PARAMETERS" P17:8:"Z. EXIT THE PROGRAM" Z19:5:"PRESS THE LETTER OF YOUR CHOICE"; dA$ iA$"Z"ė:: jA$"P"ĺ:(4);"BLOAD CHAIN,A5H:" ";:V:H:53000"NϱdXϢV:H:"INVALID";:TM11500::V:H:" ";:V:H:53000ҁLN622:LN:" ":LN:ԢV1:5:MS$;:TM11500::54000: V   M11000: 10000# 43624,1L (4);"BLOAD CHAIN, A520":520"MENU" :2:"INITIAL PARAMETERS MUST BE DEFINED. THE OPTION TO DO THIS IS AUTOMATICALLY BEING LOADED." 43624,1 ND$"1"Ģ8:"PLEASE PLACE PROGRAM DISK IN DRIVE AND":"~DZvǢV1:20:"ENTRY TOO LONG";:TM11500::V1:20:" ";:BB$"":V:H:" ";:V:H:51000 ˢ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY OTHER KEY TO CONTINUE";:ZZ$"˭(ZZ$)27ı#˗:8::"N0"STUDENTS"5 (4);"BLOAD CHAIN, A520":520"PRICE"f (4);"BLOAD CHAIN,A520":520"PRICE HISTORY" (4);"BLOAD CHAIN, A520":520"TRANSACT" (4);"BLOAD CHAIN, A520":520"TABLE" (4);"BLOAD CHAIN, A520":520"PORTFOLIO" (4);"BLOAD CHA͠ӍΠ͍؍Ա؍ԶԷԸԹԱԲԳԴԵ:K!τCR(J):TR(J)-&ϭSN$(J)"XXX"53040>+JJ1:53015]0Ϻ(4);"CLOSE STUDENT/DATA"c:ϱlϗ:5:"R E A D I N G":7:5:"S T U D E N T F I L E"qϢ9:10:"F R O M D I S K . . ."vϰ53000{ϱ`216,0eꥫ61000f j(4);"VE (4);"OPEN ";PF$>(4);"WRITE PARAMETERS/DATA"dCR:PN:DL:PI:CM$:BC:PC:SS$(4);"CLOSE PARAMETERS/DATA"43624,1ND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":"PRESS ANY KEY WHEN READY TO CON " " 15);D$:15);D$' " ". I6 L$L8QZL$"----------------------------------------------------------------------"dD$". . . . . . . . . . ."n" "x31);"(+) (-)"10);"COMPANY NUMBER BUY/SELL SHARES"I15L$ ERS,D1" '6{ '"THERE ARE NO PARAMETERS ON THIS DISK":"INSERT A DATA DISK WITH PARAMETERS ON IT":"THEN PRESS RETURN" ':"OR ":"INSERT THE PROGRAM DISK ":"THEN PRESS RETURN" $'A$ .'216,0:5M11000: 10000# 43624,1L (4);"BLOAD CHAIN, A520":520"MENU" :2:"INITIAL PARAMETERS MUST BE DEFINED. THE OPTION TO DO THIS IS AUTOMATICALLY BEING LOADED." 43624,1 216,0:10000 (4);"BLOAD CHAIN,A520":520"PARAMET:" " 20> 2I321:I:" ";:40:" ":r 322:" "x Z d8:11:"WALL STREET ON-LINE" e11:15:"A CLASSROOM" f12:10:"STOCKMARKET SIMULATION" 18:13:"BY RALPH WHITE" TCM$:BC:PC:SS$3 (4);"CLOSE PARAMETERS/DATA" ND$"1"ė:12:3:"PLACE THE PROGRAM DISK IN DRIVE 1":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE":DC$   12:" " " ";:29:" " 3:12# *** PROGRAM NAME: TITLE ***2:SG116ND$"1"ė:12:"PLACE THE DESIRED DATA DISK IN DRIVE 1":22:2:"PRESS ANY KEY WHEN READY TO CONTINUE ";:DC$::500  (4);"OPEN "PF$:(4);"READ PARAMETERS/DATA" CR:PN:DC:PI:JPH(1,I)LP(I)ڂI!ڱ 521EPH(J,I)PH(J1,I)LڂJ^PH(1,I)LP(I)eڂIkڱ S"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"BLOAD CHAIN,A520":520"BOX"gAA$"":AA$|ϭ(AA$)1353060ϭ(AA$)853040ϭAA$"+"AA$"-"53020ϭ(AA$)48(AA$)5753000BB$BB$AA$:(BB$)L53080&ϢV:H:BB$;:5300 ÁJ150ÄCP$(J)#ÄLP(J)?íCP$(J)"XXX"NCJ:J50FÂJVíNC0NC51uú(4);"CLOSE COMPANY/DATA"{ñĺ(4);"OPEN ";SF$"ĺ(4);"WRITE STUDENT/DATA",J1-ĺSN$(J):LP(J):NS$(J)"XXX"502501JJ1:50221Jĺ(4);"CLOSϱ!NBB$;:" ";:BB$"":V:H:" ";:V:H:51000w ˢ22:13:"PRESS ANY KEY";:23:14:"TO CONTINUE";:ZZ$:Ϻ(4);"OPEN COMPANY/DATA"Ϻ(4);"READ COMPANY/DATA"ρJ150&τCP$(J)0τLP(J):ςJ?Ϻ(4);"CLOSE COMPANY/DATA"@(BB$,(BB$)1):V:H(BB$):" ";:51000Reǭ(BB$)1BB$"":V:H:" ";:51000]jǫ51000tǭ(BB$)0ĢV1:20:"YOU MADE NO ENTRY";:TM11500::V1:20:" ";:V:H:51000~DZ:ǢV1:20:"ENTRY TOO LONG";:TM11500::V1:208AA$"":AA$$Bǭ(AA$)13510608Cǭ(AA$)851040[DǭAA$","AA$";"AA$":"51000yEǭAA$"@"I1II1::234FǭAA$"#"I50II1::234Lǭ((AA$)47(AA$)58)AA$"."BB$BB$AA$:(BB$)L51080VǢV:H:BB$;:51000*`ǭ(BB$)1BB$ DISK DRIVE":52000S5:"R E T U R N I N G":7:10:"T O M E N U . . ."m(4);"RUN INVENTORY"sPú(4);"OPEN COMPANY/DATA"Zú(4);"WRITE COMPANY/DATA"dÁJ150núCP$(J)oúLP(J)xÂJú(4);"CLOSE COMPANY/DATA"ñ);:V12:H32:L7:51000/ LP(I)(BB$):BB$""6 "IA ,52000G 6~ ;12:"MAKE SURE DATA DISK IS IN DISK DRIVE":52000 @ E5:"S A V I N G":7:5:"F I L E T O":9:10:"D I S K . . ." J50000 12:"REPLACE THE PROGRAM DISK IN΍ύЍэҍӍԍՍ֍׍ٍڍ;: ";: XL11000:XLej23:1:" ";: S ";: ";: (BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:1410g(BB$)1BB$"";:V:H:" ";:V:H:1410q1410(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" ";:V:H:1410V:H:"INVALID";:TM11500::V:H:" ";:V:H:iq imo 膢 ȱ " [67 l67  8ij  o>aX(X)X1X(NC1)ĢV1:H:"INV:H:" ";:V:H:1010eL23:11:" ";:12:20:" ";M23:11:"ENTER '0' TO QUIT";:6:1:"NO. COMPANY";29);"SHARES"NPL0:Q110:C(I,Q)01106OPLPL1:6PL:C(I,Q);4);CP$(C(I,Q));30);S("NAME";* 23:11:"TYPE 'XXX' TO END";C V3:H12:L20:51000d P$BB$:BB$"":P$"XXX"2000l I1 P$SN$(I)1100 SN$(I)"XXX"1050 II1:1020/V1:12:"NAME NOT FOUND IN LIST":TM11500::V1:H:" ";:METERS/DATA"2 CR:PN:DL:PI:CM$:BC:PC:SS$T (4);"CLOSE PARAMETERS/DATA"_ 52000e :" ";: I24::" ";::40::" ";:: :" ";: :3:3:0| :5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":50100 :5:"R E A D I N G":7:5:"P A R A M E T E R S":9:10:"F R O M D I S K . . ." (4);"OPEN ";PF$ (4);"READ PARA u"ENTER THE NO OF SHARES (+ = BUY,"8 v"- = SELL)."C x52000 }ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":52000 :5:"R E A D I N G":7:5:"S T U D E N T":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":5000 d n3:18:"ENTER"0 o5:17:"STUDENT"L p7:14:"TRANSACTIONS:" q10:"ENTER THE STUDENTS' PURCHASES OR SALES." r"FIRST, ENTER THE STUDENT'S NAME." s"NEXT, ENTER THE NO. OF THE COMPANY" t"(0-50) BEING BOUGHT OR SOLD. FINALLY,"&ÍčōƍǍȍɍʍ؍ (27)400 216,0:200 0 0 6,0:200 :200 N200 NV:H:53000NҁLN622:LN:" ";:LN:vԢV1:5:MS$;:TM11500::54000: 3 THIS DISKd:"PRESS RETURN TO START A NEW FILE"::"OR"::"PRESS TO RETURN TO MAIN MENU":"WARNING: THE OLD FILE WILL BE":"PERMANENTLY ERASED."DD$:DD$(13)DD$(27)60330DD$(13)ĺ(4);"DELETE ";CF$:216,0:200 DD$M"ĺ(17)(4);"PR#0"&0:240kND$"1"ė:12:"PLACE THE PROGRAM DISK IN THE DISK DRIVE":1360:5:"R E T U R N I N G":7:5:"T O M E N U . . ."43624,1(4);"BLOAD CHAIN,A520":520"BOX"(4);"OPEN ";SF$(4)PO$"I"SN$(J)NM$JNL0DC$"P"İ500007 J=%P&(4);"PR#0":a*PO$"I"240j4910>V$(V):VL$V$:890HV.51PS0:870RLT1(V$):(V$,LT,1)"."PSLT\LTfPS0VL$V$:890pVL$(V$,PS1)z DC$" = $";VT$:770T"CASH RESERVE = ";RC$;" ";"INVESTMENT VALUE = ";VS$}" ";"TOTAL VALUE = ";VT$DC$"P"āM14:" "::780(4);"PR#0":  IF DC$ = "S" OR DC$ = "M" THEN FOR TM = 1 TO 2500: NEXT TM: GOSUB 4000L$;L$;L$;L$>QTCR(J):62000:RC$QQ$:QTSV:62000:VS$QQ$cVS(VS$): IF VS<1 THEN VS$="0"RC(RC$): IF RC<1 THEN RC$="0"VTRCVS:QTVT:62000:VT$QQ$DC$"S"ĺ"CASH RESERVE = $";RC$:"INVESTMENT VALUE = $";VS$:"TOTAL VALUE $"S"ĺL$;L$:620"bL$;L$;L$;L$+lSV0EqDC$"P"İ3000:8:1QvK110cC(J,K)0680SVSVS(J,K)LP(C(J,K))DC$"S"ĺCP$(C(J,K));27);S(J,K):680CP$(C(J,K));47(CP$(C(J,K))));S(J,K)KDC$"S"ĺL$;L$:710 0);DT$:" "J1NL4PO$"I"SN$(J)NM$800:K!DC$"S"ė:w&10);"CURRENT INVESTMENT HOLDINGS FOR"010);"NAME: ";SN$(J):" "DDC$"S"ĺ"COMPANY SHARES":L$;L$:620N5);"COMPANY";37);"SHARES"XDC;"[R] = RETURN TO PORTFOLIO MENU": 5);"[P] = PRINTER"@ b 5);"[S] = 40 COLUMN SCREEN" 5);"[M] = 80 COLUMN SCREEN" DC$: DC$"P"ĺ(4);"PR#1":510 DC$"M"ĺ(4);"PR#3":510 DC$"S"510 DC$"R"240 450 2ETURN TO MAIN MENU" "PO$- ,PO$"A"390> 6PO$"I"340O @PO$"R"930X J290 T12:5:"NAME OF INDIVIDUAL":V13:H5:BB$"" ^1540 hL20:1240 rNM$BB$:BB$"" |NM$"XXX"910 :11);"PRINT OUT OPTIONS":: DC$""! 5) PARAMETERS/DATA"7 CR:PN:DL:PI:CM$:BC:PC:SS$Y (4);"CLOSE PARAMETERS/DATA"c 1360{ (4);"PR#0":33,40 :11);"PORTFOLIO OPTION":: 5);"[I] = PRINT INDIV. PORTFOLIO" 5);"[A] = PRINT ALL PORTFOLIOS" :5);"[R] = R T U D E N T":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":980` NLJ1 :5:"R E A D I N G":7:5:"C O M P A N Y":9:10:"I N F O R M A T I O N":11:15:"F R O M D I S K . . .":1080 (4);"OPEN ";PF$ (4);"READ:"PRINTING"% d5:15:"INDIVIDUAL"> n7:15:"INVESTMENT"} x12:"ENTER TODAY'S DATE (NO COMMAS)":V13:H10:L20:1240 DT$BB$:BB$"" 1360 ND$"1"ė:12:"PLACE THE DATA DISK IN THE DISK DRIVE":1360U :5:"R E A D I N G":7:5:"SX( *** PROGRAM NAME : PORTFOLIO ***5SG160nSN$(200),CP$(50),S(200,10),C(200,10),CR(200),LP(50)(NW(200),TR(200):SG12PH(5,50)3456<F$" "FL$"---------------"P Z3:16     ! !!   ";: STM11500::54000:"CHCR(I)0CH$(CH)FDP0:LT1(CH$)a֭(CH$,LT,1)"."FGLTiׂLT ׭FG0(CH$)FG1CH$CH$"0" ׭FG0CH$CH$".00"ױ`23:1:"INVALID -- MUST BEGIN WITH '+' OR '-'";eXL11000:XL*j23:1:" V:H:53000:ϫ53000eDϭ(BB$)0ĢV:H:"NO ENTRY";:TM11500::V:H:" ";:V:H:53000kNϱXϢV:H:"INVALID";:TM11500::V:H:" ";:V:H:53000ҁLN622:LN:" ":LN:ԢV1:5:MS$;:ϭ(AA$)1353060'ϭ(AA$)853040LϭBB$""ĭ(AA$"+"AA$"-")53020kϭ(AA$)48(AA$)5753000BB$BB$AA$:(BB$)L53080&ϢV:H:BB$;:530000ϭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:53000 5ϭ(BB$)1BB$"":V:H:" ";:S WILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$$˭(ZZ$)27ė:%˹43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"RUN BOX"AA$"":AA$:H6:"ENTRY TOO LONG";:TM11500::V1:H6:" ";:V:H:" ";:BB$"":V:H:51000 ˢ22:6:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY KEY TO CONTINUE";:ZZ$"˭(ZZ$)27ı#˗:8::"NO FILE$)L51080!VǢV:H:BB$;:51000]`ǭ(BB$)1BB$(BB$,(BB$)1):V:H(BB$):" ";:51000eǭ(BB$)1BB$"":V:H:" ";:51000jǫ51000tǭ(BB$)0ĢV:H:"YOU MADE NO ENTRY";:TM11500::V:H:" ";:V:H:51000~DZvǢV13:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$F$˭(ZZ$)27ė:%˹43624,1::5:5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"BLOAD CHAIN,A520":520"BOX"Ϻ(4);"OPEN ";CF$Ϻ:(4);"READ COMPANY/DATA"ϥ53060ρJ152:"IF YOU WISH TO LET THE FILES REMAIN ON"::"THE DISK, PRESS ";::"ESC";::" TO RETURN TO"y 7:"THE MAIN MENU." dA$ DC(A$) DC27500 DC13250 1008 ND$"1"ė:12:1:"PLACE THE DATA DISK IN THE DRIVE AND "::"PRESS RP$ *** PROGRAM NAME : PURGE **** 5:"YOU HAVE ELECTED TO PURGE ALL STUDENT,"::"COMPANY, HISTORY, PRICE AND PARAMETER"9:"FILES FROM THE DISK."#13("IF YOU WISH TO PURGE ALL FILES FROM THE"::"DISK, PRESS ";::"RETURN":a      Ӎ00SE$"6"62000 H6000070CR0CM$""890:CR0Ģ17:1:"PRESS 1 TO SET INITIAL CASH RESERVE":18:"BEFORE RETURNING TO MENU";(7);DCM$""Ģ20:"PRESS 2 TO SET COMMISSION RATE":"BEFORE RETURNING TO MENU"E(7);N16368,LE")\DD$:DD$(13)DD$(27)61020>fDD$(13)60000QpDD$(27)200\z61020$0:"THERE IS ALREADY A FILE OF STUDENTS ON":"THIS DISK. PRESS RETURN TO START A NEW":"FILE. "::"WARNING: THE OLD FILE WILL BE ":"PERMANENTLY ERASED."::RIFY ";SF$ tFE89FE1211918~FE78FE11062000CH216,0YMFE78FE110200RFE89FE121ė:"THERE ARE NO STUDENT NAMES ON THIS DISK":"INSERT A DATA DISK WITH STUDENT NAMES ":"AND PRESS RETURN."::"OR"::"PRESS ESC TO CREATE A NEW FI TM11000: 43624,1G (4);"BLOAD CHAIN, A520":520"MENU" :5:"INITIAL PARAMETERS MUST BE DEFINED. THE OPTION TO DO THIS IS AUTOMATICALLY BEING LOADED." 43624,1 216,0 (4);"BLOAD CHAIN,A520":520"PARAMETERS,D1" N DRIVE AND":"PRESS ANY KEY TO CONTINUE":KK$4 A 43264,1L 216,0} (4);"BLOAD CHAIN,A520":520"PARAMETERS,D1"AMETERS,D1"" ON-LINE" e11:15:"A CLASSROOM" f12:10:"STOCKMARKET SIMULATION" 18:13:"BY RALPH WHITE" " Z# 18:13:" "0 43624,1Y (4);"BLOAD CHAIN, A520":520"MENU" :5:"INITIAL PARAMETERS MUST BE DEFINED. THE OPTION TO DO THIS IS AUTOMATICALLY BEING LOADED." 43624,1. ND$"1"VB8:"PLEASE PLACE PROGRAM DISK I# **** PROGRAM TITLE BOX ***2:SG116<500BHf12:" "" ";:29:" "3:12:" "202I321:I:" ";:40:" ": 322:"    ETURN OR"::"PRESS ";::"ESC";::" TO RETURN TO MENU"Y A$:A$(27)A$(13)255k A$(27)400 ,:(4);"OPEN ";PF$:(4);"DELETE PARAMETERS/DATA" 6:(4);"OPEN ";CF$:(4);"DELETE COMPANY/DATA" @:(4);"OPEN ";SF$:(4);"DELETE STUSC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$kTí(ZZ$)27ė:U×:5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"BLOAD CHAIN,A520":520"BOX8AA$"":AA$Bǭ(AA$)1351070Lǭ(AA$)85TINUE"ND$"1"ľZZ$:""C(4);"BLOAD CHAIN,A520":520"BOX"Pâ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY OTHER KEY TO CONTINUE";:ZZ$Rí(ZZ$)27ıWS×:8::"NO FILES WILL BE UPDATED."::22:4:"PRESS ";::"EÍ؍   ";:BB$"":V:H:51000~ ˢ22:7:"PRESS ";::"ESC";::" TO RETURN TO MENU";:23:4:"PRESS ANY OTHER KEY TO CONTINUE";!˾ZZ$"˭(ZZ$)27ı2#˗:8::"NO FILES WILL BE UPDATED."::22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:2؍ԱԲԳԴԵ"PRESS ESC TO RETURN TO MAIN MENU."J:DD$:DD$(13)DD$(27)62010]DDD$(13)200pNDD$(27)400 LO FILES WILL BE UPDATED.":22:4:"PRESS ";::"ESC";::" TO RETURN TO MAIN MENU";:23:4:"PRESS ANY OTHER KEY TO CONT. PROGRAM";:ZZ$$˭(ZZ$)27ė:%˹43624,1::5:"R E T U R N I N G":7:5:"T O M E N U . . ."::(4);"RUN BOX"Ϻ(4);"OP;"READ STUDENT/DATA"J1(SN$(J)GK110:C(J,K):S(J,K):KYCR(J):TR(J)pSN$(J)"XXX"1060JJ1:1010$(4);"CLOSE STUDENT/DATA".8(4);"OPEN ";CF$B(4);"READ COMPANY/DATA"LJ150VCP$(J)`LP(J)j73+""!!!!!!!!)33333333+!!!!!!!!)33333333+!!AEE!!!)333SWW33+!!AEE!!)33SWW333+!!!!AEE!)3SWWW333+!!!AEEEE)SWW7SW33+!!AE%!EE-WW73WWW3+!AEEE%!EMW73WWWWW+AEEEEE%!M73WWWWWWO"R"!%!!!!!!)3333333S+A%!!!!!!)3333333SOE%!!!!!!)WWWWWWWWOE%AEEEEE-3WWWWW7SOE%AEY KEY>";:S$:LS$%VV1(S$)<`L,((S$,V,1))24IjLL1:VZtL,0:LL1:~"!AEEEEEE)WWWWWWWW+EEEEEEEEM33333373+!!A!!!!!)WWWWWW73+!!AEEEEE-3WWWWW73+!!AEEEE%)33WWWW73+!!AEEE%!)333WWW73+!!AEE%!!)3333WW73+!!AE%!!!)33333W73+!!A%!!!!)333333"CONDITIONS AND WOULD NORMALLY CAUSE"U"TROUBLE. THE 'ESC' KEY LETS YOU MOVE"z"BOTH BOATS BACK TO THE START."L71687181V:L,VL 6,0,14,0,177,0,84,1,247,1,154,2,160,2T161100$T.24:12:"&τCP$(J)I0τLP(J)e5ϭCP$(J)"XXX"NCJ:J50l:ςJ|?ϭNC0NC51DϺ(4);"CLOSE COMPANY/DATA"Nϱ֗:5:"S A V I N G":7:5:"5 D A Y H I S T O R Y":9:10:"T O D I S K . . ."+ ׺