' +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*` REVERSE,4099,198:4103,198T(4147,9:4149,10:4152,24:4153,101u24159,170:4160,164:4161,10<4227,198:4231,198F4275,9:4277,10:4280,24:4281,101P4287,170:4288,164:4289,10U4157,256R:4285,256RZ00jREV1İ1300t700* FORWARDB4099,230:4103,230j4147,8:4149,11:4152,56:4153,2294159,168:4160,166:4161,114227,230:4231,2304275,8:4277,11:4280,56:4281,2294287,168:4288,166:4289,114157,R:4285,R HEADING *: 4"CHAOS"? >:"FERG BRAND, JANUARY 1987"p H:"---------------------------------------"v R  LOOK AT FRAME Y0Ĺ49236,0 Y1Ĺ49237,0 49232,0 K$ 510 L CHANGE DIRECTION VREV1REV`REV0İ12N " g:(91)"Q] QUIT "6 l:" TO CONTINUE "< vD K$U K$"L"1000f K$"C"1100t K$"Q"Ā K$(13)700 640  RESUME TRANSFORMATIONS 49232,0 Y0Ĺ49236,0 Y1Ĺ49237,0 4111(Y1)128 500 "NO. OF TRANSFORMATIONS ";N( :X(253)X DYX(X2)2: IF Y=0,PAGE 1; IF Y=1,PAGE 2 N:"---------------------------------------" X:(91)"L] LOOK AT FRAME (ANY KEY TO RETURN TO THIS MENU) " b:(91)"C] CHANGE DIRECTIO3,1:254,0:1300,  START TRANSFORMATIONS9 49232,0F 49234,0S 49239,0] 4096f 500  RETURN FROM GRAPHICS ROUTINES PAUSE12000: 800 49168,0  N(253)(254)256 !N65280N0 &N32767NN65536 0"350 ::"FILENAME? ";F$5 :(4);"BLOAD";F$] INPUT "ROTATION? (-127,+127) ";R y "REVERSE? (Y/N) ";:K$ K$"Y"400 REV1 360 ^:(4);"BLOAD CHAOS/TITLE" hR0R256R rREV0Ĺ253,255:254,255:1200 |REV1Ĺ25md HI-RES PICTURE TRANSFORMATIONS INSPIRED BY ARTICLE ON CHAOS IN SCIENTIFIC AMERICAN, DEC 1986, PAGE 39~n FERG BRANDx JAN 87}24576:REV0R32800:(4);"BLOAD CHAOS/BIN""OPTIONS? (Y/N) ";:K$ K$"Y|}~|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{@  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{#$$$ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @ @   !!!!!!!"""""""######((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_@DHLPTX\@DHLPTX\AEIMQUY]AEIMQUY]BFJNRVZ^BFJNRVZ^CGKOSW[_CGKOSW[_ $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;?T`   }L=L 8  }LLLI1 ЭХLU`   }L=L 8  }LLLI1 ЭХL      $ AADDR(D1)64TT16Sz BASE2,D:BASE3,0:BASE4,T:BASE5,S:BASE8,0:BASE9,A:BASE12,1:BASE13,0 TTTTTF S015 1000( 7682 ::S USE MONITOR VERIFY ROUTINE 784,32:785,74:786,255:787,160:788,0:789,32:790,54:791,254 792,32:793,63:794,255:795,96 60,0:61,16:62,0:63,(TLTF2)16:66,0:67,80 784 MUM OF 4 TRACKS "::120P {:"DRIVE 2, TRACK ",TF;:(19):" IS AT $1000-1FFF"{ |"DRIVE 1 $5000-5FFF" }"AND SO ON" ~ ADDR16 BASE47080 :"INSERT DISKS AND PRESS A KEY " K$ D211 TTFTL  Z:8d"COMPARE RANGE OF TRACKS ON DRIVES 1 & 2"Qe FERG BRAND JUNE 87f768,32:769,227:770,3:771,32:772,217:773,3:774,96n:"FIRST TRACK? ";TFoTF0TF35110x"LAST TRACK? ";TLyTF0TF35TLTF120 zTLTF3ĺ"MAXI4);"RUN HELLO"( R TEXTFILE SUBROUTINEI R(20):(1):40):40):40)p R(20):(1):"THIS IS A TEXT FILE " &RPAUSE1200:PAUSE 0R 0u END OF PROGRAM 1u A BRAND BRAND PROGRAM y LINE 20900 ADDED JULY 19820 P20650 PG$F$((L$)64)4 PGT((G$,2,1))O P(G$,2,1)"T"ī20740Z P21000e P20500m Q:s Q Q(4);(G$,2,1);"RUN";(G$,29) Q(F$,2,1)"T"ī20800 "Q21000 ,Q20500 @Q: EQ JQ(4);(F$,2,1);"RUN";(F$,29) Q(alledratherthanfromthelistofcommonlyusedwordsutitisstillprettygoodǠĬ٠@ @ @  @@ @@@ @  @ @  @@@@   @ @ @@    @@@  @      @@@@  @ @@  @  @  @ L L?!   p# !/ L0#L!" P"L"H 8ei0h8`h/ ` ] Qlr L̦ գ8gh ࣥhgL գ8LʨM ࣥˤLµH hLħõµ µõ?` " "``jj G"&&&&&& G"jjj G"`) `Hh`i `hi `h" `ݍ " " #" ` " " " #"`?` ! !``jj G!&&&&&& G!jjj G!`) `Hh`i `hL!hi L!hi@L!hi `h" ` "`   `L"L L L ! ! !LE ! #! Pи` ! ! ! #!  P` ! ! ! ! #! P`     ishbringerforinstancebuttheothersseemtohavetheusualnfocomskewingheprogramstillisntidealitfindsitdifficulttoknowexactlywhereaparagraphstartsonthediskandfrequentlyanamefromthemainbodyofthetextiscroughlyɠholddownreturnandrepeatoscaninamannerthatwillmissnothingholddownΠandrepeatfyoukeepseeingthesametextoverandoveragainhitreturnomenfocomdisksseemtohavenormalӠskewingbytheprogramheseappearontracksonwardsfyoustartscanningthetextattrackthedefaulttrackthenbepatienttmaytakeafewtracksforinterestingstufftoappearaybetrackwouldbeabetterchoiceoscanetcergranduneellɠhavelearnedafewthingssinceɠwrotethisandnowhaveabetterversionɠhavecalledȠfor͠Үoucannowlistthecommonlyusedwordsandthecommandwordsthatarerecognisedr͠programsŬӬetcaswellheprogramassumessectorformatomeversionsofˠɠmaybesectorfyoususpectthisisthecasethenchangelinefromϠtoϠseordinaryӠnotquirementsstillfurtherhesewordsarestoredinalistinmemoryheaboveunderstandinghasbeenusedtodevisetheˠcheaterprogramonthediskrackscanbeexaminedtoseewhatisencodedthereheprogramworkswithotheslongomefivebitbinarycodestohavenotbeenaccountedfortoindicatethatthenextitemisnottobetranslatedasaletterofthealphabetbutistobeusedtolocateacommonlyusedwordhiscanreducethediskspacerezeroatthebeginningandyouhavebitswhichareeasilydividedintotwobyteshewholephrasebecomesƠĠàŠ ōwhichisonlybyteslongtwothirdsthelengthoftheoriginalpassagewhichwasbyte àĠŠà Šōhesecondstepistotaketheseingroupsofthreeandcreatepairsofbyteshefirstthreeinourexample writtenoutinfivebitbinarybecomeutanɠthiswouldbecodedasƠĶõIJķøõàĠùŠ÷öõIJƠóùĴĹnsteadofusingɬusethefollowingcode½andsoonuptoڽƮžnlyfivebitsareemployedhisyieldssusednprincipleonebytecouldstorecharactersnpracticehowevertheauthorsofˠusetwobytestostorethreecharactershatischaractersperbytetworkslikethisupposethetextisǠٍˠԠ΍hetextadventureˠusesasimpleformoftextcompressiontomakemoreeconomicaluseofdiskspacensteadofusingɠtoencodeeachletterofthealphabetintoeightbitsafivebitcodei   14100:START : CONTINUE(:K$6;TRKTRK1<;W N A FERG BRAND PROGRAM000 READ SECTOR607 READ ONE MORE SECTORc7BUF4,TRK(TRK34)1:BUF5,0:BUF9,ADDR16m(78192s27: READ AND INTERPRET TRACK:::"TRACK ";TRK:"-------";:TRK10ĺ"-";:::14000:SECSEC1:SECSU15040:4 LOAD AUXILIARY WORD TABLE+4TRK3:SL0:4A31SL8F4SUSL2U4SECSLSUd4ADDR29SLo414000u4{46 READ TRACK/SECTOR6BUF470806BUF3,0:BUF4,TRK:BUF5,SEC:BUF8,0:BUF9,ADDRSEC:BUF12,1:BUF13,068192: $29089,11:49090,14:49091,1:49092,4:49093,7:49094,10:49095,13F@3\3 DOS 3.3 SKEWING349080,0:49081,13:49082,11:49083,9:49084,7:49085,5:49086,3:49087,1:49088,14:49089,12:49090,10:49091,8:49092,6:49093,4:49094,2:49095,1530:49081,4:49082,8:49083,12:49084,1:49085,5:49086,9:49087,13:49088,2:49089,6:49090,10:49091,14:49092,3:49093,7:49094,11:49095,152,3 CPM SKEWING@6349080,0:49081,3:49082,6:49083,9:49084,12:49085,15:49086,2:49087,5:49088,8:4-------------------"+a. PROTECTED DISKS USE DATA MARKERS D5 AA BC INSTEAD OF D5 AA AD p.47356,188. DISPENSE WITH CHECKSUMS TOO.47045,234:47046,234:47497,234:47498,234/2 INFOCOM SKEWING2 ASSUMES DOS 3.3249080,00' DISPLAY OBJECTS AND LOCATIONS 2 13500O TL3:TU5:SU15(A11)3f START8209: $2011r ADDR64} TRKTL SEC0 15000 TRKTU3040' AGAIN':(12)'177* HEADING+"INFOCOM CHEATER PROGRAMS" +"-----L3TL341170ADDR64%TRKTL/SEC0:15000LTRKTU1210W10000s DISPLAY ALLOWED WORDSK$"2"3000TL6:TU8:SU15(A11)3START8206: $200EADDR64TRKTLSEC0 15000TRKTU2050 100L$"N"ĺ"N":1120 L"Y"8 V DISPLAY AUXILIARY WORDSJ X8200: $2008Z ` READ TEXTx jTL9:TU34:SU15(A11)3 oSTART8203: $200B t::"STARTS AT TRACK 9, OK? (Y/N) "; ~L$ L$"N"ĺ"Y":1190 "N":"START AT TRACK? ";TLTA30İ13000 A31İ13100F :"INSERT DISK AND PRESS ANY KEY ";N L$q ::"WHEN PROGRAM IS RUNNING" "PRESS ANY KEY TO CONTINUE"   DISPLAY TEXT K$"1"2000 13500 .:"DISPLAY AUXILIARY WORDS? (Y/N) "; 8L$ B:A21 L$"Y"ĺ"N"% A11900 &:"DOS SKEWING ("(91)"I]NFOCOM, "(91)"C]PM, "(91)"D]OS 3.3 DEFAULT IS "(91)"I] ) "; 0L$ :L$"C"A31 DL$"D"A32 NL$"C"L$"D"ĺL$ XL$"C"L$"D"ĺ"I"  COMMOM A21İ12000  "OPTIONS? (Y/N) "; L$/ L$"Y"ĺ"Y"F L$"Y"ĺ"N":900L s  13 SECTOR OPTION NOT IMPLEMENTED| 500 "13-SECTOR? (Y/N) "; L$ L$"Y"ĺ"Y":A11 L$"Y"ĺ"N" :"PROTECTED DISK? (Y/N) "; L$ L$"Y"ĺ"Y"AD INCH/BIN":BF1/ :(91)"1] DISPLAY TEXT"T (91)"2] DISPLAY ALLOWED WORDS" (91)"3] DISPLAY OBJECTS AND LOCATIONS " :" TO END "; K$ K$(27)ĺ"REBOOT SYSTEM ": K$"1"K$"3"210 :(12) A10:A20:A30X d INFOCOM CHEATER PROGRAMS9n FERG BRAND FEB 87 Lx20736: $5100T:_11000:"DO YOU HAVE 80 COLUMNS? (Y/N) ";K$K$"Y"ĺ:(4)"PR#3":(12):11000K$"Y"ĺBF0: BINARY FILE LOADED FLAG BF0ĺ:(4)"BLO     5,8816499%(49152)155500/II18460\' ERROR HANDLER AND MENU RETURN':"REPLACE PRINT SHOP/NEWSROOM DISK PRESS ANY KEY ";:K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAMDCLO252:CHI86JGN(IOB4),T:(IOB5),S:(IOB8),CLO:(IOB9),CHIRX16816Xbal640v:(4);"BLOAD";F$;",A$5800,D1" DISPLAY ITX(I(I3)3)90Y((I3)(I9)3)541,1:2,1224,X225,0226,Y1656"PRESS KEY TO CONTINUE ";! K$, 10000` 22:(F$" ",30)t  FETCH PICTURE FFLAG0ī630: THE FAST OPTION ASSUMES FILE SECTORS ARE CONTIGUOUS &TS(P)16(P1) 0J13 :T((TSJ)16):STSJT16)) r(P0P1P2)ī390 |4606 F$"":NS0:PNP3B F(PN)U F160NSNS1f F160NS0u NS2ī520 F$F$(F) PNPN1:400 PP35:PPHI256255ī345 G(0):PHIPHI1:PHIBHIī340  END "END OF CATALOG" :A0S1ī320% 6SS1:BHIBHI1:2708 @ READ CATALOGJ JPLO11:PHI96\ TPPHI256PLO YP0((P)255): CHECK WHETHER FILE HAS BEEN DELETED ^P1(((P2)4)((P2)132)): CHECK WHETHER FILE IS BINARY OF LENGTH 4 hP2(((P33)4)((P34)0T17:S15:BLO0:BHI96: FIRST CATALOG TRACK AND SECTOR. BEGINNING OF CATALOG STORAGE AREAv (IOB2),1: DRIVE 1 (IOB3),0: ANY VOLUME (IOB4),T:(IOB5),S:(IOB8),BLO:(IOB9),BHI 16816: $41B0 RWTS HANDLER "A(BHI25611) ,P PICTURE DISK IN DRIVE 1 AND PRESS ANY KEY "{ :" WILL END DISPLAY": K$ FFLAG0:K$"F"FFLAG1 I0 GET CATALOG IOB(43714)256(43713): BEGINNING OF PARAMETER LIST \ $d PRINT SHOP LIBRARY DISPLAYER4n 23 MAY 86Os SINGLE DRIVE VERSIONWx:{"PRINT SHOP LIBRARY DISPLAYER""----------------------------------------"10000:(4)"BLOAD GRAPHIC GRABBER/BIN"V :"PUT PRINT SHO        BPAUSE12000:<L:(4)"BSAVE "F1$",A$4000,L$2000,D1"GV10000k' ERROR HANDLER AND MENU RETURNq'':"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";'K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAM INSIDE NEWSROOM "8 :(4)"BLOAD GPTONR/BIN,D1"C 24576T F1$"PH."F$ $::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY "; .K$ 8::"FILE WILL BE SAVED AS THE PHOTO FILE "F1$22:"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";T K$ ::"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) "; K$ K$"N"10000 K$"Y"6140 6100 ::"YOU CAN SELECT BITS LATER FROM -----------------------------":^ "PUT GRAPHICS DISK IN DRIVE 1 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D1"::6040  :(4)"BLOAD "F$",A$2000,D1" 49235,0L TO GO BACK TO MENU ";+ K$V K$(13)ĺ:(4)"RUN GRAPHIC GRABBER" K$"I"ĺ:(4)"RUN GRAPHIC GRABBER INSTRUCTIONS" K$(27)10000 5080 p GRAPHICS PAGE TO NEWSROOM z: "GRAPHICS PAGE TO NEWSROOM":"---------- PRINT SHOP :c "GRAPHICS PAGE TO PRINT SHOP":"---------------------------------------": "USE THE GRAPHIC GRABBER PROGRAM"  "PRESS TO RUN GRAPHIC GRABBER": " "B1$"I"B2$" TO READ INSTRUCTIONS":::# " < PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986c PART3S~ SINGLE DRIVE VERSION:(10000<B1$(91):B2$(93)FK(255)K1975000: K$="E"K1986000: K$="F"  GRAPHICS PAGE TO   HOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";A'K$\':(4)"RUN PART1S,D1"w N A FERG BRAND PROGRAMKEY TO CONTINUE ";K$%10000I' ERROR HANDLER AND MENU RETURNO'':"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";'K$':(4)"RUN PART1S,D1" N A FERG BRAND PROGRAM ND MENU RETURN9':"PUT PRINT S"NEWSROOM TO PRINT SHOP":"---------------------------------------":"DO THIS IN TWO STEPS"::"1. NEWSROOM TO GRAPHICS PAGE":"2. GRAPHICS PAGE TO PRINT SHOP":"I.E. OPTION "B1$"B"B2$" FOLLOWED BY OPTION "B1$"E"B2$22:"PRESS ANY UT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY ";k K$ ::"FILE WILL BE SAVED AS "F1$; :(4)"BSAVE "F1$",A$4000,L$2E0,D1" 10000 NEWSROOM TO PRINT SHOP:G-------" R :"TYPE NUMBER ";' \ L$? f L$"1"L$"9"3420W p K$"B"L$"3"3420_ z L$k L(L$) X(L1((L1)3)3)(67(K$"B")6) Y((L1)3)55:K$"B"Y55 24690,Y:24691,Y56 24692,X7:24693,X97 24576c ::"PNR/BIN,D1"U :"WHERE ON NEWSROOM SCREEN DO YOU WANT THIS PICTURE TO APPEAR?":g " ---------"y " ! !"  " ! 1 2 3 !" K$"B"3390  " ! !" " ! 4 5 6 !" * " ! !" 4 " ! 7 8 9 !" > " ! !" H " --"; l K$ v K$"N"10000- K$"Y"32207 3180? : :::"DO YOU WANT TO SAVE IT AS A PHOTO OR A BANNER? (P/B) "; K$ K$ K$"P"F1$"PH."F$:3290 K$"B"F1$"BN."F$:3290 3240 :(4)"BLOAD PSTO "::"";F$2 F$""ĺ:(4)"CATALOG,D1"::30608  W  :(4)"BRUN WHITE/BIN,D1"y  :(4)"BLOAD "F$",A$5800,D1" & 1,1:2,1 0 224,0 : 225,0 D 226,0 N 16565,88 X 16499 b 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) WSROOM :Y "PRINT SHOP TO NEWSROOM":"---------------------------------------": :(4)"BLOAD GRAPHIC GRABBER/BIN" : :"PUT PRINT SHOP PICTURE DISK IN DRIVE 1 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986c PART2S~ SINGLE DRIVE VERSION:(10000<B1$(91):B2$(93)FK(255)K1953000: K$="C"K1964000: K$="D" PRINT SHOP TO NE         IN DRIVE 1 PRESS ANY KEY TO CONTINUE ";/'K$J':(4)"RUN PART1S,D1"e N A FERG BRAND PROGRAM PRESS ANY KEY ";'L K$_V ::"FILE IS BEING SAVED AS "F1$;}` L(16385)256(16384)8j :(4)"BSAVE "F1$",A$4000,L"L",D1"t 10000' ERROR HANDLER AND MENU RETURN''':"PUT PRINT SHOP/NEWSROOM DISK K$"N"10000 K$"Y"2330) 2290y (16391)255ĺ:::"FILE IS ALREADY IN THIS FORM ":PAUSE12000::10000$ :(4)"BLOAD NRTONR/BIN,D1". 245768 F1$F$"*"B ::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND VE "F1$",A$2000,L$2000,D1"%10000+y:"PUT PRINT SHOP/NEWSROOM DISK IN DRIVE 1 PRESS ANY KEY TO CONTINUE ":K$::"DO YOU WANT TO CONVERT THIS TO A NEWSROOM FILE THAT DOES NOT NEED CLIP ART DISKS? (Y/N) ";K$0G1$(F$,3))G2$(F$,((F$)3))EF1$G2$"."G1$"NRPIC"::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANY KEY ";K$::"FILE IS BEING SAVED AS "F1$;:(4)"BSAFLAG1:PAUSE12000:=*F$""ĺ:(4)"CATALOG,D1"::2070W4:(4)"BLOAD "F$",D1b>24576vHPAUSE12000:R49235,0\22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";fK$pK$"N"2270zK$"Y"2190215BLOAD NRTOGP/BIN":Y:"PUT NEWSROOM DISK WITH PHOTOS/BANNERS IN DRIVE 1 AND"d FLAG0"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""FLAG0ĺ:"PHOTOS HAVE PREFIX PH. BANNERS HAVE PREFIX BN.":Y KEY ";2K$H<::"FILE IS BEING SAVED AS "F1$;rF:(4)"BSAVE "F1$",A$2000,L$2000,D1"}P10000 NEWSROOM TO GRAPHICS PAGE:"NEWSROOM TO GRAPHICS PAGE":"---------------------------------------"::(4)"16499P22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";XK$jK$"N"10000{ K$"Y"13101270F1$F$".PSPIC"(::"PUT DISK TO SAVE PICTURE TO IN DRIVE 1 AND PRESS ANHOP PICTURE DISK IN DRIVE 1 AND"o ~"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D1"::1150  :(4)"BLOAD "F$",A$5800,D1" 1,1:2,1 224,0 225,0 226,0 16565,88$" TO SCAN A LIBRARY DISK":$ :O $" TO GO BACK TO MENU ";W .K$j 8K$(13)1120 BK$"L"ĺ:(4)"RUN PRINT SHOP LIBRARY DISPLAYER S" LK$(27)10 V1070 `:(4)"BLOAD GRAPHIC GRABBER/BIN" j:, t:"PUT PRINT S$"F"Ĺ255,198::(4)"RUN PART3S"2 K$"Q"ĺ:; 150]  PRINT SHOP TO GRAPHICS PAGEe : "PRINT SHOP TO GRAPHICS PAGE":"---------------------------------------": "PRESS TO FETCH SINGLE PICTURE": " "B1$"L"B2S PAGE TO NEWSROOM":::5 B1$"Q"B2$" QUIT":::T "PRESS KEY TO CONTINUE ";\ K$m K$"A"1000~ K$"B"2000 K$"C"Ĺ255,195::(4)"RUN PART2S" K$"D"Ĺ255,196::(4)"RUN PART2S" K$"E"Ĺ255,197::(4)"RUN PART3S"" KB2$(93)8 FB1$"A"B2$" PRINT SHOP TO GRAPHICS PAGE":e PB1$"B"B2$" NEWSROOM TO GRAPHICS PAGE": ZB1$"C"B2$" PRINT SHOP TO NEWSROOM": dB1$"D"B2$" NEWSROOM TO PRINT SHOP": nB1$"E"B2$" GRAPHICS PAGE TO PRINT SHOP": xB1$"F"B2$" GRAPHICf< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986q SINGLE DRIVE VERSIONy:(100002"PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------": <B1$(91):           37;?PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/ԠasԯЯҬö¬̤Ǡčections÷Ġƶàandƺ±seeӠayhangethecodeatıtoı  hissendsescˠtotheprinterhisisthebitmappedgraphicscommandfortheԸavethisversiononthecopyofɠhaveanԸprinterdrivenbyanΠ̠cardinslotereishowɠgetprintoutfromԮakeacopyofԮootupӮypeinavidilsonsҠprogramӠprilotethecorr  B9 B@C`((((((((((((((((((((((((((((((((  37;? PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/`p`@8~` `@`@a`)8m`i~``8a((((((((((((((((((((((((((((((((    II14604' ERROR HANDLER AND MENU RETURNN':(4)"RUN PART1,D1"i N A FERG BRAND PROGRAMT5),S:(IOB8),CLO:(IOB9),CHI*X168160b9l640]v:(4);"BLOAD";F$;",A$5800,D2"n DISPLAY ITX(I(I3)3)90Y((I3)(I9)3)541,1:2,1224,X225,0226,Y16565,8816499(49152)155500ertedwillcauseacrashǠčlistyouwillhavetoreturntorackectorŠandmakeanotherchangeytesŭbecomeforoptionùưùưùưùưùfyoudontdothisthecodeinsletterĠandchrĠwhichsetsthelinefeedtoinchtotheprinterbeforereturningtoԠЧsbitmappedgraphicsroutineàowifyouhavechosensomeotheroptionontheprintersetup΍rackectorŠisthebeginningofabinaryfilecalledӠprintercommandsfyouhaveanΠححؠorcloneprintertheareausedbythispieceofcodeisskippedoveroɠusedthisareatosendesc theectoreditortochangethefollowingonthecopyrackectorŬyte fromtoŮytes±to ĠĠàhatsitϠŠŠӠΠҠԡɠhaveanԸprinterdrivenbyanΠ̠cardinslotereishowɠprintcardsetcwithoutthosedreadedwhitelinestheysayyoumustlivewithakeacopyofԠЮseatracks  00008 22:(F$" ",30)L  FETCH PICTURE FFLAG0ī630: THE FAST OPTION ASSUMES FILE SECTORS ARE CONTIGUOUS &TS(P)16(P1) 0J13 :T((TSJ)16):STSJT16 DCLO252:CHI86JN(IOB4),T:(IOB"":NS0:PNP3 F(PN)- F160NSNS1> F160NS0M NS2ī520\ F$F$(F)m PNPN1:400 PP35:PPHI256255ī345 G(0):PHIPHI1:PHIBHIī340  END "END OF CATALOG" :"PRESS KEY TO CONTINUE "; K$ 1@ READ CATALOG" JPLO11:PHI964 TPPHI256PLOm YP0((P)255): CHECK WHETHER FILE HAS BEEN DELETED ^P1(((P2)4)((P2)132)): CHECK WHETHER FILE IS BINARY OF LENGTH 4 hP2(((P33)4)((P34)0)) r(P0P1P2)ī390 |460 F$G TRACK AND SECTOR. BEGINNING OF CATALOG STORAGE AREAN (IOB2),2: DRIVE 2j (IOB3),0: ANY VOLUME (IOB4),T:(IOB5),S:(IOB8),BLO:(IOB9),BHI 16816: $41B0 RWTS HANDLER "A(BHI25611) ,A0S1ī320 6SS1:BHIBHI1:270 NY KEY "- :" WILL END DISPLAY":5 K$Q FFLAG0:K$"F"FFLAG1x :(4)"BLOAD GRAPHIC GRABBER/BIN"~ I0 GET CATALOG IOB(43714)256(43713): BEGINNING OF PARAMETER LIST 5 T17:S15:BLO0:BHI96: FIRST CATALOj$d PRINT SHOP LIBRARY DISPLAYER4n 23 MAY 86<x:`"PRINT SHOP LIBRARY DISPLAYER""----------------------------------------"10000 :"PUT PRINT SHOP PICTURE DISK IN DRIVE 2 AND PRESS A        0%' ERROR HANDLER AND MENU RETURN?':(4)"RUN PART1,D1"Z N A FERG BRAND PROGRAMF1$"PH."F$y $::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY "; .K$ 8::"FILE WILL BE SAVED AS THE PHOTO FILE "F1$ BPAUSE12000: L:(4)"BSAVE "F1$",A$4000,L$2000,D2"V1000" 49235,0X 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) ";` K$r K$"N"10000 K$"Y"6140 6100 ::"YOU CAN SELECT BITS LATER FROM INSIDE NEWSROOM " :(4)"BLOAD GPTONR/BIN,D1" 24576  $ AADDR(D1)64TT16Sz BASE2,D:BASE3,0:BASE4,T:BASE5,S:BASE8,0:BASE9,A:BASE12,1:BASE13,0 TTTTTF S015 1000( 7682 ::S USE MONITOR VERIFY ROUTINE 784,32:785,74:786,255:787,160:788,0:789,32:790,54:791,254 792,32:793,63:794,255:795,96 60,0:61,16:62,0:63,(TLTF2)16:66,0:67,80 784 MUM OF 4 TRACKS "::120P {:"DRIVE 2, TRACK ",TF;:(19):" IS AT $1000-1FFF"{ |"DRIVE 1 $5000-5FFF" }"AND SO ON" ~ ADDR16 BASE47080 :"INSERT DISKS AND PRESS A KEY " K$ D211 TTFTL  Z:8d"COMPARE RANGE OF TRACKS ON DRIVES 1 & 2"Qe FERG BRAND JUNE 87f768,32:769,227:770,3:771,32:772,217:773,3:774,96n:"FIRST TRACK? ";TFoTF0TF35110x"LAST TRACK? ";TLyTF0TF35TLTF120 zTLTF3ĺ"MAXI  $(64M))ī20540% nPF$F$((K$)64)9 xPFT((F$,2,1))H PL$(F$,1)[ PL$"A"ī20760| P(20):(1):40):40):40) P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? "; PM$ PM$"Y"ī20760 PM$"N"ī2069] ";(F$(N),3,LN) ON: P(20):(1):40):40):40)i P(20):(1):"TYPE ";(91);"LETTER] TO RUN" (P"TYPE FOR FULL CATALOG" 2P"TYPE TO EXIT "; NF$(26)[NDT$"FERG BRAND PROGRAMS"cNM6NF$(1)" ANYTEXT70 "NF$(2)" ANYPRINT "NF$(3)" EXAMINE BOOT VERSION 2 " NF$(4)" INCH    @@ @  @@d000000000000000000000   d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000 d00111000002000110111000d1012R1103L2013R2114R3011L3102R4005R411HN5013L5111R0d1012R1113L2011L2112R3012L311HN d1001R1102R2003R2112R3014L3113R4005L4114L5018L5116L6017R6116L7007N7102R800HN8118L  21001R1102R2013R2112R300HN310HN  OOM":"---------------------------------------":o "PUT GRAPHICS DISK IN DRIVE 2 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,D2"::6040  :(4)"BLOAD "F$",A$2000,D2K$g K$(13)ĺ::"GRAPHICS GRABBER USES DRIVE 1 ONLY ":PAUSE12000::(4)"RUN GRAPHIC GRABBER" K$"I"ĺ:(4)"RUN GRAPHIC GRABBER INSTRUCTIONS" K$(27)10000 5080 p GRAPHICS PAGE TO NEWSROOM z:1 "GRAPHICS PAGE TO NEWSRTO PRINT SHOP":"---------------------------------------":b "USE THE GRAPHIC GRABBER PROGRAM"h  "PRESS TO RUN GRAPHIC GRABBER": " "B1$"I"B2$" TO READ INSTRUCTIONS"::: " TO GO BACK TO MENU "; [< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(10000<B1$(91):B2$(93)FK(255)K1975000: K$="E"K1986000: K$="F" GRAPHICS PAGE TO PRINT SHOP:; "GRAPHICS PAGE   ERROR HANDLER AND MENU RETURN7':(4)"RUN PART1,D1"R N A FERG BRAND PROGRAMROGRAM"----------------------------":_"DO THIS IN TWO STEPS"::"1. NEWSROOM TO GRAPHICS PAGE":"2. GRAPHICS PAGE TO PRINT SHOP":"I.E. OPTION "B1$"B"B2$" FOLLOWED BY OPTION "B1$"E"B2$22:"PRESS KEY TO CONTINUE ";K$10000' N DRIVE 2 AND PRESS ANY KEY ";C K${ ::"FILE WILL BE SAVED AS "F1$; :(4)"BSAVE "F1$",A$4000,L$2E0,D2" 10000 NEWSROOM TO PRINT SHOP:"NEWSROOM TO PRINT SHOP":"----------- f L$"1"L$"9"3420/ p K$"B"L$"3"34207 z L$C L(L$)l X(L1((L1)3)3)(67(K$"B")6) Y((L1)3)55:K$"B"Y55 24690,Y:24691,Y56 24692,X7:24693,X97 24576; ::"PUT DISK TO SAVE PICTURE TO IEEN DO YOU WANT THIS PICTURE TO APPEAR?":? " ---------"Q " ! !"c  " ! 1 2 3 !"t K$"B"3390  " ! !" " ! 4 5 6 !" * " ! !" 4 " ! 7 8 9 !" > " ! !" H " ---------" R :"TYPE NUMBER "; \ L$3220 3180 :i :::"DO YOU WANT TO SAVE IT AS A PHOTO OR A BANNER? (P/B) ";q K$y K$ K$"P"F1$"PH."F$:3290 K$"B"F1$"BN."F$:3290 3240 :(4)"BLOAD PSTONR/BIN,D1"- :"WHERE ON NEWSROOM SCR2"::3060  /  :(4)"BRUN WHITE/BIN,D1"Q  :(4)"BLOAD "F$",A$5800,D2"_ & 1,1:2,1j 0 224,0u : 225,0 D 226,0 N 16565,88 X 16499 b 22:"DO YOU WANT TO SAVE THIS AS A NEWSROOM FILE? (Y/N) "; l K$ v K$"N"10000 K$"Y"OOM":"---------------------------------------":X :(4)"BLOAD GRAPHIC GRABBER/BIN"` : :"PUT PRINT SHOP PICTURE DISK IN DRIVE 2 AND" "TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""ĺ:(4)"CATALOG,DS< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(10000<B1$(91):B2$(93)FK(255)K1953000: K$="C"K1964000: K$="D" PRINT SHOP TO NEWSROOM :1 "PRINT SHOP TO NEWSR    384)8.j :(4)"BSAVE "F1$",A$4000,L"L",D2"9t 10000]' ERROR HANDLER AND MENU RETURNw':(4)"RUN PART1,D1" N A FERG BRAND PROGRAMBROGRAM 00#$ :(4)"BLOAD NRTONR/BIN,D1".. 24576=8 F1$F$"*"B ::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";L K$V ::"FILE IS BEING SAVED AS "F1$;` L(16385)256(160000 }::"DO YOU WANT TO CONVERT THIS TO A NEWSROOM FILE THAT DOES NOT NEED CLIP ART DISKS? (Y/N) ";K$K$"N"10000 K$"Y"2330 2290 (16391)255ĺ:::"FILE IS ALREADY IN THIS FORM ":PAUSE12000::100z#ӯΠ  ӯŠ" Š ŠŠ ԠР٠Ҡ ͠Ҡ Ƞ ȯΠ ͠ԠΠ ӠӠ  àҠàҠӠЯΠүΠ үΠ ůΠ ԠР٠Ҡ  Բ Գ ԱӠ ԲӠ ԳӠ үΠàүΠ ԮԮԮ ԮԠЭ͠ ԠЯ͠٠Ա  ǠŠǠŠҠǯΠ  Ю Ю ЮЮ  Ԡ͠Ġˠ įΠ ͠Π ӯΠ͠ˠįΠ ͯà  Š͠ĠϠŠĠ̠ҠůŠ"͠ĠϠӠ Ԡ͠ĠΠ ӯΠ  ӠҠŠӠԸҠϠԠЯ͠ĠԠҠϠԠŠӠ ӯԸ ЯԸ ԯΠ ԠŠŠԠӠ!ŠԠΠ!Яà! ЯΠҠ ӠҠӠϠ ŠҠө"Է "!ԷΠŠҠԠ (F$)3))$F1$G2$"."G1$"NRPIC"::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";K$::"FILE IS BEING SAVED AS "F1$;:(4)"BSAVE "F1$",A$2000,L$2000,D2"1ĺ:(4)"CATALOG,D2"::207064:(4)"BLOAD "F$",D2A>24576UHPAUSE12000:bR49235,0\22:"DO YOU WANT TO SAVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";fK$pK$"N"2270zK$"Y"21902150G1$(F$,3)G2$(F$,("PUT NEWSROOM DISK WITH PHOTOS/BANNERS IN DRIVE 2 AND"C FLAG0"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$ F$""FLAG0ĺ:"PHOTOS HAVE PREFIX PH. BANNERS HAVE PREFIX BN.":FLAG1:PAUSE12000:*F$""S BEING SAVED AS "F1$;QF:(4)"BSAVE "F1$",A$2000,L$2000,D2"\P10000| NEWSROOM TO GRAPHICS PAGE:"NEWSROOM TO GRAPHICS PAGE":"---------------------------------------"::(4)"BLOAD NRTOGP/BIN":8:AVE THIS AS AN ORDINARY GRAPHICS FILE? (Y/N) ";7K$IK$"N"10000Z K$"Y"1310d1270xF1$F$".PSPIC"(::"PUT DISK TO SAVE PICTURE TO IN DRIVE 2 AND PRESS ANY KEY ";2K$'<::"FILE IRIVE 2 AND"N ~"TYPE NAME OF FILE"::"PRESS FOR CATALOG "::"";F$u F$""ĺ:(4)"CATALOG,D2"::1150{  :(4)"BLOAD "F$",A$5800,D2" 1,1:2,1 224,0 225,0 226,0 16565,88 16499/22:"DO YOU WANT TO S& ɍ ɠ 8 `   `  i! iH5)   Ș П`(ɠ 0ɍ`( 0ɀ`NS" FdT  "ANYPRINT"8:"THE KEY LINES ARE 845 AND 875"^"YOUR PRINTER/CARD MIGHT PREFER"(:"PRINT: PRINT ";(34);"PR#1";(34);";CHR$(9);";(34);"80N";(34):2"AND NOT HAVE THAT POKE 1657,80 AT ALL" <"LOOK AT YUOR PRINTER/CARD INSTRUCTIO   MODp ANOTHER FILEzK$':D"ANOTHER FILE? (Y/N) ";LK$dK$"Y"X(0):300j RWTS SUBROUTINE47084,T:47085,S47088,BLO:47089,BHI36608 A FERG BRAND PROGRAM:0 $" TO GO BACK TO MENU ";8 .K$K 8K$(13)1120 BK$"L"ĺ:(4)"RUN PRINT SHOP LIBRARY DISPLAYER" LK$(27)10 V1070 `:(4)"BLOAD GRAPHIC GRABBER/BIN" j: t:"PUT PRINT SHOP PICTURE DISK IN DT3" K$"Q"ĺ: 150>  PRINT SHOP TO GRAPHICS PAGEF : "PRINT SHOP TO GRAPHICS PAGE":"---------------------------------------": "PRESS TO FETCH SINGLE PICTURE": " "B1$"L"B2$" TO SCAN A LIBRARY DISK": B1$"Q"B2$" QUIT":::9 "PRESS KEY TO CONTINUE ";A K$R K$"A"1000c K$"B"2000 K$"C"Ĺ255,195::(4)"RUN PART2" K$"D"Ĺ255,196::(4)"RUN PART2" K$"E"Ĺ255,197::(4)"RUN PART3" K$"F"Ĺ255,198::(4)"RUN PAR8ī840II1" S(64256I)+9609 BHIBHI1C*II1`4(I256)256I0II12i>750|H DISPLAY TEXTM:(4);"PR#1":1657,NU: MODR6,0:7,DHI1\36752: READ AND DISPLAY TEXTfT0ī720k1657,40::(4);"PR#0": T/S LIST FILLS MORE THAN ONE SECTORF T(BHI2561):S(BHI2562)T T0ī690b BHIBHI1k 960t 640 DHIBHI  READ TEXT I12 BHIDHI1 6,0:7,BHI 36832: CLEAR DUMP ABOVE T/S LIST T(64256I)T0BHI12"FLAG0ī360% K$" "FLAG1ī900= K$"A"K$"V"ī490L K(K$)65w BT(BHI(K7))256(K(K7)7)3511 &ASBT1 0T(BT):S(AS) :T0T255ī490 D: NBHI64:BLO0 X6,BLO:7,BHI b36832: CLEAR DUMP l960$ v IF) A0S0FLAG1:440. SS1:BHIBHI1I S12S9S6S3ī440R 380f  PRINT CATALOGq BHI64| 7,BHI 36624:READ AND DISPLAY CATALOG :"PRESS ";(91);"LETTER] TO CHOOSE FILE":" FOR MORE "; K$ K$" K$"2"D2# K$(13)ĺ:2002 6,0:7,64W "36832: CLEAR DUMP ($4000-7FFF)_ ,:r @ READ CATALOG} JFLAG0 T47082,D:47083,0 ^T17:S15 hBHI64:BLO0 m6,BLO:7,BHI r36832: CLEAR DUMP w: |960 A(BHI25611(4);"BLOAD AT/BIN"< 36753,NU:36799,NU:36876,208: MODD D1z 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 d ANYTEXTUi MODIFIED FOR AMUST80 PRINTER AND EPSON CARD IN SLOT 1.21 AUG 85jNU80: NUMBER OF CHARACTERS IN PRINTED LINEn THIS PROGRAM CAN DISPLAY ANY FILE AS A TEXTFILEx SETUP:16384" ANYTEXT" :  @ @@            pingþǠĠҠnprogramsandtapesؠfollowedbyРtolookattheprogramؠfollowedbyԠtolookattapeҠtorunӠtosinglestepthroughtheprocesshewholesimulatorismenudrivenfyoudontknowwhattodotrytytofilenameoudonttypetheЮatthebeginningԠtogetatapeϠtochooseonethatisonthedisktheninresponsetofilenameoudonttypetheԮatthebeginningtheprogramissmartenoughtodistinguishbetweendshortstringsofsrespectivelyforthebusybeaverprogramstoworkonourfirstsessionwiththeuringachineimulatormightgolikethisРtogetaprogramϠtochooseonethatisonthedisktheninresponseumbersandtobeaddedЮaypopyingmachineԮsameplacehortstringofstobecopiedЮugustpstatebusybeaverЮugustpwechultsstatebusybeaverԮandԮongapesoruseoldonesometapesandprogramsareincludedonthediskhesearefilesЮԮetcheyaretheexamplesusedintheàΠarticlesmentionedaboveЮaypddingmachineԮsameplacehetwonethesecondthecharacterreadthethirdthecharacterwrittenthefourththenewstateandthefifthwhetherthetapeheadmovestotheleftrightordoesnotmoveheprogramǠŠҠallowsyoutomakenewprogramsandtaovestotherightortheleftordoesnotmovedependsonthestatethemachinewasinbeforereadingthecharacterllthisisspelledoutintheͮehavesetoutourprogramsastableswithcolumnshefirstcolumnindicatestheinitialstatthesamepositionhereisanindicatorwhichdisplaysthestateofthemachinehewaythemachinerespondstoaparticularcharacteritreadsoffthetapeiethecharacteritwritesthenewstateofthemachineandwhetherthetapeheadmineàήaypageandugustpagehereisaŠwhichcontainsasequenceofsandshemachinehasareadwriteheadtreadsacharacteroffthetapeandwritesacharacterontothetapeatǠŠҍuringachinesarehypotheticalmathematicalmachineswhichplayafundamentalroleinthetheoryofcomputationheinterestedreaderisreferredtoseveralarticleswhichhaveappearedthisyearinthemagaz  L FINAL"G$'" STATE READ WRITE STATE MOVE"x$'"----------------------------------------";~$'$ N A FERG BRAND PROGRAMX--------------------------------------"-#t3#W#' ERASE HELP MESSAGE SUBROUTINEk#'PAUSE12000:y#$'21:40)#&'22:40):#.'#t' PROGRAM TABLE HEADER SUBROUTINE #v'#~'"----------------------------------------";$'" INITIA S$P$(I1,4)3" PP(P$(I1,5)"R")(P$(I1,5)"L")?" RF0ıW":"AFTER";::" ";h""STATE: "S$"$"----------------------------------------";".K1"8T$(K)(0)K257ī4960":KPĞ"BT$(K);"D"LKK1"V4920"`1:'#j"-- !KK1!4760!1:M!"----------------------------------------";T!:d!RF0ī4872|!:"PROGRAM LINE":!10110!5!J15!P$(I1,J);7)!J!:1!"----------------------------------------"!T$(P)P$(I1,3) "NUE "; DK$ N:2009 \ DISPLAY ACTION SUBROUTINEG ^TL120ėQ f1:1c hRF0ĺ:4730| p:"BEFORE";::" "; z"STATE: "S$ "----------------------------------------"; K1 T$(K)(0)K257ī4792 KPĞ T$(K);  IN PROGRAM":440047008(P1PTL)RF0Ė1:21vP1PTLĺ"OFF END OF TAPE: ANY KEY TO CONTINUE ";:4420S$"H"ĺ"HALTED: ANY KEY TO CONTINUE ";:4420RF1ĺ"ANY KEY TO CONTINUE ";:K$42300 END RUN :" ANY KEY TO CONTISSFUL FIND FLAGI1\P1PTLĖ1:21:"OFF END OF TAPE: ANY KEY TO CONTINUE ";:4420P$(I,1)S$P$(I,2)T$(P)FFFF1:FF1I1III1I20ī4260FF0Ė1:21:"ERROR: INCOMPLETE PROGRAM":4400FF1Ė1:21:"ERROR: AMBIGUITY;}SP0:P$""~K$5K$(13)SP0P1:4229VK$(13)SP1P(P$):4227oK$"0"K$"9"ī4222K$;:P$P$K$:SP1:4222PTLĖ1:21:"ERROR: YOU CANT START BEYOND END OF TAPE":10000:4220 SCAN PROGRAMFF0: SUCCE10000::2004:13%K$ERF0: RUN/SINGLE STEP FLAGWK$"R"ī4200nK$"S"RF1:4200K$(13)ė:2004070h RUN TURING SIMULATORrS$"1": INITIAL STATE|13:34:" ";:1:"STARTING POSITION (DEFAULT IS 1) "5:"RUN MENU"$"--------"M:" "X$"R"Y$" RUN AT NORMAL SPEED"l" "X$"S"Y$" SINGLE STEP":X$"RET"Y$" RETURN TO MAIN MENU"PF1TF1ī40701:21PF0ĺ" ERROR: NO PROGRAM PRESENT"TF0ĺ" ERROR: NO TAPE PRESENT",0:35,24::200! P$(I,J);7)4t DISPLAY TAPE:vp~1:5:"----------------------------------------"z1:6I1T$(I)(0)ī3790T$(I);II137501:21:" ANY KEY TO CONTINUE ";:K$:200 RUN MENU 34,4:35,17 5:5# I1:J1; P$(I,J)(0)ī3300L P$(I,J);7)e JJ1:J6J1:II1z I11J1ī3240 CH(36):CV(37):1:21:" ANY KEY TO CONTINUE ";:K$ CH1:CV1 3240 1:21:" ANY KEY TO CONTINUE ";:K$ 34MENU" "------------"> :" "X$"P"Y$" EXAMINE PROGRAM"^ " "X$"T"Y$" EXAMINE TAPE" :X$"RET"Y$" RETURN TO MAIN MENU" 4:13 K$ K$"P"ī3200 K$"T"ī3700& K$(13)ė:2000 3070 DISPLAY PROGRAM 10100  FILENAME? ";F$0 :(4)"BLOAD T."F$",A36964"< B36964n TL0:TG0: TAPE LENGTH AND A FLAG TO FIND IT{ K1255 T$(K)((B)) T$(K)(0)TG1 TG0TLTL1 BB1 K TF1::200 EXAMINE MENU  5:"EXAMINE  B36964: BASE ADDRESS H K1255:BK1,0:K: CLEAR T.STORES K1Ic B,(T$(K))m BB1t K 1:21:40):21:" FILENAME? ";F$( :(4)"BSAVE T."F$",A36964,L255"2 TF1::200 FETCH OLD TAPE 1:21:40):21:" 320"` K$"."T$(I)(0)::2420,j 2320<t SAVE TAPEF~ II1] TLI: TAPE LENGTH I0Ė1:21:" ERROR: NO TAPE PRESENT":10000::200 TF1 1:21:" SAVE TAPE? "X$"Y/N"Y$" "; K$ K$"N"ė:200 K$"Y"ī2510 2470 AREA FULL":10000:TF1:2420'23003T$(I);=II1G2250a GET TAPE SUBROUTINE CH(36):CV(37): CURSOR POSITION  CH1:CV1 K$$ K$"0"K$"1"T$(I)K$:. K$(27)Ė1:21:" PUT CHARACTERS 0, 1 ON TAPE":10000:2YPE "X$"N"Y$" IF THERE ARE NO TURING TAPES ON DISK":10000UHK$(13)ė:200_R2070n NEW TAPEt1:5:"----------------------------------------"19:" "X$"."Y$" TO QUIT TAPE ENTRY"1:6I1I256Ė1:21:" TAPE:200 TAPE MENU/5:"TAPE MENU"@"---------"e:" "X$"N"Y$" CREATE NEW TAPE"" "X$"O"Y$" FETCH OLD TAPE" :X$"RET"Y$" RETURN TO MAIN MENU"4:13 K$*K$"N"ī22004K$"O"ī2700@>K$(27)Ė1:21:" T FILENAME? ";F$5":(4)"BSAVE P."F$",A36864,L100"E,PF1::200] FETCH OLD PROGRAM1:21:40):21:" FILENAME? ";F$:(4)"BLOAD P."F$",A36864 B36864K120J15P$(K,J)((B))BB1JKPF1:1:21:" SAVE PROGRAM? "X$"Y/N"Y$" ";1K$DK$"N"ė:200VK$"Y"ī1480`1440{B36864: BASE ADDRESSK1100:BK1,0:K: CLEAR P.STORE K1IJ15B,(P$(K,J))BB1JK1:21:40):21:" (I,J)K$:ZZJ5K$(27)Ė1:21:" MOVE IS R(IGHT), L(EFT) OR N(O MOVE)":10000:1310dJ1K$"."P$(I,J)(0)::1400n1310x SAVE PROGRAMz34,0:35,24II1I0Ė1:21:" ERROR: NO PROGRAM PRESENT":10000::200PF1)":10000:1310k4J4K$(27)Ė1:21:" STATE IS A NUMBER FROM 1 TO 9, OR H(ALT)":10000:1310<(J2J3)(K$"0"K$"1")P$(I,J)K$:F(J2J3)K$(27)Ė1:21:" READ/WRITE IS 0 OR 1":10000:1310 PJ5(K$"R"K$"L"K$"N")P$OGRAM ENTRIES SUBROUTINEA CH(36):CV(37): CURSOR POSITION R 34,4:35,17b CH1:CV1j K$| $34,21:35,23 ((J1J4)K$"1"K$"9"P$(I,J)K$: *J4K$"H"P$(I,J)K$:2J1K$(27)Ė1:21:" STATE IS A NUMBER FROM 1 TO 9 j1070  NEW PROGRAM& 101007 34,4:35,17d 19:" "X$"."Y$" TO QUIT PROGRAM ENTRY"n 5:5z I1:J1 JNL1Ė1:21:" PROGRAM AREA FULL":10000:PF1:1400 1300 P$(I,J);7) JJ1:J6J1:II1 1240  GET PR PROGRAM". " "X$"O"Y$" FETCH OLD PROGRAM"U $:X$"RET"Y$" RETURN TO MAIN MENU"` .4:13h 8K$z BK$"N"ī1200 LK$"O"ī1700 VK$(27)Ė1:21:" TYPE "X$"N"Y$" IF THERE ARE NO TURING PROGRAMS ON DISK":10000 `K$(13)ė:200 ,K$ 6K$"P"ī1000* @K$"T"ī2000< JK$"X"ī3000N TK$"R"ī4000 ^K$(27)Ģ21:" TYPE "X$"P"Y$" TO BEGIN":10000 hK$"Q"ė: r290  PROGRAM MENU  5:"PROGRAM MENU" "------------" :" "X$"N"Y$" CREATE NEW ARRAYS OF PROGRAM, TAPE ) MAIN MENU= 5:"MAIN MENU"N "---------"o :" "X$"P"Y$" GET PROGRAM" " "X$"T"Y$" GET TAPE" :" "X$"X"Y$" EXAMINE" :" "X$"R"Y$" RUN" :X$"ESC"Y$" HELP" :" "X$"Q"Y$" QUIT" "4:19  :8::26):?8:" TURING MACHINE SIMULATOR "P(8:26)::e2 INITIALIZATIONp<36864FX$(91):Y$(93)PPF0: PROGRAM PRESENT FLAG ZTF0: TAPE PRESENT FLAG dNL20: NO. OF PROGRAM LINES  nP$(20,5),T$(255):          0,,`,,`) `HH, h h`HH, h h`QaqRbrScsTdtUeuVfvWgwXhx-./=>?MNO]^_mno}~    0) ,`   ) ,`HH, ꩠ h h`)3280 6224,0 3350) 6224,2552 260"9")(C$"A"C$"F")ī3230( 3200E C$"0"C$"9"C(C$)e C$"A"C$"F"C(C$)55k  ::"QUICK TEST EXAMINES THE 512 LOCATIONS $XX00 ONLY" :"(Q)UICK TEST OR (F)ULL TEST? "; K$ K$"Q"ī3340 K$"F"ī3320 6158,25) 6220,189:6221,191:6222,253 3260Y ::"WHAT CHARACTER (IN HEX)? ";c& 3200l0 C$;y: CHAC16D 3200N C$X CHACHACb 6156,169:6157,CHA:6158,234l 6220,169:6221,CHA:6222,234v 3260 C$ (C$"0"C$X) CHANGE CARD SIZE IN TRC/BIN7C2(K1)K6186,C:6250,CQf CHANGE OPTIONSq X(0) ::"STORE (D)EFAULT CHARACTERS OR (S)AME CHARACTER? "; K$ K$"D"ī3070 K$"S"ī3100 3030 6156,189:6157,191: A6256:1500! A6345:15002 $A6355:1500C .A6363:1500T 8A6393:1500e BA6403:1500v LA6406:1500 VA6411:1500 `A6414:1500 jA6452:1500 tA6277:1500 ~A6516:1500  X(A) XX(X16)16128S16A,TEST FAILED IN AREAS INDICATED ABOVE"f :" TO TEST MEMORY TO QUIT ";n K$ K$(13)ī350 K$(27)ĺ: 410  CHANGE SLOT IN TRC/BIN  TRC/BIN LIES AT $1800-19FF  $1800 IS 6144 A6192:1500IRE RAMCARD WILL BE FILLED 8 "PAUSE1500:PAUSEB ,6144X 6:"MEMORY FULL "z @::" TO TEST MEMORY "; JK$ TK$(13)ī340 ^::"TESTING MEMORY" h6203 rX(6272) |X0ĺ:"TEST SUCCESSFULLY COMPLETED":400% :"D BANK 3 $E000-EFFF IS FILLED WITH $3E"M "AND TESTS THE ENTIRE MEMORY" :" FOR DEFAULT TO ALTER "; K$ K$(27)ī3000 K$(13)ī260 K$(27)K$(13)ī250 ::"FILLING MEMORY"  ENT (2) 32K, (3) 64K, (4) 128K ";& K$> K$"1"K$"4"ī130F K$R K(K$)\ 2000 :"DEFAULT FILLS EACH 4K AREA OF MEMORY WITH A UNIQUE CHARACTER"* "E.G.":"BANK 3A $D000-DFFF IS FILLED WITH $3D BANK 3B $D000-DFFF IS FILLED WITH $B3  RAM CARD TEST PROGRAM3 DIGITEK VERSION;:E6144b("RAM CARD TEST PROGRAM"2:(4);"BLOAD TRCD/BIN"<"RAM CARD IN SLOT NUMBER? ";FS$PS$"0"S$"6"ī70ZS(S$)dSn1000 x:"SIZE OF CARD? ":"(1) 16K,     TЅ , @Ѕ0, @@ @P @,`)`C0XD, C0XE, C0XF TO SELECT BANKS 1,2,3,4,5,6,7,8 RESPECTIVELY." ?" THE DIGITEK CARD SELECTS BY STORING THE BANK NUMBER IN C0X4" @" X IS 8 + SLOT NUMBER OF RAM CARD" F P FERG BRAND APRIL 1985 G  :"RAMCARDS")"--------"/(k<:"DIFFERENCES BETWEEN DIGITEK AND SATURN RAMCARDS":=" DIFFERENCES BETWEEN THE TWO CARDS LIE ONLY IN THE METHOD OF BANK SELECTION."? >" THE SATURN CARD ACCESSES C0X4, C0X5, C0X6, C0X7, C0XC, ND PROGRAM49284S16,B @4111,128S162 J4125,136S16E O4139,128S16X T4156,137S16 ^L0ĺ:"AFTER EXAMINING A BANK, RUN 240 WILL ALLOW ANOTHER TO BE EXAMINED" h4096 r:(4);"EXEC RCMM/EXEC": JUMP TO MONITOR |  A FERG BRARD? (1) 16K, (2) 32K, (3) 64K, (4) 128K ";H K$` K$"1"K$"4"ī180h K$t K(K$) L2(K1)1 4092,L L(4092) L0ī300 :"BANK (0-";L;")? "; K$ B(K$):B0BLī270 "K$ ,S(251):3FFF" P"(SUB-BANK 1)"= Z:"$E000-EFFF TO $4000-4FFF"a d:"$F000-FFFF TO $5000-5FFF" n:"THEN IT WILL JUMP TO MONITOR FOR":"INSPECTION" x:"SLOT? "; K$ K$"0"K$"6"ī130 K$ S(K$) 251,S@ :"SIZE OF RAM CA  DIGITEK VERSION :^"TRANSFER CONTENTS OF A RAM CARD TO $2000 - 5FFF"z(4);"BLOAD RCMMD/BIN"(:"PROGRAM WILL SHIFT 16K RAM AS FOLLOWS":2"$D000-DFFF TO $2000-2FFF"<"(SUB-BANK 2)" F:"$D000-DFFF TO $3000-     RINT SHOP TO GRAPHICS PAGE":J PB1$"B"B2$" NEWSROOM TO GRAPHICS PAGE":t ZB1$"C"B2$" PRINT SHOP TO NEWSROOM": dB1$"D"B2$" NEWSROOM TO PRINT SHOP": nB1$"E"B2$" GRAPHICS PAGE TO PRINT SHOP": xB1$"F"B2$" GRAPHICS PAGE TO NEWSROOM"::: < PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:j(100002"PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------":<B1$(91):B2$(93) FB1$"A"B2$" P  `-B@C=@ʊ<8m@>@m@? ,`@<m@>@m@? ,``AM6B4Ĺ4094,135BS16* @4111,128S16= J4125,136S16P T4153,137S16 ^L1ĺ:"AFTER EXAMINING A BANK, RUN 240 WILL ALLOW ANOTHER TO BE EXAMINED" h4093 r:(4);"EXEC RCMM/EXEC": JUMP TO MONITOR |  A FERG BRAND PROGR (1) 16K, (2) 32K, (3) 64K, (4) 128K ";2 K$J K$"1"K$"4"ī180R K$^ K(K$)l L2(K1)x 4092,L L(4092) L1ī300 :"BANK (1-";L;")? "; K$ B(K$):B1BLī270 "K$ ,S(251):B4Ĺ4094,131BS16 1)"' Z:"$E000-EFFF TO $4000-4FFF"K d:"$F000-FFFF TO $5000-5FFF" n:"THEN IT WILL JUMP TO MONITOR FOR":"INSPECTION" x:"SLOT? "; K$ K$"0"K$"6"ī130 K$ S(K$) 251,S* :"SIZE OF RAM CARD?   :H"TRANSFER CONTENTS OF A RAM CARD TO $2000 - 5FFF"d(4);"BLOAD RCMMS/BIN"(:"PROGRAM WILL SHIFT 16K RAM AS FOLLOWS":2"$D000-DFFF TO $2000-2FFF"<"(SUB-BANK 2)"F:"$D000-DFFF TO $3000-3FFF" P"(SUB-BANK    0,,`,,`) `HH, h h`HH, h h`P`pQaqRbrScsXhxYiyZjz[k{-./=>?MNO]^_mno}~    0) ,`   ) ,`HH, ꩠ h h`)  3350 6224,255 260")ī3230 3200/ C$"0"C$"9"C(C$)O C$"A"C$"F"C(C$)55U  ::"QUICK TEST EXAMINES THE 512 LOCATIONS $XX00 ONLY" :"(Q)UICK TEST OR (F)ULL TEST? "; K$ K$"Q"ī3340 K$"F"ī3320 3280 6224,0 :6221,191:6222,25 3260C ::"WHAT CHARACTER (IN HEX)? ";M& 3200V0 C$;c: CHAC16mD 3200uN C$X CHACHACb 6156,169:6157,CHA:6158,234l 6220,169:6221,CHA:6222,234v 3260 C$ (C$"0"C$"9")(C$"A"C$"FARD SIZE IN TRC/BIN!C2(K1)56186,C:6250,C;P CHANGE OPTIONS[ X(0) ::"STORE (D)EFAULT CHARACTERS OR (S)AME CHARACTER? "; K$ K$"D"ī3070 K$"S"ī3100 3030 6156,189:6157,191:6158,25 6220,1896345:1500 $A6355:1500- .A6363:1500> 8A6393:1500O BA6403:1500` LA6406:1500q VA6411:1500 `A6414:1500 jA6452:1500 tA6277:1500 ~A6516:1500  X(A) XX(X16)16128S16 A,X  CHANGE CNDICATED ABOVE"P :" TO TEST MEMORY TO QUIT ";X K$k K$(13)ī350} K$(27)ĺ: 410  CHANGE SLOT IN TRC/BIN  TRC/BIN LIES AT $1800-19FF  $1800 IS 6144 A6192:1500 A6256:1500 ALLED " "PAUSE1500:PAUSE, ,6144B 6:"MEMORY FULL "d @::" TO TEST MEMORY ";l JK$ TK$(13)ī340 ^::"TESTING MEMORY" h6203 rX(6272) |X0ĺ:"TEST SUCCESSFULLY COMPLETED":400 :"TEST FAILED IN AREAS I IS FILLED WITH $3E"7 "AND TESTS THE ENTIRE MEMORY"y :" FOR DEFAULT TO ALTER "; K$ K$(27)ī3000 K$(13)ī260 K$(27)K$(13)ī250 ::"FILLING MEMORY"  ENTIRE RAMCARD WILL BE FI 128K "; K$( K$"1"K$"4"ī1300 K$< K(K$)F 2000 :"DEFAULT FILLS EACH 4K AREA OF MEMORY WITH A UNIQUE CHARACTER" "E.G.":"BANK 3A $D000-DFFF IS FILLED WITH $3D BANK 3B $D000-DFFF IS FILLED WITH $BD BANK 3 $E000-EFFF  RAM CARD TEST PROGRAM%:/6144L("RAM CARD TEST PROGRAM"i2:(4);"BLOAD TRCS/BIN"<"RAM CARD IN SLOT NUMBER? ";FS$PS$"0"S$"6"ī70ZS(S$)dSn1000 x:"SIZE OF CARD? ":"(1) 16K, (2) 32K, (3) 64K, (4) ̠  `,Ѕ , @Ѕ0, @@ @P @,`)`  LD#>""> ܸ"h>x*$D">">f *;"""" ռ>""><=>?"""""!/ */ ""`""ೳŪ9:;""""""&%&+"""""""&Y""""""6  "">> >>>>>>>>" A>A>>>>> """"> " >>>>>>>>" > 2" >>&" "">">>>>>>>>` "" AAAAAAAAƴ  ﳐAAAAAAAA *"""<AAAAAAAABê>"*"*ⵍ""*"AAAAAAAAܵ i  "" ȱBLAAAxAAxAAxxA xx xx-` AAAxAAAAxxAx0("*"""""ӵԵ AAAxAAAAxA """"&"2 ""*""AAAxAAAAxA "     "ǴҵԵAAAAA"AAA ERS   "ϠAAAAAAAAƬ~ABR"6"""" ""UAGE NOTAAAAAAAABUFFhH""""""     "6"""6""AAAAAAAABLOlZl>>88@DAE>>>>>">>>ȑ@o8>` [LA>A>>>>> eօ>"">>`L >>>>>>>>oL>">">>> õ">"">>>>>>>>>lV )rõ8`DLꢩ LꢩГ LE ɠ ]           @K$(27)ĉ::.JK$(13)Ĺ49233,0:2707T310@^270FK1 AND 15, RESPECTIVELY, OF A1"` :" 3 ALTHOUGH CIRCUIT SAYS 74C161'S, 74LS161'S ARE OK" 21:1:"PRESS TO SEE CIRCUIT AGAIN PRESS TO QUIT "; K$ K$(27)ĉ:: "K$(13)Ĺ49239,0:49232,0:310 ,270 6K$ REMOVE A1"] " (II) BEND UP PINS 5,6 AND 11 OF A2SO THEY DO NOT GO INTO THE SOCKET" " (III) JOIN PINS 5,6 AND 8 OF A2" " (IV) SOLDER WIRES TO PINS 11 AND 15 OF A2" " (V) PUSH THESE WIRES INTO THE HOLES FOR PINS 159100,59100,20192,20192,401 192,48192,59E PAUSE12000:M :j "SOME POINTS TO NOTE": " 1 ON THE CARD, A2 IS ON THE LEFT OF A1; NOT ON THE RIGHT AS THE DIAGRAM SUGGESTS" :" 2 TO MODIFY FOR 4800 BAUD" " (I) F20:"PRESS ANY KEY TO CONTINUE ";- PK$3 UY V21:1:"LOADING CIRCUIT DIAGRAM" W"THE CORRECTION WILL BE ADDED AFTER THE ORIGINAL CIRCUIT HAS BEEN DRAWN "; Z:(4);"BLOAD INTERFACE/FIGURE" d49234,0 nPAUSE12000: x3 90, 4800/1200 BAUD." 2:" UNFORTUNATELY, THE MODIFICATION SHOWN IN MY MANUAL FOR 4800/1200 BAUD WAS INCOMPLETE. THIS MEANT THAT I COULD NOT TRANSFER FILES AT THE FASTEST RATE THE CARD WAS CAPABLE OF." <:" HOWEVER, THE FIX WAS SIMPLE:"%H  :,"INTERFACE CARD MANUAL ERROR"Q"---------------------------": (" THE APPLE COMMUNICATIONS INTERFACE CARD CAN BE MODIFIED FOR OPERATION AT HIGHER BAUD RATES. THE MANUAL SHOWS HOW TO REWIRE THE 74C161'S FOR 1200/300 BAUD AND--------------------------",:"ITALICS"M"PRINT CHR$(27);";Q$;"4";Q$\(27);"4"k"NORMAL "(14);"ENLARGED "(15);"AND COMPRESSED ";(146)(27);"5""CANCELLED BY CHR$(27);";Q$;"5"Q$'0'ɯLOT 10"CANCEL BY PRINT CHR$(27);";Q$;"T";Q$j:"PRINT CHR$(27);";Q$;"-";Q$;"CHR$(1) TO UNDERLINE""PRINT CHR$(27);";Q$;"-";Q$;";CHR$(0) TO CANCEL""NORMAL ";(27);"-";(1);"UNDERLINED";(27);"-";(0);" NORMAL AGAIN":"-------------(0) FOR SUPER"<"CHR$(27);";Q$;"S";Q$;";CHR$(1) FOR SUB""NORMAL ";(27);"S";(0);"SUPER ";(27);"S";(1);"SUB ";(27);"T";(27);"H";"NORMAL AGAIN" THE ESC H IS A FUDGE TO STOP SUBSEQUENT DOUBLE PRINT I HAVE A TAIWANESE EPSON CARD IN S14);"DOUBLE PRINTED ENLARGED CHARACTERS";(27);"H"wP(27);"G";(15);"DOUBLE PRINTED CONDENSED CHARACTERS";(27);"H"U(146)n"-------------------------------"x:"SUPERSCRIPTS, SUBSCRIPTS AND UNDERLINES ":"CHR$(27);";Q$;"S";Q$;";CHR$---"":"SOME COMBINATIONS ":S(15);(14);"CONDENSED ENLARGED CHARACTERS"`#(146);((27);"E";(14);"EMPHASIZED ENLARGED CHARACTERS";(27);"F"2(27);"E";(15);"EMPHASIZED CONDENSED CHARACTERS";(27);"F"7(146);2<(27);"G";(";0"CANCELLED BY PRINT CHR$(27);";Q$;"F";Q$S:"DOUBLE PRINTED CHARACTERS"t"PRINT CHR$(27);";Q$;"G";Q$(27);"G";"DOUBLE PRINTED CHARACTERS"(27);"H"; "CANCELLED BY PRINT CHR$(27);";Q$;"H";Q$"----------------------------48)""~:"CONDENSED CHARACTERS"8"PRINT CHR$(15)"Z(15);"CONDENSED CHARACTERS"g(146);"CANCELLED BY PRINT CHR$(146)":"EMPHASIZED CHARACTERS""PRINT CHR$(27);";Q$;"E";Q$(27);"E";"EMPHASIZED CHARACTERS"(27);"FED THE PAPER N /216 INCH"@"N IS A NUMBER BETWEEN 1 AND 255"g"-------------------------------"L:"CHARACTER SETS"V:"ENLARGED CHARACTERS"`"PRINT CHR$(14)"j(14);"ENLARGED CHARACTERS"t"CANCELLED BY LINE FEED OR PRINT CHR$(1"/>"THIS WAS USED IN THE LAST TWO EXAMPLES"j?"IT MUST BE ENTERED EACH TIME PAGE LENGTH IS CHANGED"|H(27);(64);:"PRINT CHR$(27);";Q$;"O";Q$"CANCELS THIS SKIP INSTRUCTION":"PRINT CHR$(27);";Q$;"J";Q$;";CHR$(N)""WILL FE"C";(0);(2);#(27);"N";(2);/I120T"SMALL PAGE MEASURED IN INCHES"[ Il(27);(64) :"CONTROL NUMBER OF LINES SKIPPED AT THE BOTTOM OF THE PAGE"*:"E.G. PRINT CHR$(27);";Q$;"N";Q$;";CHR$(2)"4"WILL SKIP OVER 2 LINES"WOULD GIVE A PAGE OF 4 LINES":7 (27);"C";(4);L (27);"N";(2);X I110| "SMALL PAGE MEASURED IN LINES" I (27);(64) :"E.G. PRINT CHR$(27);";Q$;"C";Q$;";CHR$(0);CHR$(2)" "WOULD GIVE A PAGE OF 2 INCHES"(27);"LINE SPACING 1 /6 INCH" &I0 0(27);(64)^ X:"PRINT CHR$(27);";Q$;"3";Q$;";CHR$(N)" b"WILL GIVE N /216 INCH SPACING" l"N IS A NUMBER 1 AND 255" :"CONTROL NUMBER OF LINES ON PAGE" "E.G. PRINT CHR$(27);";Q$;"C";Q$;";CHR$(4)"" h(27);(64)2 :"PRINT CHR$(27);";Q$;"1";Q$V "WILL GIVE 7 /72 INCH SPACING"e (27);"1"p I15 "LINE SPACING 7 /72 INCH" I (27);(64) :"PRINT CHR$(27);";Q$;"2";Q$ "WILL GIVE 1 /6 INCH SPACING": I15 UMBER CAN BE BETWEEN 1 AND 85"* I112> (27);"A";(I)a "LINE SPACING ";I;" /72 INCH"h Iy (27);(64) ,:"PRINT CHR$(27);";Q$;"0";Q$ 6"WILL GIVE 1 /8 INCH SPACING" @(27);"0" JI15 T"LINE SPACING 1 /8 INCH" ^I;"Q";Q$;";CHR$(25)"Q T$"TESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTESTTEST"f (27);"Q";(25)n T$ (27);(64) :"CONTROL LINE SPACING" "E.G. PRINT CHR$(27);";Q$;"A";Q$;";CHR$(10)" "WILL GIVE 10 /72 INCH SPACING" "THE N PRINTER DEMO:9"AMUST 80 PRINTER DEMO"Y:"PRINTER CARD IN SLOT 1"a :wZQ$(34): QUOTES~_1`(27);(64): RESETS PRINTERa"AMUST 80 PRINTER DEMO"d:"CONTROL PRINT COLUMN WIDTH" x"E.G. PRINT CHR$(27);";Q$     TINUE "; K$ : " IT SEEMS BEST TO RESET COMPUTER AND SWITCH PRINTER OFF AND ON AGAIN TO MAKE CHANGES. IM SURE THERE IS A MORE ELEGANT WAY OF DOING THIS."   A FERG BRAND PROGRAME 1913,97 PAGE 1 LARGE, INV- ERSE"V " POKE 1913,98 PAGE 2 LARGE, INV- ERSE" " POKE 1913,02 PAGE 2 SMALL" " POKE 1913,21 PAGE 1 SMALL, INV- ERSE" " POKE 1913,22 PAGE 2 SMALL, INV- ERSE" 22:"ANY KEY TO CONG THE SLOT 1 SCRATCHPAD AREA 1913 ($779)" " E.G. PR#1 POKE 1913,65 DUMPS PAGE 1 IN LARGE FORMAT" " POKE 1913,66 PAGE 2 LARGE"" " POK7,80 (OR HOWEVER MANY CHARACTERS YOU WANT)"A P" LIST"b Z22:"ANY KEY TO CONTINUE ";j \K$r ^: d:"HI-RES DUMPS" i"------------" n" DUMPS HI-RES PAGE 1 IN SMALL FORMAT") x" OTHER OPTIONS ARE OBTAINED BY POKIN  :5"AMUST 80 WITH EPSON CARD --MORE TIPS"Y:"80 COLUMN PROGRAM LISTINGS"{#"--------------------------"(" THE FAMILIAR 80N DOES NOT WORK"2" I ADOPT THE FOLLOWING SEQUENCE:"<" PR#1"/ F" POKE 165     looklikethisyourresponsesareunderlinedԼretԠersIJƼretIJƠŠretijĠretǰretǠĬԠddressisñðandabovenecanchangethesystemtracksontheЯ͠disksothatonlyñtoñƠaretestedbutthesimplestfixistoentertheЯ͠programԠandchangethesingleڸaddressIJƠtofixsessionwouldentandignoresanyctrlоshereadingofthecardisdoneincodebeforeanyswitchtoڸcodehehardwareonthecardissuchthatwhenanattemptismadetoreadfromñtoñƬtheoutputofthe͠isdisabledwhentheaftheproblemisinreadingthecontentsofthe͠onthecardinslothentheЯ͠diskiscoldbootedthecardisreadtwiceandusuallyadifferentchecksumisobtainedeachtimehesysteminterpretsthisameaningthatthereisnocardpresЯ͠ȠŠŠΠҠčɠhaveaaiwanesepsonprintercardinslotdrivingmyԸprinterhereisaproblemwhenɠamusingЯͮsuallytheЯ͠printercommandctrlоhasnoeffectatallhesourceo37;?0PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/` PWR8@@~``@@`@@`@a`m`i~``((((((((((((((((((((((((((((((((FB1$"2"B2$" TWO DRIVES" P> U"PRESS KEY TO CONTINUE ";F ZK$i dK$"1"ĺ"1":(4)"RUN PART1S" nK$"2"ĺ"2":(4)"RUN PART1" x90 $< PRINT SHOP - NEWSROOM GRAPHICS MANIPULATION PROGRAMSV FERG BRAND OCT 1986^:("PRINT SHOP - NEWSROOM":"GRAPHICS MANIPULATION PROGRAMS":"---------------------------------------":2B1$(91):B2$(93)<B1$"1"B2$" ONE DRIVE"     :A L@ L@ з=ɌЩ wA+ nA, nA3 nA+ nA, nA30 nAI`碏AL] `hhߚHH`@I`  H`@ @ @0)1& B@>X @ :@`e` ( wA8e wA8`` @ @ @(0I1&,&& B@( :@`X @`X@@4`X wA` :APP,0  INSERT SAVE DISK AND TYPE NEW FILENAME"/ :F "BOOT PRINT SHOP"P 1000n "TYPED IN BY FERG BRAND" :(4)"RUN HELLO,D1" :"ANY KEY TO CONTINUE "; K$ : L"+ s"TYPE XXYY TO CHANGE SIZE OF FRAME"3 w:L x"TO SAVE THAT PART"e y"-----------------" z"TYPE -> TO PUT IT IN THE GRAPHIC BUFFER" {"TYPE C TO CLEAR SCREEN" |"TYPE <- TO SEE CONTENTS OF BUFFER" :"TYPE D" "TYPE 4"' " i:"TYPE ? TO SEE PICTURE"G k:"(TYPE ? AT ANY TIME TO SEE MENU)"Q m1000w n"TO FRAME A PART OF THE PICTURE" o"------------------------------" p"TYPE P TO RELOCATE UPPER LH CORNER" q"TYPE 10,10" r"TYPE I,J,K AND M FOR FINE CONTRO  : "GRAPHIC GRABBER"<"A PRINT SHOP UTILITY"a:"FROM HARDCORE COMPUTIST #20"{(:"A SAMPLE SESSION"2:d"TO GET A PICTURE"e"----------------"f"TYPE D"g"TYPE 1"h"INSERT DISK WITH PICTURE, TYPE FILENAME"Y=>"(16412)20)"BUFFER=>"((16565)85)31;\16302W2,W2:16304W1,W1:16297W1,W1:o EXIT PROGRAMy:: PRINTOUT HI-RES SCREEN":"->=MOVE GRAPHIC TO BUFFER"I:"D=DISK ACCESS":"R=REVERSE BUFFER":"I=JUMP TO NEXT GRAPHIC POSITION":"?=SWITCH BETWEEN THIS SCREEN AND HI-RES" PRINT PARAMETERSW:22:"XSCALE=>"(1)20)"YSCALE=>"(2):,"SENSITIVIT3.0"4)"BY RAY DARRAH III"Qf4:"P=JUMP TO NEW POSITION":"1-2=GRAPHIC BUFFER"p:"X=CHANGE XSCALE"25)"C=CLEAR SCREEN":"Y=CHANGE YSCALE";z25)"ESC=EXIT"::"S=LIT DOT SENSITIVITY":"=TOGGLE PARAMETERS":"<-=MOVE GRAPHIC TO SCREEN768:(A)F$F$((A)):`F$""(F$,W)","ė:(4)"CATALOG"F$::"PRESS A KEY ";:F$:740f {* ON ERR HANDLER416773:ERR(222):ERR254Ħ>::12:"ERROR #"ERR(7)HF$ESC$:A11500:R PRINT COMMANDS\:"GRAPHIC GRABBER 01(4)"BSAVE"F$",A"256(16565)",L$240":660EGET A FILENAME~::20(A$)2:A$:6:8)"RETURN DOES A DIRECTORY"12:"FILENAME=>";::" "(8);:16384,128:(16384)155ľF$:"";F$:(512(F$))Ģ(37):64578 A512(F$):8607A$"SAVE HI-RES SCREEN":740:F$ESC$660_(4)"BSAVE"F$",A$2000,L$2000":660A$"LOAD BUFFER "(((16565)85)31):740:F$ESC$660(4)"BLOAD"F$",A"256(16565):660A$"SAVE BUFFER "(((16565)85)31):740:F$ESC$66REEN":gX" 3) LOAD GRAPHIC BUFFER "((16565)85)31::" 4) SAVE GRAPHIC BUFFER "((16565)85)31~b::"WHICH?"(8);lA$:A$"1"A$"4"660v(A$)640,670,690,710A$"LOAD HI-RES SCREEN":740:F$ESC$660(4)"BLOAD"F$",A$2000" "NEW POSITION (X,Y)=>";I:" "(8);::16384,128:(16384)155560|"";A,B:A(A):B(B):A0A192B0B140560&XA:YB0::: DISK ACCESSD:34,2::4:14)"DISK ACCESS":7N" 1) LOAD HI-RES SCREEN"::" 2) SAVE HI-RES SCET NEW SENSITIVITYC23:15::"(1-"(W)(2)")"::10:16301,0w14:A$:23:15:15):A$"1"A$((W)(2))ı16412,(A$): JUMP TO NEW POSITION34,20::22:"CURRENT POSITION=>"X","Y:25);::"(0-192,0-140)":16301,0:24:"4F00<5500.5A40M":290:16499:A$"5500<4F00.5440M":290S  PUT GRAPHIC IN BUFFER` 16384:y CLEAR HI-RES SCREEN 34,20::16301,0::"OK TO CLEAR HI-RES SCREEN? N"(8);:A$:A$:A$"Y"Č62450 :  REVERSE BUFFER 16785: G INCREMENT XSCALE- @W,(W)W:(W)4ĹW,Wl J16702,(W)8845:16723,(W)8845:16412,1(W)(2)2: T INCREMENT YSCALE ^2,(2)W:(2)4Ĺ2,W h16737,(2)521:16716,(2)521:16412,1(W)(2)2: r PUT GRAPHIC ON SCREEN 7 |A$0,450,510,240,420,990,1010:180/ 16565,85:? 16565,88:M W2WW2:h TAB TO NEXT POSITION XX92:X192X4:YY61:Y140Y9   DO MONITOR COMMAND "A$A$" N D9C6G":AW(A$):511A,((A$,A,W))128 ,:72,0:144: 6(27):K$(9)(8)(21)"DXY12SRP C"ESC$(16)@ 860:820P GET A KEY} 950:225,X256:224,X(225)256:226,Y 16611:X(224)(225)256:Y(226):A$ AW(K$):A$(K$,A,W)Ă:W1WW1:180 A260,380,400,580,320,350,220,230,47&&&&&&&&&&&&&&&&&&&&&&&& d9 n INITIALIZE VARIABLES x(16384)(16385)208ĺ(4)"BLOAD GRAPHIC GRABBER/BIN,A$4000" 8191:251,0:W11:W21:230,32:16723,43:16702,43 1,1:2,1:X96:Y70:W1:16716,51:16737,51:16412,W1 A$"":ESC$  &&&&&&&&&&&&&&&&&&&&&&&&? & &^ & GRAPHIC GRABBER 3.0 &}( & FOR &2 & THE PRINT SHOP &< & BY &F & RAY DARRAH &P & & Z         37;?PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/37;? $(,048< $(,048"&*.26:>#'+/37;?#'+/`p`@~` `@`@a`)8m`i~``((((((((((((((((((((((((((((((((    roundthisifyouwanttotryӠonyourmachineopythewholeӠdiskseˠҠorasimilarprogramtochangerackectorytesĬŠfromưtoergrandune°tlooksforcertaindistinguishingfeaturesintheƸmonitorͮnceithasdecidedthatyouhaveanŠ۬itlooksforthetitleŠۮouraiwanesepplemayhave àorsomethingelsethereinsteadereishowyougetaӠҠŠŠۧӍhenewŠoperatingsystemӠhastheabilitytodecidewhichofthedifferentspeciesofsyouhavehesubroutinewhichdoesthisstartsonrackectorïyte  .LS(D$) .A0 .IS1LS3 /DS$(D$,IS,1)[ /DS$"0"DS$"9"AS(DS$):12100 /DS$"A"DS$"F"AS(DS$)55:12100 &/ERFLG1 0/ D/AAAS2((LSIS)4) N/IS X/ N A FERG BRAND PROGRAMI +L(E$) +I1 +J1' +D$"0"8 *+F$(E$,I,1)a 4+F$" "IL1D$D$F$:II1:11050p >+D$(D$,2){ H+K12 R+12000 \+ERFLG1ı f+B(J)A p+K z+IL1ı +II1 +IMAXJ +JJ1 +11040 . COMMON CONVERSION ROUTINE 9600G TO BOOT"< "(REMEMBER TYPE C0E8 TO TURN OFF DRIVE)"] BASE,76:BASE1,1:BASE2,8y :(4);"EXEC EBP/EXEC" ' CONVERT D$ INTO HEX ADDRESS 'D$"0000"D$ $'D$(D$,4) .'12000 8'ERFLG1ı B' * CONVERT E$ INTO HEX DATA130 I1IMAX* AHI((ADDI1)256)B ALOADDI1AHI256 BASE,169:BASE1,B(I):BASE2,141:BASE3,ALO:BASE4,AHI BASEBASE5 I :"ANY MORE CHANGES? "; K$ K$: K$"Y"ī110 K$"N"ī200 170 :"TYPE 248 dB(100) iJ n"CHANGES TO START AT (ADDRESS IN HEX) ";D$V pERFLG0a r10000 tERFLG1ĺ"ERROR IN ADDRESS ":110 vADDA :"CHANGE TO (DATA STRING IN HEX) ";E$ ERFLG0 11000 ERFLG1ĺ"ERROR IN DATA ":! ::"EXAMINE BOOT PROCESS"9:(4);"MAXFILES1"D38400o(RELOCATE DISK CONTROLLER ROM TO $9600-3::"WAIT"2I0255<A150688I:A238400I:D(A1):A2,DFIK3::" "P:"CHANGE ADDRESSES IN MEMORY" ZBASE38400!!!   ̠!!somelocationnotaffectedbythebootinordertoexaminewhatisputintovariouszeropagelocationsergrandunetoseewhatwasloadedintomemoryduringthisstageofthebootoucanusethisprogramtodomorecomplicatedthingsorinstanceyoucouldinsertajumpinstructionsomewherebetweenƠtoaroutineyouhavealreadyinstalledinnsetoŠϿtypenresponseto٠Šӿtype΢nsertӠdiskypeǠtobeginbootwithmodifiedroutinehentheprogramhasreachedthebreakpointtypeðŸtoswitchoffthediskdriveype̠tsoftothenthebootprocesswillstophereandwecanseewhatwasloadedintoƮrythefollowingwithanormalӠdiskΠŠԠӍnresponsetoӠϠԠԢtypenrespoeheprogrambeginsbyrelocatingittoƠandthengivesyoutheopportunitytomodifyithefirstjumpafterallthiscodehasbeenexecutedistohiswouldbeagoodplacetoinsertabreakpointfwechangethecontenŠԠӍhisprogramallowsyoutointerruptthebootprocessinitsearlystageshecodethatliesinthediskcontrollercardsöƩcannotbealteredbutfortunatelyitisrelocatabl! ! ! !!!!  `  i! iH5) ( ( ( ( ( ( (Ș ( П`Eɠ я (0ɍ`FΩ (0F`ɀ`!! ! AMGE 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 PROGROVE 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"""""""""!                                                                                                'xLf)8f`&)8&`ɓ  ` !!""## !!""## !!""##((((PPPP6.)67 9A IЍ` JL`L@ RTWP' `5H 8h5`ɠLH8頨Lh`ɍLɈL8ɌL`e  &) )ii`iн e ȘL""" " " " "