' +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*`Š͠ҠԠԠŠӠӠǍҠ͠ΠҠҠčԠàԠӠǠӱРĠӠ٠ұðìؠč̠ұӲҠĵĠԠˠŠұҲðìؠ̠ύ٠ĠĠҍ٠ԠӍؠ ԠԍҠĠĠҍҠıōȠҠϠȠ͠ΠҍƍРϠϠԠŠҠϠ؍؍؍ŠұРƠŭҠΠנōĠҠŠō٠ ٠ˠϠԍҲÍҍÍРƍŠҳ٠ĵѠҳٍ؍ҳٍŠҲĠҠҠҠРҠ٠̱٠ԍѠ̲ҠԍٍŠ̱̲ӍǍҠŭԍŠҠ͠ԠϠŠĠŠԠōԠؠˠōؠŠϠŠұŲŲРԍǍ̠ΠԍԠҠō٠ٍٍٍÍàٍà٠٠ŠȬ֍ٍٍӪӠӠӪԠӠӪЍҲЍҲ٠ԠנҠˠϠҠ̍ЫٍҲٍ؍؍̠ҍ ؠӲϠԠӠҠԠӠ Ӭ؍̬؍؍̠РҲ̠ӠΠЩٍàǠӠΠĠӭؠԠŠƠҍĠŠŠӠƠŠǍҠҠƬŠ΍٠ŠӬԍٍԭؠΧԠŠԠŠԮҲԬ؍РîŠΠ͠ӠǠӮЫРӠȠΠ͠ӠԠΠϠàЫ̭ؠԠԠōҲ̬؍ҲǠٍ٠ƍѠčҲ٠ŠŠǠϠӠנ󠭭􍪍ΠӠϠŮӠؠӲҠӬ؍٠ŠŠӠϠ٠ŬؠѠΠƠŠŠ٠ӭàΠŠŬŧŠŮЍàӬ؍čԬ؍Ҷӭ؍ӠҶÍàرŠرϠԠϠŠرԠҠҠҮàӍàرӠؠر٠Ӎ堍ΠӠӠ̬؍ȍӬؠŠӠȠرԭؠŠҠˠϠŭرҢŠϠΠŠǠӠĬӠҠ΍؍ӭ؍ӭ؍Ԭ؍ԭ؍ԭ؍ԭ؍ؠ֠ĠȠ؍؍àӠϬϠҍؠ֍ǠנԠӠӠҭ̭ؠϠŠӠǫԻԠԍǍР̭؍ǫà̬؍àÍؠ֠ŠΠϠϠϠύؠŠ͠ΠŠҠٍӠ̭؍̭؍̬؍̭ؠŠ΍Ӭ؍ӭ--------"" SEPT. 1, 1980 "5"---------------"K" ERIC E. GOEZ "a"---------------"gm4,13:24::829:"= ";RV;:868:Q N::"BY ERIC E. GOEZ":(222)255Ĺ216,0:*N:"ERROR #";(222);" ON LINE #";(218)(219)256;" HAS OCCURED.":"CONSULT PAGE 81 OF THE APPLESOFT MANUAL AND PAGES 114 & 115 OF THE DOS MANUAL.":216,0: "-------z z 7v v u کv u `hh~  ;  ; LhhȱeiHH$ȱ% B `L}J>}}V})?}V# V}]| }]} ˠӺ ՠɠӠӠӠčŹ²³ؠ´µ¶·¹ijؠĶķĹŵŶŷŹÍؠƲƳƴƵƶƷƹƍҠ̠҄ؠĵƍؠĵčƠӠؠčàԠ٠٠ϠέظİàؠàŠҠ˿ٯΩؠűؠàˠŠĢؠŲؠàˠɯϠҢؠǍҠŠōԠؠ¹àŠ̠ŠŠͮؠĸİǠؠàҠǠ͠źؠĸİӠؠŠàȠԿؠĠؠàȠſؠРؠàŠˠΠŢؠĸ٠ՠİÍԠՠčРՠôӠՠİӠՠӠԱؠĠà̠ŠؠԲؠàʮîΠؠĸčàǠ٠ξҠ٢ؠčĠҠҢǍɯϠˍ נ̠נҠנϠנҠנŠנԍؠ͠נàנϲנ̲נҲנԠؠĸӍŠՠõҠՠķҠ٠Ԡ٠Š̠Š͠Ҡ̠̍̍àŠ٠Š٠؍ؠ¬àԠŠòàӠҠ¬àŠñ٠ŠˠŠҠӍҠРƲŠԠ٠ԠҠ٠ñؠԠ¬àҠò٠Ԡ̠ŠҠŠԠ̠ìؠĠϠ٠Š ҠŠԠ̠ؠĠϠ٠ŠààŠԠ٠ӺӲ٠àҷ٠ðìؠ̠ҷҠ٠ŠĠ͠٠Í٠ŠٍŠӲˠҠҠ͠Ҹ٠ðìؠ̠ҸҠ٠ŠŠԠƠԠ̬ԠҠӠĠĠҿŠԠϬԠҠӠӱŠҠĠĠŠԠ٠̠Ӡӱ٠ÍҶ٠ðìؠ̠ҶҠ٠ŠĠ͠٠àٍ٠ŠŠӱĠŠҠӳ٠ҠĠŠ٠ŠҠŠҴðìؠ̠Ҵ̠źԠÍҵðìؠ̠ҵĠàźŠ٠Š̠ԠҠŠҴРԠҠӠРРŠӲРҳðìؠ̠ҳРµѠӳĠҠˠРǠҠàԠϬԠҠҠĠĠˠѠԠƠčŠԍĬŠ΍ͱàōōРŠͲؠҍѠͱͲРčԠōōàҍŠōͳӍӠҠЍҠȠ΍ÍРŠűҠԍűѠŲűҠԍðؠРҍӍǍŠӠϠˍӠӍӍ͍ōҍŠ٠ҠӍӠҠàРӠŠͳРԠĠŠРРة٠ðĬؠōðì؍Р٠٠ԠԴƠ٠ōРةðĬ؍ðì؍ðŬؠŠōðì؍РРðĬ؍ðì؍РР٠ŠԲԠԳԠԠԠŠР٠ðĬؠōðì؍Р٠ŠԳԠԴҠŭԍÓðĬؠŠōðŬ؍̠ԱРҠԱƠРةðƬؠ̠ōðì؍٠àԲԠҠ̠ƵٍŠƵƶðì؍̠ƶРƠҠŠƱƷðì؍̠ƷРŠƱӠԠƠҍ٠Ƹðì؍̠ƸٍŠƸ٠ՠЍ٠ƹٓŠƹРǍԠӠàčРҠĠҠҠԠĠؠ̍Ʊðì؍̠ƱƲРĵĠҠˍŠƱƳðì؍̠ƳРŠƲƴðì؍̠ƴРµŠƱ٠Р̬ˍƵðì؍ÍŠεàčεɬؠŠӠؠŠδР٠Ԭ٠Š͠٠é٠Š͠ǍϠϠˠϠ͠ҠŠ٠ҠӠβҠӭؠ͠٠Ԭ٠٠é٠ŠàÍŠγàčγؠŠαРӠŠ͠δҠɬؠ͠٠Ԭ٠٠é٠Šàؠ٠РŠŠҠɠ̠ӍñӬؠĠƍӬ؍ؠؠԠñŠӍƠÍƠčؠŠβαӬؠŠԍ͠РİˠϠïӠǍŠҠŭԍŠ٠ؠŠ٠Ԭ٠ԠŠҠĠӠ̠Ӭ؍Ҡ̠Ӭ؍ɬ٠ŠӠؠؠ̠РԠŠǍԠȍ ӫŲŠҠԍЍŠð̠ōðҠӠŠӠϠˍҠŠ͠ŠԠҠǍԠҠԍÍҠٍР٢Š͠РɍѠ͍Р±ԠԍР·ŠԍҠԍĠ̠ԠҠ ̍̍̍̍ԠōŠҠԍčҠٍРčѠ͍Р±ԠōР³ŠōҠԍĠҍ؍؍ؠŠҠԍǍؠҠҠѠ͍РؠȠŠǍұؠŠŠϠӍРčѠԍӫ؍؍ŠұԠԍԠҠԍӍҠٍР 9ң٠Šōʮî΍ҠźǠԠҠŠҠԍԱҠԍԲԠǠ͠ōǠؠϠŠҠӫ          .VTAB"< :8210:INPUT.VTAB.HTAB3F :8240:GETIP :8250:GET.VTABdZ :8260:GET.VTAB.HTABd ********.DISPLAY.TIME.******** e DP$" !#$%&'()*+,-./0123456789:;<=>?@ABCDTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~":"DISPLAY 200 LINES OF 80 IF VT = 1 THEN X = 1 1100: 2756! <P196X11 AP213X1L FVT12X1āN11000:d KVTVTX:VT24VT1t PVT1VT24| U35 Z PRESS U TO MOVE SIGN UP PRESS D TO MOVE SIGN DOWN  d TO "BOUNCE" THE SIGN, ENTER 75 VT = VT + X: IF VT = 24 THEN X = -1! L )2 `J?0 f3 / )IQJQ!:BQ|$q*q $3 ɃLAɜ |a9a: *4 f $9 LA LA IAYA!!:Jl;8 32)81 5 (98 MJ78%9<)q(q LA <2qq"l ):(; )8*9(  ?';ު &; LAl; )8l; ):l; (1*2 5 LA )4$( J$1I ɃLժުժd +5%7LA+X6 l;8Ll8( )`  +) H 5 ': ?7ʆ 7AY` ):(;% Lu <)q'q*qq , 7`y?ŠŠͮ ҠǠ͠źȠԿȠſ ŠˠΠōԠ٠٠ϠέŠҠ˿ٯΩˠŠˠɯϠ*<%<(=о<Y<<Y<&，YЍ`J>J><& <&3*`L-` }`̠ŠʮîΠǠ٠ξҠٍŠ̠ &"B%()=";:X0L:" ";B%(X);::T LOCS 131 & 132 . 4100: SAVE BINARY FILE R > CLEAR B%() TO PROVE IT WORKS H"B%()=";:X0L:B%(X)0:" ";B%(X);:::  NOW RELOAD B%() FROM DISK B%(0)B%(0): SET LOCS 131 & 132 200: LOAD BINARY FILE  PRINT NUMBERS AGAIN #  INTEGER ARRAY BSAVE/BLOAD R L14:VL(L1)2: LENGTH OF B%() IN BYTES v B%(L):VN$"B%()": ARRAY NAME CREATE NUMBERS IN B%() "B%()=";:X0L:B%(X)(1)6553532767:" ";B%(X);:::  SAVE B%() ON DISK  *B%(0)B%(0): SEE BINARY FILE 1  CLEAR A() TO PROVE IT WORKS ^ "A()=";:X0L:A(X)0:" ";A(X);::: ~ X NOW RELOAD A() FROM DISK bA(0)A(0): SET LOCS 131 & 132 l200: LOAD BINARY FILE v PRINT NUMBERS AGAIN  "A()=";:X0L:" ";A(X);::::POINT ARRAY BSAVE/BLOAD F L12:VL(L1)5: LENGTH OF A() IN BYTES h A(L):VN$"A()": ARRAY NAME  CREATE NUMBERS IN A() "A()=";:X0L:A(X)(1):" ";A(X);:::  SAVE A() ON DISK A(0)A(0): SET LOCS 131 & 132  100: SAV x:D$"BSAVE B.A.ARRAY."VN$",A"VP",L"VL::: L BLOAD ARRAY FUNCTION s 60: GET VP; VN$ MUST BE PRESET :D$"BLOAD B.A.ARRAY."VN$",A"VP::: , MAIN PROGRAM 6D$(4):VP0: SET BEFORE USING @D$"MONCIO":::   FLOATING 'K BSAVE/BLOAD ARRAY BY RICHARD C HORSFALL CALL -APPLE * JAN 1981 W2300: x< VARIABLE POINTER FUNCTION F60,(131):61,(132):VP(60)(61)256::VP=0 TO 65535 d BSAVE ARRAY FUNCTION n60: GET VP; VN$ & VL MUST BE PRESET 0     0:INPUT.VTAB- H1$:8210:INPUT.VTAB.HTABAH1$:8240:GETZ H1$:8250:GET.VTABx*H1$:8260:GET.VTAB.HTAB4H1$:8270:DISPLAY.PAGES>H1$:8390:FORMATHH1$:8430:GEN.CURS.POSRH1$:8450:GEN.CURS.POS.NO.? *.GOTOXY.* 0:VTABH1$:8050:HTAB0H1$:8060:POSFH1$:8070:FLASH^H1$:8080:INVERSEtH1$:8090:SPEEDH1$:8110:POKE36,10H1$:8130:POKE36,60H1$:8150:PRINT.W.,H1$:8170:PRINT.W.;H1$:8190:INPUT H1$:820:8450:GEN.CURS.NO.?(t *.GOTOXY.* ^~H$:3710:(30);"4";"*";:"XY":9310:GOTO20,10:zH$:8900: MANUAL.EDIT:MENU ********.SMARTERM.************** IN:D$"PR#5":H1$(12):SL5H1$:8020:LISTH1$:804H$:8170:PRINT.W.;(H$:8190:INPUTBH$:8200:INPUT.VTABa$H$:8210:INPUT.VTAB.HTABt.H$:8240:GET8H$:8250:GET.VTABBH$:8260:GET.VTAB.HTABLH$:8270:DISPLAY.PAGESVH$:8390:FORMAT`H$:8430:GEN.CURS.W.?jH$ 3040:"NORMAL MODE NOW":93103 H$:8020:LISTG H$:8040:VTAB[ H$:8050:HTABn H$:8060:POS H$:8070:FLASH H$:8080:INVERSE H$:8090:SPEED H$:8110:POKE36,10 H$:8130:POKE36,60 H$:8150:PRINT.W., Z$CN$ K124$ ::I491273 ::::(I);= :::S K:N$:9310:: l CN$"2":N$"FONT 1"v 3040& CN$"3":N$"FONT 2"0 3040: CN$"1":N$"18 LINES"D 3040N CN$"2":N$"FONT 1"l 3040 CN$"0":N$"24 LINES"346,20:25345,10:25364:"XY":9310: GOTO20,10:L :8900: MANUAL.EDITX :MENU ********.VIDEOTERM.*************  D$"PR#5":Z$(26):CN$"0":H$(12):SL5 "INITIAL SEQUENCE 24 LINES":3040:3090 **.CHANGE.&.?.FONT.** 80 CHAR":9310f 9454:TIME10g 9458:TIME2Eh TD$:SD02662\i 9310:9454:TIME1sj I1200:DP$;::k 9458:TIME2l TD$:9310n :8390:FORMATx :8430:GEN.CURS.POS :8450:GEN.CURS.NO.? *.GOTOXY.* 2 :3710:25ӠΊa(ä)E@QԠӠΊ a(ä)E@Qa(ä)E@*]נŠäϠˊ4@p@]ԠӠ>\]Š٠"H]ҠäϠŠԠӊ R@p()\a(ä)E@!f]נĠä͠ˊp@p@]ԠӠz\]Ġ٠]Ԡcc] ]Ǡ٠ůĊ qq]ȠƠä@p(ä)]٠ N@"r!]ŠӠΠä@p@]ԠӠ\n]Ԡ UVWdeY de]ǠĠ ]Š٠#]ҠϠŠԠӊ a()G(UVW-rqa()F-rGYc] ]נĠ͠ˊ&q]ԠӠ0\]Ġ٠:]ԠӠΊ Da()G!NUVWa()F-rGYع]!]Ҡ٠ůĊ q #q8r]Š@p()]٠ O4r]ŠӠΠ a()G(UVW-rq/?ra()F-rGYc]ŠΠˊq]ԠӠ\.a@E(Š®ɮٮ)E@E()FE()F[]]Įɮ٠Ί\n]Ԡ]ΤԠŠŭ&a@E(Ġ®ɮٮ)E@E()F[],]Π͊ 6N@"r@@p()]̠Ja@E(ìɬ)TK ^M6#' ]ůĠҠàي6]٠Ġî̠̊ŠΠ d_,]!n]ŠҠΊ'xq.?r.?r]нϠ[]]Ůɮ٠Π+\n]ԠРΤ̠ԠŠ     310:!%" **.MANUAL.CURSOR.** u%""NOW TRY THE FOLLOWING AND THEN ":"'GOTO 1000'":"ESC A ESC B ESC C ESC D"%""RIGHT ARROW LEFT ARROW":"ESC IIIKKKMMMJJJ"%""TYPE SOME INPUT AND X"&""TYPE A PRINT STATEMENT, EXECUTE, THEN":"USE CURS9310:,$ **.GENERAL.CURSOR.POS.W.?.** $ 8430:10:10)"ANSWER:N":((37)1)::36,16:":";:B$:B$;:"HERE":"NOW HERE":9310:$ **.GENERAL.CURSOR.POS.NO.?.** %!8450:10:10)"ANSWER:N";:((37))::36,17:B$:B$;:"HERE":"NOW HERE":908285#l 9310&#q *.DO.TEST.* 7#v 9254:TIME1N# I1200:DP$;::_# 9258:TIME2p# TD$:9310:# **.FORMAT.** # D15:A(1)23.567:A(2)1234.005:A(3)2:A(4).005:A(5).999# "FORMAT DECIMALS":9310$ I15:WA(I):20050:::N";:13:A$:A$:9310:1"N **.DISPLAY.TIME.* "X DP$" !#$%&'()*+,-./0123456789:;<=>?@ABCDTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~""[ "DISPLAY 200 LINES OF 80 CHAR":9310"\ *.INIT.TIME.* "] 9254:TIME1"^ 9258:TIME2"b TD$#g SD0! 8200:9310:10:10:"WHAT:";A$:A$:9310:n! 8210:9310:12:"ANSWER HERE:NO";:13:"";A$:A$:9310:!& **.GET.** !0 8240:9310:A$:A$:9310:!: 8250:9310:10:10:A$:A$;:"HERE":"NOW HERE":9310:"D 8260:9310:12:"ANSWER HERE:0:  **.POKE36,60.** B 8130:9310:36,60:"POKE":9310:Z  **.PRINT.W.,.** 8150:9310:I18:I3,:::9310:  **.PRINT.W.;.** 8170:9310:I18:I3;:::9310:  **.INPUT.** !8190:9310:"WHAT:";A$:A$:9310:9310: **.FLASH.** ?8070:9310::"FLASH"::9310:U **.INVERSE.** |8080:9310::"INVERSE"::9310: **.SPEED.** 8090:9310:100:"SLOW PRINTING":255:9310: **.POKE36.10.**  8110:9310:36,10:"POKE":931S.********** J **.LIST.** 8T8020:9310::9310V^8030:9310:110:9310:ic **.VTAB.** h8040:9310:10:"HERE":9310:m **.HTAB.** r8050:9310:10:"NOW HERE":9310:w **.POS.** |8060:9310:10:"10 ";:(0):AB.HTAB$H$:8270:DISPLAY.PAGES:H$:8390:FORMATVH$:8430:GEN.CURS.POSs"H$:8450:GEN.CURS.NO.?, *.GOTOXY.* 6H$:3710:(30);"4";"*";:"XY":9310:GOTO20,10:DH$:8900:MANUAL.EDITN:MENU @ ********.DISPLAY.SUB:8090:SPEED&H$:8110:POKE36,10?H$:8130:POKE36,60XH$:8150:PRINT.W.,qH$:8170:PRINT.W.;H$:8190:INPUTH$:8200:INPUT.VTABH$:8210:INPUT.VTAB.HTABH$:8240:GETH$:8250:GET.VTABH$:8260:GET.VT0:\H$:8900:MANUAL.EDIT)f:MENUSp ********.FULL.VIEW.************* \zIN:oSL7:H$(12)}D$"PR#7"dH$:8020:LISTiH$:8040:VTABnH$:8050:HTABxH$:8060:POSH$:8070:FLASHH$:8080:INVERSE H$H$:8240:GET+H$:8250:GET.VTABHH$:8260:GET.VTAB.HTABeH$:8270:DISPLAY.PAGES{&H$:8390:FORMAT0H$:8430:GEN.CURS.POS:H$:8450:GEN.CURS.POS.NO.?D *.GOTOXY.* NH$:5710:(30);"4";"*";:"XY":9310: GOTO20,1H$:8060:POS"H$:8070:FLASH9H$:8080:INVERSENH$:8090:SPEEDgH$:8110:POKE36,10H$:8130:POKE36,60H$:8150:PRINT.W.,H$:8170:PRINT.W.;H$:8190:INPUTH$:8200:INPUT.VTABH$:8210:INPUT.VTAB.HTABFH1$:"GOTO X Y OF 20,10":(30);"4";"*";:"XY":9310: GOTO20,10:bH1$:8900:MANUAL.EDITh~ ********.SUP'R'TERMINAL.******** SL3:CS7D$"PR#"SLH$(12)|H$:8020:LISTH$:8040:VTABH$:8050:HTAB lHp֍q֥tsr .բ lխuPvQ ֐1 #:ȑ(srpq֭th`ZLԩ0";:-N: 9-Y ********.SAVE.****************** Z-YD$(4):CS3:D$"MON I,O,C"w-Y"THE PROGRAM IS: "NA$:-Y"DRIVE ";:A$:A$:A$(13)23130-ZA(A$):A223080- ZSL0:9200:TIME-ZI15:I2058,((TI$,I,1)):.ZI711:I2999)(((X))9999)(((X))99999)(((X))999999)W,4NF(X)(X)((X)100.5)100],>N,HN ********.PRINT.SUB.************* ,RNWF(W),\N36,DT(W),fNW(W)ĺ"0";,pNW;,zN(W(W.5)).001ĺ".00";:-N(10W(10W.5)).001ĺ"** E+$9410:H1((TI$,7,2))::M1((TI$,10,2)):S1((TI$,13,6)):+$9410:HD((TI$,7,2))H1:MD((TI$,10,2))M1:S2((TI$,13,6)):9260:CALC.&.RETURN+ N ********.FORMAT.FUNCTIONS.****** 4,*NT(X)(X0)2(((X))9)(((X))99)(((X))EN.PAUSE.********** X*^$:"**********......ANY KEY......**********";:A$::A$(3)Ā^*h$*$ ********.TIME.DOUBLE.******** *$25400,192*$D$;"IN#"CS:D$"PR#"CS*$" ";TI$*$D$"IN#0":D$"PR#0":*$25400,0:+$ **.CLC.TIME.DOUB.E2.** K)*$9210:HD((TI$,7,2))H1:MD((TI$,10,2))M1:S2((TI$,13,6))e),$SDS2S1SC:SCS2S1{)6$(SD).0015SD0)@$SD0SDSD60:MDMD1)J$MD0MDMD60:HDHD1)L$TD$"ELAPSED TIME="(HD)":"(MD)":"(SD))O$*T$ ********.SCRE# ********.TIME.****************** A(#D$;"IN#"CS:D$"PR#"CSN($" ";TI$j($D$"IN#"SL:D$"PR#"SL:("$ ********.CALC.TIME.************* ($$ **.GET.TIME1.** (&$9210:H1((TI$,7,2))::M1((TI$,10,2)):S1((TI$,13,6)):)($ **.GET.TIMF AVAILABLE"%'#"TRY L CLR SCRN"+'##U'(# ********.INITIALIZATION.******** '2#16298,0:::D$(4):HRES.OFF.CLR.SCRN'<#CS3:CLOCK.SLOT'F#2:GET.NAME'd#20000:24000:FCTNS&TITLE'n#1000:MENU'x# OUT:D$=DOS.CMD..NA$=PGRM.NAME&(OR TO EDIT AND RE-EXECUTE"s&""ESC E-CLR EOL":"ESC F-CLR EOS, ESC G-TAB8, ESC H-TAB-8":"ESC L-DWN 4, ESC N-UP4"&#"TRY CONTROL CHAR: E DWNTAB,F UPTAB,":"G BELL,H BCKSP,I TAB,J LF,K CLREOS,":"M CR,R BCKTAB,Y HOME" ' #"LIST-TRY STOP LIST & FLUSH IЍؠ֍٠֍¸¸ĶĶ¹¹ӍҺĠԍŠؠƠԍҠРĴҍƹٍѠō©ٍٍ̠̲ؠ¶ϠǠҍ̠ҍנԠ͢ԠĠƠנŠΠŠ͠Š©٠Š²ٍ©٠Š͍ŠӠĠԠӠͮŠĠΠ͍Π͠ήΠ¬Í͍ͫҠĶ΍àŠȠϠȠŠƠŬΠŠӠčנŠĠҠϠōԠΠĠΠ٠̲¸Ķ¹¹ؠ֍٠֍ЍԠ͠ԠŠύҬǠԍؠԠҠĵŠΫŠŠԠŠϠԠӠؠƍҠĵàΫĠǠԠ¸ՠĶՠ֠ՠ֠ՠ¹ՠ͠ՠŠŠŠǠʠŠӠĠԠӍ¸¸ĶĶԠϠź͠堣ԢŠ堣̠ͫ͠ ңԠԠŠҠ䠱젭ЮЮ̮Ů  h0 rs A H `a A ` (CE$)2:CE$;:39:"*"::CENTER70^"*";:39:"*":**************** =/]3:24050:24070:CE$NA$:24060:24070n/]CE$"BY BOB HUELSDONK":24060:24070:24070/]CE$"":I20592066:CE$CE$((I))::24060:24070:24050/]9310::SCRN.PAUSE /]I139:"*";::::*LINE"0]"*";:20061,((TI$,I,1))::1".(Z23140;.2ZD$"DELETE "NA$",D"A[.!^_^ȱ^ȱ^eȱ^e(ӊ0ȱ^ ie^^__Ŕ ^0ȱ^0L-!ȱ^ȱ^oȱ^p͘!!hmnТ!ʥݗ!!!!!!!!!!  ǫà̫àӠϬנԬϠϠԠŠǠӠԠŠŠ͠РčǫàīàӠƠŠ͠ΧԠҠǠؠӲȠՠԠƠӍà؍ؠǠǍРРӠӠŠŠŠŠٍرٍǫàЫˠƠǠРӠӠӬԧӠΠĠōǠӠԠΠҠŠР̠ŠϠԠŠΠԍɠӠƠԬ٠ŠԠŠٍرٍɠӠРӠϠŠԠŠٍҠر٠ӠӠǠȠѠӠӬΧԠ٠Ԡԍȍٍر٠ԠӠƠŠѠӠϠҠҠϠӠԠƠŠ٠ѠҠĠР󍪠Ӡر٠ӠԠŠǠҠǠƠǠ٠ٍر٠ԠƠӠҠӠ٠٠ĠРҠŠ͠Ӯ̍ààررàԍàرԠؠرҠؠԫĠƠŠٍŠύРԍŬٍЍٍرٍàԠ٠ӠӠҩԠŠԠƠԠ٠ٍرٍàԫԫРӠӠǠٿ̠ƠԬϠԠ٠ɠȠΠ٠ӍҶԍؠԫؠīŠȠӠԿŠύРčŠРӠӬȠРĠϠŠϠرؠر٠رٍ؍ٍررҠؠ«ŠȠŠӠŠύРѠҍϠҠӠϠŠŠѠҠӠΠҠԍؠԫڠӠŠӭԠɠ٠ǠӍؠرҠРԠŠȠӿѠӍҠҠϬϠЍѠҠЍӠŠӠӠӠǠҶؠ«ԠԠƠŠӠرؠĠӍҠؠڠԠ͠Р΍ګҠؠЍЫҲԠԠ٠ǍǠӮӍؠԠŠĠǠƯӠîرϠ砍卪䠢Ӣ󍪍ǠʠŠЫϠŠĠϠŠԿÍàīРĠԠԠˠŠŠàԠƠàǠŠڠՠҶՠƠӠȠƠŬҠҠԠՠӠՠ٠Š٠ŬϠӲՠӪ宍頠ԠŽάĠŽӍȠՠǠՠ֠ՠҲՠÍԠՠԠՠرՠō ՠԠƠŠӠ ՠ ԠƠӠĠՠčРՠƠҠ㩠㮠젭ЮЮ̮ŮԠŠѠՠԠŠӠڠՠȠƠǠҭ .ңԠԠŠΠ򠳬               1,0:C72,76:C73,218:C74,253:A8C3u+C8A513:C9A515:D0A516:D1A51:D2A52:A6A54:A7A55:B7C71:B8C7:P(C8)0A9C2:1440xA9B0:"ERROR # $";:B7,(C8):B8:" OCCURRED.":"SEE DOS 3.3 MANUAL P. 97 'IBSTAT'"1C38,0:A50,1:A51,96:A52,1:A53,0:A54,17:A55,12:C5(C4256):C6C4C5256:A56,C6:A57,C5:C5(A2256):C6A2C5256:A58,C6:A59,C5&*A512,1:A513,0:A514,0:A515,96:A516,1:C40,0:C41,1:C42,239:C43,216:C7C44:C70,169:C7 R$(J)""X130,B6$((YZX))@R$(J)R$(J)B6$FP::(A234500:B70:B80:B90:C00:C18:C20:B01:C3768:A5C39:C4A517:C5(A5256):C6A5256C5:C30,169:C31,C5:C32,160:C33,C6:C34,32:C35,217:C36,3:C37,96) AT TRACK ";A3;"SECTOR";A4:U 8A0A01:A3(A11):A4(A12):((A30)(A40))1040 `R$(84):B1%(84):B2%(84):J0:B31A0:B417:Y(A2256)(B3256)11(B41)35:B5(Y2) ((Y)255)((Y33)0)1280 JJ1 B2%(J)B5 B1%(J)(Y33)60 M8 T$(R$(2),P2,11)" ":U$(R$(3),P2,11)" ":V$(R$(4),P2,11)" ":W$"("(R$(5),P4,07)")"(138):K$T$U$V$W$: J0:X0:Y0:Z2:A00:1320:A1A2256:A317:A415 A1A1256:A59,(A1256):A6,A3:A7,A4:A8:1360:A9B0ĺ"ERROR END"::"WHICH OPTION ?";:G$:(G$)65(G$)670600H G$"A"ī0360V G$"B"Ĭq :12:16:"BYE":23: M1::"REGULAR FORMAT":"ENTER COMMENT FOR TITLE":K$: P1(R$(2)):((R$(2),P,1))161ī0880 H p((R$(6),1))192M6:0913);B$;D$:K$;E$;C$:LMJH:N$"":O0H1? iPLO:PJ0440d Q$(R$(P),I)(160):N$N$Q$:O S1(N$):((N$,S,1))159ĺ(N$,S,1); ::PJī0560  0F$;"PR#0"6 X:8:"OPTIONS:"::4:"(A) DUPLICATE":4:"(B) ANOTHER":4:"(C)CATALOG? ";:G$:G$"R"G$"F"ī806 xG$"R"İ0760H G$"F"İ0800d H3:I26:J36H4:I20w J48H5:I16 J60H6:I13 @J72H7:I11+ h:12:"ALIGN LABEL IN PRINTER - HIT ANY KEY";:A$::12:10:"PRINTING LABEL";:F$;"PR#1":((34500::3:"* DISK CATALOG LABELLER - 16 SECTOR *":15:"INSERT CATALOG DISK AND HIT ANY KEY....":22:A$:B$(27)(31)(13):C$(27)(31)(8))D$(27)(30)(6):E$(27)(85):F$(13)(4):1000$ P:12:"REGULAR (R) OR FORMATTED (F)     cp ߅ȱHȱh ߅ ȱHȱ h8`E ";:12(AD$)1:IN$:JITMIN$IN$","O AD$AD$IN$:J:DT$(I)AD$:AD$"":I| D$(13)(4):D$"OPENDATA"D$"WRITEDATA" I1DT " "NUM" DATA "DT$(I) NUMNUM10: D$"CLOSE"::NITEMS PER STMT":ITM :"ENTER "ITM" DATA ITEMS PER STATEMENT":::"WRITING DATA STMT NBR , LINE NBR ";:" ENTER DATA ITEM NBR ":34,5:: I1DT:3:23:I;:36:NUM:J1ITM:4:28:J' (37)I1:(NUM10)(I10)" DATA  DATA STATEMENT WRITER BY VAL J. GOLDING CALL -A.P.P.L.E. * MAR-APR 1981 d:"ENTER STARTING LINE NBR FOR DATA STMT":NUMn"HOW MANY DATA STMTS TO WRITE":DT:DT$(DT) x"HOW MANY DATA ϠҍѠԠӍӠҠҠԠԍРҠŠԠ΍àĠƠӬϠǠčàϠŠӠҠԍŠԠԠϠԠҠ΍àɠΠǍԠŠԠӍĠǠԠčҠĠǠҍŠԠԠԠƠϠȍ٠ԠϠԠҠΠǍ٠ΠŠϠǠȍàРȠƠӍŧŠĠȮΠȠҠӠàҍԠӍԠàҠŠҠϠȠ΍РΠŠϠǠȍàԠȠƠǠҍ΍ѠԠ̠ǿ΍Íà΍ӠԠΠϠԍԠ٠Рϩ٠ҠΠǍРϩ٠ŠϠϩٍΠŠǠȍٍϩ٠ǠӠ׍ŠΠˍٍϩ٠ȠōɠŠԍԠנŠ͠ˍϠŠԍΠǠȍѠԠ̠ǿӠ׍ȠΠˍٍϩ٠ǠӠȍɠŠԍŠӠ׍ϠŠԍҠ͠ˠҠҠԠŠĠԍϠҠӠ׍٠ɠȠō٠͠ՠōԠՠųǠʠҠԠŠԠԍϠҠӠ׍٠ɠȠō٠٠ҠҠҍϩٍΠŠǠȍٍϩ٠ǠӠנɠՠǠӠȠϠՠǠҠנɠՠǠҠȠΠՠǠȠΠՠǠȍҠՠҠϠΠΠǍӠՠ ԠǠ΍ê庠¤Ԡˠ젭ЮЮ̮ŮԠŠѠՠԠŠӠϠՠǠ  ңԠĭҠΠŠӠ砠㮠      FA$IN$: SAVE IN$ IN A$ AND FREE UP IN$ FOR NEXT INPUT a PA$: OR DO WHAT YOU WILL WITH IT ~ Z60: GET ANOTHER INPUT I768790:J:I,J:: 162,0,32,117,253,160,2,138,145,105,200,169,0,145,105,200,169,2,145,105,76,57,213A; INPUT ALMOST ANYTHING CALL -APPLE * MAR-APR 1981 { ALLOWS QUOTES, COMMAS, ETC. IN APPLESOFT STRING INPUTS (IN$"": MUST BE FIRST VARIABLE DECLARED 263990: SET UP INPUT ROUTINE <768:IN$(IN$,1): THIS IS THE ACTUAL INPUT :  c4 L [$    [$ L= :12W "WHEN IN 'MONITOR' WILL SWITCH TO 'MONITOR' ROUTINE NOT IN USE."e 23::  MONITOR STRING WRITER ROUTINE HEX$HEX$" N D823G":I1(HEX$):511I,((HEX$,I,1))128::72,0::: H28::72,0::: HX$,S1(S116)161,1)9 HEX$HEX$(HX$,(S216)1,1)a HEX$HEX$(HX$,S2(S216)161,1) HEX$HEX$": 38 A9 F5 2C 46 FA F0 06 AD 82 C0 4C 65 FF AD 80 C0 B0 F8 00":2000:144 1016,76:1017,S2:1018,S1: SET UP CTRL-Y VECTOR  69: MOVE BLOCK TO LANGUAGE CARD t :12:"ENTER ADDRESS OF CONTROLLING ROUTINE (IN DEC)";SA$:SA(SA$):SA0215 NOW CONVERT ADDRESS TO HEX STRING S1(SA256):S2SA(SA256)256 HEX$HEX$(HX$,(S116)1,1) HEX$HEX$(10\ xS1(SA256):S1256(SA)Ģ20:(7);"STARTING LOCATION NOT ON A PAGE BOUNDARY":100b } 768,S1: SETUP ROM LOCATION 21:"NOW PUT ROM IMAGE IN RAM. TYPE ";: (SA1898),163: <#> IS OLD MON PROMPT CHAR ! 70 A2 08 B9 00 00 99 00 F8 EA EA EA 88 D0 F4 EE 13 03 EE 16 03 CA D0 EB AD 8A C0 20 3F FF 60":2000:144  SETUP MACHINE ROUTINE TO MOVE BLOCKS d12:"ENTER STARTING ADDRESS OF 'OLD MONITORROUTINES' (IN DEC) ";SA$ nSA(SA$):SA0j ROM MOVER BY DAVID HENDEL CALL -A.P.P.L.E. * MAR-APR 1981  ::16300,0:CLEAR TO TEXT SCREENHX$"0123456789ABCDEF": HEX STRING CONSTANTSh HEX$"0300: 00 AD 00 03 8D 13 03 AD 8B C0 AD 8B C0 A0 0ȍРЍԠŠ̠Š֢ ŠҠ̳ԠŠŠΠ٠Ҡ̳ԠŠŠΠ̍Ҡ̳ԠŠŠΠ؍Ҡ֍ȍ  ŠȱРՠĠ֠ՠµԠՠčǠʠ̳ȍҠԍ̍РԍӠԠź٬̠Ҡ؍ӠŻӠ̨ōҠ֍ȍ Ԡ֠堠堨Ԡ̠ՠȱՠȠՠƍȠՠԠՠ 0ңԠӠҠ٠àŮڠ젭ЮЮ̮Ů    z#? Ҥ ŠԠ ӠҠԠΠŠŠˠҠŠ ĠӮӠ ĠӮϠ ٠Ϡ ӠΠҠ ĠĠȠ ҠϠҠ ŠϮӠ  Π!ĸԠ*" ǠРϠŠ ͠Ҡ ԠǠҠ Ԡ̠Ҡ  ԠĠՠԿ̠Π̠Π ̠ҠҮӠ ̠ҠҮϠ ҭǮӠ ҭǮϠ ɮŮϠ ٠ӠӠ͠Π͠Π͠Π͠ΠԠĠՠԿ ŮϠ Ԡ ŠҮӠŠҮϠҠ٠Š٠ŠɮŮӠ! !ȯЮӠ"ȯЮϠӠҮӠӠҮϠǮӠ ǮϠ ŮӠ ՠǠԠ٠Ӡ̠Ҡ٠ԮӠԮϠԮӠ ԮϠ  -       * -  1981 LjMSNUM10 I1DT. """NUM" DATA "DT$(I)? ,NUMNUM10:R 6D$"CLOSE"::X @ ((A11(I1)20J)):JITMIN$IN$","3 IN$; AD$AD$IN$:J:DT$(I)AD$:AD$"":NUMNUM10:"":VV(37)1:VV20ė:VV6 I NM$NM$".T":D$"OPEN"NM$;D$"WRITE"NM$ ""SNUM"FORI=1TO"L1":READI%:POKE"A1"+I-1,I%:NEXT I:RESTORE:RETURN" NUDT) VV6::DT" DATA STMTS OF "ITM" ITEMS EACH":::"WRITING DATA STMT NBR , LINE NBR ";:" WRITING DATA ITEM NBR ":34,5:: I1DT:3:23:I;:35:NUM:J1ITM:4:28:" ":4:28:J) VV:NUM" DATA ";:15(AD$)1:IN$1)256: x:"ENTER STARTING LINE NBR FOR DATA STMT":NUMR SNUMNUM:NUMNUM10u "ENTER BINARY FILE NAME":NM$ "INSERT SOURCE DISK. HIT ANY KEY" K(16384):K128160:16368,0 D$"BLOAD";NM$ DT(L1ITM)1(L1ITM(L1ITM)):DT$(Yl CONVERT BINARY FILE TO DATA STMTS BY JIM HILGER AND VAL J GOLDING CALL -A.P.P.L.E. * MAY 1981 d:ITM20:D$(13)(4) nMEMSIZ(978):MEMSIZ(MEMSIZ13)256:MEMADMEMSIZ114:A1(MEMAD)(MEMAD1)256:MEMADMEMAD18:L1(MEMAD)(MEMAD CE : JADDR,3:JADDR1,3(MSG$(1)):JADDR2,(JADDR1)j I213:JADDRI1,(JADDRI)(MSG$(I)):Ip G$(14)"YOU CAN'T DO THAT", INC0:I114B J1(MSG$(I))1m IADDRINC,((MSG$(I),J,1)):INCINC1 J:IADDRINC,((MSG$(I),1))128:INCINC1:I POKE INDEXES INTO MESSAGE TABLE  FIRST VALUE ALWAYS 3, AND 2ND MESSAGE OCCURS TWI)"WHERE IS IT?"/ PMSG$(6)"WRONG DISK, BOOB"F ZMSG$(7)"UH OH..."m dMSG$(8)"BUY ANOTHER DISK, CHEAPO" nMSG$(9)"I NEED A KEY" xMSG$(10)"TRY, TRY AGAIN" MSG$(11)"HUH?" MSG$(12)"YOU GOOFED AGAIN" MSG$(13)"GET MORE MEMORY" MSqV MODIFYING DOS ERROR MESSAGES BY LEE REYNOLDS CALL -APPLE * FEB 1981 r IADDR43380:JADDR43584MSG$(14)MSG$(1)"NO HABLO INGLES"(MSG$(2)"YOU IDIOT"2MSG$(3)"I CAN'T WRITE"<MSG$(4)"ONE MORE TIME, DUMBO" FMSG$(5   (L1)96RSLT$"3.2.1"0 (L2)3RSLT$"3.3"D :8:DV$;RSLT$\ MS(MEM25)256254 MS$"SLAVE":(MS)54MS$"MASTER" "AND WAS BOOTED FROM A "MS$" DISKETTE"8T DOS VERSION FINDER BY VAL J GOLDING CALL -A.P.P.L.E. * MAY 1981 dMEM(978):L1(MEM34)256214:L2(MEM9)256179nDV$"THE DOS IMAGE NOW IN MEMORY IS DOS "x(L2)38RSLT$"3.1"(L2)(L1)240RSLT$"3.2" (L2)  J04 5J6' "ACCUM(JI5);: ,ACCUM(JI5)0A 6JG @N JIT T] ^140R^dRANGE100nPASS1.xACCUM(RANGE1)=TIMES2500LI1TIMES_PNT(1)RANGE{ACCUM(PNT)ACCUM(PNT)1I(11)"PASS NUMBER ";PASSPASSPASS1" 0 1 2 3 4"I019I3I;   9 CARRIAGE RETURN AND":"'";(95);"' ";"STANDS FOR A NULL CHARACTER":81 q"PRESS 'ESC' KEY TO TERMINATE":81:"TURN PRINTER ON":41 v"ENTER FILE NAME: ";F$:41 D$"OPEN";F$:R%0:N%0 D$;"PR#1": MODIFY AS NEEDED FOR YOUR PRINTER  560 NE%0: S::::::::::p XD$(4):CR$(13):LF$(10):KEY16384:STROBE16368:ESC155:MAX300::121 b"PROGRAM TO HELP FIND 'N'":"WHERE FILE WAS CREATED WITH:":" 'OPEN FILENAME,LN'":121G l"IN THE FOLLOWING OUTPUT:":"'@' STANDS FOR A  ::::::::::, :" ":"STRING:":S$G "STRING LENGTH: ";L%;X L%N%N%L%^ m :::::::::: &CR$;"*** ";MAX;" NULL'S FOUND" 0"DO YOU WANT TO CONTINUE? (Y/N) ";A$ :A$"N"L%L%MAX1:S$(S$,1,L%):500:81:400: DA$"Y"ODE: ";(222):400:0 6E%E%1:E%MAXİ550N @L%L%1:S$S$(95):360w JD$"OPEN";F$:D$"READ";F$;",R";R%L%} T ^:::::::::: h2000,128L%127(L%127) r |:::::::::: 216,0 LF$;LF$;"RECORD LENGTH IS ";N% D$;"PR#0"C$:360 J(C$CR$) J% :B S$(S$,1,L%1)"@":C$t CR$;D$"CLOSE": NOTE CR$ REQUIRED AFTER GET R%R%L%:500 I((KEY)ESC):STROBE,0 I :::::::::: 400  ":::::::::: ,:(222)5ĺCR$;"***ERROR Cu FIND FILE RECORD LENGTH WITH RANDOM ORGANIZATION BY ROBERT F ZANT CALL -A.P.P.L.E. * MAY 1981 ~600300(::::::::::dI01n41:D$"READ";F$;",R";R%xL%0:E%0:S$"":J01 C$:E%0:L%L%1:S$S$  ER6  RANGE SETS THE RANGE OF THE INTEGERS SELECTEDd  OCOUNT IS USED TO COMPUTE THE DISTANCES  SKEY IS THE VALUE WE ARE LOOKING FORd dCOUNT0iRANGE100(nOCOUNT03xSKEY7ECOUNTCOUNT1aSKEY((1)RANGE)200j150w"HIT ";,,COUNT,1DCOUNTCOUNTOCOUNT6DCOUNT@OCOUNTCOUNTJ150 : COUNT JUST GETS INCREMENTED ONCE FOR EVERY RANDOM NUMB   @q.?r.?rJdede Ttc^dede)hMa(Ԡ٠٠Ϡ)Mr`.?6@r$rd6?e/|`.?r.?r.?r.?r$_6"Ma(ĠƠ)MQa@E(Ġ)E@dede{q.?rq.?r3}dedeqqa@E(נĮ),]ȯȠ51dededede6M`7.?r$rrp(İõŵà)\M6C]ŠԠĠōŠȠŠ/dKM6t cS(ȠȠͿ)&@na@E(ˠ)E@Bxdede°)r@B;@rrp(±ù°ƵùĠưùưàùàưùƠưİŶø)\M6v@p(±ù°ù°øøưİø±ù° öưİưŠ)r@B;@rq.?rq.?r@p()]̭ N@"rN@"rq_L@B;@rrp(ΠŸ)UVW;@rde<@*rrYdHe[b@p(±Źø±ø±øôW ]ŠϠҊ٠Šӊ̠ЮЮ̮ŮŠ q6q6|x qqqqqqqqqqqLqM; q.?rq.?     (11)COUNT1'I1100502(J(1)D2COUNTCOUNT1K<IRF uP OK NOW PRINT THE NEXT VALUESZI0600dCOUNT,COUNTCOUNT1(1);I LINES 1 AND 10 DEAL WITH THE PRINTERNTERH 퍪讍ύРύɍàɍàΠӠԠōԠӠΠϠÍРԠōѠ٠ŠȍΠÍ򍪠卪ύàȠύɍàɍčŠԠƠĬ΍Ϡ ϯӠΠϠԠРҠԠōϠàĠҠǍѠč٠ٍĠčŠΠԠժϬɠ荪čѠ٠Ԡϯ¿򠣠􍪠ٍϩٍРύ®ɠԠٍϩٍР°à٠żРӠ٠ž䠢򠣍ٍٍѠΠӬԠōРΠţοѠԠРǠǍРà οѠĠӬԠǍРƠϠοѠčŠԠРǠǍĠàĠԠǍϠŠҮŠٍϩٍɍ٠٠ԠŠƠҮō􍪍٠ԍӠΠӬϠԠōϩٍРӠԠοӠ٠ϬԠԠōРĠ͠ȠƠҮōĠՠǠϠƠΠҮōԠՠȠԠΠҮōǠΠ٠٠ĠҠǍϩٍȠŠŠȍÍàȭϠԍԍٍϩٍ̠§󍪠퍪ϠՠԠ͠ҠҠύɠՠȠōϠՠĠƠ͠ҮנōɠՠȠōϠՠ¬͠Ƞ̠ϯ ɠՠȠōȠՠ ңԠŠϠҠ٠ŠӠ̠ЮЮ̮ŮŠԠϧ     J0:I0dV1.13222038/nV2.132220399sV31ExJ(V3)OR1E6ZI1ReJ(1)qJV2Ă}JV1Ă"DATA FOR SEED=";V3I,JQI1I11Q,(1)Q::&V3V310120dd0120d  B ]ҤΠҠҠÊ٠̠ʠNJqN@"rq.?r8.?rr!(UVWdeqY 2de <a@HFca@*[#[rE@*\#\rE@*_#_r]ϠנϠŠҤPQ 0PVWUQTحL ::INVERSE FIELD INPUT RTN *** ? :4:11:"NAME: ";:FL20:500i 7:2:"TELEPHONE NO. : ";:FL12:500 VT4:HT17:FL20:50:NA$IS$ VT7:HT17:FL12:50:PH$IS$ 15:11:"NAME:"NA$ 16:2:"TELEPHONE NO.: "PH$ :I1FL:" ";:S$,CP1):60 50 AS((40)256(41)(36)):AS32IC$(AS64):120: IF RIGHT ARROW, READ INVERSE CHR AT CURSOR AND CONVERT TO NORMAL, THEN BRANCH TO LINE WHICH ADDS CHR TO STRING IC$(AS):120 *** TEST PRGM TO ILLUSTRATE *** *** ADD LAST CHR TO STRING; PRINT CHR; INCREMENT CP; BRANCH BACK FOR NEXT CHR CPFLāICPFL:" ";:: IF C/R, BLANK REST OF FIELD : CPCP1:CP0ĺ(7);:50: IF LEFT ARROW, BACKSPACE AND REMOVE LAST CHR FROM STRING IC$;:CP1IS$(IC/R + PIC$(8)150: CK FOR LEFT ARROW \ ZCPFLĺ(7);:60: CK FOR MAX FIELD LENGTH dIC$(21)180: CK FOR RIGHT ARROW n(IC$)32ĺ(7);:60: DELETE THIS LINE TO ALLOW CONTROL CHARACTERS TO BE INPUT J xIS$IS$IC$:IC$;:CPCP1:60: P=CURSOR POSN IN FIELD ( Line 50 begins subroutine to set INVERSE field, set INPUT string to null, TAB to beginning of field, and set CP to 1 2:VT:HT:IS$"":CP1 <IC$:IC$(27)ĝ:: READ CHR; CK FOR ESC KEY  FIC$(13)130: CK FOR ^ INVERSE FIELD INPUT SUBROUTINE BY CHARLES HEARNE CALL -A.P.P.L.E. * JUNE 1981 200: BRANCH TO TEST PROGRAM   IS$=INPUT STRING IC$=INPUT CHARACTER VT=VERT TAB POSN OF FIELD START HT=HORIZ TAB POSN OF FIELD START FL=FIELD LENGTH C   @PVWUQTحHhHhHhHhHhHhHhHhL 1)7015 ((1)71= 2G,H76(1)(G38),78(1)(H38)C <S FC(1)101b PC8İ100j Z10p d nX239(1)259 xY152(1)172 X,Y I150 X(40(1)20),Y(40(1)20) YY FIREWORKS 3 BY RUSS STILL APPLIED MICROSYSTEMS CALL -A.P.P.L.E. * MAY 1981 a :~X(16384):X127ĉ::G(1)20038:H(1)10038YOLD159:SLOPE(H159)G:X2G2:YSLOPEX159:X,Y0:X2,YOLD:YOLDY:3: A1(:90: MOVE LEFTd PRESS 'R' OR 'L' DURING PROGRAM AND 2ND LINE WILL FOLLOW AFTER CENTER PAUSE #:N150::(A$,LA1,(C$))C$āN12000::D1< ^D0100] _E(16384):E204E210100 a23:6)"PRESS 'L' OR 'R' TO CONTINUE":95 d23:868:D0:A$(A$,2)(A$,1) nE204130 xB$(B$,1)(B$,39):90: MOVE RIGHT B$(B$,2)(B$,1)N140(A$):A$A$".":Q 214:958:"TYPE THE 2ND LINE (RETURN FOR ONE LINE)"h 7:B$:(B$)3950v <B$""80 ALB20(B$)2:N1LB:B$"."B$: FN140(B$):B$B$".": K::"2ND LINE MOVE LEFT OR RIGHT"::E$ P/ Z8:A$:14:B$eM HORIZONTAL MOVING SIGN BY NEIL BRONSTEIN CALL -APPLE * FEB 1981 :8:"TYPE THE FIRST LINE OF YOUR MOVING SIGN":8:"TYPE THE FIRST LINE OF YOUR MOVING SIGN"::A$:C$A$:(A$)3920#LA20(A$)2:N1LA:A$"."A$: (    L VERTICAL MOVING SIGN BY NEIL BRONSTEIN CALL -APPLE * FEB 1981 } :8:"TYPE YOUR VERTICAL MOVING SIGN"::A$14:"SHOULD THE SIGN MOVE UP OR DOWN":D$::VT12:X1D$"U"X1L(20(A$)2)#(VT:L);A$; -T 304 MAIN AV. SOUTH RENTON, WA. 98055 pple Anthol- ogy, Vol V, Jan-Jun 1981 Version 1 Release date 7.20.81"" APPLE PUGETSOUND PROGRAM LIBRARY EXCHANGE 304 MAIN AV. SOUTH RENTON, WA. 98055 PROGRAM LIBRARY EXCHANGE TE APPEAR IN THE MENU, THOSE WITH A <.S> OR <.O> SUFFIX OR COMPATABLE WITH TED II+."+"OTHERS NEED ADDITIONAL SUPPORT. CONSULT APPROPRIATE CALL -APPLE FOR INFO.": + *+::"HIT ANY KEY FOR MENU"::32,0:.756:4:958:N2"Call -AT S ":10:" "E\:34,23:I11200::::10000yX(222)1ĺ"LANGUAGE NOT AVAILABLE":216,0:110b(222)255Ħl::'2::4:"CALL -APPLE ANTHOLOGY, VOL V ":::34,5:11000:Y*8:"NOT ALL PROGRAMS ON THIS DISKETC":4:"L E G R H"w45:"E T R A A":14:"S A R N">15:"O M Y G":16:"U";:40:"E";H17:"N":18:"D"!R:::10:" ":10:" P R E S E N 33:" "@" ";:5:" ";:7:" ";:9:" ";:15:" ";:17:" ";} 23:" ";:25:" ";:31:" ";:33:" ";:39:" ": "A P P L E":2:"P U R I X"**3:"P G O B :E1:2:" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:13:" ";:17:" ";:21:" ";:25:" ";:33:" "" ";:9:" ";:17:" ";:25:" ";:33:" "" ";:5:" ";:9:" ";:17:" ";:25:" ";:LOWER CASE"N 0USE SUFFIX .L FOR BLOAD PROGRAMS; USE .R FOR BRUN PROGRAMS T : 2::" CALL -APPLE ANTHOLOGY VOL V JAN - JUN 1981 ":: I112:(I64)" "MENU$(I);:20:(I76)" "MENU$(I12): : ANYTHING" :MENU$(16)"DATA WRITER":MENU$(17)"CAT LABEL PRINTER":MENU$(18)"BINARY TO DATA":MENU$(19)"DOS VERSION FINDER":MENU$(20)"FIND RECORD LENGTH" MENU$(21)"VAR GOTO FINDER":MENU$(22)"INVERSE INPUT":MENU$(23)"FIREWORKS":MENU$(24)"QUICK :MENU$(06)"RANDOM FUN #2":MENU$(07)"RANDOM FUN #3":MENU$(08)"RANDOM FUN #4":MENU$(09)"HORIZONTAL SIGN":MENU$(10)"VERTICAL SIGN" :MENU$(11)"READSCRN":MENU$(12)"CARD80.TEST":MENU$(13)"KEEPING UP TO DATE":MENU$(14)"ROM MOVER":MENU$(15)"INPUTOADING "FILE$:BL260' D$"RUN"FILE$C BL0:I11000:::110 A$" CTRL-C_EXITS SELECT_BY_LETTER":MENU$(24) :MENU$(01)"REAL VAR STUDY":MENU$(02)"QUILT":MENU$(03)"ARRAY SAVE":MENU$(04)"MODIFY DOS MESS":MENU$(05)"RANDOM FUN #1"L(A$)120 190:1502 X(16384):X127ı^ :16368,0:KEYX192:KEY24KEY1180s FILE$MENU$(KEY) (FILE$,(FILE$)1,1)"."(FILE$,1)"L"ĺD$"BLOAD"FILE$:BL1:240 (FILE$,(FILE$)1,1)"."ĺD$"BRUN"FILE$:240 :10:10:"L =d " M E N U " BY VAL J GOLDING - 2.80 Pi2000:::500on1000:D$(13)(4):7000xL1:A$(A$,2,(A$)1)(A$,1):22(A$,1)" "Ğ(A$,1);LL1:(A$,L)" "ĝ:170(A$,L,1)" "Ğ (A$,L,1);::     ,20,26,TALL,20,25,TALL-BOLD,26,17,LARGE,23,23,WIDE,5,5,EXPANDED.vcP230,64:16304,0:16302,0:16297,0:16299,0:cZ230,32:16300,0c_(2);7;(12):: MOVE SCRN 2 TO SCRN 1IBG3ĺ(3);9;(2);0;(12): C;EAR PG 1 TO BLACKb74:CLR09:(3);0;(2);0;CLR;(3);CLR;(2);BG;" THIS IS A TEST USING COLOR NBR: "CLR;(14):CLR:(2);0;(3);:b<4:"HIT ANY KEY";:756:CHR::BG::"DONE":1220:@cF 18,26,REG,18,25,REG-BOLD0,I279,I:EaI07:I:J20191:35I,J35I34,J:J,I:90:(16)a#BG07:(3);0;(2);0;(18);(25):1:"BACKGROUND MODE NBR: "BG;a(CHR17:L,M,CH$:(L);(M);a-1:24:(3);0;(2);0;(18);(25)" CHR= ";CH$;(L);(M);::34,2:80:900b2` HIGHER TEXT CHR/BG COLOR DEMO BY ROBERT CLARDY & VAJ J GOLDING CALL -A.P.P.L.E. * JUNE, 1981 ` (4)"BRUN LOMEM:":24576`(4)"BRUN HIGHER TEXT" a80:0:I020:ϬԠïҍҠԠԠԬĠŠҍŠРԠԠԍɠŠƠō̫Ҡà̠ӠԠԍӍԠР̠ҿŠŠӬԠԍ͠РŠҠȠԠŠӬԠԍÍàŠԠϠōРĠӠԠŠΠŠҠΠ͠ˮ̠ՠϠΠҍàՠԠӠ׍ԠՠưԠҍǠčʠčԠϠҠƠҠō̍ԠӠ̠͠ĠĠ٠̠ӠĠΠˠǠҠà͠ǮƠ٠ԠΠͭ٬Ԡ٠ŠĠȠ̠ P̠ҠҠ٠̠ʮǠ̠Š   80 bb&b"---------------"+- RVS":17:"-=::=-"8'7:"DEPRESS THE LETTER 'I' FOR INSTRUCTIONS.BYTE VALUES OF THE REAL VARIABLE - (RV) "B'R2R13:(16286)128PD1L'5:":=- PADDLE ACTIVE":":=- PADDLE VALUE =":CS$"B":220!*3ALUE":F2$" 1ST 2ND 3RD 4TH 5TH"U'(4);"BLOAD BDHOUT.O,A$300"v!'(4);"BLOAD SPCOUT.O,A$331"$'(4);"BLOAD BDH/DUMP.O,A$33C")'(4)"BLOAD RVS 6502 DVR.O,A$382"?.'28,5:29,R12((R12)256)256:30,((R12)256):::17:1015:M6(EP256):M5(EP256M6)256q71,0:66,M1:67,M2:60,M3:61,M4:62,M5:63,M6:58,44:59,254:65209:23:"DEPRESS ANY KEY TO PAGE.":16384,128:DC$:'(175)(176)25610174'RV1:R1(105)(106)256:F1$" 1ST 2ND 3RD 4TH 5TH = V"FERS TO KEYBOARD MODE."::"SPACE BAR KEY :=- SAVES CURRENT VALUES";20);"TO LOWER PORTION OF";21);"SCREEN.":"'CTRL' AND 'C' KEYS :=- EXITS PROGRAM."::21:" NOW BACK TO THE PROGRAM. "::1000:% M10:M24:M4(EP256):M3(EP256M4)256:EPEP' KEY :=- SETS BINARY MODE":12);"BASE TWO"::"'D' KEY :=- SETS DECIMAL MODE":12);"BASE TEN"::"'H' KEY :=- SETS HEXADECIMAL MODE":12);"BASE SIXTEEN":1000n::"'V' KEY :=- ALLOWS REAL VARIABLE 'RV' TO";12);"BE SET TO A VALUE AND TRANS-";12);TE."3:"'I' KEY :=- THESE INSTRUCTIONS.":1000::"'1' KEY :=- CHANGES TO BYTE #1"::"'2' KEY :=- CHANGES TO BYTE #2"::"'3' KEY :=- CHANGES TO BYTE #3"::"'4' KEY :=- CHANGES TO BYTE #4"::"'5' KEY :=- CHANGES TO BYTE #5":1000::"'B;"INDICATED BY ^^^."::"PADDLE BUTTON #1 :=- MAKES PADDLE #1";25);"ACTIVE."::"FORWARD ARROW KEY :=- TRANSFERS TO"22);"KEYBOARD MODE AND";23);"INCREMENTS BYTE."::"REVERSE ARROW KEY :=- TRANSFERS TO";28);"KEYBOARD MODE AND";23);"DECREMENTS BYOFT MACHINE LANGUAGE ROUTINES INTERPRETTHAT VALUE TO BE. ALSO IN REVERSE, WE""CAN STORE A REAL NUMBER VALUE SUCH AS RV=557.557 TO SEE WHAT VALUES ARE ACT- UALLY STORED IN MEMORY.":1000u34,3:::"PADDLE #1 :=- WHEN ACTIVE CHANGES BYTE";16) AN INTEGER NUMBER FROM 0 TO 255. BY USING A KNOWN VARIABLE 'RV' AND THE POKE STATEMENT WE CAN CHANGE ANY OF THE FIVE"N"BYTES TO ANY VALUE WE WISH, THEN BY PRINTING TO THE SCREEN THE VARIABLE 'RV', WE CAN FIND OUT WHAT VALUE THE APPLE- SS TO HELPTHE APPLE ]";(91);" USER TO BETTER UNDERSTAND HOW REAL NUMBERS ARE STORED AND EVALU- ATED BY APPLESOFT. FOR EACH REAL NUMBERFIVE BYTES ARE USED TO STORE THE VALUE ""(AND TWO BYTES TO STORE THE REAL VARI- ABLE NAME). EACH BYTE CAN STORE******** VALUE = ";RV$:4:"* LAST ENTERED":RV(RV$):BV(R2):340 XEP(175)1(176)256:M2(EP256):M1(EP256M2)256:M30:M44:M5247:M67:900 :18:"-=::=-":9:"I -+< INSTRUCTIONS >+- I":18:"-=::=-" " THE PURPOSE OF THIS PROGRAM IBV255' JCN21BVBV1:BV255BV0O TR2,BV:5:1:":=- KEYBOARD ACTIVE"p 8,(1):910:"= ";RV;:868 (16384)127200 (16286)127PDKA0:5:1:":=- PADDLE ACTIVE ":100 400C 5:1:":=- KEYBOARD ACTIVE":4:868:"******U8:BO7:BI$"^^^^^^^^":10:1:F2$:910:"= ";RV;:868:CS$(R2R11):210_ CS$"I"İ600 CS$" "İ11000::(1707)160Ģ14:1:868 CN(CS$):CN8CN21CS$"V"KA100 ,KA1:CS$"V"500 6CN8CN21400 @CN8BVBV1:BV0CS$"D"CS$"H"Ĺ9,10(CS$"H")6:BU4:BO2:BI$(32(CS$"D")62)"^^":10:1:F1$;:868 CS$"D"CS$"H":6,0:25,1(CS$"H")1:26,1(CS$"H")1:27,1:910:"= ";RV;:868::868:CS$(R2R11):210M CS$"B"Ĺ9,2:6,1:25,0:26,0:27,21:BnI REAL VARIABLE STUDY BY ERIC E GOEZ CALL -APPLE * JAN 1981 U 20000`10000dBV(1):R2,BV:8,BV:910:"= ";RV;:868:(16384)128100CS$CN(CS$):CN0CN6HTBUCNBO:R2R1CN1:11:1:868:HT:BI$:KABV(R2)^      132)2566:AD(AD)(AD1)256:: FIND STRING IN MEMORY za:J1(X$):(AD)1ADAD2:: IF CTRL A, SKIP CONVERSION a(AD)65(AD)90ĹAD,(AD)32: IF ALPHA, GO AHEAD & CONVERT aADAD1::2_` QUICK & DIRTY LOWER CASE BY VAL J GOLDING CALL -A.P.P.L.E. * JUNE 1981 ` ENTER CTRL A FOR UPPER CASE `d"HOW MANY STRINGS?";DM:CNV$(DM)`n::I1DM:X$:900:CNV$(I)X$:`I1DM:CNV$(I)::: 9aX$X$:AD(131)(#67 `ɠɀ 8  LÍӠԍĠƠ٠΍讍ؠРōĠƠؠ΍ԳԳРóĠƠ̠΍٠ؠԠ؍ɠō̍ӠōϠ°ŠԍŠ±ԠҠԍŴӠǠԠàԍŠՠԠؠōԠՠĠԠҠΠǍǠʠŠӍȍРѠٍРѠ嬍砠堠򠪍ˠԠȠՠƍԳՠóՠ &ңԠԠ٠àڠ젭ЮЮ̮ŮԠ    ٠РҠōҠƍҠōٍŠЍҠōӲӍŠ؍Р؍ŠЍԠҍӍԠ̠ՠàՠҠՠðԠՠưŠՠƳƍŠՠƴǠİʠİ̠̠̠̫ҠàӍ̠РѠԠРԍԠҠō ңԠҭǠ٠̠ȠҠԠŠ̠ŠҭҠ   c1`H hLhDELBh0 H h8 0܅67 `ɇL J I  ?`,0``  ٭󠠪ԠԠՠĠԠҠΠǍǠʠŠѠōàҠԍٍŠÍŠӍ ңԠԠ٠àڠ젭ЮЮ̮ŮԠ