' +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*` ********** INSTALL INPUT-ANYTHING ROUTINE;`X768839IjA:X,A:Ot|~ ********** INPUT-ANYTHING ROUTINE DATA 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165 184,164,185,133,135,132,136,32,44,213,173,0,2,2 ƢĠ٠ƍƍҠԍ 㺍ʱð ЍР͠ ㍪ ̭ 򺍪֫ګ֍̫̍֫֍֍֫֫ҠÍ С٠ЍЍҠԍѠʱ󍪽 ̭ čРڢ̭ڍѠč ӱӍ ̽ 򺍪 ͬ ͺĠ֍ڍ (4);"CLOSE" "GO TO 63958"= (4);"CLOSE"C 1LEAR". n"L = 256*PEEK(106) + PEEK(105) - 4"T x"IF PEEK(L) <> 0 THEN L = L + 1"y "IF PEEK(L) = 0 THEN L = L + 1" "POKE 104,INT(L/256)" "POKE 103,L - 256*INT(L/256)" "LOAD XREF" "POKE 103,1" "POKE 104,8" "GOTO 63956"1T0::26):::10:"ERROR #"(222)" IN LINE "(218)256(219)::"RECORD THESE VALUES:"::"JX="JX" LX="LX" MX="MX:"NA="NA" NL="NL" NS="NS:216,0:):Y%(1,L,MX)063991710);X$(KX);:X13ĺ13X);Q" <:";:63995:63991vJY%(1,L,MX):I0:T0:J063997M101:II1:X%(1,NAI)X%(1,J):JX%(0,J):M(J0): MI11:((X%(1,NAM)65536(X%(1,NAM)0))" ",6);:TT1:T8MY%(1,JX,MX):Y%(1,JX,MX)NANNY:X(IN):LLNLX178::IK::12:18:"3":34)::(4);"PR#1":MX03:20);L$(MX)::L0Y%(1,0,MX)0ĺ10);" UNDEFINED <:";:63995LIX(MX)ĺ(12);:::(4);"PR#0":LL1:KXY%(0,L,MX):X(X$(KX)0,LX1,MX):Y%(0,LX1,MX)T%:T%Y%(1,LX,MX):Y%(1,LX,MX)Y%(1,LX1,MX):Y%(1,LX1,MX)T%:IX(MX)IX(MX)1:NLNL1:Y%(0,JX,MX)NL:X$(NL)I$(Y%(1,JX,MX)0X%(1,Y%(1,JX,MX))(J65536(J32767)))63989NANA1:X%(1,NA)J65536(J32767):X%(0,NA):M(I$X$(Y%(0,JX,MX)))(JXLX):PKXJX:(I$X$(Y%(0,JX,MX)))(JXLX)63980JXJX((I$X$(Y%(0,JX,MX)))(MX0)):MX0I$X$(Y%(0,JX,MX))63987JXJX1:(IX(MX)(IX(MX)0))JX63986WLXIX(MX)(IX(MX)0)JX1:T%Y%(0,LX,MX):Y%(0,LX,MX)Y%(I$,13):12 SPACESRLX0:JXIX(MX):KXJX:((I$X$(Y%(0,JX,MX)))(JXLX))63983(I$X$(Y%(0,JX,MX)))(JXLX)āM101:KXJX:JXJX((KXLX)2.5):M(I$X$(Y%(0,JX,MX)))(JXLX):!(I$X$(Y%(0,JX,MX)))(JXLX)āM101:LXJX:JXJX((KXLX)2)256):P2,((IN)256):X(X200)43(X201)45qM101:I$I$(X):ZZ1:X(IZ):MX47X58::YZN:63978ZZ1:M101:ZZ1:X(IZ):MX47X58:YZN:P,Y:P1,IN256((IN)256):P2,((IN)256)(I$)13I$(" "ZN:GT(X44):P,ZTI:P1,T256(T256):P2,(T256):I$(" "I$,5):63979n (X47X58X46)63989 ZN1:MX3:M101:ZZ1:X(IZ):MX47X58X46::X6963977 ZZ1:X(IZ):(X200X201)63976.P,ZN:P1,IN256((IN)˂N ZZ(X40):YZN:P,Y:P1,IN256((IN)256):P2,((IN)256):63979v ZN:TIN1:X171X176GT163970 X19663971 ZZ1:X(IZ):X171X176TT1:63970 (X47X58)63971Q MX0:M101:ZZ1:X(IZ):MX47X58::YЂ:YZN:P,Y:P1,IN256((IN)256):P2,((IN)256):63979 X194ZN:MX1:M101:ZZ1:M(J$,Z,1)"("ZL::YZN:I$"FN "(J$,N2,Y2):63979 (X64X91)63966 ZN1:MX1:M101:ZZ1:X(IZ):MX47X58X64X91X36X37:2767J63956::IX(0)NS:NLNS:18:"2":12:"PARSING ";:IXX(103) SN1NS:KXX(I):JXX(I2):N4:LKI1:S,L:S1,I256(I256):S2,(I256):GT0:X(IN):20:J;:LL101:Y(X178)? X34MX2:ZN1:M101:ZZ1:M(J$,Z,1)(34)ZL: 󺍪֠֠ı ֠ƠΠؠ ؠӠĠӠؠԠƍؠԠƍƍ 󺍪֠֠ı ֠ƠΠؠ ؠӠĠӠؠԠƍؠĸčà Ģؠġ ؠİضˠؠĸč֠ ؠİԠؠĸčàĢؠİРؠàСؠİƠàƢؠİРàĽ ؠҠؠĸčà Ģؠҍҫ٠ԱҩٍѠӲҠԍٍŠԱӲӍ 󺍪͠ؠĸč֠ ؠİ͠ؠĸč֠ ҠЍ٠Ԡ ٩٠ččҠԍРβ 庍ĠÍàƍРα 庍Ԡ٠ҍŠà󍪽 庍 亍ΠР΍Šč à˱ Щ٠ 䍠Ѡ٠ 䍠ؠƍŠҠ ٠؍ؠΠ ν 䍠٠ҍ Ѡ٠ ҩȠĬؠ àҠԍРԠ ٠àؠ ˱Щ٠ ٍŠ˲àЫ˲̠ 荠РŠ٠ 䍠ؠ Π ؍Ƭؠ ѠȠ 䍠 ŠҍàЫЩٽİİ Ҡ؍Ƭؠ ĠƠ 䍠Ĭؠ ÍàЩ٠ ѠҠ 󍍪 亍̠ 占Р İ̭Ы٠٩ ٠ؠ ٍؠƍҠٍŠ 䍠Π àѠà 䍠٠Ġ 䍠čàҠԍѠàŠҠ̠ 占ҠӠ ˠ ѠР ҠӠ ؠ ̠נΠƬؠ ҩ 庍 ة Š؍ؠàנ 䍠 Р٠ ԠРӠΠ РҠ̠ 썠Рנ Ѡà ㍠Р̭͢ ҍѠ΍РȢ̭ 占ѠˍРբ̭ Šԍ٠ȍ̩٠ ΠƬؠ ƍҠԠ 载Ġð ү׍ð ٠Р ĽЍҠԍ ؠ נҠҠ Рâ̭ 0,192,40,208Z248,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,160,0,140,20896,200,140,209,96,172,209,96,177,254,172,208,96,145,254,238,208,96,238,20996,173,209,96,201,40,208,233,169,160,172,208,96,145,254,165,255,24,101,254H33,254,232,189,210,96,133,253,232q189,210,96,133,252,232,160,0,177,252,145,254,200,192,40,208,247,24,165,253101,252,201,4,240,23,165,253,133,255,165,252,133,254,189,210,96,133,253,232 189,210,96,133,252,232,76,26,96,169,160,160,0,153,0,4,20165L@184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165T135,164,136,133,184,132,185,32,183,0,96,0 SCROLL!162,0,189,210,96,133,255,232,189,210,96,10:(4);"CATALOG"::K$"menu."X:"Press space bar to continue.":49168,0:49152,128b116041NP18(NP9):820(NP9):NP". Quit":X768839"A:X,A:,632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,336):EQ:1230M21::958:"Do you really want to quit? (Y/N)";:49168,0Z" ";MM$(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:::49168,76,2,233,31,76,240,25334,3,201,225,144,6,201,251,176,2,233,31,76,240,253XXrive.":"("(222);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY(16336)(1601,3,208,3,76,99,216^ 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATA 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,1LI$(I);:36,H:1690IPO(LI$(I))ĺA$;:LI$(I)LI$(I)A$:POPO1:1690T1$(LI$(I),PO1):T2$A$(LI$(I),(LI$(I))(PO1)):LI$(I)T1$T2$:POPO1&H(36):H39H0:V(37)1:18500HH1:V(37)::"^";LI$;LI$(I):H1:V1:1690LI$(I),PO1):" "(8)(8);:POPO1:1690EA$(4)PO(LI$(I))1690A$(4)T1$(LI$(I),PO1):T2$(LI$(I),(LI$(I))PO):LI$(I)T1$T2$:H(36):V(37)::"^"LI$;LI$(I);:36,H:37,V:1690PO1LI$(I)A$LI$(I):POPO1:H(36):HH1::"^";LI$;:IJ1LI:LI$(I1)LI$(I)::LI$(LI)"":LILI1::_A$(13)LI$(I)LI$LI$(I)::LI$(I):A$(4)(LI$(I))1LI$(I)"":1690A$(4)PO1LI$(I)(LI$(I),(LI$(I))1)::2:LI$;LI$(I):3:8:PO1:1690&A$(4)PO(LI$(I))LI$(I)(LI-->EDIT<--APO1:LI$(LI$(I),6):LI$(I)(LI$(I),(LI$(I))6)N"^";:8A$:A$(21)POPO1:H(36):H39H0::36,H:1690A$(21)HH1:36,H:1690A$(8)PO0POPO1:A$;:1690A$(8)PO016903A$(13)LI$(I)""JINE SEARCH<--3@LI1ĺ(7)"+++ WORK FILE EMPTY":cJ(LI$,5,1)(32)ĺ(7)"+++SYNTAX ERROR":TLI$(LI$,(LI$)5):SE(LI$)^I1LI:SE((LI$(I),5))FLIh:FL0IFL:FL0::2:LI$(I):3:1660r(7)"+++LINE NUMBER NOT FOUND": |R9ĺ(7)"+++ DISK FULL":140DER10ĺ(7)"+++ FILE LOCKED":140rEL870ĺ(7)"+++ DOS COMMAND ERROR":140ER53ĺ(7)"+++ ENTRY ERROR":140"ER16ER11ĺ(7)"+++SYNTAX ERROR":140,"ERROR TYPE :"ER:"ERROR LINE :"EL: 6-->EDIT LI$(I):(4)"PR#0"6 -->ERROR ROUTINE<--UER(222): <-- ERROR TYPEEL(218)(219)256: <-- ERROR LINE768ER255ĉ::OTHER ERRORSER6ĺ(7)"+++ FILE NOT FOUND":140ER8ĺ(7)"+++ I/O ERROR":140E":" "A$A$;:13006(A$(8)(LI$)0ĺ" ";A$;:1300I2A$(21)1300^<A$;:A$(13)ısFLI$LI$A$:1300yPZ -->CENTERING ROUTINE<--d21(A$)2:A$:nLI$(500):x -->PRINTER RTN<--(4)"PR#1":(9)"80N"I1LI:LI$(I)LI$:LILI1:?I1LI:((LI$,5))((LI$(I),5))1260EMJI{ILIJ1:LI$(I)LI$(I1)::LI$(J)LI$: -->READ KEYBOARD<-- "^";:LI$""A$:A$(8)(LI$)1LI$(LI$,(LI$)1):" "A$A$;:1300A$(8)(LI$)1LI$"1);",R0"0: # RECS 0D$;"CLOSE ";A$(1)6M < EDIT RECORDS >X:6:{ S$"E"ĺ"EDIT RECORDS ":1310S$"S"ĺ"SELL INVESTMENT":420:"ENTER:";NA$:NA$""ı(NA$"C"İ330:12802S$"S"ED$"M":1360<12::"SELE"";A$(F):F=22:"RETURN= ACCEPT... 'R'= RE-ENTER ";XX$OXX$""1150gF811:A$(F)"":FFI$"INVEST":K14:800(A$(2))11260: SKIP INITIALIZING A PRICE FILE IF ONE ALREADY EXISTSD$;"OPEN ";A$(1);",L50"D$;"WRITE ";A$(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,623 X X8,196,96,0,0,7,208,7,80,6,208,6,80,5,208d 05,80,4,208,4,80,7,168,7,40,6,168,6,40,5,168,5,40,4,168 :4,40,7,128,7,0,6,128,6,0,5,128,5,0,4,128,4,0,97,141 N 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253 0,253201,4,208,196,96,162,0,189,210,96,133,255,232,189,210,96,133,254,232,16038,140,208,96,200,140,209,96,172,208,96,177,254,172,209,96,145,254,206,20896,206,209,96,173,209,96,201,0,208,233,172,209,96,169,160,145,254,165,255( &24,101,254,201,4,20Q 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";簍 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::"PAB$;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&18`````(e``L`(````Ȍ``````(驠`e```&`Ȍ```````e`PPPP((((  (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:10,96,133,253,232a189,210,96,133,252,232,160,0,177,252,145,254,200,192,40,208,247,24,165,253101,252,201,4,240,23,165,253,133,255,165,252,133,254,189,210,96,133,253,232189,210,96,133,252,232,76,26,96,169,160,160,0,153,0,4,200,192,40,208J,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165T135,164,136,133,184,132,185,32,183,0,96,0 SCROLL162,0,189,210,96,133,255,232,189,210,96,133,254,232,189,2"::K$"menu."H:"Press space bar to continue.":49168,0:49152,128R116041NP18(NP9):820(NP9):NP". Quit":X768839"A:X,A:,632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165<@184,16421::958:"Do you really want to quit? (Y/N)";:49168,0J" ";MM$s(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:::49168,0:(4);"CATALOG11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,253:);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY(16336)(16336):EQ:1230=5K~ 184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216 169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 135,164,136,133,184,132,185,32,183,0,96,0 ********** UPPER/LOWER CASE ROUTINE DATAM 160,ER/LOWER CASE HANDLER 3854,240:55,253:1002:cB ********** INSTALL INPUT-ANYTHING ROUTINErLX768839VA:X,A:`j ********** INPUT-ANYTHING ROUTINE DATAt 32,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,16 WAIT FOR KEYSTROKE FLAG$""i23:" for next page or for menu";:49168,0:49152,128(49152)155FLAG$"ESC" *********** ATTACH UPPER/LOWER CASE ROUTINE$I023:ML:768I,ML:I:768:. ********** DETACH UPP(1101)6ė:768h(222)6(222)8Ģ19:(7);"Disk Error. Please insert Nibble disk":99019:(7);"An error #"(222)" has occurred. "23:"Press to continue ";:958:49168,0:49152,128:590 **********really want to quit? (Y/N)";:49168,0=z49168,0:49152,128o(49152)249(49152)217Ĺ49168,0::1080:u ********** SOUND BUZZER FOR WRONG KEYSTROKE EQ110:EY(16336)(16336):EQ: ********** ERROR HANDLING ROUTINE******* EXECUTE A VALID MENU CHOICED>49168,0::1080:D$;RC$(SL)hH ********** CATALOG SELECTED R::49168,0:(4);"CATALOG":\:"Press to continue.":49168,0:49152,128:f ********** QUIT SELECTED%p22::958:"Do you NOS:770:Z10690 790J ********** PRINT POINTER SUBROUTINEg61N:SX:X$(SLOS);:  ********** SELECTION ROUTINESL(ME1)İ850:590 SLMEİ880:SL1:770:670*2:1:" "::2:1:RC$(SL):#4 ***Z0:24:868q1:12:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(ME)SL(Z$):NOS:770:690Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z930Z20ī400SLSLZ(Z10):SLSLME(SLME)ME(SL1)". "MP$(I):561(ME1):8:ME1". Catalog Disk"P61ME:8:ME". Quit"21:"----------------------------------------"23:1:"Type number or use arrows, then ";:PX10:SX4:SL1 ********** SELECT CHOICE NSL:OSSL:770:D COPYING IS ILLEGAL":1010<D ********** SET UP MENUbNMEMM2:X$(0)" ":X$(1)"-->":X1:1:"Selection: : Instructions"b3:"----------------------------------------";l5:20((A$)2):A$ vI1ME2:61I:8:I32,183,0,96,0e^ 160,11,169,3,132,54,133,55,76,234,3,201,225,144,6,201,251,176,2,233,31,76,240,2537L632,190,222,32,227,223,36,17,208,5,162,163,76,18,212,133,133,132,134,165@184,164,185,133,135,132,136,32,44,213,173,0,2,201,3,208,3,76,99,216J169,0,133,13,133,14,169,0,160,2,32,237,227,32,61,231,32,123,218,165 T135,164,136,133,184,132,185,::49168,0:(4);"CATALOG"::K$"menu."f:"Press space bar to continue.":49168,0:49152,128p116041NP18(NP9):820(NP9):NP". Quit"::2:1::"GALE DEMO"::49168,0:(4)"RUN GALE DEMO"X768839"A:X,A:,(16336)(16336):EQ:1230[21::958:"Do you really want to quit? (Y/N)";:49168,0h" ";MM$(MM$,1)"Y"(MM$,1)"y"ė:1500:SF418:SF:" ":SF:1210I023:ML:768I,ML:I:54,240:55,253:1002:,is disk !"::1190{nSF418:SF:" ":SF:19:(7);"A disk error has occurred. Check drive.":"("(222);")"::1190x(1360)193(1360)211Ģ19:1:" ":2:1:" "EQ110:EY)1510(SL(NP2)1550*2SLNP1430d<2:1:" "::2:1:P$(SL)::1370jFP49168,0::1500:(4)"RUN";P$(SL)Z(1101)6İ1480:768d(222)6āSF418:SF:" ":SF:19:(7);"Sorry. That file is not on th:560SLSLZ(Z10):SLSLNP(SLNP)NP(SL1):(1360)193(1360)211Ģ19:1:" ":2:1:" "NOS:1290:Z101220 41N18(N9):SX20(N9):X$(SLOS);:SL(NP1:SL1:1220:13004NSL:OSSL:1290:Z0:24:86823:PX:SL:49168,0:16384,128::Z$((16384)128):Z$"1"Z$(NP)SL(Z$):NOS:1290:1400:1220Z(Z$(21)Z$(10))(Z$(8)Z$(11))10(Z$(13))20(Z$(27)):Z1420Z20ė:0(NP19):NP1". Catalog Disk":1540:1:"