' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6L65 & "L}"BB5L&]655555553L36 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`7`>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,&"_*]6` L/  !"#$%&'()*+,-./0123456789:;<=>?80^݌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^6L6 i:5`  \* ?*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`55555555J5m55m5jn5n5n555m5555m555`"L? 585H ~.(3` d Ġz#q*U @@?*U*U?~?~*U*T~|}*U*P}{q*U(O|*P~`|U*cx~ c "' #?||@P`{|p?@Ty`~?}`}*T}p?{}~p?u*S~p?whH^*~y*~U*?}~?zU(?{x?zU(wprU opJU ~?`swl{l{_m>m2CUUUUUUU]]U0U0UUU]]U U UU8U8U((@*@jej@a+@0+@0*@*@*@]*1@U(0U(U A_6A_6Y@a  @*@*@*@*@*@@*@@*@.@.@*C*C *@ *@*@.L.L *@ *@*@*\*\*T T` U`u2u 0U`U`U U U`.U`*T*T*P>m>m2Cpp`cPCPBUU]0]0U U U@U@@U@U ] ]U`U`U`U`]0] 0U U`u`u(00(00***L@*L1@*@0:@ :@ *]*](U(U A_6A_6Y@a@8@801@h@aha @ @ @j@j@.X.X*A@ *A@ *`*``*@`*C.C .@ *@0*@0jpjp.@.A@*A@*p:p:T T UUU&` U&`U ]  ]  U.U.T*T*P [>mX [>mX [>mX `xxx`6XX @0LU3 U3U0U@w@w@ U1@ U0@U@]]`UcU0] 0] U0u3u0U0U U @]h @k 0+0* j@ j`*`*@*@jUjU(U(U m_6lm_6lm_6l@0 O|O||@0 l@l@@@`f*Y@ *Y@ *X*@`;@`;@`*X` *X `*@ `.@ npjq@*AL.@ .@*X:Y@:AL *@  *P*P`.t`uF U@Uu u0U0U U u*u*T*Ty ----------------------------------------`Š0P`----------------------------------------     *P [>mX [>mX [>mX `xxx ` [6mX [6mX ` 6mX 6mX x<@3@3 3 U0@U@]]`UcU 0] 0] U0U3U0U0UU@u`@uc0U#0U ]h h`*`**@j@j@*@*@*U*U(U(U m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0  [6l [6l  |`@`A@@ *X `*@ `.@ npjq@*AF.@.@*XjY@jAL *@  *@*@`:p`:qC*Q@*P.tt0 U0U U u u U U U*U*T*T*P [>mX [>mX [>mX `xxx ` [6mX [6mX ` [6mX [6mX `x|x`p`01@@0]0]UU@wL0w 0UU@U`@Uc0]0]0U1U8`U `U(`(`***@*@*@*@*@*U*U(U(U m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0 m[6lm[6l@0 |?~|0x0 ``. . *L*L`;@f ; **`*p`*qC.A@.@*Lj\0jP0*T0 T0 UUU U U U U U*U*T*T*P [>mX [>mX [>mX `xxx ` [6mX [6mX ` [6mX [6mX `xw|cxp`  ~|  @U@UUC UC ]] U UUUU ] ]((***@*@*@*@*@*U*U(U(U m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0 m[6lm[6l@0 |{~q|@?xp@?@ >  @*@ @*A *aF *aF.@.@*L*L*@*@ *P .P.T T UUU U U U U U*U*T*T*P [>mX [>mX [>mX `xxx ` [6mX [6mX ` [6mX [6mX `x|xpc`~?|03z0 "@@@@UU]]U U U((***@*@*@*@*@*U*U(U(U m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0 m[6lm[6l@0 |~|xqpA??~} ` ``@`@*@ *@ .@.@*P*P*T T UUU U U U U U*U*T*T*P [>mX [>mX [>mX `xxx ` [6mX [6mX ` [6mX [6mX `x|xp`OO~|zgCBUU U U((***@*@*@*@*@*U*U(U(m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0 m[6lm[6l@0 |~|xpg'~?} 3 a@a *@*P*P*T T UUU U U U U U*U*T*Ty                                                                `                                                `                                                                                                &                                                `                                                <                                                    >x>x>x>x >` [>mX [>mX [>mX >` [>mX [>mX [>mX `xxx ` [6mX [6mX ` [6mX [6mX `x|xp`?~|z>_?|_?|_?|_?|_0 m_6lm_6lm_6l_0 m_6lm_6lm_6l@0 |||@0 m[6lm[6l@0 m[6lm[6l@0 |~|xp?~}?@A|ADADAD|AdA$A$A$A$A$A$A$|d"D|"D|dA$A$A$A$A$|d"D|D D0D`E@QGqF1LX p` @Kn< [6mX `6mX6XАժАՂՂłŀАժАՂՂłŀ [6mX `6mX6XАժЪՂРՂРТТАժЪՂРՂРТТm[6l@0 [6l[l@ տըЪРРТТ@ տըЪРРТТm[6l@0 [6l[l@ տըłłłĂ@ տըłłłĂZ12000:Z_:6150P ":.^xZ12000:Z9^22:1B^200S^Z13000:Zh^:">AND MORE ";y^Z13000:Z^X1190:"MORE ";:X^X10242039^(X)1606620^(X)197ĹX,32^X^1:1:X1184:"GALE ";:X^255 _ of INSTANT (ESC) commandsis included with GALE"]d:"Lower case available for PRINT and REMARKS if you can print lower case"^n1:1::"IF YOU HAVE AN APPLE //E MOVE THE CURSOR ";::" FOUR ";::" DIFFERENT WAYS WITH ARROW KEYS! is ";Q$;"full";Q$;"...GALE may allow you to squeeze in a few extra letters!"\F:"The use of programs which use the ";Q$;"&";Q$;" command is still possible with GALE"\P:"Escape functions may be defined by you."0]Z:"An ";Q$;"extra";Q$;" set!!!!!!!!!!!!!"([ ===== BONUS ===== .[7[175S[ "Super Neat extras..."[[:["You can enter EDIT at any time by pressing CTL-G ==="[([2"Listing can be ended at any time by pressing return key"O\<:"If a line $4527 (17703)","ARRAY: $4551 (17745)","STRING: $92C8 (37576)","HIMEM: $9600 (38400)","FREE: $4D76 (19830)"ZH,S,O,J,E,I,N,A,H,P,E,T,S[ "?SYNTAX ERROR - PROBLEMS - TROUBLES - WORDS SPELED WRONG AND OTHER USUAL PROGRAMMING PROBLEMS!! 002 ACCOUNT FILE.AP"," T 003 ACCOUNT FILE.A/R",*A 038 PAYROLL," T 025 EMPLOYEE.DATA",*B 043 GALEY,,,,,,10 HOME,20 FOR X = 1 TO 100,"30 PRINT X : NEXT X"Y 40 FOR Z = 1 TO 3,50 PRINT CHR$ (7),60 NEXT ZsZ "PROGRAM: $0801 (2049)","LOMEM: "1) EASY EDIT (Programmer's Friend)","2) STENO (Fast type)","3) SUPER JOCK (Power Utilities)","4) AUTOMATIC DEMO","5) BONUS Features","6) End demonstration"aYDISK VOLUME 100,,*A 147 ACCOUNTS PAYABLE,*A 120 ACCOUNTS RECEIVABLE,*A 122 GENERAL LEDGER," T0 WV:3W`FLAG1:2330:5090:6260:FLAG0:6390SWj ======= EDITING ======= YWtW~X321:X:11:"editing":310:Z125:Z:XWX2141:X:11:868:310:Z125:Z:XW:3:1:"Let's try editing with GALE..."::W5940:360X";Q$;"GALE";Q$;" DO? ":Z1500:Z::3:19:"DO"::V6EVX16UV2:B$(X):\V$XmV.Z12000:ZV850:3:1:" WHAT WILL ";Q$;"GALE";Q$;" DO FOR ME? ":255VB18:5:"Select by number ";:AN$:AN(AN$)WLAN6260,5090,2330,6240,6390,62316368,0U15:13:868:8U ===== INTRO ===== DUB$(40)ZUI140:B$(I):IgUQ$(34)nU5U"PRESENTING Gale...":U"MAKES WRITING PROGRAMS A BREEZE!"::U5940UFLAG0:U:X24:X:1:29):X3V3:2:"WHAT DOES Z13000:Z:5960UT>2000,255:24:2:" Please press space bar to continue ";:AN$oTH(16384)27ė:6150}TR16368,0T\24:1:868:TfFLAG1āZ13000:Z:6010Tp15:19:"Please press space bar":15:18:AN$Tz(16384)27ė:6150 U958:E$S14:17:"CTL-B"-S9:16:"2"7S5940RS20:2:"] BLOAD GALE"qS(4);"BLOAD GALE.D,A$400"SZ12000:ZS5940SX16:X:868:XS 1:1:L$:5:1:L$:3:18:"AND MORE!"S5940S FLAG1ıS*:6150T4FLAG1RETURN"(RXVTAB 7: HTAB 1: CALL - 9583RbX18FRlR(26(1))1Rv50:X15:3:10X;" ";"IF A$ = ";R;" THEN B$ = ";Q$;(R64);Q$;":";:255:R$RXR5940R BLOAD-ESC/CTL-B R:1:1:L$:5:1:L$:R3:18:"BLOAD "S9:1:Q HOME-ESC/Q 'Q3:19:"HOME"5Q9:1:E$SQ9:16:"42":14:17:"Q"]Q5940vQ:Z11000:Z:5940Q RETURN-ESC R Q:1:1:L$:5:1:L$:Q3:18:"RETURN"Q&9:1:E$Q014:17:"R"Q:9:16:"43"QD5940RNR$"Pr14:17:"S" P|9:16:"44"*P5940:P20:1:"]"PPR1āP115:1489,32:Z1100:Z:1489,160:Z150:Z:P:5550PP115:1489,255:Z1100:Z:1489,160:Z150:Z:PP20:3:"SAVE DEMO TEST"P(4);"BLOAD SCREEN1,A$400"Q5940O9:1:958:E$#O14:17:"1"4O9:16:"21">O5940VO16151,0:16150,0aO23:1O"X722:B$(X):Z1100:Z:XO,Z1500:Z:16152,0O65940O@ SAVE-ESC/S OJOT:1:1:L$:5:1:L$:O^3:19:"SAVE"Oh9:1:E$1ĺ"600 REM"::"WRITTEN BY............":"....... PAUL RAYMER":"......... LAS VEGAS NV":5310N"600 REM"::"WRITTEN BY":" PAUL RAYMER":" LAS VEGAS NV"N255N5940N CATALOG-ESC/1 N3:17:"CATALOG"/L M<3:19:"LIST"(MF14:17:"L"9MP9:16:"37"CMZ5940PMd7:958YMn200Mx9:1:"100 REM SCREEN DEMONSTRATION OF":M"200 REM"M"300 REM ";Q$;"GALE";Q$:M"400 REM BY SANDY M. MOSSBERG"M"500 REM"aNPRXL L:1:L$:5:L$:LE$"This is number of more than FIFTY different "Q$"shorthand commands"Q$" to permityou to perform a specific programming step, by merely pressing"(13)(13)"ESCAPE and then "L(9:1:E$M2 LIST-ESCKR5A$"5000 = 20480")K22:4:A$3K59909KIKFLAG1ė:UK:6150K ================ ESCAPE FUNCTIONS ================ KKX321:X:11:"fast type commands":310:Z150:Z:XLX2141:X:11:868:310:Z150:Z:3:"HEX/DEC"JL1746,164%JV5990J`7:2:"This command provides decimal equivalent for a hex number...INSTANTLY"Jj5990JtRR1:R5R1J~R1A$"0D88 = 3464"JR2A$"FF = 255"JR3A$"D = 13"JR4A$"07BF = 1983"cimal number...instantly"+IR(5(1))1FIR1A$"3464 = $0D88"`IR2A$"255 = $00FF"yIR3A$"13 = $000D"IR4A$"1983 = $07BF"IR5A$"20480 = $5000"I22:4:A$I$5990I. ========== $ HEX/DEC ========== I8 JB4:"Hz2:"80 POKE P,32":3108H2:"90 NEXT P":310]H22:6:"APPEND COMPLETED!":300gH5940H ========== # DEC/HEX ========== HH4:3:"DEC/HEX"H1746,163H5990I7:2:"This command provides hex equivalent for a deD"G41746,174:1747,43#G>5990GH7:2:"This command attaches a ";Q$;"hidden";Q$;" program to the end of the program now in memory -- appending it"GR5990G\X16:10X:2:B$(X22):XGf5940Hp17:2:"70 FOR P = 1024 TO 2039line edited, as it was before it was changed";F5990\FX16:10X:2:B$(X22):XFZ11000:Z:12:2::"20 FOR X = 1 TO 50 ":F5940F20:1:B$(24)F 5940F ========== .+ APPEND ========== F G*4:3:"APPEND COMMAN(93):"20 30":310:DE(91);"Z";(93):"40 60":310:255:5940jE ========= .X X-RAY ========= pEE4:3:"X-RAY COMMAND"E1746,174:1747,24E59901F7:2:"This command permits you to look into (X-RAY) memory to examine last 1746,174:1747,22D:5990oDD7:2:"This command produces an alphabetical list of all program variables"yDN5990DXDbX16:3X:2:B$(X22):XDl2:"70 A$ = ";Q$;"BYE!";Q$Dv::150D(91)"A$";(93):"70":310:E(91);"X";emory previously put there with HIDE command"8C5990oC200:X16:11X:2:B$(X22):Z1300:Z:X:255C22:7:"PROGRAM UNHIDDEN!"C5940C ================= .V VARIABLE XREF ================= CC&4:3:"VARIABLE COMMAND"D0P$"POKE":IB50:7:19:P$:12:6:P$:14:14:P$:16:18:P$::255SB5940|B ========== .U UNHIDE ========== BB4:3:"UNHIDE COMMAND"B1746,174:1747,21B5990.C7:2:"This command will UNHIDE (recover) a program in m POKE 1746,164":A2$"3464 PRINT "Q$"POKER GAME AT MIKE'S"Q$:A3$"4100 A$ = "Q$"SLOW POKES USE BASIC"Q$yAJX13AT182X:1:A1$:X14210A^202X:1:868:A2$:X24210Ah222X:1:868:A3$:310ArZ12000:ZA|XA5940 B:1747,19@5990Y@X161175:1748,X:22:8:"<- ASCII #";X128:310:Z1475:Z:X@7:2:958:"Let's use '/'":1746,174:1747,19:1748,175@"Z12000:Z:7:2:868:"...and look for ";Q$;"POKE";Q$@,22:6:"POKE"@65990nA@A1$"100 "The Search command will locate any letter or number, word or group of characters in your program"w?5990?7:2:958:"Any character between ASCII 33-47 may be used as a ";Q$;"delimiter";Q$;" to help find the string..." @1746,174>X16:10X:3:B$(X22):10X:2:X595:310>Y13:1770,170:Z1300:Z:1770,160:1771,170:Z1300:Z:1771,160:Y>X>5940> ========== .S SEARCH ========== >>4:3:"SEARCH">1746,174:1747,19>5990m?7:2:=<5940)=FX16:10X:2:B$(X22):XU=P22:5:"N (START NUMBER)":Z12000:Z=Z22:6:"100,I (INCREMENT)":Z12000:Z=d22:11:"5,F (FIRST NUMBER)":Z12000:Z=n22:14:"10,L (LAST NUMBER)":Z12000:Z=x22:18:868:"60":59402:82X:1<SXĞ)<B$(X28)::X:@<1746,174:1747,16I<310O<~< ============ .R RENUMBER ============ < <4:3:"RENUMBER"<1746,174:1747,18<(5990<27:2:"Renumber all or any part of program in any increment"f array space":S3:3780:5940];7:2:958:"Beginning of string storage":S4:3780:5940;7:2:958:"Highest program location available":S5:3780:5940;7:2:958:"Free bytes available for programming":S6:3780:5940;3840 <X1616S:`7:2:"Simultaneously the following pointers are displayed upon command:"]:j3780g:t5940:~7:2:958:"Start of Program":S1:3780:5940:7:2:958:"Location just beyond end of program":S2:3780:5940;7:2:958:"Beginning oX;" (AUTO)":310:Z1275:Z:X?91746,174:1747,13:59909$X610:R(4(1))1:9X:1:"]";955XR;" (MANUAL)":270:270:Z1275:Z:X9.599098 ============ .P POINTERS ============ 9B9L4:3:"POINTERS":V1746,174:1747,) - $080A (2058)"8 5990D8 ========== .M MANUAL ========== J8 ^8 4:3:"MANUAL"u8 1746,174:1747,138 59908 7:2:"This command turns off the AUTO (.A) LINE NUMBER feature"8 1827,185990"9:958:X15:9X:"]";955IND"7p 1746,174:1747,12%7z 59907 7:2:"This command will locate the starting and ending location (address) of the line number specified"7 59907 16:1:"FOR EXAMPLE...":7 "100 TEXT : HOME : CLEAR"8 22:5:"100 = $0801 (2049a later time"6 59906 =6 X16:3X:2:B$(X22):XN6 Z12000:Zd6 1746,174:1747,8n6* 5990y64 :3006> 1746,174:1747,8:22:7:"PROGRAM NOW HIDDEN!"6H 5990:6R ============ .L LINEFIND ============6\ 7f 4:3:"LINE FRTIAL":*5 50:22:32:"MORE THAN":25545 5990W5 ======== .H HIDE ======== ]5 w5 4:3:"HIDE COMMAND"5 1746,174:1747,85 5990 6 7:2:"This command is used to HIDE (or HOLD) a program in memory until it will be required at CALL-151":"< D$=CHR$(4)"4 "> D$=CHR$(13)+CHR$(4)":"G GOTO":"H HTAB":"L LIST":"S SAVE":"T TEXT":"V VTAB"4 22:1:"This is only a PARTIAL list of more than50 commands readily available"5 Z12000:Z:22:16::"PA number"3& 5990;30 ========== .E ESCAPE ========== A3: d3D 4:3:"ESCAPE FUNCTION TABLE"z3N 1746,174:1747,53X 59903b 3l :" ESCAPE TABLE FUNCTIONS ":3v :4 "0 LIST":"1 CATALOGD1":"2 CATALOGD2":": SPACE"2 1746,174:1747,4&2 599072 18:1:958W2 1872,221:1873,174:1874,42 23:4:"ISK SECTORS FREE (D1) = 460"2 59903 7:2:"This command displays number of free sectors on most recently accessed drive and indicates that driveB$;Q$:1488,96:310:Z12000:Z:1488,25:912:9121 20:2:"888 PRINT CHR$(4) ";Q$;"DOGALOG";Q$:1488,96:310:Z12000:Z:1488,14:20:22:A$:310:912:912:59401 ============== .D DISK SPACE ============== 1 2 4:3:"DISK FREE 24:1:"CHECK CHANGES (Y/N)? ";:2021,9650 2021,25I0 5990:1893,2170 20:2:958:"100 PRINT ";Q$;"DOGCH THE TRAIN";Q$:1488,96:310:Z12000:Z:1488,14:20:2:"100 PRINT ";Q$;"CATCH THE TRAIN";Q$0 912:91251 20:2:"255 A$ = ";Q$;We shall use ";Q$;(T);Q$;" for this example."8/6 5990N/@ A$"CAT":B$"DOG"/J 7:2:958:"Let's Change ";Q$;A$;Q$;" to ";Q$;B$;Q$/T 9:5:"Delimiter is ";(91)(T)(93)/^ 5990/h 1746,174:1747,3:1748,T128/r 22:6:A$(T)B$(T)(0| . 5990}. 7:2:"The Change command will exchange any letter or number, word or group of characters for another". 5990." T(12(1))35./, 7:2:958:"Any character between ASCII 33-47 may be used as a ";Q$;"delimiter";Q$;".":2:"480)"!- 22:"L = $1B62 (7010)"- 7:2:"The start (A) and length (L) of most recently BLOADED binary program will be displayed, in hex and decimal"- 5990- ========== .C CHANGE ========== - - 4:3:"CHANGE"- 1746,174:1747,3mber in sequence"B,Z X110:9X:"]";955X:310:Z1200:Z:XL,d 5990s,n ========= .B BLOAD ========== y,x , 4:3:"BLOAD PARAMETERS", 1746,174:1747,2, 5990, 18:1:958, 1232,221:1233,174:1234,2- 20:"A = $5000 (20:868:"100,(INCREMENT)"#+ 5990+( 7:2:"The INCREMENT is optional. If not specified, it will be 10. Let's try ";Q$;"5";Q$+2 22:9:868:"5"+< 5990+F ,P 7:2:"Pressing the arrow keys will produce the next line nu 1746,174:1747,16* 22:5:"STARTING LINE NUMBER"* 7:2:"You can use this command to number program lines automatically..."* 5990* 7:2:"If a number is NOT specified, numbering will start with 10. Let's try ";Q$;"100";Q$+ 22:5:"Many of its features will be explained as we proceed with this demonstration") X1(A$):7:X:(A$,X,1):3:33:(.75X):270:Z1200:Z:X) 5940) =============== .A AUTO NUMBER =============== ) ) 4:3:"AUTO LINE NUMBER"*L EDITING"{(j 7:2:"To enter the EDIT mode, merely press the ";Q$;"/";Q$;" key -- and the line number to be edited"(t 5990(~ 22:2:"/100"( 5990( :250( A$"100 TEXT : HOME : CLEAR"R) 17:1:"THIS IS THE MASTER EDITING SCREEN": IMMEDIATE MODE P'$ :X321:X:11:"power utilities":310:Z125:Z:X'. X2141:X:11:868:310:Z150:Z:X'8 :3:1:"Let's use power utilities of GALE":'B 5990'L =========== NORMAL EDIT =========== 'V (` 4:3:"NORMA:1:958:"CTL-S COMMAND..."+&1797,193<&R(30(1))&X1831R17921:X,(X)128:270:Z1275:Z:X,(X)128:X:1792,113&3:10:"LINE BEG"&5940&3:10:"DONE ":19:1:958:1927,60&5940& FLAG1ė:& :6150'59402%p =========== CTL-S START =========== ;%z250g%A$"WE THE PEOPLE OF THE UNITED STATES"%7:1:"100 A$ = ";Q$;A$;Q$%1797,65:3:33:"42"%18:1:"CTL-S returns the cursor to the ";Q$;"START";Q$:"of the line"%5940&18ORE "L$X1(A$):7:11X:(A$,X,1):270:Z1275:Z:X26āZ1500:ZS$ X`$*1797,65q$4GOSUB 20000$>20:1:"You may continue to edit or press RETURN to exit this mode"$H5940$R3:10:"DONE "$\20:1:958:1920,60%f,193A#X17981802:X,(X)128:270:Z1275:Z:X,(X)128:Xu#X1(B$):7:11X:(B$,X,1):270:Z1275:Z#3:10:"TYPE [ ]";#3:16:(B$,X,1):X#5940#20:1:"You decide NOT to make that change..."#5940$ 3:10:"REST33:"36"j"18:1:"CTL-R ";Q$;"RESTORES";Q$;" line to original version, cursor to start of line"t"5940"18:1:958:"CTL-R COMMAND...""B$"R. HOOD & THE MERRY PERSONS.""20:1:"Characters are changed..."#3:10:"--->":1797(Insert) Command"!05940L!:7:1:868:"100 A$ = ";Q$;"DON'T";Q$:300c!D1313,179:1810,60m!N5940!X ============= CTL-R RESTORE ============= !b250!lA$"ROBIN HOOD AND HIS MERRY MEN"!v7:1:"100 A$ = ";Q$;A$;Q$ "1797,65:3:28:X:1808,32Q 20:1:958:"CTL-Q will delete everything AFTER the cursor"[ 5940 7:1:868:"100 A$ = ";Q$;"DON'T":300 3:33:"12" 3:10:"DONE " 20:1:958!&20:1:"Should you wish to add the (";Q$;"), use the CTL-I ctersAFTER cursor, to QUIT line editing"25940W18:1:958:"CTL-Q COMMAND..."20:1:"Use arrow keys to locate position for placement of cursor"3:10:"--->"5940 1797,193:X17981808:X,(X)128:270:Z1500:Z:X,(X)11,13:1313,184:300^5940Bh3:10:"DONE ":1824,60Lr5940u| ========== CTL-Q QUIT ========== ~2507:1:"100 A$ = ";Q$;"DON'T GIVE UP THE SHIP";Q$1797,65:3:33:"30"(18:1:"CTL-Q permits deleting of all chara1797,210:X17981801:X,(X)128:270:Z1475:Z:X,(X)128:X:1801,32T,5940620:1:"Pressing CTL-O plus any CTL letter -- let's use CTL-M (RETURN) -- inserts the control character"@3:10:"CTL ENTRY [ ]"J5940T1300,13:180serting of a CONTROL character (Using ";Q$;"overide command";Q$;")"Q5940v18:1:958:"CTL-O COMMAND..."20:1:"Use arrow keys to locate position for the insertion of control character"3:10:"---> ":1797,825940J"LL ":7:1:"100 ";A$;"\":300W20:1:"Your line is restored to original copy"a5940 ============= CTL-O OVERIDE ============= 2507:1:"100 REM THE PRESIDENT'S VETO"1797,82:3:33:"27"G18:1:"CTL-O allows inanged..."ZR(10(1))<d3:10:"---> ":1797,208{nX17981806R:X,(X)128:270:Z1275:Z:X,(X)128:Xx20:1:"You decide NOT to change THAT number..."3:10:"TYPE [ ] "1295,R176:1806R,48R5940"3:10:"KIA$"PI = 3.1415926535897932"37:1:"100 ";A$M(1797,80:3:33:"24"218:1:"CTL-K stops editing, ";Q$;"KILLS";Q$;" changes and returns line to original wording"<5940F18:1:958:"CTL-K COMMAND..." P20:1:"A character is ch868:X14:23:1:Q$;"Insert";Q$;" letter ";Q$;(J$,1,X);Q$:3:18:(J$,X,1);:7:17:(J$,1,X)A$:1823X,162:300:3:33:28X:Z12000:Z:X59403:10:"DONE ":1829,605940 ========== CTL-K KILL ==========  25018:1:958:"CTL-I COMMAND..."p20:1:"Arrow keys will locate position for the insertion of characters"23:1:"(Speed GREATLY reduced for demo only)"3:10:"INSERT [ ]":1797,2155940J$" HOT":A$" DOG IN THE BUN"23:1::10:"DONE "?` ============ CTL-I INSERT ============ Hj250}t7:1:"100 W$ = ";Q$;"PUT A DOG IN THE BUN";Q$~1797,87:3:33:"28"18:1:"CTL-I allows inserting of a letter or group of characters in a program line"5940"""3:10:"FIND [ ]":1797,208,5940`23:1:868:Q$;"Find";Q$;" letter ";Q$;"E";Q$n1295,197X17981820:X,(X)128:270:Z1275:Z$(X)69ĹX,(X)64:300:Z1900:Z:1080.X,(X)1288XB1823,60L5940V3 you to find any character EVERY time it appears in a program line"M5940r18:1:958:"CTL-F COMMAND..."20:1:"Select any character. Cursor will STOP on each occurrence of that character"23:1:"(Speed GREATLY reduced for demo only)17981816:X,(X)128:270:Z1275:Z:X,(X)128:XBz1818,60L5940f3:10:"DONE " ========== CTL-F FIND ========== 2507:1:"100 PRINT ";Q$;"SEEK THE TREASURE";Q$1797,80:3:33:"27"C18:1:"CTL-F permitsyou get to the end of the line INSTANTLY for faster editing"I>5940nH18:1:958:"CTL-E COMMAND..."R20:1:"Moves cursor to end of line instantly"\22:1:"(Speed GREATLY reduced for demo only)"f3:10:"LINE END ":1797,2085pXhe apple //e) DELETES the letter"+5940N3:10:"DONE ":1830,60X5940  ================= CTL-E END OF LINE ================= 250 7:1:"100 PRINT ";Q$;"TAKE THE BUS";Q$*1797,80:3:33:"22"?418:1:"CTL-E lets ":1797,208IX17981811:X,(X)128:270:Z1275:Z:X,(X)128:XV1812,77gZ11000:Z7:21:868:"ING CAN BE FUN! ";Q$3:10:"DELETE [M]"3:33:"29"!20:1:958:"Pressing CTL-D (or the ";Q$;"DELETE";Q$;" key on tb1797,80:3:33:"30"il18:1:"CTL-D allows you to delete a character regardless of its location"sv594018:1:958:"CTL-D COMMAND..."20:1:"Left and Right arrows control cursor"22:1:"Locate character" 3:10:"---> 2311:7:12X:(G$,X,1):270:Z1125:Z:XB3:10:"DONE"O&1830,60Y05940: ============= CTL-C COMPACT ============= D ============ CTL-D DELETE ============ N250X7:1:"100 PRINT ";Q$;"PROGRAMMMING CAN BE FUN! ";Q$--> ":1797,2084 G$"do you come here often?"h X123:7:12X:(G$,X,1):270:Z1125:Z:X 3:10:"UP CASE ":1040,204:5940:G$"DO YOU COME HERE OFTEN?" 3:10:"<--- " 20:1:"LEFT and right arrows select position"/X you CAN type lower case!"$ 5940I 18:1:958:"CTL-A COMMAND..." 20:1:"Note ";Q$;"L";Q$;" in ";::"LINE";::" indicates lower case" 3:10:"LOW CASE":1040,12:5940 20:1:"Left and RIGHT arrows select position " 3:10:"- ^ h250K r ================= CTL-A CASE TOGGLE ================= |7:1:"100 PRINT ";Q$;"DO YOU COME HERE OFTEN? ";Q$ 1797,80:3:33:"34" 18:1:"CTL-A permits you to shift between capitals and lower case letters" :"IfLD ============ / 320: ===== NOISE ===== @ NZ(4(1))^ NO1NZ:ZN(16336):NOd " ,NO111:ZN(16336):NO: 6ZN(16336)ZN(16336): @1:12:"GALE LINE EDITOR" J3:4:"MODE:";:26:"CHARS:" T5:1:L$:15:1:L$N OF "GALE" < BY SANDY M. MOSSBERGC WRITTEN BY  PAUL RAYMER  LAS VEGAS NV DIM A$(10) X140:L$L$"-":X Q$(34) TEST JUMP 6040 : ============ SCREEN BUIWd %%%%%%%%%%%%%%%%%% % % % COPYRIGHT 1983 % % % % MICROSPARC-INC.% % % %%%%%%%%%%%%%%%%%% n::x(1101)6PR1  SCREEN DEMONSTRATIO                                            0 XCp@༏  8p`@  NCA@Á@3ƃ@ <A𘌛p`  Cfx<<"'` Q" @(QD *L3 f3|t(D""'`O|p`'>Eyc~L3 `3 sH_zg` @*?Os|`3 ~?Os|`3 (U*U*U*U*@@p~?????sO_Eyc~sH_}ycg`I" @(ID *?L3|`3 t(D""'`E"`(Ed ~?F3|`3 t,D""'` M"p @/MT{*Os 3 v*D""g` Q"`(QL~Os f3|)D"} c`Qp~?????sO_> cGb D  @I"*?????t D 'a D `E"~33333tD c'D=yc @M"p*33333sGDդժ?????գE#Ū~_զժ?????գE#Ū~_դժգE#Ū~_զժs gxգE#Ū~_դժqLgxգE#Ū~_զժ3|cfգE#Ū~_դժs|cL25*U*U*U*U*?????~_~?????E#~_33333E#~_զժ33333գE#Ū~_դժ33333գE#Ū~_զժ33333գE#Ū~o_RL2Cp0?L c@cp0@?L c`c0x9`L cp31|0`L c033N0`L 0?30`LL0s0`LLc0cs0`Mlc0C30`Mlc0C30`Ops@?L `?s?L @ ????0????00??00??3333??0?????33??000000????33?33?000??33???3333?? f aL f Lf N~f Gp~8f Ax0f @0f aL8gsN8~cx?p~ap`gsN8~cx?p~ap`08 0`xp 8a|x cN c c Lc Lcx l8c| l0c <0c <8cN a|?cx `x?apPF F 0c @? F 8c `sF  c `aG  c ?paGLL c|70yGllc|20yFllc 20F<<8c 00F<<0c 00aF0c\00sF  8ax00? F `p00 F ` 00                     SK. THE DEMO REQUIRES A LOWER":"CASE CHIP OR AN APPLE //E." :" YOU CAN FIND GALE AT YOUR LOCAL":"APPLE DEALER, OR SEND $49.95 TO":"MICROSPARC, 10 LEWIS ST., LINCOLN,":"MA 01773." 4 :5:" ";::"GALE";::" IS AN EXCITING, POWERFUL NEW":"APPLESOFT LINE EDITOR FROM MICROSPARC,":"THE COMPANY THAT PUBLISHES NIBBLE."< ::" TO SEE A DEMONSTRATION OF GALE'S":"POWER, RUN THE PROGRAM CALLED ";::"GALE DEMO"::"ON THIS DI  0g9N 0@s `000𿀀Ǐ0 gN 0 @q 00???3???3?6??<?36*"""1"""*&"::"WARNING";::": ":"DO NOT ATTEMPT TO RUN ANY OF":"THE FOLLOWING SOURCE CODE FILES:"::"1. QUICKSORT II.S (BIG MAC ASSEMBLER)":270:5:"THANKS AGAIN FOR YOUR ORDER!!":I15::a12::"ALL PROGRAMS ON THIS DISK ARE":"COPYRE DISK VERSION INCLUDES":"GRAPHIC INTRODUCTION SCREENS."D:270:5:"THE SOURCE CODE OF THE MAJOR ASSEMBLY":"LANGUAGE PROGRAMS HAVE BEEN INCLUDED ON":"THIS DISK."Z:"THESE FILES CANNOT BE USED UNLESS YOU":"OWN THE ASSEMBLER INDICATED.":. SPEAK/SOUND":"3. OILER";:20:"4. SLOTFINDER":"5. SHAPES";:20:"6. SW-M":"7. R.R.D-T";:20:"8. SW-T"9::"NOTE:";::" THE 'STORM WARNING' PROGRAM ON ":"THIS DISK IS A SPECIAL VERSION THAT":"DIFFERS FROM THE LISTING PUBLISHED IN":"NIBBLE. THWARNING PROGRAM ONTO ":"ANOTHER DISK YOU SHOULD SAVE THE ":"FOLLOWING FILES TO A ";::"'MASTER'";::" DISK"::"(TO CREATE A ";::"'MASTER'";::" DISK," "USE THE MASTER PROGRAM":"FROM YOUR SYSTEM MASTER DISK)"k :"1. STORM WARNING";:20:"2p~xG?|c?p@?|c0|1࿀࿀Ǐ0CLL0@a @003?3?<83c>>#          !!!x; ȩX  L`HH8 @hhE  k@ /4DU]nsy~ :270 x:5:"TO SAVE THE QUICKSORT II PROGRAM ONTO":"ANOTHER DISK YOU SHOULD SAVE THE ":"FOLLOWING FILES:"::" 1. QUICKSORT II":" 2. QUICKSORT II.S":" 3. QUICKSORT II DEMO1":" 4. QUICKSORT II DEMO2": :270 :1:"TO SAVE THE STORM YOUR SYSTEM":"MASTER DISKETTE TO MAKE COPIES OF THE ":"FILES ON THIS DISKETTE ONTO ANOTHER.": d:270::5:"TO SAVE THE NIBBLE BROKER PROGRAM ONTO ":"ANOTHER DISK YOU SHOULD SAVE THE":"FOLLOWING FILES:"::" 1. NIBBLE.BROKER":" 2. SCRNDMP" n (GAME)"# <:K$"NEXT PAGE":270) F P5:"DOCUMENTATION FOR THE PROGRAMS IS PROVIDED IN THE MAGAZINE OR, IF THE INTRODUCTORY PERIOD HAS EXPIRED, IN THE SHEETS WHICH ACCOMPANIED THIS DISK."::"USE THE ";:` Z:"FID";::" PROGRAM FROM  :3"D:P$(D,2):D$(4)XCOPYRIGHT (C) 1984 MICROSPARC, INC. **3.6.84**(:"THANK YOU FOR YOUR ORDER FOR THE NIBBLE":"VOL 5 #3A DISKETTE!": 2"THE PROGRAMS ON THIS DISK ARE: * THE NIBBLE BROKER * QUICKSORT II * STORM WARNING        "$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)   : L f f`   t+L:, 2436'15,2334:15,2435:16,2436I&16,2337:18,1938:21,2238k016,2337:18,1938:21,2238q:D:7::"NIBBLE DISKETTE VOL 5 #3A":10::NI14000:I:::I14000:I::: 624016,1822:22,2422:15,2523:14,2624JI14:13,27I24:IdI14:13,27I24:I~I13:14,2628I:I14,2629:14,2330:25,2630:14,2331:26,31I14:15,2531I:I15,2232:15,223315,2334:15,2435:16,10:34,3911:34,3512:34,3513:34,3914:35,3815:38,3914m |Z130,140,150,160,170,180,190,200,210,220y Z:580  APPLE 12 20,2220:19,2021:18,1922 20,2220:19,2021:18,1922 116,1822:22,2422:15,2523:14,24,1516:7,817:14,1517:7,1518:8,1419< @((1)15)1 J3,421:3,1522:3,1523:7,824:14,1524:7,825:14,1525:7,1526:8,1427 T((1)15)1 ^3,429:3,1530:3,1531 h((1)15)1> r35,387:34,398:34,359:38,399:34,3934:16,2435:  :' Z1105 Z1İ400F ((1)15)1 7,81:7,152:7,153:7,84:7,85:14,155:7,156:8,157 ((1)15)1 "7,89:3,410:7,1510:3,411:7,1511 ,((1)15)1+ 63,413:3,1514:3,1515:7,816:15,2625:24,2726:25,2827:D 0:32,3317:30,3416:31,3515:k 0:28,2916:27,3015:28,3114: 0:25,2615:24,2714:25,2813: 13:15,2524:J13:16,2424J:J: 13:J14:17,2327J:J: 13:18,2232:18,2233:17,23---"i F8:"TO SEE DEMONSTRATIONS OF MICROSPARC":"PRODUCTS, RUN THE PROGRAM CALLED":::"MSI DEMOS": P:"PRESS ANY KEY TO CONTINUE =>";:A$::(4)"RUN HELLO2" 0:32,3323:30,3424:31,3525: 0:28,2924:27,3025:28,3126: 0:2 230c:I112:4::958:I:X(16336):X(16336):"IMPORTANT NOTE":J110:::(I1700::3:12:"IMPORTANT NOTE"2I112:4::958:X(16336):X(16336):I:"--------- ----":J110::: <I1700::4:12:"--------- -dj n(4)"BLOAD SPEAK/SOUND":(4)"BLOAD SLOTFINDER":36864: Load speech routine/Test for Mockingboard x(6)0Ĺ768,96:846,96:140: Disable Speech & Sound routines 874: Initialize sound generator 20480:::(4)"BLOAD R.R.D-T":X110[  **********************; * STORM WARNING *X * BY ROBERT DEVINE *u * COPYRIGHT (C) 1983 * * BY MICROSPARC, INC * * LINCOLN, MA. 01773 * ********************** d::(4)"BLOAD OILER":734: Set DOS fast loa!!!!!!" " " " " "xyOLw~w{>~osy|`?~ssy~``@}p_ @?~g}=~OOwgssyyx?~yi?{N?fL`gws^~k{o>p|g{o}_ @g?~sO}O}ynsg<~`?{__w_}oo ~{yo?~?v{o}_~ЪՂ|c~`?X xԪ xsccoHr`}w~o}ww_}w_<>|u[yMd`?MwOxg~{o??}ww_{o}s_0  ||?N???>|yyysO$Lx`cOys}O_|{sO|ysgps?~_]w|w;>g{<~@**Q"UU(*U*A*U*0U*UP U*U x?~?~oy}~ooww{y|| cF1 cF1 cF1 cF1 p?~|{K?{n\?7f@*UJ'U*e\*i+E*U>PZUjSjU*U U* ~O~g_}_}=f{O3@*QJ'U(eOS*y+E**UrSjUU U~? g8~p?x | `g*U*M*U*UrW U*UJW U*U~y|<}u_K}$r@*9*'Uzo*9+E*?UrWJSjU*Q U` p?~?~}^?>??>~|}|yILK<Oswy__~{{o?~|ysI `ayLqHɵrims`aiȱȄ詷 ,詷 `iHhLꢩLҦ& `G|Yw}s9s9`?us_Az~cp@}x_ `0~A p |s||O{y~oossy<>~?^w=o{^w=o{^w=o{^w=o{^@|ysS?z?nNs`wO~k{o>xOyO{o}_0 cF1 cF1 cF1 cF1 !||Oy_y=wyo9O`?}o?v_~w_W~{{o?x{o}G_~ f00x @O9Fg'd|`|w?>~~g}ww_}Ow_|sy9xu_k<y`?3=w_^ro~;{o??}ww_{o}q_@`|~y>??~~<~|8\ ~?~gg{__~yyg?~|y?y?~w}{=_{O@*C*T"U!**U*E*U*( U*UP U*U `8~a x xgy}_{{~og{{<sg9Nsg9Nsg9Nsg9Ns ysgr?/nOIy@*U*~'U*9*I+E*U>TjSZSjU*U U*`Xw=o{^w=o{^w=o{^w=o{^1x?|y_?{_{=w}gg@*Tb&*q_*q+E*@*UySjUU U~ f008  sLg7t~@*Uj~'U*5~*U*E*U*UrW U*UjW U*Upgs{zq_aI|@*'*=&UUvO*9+E*?UrWJSjU*U U@@y|s=>_?_??>>?~p4Y x?~|oos__~}}w_?~|~?~s~3g}{O9Ng?`?Gp_c?~gxH}|_ `p  pOsys{~owyy>OO@qg9Nsg9Nsg9Nsg9Ns~cwo'v?'ggd|?`|w?~;~[{o>}gs_{o}_@qg9Nsg9Nsg9Nsg9Ns`ys?r_{=s|sNs`?~wt{'~s{o?@y{o}g_~ g8p  _O`!X@p|yOOw_~}}sO_?~xĩ ĩĩX`HHĩ?ĩhhE@L9  u LS`ĩ`ĩ`ĩ`ĩ`  ||g|7~o}{]ogs@*G*f'U#s*U*E*U*(U*UT U*U ` 0  @ws?w{~gw}}?gg`Xw=o{^w=o{^w=o{^w=o{^1xOgO/v?7w76~@*U*y'U*U~{*Y+E*U>UrWJSjU*U U*sg9Nsg9Nsg9Nsg9Ns @sg?~v{{~9fy@*Tr%*y?/*q+E*@jUxSjU"U U~|c~aLx xLG@@*UJ'U*e}*U*I*U*UrW U*UrW U*U@NgqkO5O@*O*}!U#Un*y(E*?UrWJSjU*V U|gsg;~>__o__OOOCPA``ys_w?_?~||{gOOpyOyg~o}{Lg?Nsy`?w?ow_{_w ~o|T}~_ЪՂ `  Ԫ ?~gw?f{~ww}|Ows0 cF1 cF1 cF1 cF1 !pO~v?s`qw|s~[{o}ww_{o}_^w=o{^w=o{^w=o{^w=o{^gO~d?{^9~3|`?{q_}?.~s{o?>`s{o}w_|a~ALp pN``gwqy~l}ww_}ww_~oqko'H`?`}spN?~~o?|wwx|?v_xOgOs~<__oOOgggpsg?g?_?~~ywggO`s{o|o}{nw?oy|@*S O'U)Eg *(E**5P TT UЪՂ|aX Ԫ ~|Ogns~ws|~Ogsy?@**Q"U(*U @*U* U*UP U*U `??_~t?S{YI@*@*e' U|w*Y+E*UrWJSjU*U U cF1 cF1 cF1 cF1 |O|m?{^=L?@*Ur#U*yN*a+E*U>P*TvSjU*U U* @'6N ppx{@pp|9NckoZd?@*U*}'U*U^?*U*E*U*UrW U*U*W U*U `O_w|=__gogwss ~gO?~?o??>~}sssg?         B""WHICH OF THE FOLLOWING PROGRAMS WOULD YOU LIKE TO RUN? ":K,A106 5,A,MSI DEMOS,A,NIBBLE.BROKER,A,QUICKSORT II DEMO1,A,QUICKSORT II DEMO2,A,STORM WARNING@I1D:P$(I,1):P$(I,2):A:I;". ";P$(I,2):;J:"PRESS THE NUMBER TO RUN THEz"#    ҮҮĭԠ" ׭Ԡ"͠Ǡ"Š ! Ԡɠ Š ˯Ġ Ҡ Ҡ ӠI ׭͠ ŮĠαŮҠ\РԠɮӠ1 Ԡɠϱ Ԡɠϲ  **/*********************Ϡ ɠӠ ϲ ŠϠY*********************/***  ͠ˠ*** *Ԡé*!*٠ìî*"*ά*<~@~@>~_X><O~_X><O~_X><Oy>@~~~~~`p08x?|0 x|?|? }?>y>@~~~~~aXa@sYc@3Yc@8c@xFFFFFFx|?|? }?>y>@~~~~~aX`sY`3Y`8`x @ @ @ x|?|? }?>y>@~~~~~aXsX3X8xx|?|? }?>y>@~~~~~`p08xeɽ4 & & & m @ @ @ ~!?x~3?x~?x~?x   Z--X Z?-X Z-X   Z -X Z-X Z-X  xxx ` [6mX [6mX ` [6mX [6mX `x|xp`?~|z>5+?_|_||| mVlmVlml mlmlml |||@0 m[6lm[6l@0 m[6lm[6l@0 |~|xp?~}?@ @ @ @\ U U U U*U*U*U*U*@*@*@*@*P*P*P*P*T*T*T*TU*UU*UU*UU*UU*UU*U U*U U*U< ?HQ'e?{}/t 57:%+2** *(% "/" ?*: "3+"**(*+*83 ?+"*)67,*83"*@*@*@*T*T*T*T*U*U*U*U*U U U U *U(*U(*U(*U(*U**U**U**U**U**U**U**U*x @*"OJwz_h+* %,-2 . *(*(57?+* %,*(. & )-2 %:2 *?\ U U U U U*U*U*U*PU*P*P*U*U*U*U(*U(*U(*U*@*U*@ U*@ U*@ U*PU*PU*PU*PU*TU*TU*U?| @Q'e{}/t9     :- 9*( "-8:5:.*?--&+  ?*@*@*@*U*U*U*U(U( U( U( U *U *U *U *U*U*U*U*T*T*T*T*PU*PU*PU*T |Q'd}/t?\ \ \ \ \ \ IGHT (C) 1984 BY NIBBLE ":"MICROSPARC, INC. LINCOLN, MA ":::"UNAUTHORIZED COPYING IS ILLEGAL"{:K$"MENU":270:280::(4);"CATALOG":SD24576:SL24658:SR24721::"PRESS THE RETURN KEY FOR "K$" =>";:A$::::1:5:D$(4)SW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_((((((((((((((((((((((((((((((((J&J & a` &` &`΅&@ޅ'`'`Ωϩ@ީ`@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKO 0`  &ɀ & Lj&)j& & &LG`  &*&ɀ  &)&L̒& &  L` *P?~?_~={}n?{|?|ln?<|~?p|xp0`@0`@0@*PA$A$A*@*@*@*@*@*@*@*@*@*@*@*@*A@*A@*@*@*@*@*@*F*F*@*@*@.@.A@*A@*P*P*T \ ]UU U W W  U  U*U.T.T*PA$A$A$|d"x<"0>``:@:C*C*@*@*`*`:A@:q@*p*@*@*A@.A@.@*pf*pf*C*C:@:L*L +P +P:T:V WUU U U U U U*U*T*T*PA$A$A$|d"D|"D|dA$0`0`*X*X*@0.@0.@`*pf*p*A@*A@.@.L*L +@ +@:@:F*F+P+P*TTUUU U U U U U*U*T*T*PA$A$A$|d"D|"D|dA$A$A$A$A$|dDp | 0 0f0f@@.@.L*L ;@ ;@*@*L*L+@+@*@:@:P*P*T T UUU U U U U U*U*T*TU(A$A$A$|d"D|"D|dA$A$A$A$A$|d"D|D D0`@ @ 1@0 @+@*@j@j@*@*@*@*P*P*T T UUU U U U U U*U*T*TU(A$A$A            !@!@     &&    !@!@((* . .@ *@*P*P+P+P*P*@*@*]*U(A$A$A$|d"x<"0>``5 5##  ``5!@51@0  !@!@ 0f0f## ,, h h5*5..@j@jP*P *P *P*P*@*@*U*U(A$A$A$|d"D|"D|dA$0`0`88 0 0 `0f0!@!@ ,, ` `5 5&&hh* * *@*@*P*P*P*P*P*@*@*U*U(A$A$A$|d"D|"D|dA$A$A$A$A$|dDp | 0 0f0f@@ ,, 5` 5` ,,`` 5 5((***@*@*P*P*P*P*P*@*@*U*A$A$A$|d"D|"D|dA$A$A$A$A$|d"D|D D0`@ @ 1@0 @` u u    ((***@*@*P*P*P*P*P*@*@*U*<~@~@>~_X><O TO RETURN TO MENU -------";:1:4 ):((37)2):958:10308"SELLING PRICE PER SHARE: $":CV(37):22::" ENTER '0.00' IF UNSOLD "::CV:27:"";S1$:958:S1$""ĢCV:1:1080BS1$"R"ıL(S1$,1)"0"1120V(S1$)0ĺ(13):((37)2):958:1080`EE1:ST$(E(SC1$)0ĺ(13):((37)2):958:990c"ENTER # OF SHARES SOLD: ";SN1$:SN1$""Ģ(37):1:1030sSN1$"R"ı(SN1$)(BN1$)Č65338:(37):25::"TOO MANY";::J11000:J:25:" ";:1:1030$(SN1$,1)"0"1080.(SN1$)0ĺ(13)890F((DS1$,2))((DB1$,2))((DS1$,4,2))((DB1$,4,2))890"ENTER SELLING COMMISSION: $":CV(37):22::" ENTER '0.00' IF UNSOLD "::CV:28:"";SC1$:958:SC1$""ĢCV:1:990SC1$"R"ı(SC1$,1)"0"1030%0.00":SN1$"0":S1$"0.00":::"NO FURTHER ENTRIES REQUIRED":K1500::1120]DS1$"R"ıq(DS1$)8890(DS1$,3,1)"/"(DS1$,6,1)"/"890((DS1$,2))((DB1$,2))890((DS1$,2))((DB1$,2))990((DS1$,2))((DB1$,2)"R"ı\(DB1$)8840Cf(DB1$,3,1)"/"(DB1$,6,1)"/"890Lp840z"DATE SOLD (MM/DD/YY): ":CV(37):22::" ENTER '00/00/00' IF UNSOLD "::CV:23:"";DS1$:958:DS1$""ĢCV:1:890DS1$DB1$990MDS1$"00/00/00"SC1$"N1$)0ĺ(13):((37)2):958:770c "ENTER BUYING COMMISSION: $";BC1$:BC1$""Ģ(37):1:800s*BC1$"R"ı4(BC1$,1)"0"840>(BC1$)0ĺ(13):((37)2):958:800H"DATE PURCHASED (MM/DD/YY): ";DB1$:DB1$""Ģ(37):1:840RDB1$ICATE STOCK"3"HIT ANY KEY TO CONTINUE ";:G$:m"ENTER COST PER SHARE: $";B1$:B1$""Ģ(37):1:740|B1$"R"ı(B1$)0ĺ(13):((37)2):958:740"ENTER # OF SHARES BOUGHT: ";BN1$:BN1$""Ģ(37):1:770 BN1$"R"ı#(Bb * * 1l *************** 7v]:X$"ADD STOCK RECORD"::4890:g1230"ENTER STOCK NAME ";ST1$ST1$""Ģ(37):1:660ST1$"R"ıI1E(ST1$,(ST1$))(ST$(I),(ST1$))720I:740 :"DUPL6:"9) NORMAL PROGRAM EXIT"X 1:15:"ENTER YOUR SELECTION ";:G$:16368,0:M1(G$)p M11M19Ģ15:530 &M1640,1320,1610,1690,3080,3360,5310,4130,2610 0:500 : D *************** N * * X * ADD STOCK *4890::: 6:"1) ADD A STOCK":6:"2) LIST A STOCK":6:"3) SELECT STOCK/IRA DATA FILE":6:"4) EDIT/DELETE STOCK INFORMATION":6:"5) LIST ALL STOCKS" 6:"6) SEARCH STOCKS BY DATE/NAME":6:"7) STATISTICS":6:"8) EXIT WITHOUT SAVING CHANGES":I):DS$(I):SC$(I):SN$(I):S$(I)8 AA1ĺD$"CLOSE":> R D$;"CLOSE";FL$X ^ u  ***************  * *  * MAIN MENU *  * *  ***************  ::X$"* THE NIBBLE BROKER *"::$(100): DATE BOUGHT. "DS$(100): DATE SOLDN ,SC$(100): SELL COMMISSIONZ 6C%(20)d @5090 J::8::X$"LOADING DATAFILE:":4890:X$FL$::4890: TD$;"OPEN";FL$ ^D$;"READ";FL$ hE rI1E! |ST$(I):B$(I):BN$(I):BC$(I):DB$(;"BLOAD SCRNDMP": A$300 Q 6,1:7,0:8,23:9,1: SET SCREEN DUMP PARAMETERSl ST$(100): STOCK NAME B$(100): BUY PRICE BN$(100): NUMBER BOUGHT BC$(100): BUY COMMISSION SN$(100): NUMBER SOLD S$(100): SELL PRICE DBZZ **********************:d* THE NIBBLE BROKER *Vn* BY MARK R. CRAVEN *rx* COPYRIGHT (C) 1984 ** BY MICROSPARC, INC ** LINCOLN, MA. 01773 ***********************D$(4)70106530(8)23220 D$                              ";:Y$:16368,0:Y$"Y"ė:2450'&` L&j "NEW # OF SHARES SOLD: ";SN$(I)e&t (SN$(I))1ė:2380&~ (SN$(I))(BN$(I))Č65338:9:29::"TOO MANY"::J11000:J:9:29:" "::2380& 9:29:SN$(I);" ":' (SN$(I))(BN$(I))İ7110:$% "OLD SELL COMMISS. : ";SC$(I)^% "CHANGE THE SELL COMMISSION? ";:Y$:Y$"Y"ė:2380d%$ %. "NEW SELL COMMISSION: ";SC$(I)%8 (SC$(I))1ė:2260%B 13:29:SC$(I);" ":%L "OLD # SHARES SOLD : ";SN$(I)!&V "CHANGE # SHARES SOLD? 2310:21103$((DS$(I),2))((DB$(I),2))2320b$((DS$(I),2))((DB$(I),2))İ2310:2110$((DS$(I),2))((DB$(I),2))((DS$(I),4,2))((DB$(I),4,2))İ2310:2110$2320% :65338:" INCORRECT DATES--ENTER AGAIN PLEASE":J11000:J:"NEW DATE SOLD : ";DS$(I)6#(DS$(I))1ė:2170p#(DS$(I))8(DS$(I),3,1)"/"(DS$(I),6,1)"/"2240|#:2170#7:27:DS$(I):#DS$(I)"00/00/00"ĺ:"NO FURTHER ENTRIES REQUIRED":K11000:K:2520 $((DS$(I),2))((DB$(I),2))">("H"NEW DATE PURCHASE: ";DB$(I)B"R(DB$(I))8ė:2120|"\(DB$(I))8(DB$(I),3,1)"/"(DB$(I),6,1)"/"2160"f:2100"p7:17:DB$(I):"z"OLD DATE SOLD : ";DS$(I)""CHANGE OLD DATE SOLD? ";:Y$:Y$"Y"ė:2250"#C$(I)A!"CHANGE THE COMMISSION TO BUY? ";:Y$:Y$"Y"ė:2090G!m! "NEW COMMISSION TO BUY: ";BC$(I)!(BC$(I))1ė:2030! 13:19:BC$(I);" ":!*"OLD DATE PURCHASED: ";DB$(I)!4"CHANGE THE DATE PURCHASED? ";:Y$:Y$"Y"ė:2170))11940% 11:19:B$(I);" ":L "OLD # OF SHARES BOUGHT: ";BN$(I) "CHANGE THE # OF SHARES? ";:Y$:Y$"Y"ė:2030  "NEW # OF SHARES BOUGHT: ";BN$(I) (BN$(I))12000 9:19:BN$(I);" ":!"OLD COMMISSION TO BUY: ";B$(I):ST$(I)""Ģ(37)1:1880%b qlX$" ":1:4890:X$ST$(I)::1:4890::v"OLD COST PER SHARE: ";B$(I)"CHANGE THE COST PER SHARE? ";:Y$:Y$"Y"ė:1970"NEW COST PER SHARE: ";B$(I) (B$(I EDIT MODE ":23:4890:Z024:" 'Y' TO CHANGE - 'RETURN' FOR NO CHANGE":X$" ":1:4890:X$ST$(I)::1:4890::D17N" CHANGE THE STOCK NAME? ";:Y$:Y$"Y"ė:1920X:"NEW STOCK NAME: ";ST0 :500::X$"EDIT STOCK INFORMATION"::4890::{24:" ----'RETURN' TO EXIT TO MAIN MENU ----";:35,23:1:5XY1"STOCK NAME TO CHANGE: ";ST1$ST1$""ı4600:HIT0ıIC%(1)139034,16:35,22:&&X$"  =6570::X$"EDIT/DELETE STOCK INFORMATION"::4890:6:10:"1) EDIT A STOCK":10:"2) DELETE STOCK FROM THE FILE"::10:"3) RETURN TO MAIN MENU":20:6:"ENTER YOUR CHOICE ";:X$:16368,0(X$)1(X$)31700(X$)1740,6830,173 * */" *CHANGE D-FILE*H, * *b6 *************** h@qJ320xT ^ *************** h * *r * EDIT STOCK *| * *  *************** BC$(I)));27)"$";29)((SN$(I))(S$(I))(SC$(I)))l:"DO YOU WANT TO SEE THE STOCK'S YIELD?";:F$::F$"N"Ė1:(37)1:868:4210:"HIT ANY KEY TO CONTINUE--'P' TO PRINT";:G$G$"P"İ4990 *************** 2)"# OF SHARES";19)BN$(I);29)SN$(I)W:2)"PRICE PER SHARE";19)B$(I);29)S$(I):2)"COMMISSION";19)BC$(I);29)SC$(I)AA039:"-";:AAXY1XY0:: FLAG FOR LIST IN EDIT MODE 42)"TOTALS";17);"$";19)((BN$(I))(B$(I))(:"ENTER STOCK NAME TO LIST ";ST1$3ZST1$""ıkd4600:HIT0ı: SEARCH FILE,IF NONE, BACK TO MENUn:X$ST$(I)::4890::x3:AA039:"-";:AA18)"BOUGHT";29)"SOLD":AA039:"-";:AA7:2)"DATE";17)DB$(I);27)DS$(I)': ***************, * * F * LIST STOCK * `  * * z *************** (6570::X$"LIST A STOCK DATA"::4890:234,2<23:35,22:1:" ------ TO RETURN TO MENU -------"F6$PT FOR THE YEAR 19";(BB$,2);" = $ ";CY36CY0:g6"HIT 'P' TO PRINT--ANY OTHER TO CONTINUE";:F$y6F$"P"İ49906 ::336065:958::"ENTER THE YEAR OF THE PURCHASE :19";AA$:"ENTER THE YEAR OF THE SALE :19";BB$7:"STOCK NAME ";5J140:"-";:J5I1ED5(DS$(I),2)(BB$,2)WW1:4210T5WW137905(ST$(I),15)19)(DB$(I),2)25)(DS$(I),2);528)(36)34(((CG))))(CG)39(((CT))))(CT)40)(37);5CYCYCG5WW0:I528)"-------"(6:" NE= $ ";CY48CY0:S4B:"HIT 'P' TO PRINT--ANY OTHER TO CONTINUE";:F$:16368,0e4LF$"P"İ4990s4V::3360~4`WW0:4j5:958::"ENTER THE YEAR YOU WISH TO LIST :19";BB$4t:"STOCK NAME ";"BOUGHT SOLD PROFIT YIELD"4~29)"(LOSS)",2)25)"--";31)"----"36)"----":3600W3 (ST$(I),15)19)(DB$(I),2)25)(DS$(I),2);3 28)(36)34(((CG))))(CG)39(((CT))))(CT)40)(37);3CYCYCG3WW0:I328)"-------"3$ST141104.:" NET FOR THE YEAR 19";(BB$,2);" :958::"ENTER THE YEAR YOU WISH TO LIST :19";BB$i2 :"STOCK NAME ";"BOUGHT SOLD PROFIT YIELD":{2 29)"(LOSS)"2 J140:"-";:J2 I1E2 (DB$(I),2)(BB$,2)WW1:42102 WW13600&3 (DS$(I),2)"00"ĺ(ST$(I),15)19)(DB$(I)"DO YOU WANT TO LIST STOCKS BY :"'14 C1> "1) YEAR OF PURCHASE"[1H "2) YEAR OF SALE"k1R "3) BOTH"~1\ "4) BY NAME"1f 1p "5) RETURN TO MENU"1z 7:341 F$:F$:M2(F$):M21M2533701 M23490,3690,3860,4040,36801 338032 60 #0 1510: PRINT OR CONTINUE?-0 ::30 K0 ***************c0 * *~0 *SEARCH BY YEARS* 0 * *0 *************** 0 0 6570::3:X$"SEARCH STOCKS BY YEAR/NAME"::4890:!1* 7:958:1:35)"--":3200J/v (ST$(K),22);26)"19";(DB$(K),2);34)"19";(DS$(K),2)U/ J15/ AAJ16ĺ:21:"TYPE 'P' TO PRINT LISTING":"ANY OTHER KEY TO CONTINUE ";:Y$:16368,0:Y$"P"ė/ Y$"P"Ģ(37)1:1:958:4990::Y$""/ J/ K/ L 7. 3)"*** STOCK NAMES ***";26)"YEAR";34)"YEAR"l.& " -------------------";25)"BOUGHT";34)"SOLD"v.0 34,3|.: .D L9901.N K1E.X ((DB$(K),2))LAAAA1:3180.b 3240/l (DS$(K),7,2)"00"ĺ(ST$(K),22);26)"19";(DB$(K),2); OTHER KEY TO END";:F$'- F$"R"500E- F$"P"İ4990::12:2970K- Q- j- *************** - * * - * LIST ALL * - * * - *************** - - 6570:AA0: INITIALIZE LISTING FLAG."NET PROFIT =$";28)"0":2950O,r PERCENT((SELCSTALLCST)ALLCST)100,| "NET PROFIT =$";29(((NET))));(NET), :::"PERCENT GAIN OR LOSS= ";(PER100)100;" %", ::- :"HIT 'R' TO RETURN TO MENU--'P' TO PRINT"::"ANY X$" THE BOTTOM LINE "::4890::::_+6 "TOTAL COMMISSIONS =$";29(((COM))));(COM)e+@ +J "TOTAL SELLING NET =$";29(((SELCST))));(SELCST)+T "TOTAL COSTS =$";29(((ALLCST))));(ALLCST)+^ 22:"-------"&,h ALLCST0,2)"00"2800>* ALLCSTALLCST((B$(I))(BN$(I)))(BC$(I))^* COMCOM(BC$(I))(SC$(I))* SELCSTSELCST((S$(I))(SN$(I)))(SC$(I))* NETSELCSTALLCST* * EDIT0: CLEAR EDIT FLAG* D$;"CLOSE";FL$* FL1ı* ::4*" AA0)+, )P D$(4) )Z :(37):868*)d 6:7F)n "WRITING UPDATED ";FL$Z)x D$;"OPEN ";FL$o) D$;"DELETE";FL$) D$;"OPEN";FL$) D$;"WRITE";FL$) E) I1E) ST$(I):B$(I):BN$(I):BC$(I):DB$(I):DS$(I):SC$(I):SN$(I):S$(I) * (DS$(I)******* $( * * ?( * EXIT--DISK *Z( * *v( *************** }(( (2 6570:EDIT1(M18M19)ė:9:18:"EXIT":: NO CHANGE ---NO WRITE !(< ED0ı: NO NEED TO WRITE UNCHANGED FILE)F :2380?' "CHANGE SELL PRICE?";:Y$:16368,0:Y$"Y"ė:2500E' g' "NEW SELLING PRICE : ";S$(I)' (S$(I))1ė:2450' ' 11:29:S$(I);" ":' EDIT1: FLAG FOR CHANGED DATA FILE' AA11000:AA:::' ( ******** ******************F#F6570FF: CLEAR GOSUB FROM MAIN MENUgF:X$"STATISTICS MENU":4890F5:"1) PER TRANSACTION INFORMATION"F"2) CURRENTLY ACTIVE STOCKS (NOT SOLD)"F"3) PROFIT/LOSS BY YEARFF"4) RETURN TO MAIN MENU"90:FL$"STOCKFILE":IEPM32E0FL1:2610:FL0:FL$"IRA.FILE":M30:mEZM32E0FL0:FL$"IRA.FILE":EdM33FL$""ġ:500En5090ExE ******************E *** ***E *** STATISTICS ***E *** ***FONE OPTION"8D 10:6:"1) INVESTMENT STOCKS PORTFOLIO"YD6:"2) IRA STOCK PORTFOLIO"DFL$""Ė6:"3) NO CHANGE--RETURN TO MENU "D(8:20D2M1$:M3(M1$):M31M335160D<M31E0FL1:2610:FL0:FL$"STOCKFILE":M30:EFM31E0FL(9)"80N"C(37)1:9585C768::(4);"PR#0": ";B$:B$""ıxAC2%1B$"C"K1:C%(1)C%(11):AB%(B$):B%1B%Kĺ(7);:4770AK1:C%(1)C%(B%):IC%(B%):AA *************** A * * B *PR)KK1:C%(K)II/@*K10İ4710:B$""HIT0:5@4n@>K0HIT0:ST1$;" < NOT FOUND >":AA11000:AA:@HK1ĺ:HITC%(1):IC%(1):@R4710:B$""HIT0:@\4680@f@pC2%0:K11K10:C2%1@z@J1K@J;") ";ST$(C%(J))@YIELD AVAILABLE "?:?7? ***************P? * * n? * SEARCH FOR NAME * ? * *? *************** ??:3:958:A$ST1$?K0:L(A$):B$" "? A$""ı?II1E@ A$(ST$(II),LCK NOT SOLD--NO YIELD AVAILABLE":.>bWW1ı^>l:"ANNUAL PERCENT GAIN OR LOSS = ";CT;" %">v:"ON A PROFIT (OR LOSS) OF $ ";((S2B2)100)100>:"STOCK HELD ";YZ;" YEARS ";MUUNS;" MONTHS ";DZ;" DAYS">>::?"STOCK NOT SOLD--NO DZ&=S2(S$(I))(SN$(I))(SC$(I))J=B2(B$(I))(BN$(I))(BC$(I))g=DS$(I)DB$(I)WW14410=&DS$(I)DB$(I)4470=0CENT100365(S2B2)(B2TITLE)=:CG((S2B2)100)100=DCT((CENT100)100)=NWW1ı">X(DS$(I),2)"00"ĺ:"STO((DS$(I),2))(<DABOT((DB$(I),4,2))C<DYSLD((DS$(I),4,2))V<DZDYSLDDABOT<DZ0DYSLD30DYSLD:MOSOLDMOSOLD1:4300<MUUNSMOSOLDMTHBOT<MUUNS0MOSOLDMOSOLD12:YRSELLYRSELL1:4320<YZYRSELLYEBOT=TITLE365YZ30MUUNS * *(;^ ***************.;hK;rCT0:CG0:CE0:B20:S20h;|DS$(I)DB$(I)WW14240;DS$(I)DB$(I)ĺ:"BOUGHT/SOLD SAME DAY--% INDETERMINATE";YRSELL((DS$(I),2));YEBOT((DB$(I),2));MTHBOT((DB$(I),2)) <MOSOLD22:1:"PRESS ANY KEY TO CONTINUE ";:X$:16368,0::3370V:WW1:4210:ST1:3560{::" NET FOR '";ST1$;"'= $ ";CY:3640:""QUIT? (Y/N)";G$:G$"Y"500:,:6 ***************:@ * *:J * YIELDS * ;T 896::"ENTER STOCK NAME TO LIST ";ST1$:ST1$""40509:"STOCK NAME ";"BOUGHT SOLD PROFIT YIELD":28)"(LOSS)":J140:"-";:J9I1E:(ST1$,(ST1$))(ST$(I),(ST1$))41009I:4110<:4:958:7:X$"NO SUCH STOCK IN FILE":6:4890:CT)40)(37);8nCYCYCG&8xWW0:I9828)"-------"n8:" NET FOR THE YEAR 19";(BB$,2);" = $ ";CYy8CY0:88"HIT 'P' TO PRINT--ANY OTHER TO CONTINUE";:F$8F$"P"İ49908::33608::X$"SEARCH BY STOCK NAME"::4890:"BOUGHT SOLD PROFIT YIELD"-7(29)"(LOSS)"B72J140:"-";:JM7<I1E7F((DB$(I),2)(AA$,2)(DS$(I),2)(BB$,2))WW1:42107PWW139607Z(ST$(I),15)19)(DB$(I),2)25)(DS$(I),2); 8d28)(36)34(((CG))))(CG)39(((CT))))(**************#V * *8V * CALCULATE *MV * MOST RECENT*bV * YEAR AND *wV * SCALE FAC. *V" * *V, **************V6V@EY0:LO0:HI0VJI0EVT((DS$(I),2))EYEY((DS$(I),2))V^I:EY0ı.38:65338nU::5:X$"THERE IS NO DATA IN THE FILE":4890::X$"YOU MUST ADD A STOCK TO CREATE DATA":4890:U:X$"OR READ IN A DATA FILE WITH OPTION 3":4890U:20:1:X$"PRESS ANY KEY TO CONTINUE ":4890:20:32:X$:16368,0:500UV ,0:Y$:Y$"P"Ĺ9,0:(37):958:5010:9,1@TnY$"": CLEAR Y$FTxWT ERROR TRAPjT(222)57450T::(7):"ERROR #";(222);" IN LINE ";(218)(219)256T::"PRESS ANY KEY TO RETURN TO THE MENU.":G$:16368,0:500TE0ı U653SI19#S PL(I)(SUM(I1)TIC)=SJ12: WIDTH OF BARmS(PL(I)1)1Ġ11: PINK FOR 'IN THE RED'S(V,VH(PL(I))4I1JS22: DARK BLUES<JSFISPH2:V38:H,V1VSZ23+Td"PRESS ANY KEY TO CONTINUE, 'P' TO PRINT.";:16368HR0,VH37RH,V1V#R25RTICV202QRH1,TIC:H36,TIC:TICoR6790: CHANGEABLE VALUEwR21RI19:H34I);"'";EY9I;:I:(13);(10);:R22:14);"EACH TIC MARK = $";TIC2R34,23:RVH38: VERTICAL HEIGHT LEASE+Q500: BACK TO MAIN MENU, PLEASE5Q(0) FOR GRAPHIC DISPLAY--

