' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ 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,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#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 ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".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 õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`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- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` i d ֠z# u`*A8100,8500*6*"WHICH GROUP DO YOU WANT":P*GFLAG1:MAXNG:11300_*A18000p*22:1:958*"DO YOU WANT (P) PRICE ONLY"*"OR A (F) FULL LIST ";*A$:A$"P"A$"F"ĺ"";:8169*PFLAG(A$"F")*:: +"PRINTING 1)>D$;"DELETE ";A$()H11700:5000.)?F)@ PRINT PRICE LISTSN)J:p)TT$"PRINT PRICE LISTS":11000w)Y8)^" 1. PRINT INDIVIDUAL GROUP"::)h" 2. PRINT EVERY GROUP"::)r" EXIT TO MAIN MENU")|MAX2:11050)A1500-DELETE-*"$(GFLAG1:MAXNG:113003(A15000U(A$GP$(A)::"DELETING"::A$c(A$GP$(A)(10::"ARE YOU SURE (Y/N)";:( Z$:(Z$)0(Z$,1)"Y"5000(10:868:"DELETING ";A$( ANG5940(*IA1NG:GP$(I1)GP$(I):)4NGNGG0:Z$GP$(A):GP$(A)""6'rI1NG:A$GP$(I)SFLAG1<'|s'SFLAGĺ:"THAT GROUP ALREADY EXISTS ";:A$:5440':"NOW REPLACING OLD NAME"'D$;"RENAME ";Z$;", ";A$'GP$(A)A$'11700:5000' DELETE A GROUP' ("ENTER NAME TO * &11700&5000*& EDIT GROUP NAMEH&":"EDIT WHAT GROUP NAME"b&,GFLAG1:MAXNG:11300q&6A15000&@:"OLD GROUP NAME WAS.."&J:GP$(A)::&T"ENTER NEW GROUP NAME":&^"->";A$&c(A$)0ĺ"";:5440&e(A$)05000'hSFLA000%SFLAG0.%I1NG:A$GP$(I)SFLAG14%f%SFLAGĺ:"GROUP ALREADY EXISTS ";:A$:5260%10:"NOW CREATING NEW GROUP.."%NGNG1:GP$(NG)A$%D$;"OPEN ";A$:D$;"DELETE ";A$%D$;"OPEN ";A$:D$;"WRITE ";A$%0:D$;"CLOSE ";A$)$2A275000$7A135000.$<A215200<$FA85220L$K"";:5160e$PQQ15:QMAXQQ15o$Z5130$dQQ15:Q0Q0$n5130$ ADD A NEW GROUP$$"ENTER NAME OF NEW GROUP":$"-> ";A$$(A$)0ĺ"";:5260%(A$)05:##" RETURN TO MAIN MENU"4#MAX4:11050B#A1500]#A5100,5250,5400,5800p# DISPLAY LIST#:"THE LIST OF GROUPS IS.."#Q0:GFLAG1:MAXNG# 11470#7:25:"Arrows to move"#9:25:"ESCAPE to exit"$(23:A$:A(A$00":"SAVING ";GP$""12000+"5001"G" GROUP SELECTIONO":o"T$"GROUP SELECTION":11000z"X(0)"6:" 1. SEE THE GROUPS LIST"::"" 2. ADD A GROUP"::"" 3. EDIT A GROUP NAME"::#" 4. DELETE A GROUP":18:7:A$#!OA$""QTY(A)(A$)-!T1500;!:TFLAG2_!"CHOOSE AN ITEM TO *-DELETE-*"y!MAXNI:GFLAG0:11300!&A11005!+20::"ARE YOU SURE (Y/N)";:!0Z$:(Z$)0(Z$,1)"Y"1800!:IT$(A)"":NDND1:1800!"TFLAG25XNI:GFLAG0:11300" A11005E :"ENTER THE NEW INFORMATION"_ 12:" NAME: ";IT$(A)x 14:"PRICE: ";PR(A) "16:" COST: ";CST(A) ,18:" QTY: ";QTY(A) 614:7:A$ ;A$""PR(A)(A$) @16:7:A$ EA$""CST(A)(A$) !J:DnSFLAG0xK1NXD7XI$(K)XI$(KD)1440[XI$(K),XI$(KD):XP(K),XP(KD)}XC(K),XC(KD):XQ(K),XQ(KD)SFLAG1SFLAG1390D(D2)I(D0)TFLAG2:1005:TFLAG2"CHOOSE ITEM TO EDIT" MA12:7* XI$(NX1):(XI$(NX1))01340?14:7:XP(NX1)T16:7:XC(NX1)i(18:7:XQ(NX1)2NXNX1:NX5001235<34,3:ANX01017F"NOW SORTING THE ADDITIONS"PD(NX2):D1490ZI01: REPEAT UNTILd1:35:868(A)~:"LOADING ";GP$$11800.1017> ADD ITEMSDa"ADD ITEMS TO ";GP$::"ENTER AT NAME TO END"34,9:12:" NAME:";:868:14:"PRICE:";:868:16:" COST:";:868:18:" QTY:";:868:N ITEM"::*" 4. DELETE AN ITEM"::K$" RETURN TO MAIN MENU"\.MAX4:11050k8A11950BA1100,1200,1500,1800L SELECT A GROUPQTFLAG1V:"USE ITEMS FROM WHICH GROUP"`GFLAG1:MAXNG:11300jA11005tGP$GP$):170! (7):10::868:320p A$::10:7);"HIT TO COPY ANOTHER"::11);"OR TO REBOOT " ":19:IN$; ,A$:A$(13)Ċ6: 6110 @X(0):IN$"<"(95)">"(8)(8):ST1340 J2(ST1):1:"STEP ";ST1;" : ";ST$(ST1)ESC$500v::20:1 ITEM SELECTIONGTFLAG0:NX0:ND0O:nT$"ITEM SELECTION":11000yX(0)TFLAG1100:21:"GROUP ";GP$6::" 1. SELECT A GROUP"::" 2. ADD AN ITEM TO THE GROUP":: " 3. EDIT A1:TD$X(0)46:" 1. ITEM SELECTION"::U" 2. GROUP SELECTION"::r" 3. PRINT LISTS"::&" EXIT PROGRAM"0MAX3:11050:A1600DA1000,5000,8000X6:1:868Y9:868Z12:868b11100lA$------------"-ESC$(27)&2(0)N<IT$(500),PR(500),CST(500),QTY(500)pAXI$(50),XP(50),XC(50),XQ(50)zF(0)PNG0:NI0:NX01000040::T$"PRICE LIST MENU":1100011200:T$"PRICE LIST MENU":110001:~# *******************: * * Y * SHOP PRICE LIST * x * *  * BY W.TOOMEY *  * * *******************:D$(4) (UL$"---------------------------     " " " """""""""     4"MASTER DISKETTE CREATED ON 48K SYSTEM"a"BY W.TOOMEY 15/05/87"{(4:"SHOP PRICE DISK"234,7:8<(4);"CATALOG"A34,0F䠦󠦠Ӎ̍ШѨڤӠƠԠԤĤƠ̠̤ؠŨèɤᠮǠﮠɠﮠؠﮠĤƠǠﮍҠҨѠԠԨФȠɠɱԤԤʠˠàĠ嬠ƠӠӨĠĤӤ̠ƠФ     V1Ģ14::"INSERT DESTINATION DISK AND HIT ";:16368,0:A$:A$" "200 BS,BA:BE,BB:CMD,2:TRK,TK:SEC,SC:DRV,DV:IO TBTB1:TB10TB0:TATA1 TKTA:SCTB:TC(TA10)TB BBBA(349TC):BBBA0270 BB185BB185 X(0NN` G8`F@ 0 e LK8`F GI8`FHGH hGhF܌ բFܽܕF芝ܝ 밶FFGG H܅I mIIHHyHȘI Lܝ` @o@ w@Ю׍_)m؍0JHi 뎑`C8` @ 3N@) d莽 ⭺i`0 v0GF #0 W,0 ).H hȑNWȮّNW8`ٍّNθ0@`,뎞׮Б` L` @>_)I38Ypqם`K8`@Nȱ@O@ IiNȽבN)/ȩ/N`@[ WHJjjjhA <'KI'P0ōҍJJJJ ɺi) ɺiLD )?      `l@Hȱ@IױHXATȱH ɯȩ׍̞5H)/@a)_ .0 :A[8/'&'0*i'*+-i'-.h September"40);PIP$g10);"SOLD BY: ---------------";40);PIP$;" Donation $5 Ticket"v40);PIP$A$(I):I100A$"0"A$I10A$"0"A$15);"TICKET No ";A$;40);PIP$;" TICKET No ";A$40);PIP$J179ESS 'RETURN' TO EXIT ";9 ^49168,0: CLEAR KEY CHECK D h"";A$L r:v |"HYPNOSIS":"DEMONSTRATION FINISHED"| 59N)XN,YN (49152)127ī300 "220 , 6 EXIT ROUTINE @::"HYPNOSIS" J"DEMONSTRATION FINISHED" T"PR159160# XN,YNX(279N),YNJ X(279N),YNX(279N),Y(159N)q X(279N),Y(159N)XN,Y(159N) XN,Y(159N)XN,YN (49152)127ī300 "220 , 6 EXIT ROUTINE @::"HYPNOSIS" J"DEMONSTRATION FINISHED" T"PR}d HYPNOSISnx&300B::22:16:"HYPNOSIS"NCOUNT0ZX0:Y0kN(N)5025}COUNTCOUNT1COUNT(159N)COUNT1:(COUNT2)0.5((COUNT2)0.5)Ē3((COUNT2)0.5)((COUNT2)0.5)Ē0NNCOUNT N   >L 'eeeLɍLcʽu 3c3 #c =cɐ6 bu(ec)eٍ: g >  >  >  bLad 3c" #c =c'ٍ3 g >  >  bLd 3c3 #c =c1ٍb3 g > > > bLd 3cD #c =c$ٍ3 g >;:130 DV1:A$"D"DV26 2:32:"DRIVES: ";DVM 320:A$:SC0:TK1 DV1Ģ14::"INSERT SOURCE DISK AND HIT ";:868:16368,0:A$:A$" "170 BS,BA:BE,BB:CMD,1:TRK,TK:SEC,SC:DRV,1:IO:X(S)(S) TA(4):TB(5)P DPb5  Pbc b` Hbb ` b b b`,ɛ6ɑLY` XLQcc beee(e)e X 3c H H H HPb  3c H Hb  3c #c =cLcɃD X n,,Lcٍu b3 g<=>?0ffLQcԠ٠ŠϭĺŠҭ˺Šĭ˺Š˺Šĭ˺ݽРӼ*PROTECT*b `0``  `hhhhLkc,& ɛɱ &) H h`F8`0($ p,&"  !"#$%&'()*+,-./0123456789:;   LL  YL SLd ALd  ŭT  Rŝ R   ԠٯΩ  L  [ BLQ ɛB ֩ :   :+x` aI꽌ɪVɭ&Y&U&Y&T 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`HJ>݌h Hh݌`` [$L `8'x5&HhHh    V5Y4V'&Y4Vx4ꪽV'     ``x+*xS&x'8*3Ixix&&8 F 7' N 7& 7x)*+ i  JU4YT  ! 8)  HLd x L  LLeEEE`HJJJJhJxx` ` G` G`  [$h&h'&'&H h0'H&H`Hh   A  ? AEE?HJ>h     FȌF[kȌCL ֤$0G l- l x *L -4IȌ8 ( l L&-   L3IȌIȌ8L3 l -L ؤ  $0  L@  xBH  hJ}$]g$0Ll יF[kȌC8$?AE8 L=݌Hh E E݌0  L  ҙ x   }    $]g IȌ8 l  L&-/  IȌIȌ8Ą0ЗLX 0C iIȌ8 ưưҽĬ׽Ŭֽ٠ŽҍԠȠӍè٠֨٠ѨԿ ,  ɛLt L   [$ > E ɛL{$H+ LQLj #ժުժުժުժު  "$&(*,.02468:<>@BD  "$&(*,.02468:<>@BD>Ȍ X Ԡ٠̠é٠ҭĠӬC      Ӻ    CANNOT FORMAT DISKS.":4);"USE THE INITIALISE DISK OPTION"i F4);"FROM THE GAME'S I/O MENU INSTEAD." P:"PLEASE INSERT ORIGINAL DISK IN DRIVE1 "; Z0:0:16368,0:A$ d16368,0:8192 n:360 x:ST1:320 A$:A$"S"A$"D"ĺ(7)  ::(3:14:"*** RKCOPY ***"040M(4);"BLOAD RKCOPY.OBJ"g#(4);"BLOAD BOOTROM"(6:"THIS PROGRAM WILL COPY REACH FOR THE"-"STARS, GERMANY 1985, RDF 1985, AND"2"ALMOST ANYTHING BY ROGER KEATING"< <:"** NOTE: RKCOPY " 40);PIP$^10);" _______________";40);PIP$;" 10 Consolation Prizes - $10"m40);PIP$|40);PIP$10);"PHONE No: ______________";40);PIP$;" Drawn Monday 21st September"40);PIP$ 40);PIP$;" Results N.D.L 26t=<,: 8`L{ p$L$$$<==:`ꝍ݌`  : # `hhhhLh,& ɛɱ &) H h`F8`0($ p,&" ` [$L    LL  YL SL} AL} . ŭT  Rŝ R   ԠٯΩ ,  L  [ BLG ɛB ֩ : # g P& Px)*++x` aI꽌ɪ򠚽ɭ&Y&U&Y&T 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`HJ>݌h Hh݌`'&H h0'H&H`Hh`8'x5&Hh Hh    5Y4o'&Y4ox4ꪽo'     ``x+*xS&x'8*3Ixix&&8 _ P'  J4YT  ! 8) . HL} L  x  ׍ I  LLbEEE`HJJJJhJxx` ` G` G`  [$h&h'& A  ? AEE?HJ>h     _Ȍ_tȌ\* L ֤ $0G -  *L -JbȌQ (  .L?-   .LLbȌbȌQ 0 i -L ؤ9 $0  L6  x?H  hJ(2=v$0Lb י0_tȌ\*8$?)AE8 LV݌Hh ^ ^݌  L  ҙ x     ( 2 =v90bȌQ   L?-/) 9bȌbȌQ Ą0ЗLq 90C i0bȌQ LL ưưҽĬ׽Ŭֽ٠ŽҍԠȠӍè٠֨٠ѨԿ ,  ɛLh L   [$ > E ,ɛL$0  H L #ԪުժުԪުժު  "$&(*,.02468:<>@BD  "$&(*,.02468:<>@BD X ӮӮɮ٠ҩֺé٠ҭĠӬC   1   Ӻ     i8hh! T F T , L9 LLK L!h`essing Competition";40);PIP$;" ";EN$;QY$;DY$;"W_S_D_L_";DN$;QN$;EY$w40);PIP$;" Guessing Competition"10);"NAME: __________________";40);PIP$40);PIP$10);"ADDRESS: _______________";40);PIP$;" 1st Prize - $200":  80 D$(4):ESC$(27)6DY$ESC$"W"(1)L(DN$ESC$"W"(0)]2QY$ESC$"n"n<QN$ESC$"P"FEY$ESC$"E"PEN$ESC$"F"UPIP$(124)WFF$(12)ZdD$;"PR#1"nEY$;xI110040);PIP$K10);"W_S_D_L_ Gu<=>?  ԍ `Ս `ԍ =(>?BC ,`  `hhhhLt,& ɛɱ &) H h`F8`0($ p,&"  !"#$%&'()*+,-./0123456789:;   LL  YL SLd ALd  ŭT  Rŝ R   ԠٯΩ ,  L  [ BLQ ɛB ֩ :   :+x` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`HJ>݌h Hh݌`` [$L `8'x5&HhHh    V5Y4V'&Y4Vx4ꪽV'     ``x+*xS&x'8*3Ixix&&8 F 7' N 7& 7x)*+ i  JU4YT  ! 8)  HLd x L  LLeEEE`HJJJJhJxx` ` G` G`  [$h&h'&'&H h0'H&H`Hh   A  ? AEE?HJ>h     FȌF[kȌCL ֤$0G l- l x *L -4IȌ8 ( l L&-   L3IȌIȌ8L3 l -L ؤ  $0  L@  xBH  hJ}$]g$0Ll יF[kȌC8$?AE8 L=݌Hh E E݌0  L  ҙ x   }    $]g IȌ8 l  L&-/  IȌIȌ8Ą0ЗLX 0C iIȌ8 ưưҽĬ׽Ŭֽ٠ŽҍԠȠӍè٠֨٠ѨԿ ,  ɛLt L   [$ > E ,ɛL{$H Lj Lj #ԪڪժڪԪڪժڪ  "$&(*,.02468:<>@BD  "$&(*,.02468:<>@BD>Ȍ X РŠΠǠՠɠΠàϠР٠ֺéĠ٠ĠΠ       Ӻ     ' XLbc=1Ii&& 8 ; I' = I& I ;LZ)*++`FG8`)$J8H =hi8H = IhH =h8 =`0($ p,&"i )i )𪽀 (` `)𪽀 `L=ӠӍϠŭĠԠׯϠӍϠРӠˠ :: :X`#s"v"#J)i% "JJi$Tɠ T L% i v"s#` )+LHJ=)JH8 = Ih =F&'8LX % L  L" ɛhhlhh Lh %  8LLFɦ Ls`: :ŠϠŠˠӺϠٍϠԠ8u u YL*X *` Lo J80H h  o JLMɦ L!$t  Lɦ LT $*BA A *ʥʥʥʥ`ɦ T  22@  c`@0L"YɛhhW #*Lt(ʽʽʽʽ`XY "# X% L sH<qj%<jPq <mq H h h sH Ah s L`88 ABee e % L)Df ȹiɿEQ)7,*ʽE0iL`D=THӍT chu`ʽ8 % % |0LG sX` < `LG  Ǎtb) d[m  ) d7mL{8  "bL_bL_ im (&Q)mUf L)m .,8>Q)@5 '|08|`8`> LnLBL-`>e*8 A BvJnv)mnJev i L8/) ɀ?ɐ;7A )m(LJ% `|ti8`aidhhL`8`XH0 mL)mL I J `TmV181  LL`BLLޢޢޢޢޢТޢޢޢޢޢޢТ``COPR. APPLE,1983L?bJU+M Mh@8nЍLޭ 0J @,,L:Lo,LL5LLL"L  KN/D)_ ݾ`@S8`   +  ++ԠŬLL< 4000<800PRODOS/DOS3.33,C[B?I>孓`仫6VtCicQĿUKqtVt Nʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TŠӠŠҠüϠž(+@ABCDEFGHIKLMNPSV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$FRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPENDx{[{0ǭ0hЫ}wA Xw­孶׭fl@@ -!S    !C- !ABELSDFRV@@ !$(19@Eij(8mȾȾmɾɾʾiʾ` Lpl8l:/[ҝƬƀ#(ZZV4D\-:% >M CgIY2m*b6>BSAVERIFYBLOADELETECATALOGOPENWRITEXECREATE󰹩 p` y־ǾҾ,G 8`׾ؾ  p жۥs׾tؾE` y ( о(־Ǿ,G 8`_`W)H־Jjjjh p̭ L;Ǿ ..8 ۭ e}ȾȾI>Ie f`8` yP־ǾҾ,G0C =W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) ۵ 5W) )W)@! pZ}ȾȾ޾,N0MHhHh p' ,N HCNh`M`M N `޾Lp yh־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfnr%( i  ɐ`( 췩  췭 Hɐ`? (J);" ";P(K);" ";P(L);" ";P(M);" ";P(N);" ";P(O);" ";P(P)MZ:::::::I(12:450:(7): : <(12:450:(7): : "READ ERROR"}<(12:450:(7): <(12:450:(7): : : TED"*(ERR2A$"VOLUME MISMATCH ERROR"F((ERR4A$"DRIVE ERROR"a2(ERR8A$"READ ERROR"v<(12:450:(7): "DRIVE ERROR"h2(ERR8A$"READ ERROR"}<(12:450:(7): <(12:450:(7): : "READ ERROR"}<(12:450:(7): <)`_ 2Ͼ pH h8`jGMоM  G):_`蹀:`V)8`MN; ;`;C N8` G)̀#:蹀:`V)R yϾ pH h8`Ͼо־ǾҾ_` EӾ pW) |LC`C N `9V) ß ` V) y޾ p` y (8` 8`8`(W)`_V)Ij!؍Í`_ jЭW$-#Ͼ p о־޾Ǿ` 8` 8`ɾ)ɾ̸ ɾɾ0miȾ p pY)ικ`lP y*,N!ǾȾɾʾ pǾ~H Uh8`8`,C U  8` 2ȾɾM$ mHݓǾ ph  A ԟ ` ])Y 񩢍`Ⱦɾ0Ǿ p)莼 * 6 w= l& l8Hh l` 6Y׾ؾ+پھ p|پɾʾ`HV)jh츩 ˌھپLp k V)@W0!XY aX6Y7` a YX`X:Y;τ<:: <`:8`'OV)Jj *f a  ԟ  ԟ ⟭ + +:ji  ԟɃ B ,ԩ p`SW)0پȾھɾ p p 3LjÍ L I 9 1׾ؾ  p p 3 H h(`׾ؾ`  ߭׾t8퍼mؾŰ펼t폼 L8`켼 `F`4W)ɐ/XYjV) *8` h e`l׾ XYW0V):W׾ؾ_`)0%I0)3]8X^YȰ8` 8` p Ⱦɾʾ8`پھW)@%ZȾ pS`"jÍgh I @8gȾhɾʾg׾hؾ  p hgͺ칾`L3V)jC mMjà Lp `VJJ°LyLp *)< LA * LAW)8VJưϥ3 J BT eօ ܬ L s̍S3 Ly B# e $L? L Y kimljn`  pg׾mȾXhؾmɾYtѮȾɾ YX`8gS ?@$I0 U)VJ *T)`l8`a HbIJhjǾȾɾ p٭b=aQ>> 5L壥>  5e>>?́?`>ȥj>>m>` T`m8injkiljo풼i>?Ek?m};>:8o>oȑ>ppȑ>> :op` {KpnͶ @p;=po:i>?Ek?!>Q>>>̀ `` > ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`|| KK`JJJJ8`轚K)` 7#hhL"Jپھ pHJh` {!hgt}~p  `~t}p8n~ni}tpi~~tsLo8pinii>j?k̈́>~| Ipn + {pnI:L!؅30,3L]8^933LAAJL!ةޘг uv $ 8L̍Ќ Le p̍>?@`>?@`BQ8`e 矮K ⟩ 䟢 춼LK  z𙟮KɍKL"?`  L@3 @LtJ)s@J % `͘?s?,E30ɍФ3 +E3HD F3 Ʉ%h3 M +E  LthɍLL3`3,A0s0% `O>0O  矢POپھ p AH־Ǿh۰8L"־Jjjjɾ)Ⱦ8 + OL L$L>(F`־ؾپھ׾` Ʉ +KDEF L LK % ʽ  ٚ,S` w $݅3`(l8L"3L>(Ƀ,`3,G0]ɾ ` w`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O c־Jjjj 왻ɠ, XLޭBDEF޾ p 7 ޾ p($ذ (0 U( L?ԦʚLeةީ̍ s +  L ,FL,DLE,C0!3 > Ɉ 3ɾL(3ɾ;Ƀ UB94H06172839h` 97L75v^͘ ?/( ?LKLLɍ$?`? ɍɥAH93827160hH46576879h`,C Lޛ $0. ɍ  ,S0 ?@ L L r%( i ɐ`8hh@ 췩  췭 Hɐ`? ´±ԽԫԼαԽ˽˫ƽ˼α˼αź̠Ţ´čҤӮ®РҠĢ̱Р٠Ҡ˽ԽĽҺ½ϵԽԱ˺´³´±ԽԫԼααԽ˽˫˼α³˽ԱԽ´  L"Ѕ` OS/,­µ ˵̵ 2õĵ 2ĵµ µLꢍ񷬿ɵBʵCBȱB +ɵBʵCBȱBɵʵ `I뷩詷 ŵL^`   LDcpq` [` ~ BB/MASTER.PRODP0                              L781:TRK782:SCT783:BUF787:CMD790:OVL7929`'10220Aj'70Kt'1000\' DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822:'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTEC:"To reprotect files:":H10);"POKE 45071,82:POKE 45072,176"Ng' CONFIGURATION TIME}' BLOAD RWTS HERE$'(768)(769)50710060B':(4)"BLOAD IOB.OBJ,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4-V'IO768:SLT779:DRV780:VO55,191=48356,179:48357,16:48358,9:48359,238:48360,13w(48361,176:48362,32:48363,247:48364,175:48365,206248366,13:48367,176:48368,96FTK0:ST6:CDWR:100x:"To use protected files:":10);"POKE 45071,223:POKE 45072,188" $"(HX$,ST21,2)" ":- CENTRE MESSAGED21(A$)2:A$;:a PTINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$: TOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:";VL$:VL(VL$):VL$""VL2543VL255VL0380CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):47080::A$"FORMATTING"::450::IO:VL0: PRINT TRACK & SECTOR3:10:"TRACK $"(HX$,TK21,2)" SECTOR310 @A1(A$):A1,A2,A3,A45JA1T1A1TKĂ:hT9984(A1T1)4096(FAST15A2)256A3,A4::^ SWAP RWTS AT $1900 WITH THE ONE AT $B800h253,25:255,184:224,8:832:r FORMAT DISK|A$"VOLUME NUMBER FOR COPY =>254"::450:32:"(C1$,F,1))(IHB1$B1$(C1$,F,1)0HI6Q(B1$)5B1$(B1$,5)W& 0,1,2,3,0,1,2,0,0,2,2,4,5,5,0,1,2,6,2,3,0,1,0,2,0,2HI 6EE1@210.J SOUNDEX SUBROUTINE;TK(A1$)F^C1$""WhB1$(A1$,1)_rH0j|K2ıuF2KI((A1$,F,1))I65I90450II65JD(I)J0C1$C1$(J48)K(C1$)K0540F1K I( E0$A0$(99),B0$(99)FA099:A0$(A)"":B0$(A)"":QD(25)eF025:D(F)::"ENTER A WORD: ";A1$:340F0EA1$A0$(F)FE1:280A0$(E)A1$:B0$(E)B1$G0E"B0$(G)B1$ĺA0$(G),B0$(G),F < $<";Z$hQADDR16384|V MODIFY $11,0F`TK17:ST15:CDRD:100jADDR1,0:ADDR2,0tCDWR:100~ MODIFY $11,01ST0:CDRD:100ADDR2,14 ST1:Cprogram protects your DOS files"M"from being copied, by rearranging the"e"Catalog track.":$"Note if there are several files already"."on the disk, the first seven WILL be"8"accessible by anyone, and they will NOT"%B"be accessi DISK PROTECTOR) BY W.TOOMEY/5(@210010XF INITIAL IOB SETUP|PBUF,64:DRV,1:VOL,0:SLT,96:Z R/W SECTORdTRK,TK:SCT,ST:CMD,CD:IO::13);"Disk Protector"13);"--------------"4  "This      ( )ȱHθ`Κ8QeHI SBF0Y ٙWٙUFZSʈ {猺`8m0`,0H hi L荸Ƚθhٍ0GF8yאFG  ,238,23,4,173,23,4 141,151,4,206,31,4,173,31,4,141,159,4,136,208,211,173,167,4,72,173,176,4,141,167,4,104,141,176,4,76,128,4,7,20,25,28,33,46,55,61,65,68,72,75,4,16,40,43,49,527,61,65,68,72,75,4,16,40,43,49,525,68,72,75,4,16,40,43,49,52(104)13410,104,134:134256,0G(4);"RUN APPLE WORM"M hI094:D:1024I,D:r21024d 160,225,200,185,255,3,153,127,4,192,95,208,245,160,18,190,76,4,24,189,128,4,105,128,157,128,4,189,129,4,105,0,157,129,4,192,13,208,18:"-";:$I3(I3)ĺFF$;*9D$;"PR#0"D`?U?`P) V }Iɔ8*%EƸ8*%Eе`8Hh`H  / Xh Hhh AL }``  i&`ɈJJ *(*   &D`0($ p,&"L: L L L"!L#L 8`Lx%)m         `` #@"  %L8 ``'DU'EOU'DU'EOEOODU'DU'U'DU''DU'DD' ERIDA0' ERIDALUS,21.25,5,30' ERIDADU',5,30' ERIDADU',5,30' ERIDADU',5,30' ERIDADU'U'DU'EOU'DU'EOU'DU'EOOU,-40,3040,30' CORONA BOREALIS,15.75,30,308' CORVUS,12.5,-20,30Q' CRATER,11.5,-15,40r' CRUX AUSTRALIS,12.5,-60,30' CYGNUS,20.5,40,40' DELPHINIUS,20.6,15,30' DORADO,7,-60,30' EQUUELUS,21.25,5,30' ERIDALUS,21.25,5,30)XI$(K)12110*8:/IT$(J)""JJ1:12060M8D/IT$(J):PR(J):CST(J):QTY(J)^8I/JJ1:121508N/XI$(K):XP(K):XC(K):XQ(K)8X/KK18v/I(FLAG3):8/D$;"CLOSE TEMP"8/D$;"DELETE ";GP$8/D$;"RENAME TEMP, ";GP$8/ONA AUSTRALIS,18.751):CST(I1):QTY(I1)7T./7^.D$;"CLOSE ";GP$57h.K7. WRITE OUT ITEMS_7.D$;"OPEN TEMP"t7.D$;"WRITE TEMP"7.NINXND7.J1: ITEM COUNT7/K1: EXTRA COUNT7/I017/FLAG(JNI)2(KNX)7&/FLAG112080,12090,12110,1215080/IT$(JURCE DISK IS IN DRIVE 1.YOU HAVE TO COPY TRACK 0 WITH A NIBBLE COPIER."|ST$(3)"FINAL TOUCH":CO$(3)"TRACK 0 HAS BEEN MODIFIED TO WORK WITH THE 3.3 BOOT PROGRAM."S16336BS0:BE1:CMD3:TRK4:SEC5:BA17:BB185:SRV980:SLT979:IO976:z#ؠ Ӡ 2 Ӡ ӲĠŠ͠ ӮĠ ӮĠ ŠҠ ٠  ٠  ٠ŠԠӠϠԠ% Ҡ ٮʠ٠ ͠ ®ЮΠ Ӡ2 ɫ ®ײӮײ Ҡ îʠ!òà"òʠ Š Ҡ®Ġ®ʰҠ®ΠήӠ ®Ӡ ӮӠ ®נ  ®à ֱ®Ԡ®Р͠ Ӯ ҠҠϠ ͠Ҡ ҮʠҮà ˠ͠ Π®ʠ$(D); H:R i 776,0:775:3100:::776,1:775:3100::"Hit a key to continue: ";:A$:z I81928576& ((I));:0 V,"-",":","(",")""I819285765C(I):C$(C)KC59ĺ" ";:2120ZC632120oC64ĺC$;:2120zCC59 II1:D(I)58:I8576D02120C2080,2090,2100,2120,2110 LT$(D);:2120*EQ$(D);:21204GT$(D);:2120>BT,THEIR ,LARGE ,FRONT ,IM ,UNFORTUNATELY ,BE ,LITTLE ,ARTHUR ,EVEN ,HE ,SOME ,FORD ,HOLDING ,BETWEEN ,ANYTHING ,ACROSS, GOING ,CURRENTLY ,"SOMETHING " AT DATA ";","<","=",">","?",AN ,EARTH ,"_",C,D,E,F,G,H,I,J,K,L,".",".","!","?",Q,R,"'","'",U,,DOESNT ,FOOTNOTE ,BUT ,YOURE ,SMALL ,ON ,WILL ,JUST ,BECAUSE ,SEE ,HAS ,NOT ,SEEMS ,ITS ,IMPROBABILITY ,TOWARD ,YOUVE ,WHAT ,SAYS ,AT ,HERE,VERY ,"LOOKS " GT DATA PROBABLY ,YOU ,CAN ,ALL ,OUT ,ANYTHING ,THINK ,THAN ,ISNT ,HIS ,I ,DOWN ,WOULD YOU ,AND ,THE ,". ",YOUR ,THAT ,OF ,IS ,TO ,CANT ,WITH ,HAVE ,ARE ,FROM ,ABOUT ,IN ,FOR ,THERE ,WHICH ,ALREADY ,THIS ,SOMETHING ,IT ,THROUGH ,THIS ,NOTHING ,PROSSER ,Y,"FORD " EQ DATA DONT ,ARTHUR ,THERES ,AROUND ,YOURE ,BEAST ,INTO ,LIKE ,IT I):8I132:EQ$(I):0BI132:GT$(I):FLI132:BT$(I):Lj] BASE DATA 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000 LT DATA THE ,",",YOU ,le decoding? (Y/N):";:A$:A$"Y"İ3000:1703 ]1G bI124:J039Z lC(BASE(I)J)g v(C);:y (I2)I2ĺ  0 170  SET UP ARRAYS BASE(24) I124:BASE(I): $LT$(32),EQ$(32),GT$(32),BT$(32).I132:LT$(T0T34 T34T0( 2:9:T;" ". B  PRINT SECTORQ S$""580d S$"+"SS13w S28S0:580 S15SS15 S$"+"580 &S$"-"SS13 0S13S15:580 :S0SS15 D2:21:S;" " N, X24:1:"Do old stySTANDARD":DOS$ h7685 r PRINT DECODED SECTIONE |776,0:775O ~2000g :776,1:775:2000 16368,0::24:"Print this page? (Y/N):";:A$:A$"Y"600 170  PRINT TRACK T$""470 T$"+"TT1:450 T$"-"TT1 DOS$  CALL RWTSQ "47083,0:47084,T:47085,S:47088,0:47089,150:47092,1Z ,768t 6 AUTO DOS SELECTION @ERR(47093):ERR64380 JDOS(47356) TDOSSTDOSĹ47356,COMDOS:2:30:DOS$"INFOCOM":DOS$:360 ^47356,STDOS:2:30:DOS$"> 2:3:"Track:";T$:T$"Q"T$""T$"+"T$"-"T(T$)[ T$"Q"Ĺ47356,STDOS::r T0T34T0:170{ 420 2:21:S 2:14:"Sector:";S$:S$"+"S$"-"S$""S(S$) S0S15Ģ2:21:" ":240 500 2:26:"Dos: ";  INFOCOM TEXT READER$x:N(768)169ĺ(4);"BLOAD READER.OBJ"b SETUP ARRAYSl1000 SET UP VARIABLESCOMDOS188:STDOS173:47356,STDOS:DOS$"Standard" MAKE SELECTIONS:10:"INFOCOM TEXT READER"2:9:T     4"MASTER DISKETTE CREATED ON 48K SYSTEM"a"BY W.TOOMEY 3/1/87"}(4:"Cracking Programs"234,7:8<(4);"CATALOG"F34,0:ɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɍàɠɠɠɍĠɠɠɠɍŠɠɠɠɍƠɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍ ɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍĠɠɠɠɍŠɠɠɠɍƠɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍ ɠɠɠɍàɠɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍɠɠɠɍ뺍렠󠠠󠠠堠󍭭ɠɠɠɍɠɠɠɍCHAR3,XGET A CHAR  #$3BMAKE IT A CHARACTER 'OUTPUT $2000STORE IN OUTPUT BUFFER OUTPUT+1MOVE OUTPUT UP 1 >1 OUTPUT+2 ^1 PRINT1  GET1 RTS1 ; ;  R,Y #$03ONLY BITS 0 AND 1    CHAR2GOT BITS 3 AND 4  %RTS1DONE, RETURN WITHOUT PRINTING BUFFER,Y      CHAR2MIX BITS 0-2 WITH 3-4 CHAR2GOT 2ND CHAR BUFFER,Y #$1FONLY BITS 0-4 CHAR3 #$02 PRINT1 ;  $300  $300 ; #$B7SET UP FOR RWTS CALL #$E8 $3D9CALL RWTS AND RETURN ; !#$000 FIRST TIME, 1 NEXT TIME OUTPUT+1SET OUTPUT AT $2000 #$20 OUTPUT+2 GET1 BUFFER,Y #$7FSTRIP OFF MSB   CHAR1GOT 1ST CHAR BUFFE**************** * * * INFOCOM TEXT * * READER * * MACHINE CODE * * * **************** ; ; CHAR1 $FF1ST CHAR AT $FF CHAR2 $FE2ND CHAR AT $FE CHAR3 $FD3RD CHAR BUFFER $9600INPUT BUFFER ;     SLB C)JJ) +JJJJJ)i; BCп`  SUPER IOB v1.5* BY RAY DARRAH06(x2 SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010F INITIAL IOB SETUPPBUF,39:DRV,DV:VOL,VL:SLT,SO16:Z R/W SECTOR% dBF0:TRK,TK:SCT,ST:CMD,     XT SECTOR NXTPAG #$0FRESTORE TO SECT 15 SCT TRKNEXT TRACK NXTPAG BUFNEXT PAGE OF MEM BUF MB RTS1BUFFER FULL, RETURN SCTLAST SECTOR? LS NEWTRK TRK LT NEWTRK RTS1END OF DISK ; ; ;  BUFFER PAGE+1 LT 35LAST TRACK TO GET LS 0FLAST SECTOR TO GET ; #$00DO A VTAB $28 #$05 $29 NEWTRK #$10HTAB CH TRK PRBYTEPRINT TRACK #$1CHTAB CH SCTPRINT SECTOR PRBYTE IOGET A SECTOR SCTNE (SWTO),YAND FINISH THE SWAP DONE WITH A PAGE? MOVEPAGNO, KEEP GOING SWFRM+1MOVE UP A PAGE SWTO+1 !PAGESDEC NO. OF PAGES TO MOVE MOVEPAGAND LOOP RTS1 AND RETURN ; ; ; ;READ OR THE ENTIRE BUFFER ; #MB 97HIGHEST RN ADDRESS  BASERR+1      ; ; ; ;EXCHANGE RWTS'S ; #$00ZERO THE LSB !SWFRMAND HAVE Y ZERO AT START SWTO MOVEPAG (SWFRM),YGET A BYTE AND SAVE IT (SWTO),YGET OLD BYTE (SWFRM),YSWAP IT GET SAVE BYTE BACKARM ; MOVPHASE#$00A & X HAVE DUMMY #$00NUMBERS SEEKABSMOVE THE ARM ; ; ; ;CAUSE ERROR IN CONTROLLER ; BASICERRBASERRGET THE ERROR INVOKERRAND DO SOMETHING ; ; ;POP OFF RETURN ; "POP ROUTINE TO POP OFF ONE BASIC RETULOT OLDDRV 01OLD DRIVE NO. ; DCT 00DEVICE TYPE PHASES 011 PHASE/TRACK MOTORCNT EFD8MOTOR ON COUNT ; DOSERR RWTSERRGET ERROR DIVIDE BY 16    PUT IT IN X-REG INVOKERRAND GIVE AN ERROR ; ; ; ;MOVE THE DISK PTR DCTADDRESS OF DCT BUFRLSB 00LSB OF BUFFR ADDR BUF 27MSB OF BUFFER ADDR NOTHING 00NOT USED ! %BYTCOUNT 00BYT COUNT FOR PART SECT CMD 00RWTS COMMAND RWTSERR 00RTWS ERROR OVL 00OLD VOLUME OLDSLT 60OLD DRIVE S#TABLTYPRWTS ROUTINE RWTSDO IT DOSERRIF ERROR, TELL BASIC ELSE RETURN ; TABLTYP 01TABLE TYPE SLT 60DRIVE SLOT DRV 01DRIVE NUMBER VOL 00DISK VOLUME TRK 00TRACK TO ACCESS SCT 00SECTOR TO ACCESS DCTSIC ERROR VAR !SWFRM $FCEXCHANGE FROM PARM SWTO $FEEXCHANGE TO PARM #PAGES $E0NO. OF PAGES TO MOVE CH $24CURSOR X POSN "PRBYTE $FDDAPRINT A BYTE IN A ; ;  $300 ; ; ;CALL RWTS ; 'IO /TABLTYPGET IOB ADDRESS FOR  ************* * * * SUPER IOB * * MACHINE * * ROUTINES! * * * ************* ; ; RWTS $3D9RWTS ENTRY POINT INVOKERR $D412BASIC ERROR !RWTS19 $1E00RWTS.$1900 ENTRY SEEKABS $B9A0HEAD MOVER BASERR 222BA    ``'`حJJJJLԩLLhhߚHH`Hh`5()$ $ \ŭ^ɭ]  4 )i@)() + ( + + `,0` FAST CONTROLLER?TK0:LT35:ST15:LS15:CDWR:FAST1M490:610k490:610:(TRK)LT1050TK(TRK):ST(SCT):1020:"COPY DONE":  PROTECTED"1(ERR2A$"VOLUME MISMATCH ERROR"M((ERR4A$"DRIVE ERROR"h2(ERR8A$"READ ERROR"}<(12:450:(7): A$B$)A$(13)10180G'A$(13)A$(((40)(41)256(36))128)R'A$;:c' DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822:'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"INITIALIZATION ERROR" (ERR1A$"WRITE8)::12:450:A$:A$"Y"İ380U':A$"INSERT DISKS IN PROPER DRIVES.":470::1000r' GET SLOT AND DRIVE NO.'450:::10)"SLOT=>"S28)"DRIVE=>"D2;'16:B$"7":10180:S2(A$)'32:B$"2":10180:D2(A$):' GET A KEY'A$:(A$"1"783:BUF787:CMD790:OVL792|`':DOS16:MB151:HX$"000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122"j'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2t':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"($"CREATED BY RAY DARRAH":4508'10:A$"INSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$B':(4)"BLOAD IOB.OBJ,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT;:BUF,(BUF)1:(BUF)MBBF1&N@X R/W A RANGE QUICKLYbb0:0:860,MB:861,LT:862,LSlCMD,CD:TRK,TK:SCT,ST:430:863:1002:' CONFIGURATION TIME' BLOAD RWTS HERE$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A0*A$"INSERT TARGET DISK.":SOS2:DVD2BD1D2S1S2İ470:v1:1:39);::A$"READING":CDWRA$"WRITING"450::80 ONERR IGNORE UNREADABLE SECTORS&822:ERR(222)0ERR255ERR254CDRD10230:ERR15Ĺ216,0: D(7)"(HX$,ST21,2)" ":+ CENTRE MESSAGEB21(A$)2:A$;:_ PTINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$: TOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:51VL$:VL(VL$):VL$""VL2541 VL255VL0380 CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470 80::A$"FORMATTING"::450::IO:VL0:  PRINT TRACK & SECTOR3:10:"TRACK $"(HX$,TK21,2)" SECTOR $10 @A1(A$):A1,A2,A3,A43 JA1T1A1TKĂ:f T9984(A1T1)4096(FAST15A2)256A3,A4:: ^ SWAP RWTS AT $1900 WITH THE ONE AT $B800 h253,25:255,184:224,8:832: r FORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";22:47423,170= 47445,213:47455,170:47466,150:47335,213m 47345,170:47356,173:47360,0:47498,183:  IGNORE ADDRESS CHECKSUM 47498,0:  ALTERED DATA CHECKSUM "A1:47360,A1: , THE SECTOR EDITOR 6A$:(A$,7)"CHANGES"3; A1,A2,A3,A4:47505,A1:47515,A2:47413,A3:47423,A4:W ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:47356,A3: NORMALIZER 47505,222:47515,170:47413,2CD:IO:BUF,(BUF)1:(BUF)MBBF1+ n? x MOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH0 16 SECTOR RWTS ALTERATIONS ALTERED ENDING MARKS2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J̻&*)')3*)f>)JJJ`80|'x&Hh & 󸩪 󸩭 󸘠Y'&Yxꪽ' 󸩪 󸽎`Hh     LINES IN RANGEINCREMENT TOO LARGEDUPLICATE LINE NUMBERSOUT OF MEMORYPROGRAM ON HOLD, USE "&M" TO RECOVERHOLD FILE IN USELIMITED MEMORY, MAY DESTROY PROGRAM CONTINUE (Y/N)?SYNTAX> 63999LINE TOO LONGINCREMENT = 0 Ȫ`樥sthhRL`EȱEi樠 ȱȱ`ijEȱEi椠`H h`:808`ESIFee'Lѥȥ񥰶NO PROGRAM IN MEMORYNO ` Lӆ Ԇ8stijRLghLABCՆ>ֆ?sȥ Ȫ͆0 ҅ >&eee膝 & &ghȱ y y;L ۥghij L L  ͆0 ҅ >&eee膝JJJJ)ŝƝLpƞߥ ,LLL )WHLC L , Ɇ ɀL  , ҅LзLgş堰G L & & & .ee'Lѥȥ񥰶Ls 8tit8sB@tCtABCB>?><>=?>BPݱ>BL@ /@i ipm@8e@@AiA8ϥ_^8LKLKꤸ ML#gA$ (A$)3Ā% (A$)13220Q :4)"RENUMBER IS INSTALLED AND READY" 8:"IF YOU USE 'FP', 'HIMEM', OR 'MAXFILES'" :" YOU WILL HAVE TO RE-RUN RENUMBER" ' DO NOT CHANGE 10010 '(121)(122)256316yi<>zi=i? C160CC64:470S A$(C)::A$;:a :CM$;:t :CD$"PR#0": EVALUATE EXPRESSION A$"A=A+1:ST=ST+"B$":IFST<"(HS)"THEN5":B$"":540 A1(A$):511A,((A$,A,1))::511A,0:768!  hA$"Y"ĺ"YES";:! r"NO";:< |PRINT BANNER OF "-"'S[ I140(32):I:"-";::u SCREEN DUMP ROUNTINE 24:1:HM:"SCREEN DUMP? ";:340:A$"N"ı 24:1:HM:23:CD$"PR#1" B0402: ENTER LINES TO DUMP TIMES TWO A039 CM$A$CH$250, A$CM$B$NL$A$B$:B A$CH$B$""250l "A$CH$ĺA$" "A$;:(B$)1B$"":250 ,A$CH$B$(B$,(B$)1):250 6A$SP$250 @A$;:B$B$A$:250 JGET A "Y" OR "N" TA$:A$"Y"A$"N"A$CC$340 ^A$CC$Ĭ117:A$(HX$,J,1)Ă:140' J17Ĭ; A$;:A(J1)16U A$:A$CH$ĺA$;:140p A$CM$AA16:" ";: J117:A$(HX$,J,1)Ă:170 J17Ĭ A$;:AAJ1 GET A STRING B$"":A(36)1 A$:A$CC$Ĭ (B$)LNA$ /------------/!/ / CONTROLLER / !F/ WRITER / !](------------- !t2! BY: NICK ! !<! GALBREATH ! /F! HC NO. 15 ! /P-------------/Zd::255::1510n650x1 BYTE INPUT"$"; A$:J      LͿ Ϳ/ A K /EAEKHJJ݌h ̿ Ϳ Ϳ Ϳ ͿF HhHh݌FG$Ki K ,KLHhG02HhHhHh e- GLAA# GȄGL@L9L7HJJ݌h Hhꝍ݌``Lݥcpq` [` ~ 97H/LHH/Hh/ ۠-HЕ( ( $8 H` jH    >&)>ȥ')̻>JJJ >`+*xS&x'8*3Ixix&& 8 l {' o {& {x)*++`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<` aI꽌ɪ򠚽ɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ:VOL,VL:SLT,SO16:% ZR/W SECTORi dBF0:TRK,TK:SCT,ST:CMD,CD:IO:BUF,(BUF)1:(BUF)MBBF1o n xMOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PHI  *************************?** SUPER IOB **^** BY RAY DARRAH **}(*************************2SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010FINITIAL IOB SETUP PBUF,39:DRV,DV     4)" CONTROLLER ENTERED"Q$.CD$"CLOSE"CN$:>ERROR TRAPM:A(222)A0(A255A15)ĉ::CG$"ERROR #"A" IN LINE "(218)(219)256:A255Ĭ23:1:CG$"WEIRD DOS ERROR #"A:200162,255,160,2,132,19,76,108,213:GOSUB450:END"QSMĺ"5000DATA"A1","A2","A3","D1","D2","D3","A4","A5","D4","D5`SE01470"5010DATA"SE" CHANGES":A1SE5010A10"DATA"TK(A)","ST(A)","BY(A)","OT(A):LDĺ"10010?CHR$(4)"Q$"BLOAD"R1$",A$1900"Q$"?"Q$(CN$,(CN$)B310:";PLDĺ"GOSUB360:";3ZSMĺ"GOSUB230:";Qd"TK=T1:ST="L2":GOSUB490"n"1070GOSUB430:GOSUB100:ST=ST+"S2$":IFST<"H2"THEN1070"x"1080ST="L2":TK=TK+"TS$":IFBF=0ANDTK ";:240NB(A$,1)"A"ĺCG$:V1:1080wLCN$A$".CON":V2:620:A$"N"1060VSCREEN DUMP, SECTOR EDITS`410::"NUMBER OF SECTOR EDITS? => ";:LN1:SP$"0":240j::SE(A$):SE01200tTK(SE),ST(S140:D5A:C"IGNORE UNREADABLE SECTORS? => ";:340:A$"Y"US1X620:A$"N"920fSET FIVEV(37)1:SP$" ":LN20:NL$CC$$V:1:HM:"FIRST LINE REM => ";:240:R2$A$" CONTROLLER".:"VER. # OR DATE => ";:240:A$""R2$R2$" HM:"ADDRESS PROLOGUE (D5AA96) => ";G130:A1A:140:A2A:140:A3A:"ADDRESS EPILOGUE (DEAA) => ";:130:A4A:140:A5A:"DATA PROLOGUE (D5AAAD) => ";:130:D1A:140:D2A:140:D3A :"DATA EPILOGUE (DEAA) => ";:130:D4A:520:ANS810SET FOURV13:1:HM:"USE FOREIGN RWTS? => ";:340:A$"N"950|34,15:LD1::"ENTER NAME: ";R1$:13:HM:"FOREIGN RWTS => "R1$:1020SM1:13:1:HM:"CHANGE SECTOR MARKS? => ";340::A$"N"SM0:1020%13:"SECTOR STEP=> ";:240:620:A$"N"810IRS1$B$:HSH1:LSL1:520:NSAX\SET THREEf9:HM:17)"WRITING:":"LOW SECTOR => ";:130pL2A:22:"HIGH SECTOR => ";:130:H2A1z:"SECTOR STEP=> ";:240:620:A$"N"870S2$B$:HSH2:LSL2:(:390:"LOW TRACK => ";:130:LTAN22:"HIGH TRACK => ";:130:HTAs :"TRACK STEP => ";:240:TS$A$620:A$"N"760 SET TWO*5:HM:17)"READING:"4"LOW SECTOR => ";:130:L1A>22:"HIGH SECTOR => ";:130:H1A1(H:HM958TITLE PAGE<10:12)"CONTROLLER WRITER":12d19)"BY":14:13)"NICK GALBREATH"17:3)"COPYRIGHT 1984, HARDCORE COMPUTIST":229)"PRESS ANY KEY TO BEGIN":23:14)" TO QUIT"16384,128:A$:A$(27)ĀSET ONE     \ ``'`حJJJJLԩLLhhߚHH`Hh`%(ERR2A$"VOLUME MISMATCH ERROR"A((ERR4A$"DRIVE ERROR"\2(ERR8A$"READ ERROR"q<(20:450:(7):0DATA FOR MARKS 2(ERR8A$"READ ERROR"0<(20:450:(7):H0DATA FOR MARKS 'DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822'ERR254ĺ"TYPE AGAIN PLEASE:"::(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"'A$;:'DISK ERRORC'ERR(222):ERR15ERR254Ĺ216,0:822j'ERR254ĺ"TYPE AGAIN PLEASE:"::y(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE ERROR"S.":470::1000)'GET SLOT AND DRIVE#U'450:::10)"SLOT=>"S28)"DRIVE=>"D2;t'16:B$"7":10180:S2(A$)'32:B$"2":10180:D2(A$):'GET A KEY'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((40)(41)256(36))128)782:SCT783:BUF787:CMD790:OVL7927`':DOS16:MB151kj'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2t':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380':A$"INSERT DISKS IN PROPER DRIVE0:::A$"CREATED BY RAY DARRAH":4508'10:A$"INSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$B':(4)"BLOAD IOB.OBJ0,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220#V'IO768:SLT779:DRV780:VOL781:TRKTING"450::809ONERR IGNORE UNREADABLE SECTORSd&822:ERR(222):ERR15ERR254Ĺ216,00(ERR255ERR254)CDRD10230:ERR15ĦD(7);:BUF,(BUF)1:(BUF)MBBF1N$'(768)(769)50710060%.':A$"* SUPER IOB *":4513:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$:OTOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:510A$"INSERT TARGET DISK.":SOS2:DVD2D1D2S1S2İ470:1:1:39);::A$"READING":CDWRA$"WRIERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470a80::A$"FORMATING"::450::IO:VL0:|PRINT TRACK & SECTOR#3:10:"TRACK=>"TK2)"SECTOR=>"ST2):CENTER MESSAGE21(A$)2:A$;:PRINT MESSAGE AND WAIT8:11:450:7378,170:47389,173:C ^SWAP RWTS AT $1900 WITH THE ONE AT $B800f h253,25:255,184:224,8:832:w rFORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";VL$:VL(VL$):VL$""VL254 VL255VL03804CMD,INIT:SOS2:DVD2:A$"INS ALTERED ADDRESS MARKSH "A1,A2,A3:47478,A1:47488,A2:47499,A3:` ,ALTERED DATA MARKS 6A1,A2,A3:47368,A1:47378,A2:47389,A3: @NORMALIZER J47530,208:47531,183:47438,208:47439,19:47478,213 T47488,170:47499,181:47368,213:47356,A3: NORMALIZERS 47405,208:47406,19:47497,208:47498,183:47445,213 47455,170:47466,150:47335,213:47345,170:47356,173: 13 SECTOR RWTS ALTERATIONS IGNORE CHECKSUM & END MARKS 47530,24:47531,96:47438,24:47439,96:0 + 16 SECTOR RWTS ALTERATIONS L IGNORE CHECKSUM & END MARKSz 47405,24:47406,96:47497,24:47498,96: ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:4(ERR255ij0 (ERR0A$"INITIALIZATION ERROR"P(ERR1A$"WRITE PROTECTED"v(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE ERROR"2(ERR8A$"READ ERROR"<(20:450:(7):0DATA FOR MARKS (A$)''32:B$"2":10180:D2(A$):6'GET A KEY^'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((40)(41)256(36))128)'A$;:'DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822'ERR254ĺ"TYPE AGAIN PLEASE:":: t':::D2(D21)1:A$"DUPLICATE":10140k~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380':A$"INSERT DISKS IN PROPER DRIVES.":470::1000'GET SLOT AND DRIVE#'450:::10)"SLOT=>"S28)"DRIVE=>"D2;'16:B$"7":10180:S2NUE":450:16384,128:A$;B':(4)"BLOAD IOB.OBJ0,A$300"jL'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792`':DOS16:MB151j'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2) NO DOS ON COPY":*'CONFIGURATION TIMEX'(6400)162ĺ(4)"BLOAD RWTS.13,A$1900"u$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":4508'10:A$"INSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTI130:CDWR:DOS13+T1TK:490:360:550P430:100:STST2:STDOS21030]BF1060zST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070BTKLT1020L:"EVERYTHING O.K.TING"450::809ONERR IGNORE UNREADABLE SECTORSd&822:ERR(222):ERR15ERR254Ĺ216,00(ERR255ERR254)CDRD10230:ERR15ĦD(7);:BUF,(BUF)1:(BUF)MBBF1NCASTLE WOLFENSTEIN CONTROLLERTK3:ST0:LT35:MB13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$:OTOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:510A$"INSERT TARGET DISK.":SOS2:DVD2D1D2S1S2İ470:1:1:39);::A$"READING":CDWRA$"WRIERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470a80::A$"FORMATING"::450::IO:VL0:|PRINT TRACK & SECTOR#3:10:"TRACK=>"TK2)"SECTOR=>"ST2):CENTER MESSAGE21(A$)2:A$;:PRINT MESSAGE AND WAIT8:11:450:7378,170:47389,173:C ^SWAP RWTS AT $1900 WITH THE ONE AT $B800f h253,25:255,184:224,8:832:w rFORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";VL$:VL(VL$):VL$""VL254 VL255VL03804CMD,INIT:SOS2:DVD2:A$"INS ALTERED ADDRESS MARKSH "A1,A2,A3:47478,A1:47488,A2:47499,A3:` ,ALTERED DATA MARKS 6A1,A2,A3:47368,A1:47378,A2:47389,A3: @NORMALIZER J47530,208:47531,183:47438,208:47439,19:47478,213 T47488,170:47499,181:47368,213:47356,A3: NORMALIZERS 47405,208:47406,19:47497,208:47498,183:47445,213 47455,170:47466,150:47335,213:47345,170:47356,173: 13 SECTOR RWTS ALTERATIONS IGNORE CHECKSUM & END MARKS 47530,24:47531,96:47438,24:47439,96:0 + 16 SECTOR RWTS ALTERATIONS L IGNORE CHECKSUM & END MARKSz 47405,24:47406,96:47497,24:47498,96: ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:4:VOL,VL:SLT,SO16:% ZR/W SECTORi dBF0:TRK,TK:SCT,ST:CMD,CD:IO:BUF,(BUF)1:(BUF)MBBF1o n xMOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH  *************************?** SUPER IOB **^** BY RAY DARRAH **}(*************************2SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010FINITIAL IOB SETUP PBUF,39:DRV,DV1:10140:S1S2:D1D2@t':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380':A$"INSERT DISKS IN PROPER DRIVES.":470::1000'GET SLOT AND DRIVE#'450:::10)"SLOT=>"S28)"DRIVE=>"D2;"PRESS ANY KEY TO CONTINUE":450:16384,128:A$RB':(4)"BLOAD IOB.OBJ0,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792`':DOS16:MB151j'8::A$"ORIGINAL":S26:D2KLT1020)L:"OK, CRANSTON IS COPIED"A'CONFIGURATION TIMEo'(6400)162ĺ(4)"BLOAD RWTS.13,A$1900"$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":45008'10:A$"INSERT SUPER IOB DISK":450::::A$0:CDWR:DOS13/T1TK:490:360::290:550N47390,38:TK16Ĺ47390,36q430:100:STST1:STDOS1030~BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS10708ST0:TKTK1:BF0TKLT1070 BTTING"450::809ONERR IGNORE UNREADABLE SECTORSd&822:ERR(222):ERR15ERR254Ĺ216,00(ERR255ERR254)CDRD10230:ERR15ĦD(7);:BUF,(BUF)1:(BUF)MBBF1N CRANSTON MANOR CONTROLLERTK0:ST0:LT35:MB1313:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$:OTOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:510A$"INSERT TARGET DISK.":SOS2:DVD2D1D2S1S2İ470:1:1:39);::A$"READING":CDWRA$"WRIERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470a80::A$"FORMATING"::450::IO:VL0:|PRINT TRACK & SECTOR#3:10:"TRACK=>"TK2)"SECTOR=>"ST2):CENTER MESSAGE21(A$)2:A$;:PRINT MESSAGE AND WAIT8:11:450:7378,170:47389,173:C ^SWAP RWTS AT $1900 WITH THE ONE AT $B800f h253,25:255,184:224,8:832:w rFORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";VL$:VL(VL$):VL$""VL254 VL255VL03804CMD,INIT:SOS2:DVD2:A$"INS ALTERED ADDRESS MARKSH "A1,A2,A3:47478,A1:47488,A2:47499,A3:` ,ALTERED DATA MARKS 6A1,A2,A3:47368,A1:47378,A2:47389,A3: @NORMALIZER J47530,208:47531,183:47438,208:47439,19:47478,213 T47488,170:47499,181:47368,213:47356,A3: NORMALIZERS 47405,208:47406,19:47497,208:47498,183:47445,213 47455,170:47466,150:47335,213:47345,170:47356,173: 13 SECTOR RWTS ALTERATIONS IGNORE CHECKSUM & END MARKS 47530,24:47531,96:47438,24:47439,96:0 + 16 SECTOR RWTS ALTERATIONS L IGNORE CHECKSUM & END MARKSz 47405,24:47406,96:47497,24:47498,96: ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:4:VOL,VL:SLT,SO16:% ZR/W SECTORi dBF0:TRK,TK:SCT,ST:CMD,CD:IO:BUF,(BUF)1:(BUF)MBBF1o n xMOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH  *************************?** SUPER IOB **^** BY RAY DARRAH **}(*************************2SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010FINITIAL IOB SETUP PBUF,39:DRV,DV     TK1:BF0TKLT1070% BTKLT1020E L:"OK, CRANSTON IS COPIED"] 'CONFIGURATION TIME '(6400)162ĺ(4)"BLOAD RWTS.13,A$1900" : 213,170,1811! CRANSTON MANOR CONTROLLERITK0:ST0:LT35:MB130:CDWR:DOS13jT1TK:490:360::290:550430:100:STST1:STDOS1030BF1060ST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1:STDOS1070 8ST0:TK; A1,A2,A3,A4:47505,A1:47515,A2:47413,A3:47423,A4:W ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:47356,A3: NORMALIZER 47505,222:47515,170:47413,2CD:IO:BUF,(BUF)1:(BUF)MBBF1+ n? x MOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH0 16 SECTOR RWTS ALTERATIONS ALTERED ENDING MARKS7 SUPER IOB v1.5* BY RAY DARRAH06(x2 SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010F INITIAL IOB SETUPPBUF,39:DRV,DV:VOL,VL:SLT,SO16:Z R/W SECTOR% dBF0:TRK,TK:SCT,ST:CMD,      LͿ Ϳ/ A K /EAEKHJJ݌h ̿ Ϳ Ϳ Ϳ ͿF HhHh݌FG$Ki K ,KLHhG02HhHhHh e- GLAA# GȄGL@L9L7HJJ݌h Hhꝍ݌``Lݥcpq` [` ~ 97H/LHH/Hh/ ۠-HЕ( ( $8 H` jH    >&)>ȥ')̻>JJJ >`+*xS&x'8*3Ixix&& 8 l {' o {& {x)*++`FG8`0($ p,&" (0 8@ HPX !"#$`h%&px')*+,-./12345679:;<` aI꽌ɪ򠚽ɭ&&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`2JJJ'J&J>Ƚ3JJJJ&'J&&3>ȽfJJJJ&'J&&f>ȥ(2>&JJJȱ>'JJJ3ȱ>*JJJfȱ>J&*J&'J&&ȱ>J&*J&'J̻&*)')3*)f>)JJJ`80|'x&Hh & 󸩪 󸩭 󸘠Y'&Yxꪽ' 󸩪 󸽎`Hh     AGAIN PLEASE:"::"(ERR255ijG (ERR0A$"INITIALIZATION ERROR"g(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE ERROR"2(ERR8A$"READ ERROR"<(20:450:(7):0DATA FOR MARKS : 213,170,'16:B$"7":10180:S2(A$)>'32:B$"2":10180:D2(A$):M'GET A KEYu'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((40)(41)256(36))128)'A$;:'DISK ERROR'ERR(222):ERR15ERR254Ĺ216,0:822'ERR254ĺ"TYPE; A1,A2,A3,A4:47505,A1:47515,A2:47413,A3:47423,A4:W ALTERED ADDRESS MARKS A1,A2,A3:47445,A1:47455,A2:47466,A3: ALTERED DATA MARKS A1,A2,A3:47335,A1:47345,A2:47356,A3: NORMALIZER 47505,222:47515,170:47413,2CD:IO:BUF,(BUF)1:(BUF)MBBF1+ n? x MOVE S PHASES 49289SO16DV,0:49289SO16,0:APH(PH4)4:1144,128A:811,128SA:813,SO16:810:49288SO16,0:PHPHS:PH0PH0 16 SECTOR RWTS ALTERATIONS ALTERED ENDING MARKS SUPER IOB v1.5* BY RAY DARRAH06(x2 SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983:10010F INITIAL IOB SETUPPBUF,39:DRV,DV:VOL,VL:SLT,SO16:Z R/W SECTOR% dBF0:TRK,TK:SCT,ST:CMD,     ROR"2(ERR8A$"READ ERROR"4<(12:450:(7):ERROR"T&<(12:450:(7):'A$;:' DISK ERRORG'ERR(222):ERR15ERR254Ĺ216,0:822:n'ERR254ĺ"TYPE AGAIN PLEASE:"::}(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE ER470::1000)' GET SLOT AND DRIVE NO.U'450:::10)"SLOT=>"S28)"DRIVE=>"D2;t'16:B$"7":10180:S2(A$)'32:B$"2":10180:D2(A$):' GET A KEY'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((40)(41)256(36))128) 0A0B0C0D0E0F101112131415161718191A1B1C1D1E1F202122"gj'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2t':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380 ':A$"INSERT DISKS IN PROPER DRIVES.":::A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$XB':(4)"BLOAD IOB.OBJ,A$300"L'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL7923`':DOS16:MB151:HX$"00010203040506070809LT1050%TK(TRK):ST(SCT):1020::"COPY DONE":S' CONFIGURATION TIMEv'(4);"BLOAD RWTS.CAW2,A$1900"$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":45078'10:A$"INSERT SUPER IOB DISK":450::;:BUF,(BUF)1:(BUF)MBBF1&N@X R/W A RANGE QUICKLYbb0:0:860,MB:861,LT:862,LSlCMD,CD:TRK,TK:SCT,ST:430:863:1002: NEW SWAP CONTROLLERTK0:LT35:ST9:LS15:CDWR:FAST1360:490:610360:490:610:(TRK)0*A$"INSERT TARGET DISK.":SOS2:DVD2BD1D2S1S2İ470:v1:1:39);::A$"READING":CDWRA$"WRITING"450::80 ONERR IGNORE UNREADABLE SECTORS&822:ERR(222)0ERR255ERR254CDRD10230:ERR15Ĺ216,0: D(7)"(HX$,ST21,2)" ":+ CENTRE MESSAGEB21(A$)2:A$;:_ PTINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$: TOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:51VL$:VL(VL$):VL$""VL2541 VL255VL0380 CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470 80::A$"FORMATTING"::450::IO:VL0:  PRINT TRACK & SECTOR3:10:"TRACK $"(HX$,TK21,2)" SECTOR $10 @A1(A$):A1,A2,A3,A43 JA1T1A1TKĂ:f T9984(A1T1)4096(FAST15A2)256A3,A4:: ^ SWAP RWTS AT $1900 WITH THE ONE AT $B800 h253,25:255,184:224,8:832: r FORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";22:47423,170= 47445,213:47455,170:47466,150:47335,213m 47345,170:47356,173:47360,0:47498,183:  IGNORE ADDRESS CHECKSUM 47498,0:  ALTERED DATA CHECKSUM "A1:47360,A1: , THE SECTOR EDITOR 6A$:(A$,7)"CHANGES"3&Y&&Y& 꽌ɪ\8`&&꽌ɪɵ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++ mI꽌ɪ򠚽ɭG)U F)UFEGG㽌)U F)UFEG ɪ`8`&Y)xꪽ)' `Hh`>`*^*>&`LaI꽌ɪV     <(12:450:(7):R(222):ERR15ERR254Ĺ216,0:822:M'ERR254ĺ"TYPE AGAIN PLEASE:"::\(ERR255ij (ERR0A$"INITIALIZATION ERROR"(ERR1A$"WRITE PROTECTED"(ERR2A$"VOLUME MISMATCH ERROR"((ERR4A$"DRIVE ERROR"2(ERR8A$"READ ERROR"RIVE NO.4'450:::10)"SLOT=>"S28)"DRIVE=>"D2;S'16:B$"7":10180:S2(A$)t'32:B$"2":10180:D2(A$):' GET A KEY'A$:(A$"1"A$B$)A$(13)10180'A$(13)A$(((40)(41)256(36))128)'A$;:' DISK ERROR&'ERA1B1C1D1E1F202122"Fj'8::A$"ORIGINAL":S26:D21:10140:S1S2:D1D2rt':::D2(D21)1:A$"DUPLICATE":10140~'A$"FORMAT BACK UP FIRST? N"(8)::12:450:A$:A$"Y"İ380':A$"INSERT DISKS IN PROPER DRIVES.":470::1000' GET SLOT AND D":450:16384,128:A$7B':(4)"BLOAD IOB.OBJ,A$300"fL'TKSTVLCDDVSO:RD1:WR2:INIT4:10220V'IO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792`':DOS16:MB151:HX$"000102030405060708090A0B0C0D0E0F101112131415161718191"WELL ITS COPIED!"`2' CONFIGURATION TIMEU'(4);"BLOAD RWTS.CAW2,A$1900"r$'(768)(769)50710060.':A$"* SUPER IOB *":450:::A$"CREATED BY RAY DARRAH":4508'10:A$"INSERT SUPER IOB DISK":450::::A$"PRESS ANY KEY TO CONTINUE:100:STST1ST1ST4,ST8ST11= STDOS1030JBF1060gST0:TKTK1:TKLT1030$490:TKT1:ST0:360.430:100:STST1/ST1ST40ST8ST111STDOS10708:ST0:TKTK1:BF0TKLT1070BTKLT1020L:;:BUF,(BUF)1:(BUF)MBBF1&N@X R/W A RANGE QUICKLYbb0:0:860,MB:861,LT:862,LSlCMD,CD:TRK,TK:SCT,ST:430:863:1002: CARRIERS AT WAR CONTROLLER550TK0:ST0:LT35:MB130:CDWR:DOS15T1TK:490:360 4300*A$"INSERT TARGET DISK.":SOS2:DVD2BD1D2S1S2İ470:v1:1:39);::A$"READING":CDWRA$"WRITING"450::80 ONERR IGNORE UNREADABLE SECTORS&822:ERR(222)0ERR255ERR254CDRD10230:ERR15Ĺ216,0: D(7)"(HX$,ST21,2)" ":+ CENTRE MESSAGEB21(A$)2:A$;:_ PTINT MESSAGE AND WAIT:11:450:13:A$"PRESS ANY KEY TO CONTINUE":450:16384,128:A$: TOGGLE READ/WRITECD(CD1)1:CDRDA$"INSERT SOURCE DISK.":SOS1:DVD1:51VL$:VL(VL$):VL$""VL2541 VL255VL0380 CMD,INIT:SOS2:DVD2:A$"INSERT BLANK DISK IN SLOT "(S2)", DRIVE "(D2):470 80::A$"FORMATTING"::450::IO:VL0:  PRINT TRACK & SECTOR3:10:"TRACK $"(HX$,TK21,2)" SECTOR $10 @A1(A$):A1,A2,A3,A43 JA1T1A1TKĂ:f T9984(A1T1)4096(FAST15A2)256A3,A4:: ^ SWAP RWTS AT $1900 WITH THE ONE AT $B800 h253,25:255,184:224,8:832: r FORMAT DISK |A$"VOLUME NUMBER FOR COPY =>254"::450:32:"";22:47423,170= 47445,213:47455,170:47466,150:47335,213m 47345,170:47356,173:47360,0:47498,183:  IGNORE ADDRESS CHECKSUM 47498,0:  ALTERED DATA CHECKSUM "A1:47360,A1: , THE SECTOR EDITOR 6A$:(A$,7)"CHANGES"3O TAPE35,17::35,24=A$"Backup Disk to Tape":9700G5:1x"Enter title of disk (40.... if 40 track)";~"->";A$5:ELINE:"Insert disk, start tape & hit ";Z$L(A$):L2L7:A$"UNNAMED"8192,L:I1L sk":L"7) Exit Archiver"OV:"---------------------------------------";Y[9500tj9:27:"ENTER CHOICE"t11:31:"< >"~11:32:A$:A$A((A$)):A1A7ĺ"":1140A1200,2000,3000,4000,5000,6000,7000 SAVE DISK T:TRK,TK:SCT,ST:863:1002:% :@ A$"Tape Archiver 2.0"J 9700Q 4q "1) Backup Disk to Tape": "2) Retrieve Tape Backup": $"3) Verify Tape Backup": ."4) Read/Write Test": 8"5) Set Drive/Baud Rate":B"6) Format DiERR4A$"DRIVE ERROR"4 ERR8A$"READ ERROR"I 21:15:A$;(7)y 23:15:"Hit any key for menu ";:A$:1000  INITIAL IOB SETUP BUF,39:DRV,DV:VOL,VL:SLT,SO16 X R/W A RANGE QUICKLY b0:0:860,MB:861,LT:862,LS lCMD,CD BAUD2400:HIBAUD 1000/  DISK ERROR\ ERR(222):ERR15ERR254Ĺ216,0:822: ERR254ĺ"TYPE AGAIN PLEASE:":: ERR255ij ERR0A$"INITIALIZATION ERROR" ERR1A$"WRITE PROTECTED" ERR2A$"VOLUME MISMATCH ERROR" 07 - $0D"& T$(3)"Tracks $0E - $14"C T$(4)"Tracks $15 - $1B"` T$(5)"Tracks $1C - $22"} T$(6)"Tracks $23 - $27" ADDRESS EQUATES ELINE868:EPAGE958:WR7680:RE7721:LOBAUD7866:HIBAUD7939:T0NE8036:WSEQ8050:RSEQ8086:TGGLE8103J,A$300"* d(4);"BLOAD ARC2.OBJ,A$1E00"W nTKSTVLCDDVSO:RD1:WT2:INIT4:410 xIO768:SLT779:DRV780:VOL781:TRK782:SCT783:BUF787:CMD790:OVL792 :DOS16:MB151 SO6:DV1 T$(6) T$(1)"Tracks $00 - $06" T$(2)"Tracks $ TAPE ARCHIVER 2.00 BY W.TOOMEY6<(~2 SET HIMEM BELOW BUFFER AND SET LOMEM ABOVE THE BLOADED RWTS<8448:9983F CONFIGURATION TIMEK(176)29ĺ"PROGRAM TOO BIG":P(768)(769)507110 Z:(4)"BLOAD ARC.OB          LD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~ hh@(LH9LHH/Hh/ H-З( ܸ(& ¸$8 H` *HVDP (ED Z $0x8x D- ܸDHIHHHHhHH݌hHhHh݌H6 h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖ<=>?230+005(((((((((((((((((((((((4554+005((((((((((((((((((((((`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:; ``#`حJJJJLԩLLhhߚHH`Hh`#P()$ "$ \ŭ^ɭ] EPAGE.0%20:" Slot: ";SO:22:"Drive: ";DVG:%24:" Baud: ";BAUD;M%e% CENTRE & PRINT A$q%A(A$)%1:20A2);A$&20A2 &I1A:"-";:&:disk & hit ";Z$)A$"N"6040R44725,160:46063,40:48894,40:6050u44725,140:46063,35:48894,35VOL,254:SLT,SO16:DRV,DV:CMD,INIT:7681000W END ARCHIVERX:19:EPAGE:% UPDATE SCREEN INFORMATION&%19:1:25110# BAUD1200:A2BAUD2400.BAUD;?A5160,5180K(LOBAUDU21140a<HIBAUDkF1140}o FORMAT DISKp35,17::35,24zA$"Format Disk":97005:1:"Do you want 40 tracks (Y/N)- ";:A$:A$"Y"A$"N"A$::"Insert 4210 SET SLOT & DRIVE&20:8AA$:A(A$):A135050aAA48:A1A7ĺ"";:5020jSOAzSO;:22:8A$:A(A$):A135090AA48:A1A2ĺ"";:5060DVADV;24:8A$:A(A$):A135140AA48:A1An, and"0"replay the sequence to verify it."V:"Start tape & hit ";Z$qRSEQ:ERR((222)255)ERR4280:"NO ERRORS, hit for Menu ";Z$:1000:"READ ERROR, Do you want to retry (Y/N)-";:A$:A$"Y"10001:5,242@10:"Now rewind the tape, and play the "`J"sequence back. Adjust tone & volume to"T"get the best sound through the speaker."^:"Hit any key to continue"hTGGLEr35,17:10:EPAGE:35,24|10:"Finally, rewind the tape agai test the"2"recording level (Y/N)- ";:A$:A$O35,17:10:EPAGE:35,24aA$"Y"412010:"Hit any key to continue":T0NE:"A test sequence will now be recorded."""Start tape & hit ";Z$,WSEQ635,17:10:EPAGE:35,17::35,24,A$"Read/Write Test":970065:1c"Connect your recorder to the computer""and insert a blank tape.""For recorders without automatic level""control, set the recording level to 0dB" :"Would you like a tone to"Do you wish to retry (Y/N)- ";:A$:A$9t A$"Y"1000P~ (VFY1)2000,3000V o VERIFY TAPE BACKUP 35,17::35,24 A$"Verify Tape Backup":9700 5:1:VFY1 "Start tape & hit ";Z$ 2040 READ/WRITE TEST 362,0:63,15132(I6): END ADDRESSYRE:(222)255ĢI8:"ERROR Reading ";T$(I)gVFY2230~21:23:"Writing"23:16:"Track $ ,Sector $";500TK(TRK):ST(SCT)1000` 14:"ERROR Reading Disk Title"'j :ELINE:"Disk title is"%47:"->";:>L(8192):I1LQH((8192I));::rRTK0:LT35:ST15:LS15:CDWT\(8193)52(8194)48LT40fI15(LT40)p21:23:"Loading"z23:15:ELINE:19:T$(I)60,0:61,39: START ADDRESS ':35,24+A$"Retrieve Tape Backup":9700;5:1:VFY0l"Insert disk, start tape & hit ";Z$21:23:"Loading"23:21:"Disk Title" 60,0:61,32: START ADDRESS62,255:63,32: END ADDRESS RE:(222)2552400*5::"Track $ ,Sector $";!x500B60,0:61,39: START ADDRESSs62,0:63,15132(I6): END ADDRESS 21:23:"Dumping"23:15:ELINE:19:T$(I)WRTK(TRK):ST(SCT)1000 RETRIEVE TAPE BACKUP35,17:8192I,((A$,I,1)):760,0:61,32: START ADDRESSX62,255:63,32: END ADDRESSy(TK0:LT35:ST15:LS15:CDRD2(A$,2)"40"LT40<21:23:"Dumping"F23:21:"Disk Title"PWRZI15(LT40)d21:23:"Reading"n23:16A1H #$37 A2H READAND READ IT ; ; TOGGLE KBDSTRBPLAY CASSETTE #$00INPUT THRU THE SPEAKER CHKSUM ^1 TAPEIN #$80 CHKSUM >2 SPKR CHKSUM ^2 KYBD <1  ; ; ;  ES #$00SET Y FOR LOOP $^1 FILL UP PAGES WITH BYTES (A1L),YIN ASCENDING ORDER  <1 A1HMOVE UP A PAGE AND LOOP <1 #$27RESTORE A1H A1H WRITEAND WRITE IT ; ; RSEQ #$00SET UP ADDRESSES A1L A2L #$27 D16231019121BC0 ; ; ; TONE CHANGE A-REG WRBYTEOUTPUT IT  KYBDA KEYPRESS? TONENO, LOOP KBDSTRBTURN KEYBOARD OFF AND RETURN ; ; WSEQ #$00SET UP ADDRESSES A1L A2L #$27 A1H #$37 A2H #$10SET 10 PAGOD3+1 TWOMOD+4 MOD4+1 TWOMOD+5 MOD5+1 TWOMOD+6 HEADR+1 TWOMOD+7 MOD7+1 TWOMOD+8 MOD8+1 TWOMOD+9 MOD9+1 TWOMOD+10 MOD10+1 TWOMOD+11 MOD11+1  ; ; ; #ONEMOD 271D22243B354B21322C3A80 #TWOMOD 141011121 HEADR+1 ONEMOD+7 MOD7+1 ONEMOD+8 MOD8+1 ONEMOD+9 MOD9+1 ONEMOD+10 MOD10+1 ONEMOD+11 MOD11+1  ; ; ; !TWOBAUD TWOMODMAKE CHANGES TO MOD0+1SET 2400 BAUD TWOMOD+1 MOD1+1 TWOMOD+2 MOD2+1 TWOMOD+3 M; ; NXTA1 A1L A2L A1H A2H A1L RTS4B A1H RTS4B ; ; ; ; ONEBAUD ONEMOD MOD0+1TO SET 1200 BAUD ONEMOD+1 MOD1+1 ONEMOD+2 MOD2+1 ONEMOD+3 MOD3+1 ONEMOD+4 MOD4+1 ONEMOD+5 MOD5+1 ONEMOD+6 RDBITREAD >2< TRANSITIONS RDBIT DECREMENT THE Y-REG TAPEINA TAPE TRANSITION? LASTIN RDBITNO, DEC Y AGAIN LASTINCOMPARE WITH LAST READ LASTINAND STORE IT DOWN *MOD11 #$80IF Y=>#$80, THEN A '1' BIT ELSE '0' BIT, RETURN ; ; ; ; RDBYTE #$08SET READ 8 BITS RDBYT2 SAVE A-REG RD2BITGET A BIT IN CARRY RESTORE A-REG ADD THE BIT TO IT !MOD10 #$3ARESET Y FOR RDBIT DECREMENT COUNT RDBYT2AND LOOP RETURN WITH BYTE IN A-REG ; ; ; %RD2BIT ND TRANSITION ZERDLY USE Y AS A DELAY ZERDLYLOOP "WRTAPEIF INPUT BIT=0, WRITE IT "MOD8 #$32ELSE ANOTHER DELAY ONEDLY WHICH IS HERE ONEDLY #WRTAPE TAPEOUTNOW WRITE IT OUT MOD9 #$2CRESTORE Y DECREMENT X AND RETURNWBELL2AND SKIP NEWBELL #$00SET NO ERROR ERROR NEWBELL2#$87OUTPUT A ^G COUT ; ; ; HEADR #$4BTHIS IS MOD6 ZERDLY HEADR #$FE HEADR MOD7 #$21 %WRBIT ZERDLYOUTPUT 1 TRANSITION INCREMENT Y TWICE AND OUTPUT 2RD2BIT #$16 HEADR CHKSUM RD2BIT MOD3 #$24 RDBIT MOD3 RDBIT MOD4 #$3B RD3 RDBYTE (A1L,X) CHKSUM CHKSUM NXTA1 MOD5 #$35 RD3 RDBYTE CHKSUM NEWBELL NEWERR #$FFSET ERROR ERROR NE #$00 (A1L,X)  (A1L,X) WRBYTE NXTA1 MOD1 #$1D  WR1 MOD2 #$22 WRBYTE NEWBELL %WRBYTE #$10OUTPUT 16 TRANSITIONS !WRBYT2 MOVE A BIT INTO CARRY WRBITWRITE IT WRBYT2AND LOOP RETURN ; ; READ T $C020TAPE OUTPUT ADDRESS SPKR $C030SPEAKER OUTPUT #TAPEIN $C060TAPE INPUT ADDRESS !COUT $FDEDCHARACTER OUTPUT ; ; ; ;  $1E00  $800 ; ; ; $WRITE #$40SET DELAY FOR HEADER HEADRAND OUTPUT A HEADER MOD0 #$27 WR1IT READ &A1L $3CA1 & A2 STORE THE START %A1H $3DAND END ADDRESS OF THE A2L $3EREAD/WRITE RANGE A2H $3F !ERROR $DE0 IF NO READ ERROR ; ;OTHER EQUATES ; KYBD $C000KEYBOARD INPUT KBDSTRB $C010KYBD STROBE $TAPEOU********************* * * * CASSETTE ROUTINES * * FOR * * TAPE ARCHIVER * * * ********************* ; ; ; ;ZERO PAGE VARIABLES ; #CHKSUM $2ESTORES TAPE CHECKSUM LASTIN $2FLAST B!! ! ! ! ! !!!!!!!!!6d-4);GP$(J)::,6- WRITE GROUP FILEU6-D$;"OPEN GROUPS":D$;"WRITE GROUPS"b6-TD$:NGz6-I11NG:GP$(I1):6-D$;"CLOSE GROUPS":6. LOAD ITEMS6".D$;"OPEN ";GP$6,.D$;"READ ";GP$66.NI:NI0118706@.I11NI7J.IT$(I1):PR(I5,MAX16S0:1132005,S14:QQ15:Q1Q1B5,11470:11320]5, SHOW 15 GROUPS/ITEMS{5, Q IS 'FIRST' GROUP/ITEM5,7:9585,GFLAG111500,116005,JQQ145,JMAXJQ20::5-4);IT$(J):5(-5P-JQQ146Z-JMAXJQ20::7S:1:"-->";4B,A$:T(A$).4L,T2111390=4V,T811420O4`,T13AQS:`4j,T27A1:q4t,"";:113304~,1:" ":SS1:S15114004,SQMAXSS14,113204,S0:QQ15:QMAXQMAX144,11470:113205,1:" ":SS1:S11132090,11280,11290,11290,11280,11299<3,TD$TD$A$:HH1:11230\3,TD$TD$A$"/":HH2:11230o3#,TD$TD$A$::3$, SELECT A GROUP3),Q1:114703*,7:25:"Arrows to move"3+,9:25:"RETURN to choose"3,,11:25:"ESCAPE to exit"3.,S0:CF148,+:"ITEM";32);"PRICE COST MARKUP% QUANTITY"C2+UL$;UL$I2+`2+ GET CURRENT DATE2+8:1:"ENTER DATE: __/__/__";2+H13:TD$""2+H:A$:A(A$)2+A$(8)H13112202+A$"0"A$"9"ĺ"";:112302+A; 3,H1211280,11290,112 31f+23:"HIT , OR TO GO BACK ";\1p+A$:A$ESC$A$(13)ĺ"";:11120b1z+y1+ PRINT PAGE TITLE1+"GROUP: ";GP$(A);50);"DATE: ";TD$;70);"PAGE: ";PG1+PFLAG111180,111951+:"ITEM";32);"PRICE"1+UL$:1+11197620* CENTRE & PRINT TITLE'0+TL(T$)<0 +1:20TL2);T$U0+20TL2);(UL$,TL)_0+34,3e0 +|0*+ GET INPUT NUMBER0/+23:"ENTER CHOICE (1-";MAX;") ";04+A$:A(A$)0>+A$ESC$A1:0H+A1AMAXĺ"";:110600R+1\+ GET RETURN, ESC C0:PGPG1:11150/"#/#(12)2/#D$;"PR#0"J/ #D$;"CLOSE ";GP$(A)P/#V/'p/' READ IN GROUPS FILE/'D$;"OPEN GROUPS"/$'D$;"READ GROUPS"/.'OD$:NG/3'NG010100/8'GP$(NG20)/B'I11NG/L'GP$(I1):/V'D$;"CLOSE ";A$/`'Y.`"PFLAG18810,8900'.j"IT$;30);<.t""###.##";PRICEF.~"8920U."IT$;30);k.""###.##";PRICE;v."40);.""###.##";CST;."50);.""##.##";((PRICECST)CST)100;."62);.""####";QTY."LCLC1:LC508950."(12);/"L PRINTER ON"-!11100)-!A$ESC$8000/-!C-!A1NG:8700:K-!40T-!500e-! PRINT LISTm-"80|-"D$;"PR#1"-"PG1:LC0-."11150-8"D$;"OPEN ";GP$(A)-B"D$;"READ ";GP$(A)-L"NI-Q"NI08960-V"I11NI.["IT$:PRICE:CST:QTNT (P) PRICE ONLY".,R!"OR A (F) FULL LIST ";R,\!A$:A$"P"A$"F"ĺ"";:8540e,f!PFLAG(A$"F")o,p!::,z!"PRINTING EVERY LIST";,!PFLAG18582,8584,!" PRICE LIST"::,!8590,!" FULL LIST":: -!"POSITION THE PAPER, TURN THE";GP$(A); +PFLAG18182,81849+" PRICE LIST"::C+8190[+" FULL LIST"::+"POSITION THE PAPER, TURN THE PRINTER ON"+ 11100+ A$ESC$8100+ + 8700+! 40+& 8000+4! PRINT ALL LISTS+>!22:1:958,H!"DO YOU WA* T2ST:"STEP ";ST;" : ";::ST$(ST):Y ^18:958:CO$(ST):22:19:IN$;:STST1: hQ$(34):ST$(1)"DRIVE SELECTION":CO$(1)"ENTER AN "Q$"S"Q$" FOR SINGLE DRIVE COPY OR A "Q$"D"Q$" FOR DUAL."HrST$(2)"COPYING":CO$(2)"MAKE SURE THE SOW`XYZ[7\A]O^i_t`abc`'"$;5K!2,:# ,,`<>'=7?<='=L<>'=7?L).`).0.`>@ h'A=?<=`LMNO7PAQORiStTUV""