' +JJJJ ?\>m0M='+l> +l   d@LҦ{|LFBBbL_E` /LX X  ` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"  !"#$%&'()*+,-./0123456789:;<=>?354+,,,(((((((((((((((((((((((354+-,,,((((((((((((((((((((((80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCӜu`y".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`M ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`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-( Ϡ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`F d̠֠ĠƠz#??? ӮӮu` d@LҦ{|LFBBbLxxH hh@(LT9LHH/Hh/ HĿ-З( ܸ(& ¸$8 H` *HVDP (ED f $0x8x DHIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`<=>?(((24?949:4<  %%&&'''))*++++,,----...////23334556667777999:::;;;;<<====>>>???????????????????????????&&'(((())***,,.000011112223444556 88889 : << `FG8`0($ p,&"  !"#$%&'()*+,-./0123456789:;&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVL귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``® zz'/(` d@LҦ{|LFBBb   ٠Ӡ ԱΠ Ϡ}m~mm`"L 8H (Y` T d̠֠ĠƠz#L  `  i# i) Џ Џ Џ Џ Џ Џ ЏȘ Џ Ч`Lɠn Џɍ_ɀ`( ЏL@ɀ` ɍ ɠ 8 ` (Lt   @@B CBBC>NF$(26)UNƠ ܫ [ Ů Ů m EED خ ŮDEƈ DE خ  Ů Ů ]ZS0J ) e DE خ   Ů ﲐL= [ [`HEDbDbDEEhiHL 5L=   Ƭ L aB 5 tLH QhB@ LS\\ (Z) \ ҰL= L= ( QLv (ZL9Z Ұ * ZB0 HȱBh 䭬Z筑 8 L=8 `ӠŪ` ϯ -!  8Ζ ҰL= (0+{B|CZ ۲ ҰL=z HH`L%L90z HH` 嬍L=  ; Ƭ L t H ahBL𷭂΀`L- Q BH  Sh`L- _Y y ʪHɪH`L! (L= ܫ|{荦 ^Z_ ZJ QLL1Z Z Ұ ַ կZL-}I~ ERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-(0x /®@yyˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV @ NyL   L` -e L գsr ࣭ml ࣭srL -LЦ գ ze)rs zrsLq ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLH hLħyz 8`D&E`( 80 0 DDLDLDL^ t^`,tP ȟpMt-^^`DH hWLԧ d@` Lꢩ { | c ȢL LҶLգcl mll{m| ꢥELȦAD@ C N cyLuɠ% d: L @@ 8>NF$(26)UNuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿuӜu`y".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wU щ RnLo,W )Q P( 0)n) R RnLK R RnLK`,%`Aj< `nWSSS-Y щ`-L g R g RlXo"Yc| `gWg8gV P щ _ ΜcgV YŠΠŠΧ٠ŠΠŠԧ٠ŠΠŠԧ٠ŠΠŠЧ٠vڅwyxz`m0 xٴo8o ``0n9 R RnѭYḓ8nL R zz/`®)w YZ$ % ޑ)x 1YZ$ % ޑ)y KYZ$% ޑ)z `ŠŠΠŠЧ٠W      /%$YZ ͑%"$X W V %$YZ ͑%"$ `X͙.LW͘!LV͗VWX`mVVWiWXiX`mWL%!$UX !$XU T018001A00580018001  00000000000000000000 FIRO2 00000000000000000000  80018811881188118001  00000000000000000000 FIRO3 00008001A00588118241 `82418241AA5582418241  82418811A00580010000 ; FINOTE #$FC DELTA WP  R` `9 R  R`JKZLM  R  Rȍ9` ِ`g)g`d<X 3 FOY 3 FOCODE 3 "FIGLO FIRO1,FIRO1,FIRO2,FIRO3 "FIGHI FIRO1,FIRO1,FIRO2,FIRO3 ; FIRO1 00000000000000000000  80Ā .ԍÀލĀ .`, `YcJWLV щ`TVUUUUVTT8`,X 9`9Lxt;Ȑ cIJ8Jɬ9 Rlm lmJJ  R ` cIL8L 9 Rlm lmLL  R `99` cIL8L9 R  `  i# i) Џ Џ Џ Џ Џ Џ ЏȘ Џ Ч`Lɠn Џɍ_ɀ`( ЏL@ɀ` ɍ ɠ 8 ` (Lt   @@ >NF$(26)UNAY TEXT 6,0:7,DHI1$ 36720G T0Ĺ36785,DHI1:36784:830Z  ANOTHER FILEb K$j : "ANOTHER FILE? (Y/N) "; K$ K$"Y"ī260  ' RWTS SUBROUTINE '47084,T:47085,S $'47088,BLO:47089,BHI .'36608 8'T0ī800 BHIBHI1" 10000+ 670;  READ TEXTN %CHI64:DHIBHI\ &BHIBHI1e 4I12x >T(CHI256I) CT0BHI128ī900 HII1 RS(CHI256I) \10000 fBHIBHI1 pII1 u(I256)256I0II12 z830  DISPL"V"ī490% d READ TRACK/SECTOR LIST4 gK(K$)65_ lBT(BHI(K7))256(K(K7)7)3511k vASBT1 T(BT):S(AS) BHI64:BLO0  36784 10000  IF T/S LIST FILLS MORE THAN ONE SECTOR T(BHI2561):S(BHI2562) S0ī450% S12S9S3SS1:4509 SS1:BHIBHI1B 350V  PRINT CATALOG\ j BHIBHI3u 7,BHI 36616 :"PRESS ";(91);"LETTER] TO CHOOSE FILE":" TO CONTINUE"; K$ K$" "BHIBHI3:465 bK$"A"K$E":" TO CONTINUE ";+ dK$O nK$"1"K$"2"K$(13)ī100_ xK$"1"D1o K$"2"D2 K$(13)ĺ:80 , READ CATALOG 647082,D:47083,0 JT17:S15 TBHI64:BLO0 Y36784 ^10000 |A(BHI25611) A0 ANYTEXTG THIS PROGRAM CAN PRINT OUT ANY FILE AS A TEXTFILES SETUP[(:f236608<" ANYTEXT"A:(4);"BLOAD AT/BIN"FD1P3:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")"# Z" PRESS NUMBER TO CHANGE DRIV     @<>@B= ?C=?<=>NF$(26)UN  !!!!!!!"""""""####### $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?````((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPWWWWWWWWWWWWWWWWWWWWWWXXXXXXXXXXXXXXXXXXXXXYYYYYYYYYYYYYYYYYYYYYZZZZZZZZZZZZZZZZZZZZZZ[[[[[[[[[[[[[[[[[[[[[\\\\\\\\\\\\\\\\\\\\\]]]]]]]]]]]]]]]]]]]]]]^^^^^^^^^^^^^^^^^^^^^_____________________````````````````````````````````````````````````````````````z ER+1 $0@B= ?Cn:nznznw]w]W]w]w]w]w]w]u]w]w_t\t\n;n;n;n;n;j;n;n;n;n;n?i9i9]w]w]W]w]w]w]w]wU_]w]SsSs;n;n;n;n;n;n+n;n;n;n;~'f'fwuw]w]w]w]w]w]w]w]wUw}OMOM.n>n>n>h;{;bo;n;n{Uwwrwww|w]w=7=7|p`@@Oonvt` P @?nu unvoXp`xxx|<<  /_}{~\x`@ 'F|pGO80prry|??O ~~~_______@@@@@@@oooooooxxxxxxx???????~|xp`@?AAAcccw>{{{;;{{{yxxxxx8880p`?`@J`?p``hdp?;37ww79`888<<<>?<8:9??????????????`p|~~????????~~x???????????????_G'xnnnoooooonnngaAAAcccw>;;;{{{{{{{{{yXpppx88=???px|~~~~|pCGO_=55ZLFC@FL*j!gu#xU  [xU$U%M"T# U ` XB```W ͩЩ ̩ϩͩЩɩi i`]??` F e e&    8e  8e  ` wx  yy ^8e `ȱ]( ` F)yIDHI1 6,0:7,BHI> 36832: CLEAR DUMP ABOVE T/S LISTP T(64256I)f T0BHI128ī840p II1 S(64256I) 960 BHIBHI1 *II1 4(I256)256I0II12 >750 H DISPLAY TEXT R6,0:7,DHI1\36752: READT255ī490 D:$ NBHI64:BLO06 X6,BLO:7,BHIN b36832: CLEAR DUMPW l960 v IF T/S LIST FILLS MORE THAN ONE SECTOR T(BHI2561):S(BHI2562) T0ī690 BHIBHI1 960 640 DHIBHI  READ TEXT I12 BHGM :"PRESS ";(91);"LETTER] TO CHOOSE FILE":" FOR MORE ";U K$m K$" "FLAG0ī360 K$" "FLAG1ī900 K$"A"K$"V"ī490 K(K$)65 BT(BHI(K7))256(K(K7)7)3511 &ASBT1 0T(BT):S(AS) :T05 hBHI64:BLO0$ m6,BLO:7,BHI< r36832: CLEAR DUMPD w:M |960a A(BHI25611)z A0S0FLAG1:440 SS1:BHIBHI1 S12S9S6S3ī440 380  PRINT CATALOG BHI64 7,BHI 36624:READ AND DISPLAY CATALO:" TO CONTINUE ";) K$M K$"1"K$"2"K$(13)ī220] K$"1"D1m K$"2"D2 K$(13)ĺ:200 6,0:7,64 "36832: CLEAR DUMP ($4000-7FFF) ,: @ READ CATALOG JFLAG0 T47082,D:47083,0 ^T17:S1d ANYTEXTEn THIS PROGRAM CAN DISPLAY ANY FILE AS A TEXTFILEQx SETUPY:d16384" ANYTEXT":(4);"BLOAD AT/BIN"D13:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")"! " PRESS NUMBER TO CHANGE DRIVE"    @<>@B= ?C  c ` oo0o| c|8#-8} R Rn7o|n ;| R ;| R `U*UjUjU* 05xxxx00*U*U*U*U(@*`jpqpq``Ҏ` n c#W-V `  080 11 ? L U |c0^7n)"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?U)PPU 0PP)R'''''''((((((()))))))((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPP  !!!!!!!"""""""#######$$$$$$$%%%%%%%&&&&&&&$$$%%%%%%%&&&&&&& @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @k)d)efh\#FefhFdff\$\FfhJdhfdefhedkQYYȥekQYYȥfkQYYVLӉ``V LϊRYEbZg)kg)d轼g)efhdQYkYȥeQYkYȥfQYkYVLu` @ @ @ @ @ @ WVL` eWi WV eWi WVL ` eWi WV eWi WVL8`  RV R`)))ssɠ`YZ ͑`ĠԮV L_RYEbZWЊ\苨)etestnasubsequentclubdisktherewillbeanelegantŠҠ̠programthatincorporatesmycolumnsoftwareandallowsfilehandlingsasatrimmingcapacitorǍfpinsandofthepinĠconnectorarejoinedtogetherthecomputercantalktoitselfeyspressedwillechoontothescreenhiswilltesttheboardwiringandlogicbutwillnotserveasabaudratandhisenabledtheppletotalktotheoldminicomputerɠbuiltseveralyearsagowhichhadtheoriginalbaudipbugͮheswitchconnectedtwomorecapacitorsuƠanduƠinparallelacrossîhesecondcapacitorserveayoutisnotverycriticalirewraporpointtopointwiringmaybeusedtisagoodideatolocatetheuƠtantalumcapacitorclosetothevconnectiontothenmyboardɠhaveincludedaswitchtochangethebaudratebetweenvesasatrimmingresistoroleaveroomforsuchatrimmingresistorhebestwaytoestablishthecorrectvalueforitistouseafrequencymeterfcoursetherethereisgenerallysometoleranceinwhatthehostcomputerrecognisesasbaudpartofthecircuitisthetimerorbaudoperationitmustprovideazclocksignalɠachievedthisbyusingauƠpolyestercapacitorforàandtworesistorskwithaktoleranceinparallelforҮhesecondresistorsercausetheĠoutputsareristateandonlygotoa̠logiclevelwhenyourprogramsaystheymayputdataonthebusheҠasteresetcircuitensureseverythingpowersupcorrectlywhenthemainsareturnedonhemostcriticalthescreenetofԠlowagainàetrievefromtackandeturnfromnterruptԠӍheĠeceiverataoutputsĠransmitteratainputsandthepplebusareconnectedtogetherhispresentsnoproblembe learnterruptisableflagàeadkeyboardtorecharacteratðleareyboardtrobeandwaitfornextcharacternterruptsubroutinetoreregisterintackeaddataatðisplayitonY BOB BISHOP IN SOFTALK OCT 1982l  THESE TECHNIQUES DONT WORK IF CERTAIN PERIPHERAL CARDS ARE INSTALLED.  HOWEVER IT WORKS WITH MY LANGUAGE CARD, DOS CARD AND APPLE PAL CARDTӠ̍ĠŠĠƠĠðùƹĠðĠð°ƱĠðčĠĠðӍainprogrametaddressofintrrruptroutinetondthensendsalowsignaltotheҠeceiveratavailableesetpinoftheԮhisrestorestheoutputtoalowlevelagainhenitisbacktothenormalprogramhesimpleprogramthatdoesallthisislistedbelowҠҠϠthatisnormallyrunningwaitsforakeytobepressedandthensendthecharactertoaddressðheinterruptroutinehandlestheresponseoftheremotecomputertprintsthereceivedcharacterwaitsafewmomentsacoupleofԠclockcyclesaerialnputpinoftheԮhereceiverbufferisfilledandtheeceiveratavailablepingoeshighhisisinvertedandifthepplesnterruptisableflagisnotsetforcestheppletojumptothenterruptroutineheprogramgoestothemodemviapinofthepinĠconnectornӲàterminologymyppleisconfiguredasaataerminalquipmenthentheremotecomputerrespondstheserialdatafromthemodemisconvertedandappearsattheɠeceiverӠonthepplebusintothetransmitterbufferhecontentsofthebufferarethensentseriallyoutviatheϠransmittererialutputpinheconversionsbetween̠andӲàlogiclevelsarehandledbythetwosheӲàcompatiblesignalerthetransmissionofdatahenthereisaninstructioninmyprogramtostoredataatðɠputmycommunicationscardinslothencetheintheaddressthesignalattheӠransmitatatrobepinoftheԠgoeslowhisputsthedatathatitisbuiltoncostsanotherǠĠǠheheartofthecircuitisthe͵ԠwhichtakesserialdatafromthemodemandputsitonthepplebusasparalleldataandviceversaetusfirstconsidicmodemtreallyisabasicdevicetdoesnotemployacrystallockedfrequencynordoesithavesophisticatedhandshakinghecostofcomponentsçsàsocketsresistorscapacitorsandpinĠsocketadduptoabouttheppleobbyardϠӠӠčbyǠč΍hisorillscommunicationscardwasmadesothatmyppleathomecouldtalktotheniversityofydneyybercomputerbytelephoneusinganacoust            5  :3:(4);"EXEC ACT CCS CARD EXEC FILE" SE MODIFICATIONS JUST"1 :" RUN ACT CCS CARD"7 = X  A FERG BRAND PROGRAMd , OR C0A1 IF SLOT 2, ETC g "193 POKE 36692,A:POKE 36729,A:POKE 36754,A:POKE 36778,A: POKE 36883,A" THESE ARE THE MODS TO ACT/BIN WHICH ARE MADE AFTER IT IS LOADED "RUN" :(4);"CLOSE" :"TO RUN APPLE COMPUTER TERMINAL WITH THES RESETS ACIA, THEN TELLS IT TO EXPECT 8 DATA, NO PARITY AND 2 STOP BITS AND ALSO ENABLES ACIA RECEIVE INTERRUPT SO IRQ WILL GO LOW WHEN DATA HAS FILLED RECEIVE REGISTER "192 A=";S;"*16+129" ALL READS AND WRITES ARE TO $C091 IF CARD IS IN SLOT 1) n:(4);"OPEN ACT CCS CARD EXEC FILE"R x(4);"WRITE ACT CCS CARD EXEC FILE"v "LOAD APPLE COMPUTER TERMINAL" "116 VTAB 19:HTAB 9:PRINT ";(34);"CCS 7710 CARD IN SLOT ";(34);";"(34);S;(34) "191 POKE 49296,3: POKE 49296,145" THI= 2"THIS IS SO INTERRUPTS FROM THE ON-BOARD ACIA WILL WORK"a <:"WHAT SLOT ARE YOU USING? ";i FK$ PK$"1"K$"6"ĺ"INVALID SLOT NUMBER ":60 ZS(K$) dS i:(4);"OPEN ACT CCS CARD EXEC FILE" j(4);"DELETE ACT CCS CARD EXEC FILE"Z  :"MODIFICATIONS TO APPLE COMPUTER TERMINAL SUITE OF PROGRAMS SO THEY WORK WITH CCS ASYNCHRONOUS COMMUNICATIONS CARD""---------------------------------------"(:"CCS CARD MUST OCCUPY THE FIRST EMPTY SLOT AFTER SLOT 0"      ERG BRAND PROGRAM" APRIL 1983KK$"P"ī7307800:(4);"BLOAD ALPHA70"G37648,12:38224,6 IF YOU DONT LIKE THE NEW ZERO JUST PUT 4 BACK INTO THESE TWO LOCATIONS.:(4);"UNLOCK ALPHA70":(4);"BSAVE ALPHA70,A$9100,L$500":" DONE" : A F 0"" 00 0"N:" 0 IS ON THE LEFT, O ON THE RIGHT":" INSERT DISK WITH ALPHA70 (WRITE PROTECT TAB REMOVED)":" PRESS ";(91);"P] TO CONTINUE"" ANY OTHER KEY TO ESCAPE ";K$ ER 0 AND THE LETTER O ARE THE SAME"T:" YOU CAN MAKE THEM LOOK LIKE THESE"r:" 00 0"" 0 0 0 0"" 0 0 0 0"" 0 0 0 0"" 0 0 0 0"" 0 0 0D::"ALPHA70/DESCRIPTION"7N"-------------------"X" PUT $9126... IN LINE 12 OF THE TEXTFILE SHOULD READ PUT $9128..."b:" PRESS ANY KEY ";gK$l::"ALPHA70 CHARACTER SET"v"---------------------"$" THE NUMBOVED)"2:" PRESS ";(91);"P] TO CONTINUE"X" ANY OTHER KEY TO ESCAPE ";`K$qK$"P"ī540z580:(4);"BLOAD ALPHA70"&37452,320:(4);"UNLOCK ALPHA70"::(4);"BSAVE ALPHA70,A$9100,L$500"?:" DONE"( :(4);"BSAVE AT70/BIN,A$8F00,L$FE"; :" DONE"N ::"ALPHA70"] "-------" " I HAVEN'T SPOTTED ANY CONSEQUENCES OF THIS MISSING DELAY. THIS WILL FIX IT":" INSERT DISK WITH ALPHA70 (WRITE PROTECT TAB REM ANY OTHER KEY TO ESCAPE ";% hK$6 rK$"P"ī390? |450\ :(4);"BLOAD AT70/BIN"u 36765,32:36766,209 36817,192:36818,0:36819,208:36820,2:36821,160:36822,70:36823,140:36824,255:36825,143:36826,96 :(4);"UNLOCK AT70/BIN"26,96! ":(4);"UNLOCK AT/BIN"I ,:(4);"BSAVE AT/BIN,A$8F00,L$120"\ 6:" DONE"y @:" PATCH AT70/BIN" J:" INSERT DISK WITH AT70/BIN (WRITE PROTECT TAB REMOVED)" T:" PRESS ";(91);"P] TO CONTINUE" ^" RESS ";(91);"P] TO CONTINUE"C " ANY OTHER KEY TO ESCAPE ";K K$\ K$"P"ī260e 320 :(4);"BLOAD AT/BIN" 36765,32:36766,209 36817,192:36818,0:36819,208:36820,2:36821,160:36822,40:36823,140:36824,255:36825,143:368 OCCASIONALLY JUMPS A LINE AND MISSES A CHARACTER. THIS FIXES IT." " SOME MACHINE CODE IS ADDED TO AT/BIN AND AT70/BIN" :" PATCH AT/BIN" :" INSERT DISK WITH AT/BIN (WRITE PROTECT TAB REMOVED)" :" P# -d:" PRESS ";(91);"P] TO CONTINUE"5n:Qx"FERG BRAND UPDATES 3"}:"PROGRAMS ON SYDNEY A.U.G. DISK #31""NOTHING VERY SERIOUS":"ANYTEXT AND ANYTEXT70""---------------------"F " PRINTOUT OF BINARY FILES       hԪ`h|_תhժ`h|_תh@hnwתxh@hl_תh8ժ<h^תph8ժ hֲh8ժph8_תh8ժ0h0_תhԪ0h0ުhժ8hpުՆh`hxު.ގhdph8ުhժh~ުՎ@`hժ h_Վhժh`ުՆhժh`}ުՎhԪh`}[՜hDժh@[՜h8hp٪#׺h8h`}[՜hժh~{՚v0hժ hպh@ժh@{՜h@ժhw{՚hԪhwhtժhvhh@!`x hu END OF PROGRAM-1u A BRAND BRAND PROGRAMNy LINE 20900 ADDED JULY 1982h``h~o\h` hhpժ@h~oh`@h|oh@h|h\`h\hh~; 8x@h~hx8h~phxղ8hhXphXhxph|hphxժhԪ8hp~ժh`h\Վ ժH`phxժhު՚ hժ@hܪ՜hժhުղhp~ժhުպhdժhԺh`ժhԪ՜ h@ժh8hת xժ?hv0h`~ժhתՎh?ժhתDh>ժh@ת՜h@{?ժh@תՎh{?ժhԎhwժhԪՆhwժx h`ժ Hh_h@{wժ`h`ժ`h|ժh`ժdh~ժ hpժ@h~ժh`ժ@hnժ              @W(QPX QL ]QL X  ` PROGRAM  :I1250%"SWEEP ";,IJ:(4);"BLOAD SWEEP/BIN"R(:2"INSPIRED BY BOB BISHOP'S ARTICLE IN SOFTALK (OCTOBER 1982)"<:"A FERG BRAND PROGRAM"A:(4);"BLOAD SWEEP/PIC"F4096SP4096 d A FERG BRANDAMG;K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? ";IPM$\PM$"Y"ī20760oPM$"N"ī20690zP20650PG$F$((L$)64)PGT((G$,2,1))P(G$,2,1)"T"ī20740P21000P20500Q: QQ(4);(G$,2,1);"RUN";(G$P"TYPE TO EXIT ";# FOR FULL CATALOG" 216)" TRY THIS 1 "R NF$(17)" TRY THIS 2 " NF$(18)" TRY THIS 3 " NF$(19)" TRY THIS 4 " NF$(20)" TRY THIS 5 " LOL(DT$)2 VO:L)::(32);DT$SOUNDS "D NF$(11)"DTRS KS/DESCRIPTION "q NF$(12)"DTSSL/RENDEZVOUS CONDITIONS " NF$(13)" ST/INSTRUCTIONS " NF$(14)" BSTEP & TRACE " NF$(15)" TRY THIS "% NF$( ": NF$(5)" ANYTEXT70 "f NF$(6)" GHOST STORY " NF$(7)" KEYSPEAK ARITHMETIC " NF$(8)" KEYSPEAK DEMO " NF$(9)" MAKE KEYSPEAK " NF$(10)" RECORD O *N MENU)/N CREATED BY MENU WRITER14N:=>NF$(26)UNDT$"FERG BRAND #3"^NM20NF$(1)"BBALPHA70 "NF$(2)" ALPHA70/DEMO "NF$(3)"DTALPHA70/DESCRIPTION " NF$(4)" ANYTEXT       .x XɀH ͠h@H ͠h@ A FERG BRAND PROGRAM   :'6::" "C6:" SIMPLE TERMINAL "P(6:17)V2<::" FOR COMMUNICATION USING FERG BRAND'S NO FRILLS CARD IN SLOT 2 ";F:(4);"BLOAD ST/BIN"P34,4Zd4096n 0   @ `0GRAM 5LOCK OF MEMORY FROM $2000-3FFF"O Z:" 2001:00":" 2001<2000.3FFEM" d:" THIS TURNS THE PECLIAR RESPONSE OF THE MOVE WHEN RANGES OVERLAP INTO AN ADVANTAGE" n"---------------------------------------" s x A FERG BRAND PROG:" IF THE FIRST ADDRESS OF THE NEW LOCATION LIES BELOW THE FIRST ADDRESS OF THE OLD BLOCK, YOU DO NOT NEED TO DO IT IN TWO STEPS" H:" ANY KEY TO CONTINUE ";:K$: K"---------------------------------------"' P:" TO CLEAR A B OF THE WAY FIRST WITH 4123<5123.5ABCM":" NOTE THAT I HAVE ALTERED ONLY THE FIRST DIGIT" <" THEN MOVE THE BLOCK TO THE REQUIRED LOCATION":" 5678<4123.4ABCM" F:" JUST ALTERING THE FIRST DIGIT LIKE THIS MAKES LIFE EASY" E") :" ANY KEY TO CONTINUE ";:K$:X #"---------------------------------------" (:" SUPPOSE THE FIRST ADDRESS OF THE NEW LOCATION LIES INSIDE THE BLOCK":" TO MOVE THE BLOCK $5123.5ABC TO $5678 DO IT IN TWO STEPS"f 2:" MOVE IT OUT  :&" MONITOR MOVE TRICKS"U"---------------------------------------":" TO MOVE A BLOCK IN MEMORY THAT OCCUPIES $1000-1FFF TO A NEW LOCATION STARTING AT $5000"::" USE 5000<1000.1FFFM" :" NOTHING NEW HER     z#? ԠӠĠ ϠӠΠĠ ǠӠ ǯΠǯ٠"РЯΠЯà! ԠӠҠӠĠ  ϮˠҠŠ̠ԯΠ Ӡ įΠҠ  Ϯ "ԯΠ" ԯΠ ŠҠ̠ įΠ٠ŠҠ٠Š  ٠Ӡ٠Ӡ ٠Ӡ ٠Ӡ ٠Ӡ٠Ӡ ԱΠ  Šˠ ĠӠ ӠӯΠӯΠ ̯ӠӠ ԯӠ РŠ ̠ Ԡ٠Ϡ "ˠàˠϠӯΠӯԠ4!" ϠΠ Ԡ! Է  ԯΠ"ԷΠ @`@@@@@ @LuL)JPB$ "f@" 1PJe 3bH0PDH2P@LH0RDX"@fJ"@%( !R3* 8#H$ 6D&&!PbDH"@% XF3%D03TR 0L)L3$af('$BDJHbS* #'B (fI8%@%`\$)" RHR@! 8 p)6@ D2` f$bdRD0LaB3d@L HD D%9"$ 6*I:!. WD@9"j9R$0"l f@) JAfDA#DH J $)B2p@#H20$I 0n9"J J@9Fd p.R $Y1 BAL .9D% 'D)F"@CN PB9a`)JP"L H2 $ % XcBY JA!D"U)*YB$0RA" U p*`T*TPjEH P U"U(RJ%@TJD%@TU, !R )D* T H$IAD%hH"PJDT%@T% (DDDUU*)@")BH**!*UeJ*I*"TU*T0%"(JT% UU"I$)& UR@TQJ D )A@!pJTBI Q$$ERJ!PBFT"Ap(UJ@ "EUD *] E*U!$(Q*A UJU*%"IQ@D* *@)U$@)$DT"P*A $)" @(H P$U @*E*"**EH(NT* "R$ P""Ap$I"EUDQ)H@%@Td*EpF) )*Y""!P H $% "D *@)!$("U)JUb$(bD@" U:pju Y*rX8P*]H: @U"U(RL%@TqJD%@Te* 1R 1"* TH$I 'DT%$ 3P,r(DT%@T% $D;D8"@L5J) n)NH ,(qD!jVL*I*#"L5*L+%b (JP%@UU I$)*T VR@Ta* D )'@PLT"@H W$($ERLPNTqJX8D.@.UL "]e * %*U!$(QA FU,&" W@D* jA2UdA*"DT`* $)BU: @ H:P$Y0 *E*"j *AD0HT* "R$9`b.@$ "]eDA)DH%@TRJEpJ)q )JU".P H: $% b] jA*!$("U UW$(B"@"`U*P&S 3RP(p*H) "U0RHTu@LQJDu@LG*I+R !j &H$I DT&" *p(9R(DTu@L#.T"D*L( L5)*j] ((Q"@#jTH.I+fL3nL*%"(%JH 'UdH$*T tHR@LA* H 9@ PHT H ed($E2H 0JTQJP($@J *UHBUG* jU#d(qD@F u($" e`E: &A"f$A*!DT @J $U* @H)0$Q(jD*"**IB DT*'d 2 dT(@"AJ dBUGH"B@u@LQ EPJ)Q`)U'J P H)p$#.T"U &A*!$(LLS jHRd2LA" IPB 8!@ "" P$ H ` L#2f "`&f"`5d)2f*UHd1bN $LH)PF " bNH"`!@ Lf@TUN@`D@ D1f&L)!*#F 8*I*%"TUj1%L(JD U`  Id@ D 1S2`6FpP )b`1PFb@1B.b.f1D &D D;bA9*UfA 5P dT1d*EQdQ"@ JuF 0#,I9B@)pBDD&NH10A1d@ l  ` Hd +`*)'F*@LBT* ($0L;bA9$A 5P L"`fjPDX+& jH"1 \ DY!@ fLH BvD  ""HP @`@@`@.U AND DISPLAY TEXT fT0ī7203p ANOTHER FILE;zK$C:`"ANOTHER FILE? (Y/N) ";hK$K$"Y"X(0):300 RWTS SUBROUTINE47084,T:47085,S47088,BLO:47089,BHI36608 A FERG BRAND PROGRAMDH0`@UU* @*!*U*I*"TU*8AJT U(I @ T0 @@@$@@p,U@@ T(.EQ$Q*A UJU @@ D 0@(H .PnT*0*$p&A `@P H`  BSAVE ";F$;",A";(STLE)256;",L";LE2560 310R  SOUND GENERATING SUBROUTINEw 252,0:253,STLE:254,0:255,ST 940963256816  A BRAND BRAND PROGRAM9h310 r::"FILENAME? ";F$ |:(4);"BSAVE ";F$;",A";(STLE)256;",L3256, ::"COMPLETED":"TURN OFF TAPE";B , SAVE SOUND FILE 6::" ";(91);"S] TO SAVE FILE":" TO HEAR FILE":" TO QUIT "; @K$ JK$"S"ī370 TK$(13)İ2000 ^K$(27)ĺ: h310 r::"FILENAME? ";F$' |:(4);"LE" PLE1ĺ"DON'T BE SILLY":70= ZLE64ĺ"TOO LONG":70J dLE(LE)s n252,255:253,STLE1:254,0:255,ST x:"START TAPE PLAYBACK":" TO STORE SOUND IN MEMORY"; K$ K$(13)ī200 130 STORE SOUND IN MEMORY 94096ȱ RECORD SOUNDS :M:20)::" RECORD SOUNDS ":20)::X20992s(:(4);"BLOAD RS/BIN"2 CHOOSE LENGTH OF FILE. FILE WILL ACTUALLY BE TWO SECTORS LONGER THAN THIS<ST9162 F:"ENTER LENGTH OF FILE (IN SECTORS) ";:   @ ""\P J"\@$@! L;5wj@$]n 3 (fI Re` @@ @@ H9H J8W0!D@9"fM; @D @ \ JA9@D d. Dr@ @P@  @!p       ((((PPPP !!""## !!""## !!""## `  `  `  ` `I1%`I1`ɿȩ`8&`$ʽi```8f`< `i`@ @  @  @  @ j8@ `   `   `   `  `@ 39W |Y1((1)10)% Y1WY1W: Y123WY123WR (YY1)(XX1)ī350\ 4314e XX1n YY1w 320  A FERG BRAND PROGRAM PY ARE COORDINATES OF CENTRE OF MAGNIFYING GLASS (ON A 40*24 GRID)I K$\ K$(13)ī250e 220o 25,Yy 26,X 4096 K$ "K$(13)ī310 ,280 64314 @25,Y J26,X T4096 ^X1((0)6) hX1WX1W rX139WX1``/+`888HH8!0B8 hh`88   P:(Z" MAGNIFYING GLASS"2d4095BnP$"MG/BIN"VxQ$"MG/DISPLAY"n:(4);"BLOAD ";P$:(4);"BLOAD ";Q$49232,0:49234,0:49239,0W8: W IS WIDTHW0W1W20W20252,W14X11Y15A X,  X,Y) (49152)209Ĺ49168,0:::J (49152)128Ĺ49168,0:115S 150g ,X14064(0)2z 6Y8064(1)2 @XO"" P(49250)128Ģ6:31:"HI"A Z(49250)128Ģ6:31:"LO"Y _(49152)128ī110a d30n n49168,0t s{ x3 }75,15204,15204,14475,14475,15 21:1:" TO QUIT" "ANY OTHER KEY TO CLEAR SQUARE "; 300 X,Y 300  :(" JOYSTICK TESTER"G20:"ANY KEY TO CONTINUE"w4:"PADDLE(0) ";:20:"PADDLE(1) "(4:11:(0);:31:(1)26:"BUTTON(0) ";:20:"BUTTON(1) "<(49249)128Ģ6:11:"HI" F(49249)128Ģ6:11:"L LINE 20900 ADDED JULY 1982)500 @Q:EQ4JQ(4);(F$,2,1);"RUN";(F$,29)JQ(4);"RUN HELLO"dR TEXTFILE SUBROUTINER(20):(1):40):40):40)R(20):(1):"THIS IS A TEXT FILE "&RPAUSE1200:PAUSE0R0u END OF PROGRAM1u A BRAND BRAND PROGRAMyS BEEN DONE? "; PM$* PM$"Y"ī20760= PM$"N"ī20690H P20650\ PG$F$((L$)64)p PGT((G$,2,1)) P(G$,2,1)"T"ī20740 P21000 P20500 Q: Q Q(4);(G$,2,1);"RUN";(G$,29) Q(F$,2,1)"T"ī20800 "Q21000,Q20(32)ĺ::(4);"CATALOG":+ ZPK$(13)ĀM dP(K$"A")(K$(64M))ī20540a nPF$F$((K$)64)u xPFT((F$,2,1)) PL$(F$,1) PL$"A"ī20760 P(20):(1):40):40):40) P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THI~ON13Ė(20) OLN29' OM13LN13N O(91);(64N);"] ";(F$(N),3,LN)U ONv P(20):(1):40):40):40) P(20):(1):"TYPE ";(91);"LETTER] TO RUN" (P"TYPE FOR FULL CATALOG" 2P"TYPE TO EXIT "; NF$(26)^NDT$"FERG BRAND PROGRAMS #4"gNM13NF$(1)" ANYTEXT70 "NF$(2)" APPLE COMPUTER TERMINAL "NF$(3)"ATACT/DESCRIPTION " NF$(4)" ACT MOD     ,29)Q(F$,2,1)"T"ī20800*"Q210005,Q20500=@Q:CEQfJQ(4);(F$,2,1);"RUN";(F$,29)|Q(4);"RUN HELLO"R TEXTFILE SUBROUTINER(20):(1):40):40):40)R(20):(1):"THIS IS A TEXT FILE "&RPAUSE1200:PAUSE0R006,234:47414,234:47415,234:47422,169:47423,0v 47497,234:47498,234:47506,234:47507,234:47516,234:47517,234 :" NOW RUN FID, COPYA OR DISK FIXER" , A FERG BRAND PROGRAMK BOOT WITH DOS 3.3 DISK" 2" PRESS TO ALTER DOS. (IT IS ONLY THE VERSION IN MEMORY THAT IS CHANGED. YOUR DISK IS NOT AFFECTED.)" <:" PRESS TO QUIT "; FK$ PK$(13)ī200 ZK$(27)Ā d700 47405,234:474  :" IF THE CHECKSUMS AND EPILOGS OF THE ADDRESS AND DATA FIELDS OF A DISK HAVE BEEN ALTERED ORDINARY PROGRAMS LIKE FID,COPYA OR DISK FIXER WILL HAVE PROBLEMS."" THIS PROGRAM ALLOWS YOU TO IGNORE CHECKSUMS AND EPILOGS." (:" S"::"TYPE RUN WHEN COMPLETE TO RESTORE DOS";E hn :"ERROR. WRITE PROTECTED DISK? ": PAUSE1500: I13 CHANGE 76,0,160 41036I,CHANGE I :(4);"CATALOG" $  A FERG BRAND PROGRAM0 :(4);"OPEN ";B$, ":(4);"CLOSE"} ,:"THIS IS A GOOD MOMENT TO DELETE ANY COMMENTS ALREADY IN THE CATALOG" 6:"PRESS ";(91);"P] TO PAUSE TO DELETE" @"PRESS TO END"; JK$ TK$(13)ī1000? ^K$"P"ĺ::"DELETE FILEUE" nK$ xK$(27)ī400 K$(13)ī1509 110D I13P CHANGEd 41036I,CHANGEu 234,234,234| I L0ī300 B$(42)(42)(42) L(C$) I1L C((C$,I,1)) CC(C128)128 B$B$(C)  99! PUT COMMENTS IN DIRECTORY):J"PUT COMMENTS IN DIRECTORY"w(:"ENTER COMMENT (MAX 24 CHARACTERS)":2" ";C$<L(C$)FL0ī150PC$(" "C$,(L24)(L3)(L24)27)Z:C$ d:" TO REWRITE":" TO CONTIN(BEGINNING OF SUBROUTINE)": i"7 SAVE APPLESOFT PROGRAM"y n:" TO SEE WHAT THE SUBROUTINE DOES" xK$ 2064  A FERG BRAND PROGRAM CES IN THE REM." P"4 REPLACE THESE SPACES WITH YOUR BINARY SUBROUTINE. BUT DON'T HAVE ANY 00'S. YOU MAY HAVE TO TAKE SPECIAL STEPS TO AVOID THESE." Z"5 TYPE 3D0G TO RETURN TO APPLESOFT." d"6 YOUR APPLESOFT PROGRAM MUST HAVE A CALL THAT IS WHY LINE 10 LOOKS STRANGE.": (:"TO DO THIS:" 2:"1 TYPE PROGRAM WITH LINE 10 REM FOLLOWED BY LOTS OF SPACES" <"2 CALL-151 TO ENTER MONITOR" F"3 EXAMINE MEMORY $800-9FF. YOU WILL SEE A LOT OF 20'S. THESE ARE THE SPA 0L :% "THIS PROGRAM CONTAINS A BINARY SUBROUTINE IN AN APPLESOFT REM.     ";LE256 3103  SOUND GENERATING SUBROUTINEX 252,0:253,STLE:254,0:255,STo 940963256816u  A BRAND BRAND PROGRAM                                                            $    "                                            H;J Ah    C* AAL $ ! '<&:"('&)$,;': # # (iAXHW+(`8!) (!" 0.  ( -=#!X*   6  !(#(*&   !   C&3, A B D  QP [%=&        0 g3   5   &  ! AwCyzd6mMs1b[O'q6ΗL>=' M e N(   %         *    *%  < F:\D%# txB! 8\#XDY,a>12C > #  htIuc3[.`d8 cY C'CB%fG36/4!/m.7TlihMJ-\{S"3%3 )F:(+KA7 >+-.g/0r=rC,J8,W2$ &.3tg, H,KQ|#~o$;twB*-9 -41'y.  : 7  94 4  "%'   %?#%\;*\c(peq6R%;)08$? %C <2&2&*    #>*5&CA>"%8 '!   $ $#"!' ' % " " !       BBCB' %#8$5&.+              5-  #       !"!##%%%%'&&$" :5 % &        '    T c8  -x$ 7 ;#lw7 "%/9?$I ",C#8' )!! )%&% ( (( %!#"  ""* "!;mN mYW ""qy([?]CZD]CW8H6O=N @?g?6Ga >WH_<>DlQF"1a%+5b6[s=:a:[l*).7",]<$$ "8 # ! M% & ' ' ' '& "!"" %%C;9    +H  #         $  +   )!!& &% !! """! "!'            $ <4.2 - / 4 " " !    ?  [.M~y>MS1           %                               -                       $)   FY3D/ r: [1  .-E                        (N"R#U'T-R/R6S6N=N?R=EKMP|8)B ; Q#  e  "Y6. !B,"   &  '%  B/#"  !9=  /.""##H "   "    "   %   "   "              FP*u-yI,5;  Px %   *  !aB /  /       '   "               &3#   !   #   * ]'k?WB. O$ 4ibF':c9"jj;: ?rBSF'@i:H5+3.-^;/3 ! 3("          )|y@+O5  "       2       ""&&%#&&' "%#"& "& !#% "$##  & '!#8!  1 "++!.%#$""  ! 3,          "      D   # MaqIMk!TI15,1$"*+ !(#" $$)# ""#! "%#!"&$"      %" # # :8& "A7  $W<  )  '3 8 ,+   1/ X!3$''6K%AtOST$jxTxZ#3( "-$&!$+%# $.$ #/!#$1%"(2!%&11&(.!%'0 #'1&''&-((& $!! $                        -  ,%+*" \ j ;7-'b/u O\>f: + 4  '       !                                                                              -$$-*%!!!$                                             DN * R9 4`#*`  ,<:3$                   "=*),          R   9! OAlU,04!"6 '! !#%# $ %r ( 26%     *; 7 ( $#  !&     '    (  "$3 16' e)  )  0        **************) FILE 58,AL:59,AH) 60,BL:61,BH2 808: K$e :(4);"RUN BINARY FILE DISASSEMBLER"}  LIST ANOTHER FILE **********************  WARNING " , CHANGE ANY LINES BEFORE 60 AND THIS PROGRAM WILL DIE.  6******** TEXT POINTER.& :(4);"BLOAD ";F$B AL(43634):AH(43635)r ADDRESS OF START OF FILE IS AT $AA72-AA73 LL(43616):LH(43617) LENGTH OF FILE IS AT $AA60-AA61 BALLL256(AHLH) BH(B256):BLBBH256 ADDRESS OF END OFTO SHIFT THE TEXT POINTER BEFORE LOADING THE BINARY FILE. $240 ARE THE APPLESOFT STATEMENTS (WITHOUT REMS). $328 IS THE LISTING SUBROUTINE.  x LINE 55 IS COSMETIC. WHEN YOU LIST THE PROGRAM AFTER RUNNING IT YOU'LL SEE THE NEW LINES. LINE 60 SHIFTS THE REALLY TRICKY. IN ORDER TO AVOID PROBLEMS WHEN A FILE FALLS AT $800 (WHERE APPLESOFT PROGRAMS NORMALLY LIE), AT THIS POINT WE REDIRECT APPLESOFT TO LOOK FOR SUBSEQUENT INSTRUCTIONS IN A "SAFE" AREA. n I HAVE CHOSEN $230 ONWARDS. $230 IS A SUBROUTINE CC C5 A0 B2 0D 00"1 :"BRUN RUNNER"b :"---------------------------------------"h   A FERG BRAND PROGRAMK A FERG BRAND PROGRAMKA9 30 LDA#$30 :$330 IS STRING"R " A0 03 LDY#$03 : BRUN" " 20 3A DB JSR STROUT:FILE 2 0"  "320:04 C2 CC CF C1 C4 A0 C6 C9 CC C5 A0 B1 0D 00 330:04 C2 D2 D5 CE A0 C6 C9 "HERE IS ANOTHER APPROACH USING A BINARY FILE CALLED RUNNER LOCATED AT $300"h "300:A9 20 LDA#$20 :$320 IS STRING" " A0 03 LDY#$03 : BLOAD" " 20 3A DB JSR STROUT:FILE 1 0"$ " UE "; ZK$> d:"---------------------------------------"g n:"USING A TEXT FILE CALLED RUNNER" x:"BLOAD FILE 1":"BRUN FILE 2" :"EXEC RUNNER" :"ANY KEY TO CONTINUE "; K$ :"---------------------------------------"b :INT : PRINT CHR$(4);";(34);"BLOAD FILE 1";(34):"20 PRINT CHR$(4);";(34);"BRUN FILE 2";(34)s <:"RUN RUNNER" F:"BUT IF FILE 1 LIES AT $800 THIS WONT WORK BECAUSE THIS IS WHERE YOUR APPLESOFT PROGRAM RESIDES" P:"ANY KEY TO CONTIN  :T"LOADING BINARY FILES":"FROM OTHER PROGRAMS":"--------------------":"SUPPOSE YOU WANT TO LOAD TWO BINARY FILES AND THEN RUN ONE. YOU COULD DO IT THIS WAY:"(:"USING AN APPLESOFT PROGRAM CALLED RUNNER"_ 2:"10 PR  )"          " "! !=E8X2$ Der i! D    { B {<$# d d6      +*  !?&DX<2"&:648 5   1"$                                                                     7 DE6?qoKgE}GvaqnS]k*e @l4ghe:fde!.g!.g!.i/fdd7_/a& 2( +4!&)(&,d42/)() 4!#   :)"BINARY FILE DISSASEMBLER"L BASED ON LIST IN MONITOR ROMg A FERG BRAND PROGRAMp40x#45("THIS IS NOT A BINARY FILE":50-:(4);"BLOAD BFD/BIN"2:"FILENAME ? ";F$72278,65:2279,2<560 d NOW WE GETheԠprogramdownathismeansyoucantlistfilesthatlieuthorǠč̠٠ŠĠȠԠϠŠҍputin̮٠ŠҠsaveallthisworryandmakesyourlistjusttherightlengthherearesometricksintheprogramsothatfilesthatstartatrightontopofԠcanbelistedɠputtheendoftE zK$:M43603,240:43604,253: POINT CSW TO MONITOR SUBROUTINEj"ANOTHER FILE? (Y/N) ";rK$K$"Y"X(0):300 RWTS SUBROUTINE47084,T:47085,S47088,BLO:47089,BHI36608 A FERG BRAND PROGR`ST(20),FI(20),KE$(20)Hj:20)::" KEYSPEAK ":20)::St20992n~:(4);"BLOAD KS/BIN"vK$N1NTK$KE$(N)İ2000N1510 SOUND GENERATING SUBROUTINESH(ST(N)256):255,SH:254,ST(N)SH256,DRESS DISPLAY SUBROUTINE4\ST(N)(255)256(254)PfFI(N)(253)256(252)p(14):(1):"SOUND LIES BETWEEN ";37376ST(N);" AND ";37376FI(N);" ";z PRESS KEYS HEAR WORDS PROGRAM CREATED BY MAKE KEYSPEAK BY FERG BRANDV:T(";N;")=";ST(N);":FI(";N;")=";FI(N);":KE$(";N;")=";(34);KE$(N);(34)MN`"1500 NT=";NTq "DEL 0,999""SAVE KEYSPEAK""POKE 34,0" "DELETE MKS/TEXTFILE"*:(4);"CLOSE MKS/TEXTFILE"4(4);"EXEC MKS/TEXTFILE">R AD l34,0:+v"CREATING FILE "534,2K CREATE TEXTFILEk:(4);"OPEN MKS/TEXTFILE"(4);"WRITE MKS/TEXTFILE""1160 F$=";(34);F$;(34)"1170 PRINT CHR$(4);";(34);"BLOAD ";(34);";F$"N1NTF(119010N);"S::"WHAT KEY WILL GENERATE THIS SOUND? ";6 KE$(N)B KE$(N)Y KE$(N)(27)ī170v " TO CONFIRM ";~ &K$ 0K$(13)ī580 :510 D::"ANY MORE SOUNDS? "; NK$ XK$"Y"N20NN1:170 ]K$"N"ī610 _550 bNTNK$"S"L$(21)Č37376:270; K$"S"L$(8)Č37440:270\ K$"F"L$(21)Č37504:270| K$"F"L$(8)Č37568:270 L$"S"L$"F"L$" "L$(13)K$L$:215 210 L$" " 850 "240  SET KEY WHICH GENERATES SOUND N* (19)H":" TO GO TO NEXT GAP") 850r :::" TO HEAR SOUND":" TO PROCEED TO NEXT SOUND " (14):(39) K$ K$"S"SF$"S":240 K$"F"SF$"F":240 K$(32)Č37760:210 K$(13)ī500 210 L$ 3)ī140 110( :(4);"BLOAD ";F$0 N1b 255,145:254,255:253,(43635):252,(43634)n 34,4: (7)::"THIS IS SOUND NUMBER ";N SET START AND FINISH OF SOUND N (9)::" TO SET START TO SET FINIS, AND KEYS ALLOW YOU TO SELECT PARTICULAR SOUNDS FROM THIS AREA" \:"THIS PROGRAM CREATES ANOTHER PROGRAM WHICH CALLS UP EACH OF YOUR SELECTED SOUNDS BY A SINGLE KEYSTROKE" d:" TO PROCEED "; nK$ xK$(1e  MAKE KEYSPEAK:8ST(20),FI(20),KE$(20)h(:20)::" MAKE KEYSPEAK ":20)::s220992<:(4);"BLOAD KS/BIN"F"FILENAME: ";F$P(9)::"SOUND IS STORED IN A MEMORY AREA UP TO 16384 BYTES LONG"N Z:"THE      ٠ŠҠ΍sesį΍ɠfoundthemonitor̠instructionveryinconvenienttouseforobtainingaprintoutofadisassembledbinaryprogramɠdidnotliketyping̠aftereverylinesandɠneverknewhowmany̧stonganykeyrestarts̠̾clearspageandgoestotopofpageҺǠčҠ٠ŠĠȠԠϠŠҮpressedmustbemodifiedhisiseasilydonebycallingthesubroutineatoteackspaceworksbutisindicatedbyaloweredfullstopnotbyacursormovement̠Ӿstopslisti̠utattheנlocationsorŠŠnaprogramlikeatextreaderwherethecharacterstobeprintedarelessthanandcontrolcharactersexceptreturnneedtobesupinetoclearandthengotothehirespagestartsatheprintcharactersubroutinestartsatheprogramusesthefollowingzeropagelocationsàĠŠƠ àĠŠƠƹ àĠŠƮouseҠor΍columnsonyourscreenwithouthardwareutrecommendedforuseonlywithhighbandwidthmonitorsnotyourordinary֠orevenamodifiedonetuseshirespageheprogramsitsatƮhesubrout LhHh:h;/ V; THH::;:-H,H E@A  J 0`: V:8 J8LhLZ3 g 40c U4L  &>&?1?=A>?I i`HfH11`4 uLL hhL h,h-m<:B/ Y`EL\lY@5)I:< ?L<EhH 0l( Lh:h;  NO OTHER COMMANDS ARE RECOGNISED"' "+ A" (SUPPOSE PROGRAM STARTS AT $5000)"1 BO F" IF NOT IN *, CALL-151"U Kc P" 9000G"{ Z" (RESPONSE IS !)" _ d" 5000S,S,S... WILL STEP" n" THROUGH PROGRAM" x" 5000T WILL STEP CONTINUOUSLY" }! " )  :+" STEP & TRACE INSTRUCTIONS"|:" THIS STEP AND TRACE PROGRAM USES":" ROUTINES FROM THE OLD MONITOR ROM""****************************************"(" BLOAD STEP & TRACE"2" (IT RESIDES AT $9000)"7 <" BLOAD PROGRAM    ̠ : "TRY THIS":1"POKE 214,255":u"PUT THIS IN A PROGRAM, RUN THE PROGRAM THEN TRY AND LIST IT"(214,2552< SEE AUSTRALIAN PERSONAL COMPUTER DEC 1981 PAGE 67F A FERG BRAND PROGRAM*  CONTENTS OF A,X AS A 4-DIGIT HEX NUMBERR  20 8E FD JSR CROUT PRINTS A m , A FERG BRAND PROGRAM L FLOATING POINT ACCUMULATOR), MAKES SURE IT IS A NUMBER 20 52 E7 JSR GETADR CONVERTS NUMBER IN FAC INTO A 4-DIGIT HEX NUMBER AND STORES IT AT LINNUM ($50,51) A5 51 LDA LINNUM+1 A6 50 LDX LINNUM(  20 41 F9 JSR PRNTAX PRINTS <:(4);"BLOAD TT1/BIN" F3 d"ENTER A: ";AD n768,A,2A5J xS 100| THE KEY FEATURES OF THE SUBROUTINE 20 BE DE JSR CHKCOM CHECKS TEXTPTR FOR A COMMA7 20 67 DD JSR FRMNUM EVALUATES FORMULA AT TXTPTR, PUTS IT IN FAC (THETS CAN BE NUMBERS OR FORMULAE": 2"THIS EXAMPLE ASKS FOR THE VALUE OF A":" USES CALL 768,A,2*A+5 TO ILLUSTRATE THE USE OF A NUMBER AND A FORMULA AS ARGUMENTS":" PRINTS THE TWO QUANTITIES AS HEXADECIMAL NUMBERS":o  :t"CALL A MACHINE LANGUAGE SUBROUTINE AND CARRY PARAMETERS INTO IT FROM YOUR APPLESOFT PROGRAM"::"--------------------------------------":"YOU CAN HAVE A PROGRAM LINE LIKE:"::" CALL 768,A,B,C":& ("NOTE THE ARGUMEN0 g RQP A g RQP A ` HE WAY AROUND THIS IS TO WRITE":] #" 100 PRINT CHR$(4);";(34);"EXEC CALL-151";(34) ("WHERE CALL -151 IS THE NAME OF A TEXT FILE WITH THE SINGLE LINE CALL -151":: 2"PRESS ANY KEY WHEN READY";:K$ <:(4);"EXEC CALL -151": F A  :O"HOW TO WRITE A PROGRAM LINE THAT GETS YOU INTO THE MONITOR"::"-------------------------------------": "IF YOU SIMPLY WRITE":" 100 CALL -151":"THE PROGRAM JUMPS INTO THE MONITOR BUT DOS COMMANDS NO LONGER WORK"::"T    S:;;=:<`0@`Y:(4);"BLOAD ";F$uAL(43634):AH(43635)LL(43616):LH(43617)BALLL256(AHLH)BH(B256):BLBBH25658,AL:59,AH60,BL:61,BH808K$%:(4);"RUN BINARY FILE DISASSEMBLER" RAM 64:+ RESET READING FROM DUMP POINTERS< 8,0:9,64:j` SET CSW TO POINT TO MONITOR SUBROUTINESj 43603,240:43604,253: SET CSW TO POINT TO ALPHA70 43603,40:43604,145: A FERG BRAND PROGRAM S5: A FERG BRAND PROGT1ĺ"COMMANDS: ";:)T1Ė11::T$=N1Ė11::N$;QZ1Ė11::Z$;WgN0:T0:Z0m CLEAR HI-RES PAGE37120:: $91004 CLEAR DUMP>6,0:7,64:36832:: $8FE0 RESET DEPOSITING IN DUMP POINTERS6,0:7,IT DUMP SUBROUTINE  M7:1900*220042000A49232,0T!36736: $8F80h&8,(6):9,(7)n+l MODE AND INSTRUCTION SUBROUTINEq21:"---------------------------------------"v22:119);{22:1:"MODE: ";::M$(M):(L256):LLLLH256$r6,LL:7,LH4w8,LL:9,LH>|2500Dm1:23:"DISK ERROR ";(222);:65);v768PAUSE1PL:PAUSE1:23:79);1615 CATALOG SUBROUTINE:(4);"CATALOG"L$49232,0 TRANSM2);:65);768*PAUSE1PL:PAUSE<1:23:79);F"1515\@ LOAD SUBROUTINEgE1670uJM6:1900O1:23:"FILENAME? ";F$T2100YF$""ı^;:(4);"BLOAD ";F$;",A$4000"c2000hL(43616)(43617)25616384mLH(6):9,(7)435/ SAVE DUMP SUBROUTINE:1550HM5:1900e1:23:"FILENAME? ";F$DL(6):DH(7):LEDH256DL16384F$""ı;:(4);"BSAVE ";F$;",A$4000,L";LE6,DL:7,DH2500  1:23:"DISK ERROR ";(22675,239:36682,239: RESTORE CASE INDICATOR 6430R ERASE DUMP SUBROUTINE`M3:1900j2100t#2000~(2500-x MAKE FILE SUBROUTINE}M4:T1:19002000210025003679236800: MAKE SUBROUTINE 8,NABLE READ ONE PAGE MODb36630,250:36675,250:36682,250: SHIFT CASE INDICATOR OFF SCREEN l2000v230049232,036792: DISABLE INTERRUPTM2:N1:T1:190036633: KEYBOARD INPUT BUT NO INTERRUPTS $8F19 -36630,239:36qK$"Q"ĉ:#vK$(27)ī400n{K$"I"Ĺ49235,0:37367,20:400: CHANGE ALPHA70 FOR 20 LINE OPERATIONK$"F"Ĺ49234,0:37367,24:400: RESTORE ALPHA70 FOR 24 LINE OPERATION585 READ DUMP SUBROUTINERF1:37371,64:37372,144: E(91);"I] FOR INSTRUCTIONS AT BASE OF SCREEN"aD(91);"F] FOR FULL HI-RES SCREEN ";iIK${NK$"R"ī1200SK$"E"İ1300:400XK$"M"ī1400]K$"S"İ1500:400bK$"L"İ1600:400gK$"C"İ1700:400lK$"T"İ1800:400O LOAD""(91);"C] TO CATALOG"P" ALL DISK FUNCTIONS SLOT 6, DRIVE 1"V!w&(91);"T] TO TRANSMIT DUMP"+:(91);"Q] TO QUIT"0:5:" TO DO NOTHING AND RETURN ";:21:1:"---------------------------------------",?NE PAGE MOD AND CLEAR READ FLAG6  HANDLERC 49168,0M 2400U :{ " APPLE COMPUTER TERMINAL" :(91);"R] TO READ DUMP" (91);"E] TO ERASE DUMP" :(91);"M] TO MAKE FILE" (91);"S] TO SAVE"(91);"L] T Z$" ^P NUL CASE "* ,20004 12100= 6RF0T ;37367,20:49235,0a 49232,0n 49239,0x 2400 M1:T1:Z1:1900 2500 36608: KEYBOARD INPUT $8F00 RF1Ĺ37371,0:37372,145:RF0: IF READ FLAG SET, DISABLE READ OFH(FI(N)256):253,FH:252,FI(N)FH256B37760: $9380 Hd A BRAND BRAND PROGRAM "- M$(3)" ERASE "Q M$(4)" MAKE "u M$(5)" SAVE " M$(6)" LOAD " M$(7)" TRANSMIT " T$" ^T EXIT " N$" ANY KEY FOR NEXT PAGE "92,201,148,208,8,104,104,104,104,169,89,72,96,76,0,145 M ONERR GOTO FIXY I110c CODEs 767I,CODEz I 104,168,104,166,223,154,72,152,72,96 PL400: PAUSE LENGTH M$(1)" COMMUNICATE " M$(2)" READ /BIN"! x:(4);"BLOAD ALPHA70"` }37127,234:37128,234:37129,234: ALTERS ALPHA70 AT $9107 37440,96: ALTERS ALPHA70 AT $9240 MOD TO READ ONE PAGE AT A TIME I123 CHANGE 36927I,CHANGE I8 173,0,192,16,251,141,16,1 d8192i:<n2:8::" "`o8:" APPLE COMPUTER TERMINAL "op8:25):q12:8:"FERG BRAND APRIL 1983"s18:7:"300 BAUD COMMUNICATION USING"t19:9:"NO FRILLS CARD IN SLOT 2" v:(4);"BLOAD ACT      8`hh`ɑ8`hh`s 8`hh`8`hh`HH8!0B8 hh`88  `  ` @ @ @ `` ` ` ` @`560 FH(FI(N)256):253,FH:252,FI(N)FH256F 37760: $9380 L h A BRAND BRAND PROGRAMF256 37760: $9380 E3)28439:KE$(13)"*"> 2ST(14)28450:FI(14)27841:KE$(14)"/"h <ST(15)27862:FI(15)27110:KE$(15)"="r NT15z K$ N1NT K$KE$(N)İ2000 N 1510   SOUND GENERATING SUBROUTINE SH(ST(N)256):255,SH:254,ST(N)SH2)32984:FI(7)32052:KE$(7)"7"E ST(8)32071:FI(8)31763:KE$(8)"8"l ST(9)31785:FI(9)31322:KE$(9)"9" ST(10)31322:FI(10)30639:KE$(10)"0" ST(11)30633:FI(11)29860:KE$(11)"+" ST(12)29842:FI(12)29257:KE$(12)"-" (ST(13)29249:FI(1);"BLOAD ";F$4 ST(1)37224:FI(1)36748:KE$(1)"1"[ ST(2)36730:FI(2)36311:KE$(2)"2" ST(3)36294:FI(3)35702:KE$(3)"3" ST(4)35699:FI(4)35157:KE$(4)"4" ST(5)35153:FI(5)34515:KE$(5)"5" ST(6)34515:FI(6)32987:KE$(6)"6" ST(7i PRESS KEYS HEAR WORDSR PROGRAM CREATED BY MAKE KEYSPEAK BY FERG BRANDZV:u`ST(20),FI(20),KE$(20)j:20)::" KEYSPEAK ":20)::o:"PRESS A NUMBER ";t20992~:(4);"BLOAD KS/BIN"F$"KS/COUNT" (4     FERG BRAND PROGRAMKrǠč̠٠ŠĠȠԠϠŠҠandtheӠcardlotmaybeemptyotherwisetheinterruptwontworkɠhaveprovidedtheprogramԠӠĠӠtomakethesechangesoullneedsomeroomonyourdiskandofcoursewriteprotecttabremovedforasmallàfileuthoangeshavetobemadeheprogramhasbeentestedwiththeӠcardeveralmodificationsmustbemadeirsttheontheboardmustbeinitialisedandtoldwhatsortofdatatoexpectecondtheremustbenoemptyslotsbetweenslotUSTENANCE FROM THE"C$"DATA PERMEATING THE"C$"ETHER, IT BECOMES"C$"SOLID..."Y I1` 8j 25,1t 26,2 (S$,I,1); II1 I144ī150 2216  A FERG BRAND PROGRAM  THE SCREEN SWITCHING USES TECHNIQUES DESCRIBED B,113260,113270,153150,153160,113I d150,153155,160265,160270,153v n170,125250,125253,141167,141170,125 w THE STORY xC$(13)Q S$" GHOST STORY"C$C$" ON MIDSUMMER'S EVE"C$"A GHOSTLY APPLE"C$"APPEARS. AS IT DRAWS"C$"S o ' HOW TO DRAW ON THE HI-RES SCREEN SO NOBODY CAN SEEu ( -25,1:26,40 23 <49234,0:49233,0 F180,60240,60240,110180,110180,60 P183,63237,63237,107183,107183,63$ Z160  : IF THE NEXT REM STATEMENT LOOKS ODD, DON'T WORRY. I HAVE A BINARY SUBROUTINE TUCKED IN IT. SO DON'T ALTER OR DELETE THESE FIRST THREE LINES.6  W((QPPQP`      theblockitsendsanulotesmentionedabovemycardsitsinslotharactersaretransmittedtoandreceivedfromthecardbyaccessingtheaddressðinԯήlotwouldbeð±andsoontishereinԯΠwheresuchchechofromtheothercomputerbutwaitsforalittleoversecondbeforesendingthenextcharactertwaitstwiceaslongifithasjustsentacarriagereturnincasetheremotecomputerrespondswithacarriagereturnandalinefeedttheendofemotecomputerhisroutineisperhapsrathercomputerspecificitwasdesignedtosendtexttotheniversityofydneyҠcomputerintheԠmodeoweveritwillprobablyworkgenerallytdisplaysandthentransmitsacharactertignoresthenbeuptoưbyteslongƩotecontentsaresavedasa٠filenotasaԠfileĠmodeoadabinaryfileintothebufferakesureitisnotmorethanưlongԠmodeendablockofdatatother̠ԾtoexitŠmodeavethebufferhebuffermaycontainconversationbetweenyouandtheremotecomputerorperhapsthefileyouhavecreatedwithŮnlythepartfromthebeginningtothecurrentendoftextissavedilescaovedbytakingtheƠoptionĠmodeeadthecontentsofthebufferpagebypagexitatanytimebytyping̠ԾŠmodelearsthebufferandreturnstoŠmodeŠmodeakeafilethatcanbedhebottomofthescreen̠ԾiswrittenascaratԮnulcharacterisgivenby̠оhangingbetweenuppertolowercaseisdonewithþhecurrentcaseisindicatedbyaՠor̠intheinstructiontabletheinstructiontabletmayberem                                                                                                'xLf)8f`&)8&`ɓ ,` !!""## !!""## !!""##((((PPPP6.)67 9A IЍ` JL`L@ RTWP' `5H 8h5`ɠLH8頨Lh`ɍLɈL8ɌL`e  &) )ii`iн e ȘL!!!!!! OVE T/S LISTT(64256I)4T0BHI128ī840>II1P S(64256I)Y960g BHIBHI1q*II14(I256)256I0II12>750H DISPLAY TEXTR6,0:7,DHI1\36752: READ AND DISPLAY TEXTfT0ī720p ANOTHER FIL,BHI b36832: CLEAR DUMP% l960R v IF T/S LIST FILLS MORE THAN ONE SECTORt T(BHI2561):S(BHI2562) T0ī690 BHIBHI1 960 640 DHIBHI  READ TEXT I12 BHIDHI1 6,0:7,BHI 36832: CLEAR DUMP AB "; K$# K$" "FLAG0ī360; K$" "FLAG1ī900S K$"A"K$"V"ī490b K(K$)65 BT(BHI(K7))256(K(K7)7)3511 &ASBT1 0T(BT):S(AS) :T0T255ī490 D37120: CLEARS HI-RES PAGE NBHI64:BLO0 X6,BLO:760 A(BHI25611)/ A0S0FLAG1:440C SS1:BHIBHI1^ S12S9S6S3ī440g 380{  PRINT CATALOG BHI64 7,BHI 36624: READ AND DISPLAY CATALOG :"PRESS ";(91);"LETTER] TO CHOOSE FILE":" FOR MORE,0:7,64- "36832: CLEAR DUMP ($4000-7FFF)L ,37120: CLEAR HI-RES PAGE| 643603,40:43604,145: POINT CSW TO ALPHA70 @ READ CATALOG JFLAG0 T47082,D:47083,0 ^T17:S15 hBHI64:BLO0 m6,BLO:7,BHI r36832: CLEAR DUMP |918 3:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")" " PRESS NUMBER TO CHANGE DRIVE":" TO CONTINUE "; K$ K$"1"K$"2"K$(13)ī220 K$"1"D1 K$"2"D2 K$(13)ĺ:200  IMPLEMENT ALPHA70 6d ANYTEXT70Un THIS PROGRAN CAN DISPLAY ANY FILE AS A TEXTFILE IN 70 COLUMNSax SETUPi:s8192" ANYTEXT70":(4);"BLOAD AT70/BIN"(4);"BLOAD ALPHA70"37536: MODIFIES ALPHA70 FOR TEXT READING  D! ! ! ! ! !!!  `  i! iH5) ( ( ( ( ( ( (Ș ( П`Fɠ я (0ɍ`F (0F`ɀ`"!!  37120(:(4);"BLOAD ALPHA70"337120L(43603,40:43604,1452"1234567890123456789012345678901234567890123456789012345678901234567890"<:"HELLO THERE" :"NEXT": 1510$ lN1NT9 vK$KE$(N)İ2000@ NF h  SOUND GENERATING SUBROUTINE SH(ST(N)256):255,SH:254,ST(N)SH256 FH(FI(N)256):253,FH:252,FI(N)FH256 37760: $9380  A BRAND BRAND PROGRAM 3:1600 61540( @" ";K$;" ";:19000 EK$] JK$"0"K$"9"B(K$):B;:1900:1630g T1605 ^K$"=":" ";K$;" ";:1900 hF1CAB rF2CAB |F3CAB C C$(C) M(C$) I1M K$(C$,I,1) 1900 I2ST(14)28450:FI(14)27841:KE$(14)"/"Q <ST(15)27862:FI(15)27110:KE$(15)"="[ NT15~ "ENTER ARITHMETIC PROBLEM ": K$ K$"0"K$"9"A(K$):A;:1900:1540 1510 K$ K$"+"F1:1600 K$"-"F2:1600 "K$"*"F(7)"7". ST(8)32071:FI(8)31763:KE$(8)"8"U ST(9)31785:FI(9)31322:KE$(9)"9" ST(10)31322:FI(10)30639:KE$(10)"0" ST(11)30633:FI(11)29860:KE$(11)"+" ST(12)29842:FI(12)29257:KE$(12)"-" (ST(13)29249:FI(13)28439:KE$(13)"*"' 37224:FI(1)36748:KE$(1)"1"D ST(2)36730:FI(2)36311:KE$(2)"2"k ST(3)36294:FI(3)35702:KE$(3)"3" ST(4)35699:FI(4)35157:KE$(4)"4" ST(5)35153:FI(5)34515:KE$(5)"5" ST(6)34515:FI(6)32987:KE$(6)"6" ST(7)32984:FI(7)32052:KE$ PRESS KEYS HEAR WORDSR PROGRAM CREATED BY MAKE KEYSPEAK BY FERG BRANDZV:u`ST(20),FI(20),KE$(20)j:21)::" KEYSPEAK ARITHMETIC ":21)::t20992~:(4);"BLOAD KS/BIN"F$"KS/COUNT":(4);"BLOAD ";F$ ST(1)""""""" "phonehecardsitsinslotandrunsatbaudhenfirstturnedontheprogramisintheŠmodefortalkingwiththeremotecomputerheotheroptionsareaccessedbytyping̠ԾntheinstructiontabletthatappearsattŠҠ̠΍ŠҠ̠usesԯΠandhisprogramisdesignedtogowithmyϠӠӠĠdescribedinөforcommunicationwitharemotecomputerviaamodemandatele" " "     `Hɍx h`H ɀ Ɏ@ ͡(h@@ ՍX0 ( ɛIՍ̍Lɔx`ɐɰ i 8L  ( 驍 ```͡x`ɔ (Ɏ`ɏ@"""