TO PRINT ":"ANY OTHER KEY TO CONTINUE";:Y$PY$"G"İ6160PY$"P"İ4990Q::5330: BACK TO STATS MENU, P(DS$(K),2))Iİ6040OzKnO"19";I;".........$";21((((SUM)))));(SUM100)100;38((SALES)));SALES{OI:6110OA3(B$(K))(BN$(K))(BC$(K))OSALESSALES(SN$(K))OA4(S$(K))(SN$(K))(SC$(K))PSUMSUMA4A3:SUM(II)SUM: PROFIT/LOSS"::4890:::7N*I09:SUM(I)0:I:6720fN4"YEAR PROFIT/LOSS # SHARES"zN>33)"TRADED":NHI140:(95);:I:NRIEY8EY:IIII1: COUNTER FOR GRAPHICS ARRAY N\A00:A30:A40:SUM0:SALES0NfK1EOp( CONTINUE";:F$!MF$"P"İ4990KM:5330: BACK TO STATS MENU, PLEASEdM(0): P/L BY YEARSjMMII1: INITIALIZE GRAPHICS ARRAY COUNTER --> II=1='1977"M **************M ** OPTION 3 **M  **************MN X$"YEARLY 90:/LX$"STOCKS NOT YET SOLD"::4890:::aL:"STOCK NAME DATE BOUGHT"uLK1:34,6:8:1LI1E:(DS$(I),2)"00"ĺK;(93);" ";ST$(I);34)(DB$(I),2);"/";(DB$(I),2):KK1LIL:M"HIT 'P' TO PRINT--ANY OTHER TOVG COST / SHAREEKD"AVERAGE COST PER SHARE = $ ";(100(A1BN))100yKN::"PRESS ANY KEY TO CONTINUE, 'P' TO PRINT";KXY$:Y$"P"İ4990Kb5330: BACK TO STATS MENU, PLEASE Kl(0): CURRENT STOCKS UNSOLDLv:X$"STATISTICS OPTION 2"::48$ ";((A4A3)A0)2J TOTAL SHARES PURCHASED ***=JI1ESJBNBN(BN$(I)):tJ"TOTAL SHARES BOUGHT = ";BNJI1E:SNSN(SN$(I)):I:"TOTAL SHARES SOLD = ";SNJ&"ACTIVE SHARES =";BNSNJ0"AVERAGE SHARES/TRANSACTION IS ";(BNE)K: AE)-I AVERAGE SALE AND PROFITS (LOSSES)OII1E:(DS$(I),2)"00"5600vIA3A3(B$(I))(BN$(I))(BC$(I))IA0A01IA4A4(S$(I))(SN$(I))(SC$(I))II:A00ĺ"AVERAGE PROFIT (LOSS) IS $ *****":5620J"AVERAGE PROFIT (LOSS) IS T PER TRANSACTIONHTI1EEH^A1A1((B$(I))(BN$(I)))(BC$(I))VHhI:E15710Hr"AVERAGE COST PER TRANSACTION IS $ ";(A1E)H| AVERAGE COMMISSIONSHI1EHA2A2(BC$(I))(SC$(I))HII"AVERAGE COST OF COMMISSIONS IS $ ";(A2G1:23:"CHOOSE A NUMBER: ";:Y$:(Y$)1(Y$)45390\GY$:(Y$)5410,5740,5850,6150G"::X$"PER TRANSACTION DATA"::4890::G,A00:A10:A20:A30:A40:A50:BN0G6"THERE HAVE BEEN ";(91);E;(93);" TRANSACTIONS."G@HJ AVERAGE COS37;?337;?3PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/OPEN ";F$(I)#bD$;"WRITE ";F$(I)*b05bJ19>b" "EbJ\bD$;"CLOSE ";F$(I)cbIsbFL$"":320b "STOCKFILE","IRA.FILE" *a. ********************ka8:"THE FILES 'STOCKFILE' AND 'IRA.FILE' WERE NOT FOUND ON THIS DISK."aB:"DO YOU WISH TO CREATE THESE FILES? (Y/N)":K$aLK$"N"FL$"":320aVK$"Y"7530a`7480aj:I12:F$(I):IatI12 b~D$;"";S$(E)Y`(S$(E))1Č65338:"YOU ";::"MUST";::" ENTER A VALUE":K11000:K:7400`K1(S$(E)):((S$(E),K,1))46((S$(E),K,1))57Č65338:" ENTER A PROPER NUMBER":7400`K`:2520` ********************a$ * INITIALIZE FILES_BN$(E)SN$(I)$_DS$(E)DS$(I)6_SC$(E)SC$(I)X_BN$(I)((BN$(I))(SN$(E)))n_DS$(I)"00/00/00"_SC$(I)"0.00"_SN$(I)"0":BC$(I)((BC$(I))(BC$(E)))_S$(I)"0.00"_:4:"PURCHASE PRICE WAS ";B$(I)`6:"NEW SELLING PRICE AME--PLEASE RE-ENTER":J11000:71602^ K:72308^*>^4`^>20:"NEW NAME IS ";::NS$:q^HK11000:K^REE1:ED1^\ST$(E)NS$^fB$(E)B$(I)^pSN$(E)SN$(I)^zBC$(E)((100((((SN$(E))(BN$(I)))(BC$(I)))))100)_DB$(E)DB$(I)Y APPENDING A '*' TO":"THE OLD NAME.":v]"YOU MAY LATER RETURN TO EDIT THE NAME":"TO ANOTHER NAME IF YOU DESIRE"]15:4:"NEW NAME (OR ";:958:NS$]NS$""NS$ST$(I)"*"::] K1E%^(NS$,(NS$))(ST$(K),(NS$))ĺ"DUPLICATE N (Y/N) ";:Y$:16368,0:Y$"Y"ĺ(13):(37)3:958:@\:\6:"THIS REQUIRES THAT ANOTHER STOCK RECORD":"BE OPENED. PLEASE ENTER NEW STOCK NAME"(]"OR PRESS AND 'THE NIBBLE":"BROKER' WILL MAKE A NEW ONE FROM THE":"EXISTING ONE BRC, INC. **"::I140:"*";:L[22:"HIT ANY KEY TO CONTINUE ";:X$::`[ *************t[ * *[ * SELL LESS *[ *THAN BOUGHT*[ * *[ *************8\:"SELL LESS THAN AMOUNT BOUGHT?"::"IS THIS CORRECT?0IZ:EE1/ZDEDIT1: FLAG FOR DISK WRITEUZN::6:13::"DELETING RECORD":gZXI11000::oZb:Zl3:I140:"*";:[v6:X$"THE NIBBLE BROKER"::4890:::::X$"BY":4890::X$"MARK R. CRAVEN":4890::"** COPYRIGHT 1984 BY MICROSPAST$(C%(K))7Y12:1:"CORRECT NAME? (Y/N) ";:" ";X$LYX$"Y"ė:6840^YC%(J)E6970mYIC%(K)EY&ST$(I)ST$(I1):B$(I)B$(I1):BN$(I)BN$(I1):BC$(I)BC$(I1):DB$(I)DB$(I1):DS$(I)DS$(I1):SC$(I)SC$(I1):SN$(I)SN$(I1):S$(I)S$(I1)Z22-X6:"NAME OF STOCK TO DELETE--> ";ST1$BXST1$""ĉ:1690gX4600: SEARCH FOR NAME OF STOCKXHIT0Ģ4:958:7:X$"NO SUCH STOCK IN FILE":6:4890:22:1:"PRESS ANY KEY TO CONTINUE ";:X$:16368,0::1690XHIT1C%(J)I Y:10:1:WhI0E:((DB$(I),2))EYEY((DB$(I),2))5WrI;W|mWDFHILO:SC(DF38):I120:(SC50)I6820sWWTIC50:WTIC(I1)50:W::X$"DELETE A STOCK FROM THE FILE"::4890:XX$"** FOR EDIT/DELETE MENU **":23:4890:35,ɌЩCu L " L U / ( R U 撩 ( R UL[(V,8$i`"vvL#vvJJ\]  / ( R ݩs ~ /LWlLOLF"vvL#vvJJ  /W~KvvvKJbL6a /`Mi iة q"M~'" /`Cu OL F /  ( R ɑЩCu FL O LCu L  /  ( R qW~"K '#L6 L68Kv `vLdJbLXavvJ /~K /L /M`v# #`M` (MMM~eMK /L OL F /  ( R rΩqCu FL< O sL`$i$i` %LdCu L  /  ( R sΩrCu L  tL'#`,8,8`MKv`i i@&Az%B,8,8 ,$ /L "vy%B$i$i /  ( Q@&Ay%B$i$i ,$ /L /@Au'`Cu`Q@&A /@A`W~ /` %LycCu&Aw%B  /L%vv%ްvL]vv`vL#vvJ x%B&! /  ('# ^Q@&Ax%B&! ' /L "vz%B,8,8 /  ( ^QL LR `W~vvJba / ީU' /識 q"`%vv%ްvLvv`vL#vvJ w%B /  ( Q@"'eM /MZ '2K KL] i Kv LR v L!Kv `v `F~eM /LR !~eM /LR ( =L ,+{ 寧  հ ϰ ɦ"Ȱ L '"v pL ͪ ͥLy MJ /Mи-''#Kv v M :`N$LR eM /Ly L '"v L ={{L $L 寧ɖ ' 寧JLL {+L ,,$${, |" "  ] W Q"ȐvF ' L %v %ްv L v L#vvJ # # R  寧JL ( +{L ,,$${$|" "  ] W Q"ȐvF ' pL %v %ްv 0L v L#vvJ 0# # R L$+{ 寧  װ Ѱ ˦"Ȱ % "$&*,-ܐ&'Ґ !Ȑɾɴɪ ɠL 寧 2@*`"ɀɠ "v51vW~vvJ|{ / (',$+L {{ R L,'L 寧ɖ 'z  @A~ / u' / ,+${LMJ#cvvvv vv , L # "'JL@LL@ 寧 p N    ^`(yyL ( L X) @**jj() (ԩ LL0`Ԡ٠נҠ̠ΠԍРŬ؍ԫàū؍àӱұР ĠԠƠԠƠō ӠؠҠנˠנԍ٠ǍҠͲԲ٠Πԩ̫ŠΠ̍˭РԠԍ ҍҠ̠ԠԠҍŠıȠƠԠĠƠԍĠРӠԠԍ ̠ؠנ؍̠ǠԠӯԯҠǍ٠ǠŠȧ ԍؠ̠ԠҍҠͲԲŠΠȍؠ̍٠̫ŠΠ̍ÍàǍӠٍٍ٠Ҡ̠ŠҠϠԠ̮ؠ̠ƠȠƠӠΠōԫĠΠԍٍٍŭؠŠƠӠΠūԍ؍؍Š֍٠Ԡɠ̠ȠƠӍٍؠҠƍ̠̠ȠƠӍ٠ؠĠƠԍƬؠϠȠԍ؍Ѡر٠٠ԠƠӍ͠ŠƠӍà͍РҠӠӠұĠԠƠԍ̠սժ؍ٍٍ֠ŭؠŠϠĠƠϠōؠ ˍ̠ˍؠ˫ԠϠƍ٠ؠٍҫؠԠРҠōٍ؍Ѡ؍Ҡ͠ŠԯĠٍؠūԠԠƠӠϠرԠРӠΠҠϨΩӨԩѠΠȠƠύРΠŠؠҍΠҠנŠҍҠŠŠٍؠ˫ ҠҠҠǍˠ ĠŠŬ؍˭ϠΠҠϧӠΠҠӧ ΍Π΍͠Ԡ͍ӠԠǠҍ΍ͫӫԍЫԠҍԍЫӍ ЍӍΠùؠҍѠűٍ̠ űĠԍ̠Ÿĵ׍ ӍˠˍƠԠҍРƵҍ РԠٍŠƷĹŠ٠ō͠ƷĠŠԯĠٍ͠ŠˠΠנ±ԠԠҍ̠·ԠԠҍҠ¸ˠΠԠӍԠŶƸŠϠŠŠԍ ̠ ԠөŠàˠРҠ̠Ġƍ ӍбĠ̠ϠΠЍ֠űŠϠŠԍРĶŠ΍ͲԠŲ¶Šٍб¶ŠРȠ̍͠β̍Πà͠ȍԠĠΠȯ̍ҠķҍҠŠҠǍ̠ ̠ǍԠàҍ̠ĠΠȍǠƠǯҍРԠӠԍĠŠҠϠĠƠٍҠ̍ԱŠ̍Բ͍̍͠ӠƠԠǠō ΠǍ ̍ԠĠ̍ ̍ؠ͠ȍαӯԯҠǍҠˠҠӍ̠Ԡҍ͠Ơӭ̠ҠϠΠȠԍƠҠϠȠԍʠ РҠ̍ɠĠРҠƍԠƠˠҠōàҠϠ / ɍ Ӎ é îǠð ӯӫϠӠҠӍˠϪˠźˍ ӍǠ                    ÍӠؠ̠ ԍ̬ؠĠĠƠ­΍ؠ ƍ̠̠̍ؠ̠̬ؠʽ̍ʬؠɽƍ؍̠̍ÍàƠŠҠύؠ ­΍̫àƫҍԠǍʱƍР̠ҠϠԼҍƫϠĠƠ­Πà̫à̠ȠƠύؠˠ٠ŠӠȠƠԍؠԍӠŠˠҍIJƬؠĠˍˬ؍؍ŠIJӠؠӠ ҍıˬ؍ƬؠŠˠΠԠҍؠ ϩŠıؠ̠̬؍ŬؠˠР̠Ġƍ؍̠̍ҍӠ̱؍̱ؠҠԠҠҠӍàǠՠؠРŠנӠ̱ҠƠύҠ׍РѠưŠԠĠƠύҠҠˠӍ ԍӠ٠ ŠΠŠٍѠΠҠƠύ؍ؠԠŠˠҍ׍ؠؽ Ӭ ٽȍǠ؍ƬؠӠΠԠƠԠŠŠ̱ŠנҍàƬؠԠӍٍŠǍҠ̠ԠԠҍҠĠĠŠΠҠƠԍҠŠŠǠōưҠנŠҍҠԠŠԠӠΠōàˬؠԠԠ΍ҠԠԠȠĠŠΠō٠ ٍÍ ĠŠàŬ؍˭à˭؍Ӡ̱ҠƠŠԠҍѠӠԠԠƠĠƠԍҠ͠ˠΠРРԠӠŠӠԠ̠ƠԍРǠԠӠĠŠ̠ȠƠԍ٠ս Ƭ٠ϠԠҍٍŠ Šō̠РѠŠٍ̠Šؠ̠ԠԍˬؠŠԠΠōà̍Ӎ ԩˠ˫ؠŠҠĠΠōؠРŠЍҠנԠˬؠŠԠΠˍ˫؍ҠıˠΠҠčѠˠȠƠԍΠРΠҬҠĠč ōԠҠԠԠŠΠحҍҠ͠ˠΠؠ Ӎ؍؍Ѡ̱נƠϠ٠ӍؠЍàŠˬŠύРˬؠŠȠӠӍŠͱР˫؍Š͠ Ӎ̱Р̠נҍŠӠбѠРϠĠҠƠύàРԠǍҠӠŠ΍̠Ҡ̠ˠΠ٠̫̍ҠͲԱ٠ȠΠȍؠ˫͠ ՍͱҠӠŠ΍ҠӠˠנؠ̠ĠŠҍ̫ϠԠԍؠƠƾ̠àƫàұҠƠύҠ̠ԠԠҍѠĠԠȠ̠ƠĠƠԍҠ͠ˠРРԠ̠ԠԠҍàРԠҍРϠĠϧ Š̠ϠΠҠƠԍàРŠҠ΍ҠӠˠנؠƠĠŠҍƫϠԠԍҠנŠҍȠԠȧ̠ÍàĠĠϠԠٍ؍àӱӍ ԩıҠ͠ˠΠРРԠӠѠбϠĠҠƠύҠӠŠ΍٠ΠԠӠԠȠƠύ©٠ŠӍРԫٍŠٍ؍ŠӲԠҍàԠӍР̠٠àӱȠƠԍԠϠǍӠ٬ ̍ԍàΠȠƠؼԍ ՍؠԍΠؠΠŠΠȍؠŠؠȍ ӱҠԠҠϠ؍٠Ƭؠ ٍƫؠ ؍؍ӲŠѠӳҍҠԍҠԲٍҠϠǍӳӍղ٠ձԲٍ­٠ŠǠύ٠ ŠձԲ٠Šίؠȍؠ ؍РԲҍʫؠԲɫԍàƫٍԲؠǠӠ̠ӠȠƠԍРбŠӍӠѠղȠƠӍ٠ÍԲٍàԫŠӍ؍ٍԲٍàԍˠנбŬؠŠ̠Ġƍ̬؍؍̠бР̠Ġ٠Ԡ΍Ԡʍ̠̽ʍʫ̫РʱԠԠ­΍ ōв٠ԍÍʬ؍àƬ٠ԲʫԍŠɠȠʍàӍРРƠʾɍӠؠɍؠ̠ɾ̠ɫà̫ӠԠȠƠύ̍Ƞ̠Πˍ̫ȠɠΠˍɫؠ ׍ŠԠȠƠˍؠ̫àα؍αؠββΠȍӠȠŠȠԍ؍؍ѠàϠԠō٠α٠ĠĠƠ٠ĠàīàӠŠƠԍȠҠĵɽɫҠõʽʭҠʠԠ٠ԫӠ٠ǍΠα٠ŠנӍ؍βٍαٍβٍٍ̠΍͍ѠȠРĠƠŠ΍ؠÍà̍àα؍αؠααΠȍàƠ̮Š̍ؠؠʬؠαʍαؠβɍ؍̠؍ؠβƠͽɠԠͽʍРԠƠͽʠԠͽɍŠԲ٠ԫŠԲؠԍ٠βŠԍԲؠԍŠӍؠβؠԫŠӍԍŠύàҠ̠Ԡ̠Ǎ؍̠ձР٠ӍѱؠԍҠƫؠԠҠҠčɠµؠαǠԠʩͩàҠʍàӠȠƠʼɍѠȠΧԠŠƠɽʍαѠȠΧԠ̠̍ҲΧԠРƠɩҨʩͩؠ˭ؠ̠Ҡ̠ǍձҠРԠŠԍҲؠҠвŠʩȠͩŠѱȠƠʩͩԍРР̠ӠŠѠàȠ̠̍ұΧԠРƠɩҨʩͩɠӍѠԍРР̠ӠŠѠʠȠƠύàҠ̠Ԡ̠Ǎ؍̠ՠР٠ӍµҠõԠҠϠԠԍʠōՠҠРԠŠԍұؠҠвŠɩȠͩαҠҠɩͩѠѠȠƠɩͩؠԍҠƫؠԠҠҠčɠʠȠƠɩͩҠĵԠҠϠԠԍٍҍàҍÍà̠ԠƠԠԠ΍àҍٍҠؠ̍ŠԠȠƠϠӍĠҍԠԠŠҠ͠Ϡō٠ԫƠ­̠Πԍؠ˭ؠ̠Ҡ̠0CL 0@a `00pϏ03*">2࿀0CL 0@a `00p𿀀Ϗ0~xG? 0@?||133333 3 333633*"""""*x `P 02`(0#p00ɀ80@0 /`z ɀ0 R͗(͘荗鍘z L LϠ  LyL `ȅ `^_ . / ( R ݩt .~ /LWlLLR / T /L=) S ) ) ) 0`H0}0n 0_00P@0A ʍõÍʠʽʭàǍʍӠٍàʫ٠Ӎ ʍʠ٠ʫ٠ɫŠɠȠʍŠӲҠ٠ƠʼɍʠԠϠǠƠʽɍРɠԠ٠ƠʾɍӲӍ ͍Ҡ͠ˠΠĠРǠѠӱȠƠύٍ٠ ōРħԠڮƮƠҠčӱӍ ǫ ɍĵÍǠɽɫàɍɍàӴàɫӴӍ ǫ ƠЍɠ٠ǍɠԱ٠ŠҠҠǍԬ٠ϠΠԍٍ̠ɍӍ ΍ӠҠЍР֍ ٍͲԲͲԱ٠РͲԍ ǩ Ĩǩ ǍӍ ԍРؠԍÍԍàƬؠĠԠϠҠϠŠ̮ԱŠΠԱԫàƫ؍ԱؠǠӠ̠ɠȠƠԍРб̠Ԡ΍ԠҠԠנǍ٠ؠנΠҠǠϠӠԠŠΠƠύà Ǎ٠ԲٍàԍѠӳ ҍؠҍҠƫؠԠҠҠč🀀pCyG|p@a|a000?ߏ?? ;??3 0>?0? "*"""#"""*"" 0CN 0@a|a00p?ߏ33  3? 003?3 "" ""࿀J010 $I010 .I;9);+ 8J010A B9J3);A%(I,J);M LJ::IS VAA%(I,J);l LJ::Ir VA, INC. **":8 (1015)140ĺ(4);"BRUN QUICKSORT II"\ A(1):SEED RANDOM GENERATORz B5:N13:N25:CONSTANTS A%(10,10) (I010:J010 2A%(I,J)5(1) <: "ROW/COL"; J010 9J3);J;  : I010:T ***********************= * QUICKSORT II DEMO1 *[ * BY CORNELIS BONGERS *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * LINCOLN, MA. 01773 * *********************** ::3:"** COPYRIGHT 1984 BY MICROSPARC   ÏpCN|p@a `000 3?3 00 w>www>w IN,49,ROTTERDAM,ZUID-HOLLAND,68KN DIDI D.,ASSENWEG,53,ASSEN,DRENTE,12.85~X GEILENKERK H.,BOMENLAAN,3,ETTEN,BRABANT,12.78b LAMMERTS VAN DER BUER W.,CAMUSPLEIN,5,ROTTERDAM,ZUID-HOLLAND,156.30 OTTERDAM,ZUID-HOLLAND,156.30RJ.,BURGEMEESTER HONDERKOOPWEG,2,HATTEM,GELDERLAND,20q& VERSCHOR A.,HERESTRAAAT,13,DORDRECHT,ZUID-HOLLAND,30.950 DOMEL J.,BEUKENMEER,28,GOUDERAK,ZUID-HOLLAND,40: VEERVECHT A.,ACHTERSTRAAT,118,POELDIJK,ZUID-HOLLAND,150.80D SCHOLTEN J.,CAMUSPLE,-15,-15,8.2 **F ** DATA NAME/STREET/STREET #/CITY/STATE/DEBTN ** SCHOLTEN W.,CAMUSPLEIN,49,ROTTERDAM,ZUID-HOLLAND,1003.23 NELS H.,MERELLAAN,20,CAPELLE,ZUID-HOLLAND,200 MEUL J.,DWARSGRACHT,5,DORDRECHT,ZUID-HOLLAND,504 GRAAF J1030 T **- ** PRINT RECORDS5 **D I1NPERSS RECRD$(I)Z I` $h ** ** PRINT MESSAGE AND RING BELL ** I1100::I13:(7);:: :MESS$::  ** ** FORMAT DATA **  -20,-20,5(I)B$ I2 MESS$"FORMATTED RECORDS":2000< 1010 RECRD$,1NPERS,(64,15,A,49,15,A,24,20,A,44,5,A,79,8,D,4,20,A) "MESS$"SORTED RECORDS":2000 ,1010 6RECRD$,1NPERS,(1,3,A) @MESS$"RECORDS RESTORED TO ORIGINAL ORDER":2000FRMT0B$B$(REC$BLNK$,(FRMT)):230I DEC(.510(FRMT(FRMT)))e REC(REC$):RIN(REC) FRMT(FRMT)C$(RIN):220 RFRRECRIN:C$(RFR):RFRC$"." C$(RIN)(C$"00",DEC1) B$B$(BLNK$C$,(FRMT)) J RECRD$ING WITH BLANKS e d:"** COPYRIGHT 1984 BY MICROSPARC, INC. **"::MESS$"FORMATTING RECORDS":2000t nI1NPERS xB$"":B$B$(BLNK$(I),3):INSERT RECORD NUMBER J1NVARPP:FRMTFRMT(J) REC$:GET DATA FORMAT DATA AND ADD TO B$( AD/SORT RECORDS **3 (NPERS11:# OF PERSONSX 2NVARSPP6:# OF VARS PER PERSON <RECRD$(20):RECORDS ARE STORED IN THIS ARRAY FFRMT(NVARPP):CONTAINS FORMAT VARIABLES PI1NVARSPP:FRMT(I): ZBLNK$" ":BLNK$BLNK$BLNK$:STR ***********************= * QUICKSORT II DEMO2 *[ * BY CORNELIS BONGERS *y * COPYRIGHT (C) 1984 * * BY MICROSPARC, INC. * * LINCOLN, MA. 01773 * *********************** (4)"BRUN QUICKSORT II" ** MAIN:RE      5,3:37679:6,3:7,20:37416:37606:6,3:7,20:37416:420: LIGHTNING STRIKE"251,119:252,37:253,66:254,5:255,1:37679: LEFT FUNNEL,252,67:253,117:254,4:255,0:X991132:251,X:37679:6,3:7,20:37416:X: DESTROY LEFT HOUSE6251,11X::37680,0XJ12:251,117:252,0:253,39:254,9:255,0:37679: DRAW CLOUDz 8,112:9,129:846: Thunder251,97:252,87:253,126:254,4:255,0:37679:251,98:254,9:255,5:37679: DRAW 2 HOUSESM251,91:252,40:253,86:254,7:25^ 252,90:253,104:254,13:255,12:251,131:L(A$):X1L:37680,96:X2(X2)Ĺ37680,128 (25)0T99Ĺ26,201:27,133:28,96:29,133:768:T99: Sunny and warm.... 37679:SLX:22:(A$,X,40);:S40ĺ(A$,1,39S)Z15:ZZ(16336):.............................THIS IS MELVIN BONNER WITH TODAY'S WEATHER FORECAST -- SUNNY AND WARM -- JUST BEAUTIFUL -- NOT A CLOUD TO BE SEEN ANYWHERE -- A GREAT DAY FOR OUTDOOR FUN" 26,230:27,120:28,184:29,120:768: This is Melvin Bonner...... C 251,125:252,145:253,159:254,15:255,10:37679: DRAW TRUCK 251,97:252,87:253,126:254,4:255,0:37679:251,98:254,9:255,5:37679: DRAW 2 HOUSES 251,130:252,0:253,39:254,9:255,4:37679:: Draw sun X(49235):A$"...........0::X(49234): Disk version< (4)"BLOAD SHAPES":37799l (4)"BLOAD SW-T":X(49234): Disk version 26,165:27,134:28,96:29,134:1022,25:1023,3:768 252,50:253,140:255,8:254,32:Y17:X17:37526:X:254,(254)1:255,(255)1:Y࿀Ï0CLL0@a `900࿀LL΍y`yaL8`垪`jEQ` ```ŝתĬў i`ĥ8`j] `}^}_L^` gLdL AD`8e```ZejjeȦ %  ]0 ؏0 f 䏥  f]0׆ k[Wŭ Į ﱦ uu >? ؏ L3HHHH  (a ǏHhHL ̏L ފL` L (Сߨ > >}ʽУ ϏФ J , ޤvjʆ `hesotp`L "ޝQ < ^ ȱȱ$0 ȢI ŏ8  )LL ŏe