' +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Ҧ{|LFBBbL H H`/K^놠䋽̇te؇݇t<7x놮ՠ@I Ԥեi`hhL膩 ԭV @V@L IV`ок ILMLM⹬В[\_8ԑ8԰` ձ` '-#P#`L"إ 83 8 (, ̀LꆤԦ(Ԇՠ Ԡ ,  L ) L L" OŠ ş Ş`0 Ɲ&&&)`əLR祝ɘ FffLA` Lg jݪL+ԅ ԅ݆HH`€ꄺ،ꯋU W#Mɂl/B AEF:~GHRʊ%~օO O2 2 ` O)PBeeB!` 祸HH Shh 0 BHȱBChBBȥBȥB | t BꄠBPȱBQ BHȱBChBBȱBȱBPP(QP Ơ(ƟL)  Yꄩ LY tL tLjE0#8⨥㪘ee 䈄#eeeeܥ` CB`L t BHBiKhi L\ tBȩB g RP8 PQPB S RPQB PP(QPBȥQB S RPBȥQρV J용 ,L"حρ8sɠɊɈҁLJҁЁҁҁс s 2~Li vLJstu`ρ$Ёm~C сρ`8сρ` 2~Cс8 Ёρ`ρс` S RPQ S RPQ S RPQjze~2ԍՍe ~~J΁e΁΁΁ 2 3L2΁0F~+Эѭ΁ ΁Lo ΁Ѝэ f`e| #~ԍ} Ժ F~~ o8~ ~~ܭ΁׮2}` ɠ Ɉ ɍɊ`stuɍ7ρ 2~ ~~`8~ХѬ~ 8eЅЩeх`Эѭ΁΁ ΁LZ ΁Ѝэ` eЭѭe~Аe ,,0Le[~V~8~~ eԤ )~~ eLe~ ,~` f⍊~㍌~~ ~L1~~~~`~͌~~D~m~~~8D~~~8D~~` ,0`8`L8~F~ LmnІ \ ЍmэnL ~ ~ 2 t~ ~~а2&ԦаХѭ~~ ~L G~F~~` ~ ~$(H) @(h`(`(L,}L}L}L}L }L}L,zL}L}L|L|LL|LXL}L ~~8E~!~ ~ ~ ~ ~L~̊~ ~Lx~`'~~`~͋~~eАm~А`Є㮌~!   ȱL~ȱ L~ =~ ~JJi|,`E~`F~HJ) h)i `E~F~L}<}` ABCDEFGHIJKLNOPQRSTUVWXYZ[ #"  7}E~E~`F~E~L}}` 0 }) @(`$Hʊ% h 7}$(` the fractal curve and use z=(1+or-sqr(1-4z'/l))/2. In the examples in the article, l=(3,0) or (0,1) or (1,0) and scale=4.  | | 8``"H / Xh)LH?2h 2`"D~| ,0 |HD~|(h`` 0,5,5,5,5,1500,5,5500,5,5,1990,7000,5- d55K DEKEF1F2:DE40964050b DETPHIDETPHI~se The long way of calculating this particular fractal curve is to use z'=lz(1-z) Note l and z are complex. The short way is to start with point z' on0yI`Lf<| ~}L/Ǡpd Le L|LĠͮŮİĠͮŮİ L`ӠĠͮŬ,100AqEAqE"qAqW"qĥqӤqӦqըAqٴr"rS"rEArͅxyQƜ"yXAzzܥdcOo'&/&ԏ,taXUUtOaDjf&AjijkAjmҐAjn䥀jqAjxAjxAjyEAjy%jjk AkͅmWAmWAnJp3pɨApApШApApĥppӀpؔpصWpU"p١Ap٪pۨAqF媀qWqX3qY"vqAqFUeQeQĥAeXAeAeAeeȥe̥eEAeLeӅAeAeYqeʔAeҨAffŀfYfĥ"ff嵀ffAfAf%f8fᥢffꨥf4f1"f%gGgLAgW̥AhAc&EAc&1Ac*Tc*Ec*Sc.ec4Ec4Ec7lAc7 Ac:c:eAcG&cLcNɠcS̀cUAcUAcWAcc4AcȥAcͅAcմocꥀdAdEdXdYdШAdAdըdիdEAd%AeF"ea8aeajaAaWaAa̴AaWaaaٔAbȥAbԥAb.EAb.EAb.ԥb4>bFAbJ%AbT"bjzbneAbb"tbĥb.b2bbbEAbEb%Ab䥀bک_Ac&c&c&%A^W^ĥA^ȥ^^^^ _GA_L_SA`2`˨`ڡW`ۨA`ܔ`ޔAa&aEAa ~aAaEaF baHi"aHY"aHԀaHAaJ̥AaSAaWF"aZـaEAaEAa%a"aaVWVܥAVWVS"VAV"V*VJAVԥAWQĥAWWJAWXAWYAXA[J.A[N[N1[NA\Ӏ\EA\Ш\ՔA\ըA\]FA]Hۀ]H]I"]K̀]QA]RjA]S_]U]U]XA]XA]Ӱ"TɔT̨T.TTժwTժTٴUF"UFĥAUFܥ"UJAUSUSрUWUŦ"nUEUAUWUʡEU AUѨUU"U摀V&EAV&%V&8V&EV&XV&AV&WVAV VĥVQVJ"K"KIKR*AKWWKXKW"rL3LƴMEMFܥM\"M\⦀NAN̥N3NNNNORWOPД"QeQkQkAR)"RS>ReRjR̥AR"R*"SYSj̥SjܥTXʀEYWEנEAE̷%EӪeEӪxE"ESAEۺl"FƅFAF"F"FAF͊FAGSHמ*"HHᦀHW"HޝEAIIEIFĥIIIJӀIWWIY%"I*IޗIW"JAJWJAJ唥"A:e:hjA:oA:vA:xA:x*:xH:yR:yХ:{yA;;%<ǔA?Q?RԥAAAAĥAAӀAAA١ABtABtADADǔ"DǪ%DɥWDШDԥDױE"D"D̥EFAEF̥AEFԥAEFEAE2i2ꥀ3S4W4ӤA4ӥz4ӧ4ӱ"4פ"4ץ"s4١A4ۨ5E5QƅA5W5W)5W5WӀ5^5ŔA5ɥS"5ɨA5˸5Ҕ5ٔA66A666A66E7WĥA7WA8A9*A:GW-ת-%"..ԥA.4W".:A..ƜA....A.ܥ".ܼ"..J.E.ꨥA.ȥ.%".%"0ל"0ץS0ߨA1Fܥ1T݊1YA1"1ۨA2&2& 2A2A2Ep22e"2"&ܥ&&EA&̥&& "u& &%"&A&ԥA'Kŀ'R'Sע'XA(3(3(ٔA(.*i"*il*yA*{4+A++Y"+A+lA,SA,ٵW-JĥA-SE-8"-̷%A-ĥA-ӤA-Ө"-ӱ"""%A"*"*"E"E"A"ʱ""&"#U#Uॠ#WS"#WEA#YA$$"$ҙA$̥A%Hl{%Jԥ"%XA%X%XA%ƲtA%ĥ%̔b%Ӻl"%W%䥀%"%ش"%ط%A%֘&&*A I" ी שz Y A I" ب Y!!!*!EA!A!%!ŀ!A!ףQ"*eA".ـ".݀".A"4EA"4Y"X"G"""H"Ӏ"Ȁ"W"A"RA"W"W" ""MiW"W"٨A&".%A4%4>"4A:" *|}ĥ%"y.AA eAqS"ALASW̥AXYY擀 Ǻe Ǻj Ѫi ĥ Ӕה11xefAfAil"xWy"E"ƀAꔥiAA%9 A9AEA$ѢغeYٴٵEAٶٷ:Wޔ"F."IIޔJEB"?BML@AzEGLKD5Az39@6<-0@@-;:3(39J(J/Ew6IC5?655515k3F5FDD7FG$G^D@<9?IIJBBBB9PEBC:?=@<8IC>GII=@@DAH7;>>:=\?3eJGJ?!>?J7>HjCAHsHA@9IBF@8?7(<6@C)@E5<@J99EA,bb[ZZJ0U0U09911&0{0nnV/0F$e*CQ2PP880"0!0  000ihgT04* f c c ;0!0 ---zy0Dxxx^XXWJJ PSQOOR~s kA^*EE76+# AA0? l=52/mmj0U}dYYY%>0>-,02^4]4]0X<<<<0..)q*\**BBAD'D00aa [__O2N0MJLKJJJ//IHGG0‰||NNN3(( r  iBjpd[d[d[ 0 0o[4[4e4o4y4444444444555;5M5W55555555696s6}66667717S7]7o777777778 8#8-8?8I8[8m8w888888888890wv0u0t`0U .5.;.c.s.../////?/O/_/o/0000000111-171I1c111111222%2?2Q2[2u23 33%373Q3[3}33333334 44!4+454?4Q---"DcW< *< < i< <xxgh < E gP  )F-g< Kg< )d)<gZFg< <)< xg<*i5~)كٝٳ(C@x.¾¯ë-U-i-}--*zX(i "(09@GQ|ثfhjlnqtwz~فقY&f (Hz#.hr{ӂӆӍָ'.6=V]nqyf (HHz~dx¯¾.xs>~PtXu;[9/:E/a@+([d--,,,C+S*,+)K'k+)x)#-+s,++)7,Q,)++z)S,a+w%+++_+Y**MXG*R쨥3A2g'k-W`4ĥHE2R1b.-,T\!S$sJJ5$I=j1Dk.-D̥sCA2Sa.-E,,++y+G/++i'/., d.%+{,3 !%3w$42L0o{|.-A!L3M.2A3M.2PFc &e?=;jj3C1k.-,410DsFFaY(amWpר3I02v P٫3>2g'"EHeh(0%S48IBGB2M\%3M VaSd13M PqFeܥL>c &e?5<i:~3C1O.-, eAYsKYJH1q$3Bo2aesI I(f+4ԥsKK2 :j3=2u(2"3<2Jf*("1II9E=`D@MC)\($t2j긳B?JJ2PH*RdE3J(( SWE3H-2g0'N8F>F{F2f Ys>H;2i-1WV83@2]Ig4̥3=2QP^H&AH4';9*`*{*4E3@2)˷($c&"sIF')$-4g&ܥ3@0:L\`I^ȥ s "=ANź"EXAMPLE .LEFT MARGIN 10 .INDENT -6 "AXź"OTHER EMBEDDED PRINT COMMANDS ARE DOCUMENTED IN THE MANUAL ";AvŰ50700Aů:"FOR NEW FEATURES SEE THE FILES 'NEW FEATURES', 'PRINTER CAPABILITIES' AND 'XYMEC CAPABILITIES'" BŵED PRINT COMMANDS (OTHER THAN CONTROL CHARACTERS) MUST BE IN UPPER CASE @ź".PAGE WIDTH .RLM (RELATIVE LEFT MARGIN) SETS LEFT MARGIN RELATIVE TO VALUE ORIGINALLY SET IN PRINT OPTIONS "@&ź".LEFT MARGIN "A:ź".INDE PRINTER TO HALT UNTIL A KEY IS HIT CONTROL @: THIS DISPLAYS AS AN INVERSE BLANK AND PRINTS AS A BLANK. THE DIFFERENCE IS THAT IT IS NOT LIABLE TO BE BLANK PADDED. ";?ź"USE THIS IF THE JUSTIFICATION UPSETS YOUR COLUMNS "?Ű50700K@ź" ALL EMBEDDHARACTERS (SUCH AS ESCAPE) MAY BE EMBEDDED IN TEXT BY HITTING CTRL E (FOR EMBED) FOLLOWED BY THE CONTROL CHARACTER">ĺ" CONTROL ^: DISPLAYS AS A HYPHEN BUT IS NOT PRINTED UNLESS HYPHENATION IS NEEDED ">Ű50700?ź"CONTROL S: THIS COMMAND CAUSES THAME ,"_=ĺ" TO CHANGE PRINTER DEFAULTS EXEC THE FILE 'PRINTER DEFAULTS'"q=ĵ16384,128:=į:"EMBEDDED PRINT COMMANDS "=ĺ"THESE COMMANDS ARE EMBEDDED IN THE TEXT AT EDIT TIME AND EXECUTED AT PRINT TIME "s>ĺ" CONTROL C CATALOG EXAMPLE - 'CATALOG' "<ĺ" WHEN A FILENAME IS USED THE FIRST TIME IT IS ASSIGNED THE SLOT AND DRIVE LAST USED. TO CHANGE THE SLOT OR DRIVE USE CATALOG E.G CATALOG,S6,D2 TO CHANGE THE SLOT TO 6 AND THE DRIVE TO 2 AA=ĺ"DELETE REN EXAMPLE - 'LOAD SAMPLE LETTER' - 'LOAD P1,P2,P2.5,P3' ";~ĺ"SAVE EXAMPLE - 'SAVE SAMPLE LETTER' PRINT EXAMPLE - 'PRINT' OPTIONS EXAMPLE - 'OPTIONS SAMPLE LETTER' - 'OPTIONS PRINTER' ";İ50700<ĺ"8,M,ER:ERįER:1:BE$"":M14:BE$BE$"":<:å5000:ð8030:1021,HI256:1020,HI(1021)256:1019,LO256:1018,LO(1019)256:FF$(13):FL$"""":ÆS(4):S(4)TP:DL47082:XX$"":4::90K;|į:"MAJOR FILE COMMANDS LOAD PEN SCRATCH":KF:"CLOSE SCRATCH1":"DELETE SCRATCH1":M0KE10:DE((KEM)256)1:DE48DE489DEDE256:KF,DE,53248,M,ER:ERMKE109:24:M;" CHARACTERS, ";(M2561);" SECTORS ALLOCATED";:19MM1::ERįER:50045:M0:KF,1,5324ORAGE IS USED WHEN THE FILE ISLARGER THAN CAN BE HELD IN MEMORY ALL ATONCE.":8ú"HOW MANY CHARACTERS OF SCRATCH STORAGE":"DO YOU THINK YOU WILL NEED? ";M8KE((M1023)1024)1024:501008ú"DELETE SCRATCH,";C$c9ù216,0:"OPEN SCRATCH1":"O DATA ON ANY OTHER DISK YOU ";|7ú"HAVE PUT IN THAT DRIVE, AND THERE IS NO WARNING, NO ERROR MESSAGE, AND THERE ";7ú"IS NO PRACTICAL WAY OF RECOVERING THE DATA THAT WILL BE CORRUPTED. ";40):N8ú"SCRATCH ST"NOW ALLOCATING SCRATCH STORAGE":::41);"WARNING";72);" IF YOU REMOVE THE SCRATCH DISK FROM ITS DRIVE AND THE ";7ú"WORD PROCESSOR ATTEMPTS TO USE IT THEN HORRIBLE THINGS WILL HAPPEN TO THE WORD PROCESSOR DATA, AND TO THERATE SIZE ARE USED SPECIFY ZER0 - NO SCRATCH DISK)";:M:22:XX$:XX$"0"XX$" "501205M(XX$):XX$"C"(XX$)26İ5500:50300:A$:50400:A$5íM1M7500455úXX$;", D";:C$"S"XX$:XX$:XX$:L(XX$):L1L4500505C$C$",D"XX$~6É::TY. LTD. "4mâ24:34,18)4núD$;"CLOSE"84púD$;"MONI"K4uÌ256(974):Fx4vLO(1019)256(1018):TPHIN1:BOLON14xÆF$(1,12)4}×:20:"HIT CTRL Z FOR COMMAND SUMMARY "W5ú"SLOT AND DRIVE OF SCRATCH DISK? S";:M(M)1:" (IF ONLY FILES OF MODEarticle, l=(3,0) or (0,1) or (1,0) and scale=4. in t(= the___. f ĺ"K ";X3ZíM2ĺ"L ";h3\íM3ĺ"KL";y3^íM4ĺ"80K";3_íM4ĺ"80"; 4fú" 9 SEPT 82 SERIAL NUMBER ";(967)256(966);" COPYRIGHT 1981 WYTAND P  Fractals Byte Sept 1984 p157 eulating this particular fractal curve nnnn z'=lz(1-z) Note l and z are complex. The short way is to start with point z' on the fractal curve and use z=(1+or-sqr(1-4z'/l))/2. In the examples in the "QUIT EDITOR";::XX$:XX$""ıY1J216,0:1012,0::::D$;"IN#0":"PR#0":"CLOSE"_1O1T:"ALL TEXT TO BE DELETED";::XX$:XX$""ı1^MK0:F10:F20:TPHI1:BOLO1:1023,0:1022,0:1h:MKMKF2LO1BO:1rMK0:""1|92 Y/N N";(8);:C$:C$:C$"Y"İ3445u0:"LEFT EDGE OF SCREEN AT PRINT COLUMN? ";PM;:(M)1:"";C$:C$""C$(PM)01009,(C$)01007,1:PA1:1008,0::G::3600::(1009));"R TO RETURN ";0A$:A$"R"ĺ::F:PHOH:405507140"1@:HI1ī7100S/LTPF1:N4:SIL:M401:S(M)LLS(M):NM:M0:PN4NPNPN4Nd/:LSI7100|/LLF1:LHI17100/MN01:S(M4N)S(M)::BOBOLTP:M,L1,TP,BO:TPL:4:PH0:7130/PH0:PNPN0:PLİ3445:7120"0:"PRINT OPTIONS? 59M141ľA$.3.XX$"PRINTER"İ3445::2125.:"SLOT AND DRIVE: S";:A$:M(A$):M;",D";:A$:L(A$):L:L1L2M1M75630.47081,M16:47082,L:2270.:"BAD DISK DRIVE";BE$:4055.pXX$(255):1100:.X:OHPH:PL7100 /vTPT"#-"J: TAB WITH RIGHT JUSTIFY"D-"B: SKIP TO BOTTOM OF TEXT"e-"O,P,Q: SPECIAL CHARACTERS"-"L: SET LOWER LIMIT FOR FILE COMMANDS"-"E: EMBED FOLLOWING CONTROL CHARACTER"-"F: ENTER FILE COMMAND MODE" .16384,128:M(16384):M1L,"I: RESET TAB C: QUIT EDITOR D: DELETE ALL TEXT S: SEARCH X: EXCHANGE";l,16368,0:16384,128:A$:,"@: DELETE FORWARDS","W: CANCELS PREVIOUS CTRL A G: GRAB, TO MOVE A SMALL PIECE OF TEXT Y: FAST AUTO REPEAT. E.G. Y K"-"^: TEST PRINKEY DOWN ESC: SHIFT ESC TWICE LOCK, THIRD TIME CLEAR LOCK"+"BACKWARD ARROW: BACKWARDS FORWARD ARROW: FORWARDS N: UPWARDS V: DOWNWARDS"+"K: DELETE ONE CHARACTER A: DELETE ONE TEXT LINE R: RESET TO START OF FILE F: ENTER FILE COMMAND MODE T: TAB"O LONG":5095*N3985ĝ::*"ERROR ";M;" AT LINE";NM*:BE$;:XX$:*|::"EDIT COMMAND SUMMARY EACH EDIT COMMAND CORRESPONDS TO A SINGLE KEY TO ISSUE A COMMAND THAT CORRESPONDS TO A LETTER HIT THE LETTER KEY WHILE";+~"HOLDING THE CTRL (222):F::M16ĺ"SYNTAX ERROR LINE ";(219)256(218):5095V)M255ĝ:5:4055u)N(219)256(218):5000)M16įM::)M254ī5060)N2195İ2000:55)N3500ĺ"BAD RESPONSE TO INPUT")N2500F$(0,0)"I *M176ĺ"STRING T PRINTER SLOT":"(SLOT ERROR FATAL)7("PRINT Y/N";:(32,26:33,6:34,3::PM::PI::PW::NPT:4300:PF::PL::PFĺ:4270(PN(:NPP:4300:(844)::PS::"Y";:5:((Nĺ"Y"::("N"::(D$:::12:5010:4055@)METURN TO MOVE CURSOR DOWN":32,4:33,33:" LEFT MARGIN INDENT PAGE WIDTH (INCL. LEFT MARGIN)"'r"RIGHT JUSTIFIED (Y/N) FOLD WIDTH (BOTTOM MARGIN) FORM LENGTH ":PFČ868::4230'|"PAGE NUMBERS START AT"#(" STOP EACH PAGE (Y/N) LINE SPACING :"MEMORY FULL ERROR";BE$::D$;"CLOSE":A$U&BOTP4TP((BOTP)22):BOTP4j&:F:::5000r&55&"DATA DISC OVERFLOW FOR TEXT BELOW CURSOR";BE$:LON10244055&DELON1024:630_'h::"BACK ARROW TO MOVE CURSOR UP, CARRIAGE RPF3$%(1007)A$"R"PHOH:3995%PHMPLPF12(PN.5):PHMāPHPHM:::PNPN(PN1.5):PN1ĺPW(HE$)((PN)));HE$;PN;:PHPHPH(844)::%PHPH(PH(PLPF))(PLPF):(1007)āM03:S(M)S(M1)::S(4)TPF1%%PHOH:4055.&659$FN0:MBOBO4PW:(M)31NN1((M)95)::3610Z$KNN((M)8):(M)13MMBOq$P:NPWPMN3610$ZN((PWPMN)2PI.6):N0āM1N:" ";:$d3610$n::PH(843):5000$(1007)ľA$:3983%PPĵ16384,128:16368,0:PHPLXX$:2500:850::34,24:3610\#::"ILLEGAL PRINT COMMAND";BE$;:::1007,0:A$:4055o#:F::3740#PLPH((XX$,11))İ3980#3610# PAPA1:(PA)İ850:PN(PN0).2:23:PA;" COPIES TO GO"::3980::3600#:5000#$<35RLM"PM((XX$,4))(845):3610`"o(XX$,7)"COMMENT"Ĵ(1007)3610::23:(XX$,8)::3610"r(XX$,8)"PAGE NO."PN((XX$,9))1.4:3610"t(XX$,5)"SPACE"Ĺ844,((XX$,6)):3610#(XX$,8)"CONTINUE"į:(1007)3850:8030:XX$(XX$,9):FL$EJECT"İ3980:3610>!V(XX$,6)"INDENT"PI((XX$,7)):3610[![XX$"NOINDENT"į:3620!`(XX$,10)"PAGE WIDTH"PW((XX$,11)):3610!bXX$"L"PT0:3610!dXX$"R"PT1:3610!j(XX$,11)"LEFT MARGIN"PM((XX$,12)):3610 "l(XX$,3)"03746:841,M256:840,M(841)256:842,PT:843,PH:4:b $5:PH(843):PT(842):IO$""3610 .XX$IO$"":(XX$)254į:3995 3(XX$,6)"HEADER"HE$(XX$,7):3610 81980 B(XX$,4)"CENT"3900 L(XX$,10)"EJECT ON <"3780!QXX$"24:3950>16368,0:24:34,23:S(4)TPF1::3950OPN2HE$""m(968)103ĺ(9);"198N";3565:PT(PT0)((PWPMPI)4):835,PW:836,PM:837,PI256(PI0):839,PL:MLO1MKF2:MLO1MLO300: PWPMPT1PWPMPTPI1PM0PT PIN: PWN: PTN:. PFN:42009 PLN:D PNN:O PPN:\ 844,N:n PSN:833,N:{ N4055 3480 BOLOMKF2į:MBOLO1:M(M(M))2:BOBOM:TPTPM::3850 PHPLİ3980 LOBO350F2ı  :650:::N(A$):A$"Y"N1p M(37):(M3)23480,3480,3495,3500,3505,3510,3515,3520,3525,3530,3535,3540,3550:3465 PH0:1007,0::PS::845,PM:834,PL:PLPLPF:PFPN0 838,(PN255)PN:PN1PNPN1:PHPFPL3 PA1:SI1::F:: PMN: PN0+m A$"6"Ą"NUMBER OF COPIES? ";PA:=p A$"4"3410u PS(833):PL(834):PW(835):PM(845):N(837):PIN256(N128):PT(842):NPL(839):PF(N(N))2:PN(838)::z PP(846):PA1:4200:34,1 4:R:M2 4250:(M2)22:"";A$FF 4 OPTIONS 5 RETURN TO EDIT MODE"[T "6 MULTIPLE COPIES ANSWER 1, 2, 3, 4, 5 OR 6 ";W :"2";::27:A$:A$:A$"1"PH0:PNPN0:\ (A$)13A$"2"a A$"2"į:MPHPLPF1:::PH0::PNPN0:f A$"3"ık A$"5"4055l PH0:PN! LPO:MM,N,BO,PO,ER:ER2570L LPOL:M,BO,BOL,TP1:BOBOL:TPTPLV 3060H 1007,0::M((55)16)::M123445M PA1%R "1 PRINTER MANUALLY POSITIONED TO START OF NEXT PAGE 2 SKIP TO NEXT PAGE 3 CONTINUE PRINTING WHERE LEFT O$:: BOTP1350KEİ5005 XX$"PRINTER"3600@ 3045i D$;"DELETE";F$(0,SI);F$(1,SI):3049p { 5000 O1:D$;"OPEN";F$(0,SI);F$(1,SI):MM:PO0 F2İ650 NLOMKF2BO1:N0įMM,1,HI1,PO,ER:2570 BONLONLO1BO";:KEĺF$(0,SI); :l MKį:12::"LOWER LIMIT SET"::"INTENTIONAL (Y/N) ";:A$:A$:A$"Y"8050 :1LOBOMKF2;" CHARACTERS"::2200:LOBOMKF2103010 :"CURSOR AT BOTTOM OF TEXT";:MKĺ" OR LOWER LIMIT TOO HIGH";: BE$::A((DL1)16)",D"((DL)):SI0:; XX$"PRINTER"ī2125E 2200] BOHI1300KEİ500h 5000 O0:"OPEN";F$(0,SI);F$(1,SI):MM:O1:PO0 LPO:MM,BOTP3,TP1,PO,ER:TPTPPOL:ERİ500:2560 TPTP1 ER5įER D$;"CLOSEH::XX$::5010)M40,0:41,4:2005AXX$"PRINTER"3400UXX$""ġ:2125xM012:XX$F$(0,M)SIM:M24~M16ıXX$""XX$F$(0,0)XX$""2125M1101:SI01:F$(SI,M1)F$(SI,M)::"F$(0,0)XX$:F$(1,0)",S"(XX$,7)"CATALOG"įE:D$;XX$:A$:H:"";XX$:F:2200:F$(1,SI)",S"((DL1)16)",D"((DL)):FL$F$(0,SI):21254D$;XX$9LZ$""āM2(LZ$)1:NM:M(","(LZ$,M,1))BOM::XX$"LOAD"(LZ$,N1):LZ$(LZ$,N1):(XX$)42055>5000C0:2500:2105A (XX$,4)"SAVE"XX$(XX$,5):1970:1950:3000fXX$"PRINT"XX$"PRINTER":3000(XX$,7)"OPTIONS"XX$(XX$,8):1970:1950:5600:2125(XX$,4)"LOAD"LZ$(XX$,5):2105 XX$""XX$"CTRL Z"İ5500:2000%2120t*"O"XX$"OPTIONS ":A$FL$4XX$"C"XX$"CATALOG"EXX$(13)ı^XX$"P"XX$"PRINT"21:A$;:15:1:XX$;:"";B$:2:958:34,0:XX$XX$IO$(128)256(127)(IO$)51220751970 (XX$,4)"LOAD"XX$(XX$,5):1970:195$(XX$,(XX$)1):1980L::F::6:"FREE SPACE ";BOTPKEF1F234,1:1:"FILE COMMAND?";27);"LOAD, SAVE, PRINT, CATALOG, OR ANY DOS COMMAND.":1:15:XX$:A$"":XX$"L"XX$"LOAD ":A$FL$XX$"S"XX$"SAVE ":A$FL$XX$:5:B:GX$"Z"ı!BOTP1520/"KE40505,V@XX$IO$"":XX$""GF$XX$:o^BOTP(GF$)3İ800hIO$GF$:4::5XX$""XX$FL$:1:21:XX$XX$"PRINTER"FL$XX$(XX$,1)" "XX$(XX$,2):1970(XX$,1)" "XX1:GX$"N"15604(16384)212Ĺ16368,0: GX$"Y"GX$""GX$"Z"ĉ::9:"REPLACE COMMANDS Y: REPLACE N: DON'T REPLACE T: TERMINATE Z: REPLACE AND END CTRL Y: REPLACE ALL";:GX$:1530TPTP(FF$):IO$FX$:4:500F2ı LOBO500ı)6501 XX$IO$"":FX$XX$:XX$FF$:GX$"":M1(FF$):BOBO1:BO,(TP):TPTP1:1100:TPTP1:TP,28:4:B:TPTP1:GX$""ľGX$GX$"T"ıGX$"N"ĭ(FF$)1āM2(FF$):BOBO1:BO,(TP):TPTPPZQ1150:M1(XX$):(MBO1)((XX$,M))Ă:M1(XX$):TPTP1:TP,(BO):BOBO1::VM256::TPTP1:TP,(BO):BOBO1:1105~201,(XX$):202,((XX$,2)(0)):4::5BOLO1400F2ġ::1400:1150xKEıBOTP256WYTAND P/L":A$:ER0:" KE550< TPTP1:BOTP34050B W TPBOHILO650` *750q RTPHI1860 WBOBOTPHI1:M,HI,TP,BO:TPHI1:850 \F104 p550:850 "":5500 XX$IO$"":XX$""XX$FF$ FF$XX$:1100:LLT1:$ BOTP1026DEKEF1F2:510O DE((BOTP3)2000)1024:DEF2DEF2p DEDE1024:DEBOTP3690 (BOLO)įM,BO,LO,BODE BOBODE:MKEF2:F2F2DE:F2Ĺ1022,0 KF,DE,LO1DE,M,ER:ERı 590 :"PHASING ERROR-CONTACT $;"CLOSE":1022,0:1023,0:4055= XDEKEF1F2:DE40964050T bDELOBODELOBOp lDE(DE1024):DE1690 vDEDE1024:F2F2DE:MKEF2:KF,DE,LO1DE,M,ER:ERBOBO5:590 M,BO,LODE,BODE:BOBODE:1022,1:4 F2įM,BO,LO1,BO1:BOBOTP1026DEKEF1F2:610C +DE((BOTP3)2000)1024:DEF1DEF1d 0DEDE1024:DEBOTP3690 5(HITP)įM,HI,TP,HIDE :TPTPDE:DEF1Ĺ1023,0 ?F1F1DE:KF,DE,HI,F1,ER:F1F1DE:ERı N:"SCRATCH FILE ERROR":ER::F10:F20:KE0:D0,5,5,5,5,1500,5,5500,5,5,1990,7000,5- d55K DEKEF1F2:DE40964050b DETPHIDETPHI~ DE(DE1024):DE1690 DEDE1024:KF,DE,HI,F1,ER:ERTPTP5:590 M,HIDE,TP,HI:TPTPDE:1023,1:4 &F1įM,HI1,TP,HI:TPTP1: (BO 48000P213,TP256:212,TP(213)256:225,BO256:224,BO(225)256:TP(213)256(212):BO(225)256(224):74::5<XX$((226))RBOTP3İ800% Z(XX$)6000,8060,8000,8020,650,2000,1600,750,5,5,5,8040,5,5,5,5,5,850,100                                                     `  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      ,A$2000,L$2000" F*;" RAMCARD TEST PICTURE MAKERC MUST HAVE BRUN GRAFPAK 1.0J Q\I16{("123456789ABCDEF0 PRESS")"123456789ABCDEF0 ANY KEY"*"123456789ABCDEF0 TO CONTINUE"+"123456789ABCDEF0"2< A:(4);"BSAVE RT/PIC  ϠԠðҬҠҠŠĠƸͬΠčhisdisassemblercomesfromԠĠζðretðretðretƸ͠retðret b@l  . $ ; &?1?=A>?I i`HH11`IJ듧ƙɾ5Ė+]̵h5`4ɺл1>@@A`41`>BD`8>6>) `LL u ?l:L``L@ 'A=?<) < `JJJ>Ie=?<=`K i! Ȉ2 ,`H h*:` `YE`Šӭpd`HVTQ PS 6" (!#%L" X`I`ɍ,,L8L,H ΰɐ[7[6]\\^!\\ZHJ) )h)i( ((`ɇ@ 0`$($$!f[[tit$t$rDh2)r|"rm&&rir)SȄ4&HDiD#ȅEhH 0l( Lh:h;l Le / ϐ ƥvtt, :ILl `L  0 `:Zdtz E@A  J 0,*i H/.  `0 .: VȘ L `8/;e:`"3bs"3fw 3`p"9f} "3˦s"3˦"3`p"3`p$1ex!YMJIZؤ؊bZ#H]&bTD#ThD衔)it(#n$tS#J$rS(J G(i.&E0%.Q&&` , iH h-`/'-'0 (`HJ) 'h)i& &&`0i)0 00`J G&(JJJJ)`:; H:Jj )Jb y.)/) ) JJJ Ȉ ` H:  J/Ȑh,--&       -.0/../../../`    ??(F$,29)Q(R TEXTFILE SUBROUTINEIR(20):(1):40):40):40)pR(20):(1):"THIS IS A TEXT FILE "&RPAUSE1200:PAUSE0R0u END OF PROGRAM1u A FERG BRAND PROGRAM"y MODS FOR EXEC FILES, HILIGHTING OCT 1986 "B"RT$"BRUN"-Q(G$,2,1)"E"RT$"EXEC"NQ(G$,2,1)"T"İ21000:20500gQ:(4);RT$;(G$,29)oQ:uEQJQ(F$,2,1)" "RT$"RUN"KQ(F$,2,1)"B"RT$"BRUN"LQ(F$,2,1)"E"RT$"EXEC"MQ(F$,2,1)"T"İ21000:20500OQ:(4);RT$;0" P(20):(1):40):40):40)y P(21):(1):(91);K$;"] REQUIRES ";(91);L$;"] TO BE RUN":"HAS THIS BEEN DONE? "; PM$ PM$"Y"ī20760 PM$"N"ī20690 P20650 PG$F$((L$)64) Q: Q Q(G$,2,1)" "RT$"RUN"Q(G$,2,1)(1):"TYPE ";(91);"LETTER] TO RUN"H (P"TYPE FOR FULL CATALOG"g 2P"TYPE TO EXIT ";o FOR FULL CATALOG"2P"TYPE TO EXIT ";NF$(26)LOL(DT$)2VO:L)::(32);DT$;(32):L)::`OjON1MtON14Ģ(5)~ON13Ė(20)OLN29OM13LN13#VE HELLO"#"DELETE MW/TEXTFILE"A(4);"CLOSE MW/TEXTFILE"^(4);"EXEC MW/TEXTFILE"d' DISPLAY LIST SUBROUTINE':.'L(DT$)28':L)::(32);DT$;(32):L)::B'L'N1M5V'N14Ģ(5)`'N13Ė(20)b'LN29 d'EATE MW/TEXTFILE+B(19):(1):40):40)1ERJ(4);"OPEN MW/TEXTFILE,D";DpT(4);"WRITE MW/TEXTFILE"^"20100 DT$=";(34);DT$;(34)h"20110 M=";M5rN1M5|20200N;"F$(";N;")=";(34);G$(N);(34)N"DEL 0,19999" "SA91);" ] DEPENDS ON ";(91);" ] (X,Y) ":(20):(1):40):(19):(26):P1$,P2$((P1$)1)((P2$)1)(P1$"A")(P2$"A")(P1$(64M5))(P2$(64M5))ī1480N11(P1$)64G$(N11)P2$(G$(N11),30)"ANY MORE? ";1430@ CRK$"Y"FT$"E":12500K$"N"FT$"T":1250:1284N DISPLAY AGAINY10000rx DEPENDENT PROGRAMS(19):(1)"DO SOME PROGRAMS DEPEND ON OTHERS?";K$K$"Y"ī1480K$"N"ī160014301480W(19):(1):(FT$" "$(FT0)(FT128)ī1280A(FT4)(FT132)FT$"B"V(19):(1):40)G$(N10)(G$(N10),1)FT$(G$(N10),29)N10X(0)1300 CHECK FOR EXEC FILE(19):(1)"CAN ";(G$(N10),2,22);"BE EXEC'ED? ";K$LPAUSE1400:PAUSE-V(21):(1):40)7`1030IjF$(N7)G$(N8)ik TO HIGHLIGHT WITH INVERSEylX(AD(N8))mAD(N8),X192tG$(N8)""~N7N91M5G$(N9)F$(N9)F$(N9)""N9N101M5FT((G$(N10),2,1)) N6X(0)1030&N71M55(19):(1)}"NEW ";(91);(64N7);"] IS OLD ";(91);" ]? ";:(21):K$(K$"A")(K$(64M5))ī1030$N8(K$)64.G$(N8)""ī11308(21):(1)B"YOU HAVE ALREADY ALLOCATED THIS FILE"1):(12):" MENU FULL":750%6301M5N51F(1):(11):40)Y  DISPLAY LISTd*10000w REORDER LIST(19):(1)"DO YOU WANT TO REORDER LIST? ";K$K$"Y"ī970K$"N"ī1200930N61M5F$(N6)"" TYPE ";(91);"N] OTHERWISE":BX DISPLAY FILENAMES AND CHOOSEKbN41TlN51wv(1):(11):" ";(F$(N4),29);K$K$"Y"ī690K$"N"N4N41:720640G$(N5)F$(N4)N5N51N4N41N4M3ī750N526Ė(I332(F$(N3)F$(N3)((BASEI))/I:X(0)FN3N31RN2N21[440gM3N31r&X(0)0(3):" DISK TITLE: ";DT$::" PROGRAMS ON THIS DISK WILL BE":" DISPLAYED ONE BY ONE":" TYPE ";(91);"Y] TO INCLUDE IN MENU":",47085,S 6N1N11' @47089,64N10 J250Q  STORE FILENAMES AS STRINGSt (3):" ";::" WORKING "::} N21 N31 BASE1638410256((N21)7)(N21((N21)7)7)35 (BASE1)0ī540 (BASE1)255ī520 F$(N3)" "  LOAD CATALOG N10$ 47082,Dn 38390,32:38391,227:38392,3:38393,32:38394,217:38395,3:38396,96 47083,0:47084,17:47085,15:47088,0:47089,64:47092,1 38390 T(16385N1256) T0ī400 47084,T "S(16386N1256) 1577:AD(10)1705:AD(11)1833:AD(12)1961:AD(13)1105 AD(14)1556:AD(15)1684:AD(16)1812:AD(17)1940:AD(18)1084:AD(19)1212:AD(20)1340:AD(21)1468:AD(22)1596:AD(23)1724:AD(24)1852:AD(25)1980:AD(26)1124 READ CATALOG AND SAVE FILE NAMES >"; ZK$. [K$"1"K$"2"K$(13)ī90> \K$"1"D1N ]K$"2"D2c dK$(13)ĺ:70} n(3):(1):40):40) x F$(70),G$(26),AD(26)4 AD(1)1537:AD(2)1665:AD(3)1793:AD(4)1921:AD(5)1065:AD(6)1193:AD(7)1321:AD(8)1449:AD(9)OF ANOTHER PROGRAM B, BOTH MUST APPEAR ON THE MENU. IF A IS REQUESTED, THEN B IS AUTOMATICALLY RUN FIRST.q (:| 238389 <13);"MENU WRITER": =D1 F3:" PUT IN DISK (SLOT 6, DRIVE ";::D;::")" P" DRIVE MAY BE CHANGED, PRESS ժh@ת՜h@{?ժh@תՎh{?ժhԎhwժhԪՆhwժx h`ժ Hh_h@{wժ` *N MENU)/N CREATED BY MENU WRITER14N:=>NF$(26)UNDT$"FERG BRAND #6"^NM16NF$(1)" CHEQUE ACCOUNT RECONCILER "NF$(2)" TCAR/DESCRIPTION "NF$(3)" TEST RAM CARD DIGITEK " NF$(4)" DIGITEK CARD    h`ժ`h|ժh`ժdh~ժ hpժ@h~ժh`ժ@hnժ           :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 DISPLAY IT$X(I(I3)3)90?Y((I3)(I9)3)54M1,1:2,1X224,Xc225,0n226,Y|16565,8816499II1460 A FERG BRAND PROGAM THE FAST OPTION ASSUMES FILE SECTORS ARE CONTIGUOUS L &TS(P)16(P1)W 0J13v :T((TSJ)16):STSJT16 DCLO252:CHI86J N(IOB4),T:(IOB5),S:(IOB8),CLO:(IOB9),CHI X16816 b l640 v:(4);"BLOAD";F$;",A$5800,D2"$F$(F) PNPN1:4009 PP35:PPHI256255ī350] G(0):PHIPHI1:PHIBHIī340g  END} "END OF CATALOG" (IOB2),1: BACK TO DRIVE 1  22:(F$" ",30)  FETCH PICTURE6 FFLAG0ī630:O11:PHI96 TPPHI256PLOi ^P1(((P2)4)((P2)132)): CHECK WHETHER FILE IS BINARY OF LENGTH 4 hP2(((P33)4)((P34)0)) r(P1P2)ī390 |460 F$"":NS0:PNP3 F(PN) F160NSNS1 F160NS0 NS2ī520 FINNING OF CATALOG STORAGE AREA7 (IOB2),2: DRIVE 2S (IOB3),0: ANY VOLUME (IOB4),T:(IOB5),S:(IOB8),BLO:(IOB9),BHI 16816: $41B0 RWTS HANDLER "A(BHI25611) ,A0S1ī320 6SS1:BHIBHI1:270 @ READ CATALOG JPL" PRESS FOR FAST OPTION") K$E FFLAG0:K$"F"FFLAG1a :(4);"BLOAD PSD/BIN"g o I0 GET CATALOG IOB(43714)256(43713): BEGINNING OF PARAMETER LIST  T17:S15:BLO0:BHI96: FIRST CATALOG TRACK AND SECTOR. BEGACCESSES C0X4, C0X5, C0X6, C0X7, C0XC, 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 ARD TO MAIN MEMORY> PROGRAM SHOULD BE RELABELLED . IS THE EQUIVALENT DIGITEK VERSION. <:"DIFFERENCES" =" DIFFERENCES BETWEEN THE TWO CARDS LIE ONLY IN THE METHOD OF BANK SELECTION."f >" THE SATURN CARD   :/"DIGITEK 128K RAMCARD UTILITIES"U"------------------------------"l(:"TEST RAM CARD")" THE PREVIOUS PROGRAM SHOULD BE RENAMED "2:"RAM CARD TO MAIN MEMORY"} 3" THE PREVIOUS X @ :@`e` ( wA8e wA8`` @ @ @(0I1&,&& B@( :@`X @`X@@4`X wA` :APP,0 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      INSERT SAVE DISK AND TYPE NEW FILENAME"/ :F "BOOT PRINT SHOP"P 1000n "TYPED IN BY FERG BRAND"t :"ANY KEY TO CONTINUE "; K$ : KL"+ 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"& ɍ ɠ 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 PROGRAM8ī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": GET VALUES :9 "WHAT IS LAMBDA? (X,Y) ";LX,LYC 2000] "WHAT IS SCALE? ";SCl SC2CXSCr  p PLOT X,Y zSC(X.5)CX,CYSCY C  FOUR OVER L$ SLXLXLYLY2 LX4LXSA LY4LYSG Y X,Y TIMES Lg TXX:TYYy XTXLXTYLY YTXLYTYLX  FUNCTION OF X,Y 3000 X1X 1000 (1).5XX:YY X1X XX2:YY2  + FRACTAL PROGRAM BYTE P172 SEPT 1984< CX140:CY96MX.50001:Y0Wd5000`n:3txI110:4000:~60004000140 SQUARE ROOT OF X.YTYS(XXYY)Y((XS)2)X((XS)2)T0XX LdLdLdL LdLdL LdL LdLdL m   s   `Lc@ Ld Ld%Ld*Ld/Ld4Ld>LdCLdHLdMLdRLdWLd `  + " 7 . ^  : |   . |  : ^  `        (L   "          ` X 'LXWHAT IS LAMBDA? (X,Y) A  a    p 'LWHAT IS SCALE? u  p    c s i p`  k [[[         5    9     1  LLc " R    "   F  C c  i   C c  i  U  (Lo  ` d ^   |  F  ^ c I i a  n | c I i(I)B(I)B(I)1580Z GO BACK AND FETCH THE LAST VALUES OF B(I),C(I) AND A(I)iB(I)B1(I)x C(I)B1(I)JI11 A(J)D1(J)*J4B(I);>IHR A FERG BRAND PROGRAMND2(J)CAR0J10D2(J)D2(J)B(I)C(J1)UJ20D2(J)D2(J)B(I)C(J2)10dJ20ī710yCAR(D2(J)100)D2(J)D2(J)100CARD(J)A(J)D2(J)BO:BO0JJLī740D(J)0ī769D(J)0D(J)D(J)100:BO1JB1(I)B1I1 C(I1)2C(I1)+ CAR(C(I1)10); CAR0ī580R C(I1)C(I1)10CAR^ &I1I11r 0C(I1)C(I1)CAR{ :520 DC(I)B(I) I UPDATE THE D(I) NCAR0 XBO0 bJIJL1 lD1(J)D(J) vB(I)1D1(J)A(J) J12JIJ2J11D(1)+ :"SQUARE ROOT OF X= ";B(1);".";M  CALCULATE SUBSEQUENT DIGITSY I2NDi JLI(I2){ D(I)(A$(I)) A(I)D(I) B1(I)0: AUX STORE FOR LAST VALUE OF B(I) B(I)1: START WITH 1  UPDATE THE C(I) CAR0: CARRY I) MAKE UP XG |B(1)((A(1))): THE B(I) MAKE UP THE SQUARE ROOT OF X C(1)B(1): THE C(I) MAKE UP THE NUMBERS ON THE LEFT HAND SIDE OF THE WORKING IN THE USUAL LAYOUT D(1)A(1)B(1)C(1): THE D(I) MAKE UP THE BOTTOM LINE OF THE WORKING A(1)EATE A$(I) "ND21d , ND IS THE NUMBER OF DIGITS TO BE DISPLAYED, MUST BE LESS THAN DIMENSION/2p 6I1ND} @I12I1 JA$(I)(N$,I1,2) TI ^ BEGIN CALCULATION h JUST USE BASIC SQR FUNCTION FOR FIRST DIGIT rA(1)(A$(1)): THE A(I1 DP(N$)N$N$".":1908 (N$,DP,1)"."ī230D DPDP1M 190k PUT N$ IN STANDARD FORM Z1$(1)"00":Z1$(2)"0":Z2$(3)"" Z2$"0000000000000000000000000000000000000000" N$(Z1$(DP)N$Z2$,43) N$(N$,2)(N$,40)  CRd::"SQUARE ROOTS"YnZ1$(3),A$(51),A(51),B(51),B1(51),C(51),D(51),D1(51),D2(51)x:"ENTER NUMBER BETWEEN 0 AND 100":"X= ";N$N(N$)N0N100ī120(N$,3)"100"ĺ:"SQUARE ROOT OF X= 10": FIND DECIMAL POINT DP     ̠ 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 IFTЅ , @Ѕ0, @@ @P @,`)`49284S16,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-   ) 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" :   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,     IB)1ī9330(#^$LB$(IB):AB(IB):FB(IB)4#h$JBJB1<#r$IBQ#|$(4);"CLOSE";F$W#$]#$q#' ERROR HANDLER#'ERR(222)#$'ERR5Ā#.':(4);"DELETE";F$#8'"NO DATA IN THIS FILE"#B'PAUSE11000:#L'190N THIS FILE" "B'PAUSE11000:)"L'190D" N A FERG BRAND PROGRAMY"*N MODS 12 OCT 86e"#IBo"#9340x"#MB0"#IB1"$FB(IB)1ī9240"$MBMB1"$IBIB1""$IBNBī9220",$1:MB"6$"OLD BAL ":SA:0"@$JB1"J$IB1NB #T$FB(NBī9220!,$1:MB+!6$"OLD BAL ":SA:04!@$JB1A!J$IB1NBU!T$FB(IB)1ī9330r!^$LB$(IB):AB(IB):FB(IB)~!h$JBJB1!r$IB!|$(4);"CLOSE";F$!$!$!' ERROR HANDLER!'ERR(222)!$'ERR5Ā!.':(4);"DELETE";F$ "8'"NO DATA I }# #(4);"OPEN";F$- #(4);"WRITE";F$? #K$"2"ī9200K #NA:NBX #IA1NAu #LA$(IA):AA(IA):FA(IA)} #IA #IB1NB #LB$(IB):AB(IB):FB(IB) #IB #9340 #MB0 #IB1 $FB(IB)1ī9240 $MBMB1 $IBIB1 !"$IB/F#X$;"2";Y$;" DATA FOR NEXT RECONCILIATION"5K#=P#K$OZ#K$"1"ī9065a[#K$"2"ī9070kd#9010i#:"STORE DATA IN SAME FILE? (Y/N) ";:K$j#K$"Y"ī9070k#9085n#:"FILENAME? (PROGRAM ADDS PREFIX CHQ.)"::"";F$x#F$"CHQ."F$ K$"N"ī8470" K$"Y"ī8410H 9:1:"NEW FLAG OR * ";P K$h K$(13)F0:8450~ K$"*"F1:8450 8441!B0FA(I)F !B1FB(I)F!8180 !9:1:24)(# SAVE DATA SUBROUTINE2#<#X$;"1";Y$;" ALL DATA"A$(I)L$ B1LB$(I)L$I 9:1:"CHANGE AMOUNT? ";X$;"Y/N";Y$;" ";Q K$c K$"N"ī8400v K$"Y"ī8340 9:1:"NEW AMOUNT ";:11:" ";A B0AA(I)A B1AB(I)A 9:1:"CHANGE FLAG? ";X$;"Y/N";Y$;" "; K$ B1INBĢ12:1:"ANY KEY TO CONTINUE ";4 K$:& J0 9:1:30)[: 10:1:30)k? EF1ī8440D 9:1:"CHANGE LABEL? ";X$;"Y/N";Y$;" ";N K$X K$"N"ī8330b K$"Y"ī8270l 9:1:"NEW LABEL ";:10:" ";L$v B0L$;18);FG$(FB(I))@9:"STOP AND EDIT? ";X$;"Y/N";Y$;" "o10:X$;"Q";Y$;" TO RETURN TO MAIN MENU ";wK$K$"Q"ıK$"Y"ī8240K$"N"ī8140B0(INA)II1:8030B0(INA)I1:B1:8030 B1INBII1:8030,K$"F"EF1:8017P8013+Q1:1:39);R2:1:39)GTI1:B0X^B0ZAA(I)ihB1ZAB(I)yr7800:A$Z$|4:1B0ĺ"STATEMENT DATA"B1ĺ"CHEQUEBOOK DATA"6B0ĺLA$(I);9);A$;18);FG$(FA(I))B1ĺLB$(I);9);A(Z100DLRS100.001).D$" "(DLRS)CC$"00"(CENTS)aZ$S$(D$,4)"."(C$,2)g}@ EDIT SUBROUTINEEEF0JKX$;"L";Y$;" CHANGE LABELS,AMOUNTS,FLAGS"LX$;"F";Y$;" CHANGE FLAGS ONLY ";MK$NK$"L"ī8017O$; `SB0jJ1NB*tFB(J)1ī7560:~SBSBAB(J)AJNSBSBSAcZSB:7800:A$Z$sNA1ī759521);"NEW ADJ ";A$x DOLLAR STRINGS SUBROUTINES$" "Z0S$"-":ZZZ0Z$"":DLRS(Z)CENTS CONTINUE ";:K1$34,0&X(0),o STATEMENT SUBTOTAL AND CHEQUEBOOK ADJUSTED BALANCE SUBROUTINE*"------------------ -------------------"4SA0>J1NAHSASAAA(J)RJ\ZSA:7800:A$Z$aNA1ī7520f"NEW BAL ";AZ$-(INA)ĺ" ";:7110V(LA$(I),8);9);A$;18);FF$(FA(I));21);(LB$(I),8);29);B$;38);FF$(FB(I))RCRC1RC(RC19)190Ģ23:"ANY KEY TO CONTINUE ";:K$:RC1:1:20);:22:17200:"ANY KEY TOFA(I)1:FB(J)1J:I 9X DISPLAY SUBROUTINE?bl" STATEMENT CHEQUE BOOK":"------------------- -------------------":q34,2vNUNA(NBNA)NUNBRC1I1NUZAA(I):7800:A$Z$ZAB(I):7800:B$$;"RETURN";Y$;" TO CONTINUE, ";X$;"ESC";Y$;" TO END ";>,K$T6K$(27)NBIB:h@K$(13)ī4180rJ4140~TIBIB1^1:39);:1h4060REM LOOK SUBROUTINE :" LOOKING ";:I1NAJ1NBLA$(I)LB$(J)AA(I)AB(J)": 3500IBNB15"LABEL ";LB$(IB)\LB$(IB)""IBIB1:K$(27):4150|"CREDIT(+) OR DEBIT(-)? ";K$K$"+"K$"-"ī40801:39);:1"AMOUNT ";K$;:" ";AB(IB)K$"-"AB(IB)AB(IB)FB(IB)06":X8dB"DATA FROM MONTHLY STATEMENT AND CHEQUE BOOK, ETC ARE ENTERED IN THE SAME MANNER."L:"ANY KEY TO CONTINUE ";:K$V CHEQUE BOOK DATA SUBROUTINE"ENTER DATA FROM CHEQUE BOOK, ETC":"-------------------------------- FROM YOUR ACCOUNT.":"TYPE ";X$;"+";Y$;" FOR CREDIT"^"TYPE ";X$;"-";Y$;" FOR DEBIT":"FINALLY, YOU WILL BE ASKED FOR THE ";::"AMOUNT";::". ENTER THE AMOUNT WITHOUT ANY DOLLAR SIGNS."$:"ANY KEY TO CONTINUE ";:K$.EX1 MACHINE ENTRIES, USE A FOLLOWED BY THE DATE, E.G., A18NOV. ";l "FOR PAY, USE P FOLLOWED BY THE DATE. "; "NOTE THAT ONLY THE FIRST 8 CHARACTERS ARE PRESERVED." :"YOU WILL THEN BE ASKED WHETHER THE AMOUNT IS TO BE CREDITED TO OR DEBITED  3060' INSTRUCTIONS SUBROUTINE1 34,3A EX1ī3650 "YOU WILL FIRST BE ASKED FOR A ";::"LABEL";::". HERE ARE SOME SUGGESTIONS:" "FOR CHEQUES, USE THE LAST THREE DIGITS OF THE CHEQUE NUMBER. ";> "FOR AUTOMATIC TELLING"K$"-"ī3080  1:39);:1?& "AMOUNT ";K$;:" ";AA(IA)Z0 K$"-"AA(IA)AA(IA)g5 FA(IA)0: :X$;"RETURN";Y$;" TO CONTINUE, ";X$;"ESC";Y$;" TO END ";D K$N K$(27)NAIA:X K$(13)ī3180b 3140l IAIA1v 1:39);:1 STATEMENT DATA SUBROUTINE# s "ENTER DATA FROM MONTHLY STATEMENT":"---------------------------------":} 3500 IANA1 "LABEL ";LA$(IA) LA$(IA)""IAIA1:K$(27):3150 "CREDIT(+) OR DEBIT(-)? ";  K$ K$"+:"FILENAME? (PROGRAM ADDS PREFIX CHQ.) "::"";F$D F$"CHQ."F$J ^ (4);"OPEN";F$r (4);"READ";F$~ NA:NB IA1NA LA$(IA):AA(IA):FA(IA) *IA 4IB1NB >LB$(IB):AB(IB):FB(IB) HIB R(4);"CLOSE";F$ \ $;" DISPLAY"% L:X$;"E";Y$;" EDIT"C V:X$;"S";Y$;" SAVE DATA"\ `:X$;"Q";Y$;" QUIT"f j:K$ tK$"A"K$"B"K$"L"K$"D"ī1180 ~K$"O"K$"S"K$"R"K$"Q"ī1180 K$"E"ī1180 1130   READ OLD DATA SUBROUTINE 3 1Ĺ34,0: ST12 :"MAIN MENU":"---------"Y :X$;"O";Y$;" READ OLD DATA FILE" :X$;"A";Y$;" ENTER DATA FROM MONTHLY STATEMENT" $X$;"B";Y$;" ENTER DATA FROM CHEQUE BOOK, ETC" .:X$;"L";Y$;" LOOK FOR MATCHING ENTRIES" B:X$;"D";Y$(0)"":FF$(1)"*"8 FG$(0)"(BLANK)":FG$(1)"* "B 1000T K$"O"İ2000f K$"A"İ3000x K$"B"İ4000 K$"L"İ5000 K$"D"İ7000 K$"E"İ8000:190 K$"S"İ9000 K$"Q"Ā "190  MAIN MENU SUBROUTINE STZ)d CHEQUE ACCOUNT RECONCILER PROGRAM/nnxLA$(255),LB$(255),AA(255),AB(255),FA(255),FB(255),FF$(10)z}10000NA0:NB0IA1:IB1EX0:" ":" CHEQUE ACCOUNT ":" ":X$(91):Y$(93) FF        Ġ̠Ʋ΍б  Ġ̍Ʊ΍б΍֠؍Ʊ΍б΍Ʋ΍б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):          d000000000000000000000d0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000d00111000002000110111000 % MȽ L )Ɋ L  ddcharacterswhenitisechoingkeyboardentriesbutyieldsgibberishallthetimewhenɠamaccessingtheniversityofydneyscomputerhebaudratenoparityandstopbitrequirementsareallthesameǠčfromserialtoparallelandviceversaishandledbyasingleintegratedcircuithereisplentyoftimefortheppletodootherthingsowhereisapuzzlehecardworksquiteadequatelywiththeǠboarditdoescomeacrosswithafewoletimeleftforanythingelsenparticularthereisnotimeleftforhandlinglinefeedssoɠhavecompromisedandsuppressedthemfyouemployedacardliketheppleommunicationsnterfaceardtherewouldbenoproblemheconversionifyourcardisinslotittransmitsthecharacterusingԮowwecometothemainshortcomingoftheerialardheppleisworkingalmostallthetimeconvertingtheincomingserialdataintothestandardbitshereislittɠchoseoteonthedriverprogramtspendsmostofitstimeintheΠroutineonthecardhenacharactercomesinitchangesittouppercaseandusesthemonitorroutineԠtoprintithenitrecognisesakeypress٠nonzeroiverprogramtorunthedrivertepialupyourulletinoardneofthefirstthingsyoushoulddoifyouareontheǠbulletinboardistousetheerminaletupoptiontochangethenumberofnullsthatfolloweachcarriagereturnpineemanualpagetepromthemonitorandɠamassumingthatyourcardisinslotòǼreturntoinitializereturntosetstopbitǼreturnorΠdrtepheckthatswitchesoncardaresettoΠƠΠΠΠΠήhissetscardforbaudtepheckthatpinoftheӲàconnectoronthecardgoestopinoftheӲàconnectorofthemodemandpingoestovingprogramandŠitŠƸĠøĠ¸ðưùàùŰƠùưĠĠàŠ̠ŠĠĠ͍heppleerialnterfaceardisnotthebestcardtousetotalktoyourmodemoweveritcanbedoneutnotalwayssucessfullyhisiswhatɠdidtepreateasmallmachinelanguagedri         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!!!    tslaststatementypeϠfollowedbyϠwithyourclubdiskinthedrivetoseewhatyourfileshouldlooklikereadytostartanewmonthypeӬҮhiswillsavetheנŠfromthefirstcolumnandalltheunflaggeditemsfromthesecondcolumnhatisalltheunpresentedchequesandthewithdrawalsanddepositsmadesincethebankclosediresowtheadjustedbalancewillbecorrectypeӬ tosavearecordofallyouranebtransactionsypeϠthenϠwiththeclubdiskinthedrivetoseewhatyourfileshouldlooklikeatthisstageutnowyouarerecordofyouranebtransactionsouwillseethatthesalarypaymentitemsdonotmatchbecausethedatesdifferbytwodaysypeŠtoentertheeditmodeandaddflagstoshowtheymatchypeĠtoseehoweverythingcompasnextype̠andthenĠtoseewhichentriesinyourstatementandchequebookcolumnsmatchatchingitemsareindicatedorflaggedbyafyoulikeyoucanremovetheseitemsbytypingҮutdontdothisifyouwanttosaveacompleteonyourstatementfyouhaveomittedanitemtypeandenteritfyouhaveenteredanamountincorrectlytypeŠandcorrectitŠŠĠŠatthispointyouhavenoteliminatedtheitemswhichappearedonyourstatementhatcomeԾԾ֠ؼԾԾþhisbringsyourfileuptodateypeĠtoinspectyourfilefyouhavecopiedcorrectlyfromyourstatementtheנŠonthescreenwillmatchthe̠enterdatafrommonthlystatementheninresponsetolabelcreditdebitamounttypeƱμԾԾԾбμԾԾԾԾԾԾԾҶ ֠ؠ̠ŠuntheprogramypeϠthen tofetchtheolddatafileypetoԠōΠԠĠΠɠΠ٠ΠΠadvicethatyoursalaryhasbeenpaidintoyouraccountpdateyourdatafile odayyoureceiveyourmonthlystatementtreadsasfollowsԠnresponsetolabelcreditdebitamounttypeԾԾԾƲμԾԾþypeӬ tosavethisupdateddata oureceiveodayyouwriteachequeforandmakeanotherlexitellerwithdrawalofuntheprogramypeϠthen tofetcholddatafileype toenterdatafromchequebooketcheniseeyournewadjustedbalanceypeӠtosavethisdatahooseoptiontosaveallthedataiveyourdatafileaname¬sayhedatawillbestoredasatextfilecalledѮypeѠtoquitΠamounttypeԾԾԾԾԾԾƱμԾԾԾбμԾԾþhisbringsyourfileuptodateypeĠtoamounttypeԾhisisallyouwantfromthefirstmonthlystatementsotypeþtogetbacktothemainmenuype toenterdatafromchequebooketcheninresponsetolabelcreditdebitintoyouraccountonanhavenotbeenincludeduntheprogramypetoenterdatafrommonthlystatementheninresponsetolabeltypeĠ̼ԾcreditordebittypedyourmonthlystatementfromyourbankhebalanceisacreditofourecallthattherearestilltwooutstandingchequesforandforalexitellerwithdrawalofonanandasalarypaymentofinbetweenmonthlystatementshisfileteachesyouhowtouseitɠstronglyrecommendthatyouprintoutthisfileandworkthroughthistutorialΠtartingoffodayyoureceiveŠԠҍǠčȠhissetofprogramsincludesŠԠҬѮϠandѮϮhisprogramgivesyoutheopportunitytokeeptrackofyourchequeaccount""""""""!!! ! ! ! ! !!!!!!d1012R1103L2013R2114R3011L3102R4005R411HN5013L5111R0" "d1012R1113L2011L2112R3012L311HN" " d1001R1102R2003R2112R3014L3113R4005L4114L5018L5116L6017R6116L7007N7102R800HN8118L" " 21001R1102R2013R2112R300HN310HN""