' +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*`DLND(PLACE)LIM1490IPLACEPLACE19:PLACE279PLACEPLACE280cLND(PLACE)LIM1490:::12:9:"SUCCESSFUL LANDING"::P1600:P:16304,0:GOODGOOD1:SUC1:M$"SOFT LANDING":1500)::12:15:"C R A S H !!!":P1600:P:1KST(21LEVEL)M$"SHIP NOT MOVING":1490RPK(16384):16368,0:K1271380\Z1270odK202XSXS1nK203XSXS1xK201YSYS1K205YSYS11270PLACEC7X3:PLACE279PLACEPLACE28020480:1X,Y:3:1XOLD,YOL1X,Y:"":STST1:13508XOLDX:XXXS:YOLDY:YYYS X0X280X:PASSPASS1:PASSPLIMXXOLD:YYOLD:M$"TOO MANY PASSES":1490Y3Y3:YS0X279XX280(Y78AL0:143021X,Y<3:1XOLD,YOLDF20480:CC1:C40C0, ~LASTHGT%DFMDPTHGT:K5:C394J275279QHGTLASTDFK:J,0J,HGT`LND(J)HGTjKK1qJFINISHED DRAWING LANDLIMIT871:0:X139:C1XS1:YS0:SET INITIAL SPEEDYLIMIT2: Y-COORDINATE0:XS0YS0ĔVICE:740LIMIT101$HGTLAST7CH3:LIMIT116KJ111SPAN274^R(4)11080}$SIGNR(2):SIGN2SIGN1.CHSIGNR(3)8HGTHGTCHBHGTLIMITHGTLIMITLHGT191HGT191VJ,0J,HGT`LND(J)HGTjJtLIMLIM4,LND(J):KK1J:KK2HJ107SPAN(CREVICE2)106SPANCREVICEoLND(J)LIMITK:J,0J,LND(J):KK1vJLEVEL7SUB1:970SUB0J107SPANCREVICE1062SPANCREVICESUBLND(J)87:J,0J,LND(J)J SPAN12SPANCREICE6$*LEVEL4SPAN19:CREVICE8C4LEVEL5SPAN9:CREVICE10b>LEVEL6SPAN3:CREVICE16HLEVEL7SPAN1:CREVICE17RJ106106SPAN\LND(J)87:J,0J,LND(J)fJpK1zJ106SPAN106SPAN(CREVICE2) LND(J)LIMITK:J,0J,LND(J)KK1:J%LEVEL27909SPAN4LEVEL21MJ106106SPANiLND(J)87:J,0J,LND(J)pJxK2J106SPAN111SPANLND(J)LAST(LAST87)K:J,0J,LND(J)KK1:J 1010FORM A CREVICE LEVEL3SPAN29:CREVJ1100&R(4)1580<0SIGNR(2):SIGN2SIGN1N:CHSIGNR(3)]DHGTHGTCHvNHGTLIMITHGTLIMITXHGT191HGT191bJ,0J,HGTlLND(J)HGTvJLASTHGT:LIMIT87K6J101106LND(J)LAST(LAST87)K:J,0JLEVEL1İ2000 ST0:AL1K PLIM100:PASS0:LEVEL2PLIM(21LEVEL)Y 20481,27u 20549,96:INSERT "RTS" MDPT151:LEVEL(LEVEL) :16302,0:FULL SCREEN GRAPHIC 3 SIGN1 HGTMDPT:0,00,HGT:LND(0)HGT CH3:LIMIT116 5,0 JJ152 TK' ^64096J,K. hJe r232,0:233,96: LOCATION OF SHAPE TABLE - $6000  END OF POKING IN SHAPE TABLE R(N)((1)N)1:RETURN RANDOM NUBER FROM 1 TO X LND(279),RNK$(7) J07:RNK$(J):  2500 255 J0127" K:20480J,K) JN END OF POKING IN 'WRAP AROUND'| "1,0,4,0,46,46,46,46,45,37,44,36,37,37,37 ,45,53,53,53,53,46,54,45,45,44,44,44,148 6 210,219,51,46,46,54,29,199,24,24,8,1,24 @ 63,63,63,63,63,63,63,54,55,55,126,/ 26,165,28,208,217,164,29,136,208,191,76\ 0,80,35,208,35,80,34,208,34,80,33,208 33,80,32,208,32,80,35,168,35,40,34,168,34 40,33,168,33,40,32,168,32,40,35,128,35 0,34,128,34,0,33,128,33,0,32,128,32,0,0 4,8,12,16,20,24,28,OKE IN 'WRAP AROUND'I d 169,49,133,29,198,29,198,29,164,29,185,72,80 w n133,26,136,185,72,80,133,30,162,8,134,28 x 198,28,166,28,189,120,80,24,101,30,133 27,160,0,177,26,72,160,1,177,26,136,145 26,200,200,192,40,208,245,104,160,39,145 **********************9 * SPACE ROVER *U * BY STEVE PRESCOTT *q * COPYRIGHT (C) 1983 ** BY MICROSPARC, INC ** LINCOLN, MA. 01773 ***********************F24629P:255::12:14::"SPACE ROVER": Z P          +QQàҠ蟠ՙ蠌â蠹鰠ѠMŠ𻩠éȰ堤ȠzȥŃ蠠栠Ϡ砠Ū𠠺蠉ʱ̠ŲŅӬƠŠ蠠ƠϠ堠𠁠Ʌ΁ӠčϠՠȠϠŠԠٿŠōȠĠՠſĠĠŠӍŠӍǍˠӍԠԠōŠΠˍˠӍ٠ӍԍĠΠ͠ԠŠҠƠŠǠӍӠ٠٠ϠŠčӠōy                                                                `                                                `                                                                                                &                                                `                                                <                                                 ɛhh K8&L(`ɛ` [ :``H# B [  B ɰɸ :LhH K   X )?P)?( XƢ  : ɛhhhL(ɍ Xfh 4 `ԠҠƠҺӠ٠٠ϠԯРǠŠŠϠ̠ (# K` ("( K`> 0 ($ 2 % >`%L ȥȥCȩ `ȥ  ` '(?2ɮ 2" [` ` 'P#`膚 ɍ!Ɉ$ɛL( ĊŠԠΠŠĮĩ٠РƠˮƩ٠ŠЮũԠͮ͠ź ǠӠ ŠҺԠˠϠŠĠҠ?ϠŊҠ?Ϡ̊ J?2hJ H$ $ h 2 J !` /$ [ B K%"    [    [ E`?ˠЊ ͩ͠Рנˮ?źˠԠŠĠĠӺ˯ҠԠӺȱ `L# ȱŲ(u L?Ġ˯Ҡ ȱ0e%#` i` ȱ :`日\ `œ KHYYeiihe H 8 h   HJJJJ Lg h)  J HJJJJ L h K K( K`?źԠҠԠ٠ŠӠ ( ? ? :ɛL(ɆL]ɐ(Z ʅ  k ?υ LQL(д ?L ͱ ! K K):J1JĢ(JѢJJۢ J (0   !Hȱ?ҠԠٍҠҠŠҠϠ٠0Cɠ 0+ɠ  H e΅he΅0ɠ de΅Υ œhh :Lɺ鯐`YY X# k%Ȣ  ɛL]ɍ [ B d  Ͻu)?%)?PM)?(Z ͠˺?ԺJHh eJȥȥ`i۩ [ $C # X#䓐  L(?ϠӠ 䓰%i# K L$%# [$  B U$ [# K L:0WiȱŲ刱"ȱ…ʥ8 LŲЩ   `ȭ $H B  h$   :$ ?>#`ߢ ˱0U& Kȱ  L$ YY K J̱ !Х"ȱ䲐 ʥ :`iŲ i `?˺?Һ?к??̭ԠנˠӠ̭ϠŠΠՠҠ̭Р٠Ҡ٠ҠԠҠ̭ƠנŠH K )H h L   h` H)Тˢ hբe%# L :ɛL(ɔ# B [$ L ɐ   ɏL е L  X 08e%#  :ɛL(ɔ# B [$ Ldɐ   LɏL ж L )?%)?PM)?(` [!  B ZV :L Ӻé٠ŠЮө٠РٮźH [$ hL LdHHHe" 0ie8爩hhh`  X 0Ȅȱ ƕpLV  ) ȱŲ̩# B|  L(#]ȱŲTȱ ȩZ { ȥ(+ȱ`#ȱŲ i\` $ [) # X [     { 0 Q 0 0 ŲL(_ pip 0ȱL Y襕Y膓  d ZŗߩZ ȱ1J#$ȱŲ 0J Jк 日\ȱi# 0LZ L(ǠǠï?̠ٯ٠٠Ϡ̠Ǡ˯ҠӠ٠٠ϠϠΠ"ʆ po*H80hL h­L( "Ӡ٠٠Ϡ ȥȥȢeȄ҆Ȅ#ǩ [ B ȥio {Dʆ L( {ȱ 8ϭpŲp :/  L(L ˠРٍ Aة / X [ߢ  ΅ R W  :  BL9Lx / XHLL L] [ $Ң  Xz  ɛɲ   ɛɲ   : ɍɛL( ))?P󠠠        êŦƥ堠ѥԀհť՞ŠÊĨȘƸ440: READ/WRITE FILEJR"RECORD ";NA$;" LOT#";LO$;" IS DELETED":320Z12000: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                                            $$$-m-?$466&$-.-?6-6?-6?46$-666--?6=6--6?46M!,66$$-&-66 $$-66$?-?6-6?- -?$-$?66 -$/$?=6-$/6?6$-6M$l6n$,=76.%<"-$$?66-6?6- -$$?66-6/6?- -$$?666-$66 -$$?66-?6-6?- -$$?66.,67576%$$$-5566>'%$$?-m,666.$$$(<. ,66666%$$$$46-55667?,%$$?-m!$'-66766.$$$,-.66>>'-$$$$$,M)-.6??',-5>?4>6%6--$7?-766>- $$$%466n)$$l166 $$,-&?76=6.-4 0-%$-5 (566&$$,m-566>?- -$$$?666/666/ %$$>6- -$$$?666- -$$$?66666 $JYk~4Mh~+:!&.8K[e/666/ -$$$?666&-6677.m-$$$<7666&-6>56?4- -$$$?6666.%$666 -$$$?666-?6.56?- -$$$?666-?6.56?$46- -$$$?666-666 -$$$?666-6>'466-$46 -$$$?666-6>'$6.56?- -$$$?666/666/ -$$$?666  LECTION";DL$PQl:"ENTER THE NAME OR FOR MENU":"NAME:";NA$:NA$""ıQv:"ENTER THE LOT# OR TO DEFAULT":"TO LOT#1.":"LOT#:";XX$:LO$XX$:XX$""LO$"1"Q:10::"PROCESSING"::FI$"INVEST":J1:K14:DL$"S"FI$"SALES":K15RROM THE":"FILE AND COMPRESSES THE REMAINDER OF":"THE FILE." Qb:"BE SURE TO USE THE SAME NAME THAT YOU":"HAVE USED FOR REFERRING TO THE INVEST-":"MENT IN PREVIOUS RUNS OF THE INVESTOR."::"DELETE FROM:":" M)ASTER FILE":" S)ALES FILE":"ENTER SEOCCURRED IN LINE ";(218)(219)256;".":"CHECK PAGE 136 OF YOUR APPLESOFT":"MANUAL FOR ERROR CODE."O:23:868:"PRESS FOR MENU";XX$OD4060ON =PXQ0:::"DELETE RECORDS"::6:"DELETING A RECORD PURGES IT FD ANALYSIS **","** GAIN/LOSS ON SALES **"4N216,0DND$;"CLOSE"uN(222)5Ģ21:"NO DATA FOR THAT FILE":4410N(222)6Ģ21:"NO FILE BY THAT NAME.":4410N&(222)9Ģ21:"DISK FULL.. SET UP A NEW DISK":4410fO021:"ERROR #";(222);" HAS "NO SHARES","PURCH PRICE","PURCH MO","PURCH DAY","PURCH YR","SELL PRICE","SELL MO","SELL DAY","SELL YR","QTY SOLD","PURCH COMM","DIVIDEND","SELL COMM"M "HIGH","LOW","CLOSE","VOL 100S","MONTH","DAY","YEAR")N"** CURRENT MARKET GAIN/LOSS **","** YIELSK. 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  ;"RUN INVESTOR"UN? ": CuA10D u 3,A,INVESTOR LOADER,B,DISK MAP,A,SPACE ROVERv uI1D:P$(I,1):P$(I,2):A:I;". ";P$(I,2): u:"PRESS THE NUMBER TO RUN THE PROGRAM YOU LIKE; OTHERWISE HIT RETURN.";:A$ uA$(13)ıuC(A$)48:D$:C1CDĮ:D:3::"UNAUTHORIZED COPYING IS ILLEGAL"B :K$"MENU":1000:30000Z :(4);"CATALOG":{ SD24576:SL24658:SR24721: :"PRESS THE RETURN KEY FOR "K$" =>";:A$:: 0u::1:5:D$(4) :u"WHICH OF THE FOLLOWING PROGRAMS WOULD YOU LIKE TO RTHER":"DISK YOU SHOULD SAVE THE FOLLOWING":"FILE:":N " 1. SPACE ROVER"Z :1000 :23:"THANKS AGAIN FOR YOUR ORDER!!":I115::% 12::"ALL PROGRAMS ON THIS DISK ARE":"COPYRIGHT (C) 1983 BY NIBBLE ":"MICROSPARC, INC. LINCOLN, MA ":"::" 1. INVESTOR LOADER":" 2. THE INVESTOR":" 3. THE SHAPES":P :1000 :5:"TO SAVE DISK MAP PROGRAM ONTO OTHER":"DISK YOU SHOULD SAVE THE FOLLOWING":"FILE:": " 1. DISK MAP" :10006 :5:"TO SAVE SPACE ROVER PROGRAM ONTO OOR THE PROGRAMS IS PROVIDED IN THE MAGAZINE OR, IF THE INTRODUCTORY PERIOD HAS EXPIRED, IN THE SHEETS WHICH ACCOMPANIED THIS DISK. :1000D :5:"TO SAVE THE INVESTOR PROGRAM ONTO":"OTHER DISK YOU SHOULD SAVE THE FOLLOWING";:"FILES:a  :3"D:P$(D,2):D$(4)+800u:"THANK YOU FOR YOUR ORDER FOR THE NIBBLE":"VOL 4 #2A DISKETTE!":#"THE PROGRAMS ON THIS DISK ARE: * THE INVESTOR * DISK MAP * SPACE ROVER"%:K$"NEXT PAGE":1000d 5:"DOCUMENTATION F   16300,0 16301,0~ :22:"** COPYRIGHT 1983 BY MICROSPARC, INC **":24:"PRESS RETURN TO LOAD THE INVESTOR";XX$ "16384,0 ,103,01:104,64: 4001 HEX 6232,0:233,24: SHAPE TABLE PTRS @(4);"RUN THE INVESTOR 2.84"),(4),Y M:2695,X:3:27145,X- Y80200L Q1:Z514512:26Q,Z:Zm Q240:Z514512:26Q,Z:Zv 240 16300,0:16302,0:230,64:62450 M:2695,Y1:3:27145,Y1 M:2695,X1:3:27145,X1 16299,0 Y 230,32 THE PROGRAM ABOVE PAGE 1+ (GRAPHICS.9 2::1:1@ 70] <(4);"BLOAD THE SHAPES" F232,0:233,24: SHAPE TABLE POINTER $1800 PX73 ZY86801 dXX1 nM1:Y80M3 x230,32 62450: CLR SCRN1 M:2695,Y:3:27145! **************************A * NIBBLE INVESTOR LOADER *a * BY ALEXANDER LAIRD * * COPYRIGHT (C) 1983 ** BY MICROSPARC, INC ** LINCOLN, MA. 01773 ***************************SETS LOMEM:16385 TO PUT    2:15,2233-15,2334:15,2435:16,2436O15,2334:15,2435:16,2436q&16,2337:18,1938:21,2238016,2337:18,1938:21,2238:D:7::"NIBBLE DISKETTE VOL 3 #7A":10::NI14000:I::::I:::38:21,2238:DD:7::"NIBBLE DISKETTE VOL 4 #2A":10::[NI14000:I:::15,2531I:I15,2232:15,223315,2334:15,2435:16,243615,2334:15,2435:16,2436&16,2337:18,1938:21,2238 016,2337:18,192436'15,2334:15,2435:16,2436I&16,2337:18,1938:21,2238k016,2337:18,1938:21,2238q:D:7::"NIBBLE DISKETTE VOL 4 #2A":10::NI14000:I:::3:16,2436&16,2337:18,1938:21,2238 016,2337:18,19624016,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:"--------- -     INVEST":1000:4060+LS$"S"İ1270:4060CLS$"E"İ1270:4060[LS$"U"İ1690:4060sLS$"P"İ1820:4060LS$"G"İ2000:4060LS$"R"İ2720:4060LS$"D"İ4430:4060LS$"Q"ė:10:10:" END OF JOB":M"NAME ","PURCH SEQ.",:"G)RAPHIC CHARTING":9:"R)EPORT OPTIONS":9:"Q)UIT"[K^:9::"ENTER SELECTION ";S$:KhS$"D"S$"A"S$"S"S$"E"S$"U"S$"P"S$"G"S$"R"S$"Q"4160KrS$"G"ĆH$(53,7)K|S$"G"ĆN$(20,15),CP$(20,7),E$(20,2)LS$"A"FI$" ALEX LAIRD **":21:8:"** COPYRIGHT (C) 1983 **":8:"** BY MICRO-SPARC INC **":JJ9:9:"A)DD A NEW INVESTMENT":9:"U)PDATE MARKET PRICES":9:"E)DIT AN INVESTMENT":9:"P)ORTFOLIO INDEX"7KT9:"S)ELL AN INVESTMENT":9:"D)ELETE A RECORD":9D$;"PR#0"I320)I << MAIN MENU >>/I5IAID$(4)VID$;"NOMONI,O,C"jIA$(15),LL$(15)vIRH$(4)IF115:LL$(F):FI"F17:LD$(F):FI,F13:RH$(F):I64350XJ@:4:8::"** THE NIBBLE INVESTOR **":::8:"** BY:70:36,51(X$):X$;:ZTG:70:36,70(X$):X$;JHTC0ĺ:X$"0":4000wHPC(TGTC)100:ZPC:70:36,80(X$):X$H:"SHORT TERM GAIN/LOSS: ";:ZSH:70:36,33(X$):X$H"LONG TERM GAIN/LOSS: ";:ZLG:70:36,33(X$):X$H(9);"40N" II,10);"/";N$(I,11);%GnGNSVCS:350Gs" COMM";:Z(N$(I,13)):GNGNZ:TCTCZ:70:X$"+"X$:36,33(X$):X$;:Z(N$(I,15)):GNGNZ:TVTVZ:70:X$"-"X$:36,51(X$):X$;:SW1:350:SW0:" "GxIG TOTALS1H170:ZTC:70:36,33(X$):X$;:ZTV2(N$(I,12))03960'F<180:TCTCCSNFFZ(N$(I,8)):70:36,40(X$):X$;FPZ(N$(I,3))(N$(I,8)):SVZ:70:36,51(X$):X$;:TVTVSVFZ200:SL$"L":DL(365(SDBD)):DL0SL$"S"Gd36,58((N$(I,9))(N$(I,10))(N$(I,11))):N$(I,9);"/";N$(RTE"** MASTER ";RH$(3)YE"(COMMISSIONS ADD TO COST AND SUBTRACT FROM SELL VALUE)"E 340:36,34:"SEL PR";:36,42:"SEL VALUE";:36,52:"SEL DATE";E36,61:"GAIN/LOSS";:36,71:"S/L";:36,75:"% G/L"E170E(I1A:(N$(I,12))03960FL":DL(365(CDBD)):DL0X$(DL):36,56(X$):X$;:SL$"S"_DBS$"B":(N$(I,8))0BS$"S"pD36,58:BS$;DGNCVCS:350D" COMM";:Z(N$(I,13)):GNGNZ:TCTCZ:70:X$"+"X$:36,33(X$):X$;:SW1:350:SW0:" "DI:3970E YIELD REPO8C36,61:"GAIN/LOSS";:36,71:"S/L";:36,75:"% G/L"AC170_CI1A:(N$(I,3))03825C180:TCTCCS: PRINT COMMON DATACZ(CP$(I,3)):70:36,40(X$):X$;CZ(CP$(I,3))(N$(I,3)):CVZ:70:36,51(X$):X$;:TVTV(X$)=D200:SL$"X$(X$,(X$)1)"."(X$,1): DECIMAL IN STRING9BV310QB`SP$"P"ĺD$;"PR#0"ZBj320xBt < MASTER MARKET VALUE >B~"** MASTER ";RH$(1)B"(COMMISSIONS ADD TO COST)"C340:36,34:"CUR PR";:36,42:"CUR VALUE";:36,53:"DLT";:36,57:"B/S";((GNCST).0005)1000):X$(GP)? 36,15:"$COST";:36,22:"$SALE";:36,29:"GN/LS";:36,35:"%G/L"? 160? I1A? (N$(I,12))03610? 140: PRINT COMMON INFO)@ 90: X$(X$,(X$)1)"."(X$,1): DECIMAL IN STRING;> 310B>* IK>4 160j>> X$(TC):36,20(X$):X$;>H X$(TD):36,32(X$):X$;>M TC0X$"0":3420>R X(((TDTC).0005)1000):X$(X)>\ (X$)1X$"."X$:3440?f X$(X$,(X$)1)"."(XX$XC$:36,20(X$):X$;:TCTCCST: COSTR= X$N$(I,14):36,26(X$):X$;: DIV = DV((X$)(N$(I,3))):X$(DV):36,32(X$):X$;:TDTDDV:DIVIDEND AMT= CST0X$"0":3340= YL(((DVCST).0005)1000):X$(YL)= (X$)1X$"."X$:33602>3220< X$(((TGTC)100))'< 310?< SP$"P"ĺD$;"PR#0"H< 320_< < YIELD REPORT >< 36,15:"$COST";:36,22:"DV/SH";:36,29:"$DIV'";:36,35:"%YLD"< F139:"=";:F:< I1A:(N$(I,3))03370< 140: PRINT COMMON INFO)= 90:6,20(X$):X$;:TCTCCST: COSTT;D X$XV$:36,27(X$):X$;:TVTVVL:MARKET VALUE;N X$XG$:36,33(X$):X$;:TGTGGL:GAIN/LOSS;X X$XP$:36,39(X$):X$;b I20SP$"P"Ą"PRESS RETURN TO CONTINUE ";XX$;l I;v 160; 270< TC0X$"0":#1":: RH$(RP):: "NAME";:36,6:"#";:36,10:"QTY";Q: RP3080,3250,3470l: < GAIN/LOSS REPORT >: 36,15:"$COST";:36,23:"$MKT";:36,29:"GN/LS";:36,35:"%G/L": 160:& I1A:(N$(I,3))03180:SKIP 0 HELD:0 140 ;: 90:X$XC$:3R PRICES >J9| I1A:RP3RP5N$(I,3)N$(I,12): SELL QTY FOR REPORTINGr9 NA$N$(I,1):K7:QI$"1":560:QI$""y9 I9 RP430209 D$;"PR#1"9 (9);"80N"9 RP437009 RP538309 < SCREEN REPORTS > 9 :SP$"P"3050: D$;"PRFILE":3208, 2930#86 D$;"PR#1"38@ (9);"80N"J8J READ ALL RECORDS8T J1:K14:FI$"INVEST":RP3RP5FI$"SALES":K158^ 440:AR8c FI$"SALES"R0ĺ:"NO SALES HAVE YET BEEN MADE":3208h I1R:F12:E$(I,F)N$(I,F):F,I 9r < READ CURINVEST":RP3RP5FI$"SALES"B7 NI$""2890: SKIP NAME SELECTb7 SW1:1000:SW0: GET NAMES}7 K14:FI$"SALES"K157 A0:I1R:NI$E$(I,1)AA1:SI$"1":440:SI$"":F1K:N$(A,F)N$(I,F):F: READ RECORD7 I 8" A0ĺ:NI$;" IS NOT ON ONLY."V6 12:"REPORT OPTION (1-5)":"OR FOR MENU: ";RP$:RP(RP$):RP0ıj6 RP1RP52760~6 RP4RP528006 15:"S)CREEN OR P)RINTER : ";SP$:SP$"S"SP$"P"27907 17:"INDIV' INVESTMT NAME":"OR FOR ALL : ";NI$:FI$"= CURRENT MARKET GAIN/LOSS (S/P)":"2= YIELD ANALYSIS (S/P)":"3= GAIN/LOSS ON SALES (S/P)":"4= MASTER MARKET GAIN/LOSS (PTR)":"5= MASTER SALES GAIN/LOSS (PTR)"6 :"OPTIONS 1-3 ALLOW SCREEN OR PRINTER.":"OPTIONS 4-5 ALLOW PRINTER 1,6);"/";H$(1,7);"-";H$(N,5);"/";H$(N,6);"/";H$(N,7);l4 36,18:"VOL-H/L: ";(HV1000);"K/";(LV1000);"K"4 23:"AVG PRICE:";AP;:36,18:"AVG VOL: ";(VA1000);"K"4 3204 < REPORT OPTIONS >4 ::"** INVESTOR REPORT OPTIONS **":5 :"122,VQ3,V:36Q5,V: AVG VOLN3F NA3Ĕ34Q5,NA3:33Q13,NA3: MVG AVGm3P XNBNA:X5X0NBNB63Z X0X5NBNB63d NB3N13Ĕ35Q5,NB3:33Q13,NB33n 21:"NAME: ";(NA$,10);:36,18:"PRC-H/L: ";HP;"/";LP54x 22:H$(1,5);"/";H$(S100)10)1:Q,125Q,125PS:2560: NEGATIVE PRICE MOMENTUM2 PS100PS((100PS)10)1:Q,125Q,125PS: POSITIVE PRICE MOMENTUM2 32 A0B025902 Q,AQ,B:Q1,C2 Q,VQ,1592( QQ3:X22 VA(VAN): AVG VOL.3< V(159(VAVI)):(X,4))VI)): VOLUME B1 NA(120(2(NALI))): MOVING AVERAGE s1 NB(120(2(NBLI))): 13 WEEK MOVING AVG 1 X2NA2ēQ3,OAQ,NA: MVG AVG1 1:X1325601 NB5ēQ3,OBQ,NB: 13WK MVG AVG 1 3<2 PS((NBNA)100):PS100PS((PLESS THAN 13 WEEKSs0~ OBNB:NB0:MU0:AQ0:HX12X:MUMU(H$(H,3)):H:NB(MU13):AQMU13:AQ(AQ100.05)1000 A(120(2((H$(X,1))LI))): HIGH 0 B(120(2((H$(X,2))LI))): LO0 C(120(2((H$(X,3))LI))): CLOSE 1 V(159((H$05,140: L/8 315,146: E//B 285,152: SO/L Q22:VI(HV30):VI1VI1Z/V X1N/` OANA:MTMT(H$(X,3)):NA(MTX):APMTX:AP(AP100.05)100:OLD/NEW MOVING AVERAGE/j VAVA(H$(X,4)): CUM' VOLUME0t X132440: SKIP 13 WEEK M.A. FOR :27240,106'.F1917215:F,119:Fm.2149,113:2279,113:23109,113:24139,113:25169,113: 10-50v.MT0.40,125279,125. 3222,122:2830,122: PR S. F12015010:19,F:F:1,159275,159. 285,128: S.$ 295,134: A /. 399H-(LO$)3LI((LO$,2)):LGLI1:LI(LI1)10: LOW PRICE 100-199O-Xi-PV2: TWO DOTS/POINT-:3:1:1:18,118,159:P0:F112020:19,F20,F:F:F11202:19,F:F-P16:FLG5LG11:F5,P:PP20:F:1,120279,120 .26195,105ICE!,pVOLVLVVO: LOWEST VOL@,zVOHVHVVO: HIGHEST VOL,LO(((LP10)1)10):LO1LO0: LOW INDEX SCALING 11->0 21->10 31->20 ETC.,LX(LP):LO$(LX):(LO$)1LI0:LG0-(LO$)2LI((LO$,1)):LGLI1:LI(LI1)10: LOW PRICE 10- MOST RECENT 52 RECS+*N00+4K7:560: READd+>HP(H$(1,1)):LP(H$(1,2)):HV(H$(1,4)):LVHV+H < FIND HI/LO PRICE AND HI VOLUME >+RX1N:HI(H$(X,1)):HL(H$(X,2)):VO(H$(X,4))+\HIHPHPHI: HIGHEST PRICE,fHLLPLPHL: LOWEST PR$""ı*NA$"C"İ330:2010=* ::"READING FILE ";NA$:P*N11:560:N10*R0ĺ"NO MARKET PRICES HAVE BEEN ENTERED":"TO GRAPH YET. USE U)PDATE MARKET PRICES":"OPTION TO ENTER DATA"::"PRESS RETURN FOR MAIN MENU ";XX$:+ J1:R51JR51:PRICE":10:"* MOVING AVERAGE OF PRICE":10:"* SALES VOLUME")10:"* AVERAGE SALES VOLUME":10:"* HI PRICE FOR THE PERIOD":10:"* LO PRICE FOR THE PERIOD":10:"* HI VOLUME FOR THE PERIOD":10:"* LO VOLUME FOR THE PERIOD"*420:"ENTER:";NA$:NA$(I,4)):70:36,29(X$):X$;U(X$N$(I,5)"/"N$(I,6)"/"N$(I,7):36,39(X$):X$\(Io(XX$"P"1990~(D$;"PR#0"(320( << GRAPHICS >>(:6::"** NIBBLE INVESTOR GRAPHICS **":=):"THIS OPTION DISPLAYS:":10:"* HI/LOW/CLOSE lJ1:K8:FI$"INVEST":440: READ RECS ;'vXX$"S"1930J'D$;"PR#1"s'I1R:BS$"B":(N$(I,8))0BS$"S"'N$(I,1)""Ģ22:"NO RECORDS IN PORTFOLIO":IR1:1960((N$(I,1),6);:36,9:BS$;:36,14:N$(I,2);:36,21(N$(I,3)):N$(I,3);:Z(NLECTION ";XX$:XX$""ı3&:XX$"P"XX$"S"1840`&DXX$"P"ĺD$;"PR#1":"PORTFOLIO SUMMARY"&N:"** PORTFOLIO SUMMARY **":"NAME";:36,8:"B/S";:36,12:"LOT#";:36,17:"SHRS";:36,23:"PRICE";:36,31:"BUY DATE"&X160&bXX$"P"ĺD$;"PR#0")'19:868:17408%U$(4)U$(4)"00": CONVERT TO 1000'SW%RER1:SI$"1":710:SI$""]%y% < SUMMARY PORTFOLIO >%&:10:8::"PORTFOLIO SUMMARY":&013:8:"PRINT ON:"::8:"S)CREEN":8:"P)RINTER"::8:" FOR MENU"::8:"ENTER SE ":"DAY (1-31): ":"YEAR : "B$12:F17:13:"";U$(F):F$(U$(5))0(U$(5))12(U$(6))0(U$(6))31Ģ19:"INVALID DATE...PLEASE REENTER RECORD":ER$"R"$20:"RETURN= ACCEPT... 'R'= RE-ENTER ";XX$:ER$""ER$"":XX$"R"%XX$""< UPDATE MARKET PRICES >J#:6::"ENTER CURRENT HI/LOW/CLOSE MARKET":k#420:"ENTER:";NA$:NA$""ı#NA$"C"İ330:1700#N11:560:N10"$11:"NAME : ";NA$:"HIGH : ":"LOW : ":"CLOSE : ":"VOL (100S): ":"MO (1-12) :z#?????   ԠӠī ɠӠˠРŠҠ! ŠҠL ŠϠY ŮĠα **/********************* Ϡ ϲ ҠҠ ŠӠ*********************/***  ͠ˠ*** *Ԡé*!*٠ìî*"*ά* ----------------------------------------`Š0P`---------------------------------------- 9w|9w|MICROSPARC, INC **":5! J177 J;") ";RNK$(J):> JW( :"CHOICE==>";LEVELq2 LEVEL1LEVEL72500w<  PRIVATE, PRIVATE SECOND CLASS,CORPORAL,SERGEANT,SECOND LIEUTENANT,FIRST LIEUTENANT,CAPT. ZORRO2 CHOICE1CHOICE72500OVING AT ALL TIMES"9"2) NEVER GO BELOW THE PLATFORM"f:"PRESS A KEY TO BEGIN";:16368,0:A$J124:::10:10);"HERE WE GO!!":P11000:255: :CHOOSE A LEVEL "CHOSE YOUR STARTING LEVEL..." 22:"** COPYRIGHT 1983 BY PACE SHIP. THE CONTROLS ARE THE"KR"'I', 'J', 'K', AND 'M' KEYS WHICH "r\"MOVE THE SHIP IN THE RESPECTIVE"f"DIRECTIONS."p2:"WITH THESE CONTROLS IT IS YOUR JOB"z"TO LAND ON THE MOVING PLATFORM.:15);"CAUTIONS:""1) KEEP M11:J:"*";:J/J2311:1:J:"*";:JR 32,2:33,37:34,1:35,22:100r3:11);"SPECIAL REPORT": P1100:P*"DEAR CADET,"42:"CONGRATULATIONS! YOU'RE GOING TO ">"LEARN HOW TO MANEUVER THE ";::"SPACE ROVER";:!H"SDINGS = ";GOOD%:"CRASHES = ";BAD+?D"YOU ARE A DISGRACE TO BOTH YOUR FAMILY AND COUNTRY AND WILL THEREFORE BE SHOT AT THE CRACK OF DAWN!"NINSTRUCTIONS:2001:J140:J:"*";:JJ123:40:J:"*";:J22:J40UR TRIALS"&::"LANDINGS = ";GOOD="CRASHES = ";BADy:"TO DESIGN YOUR OWN MODULES, MODIFY LINES790 - 840." LOSER"YOU HAVE UTTERLY FAILED IN YOUR ATTEMPTSTO LAND THE SHIP!"&:"HERE ARE YOUR STATISTICS":0"LAN 27:"REPORT: ";::M$::21_6:"PRESS A KEY FOR THE NEXT MISSION ";:16368,0:A$:458l WINNER:"CONGRATULATION!! YOU HAVE SUCCESSFULLY COMPLETED THE SEVENTH AND MOST DIFFICULTLEVEL OF THE COURSE.": "HERE ARE THE STATISTICS OF YOLEVEL018008"RANK AFTER MISSION: ";RNK$(LEVEL)]":"SUCCESSFUL LANDINGS = ";GOODz,"CRASHES";13);"= ";BAD-.9:SUC0MIS0Ė14:"DEMOTED!!":/SUC1Ė8:"P R O M O T E D !!!"0112:"LEVELS:"::J17:J;") ";RNK$(J):6304,0:BADBAD1:SUC0:AL0M$"MISSED!"G3:P1500:P:1X,Y:R0}YNY1913:RR1:R:1X,YN:R1ĘR1:1X,YN316368,0:A$:SUC1LEVELLEVEL1:MIS0LEVEL81700SUC0MISMIS1:MIS2LEVELLEVEL1:MIS00000(uP$(C,1)"B"ĺD$;"BRUN";P$(C,2)KuP$(C,1)"A"ĺD$;"RUN";P$(C,2)Zu:30000:`\v"ĺD$;"BRUN";P$(C,2)uP$(C,1)"A"ĺD$;"RUN";P$(C,2)u:30000:\v:D:30000uP$(C,1)"B"ĺD$;"BRUN";P$(C,2)uP$(C,1)"A"ĺD$;"RUN";P yōϠӠćˠ̍ˠŠčŠčɯϠҍĠԠ٠ϠΠ͍Š۠ŠҠנŠŠҠŠ٠ҍξϠŠǠŠҍ̭þξϠٍ̠ҮŽĠՠŠϠŠҠٿԠŠˠĠӠԠΠˠĠӠ٠ϠՠԠǿ$:GRc*1DNSjwŠԿſΠԿſſԠӮӠþϠΠϠΠՠҠ٠Ҡ٠Ϡ΍٠ӮŠΠL   LϠ젃Š𠁠Ƞɠź̪ӯؠԉȠҠńϠ̠̠ΒȤŠ͠㠩υe h QQQQQ<JWdv&crK.М LHHH?!=>@AH IL=K>Lhhh`HHH ; ( L -hhh` : :  ,% f f4,$ ɀ@  RSQzmVVW` `DE]^ /].^ E̞`DE `HHH/.0+>0jj.9hhh`( 01 0㎓/%` f`RS`KȱL`KȭL`DERS ` ` I,`DE]ȹ]Ȍ  E`,0 /R.SDE$,/ ` f` : :   oOɃ  hhhhhh`+t+TPɍɬC+L,)   : L f f`   t+L:,     `H jjH9mmL[mmhh`  # L# # 3,0ޭR S   ` .H h. ` % fɽQ ʎ`8`HH Uɽ"̦̦88hh` ȹHH`%) ` f `,%0 f `,% f ` f` `  f `hh" XL  ̅ $T+  # ? : L  hh` %)`ʽQ08`  `  ?,06 /,0&莤 ,0欧ȌP8``ȈQ`  UɽQ 莣Ȍ`8`  U$'   hhh`, `Hhݯ`h`# q  ` Y  # LK ` RRSS`R S8`RSDE  `iiiQLk RLk H m hLk S%RQrU o00Щ莢ɽదɬUɽ̢ʎ!  : Lm  ɛhhL%H% h%L ̢  `HHH  hhh`HHH : 7 , ͭ) ; # ͭ  ; `  ɱɸ" L; )   ɱɳ# L_ )`   ɱɸ" L )  ɱɳ# L ) ##` L N D   , b Y L> b @   Lvم380` X L !   - `" X    i( ! , и` X$i( " X ,      $(C,2)u:30000:\vD:I;". ";P$(I,2):u:"PRESS THE NUMBER TO RUN THE PROGRAM YOU LIKE; OTHERWISE HIT RETURN.";:A$uA$(13)ıuC(A$)48:D$:C1CDĮ:D:30000uP$(C,1)"B"ĺD$;"BRUN";P$(C,2)uP$(C,1)"A"ĺD$;"RUN";P FI$;",R";R4F1K:A$(F):F6>S$"E"S$"S"870PHD$;"WRITE";FI$;",R0"WRRe\S$"D"ı{fD$;"CLOSE";FI$:p216,0zD$;"OPEN INVEST,L150":D$;"WRITE INVEST,R0":0:D$;"CLOSE INVEST"34216,0D$;"OPEN SALES,L150":D$;"WD$;"CLOSE ";NA$:8D$;"OPEN ";NA$;",L50"UD$;"WRITE ";NA$;",R";REjF17:U$(F):FzSI$""770D$;"WRITE ";NA$;",R0"RED$;"CLOSE ";NA$  < WRITE MASTER FILE > D$;"OPEN";FI$;",L150" *D$;"WRITE";30: SINGLE REC)ND$;"READ ";NA$;",R0">XR:R0N11700dbQI$"1"WR:630: READ LAST REC}lWJR:S$"G"NN1vD$;"READ ";NA$;",R";WF1K:U$(F)S$"G"H$(N,F)U$(F)S$"R"CP$(I,F)U$(F)FSI$"1"QI$"1"700";FI$;",R";I#F1K:N$(I,F):F`S$"D"((NA$N$(I,1))(NA$N$(I,1)LO$N$(I,2)))İ940yS$"D"R1Q0:970SI$"1"540ID$;"CLOSE";FI$:& < READ PRICE FILE >0D$;"VERIFY";NA$:D$;"OPEN ";NA$;",L50"DSI$"1"6**"*"<< MONTH= 1-12 DAY= 1-31 >>":]::"INVST NAME ... C)ATALOG ... MENU":x < READ MASTER FILE >D$;"OPEN";FI$;",L150"SI$"1"490: READ SINGLE RECD$;"READ";FI$;",R0"R:R0SK$"1"540IJR D$;"READCOST";:9^ZGN:70:36,70(X$):X$;:SW1TGTG(X$)ThSW1SL$"S"SHSHGNorSW1SL$"L"LGLGGN|36,72:SL$;CS0ĺ:PC(GNCS)100:ZPC:70:36,80(X$):X$:"** ENTER NEW DATA OR PRESS **":"** RETURN TO ACCEPT AS IS. X$(TV):36,27(X$):X$;;"X$(TG):36,33(X$):X$;A,X636,39(X$):X$:@24:"PRESS RETURN FOR MENU";XX$:::JD$;"CATALOG":"PRESS RETURN TO CONTINUE ";XX$:T"NAME";:36,7:"#";:36,11:"QTY";:36,15:"BUY DATE";:36,27:"$ N$(I,10)):Y3(N$(I,11))W BD(M130)D1((Y1(Y11))365): DAY COUNT FOR BUY DATE CD(M230)D2((Y2(Y11))365): DAY COUNT FOR CUR DATE SD(M330)D3((Y3(Y11))365): DAY COUNT FOR SELL DATE  X$(TC):36,20(X$):X$;6))(N$(I,7))):N$(I,5);"/";N$(I,6);"/";N$(I,7);:CS(N$(I,3))(N$(I,4)):CS(CS100.05)100:X$(CS) ZCS:70:36,33(X$):X$;: M1(N$(I,5)):D1(N$(I,6)):Y1(N$(I,7)) M2(CP$(I,5)):D2(CP$(I,6)):Y2(CP$(I,7)) M3(N$(I,9)):D3(00)100:XP$(PCT) L (N$(I,1),5);:36,6:N$(I,2);: NAME & LOT # t 36,13(N$(I,3)):N$(I,3);:: QTY F139:"=";:F:: F180:"=";:F::h (N$(I,1),6);:36,7:N$(I,2);:36,14(N$(I,3)):N$(I,3);:36,21((N$(I,5))(N$(I,(Z$)0Z$"00"8 PZZ$(Z$,2):ZQ$"0":X$ZQ$"."ZZ$: ZCST(N$(I,3))(N$(I,4)):CST(CST(N$(I,13))):XC$(CST):SE1ı dVL((N$(I,3))(CP$(I,3))):XV$(VL):SE2ı nGL(VLCST):XG$(GL):SE3ı sXP$"0":CST0ı xPCT((VLCST)1 ***************************1 D$;"MAXFILES1"; 880S D$;"VERIFY INVEST"] "900t (D$;"VERIFY SALES"~ 24050 < < MISC SUBROUTINES > FZ(Z100.05)100:ZZ100:Z$(Z):ZZ$(Z$,2):(Z)100ZQ$(Z$,(Z$)2):X$ZQ$"."ZZ$: KKJ  D$(4)/ ***************************Q * THE NIBBLE INVESTOR *s * BY ALEXANDER LAIRD * * COPYRIGHT (C) 1983 * * BY MICROSPARC INC. * * LINCOLN, MA 01773 * * ALL RIGHTS RESERVED * ! ! ! ! !!!!!!!!!" " " " " """""""""                    !BCPC):NB(NB100.05)100:N$(I,13)(NB):SBBCNB:SUBTR SALE & COMM FROM ON HAND"F1K:A$(F)N$(I,F):F:RI:800:S$"S"SK$"1":FI$"SALES":440:SK$"":S$"":RR1:K15:A$(13)(SB):A$(15)SA$:800:S$"S": UPDATE INVEST & SALES FILES"# 50.!^6:F1K:13:"";F$:F$""N$(I,F)F$K!hF5:13:N$(I,F):13:F!r22:3:"RETURN=ACCEPT ...'R'=RE-ENTER";XX$:XX$""1560S"|S$"S"S1(N$(I,3)):S2(N$(I,12)):ST(S1S2):N$(I,3)(ST):PCS2S1:PC(PC100.5)100:BC(N$(I,13)):NBBC($(I,1);" #";N$(I,2)::4003 "6:F1K:LL$(F):FP 'S$"S"Ģ21:"SELL COMM"n ,6:F1K:13:N$(I,F):F 6S$"E"1630: EDIT @13:F812:13:"";F$:F$""N$(I,F)F$ JF5:13:N$(I,F):13:F OS$"S"Ģ21:13:"";SA$:SELL COMM!T16;N$(I,10);"/";N$(I,11):I:15500J1:K2:440_I1R:N$(I,1)NA$N$(I,2)PS$MRI: HITlI:156022:"ENTER RECORD # TO EDIT ";MR$:MR(MR$):MR1MRR1550SI$"1":IMR:K14:FI$"SALES"K15 440:SI$"":::"EDIT/SELL RECORD ";NF5:10:U$(F):13:F[22:3:"RETURN=ACCEPT ...'R'= RE-ENTER ";XX$:XX$""1420pU$(4)U$(4)"00"~REW:710FI$"INVEST":ED$"S"FI$"SALES":J1:K15:440::"SALES FILE RECORDS":I1R:I;")";(N$(I,1),6);:36,10:N$(I,9);"/"RD # TO EDIT: ";RE3xSI$"1":WRE:K7:560:SI$""H}(U$(4))01420vU$(4)(U$(4),(U$(4))2): CONV TO 100'S::"EDIT RECORD ";NA$;" #";RE::4006:F17:LD$(F):F6:F17:10:U$(F):F6:F17:10:"";F$:F$""U$(F)F$"::"ENTER SELECTION :";ED$:ED$"S"ED$"M"ED$"P"1340OFED$"P"1380PED$"M"ĺ:"ENTER PURCH SEQ#":" (DEFAULT=1) :";XX$:PS$XX$:XX$""PS$"1"Z1510dN11:560:N10n:"THERE ARE ";R;" RECORDS IN THE FILE"::"ENTER THE RECOECORDS >:6:6 S$"E"ĺ"EDIT RECORDS ":1310US$"S"ĺ"SELL INVESTMENT"x:420:"ENTER:";NA$:NA$""ı(NA$"C"İ330:12802S$"S"ED$"M":1360=<12::"SELECT THE FILE TO EDIT: "::"M)ASTER FILE":"P)RICE FILE":"S)ALES FILE$""1150"F811:A$(F)"":F=FI$"INVEST":K14:800(A$(2))11260: SKIP INITIALIZING A PRICE FILE IF ONE ALREADY EXISTSD$;"OPEN ";A$(1);",L50"D$;"WRITE ";A$(1);",R0"0: # RECS D$;"CLOSE ";A$(1) < EDIT RHIT1HIT0::"NEW PURCH. SEQ# IS THE LAST SEQ# +1":d`11:F17:LL$(F):F:F1314:LL$(F):Fwj11:13:A$(1)t12:13:A$(2)~13:F37:13:"";A$(F):F1314:13:"";A$(F):F22:"RETURN= ACCEPT... 'R'= RE-ENTER ";XX$ XX"C"İ330:1050x8I1R:E$(I,1)A$(1)ĺ"PREV. PURCH.: ";E$(I,1);" ->";E$(I,2):HIT1:A$(2)((E$(I,2))1):BUMP SEQ #BI::"THIS PURCHASE WILL BE:":A$(1);" ->";A$(2):L"PRESS RETURN TO CONTINUE";XX$6V:6::"ADD NEW INVESTMENT":::410: OF THE INVESTMENT.":"IF OTHER PURCHASES HAVE BEEN MADE"$"BE SURE TO ENTER THE NAME AS SHOWN":"FOR OTHER PURCHASES."::420:"ENTER:";A$(1):A$(2)"1":A$(1)""ı)(A$(1))20ĺ"KEEP NAME TO LESS THAN 20 CHARACTERS":F11000:F:1050.A$(1)R20ė:"MAXIMUM 20 RECORDS PER 'INVEST' FILE.":"'QUIT' THE PROGRAM AND RENAME 'INVEST'":"TO ANOTHER NAME. THEN YOU CAN INITIAL-":"IZE ANOTHER 'INVEST' FILE.":320SW1ıRR19:6::"ENTER NEW INVESTMENT RECORD":::"ENTER THE NAMEWRITE SALES,R0"0,D$;"CLOSE SALES"64050@QQ1YS$"D"R1Q0:970tD$;"WRITE";FI$;",R";QF1K:N$(I,F):FD$;"WRITE";FI$;",R0"Q< NEW RECORD >J1:K2:440:I1R:F12:E$(I,F)N$(I,F):F,I:K0"