SYSDIR SYS BASICINISYSADDOPT ABS DEVDES REL CMDINT SYS`SYSTEM ABSCOPY ABSCOPYLIB ABS@DELETE ABSDISKCHEKABS DOSGEN ABS ERRCOPY ABS LIB ABS`REPROT ABSDRINI BAC@DISKCHEKBAC`LIB BAC REPROT BAC@SYS BACPREABS BACNAMEDISKBAC OPTROSH REL OPTROSL SYS ISAMOPT REL TERMOPT REL SOFTOPT REL UFD ABS CLIB BAS@ SETCAL BACUFD BACISAMDEMOBAC@)IDEMO1 BACDEMOCRE BAC CREINDEXBACARTIKLARDATARTIKLARISM ARTIKLARIS1@HELK BACSETOPT BAC TEST512KBAC`START BACBDT305 BAC bc " *7~]SO!4`!5ADDOPT ABSRUN DRINI Kan ej |ppna fler filerF|r l}ng rad (>160tkn)Hittar ej filenFilen ej |ppnadSlut p} filenChecksummafel vid l{sningChecksummafel vid skrivningFelaktigt sektorformatSektornummer utanf|r filenFilen skrivskyddadFilen raderingsskyddadSkivan full Enheten ej klarSkivan skrivskyddadLogisk fil ej |ppnadFel logiskt filnummerFel enhetsnummerFel trapnummerFel i biblioteketFelaktigt fysiskt filnummerEnheten upptagenEj till denna enhetFunktionstangentIEC-b}de s{ndare och mottagare IEC-mottagare ej aktivIEC-s{ndare ej aktivTecken fr}n tangentbordet ej i tidOgiltigt tecken inl{stFelaktigt "NAME"Felaktig tidspecifikationNyckel finns ejDubblettnycklarFelaktig nyckelFel vid kontroll{sningIndex finns ejFelaktig postl{ngd Fel ISAM-filversionSlut p} minnet i centralenF|r stort flyttalIndex utanf|r till}tet omr}deF|r stort heltalFel i ASCII-aritmetiskt uttryckIndex utanf|r str{ngenNegativ "SPACE$","STRING$" eller "TAB"<1F|r l}ng str{ngEj till}tet |ka "DIM" Fel v{rde i "ON"-uttryck"RETURN" utan "GOSUB"Felaktig "RETURN"-variabelData slutFelaktigt argument i funktionFelaktig "SYS"-funktionEj till}ten rad"FNEND" utan f|reg}ende "RETURN""PRINT USING" felFelaktiga dataF|r lite indata "RESTORE" ej p} en "DATA"-radF|r mycket indata"RESUME" utan felGrafisk punkt utanf|r sk{rmenHittar ej detta radnummerFelaktigt inhopp i funktion"NEXT" eller "WEND" saknas"FOR" eller "WHILE" saknasFel variabel efter "NEXT" Blandade "FOR"-loopar med samma variabel"FOR"-loop med lokal variabel ej till}tetFunktion ej definieradFlera funktioner med samma namnFelaktig funktionFel antal indexEj tilldelningsbar i funktionEnheten ej anslutenMinnet fullt "LIST"-skyddat programFel programformat"MERGE" g}r ej p} ".BAC"-fil"COMMON" felAnv{nd kommandot "RUN"Kan ej forts{ttaOtill}tet som kommandoFel data till kommandoFelaktigt talPrecision f}r ej {ndrasF|rst}r ejOtill}tet tecken efter satsen M}ste st} f|rst p} en radFel antal eller typ av argumentOtill}ten blandning av tal och str{ngarEj enkel variabelFelaktig sats efter "ON""," saknas"=" saknas")" saknas"AS FILE" saknas"AS" saknas"TO" saknasRadnummer saknasFelaktig variabel00OPTROSH REL0 ""!!4*`-`!~5g.~(I#>(C"N#`8,s-`*.~(8.V.^K@yH`0{7s* !**"ͱ:G(*oLEb9B"*LEC* -`*. "!#b! 0ͱG#g (Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BAS0ICINISYSk(Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BAS@@ (H34@w *`-`*.~( [k` 14 @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ DR$HDlMFMOnSF????RM%)5JT<$݊ݵ<฼<<I%2$ݵ<฼<,<T  *0:DQ[aP!Pp?m^V@+##~ # c Q W@ !9  @ @@~(02v{>pÞÕHÀðçÓÛABS BAS CSS OVLCSS ABSy:o`BP>{/ 0!s#:w!!4E` 4!w#w#w=2A>20:0G!Ao~<(!`:020q8!*|(ˆ˞!P~# (+ ʞ~`8 w# !46.36!~$ 4H:N:.R .F:4M_B`6:+++~ >@6 O0:4@o&q:N:H:4lBP=n :N! !eB B`L:4B_͓.N~..R H.F:4J_B`:4 :N,(/ !3n&~ #( +}23!4~wq(!~$ !BO# >2J !CB`!@~!ʕOB`0!fÕ:@!AN!]``:0({'{!RFB`F̀ (A8BPw#! <;F Ver 6.02, 1984-04-03 Copyright 1982 Dataindustrier AB i#<~# 7 (+~:06D#6R# w#6:ˮ#ˀBP;#~:8ˮ:0* *{^#V##O ~:7?| 7 NAMENAME.EXT F|rst}r ej Hittar ej filen Filnamn saknas Felaktigt enhetsnamn Inte {nnu. -t); ** Disc operating system - Ver 6.** ** ;G :ˮ#ˀBP>p #~:8ˮ:0* *{^#V##O ~:7?| 7 NAMENAME.EXT F|rst}r ej Hittar ej filen Filnamn saknas Felaktigt enhetsnamn Inte {nnu. -t); ** Disc operating system - Ver 6.** ** ;G :ˮ#ˀB```:!>w#s#r!S!v!~ r180ڇO!  (> ** Systemmeny ** Ver 6.00, 1983-02-101. COPY - Kopiering en fil.2. COPYLIB - Kopiering flera filer.3. DELETE - Radering flera filer.4. DISK`: CHEK - Testning.5. DOSGEN - Formattering.6. ERRCOPY - Kopiering felaktig fil.7. LIB - Bibliotek.R ]terg}ng till DOS. V{lj (1-7,R)? COPY COPYLIB DELETE DISKCHEKDOSGEN ERRCOPY LIB : - Radering flera filer.4. DISKpp8!:R Ÿ!! =0!Y2i!! =0!Y2j!w!Pk0!B!!`k0!B:i2P:j2`!6 !~# (+~ ( ,ʻ##~2G> 2G!RK B`.P9/!b~ T]!KB`!j~Bp8 T]!SB`!`9 `!/` $`͕`! VB`:X !B !`~ ]Th!VNy!Y X!D:G B`TB`!AOB`BB`!HAB`! E`2g-E`-`!g~4W*$.:g 8߯2h:gɧ(%!h~4W*$$.6Bp7 0`:g!hɾ :fɧʝ:Q!aw !`>2Q!]V!\^ '`>2f-E`!R4®#4îOBJABSTXTXXXXXXXXXXXbk6#6  x0G> @89#x 0(>. #x0> ɯ>7_Bp6&08+~# (0:?A^?** Doscopy ** Ver 6.00, 1984-03-07 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopians naBpB53mn?  Hittar inte originalfilen ! ** BAD OPTION SPEC. **81984-03-07 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopians naB  88 !:o` !\د2!~# (~#/(,( ( (~#V :2:P!! =0!2!! =0!2`!!~J :2!!P0!!:2P!,8 6 :p`((7?2!""6#6!:P72O *m`~#7*k`y o0$"~2#"~2:`2ѧ!7!7 *m`~#!7!y2: @ 2Ͷ'͜0':2>Ͷ'͜0X:˟2: *m`^#VͶ*.y 2!yp7o0$~:P *m`^#Vy_0>ͶX'*yo~#<+~#,,, # } o~f>oR  (# >.!!~A:A(&I!XN (7J :=A8*q#>.6#6"#6'6,;y( O y*##" ",د2:ѧ!!!*#~X+~#_ͦ8(:!!+7!:O>`X!+*:O `$`ͩ*"* !Kx<!COPYLIB CEN:Χ7[:::#54>^.s $: >> *.V-^-S~ɇ.(ɯ27''''} 8B 6 #0>0! 6 ! ~.(͔8wX7#~ ( ͔8wq! AڢA^?0:?>E`E`2ί2p4A>-`X[!~4W*$.: 8֯2:Χ(([!~4W*$$. 0`:!ξ :Χʺ*R+":Q!aw !`>2QX!]V!\^ '`>2>2:ηO!!22*"*"#~+~ :W(!7!!!3N#_ͦ8 = !!+7!G==!:O>2Q>`X!+:O `!GGE`E`>-`X*$.[S:<2 XE`E` -`*$$.[S:<2 G*"*"[ S"2[:=2ʲÏ*"*": ί2:O:ιͧ!r!!U:2 v!##!7!9R!7:_(*~?w#:w:_( *:w#:w~#foSC2}2y2``K[:2 .1h:*.~7.~?,*N˶f`q 181 bk6#6 f x0G> a@89q#fx 0(>aq. #fx0> aqϯ>7_~0~8+~# (0:?% 0sA^?Kopiera ########.### ? Kopiera fil? Kopiera fr}n ? Kopiera till ? Verifiering? (J/N) Felaktigt filnamn Felaktigt enhetsnamn Minnet fullt. Originalfilen finns inte. Kopian finns inte. Du anv{nder ett f|r gammalt DOS ! /! SYSDIR SYS Fas 2 Kopiering Programfel !  Fas 3 Verifiering Inga verifieringsfel  Verifieringsfel - Kopiera en g}ng till  Sektorfel p} kopian  Verifieringsfel  Sektorformatfel p} originalfilen  Sektorformatfel p} kopian .r Olika fill{ngd sektorer kopierade ** Kopiering av filer ** Ver 6.00, 1983-02-10 Tillg{ngliga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Kopiera ej resten av skivan J - Kopiera den m-ena fil J=Filnamn.typ - Kopiera med nytt filnamn Original och kopia m}ste vara olika Fel i biblioteketS8iga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Kopiera ej resten av skivan J - Kopiera denA  88 !o:P8L!! =0!2j!!P0!!i:j2P!o"C"Eʯw#w:P!72j:j2 *m`~#7!y 3:P *m`^#Vy_0*k`: o0$#N˶f`q*:Py(ʝoB8 ~G#<ʝ~ʝ> o~fʝ>oR  (›#W>.!)!W!G~A:GA(Iʪ!XNʜ ()J *Cq#>.>SCyOҧ §[CSk:pʧ!g!!*E~#45!_B7:jO`!$`!`*E"E!2!7bk6#6 ͆ x0G> ́@89͑#͆x 0(>́͑. #͆x0> ́͑ɯ>7_͞0͞8+~# (0:?A^?Fel i biblioteket.Programfel ! B6'Fas 2 radering Drivenhet? Radera fil? Felaktig enhet. Filen ej funnen. Radera  Filen raderad XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1984-03-07 Tillg{ngliga kommandon:A - Radera restB[54en av skivanX - Uthopp, radera ingetI - Radera ej resten av skivanJ - Radera denna fil 8 aderad XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1984-03-07 Tillg{ngliga kommandon:A - Radera restB  82܅Ʉ8ͅ:p` !6!Ląs:P81!ͅ! Ϳ0!Vͅ2P!ͅ!6,# Ϳ!#~ (~#/(,( (> (:~#˯N 2D 2J 2V 2S 2P 2( :P!V?2*k` ~o0$~2#"~ } !0"!0P!!qB7̀} ͔8L*$T$$.]EMGO,> !x !Iy G, !կ } "!0ίDM!9qpsr ut { ww 6!͔̀܌^V *$.%~(e4W#^+{(Z##~w#~w#͞0,56#B6'nf [Y͟^Vnf+R8Q[R0I~w0G, ~fW˯6 !4!9~w,6,6,~w,~w,~w,w#%P ͔8[ # #~6!"[B4Aw! !5!9!7>_: :'[!":O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!"4 4 : (#'{_*$$$j~  87 w͍7``O >B3N:W !xpg.EM !!D )!Uw "!ag !y_ !W !O !͘͘͘ͅ!9ͅ>ͅ!>ͅ! ~ ͅ!Gͅnf>ͅ!  6ͦ!cͅB2[:p`:0 (:(z !Nͅ{8(! dͅη͟:η>:η>͘ͅ!ͅ! Ϳ:˯OJ>>N>> >~#fd+~# :00+~#^?A:͆:ηB 1i1C!@[!P>N.5l>.5l:!υogDISKCHEKCEN3"*.ͅ:O*.EͿ>^SC2}2y2``K[:2:և! !?!^υog|7ͱ*N˶`qͱ*B 0ZN˶`q:p`!B0 !K ~#foɯ} 8B 6 #0>0~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7Vͥ#~( 0# ʀB /g (̶!9  ͥ :'7s3sE!!5:2ҷ >!]>22VA+##~ # f T WA !9> A AA~0:2ҧ̈́s3sEB .t!!5ͷ^(666>>~ ^w * :2ҧ*,~ #^#VSZSҿ6B6C6'6&6#{3~D7PR: `A-L** Diskcheck ** Ver 6.01, 1984-05-07Du anv{nder ett f|r gaB -rmmalt DOS ! Enhet ? V - Skriv ut varningarD - Skriv ut filnamn som checkasN - Inga {ndringar p} skivanJ - Korrigera alla funna felS - Snabb, varningar checkas ejOptioner (V,D,N,J,S) ? Felaktigt enhetsnamn !Ska filen st{ngasB,Ska denna DIR-sektor raderasSka filen raderasSka lockout-sektorn ers{ttasSka bitmap ers{ttasSka UFD-namnet ers{ttasSka sektorn ers{ttas (J/N) ? Felaktigt recordformat.Felaktigt filhuvud.Enheten ej klar.Skrivskydd.Hittar ej denna reB+scord.Checksummafel.Data f|rlorade.Fysiskt slut p} enheten.Ok{nd status.Filen ej korrekt st{ngd.Dubbelreserverat cluster. DISKEN EJ S[KER !Bitmap felaktig.Biblioteket felaktigt.Lockout-tabell felaktig.Cluster utl}st i bitmap men e B*fj anv{nt,Kan vara utl}st av DOSGEN.Felaktigt recordformat. Ej kritiskt.Felaktigt filnamn :Felaktigt UFD-namn.Du m}ste vara inloggad.Du m}ste vara super-user.Internt fel.Fel vid NET-operation. LDA:, [gare:, LRN:DISKCHECK BT)Yavbruten. . Bitmap Lockout kat.Bibliotek UFD-bibliot.Ingen 8 Felaktigt UFD-namn.Du m}ste vara inloggad.Du m}ste vara super-user.Internt fel.Fel vid NET-operation. LDA:, [gare:, LRN:DISKCHECK B# 8> b82!":o` !ڿ:P8=!!] =0!2P!! ~˯6A#6,#w#6 :P :P*k`2P> 2 2!~# (~#/(,( (" (~# ( (N 2 F 2:P! !R :ͷj:P2_!Q!j:B8jJ!¿:A!P !p!j:jJ!¿!L!j:jJ!¿&!)!x:ͷ!j:jK(C:P2*k`o0$~2#"~2:p`ʐB7ʐɯ!~w0> 9`~  T]6[!" ͆(FG #}  .6#6#%:A80~w 0,  $ڼ.:w $ڼ6#:w>^.v­:w >(! ~#(#ʼ(! ~#fo2B6"Q!>^#VS 0]T6!60$ڼ]T 0$ڼ 0:O`8v {ZWS {ZWS{ZWS!00`8,!`8'* :8) UQ!U:ͷ!!:ͷ &! B5/! ~_E( D(!2 !e:p`((6#:w#: w>^.v­:w(~>(! * #" ɯllll} 8B 6 #0>0038 := =(Q!:=_7DB4<:p`Q! *.xg::=/_: (#'ZW*N˶`q*N˶`qC!(7>7:OU!6*q`!6:ͷ6C6SC2}2y2``K[:2:7SjЃНн!kBG3I! 80!̅og~#fo ! SYSDIR SYSDOSGEN CEN 2 M 2 g: ͧ 0ͧ@ͧͧ``:Oͽ*u`~ w({(/_O ٷ7``:OS ͽ(_( B2Yͽ ~, ``O xyz{ͯ0 @ N @;@NNGw, Enheten ej klar, kontrollera ! Skriv in "K" n{r du {r klar !  Skivan skrivskyddad ! SkrB 1fiv in "K" n{r du har kollat !Enkel eller dubbel densitet? (E/D)  Svara E eller D !  Skivan verkar vara d}ligt formaterad ! Ska den formateras ?  ABSOLUT s{ker ?? [0m  Du anv{nder ett kB 0Sf|r gammalt DOS !! Enhet ?  Felaktigt enhetsnamn ! Volymnamn ?  Ska skivan formateras (F/-) ? Du m}ste vara inloggad.Du m}sta vara "Super user".Felaktig sub-funktion.Det finns redan ett job.Hittar inte "DOSGEN.CEN".KaLB /`n inte {ndra under bibliotek.Felaktig login.N}got fel vid laddning av "DOSGEN.CEN".Felaktig "ERROR" kod.Programfel.Central:** Disk generation ** Ver 6.02, 1984-03-07 Skivan i ***: kommer att rensas helt vid initieringen. [r dbB .met OK ?  Sp}r 0 {r d}ligt (borttaget) ! Tyv{rr kan biblioteket inte initieras p} denna skiva. Prova med formatering om du inte redan har gjort det !! Skivan testas ! anv{ndbara sektorer. Har du bytt skiB -zva??? Annars kommer skivan, som detta program laddades fr}n, att initieras (raderas) !!! [r det OK ?  Felaktig option ! Felaktigt enhetsnamn ! Internt fel. Kan inte formatera, kontrollera !!! Skivan format(B,xeras !Nu testas sektor Sektor ***** {r d}lig - borttagen!   !6ͱ( !5 >é@(#v +('&@((&|=o| ( '#0>é>ࣵ_G!yxz{ I D`(y.EM_B+k8( oo( ҂‚%0( !5(72?2?.e~! ~o0$~<(=( ( x =::*x?g8G!yxz{ I D`(y.EM_B 8!":R Ÿ!! =0!2! ! =0!2!!Pͬ0!!!`ͬ0!:2P:2`!6 !~# (~ ( ,ʺ##~2> 2!R B`.P>4:R2!b~ T]!BB8 `!j~ T]!B`!`> `$!I` $`͚`!H B`: !i !~ ]Tm!Ny! !: B`TB`!OB`BB`!AB`![ #E`2:E`NE`-`w!~4W*$.: 8߯2:ʧ(%w!B7~4W*$$. 0`:!ʾ :ʧʢ:Q!aw !`>2Q!]V!\^ '`>2:E`!R4»#4ûNE`*R[ʧRB͢> #"R:!) ! !1!A: !}*$.!%!.!.~_Jʶ: !%!.!.~B6&_Jʻ!%!.!.L*$.s#û.%B8'x!.UA~#p6 !.|A~#t6 !.A~ 886.#6 !-!T!{Ɛ'@'OBJABSTXTXXXXXXXXXXXbk6#6  x0GB53> @89&#x 0(>&. #x0> &˯>7_3038+~# (0:?A^?͚~0:?~08 833bk)8)88)8 _8͚͛+(- I#~ (ɯͽͽͽͽ}!Bo4@ 8B 6 #0>0*$.MUZW C0w#O xyz{0>,( 3T3{j3] Vill du hoppa |ver sektorn? (J/N)  Vill du beh}lla sektorn som den {r? (J/N)  Decimalt fywB62 llnadstal? (0-255)  CRC AM-fel i sektor i2H Hittar inte originalfilen ! Filnamn saknas H{r anges sektorinneh}llet. Felaktigt filnamn Felaktigt enhetsnamn Felaktig fil?  Felaktig enhet?  6Bz2Kopians namn?  Kopians enhet? ** Errcopy ** Ver 6.01, 1984-03-07 ** Ny fil ** ** BAD OPTION SPEC. **'8ektorinneh}llet. Felaktigt filnamn Felaktigt enhetsnamn Felaktig fil?  Felaktig enhet?  6B 88!ί2Q.S!̯ww66*m`^#VS{> >w:P .!! P2!!)!6L#6,# :P!7=(w!~# (~# (K (G,(/ ~# (9 (5_N &S &B8 F &P O :'>((:TP &:b :m (+!m:͊!b.͊!j ͊ ~ݾ!.*k` ~o0$~2"#~202; :@ Nr]C0C:?*w2:2>2rC0:?@*w2:2B7z].*k`o0$##V#^!r#s; f(. 6R#6A#6Mʧ!~ J[r\*.^#Vz #~_0r[o!6 ##!zʧ; z\~ [r[.~,n <=}w~ [}B6'_0tZ*$.#~ (S(R#^#VS#~<= R ( *( #yV ##F(1}ݶOtrr> > 0N(]*| I}oV#>_:(:< tZ[!E<( ̯sB4A}  8B(0>0> !6^ 5 4 ^ͨ54~*m`##~:*.~7.~?,v*~?@w*#N˶~2`q~ (#y3W:'7B3FssE!!:η >!]ͳ>2V'+##~ # L : W' !9> ' ''~0:ΧjssE!!͝^(666>>~ ^w * ͜.89ͬ#͡x 0(>ͬ͜. #͡x0> ͬ͜ί>7_͹0B 1Q8+~# (0:?A^?V#~( 0# (!9   ~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 UFD:P FILENAME.EXT ** LibraB 0^ry list ** Ver 6.03, 1984-03-07 Drive ***:RAM:xxxxxInga av  sektorer lediga.Skiv fel = Felaktig enhet !Enhet/Bibliotek? S - StorlekN - Fysiskt filnummer.F - Filstatus.P - Utskrift p} printer.ingen - Filnamn enbart.Opt`B /kioner (S,N,F,P,ingen) 807 Drive ***:RAM:xxxxxInga av  sektorer lediga.Skiv fel = Felaktig enhet !Enhet/Bibliotek? S - StorlekN - Fysiskt filnummer.F - Filstatus.P - Utskrift p} printer.ingen - Filnamn enbart.Opt`Ba 8+!+8!g++:R 8!+!dP!:R 7!%+! d~˯6,#wZ !}B`:P!7OR`!*k`: ~o0$#"!#~ (~ (s (o,# ~˯X( S(R U:P_:Q! *m`N#fi*N˶f`q!B/8:P*o~<7#~w*N˶c`q!>2Q!7.7bk6#6 ͎ x0G> ͉89͙#͎x 0(>͉͙. #͎x0> ͉͙ȯ>7_ͦ0ͦ8+~# (0:?A^?~# 7 (+~:06D#6R# w#6:B7$ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7VJ#~( 0# * ([!9  J ** File protection utility ** Ver 6.00, 1984-03-07 Felaktig optionREPROT,XSR Filnamn.Ext Fel vid B61skrivning i biblioteket. Filnamn : Felaktigt filnamn Felaktig enhetHittar ej filen X - Avl{gsna skyddS - S{tt skrivskyddR - S{tt raderskyddAnge option (X,S,R) : ABSv8S4-03-07 Felaktig optionREPROT,XSR Filnamn.Ext Fel vid Bai l* DRINI .BAC *** DR_: initialization *#* Tillh|r Systemdisk, UFD-DOS*,'* Copyright (c) 1983, Luxor Datorer AB$**.%* Program to detect type of DOS PROM+8&* and to set DR_: equal to BOOT drive2B-* and to set drives to old biased addressingL*'V"* Ver date / Ver nb / Sign / Note1`,* 83-03-01 / 6.00 / LDAB / Urspr. DOSVERS7j2* 83-04-25 / 6.01 / LDAB / ABC806 TIME$ setting=t8* 83-11-09 / 6.02 / LDAB / Knows about type 6 DOS-NET~* &!** ** ** ** ** ** ** ** ** ** ***ީݵ True/False*2'Switch T/F here for display/no display@ 5Switch T/F here for old biased/new linear addressing*:/Switch T/F here for keyboard click on ABC802/6*$start"Name of next program*&!******************************** ** Main routine* (,2,݊2<<,ފ2<F,ߓ2< P,ߓ FFZ* dPn*,x ",߸Turn off 5 ms click*+"DOS {r 2<FP*  "*&!********************************** Detect DOS version*"* At exit : 0 if old 5" dos,'* 1 if old 5" DT and 8" DOS3.* >=12, New UFD DOS version number* ) pf`ݸ old 5" DOS#i`-ߜ-R D ޸'"o`Get UFD DOS version number,6*'@"*********************************J*#T* Separate between old DOSses^*hSj A)z!r out (2),a : ret|+Z ޸,,}  ޸,-}   Z'ABC 6-1x eller 8"/800 8"/800ABC 6-1x*)$************************************% * Separate between mellanDOSses*  Lj`-劽 ABC 6-3x&j`-튽 ABC 6-2x 0ok{nt:D*,N'**************************************X*&b!* Separate between Super and NETl* v2! p``$`݊ UFD-DOS ver. ,$`ኽ ABC-NET ver. ,(`㊽UFD-DOS-NET ver. ,  UFD-DOS ver. ,*,'****************************************%* Set current drive to DR: mellanDOS*  !刵4m`-,圸 Set DR_:, e.g. shift 1 bit left# ݊DR_: mots varar SF_:DR_: motsvarar MF_: ***4%************************************>*)H$* Set current UFD-DOS drive to DR_:R*\!#!!f`ݍp-݊ zᜈk`-, Set DR_:k`-k`-ߜ-'DR_: motsvarar  _:**%**************************************%* Set UFD-DOS drives to biased addr.* #9#i## k`- ᜵X䡜 ޜ , 䈧␽ޜ,@ Set biased  ᜵$ . Gammal addressering8 B *(L #**********************************V *"` * Copy CMOS clock into TIME$j *t .J$$C$6~ >dž6>Dž6y : ǀ6>6>dž 2 6>6> 8 dž67LJ# >  6  ++Z  * 詸,ݸ8 ,,,6 멸,ޫ,߫, Datum och tid: )  *$ ****************************** *( * Convert BCD --> Decimal2 *< %91%zQ%F  P 숧Z VersDosversSepoldSepmellSetmelldrSepsupTypSetsupdrOffsDevConoutSepDrSetSetoldBiaSetbiaTableEntryClusiLinkDrdescClcSettimeCodTbufList2200BdPtrBcdClickGy y""q%"#, 2R"<"F"P*$Z9`i!숧Z VersDosversSepoldSepmellSetmelldrSepsupTypSetsupdrOffsDevConoutSepDrSetSetoldBiaSetbiaTableEntryClusiLinkDrdescClcSettimeCodTbufList2200BdPtrBcdClickGy @!b**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; DISKCHEKABS`! +݊, P,ǰ,금 r! @BDFHJLN Diskcheck Fel vid laddning av DISKCHEK.ABSKABS`! +݊, P,ǰ,금 r! @BDe)(jd xg. Enheten ej klar 4( !Skrivaren ej READY.  < ݵ""ݓ"/࣐/"ޜ:9;J@( !Skrivaren ej READY.  C "ޜ" "ޟ"i` I;; ݵީ ǠOk`-Y_ i_,, ,ݸ,Y,Y, ,ݸ9BUFDDR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3RAM/ CsƃzƍƗƧƧ,,ݸ,޸,,,ݸ,޸TII( 浱ݵ 쵷  ABC800 LIB  Ver. 6.01II= ǠO* ABC800 LIB * Ver. 6.01 * * O= 'Filnamn: Storlek: Skriv-Raderskydd:'------------ -------- ----- -----------IP!!('8 >ǡǻ 'p`!:v!U~<~<_## ?h) c9&I_i5 _(=_ @ ᜵i_ !Y&&9UFD:9 9 9RAM:R M ݵ' Yߜ-᜵ Yᜈ ݊Yᜈ9RAM:9'9RAM: ކYޜ䈧Q&L'ᜈ%Y%ޜ䈧-݊ I Dd9UFD: 4  F  (yՂ&y ½;1 - Skrivare (Printer) 2 - Storlek 3 - Filstatus4 - Viss drivenhetV{lj (1,2,3,4) O޵6O1234O݊Oᖆ;ޜO1 O2 22O3 8 8O4  Enhet ? EOO%Felaktigt enhetsnamn 4 Z(J)q))y zǠ;.RIS ;ޜ;0     ߟ Funktionstangent l W ) z :9 01DR:9 ኽ  /݊ :91!)!*Q*y q*½ 9—Lkvar avRIVOLYM: ;ޜޜ= ƒޟݵ}ޜ;ƒ ƒ ƒ ƒ; ޜ ފ ߊኆ ޜޟݐݵ⊽C C㊽Z U)9+y a+>pr:޸#޸,#޸#޸,9—,Llediga av totaltR sektorer .#޸,VOLYM: #޸#޸,)#޸,)ƒޟފ )޵ޜ#޸,;#޸,ƒ ƒ ƒ ƒ;ޜo Y# y [ ޜ犈   ޜV#Q>9 sysdir.sys߸ #߸,O踈O .O'+zYᜈߜ-/ᜈYDRޜ RAM (:) +",a,,,ƒޟ=ߣƒޜ  ޜƒ ƒޜ+,!-,f`݊ǀ 툽,9Skivan d}ligt formatterad.R퟈!9Diskfel ' %!*I-ފ2 ފ9UFD:{{+Rޟ +L9UFD:ޟ $퐸s ޜ[)VJ)݊ _  _  8",3!*", § .j-e!*--8݊  §ޜ ވ(=S߈(=Rz(!*!.Q.z(2  §ߜ04§0 +'.!*",.q){s݊x ޵[§ ݊)=e휵ޜcƒޜƒޜƒC+>r*+Iߟ*; Iߟ ;f1"aIPI;Fler utskrifter (J/N) ? OO j  *IP(PF5=F|reg}ende SH+PF5=F|reg}ende enhet;%PF7=N{sta SH+PF7=N{sta enhet >;;I= ;;MPF5=F|reg}ende PF7=N{sta SH+PF5=F|reg}ende enhet SH+PF7=N{sta enhet >;;I= ;  /9/ ;;I;;;Ljޟ5 - Tryck ;  ݊ Ɲ;I; "/9CIOY_is%28LR{5 - Tryck ;  ݊ Ɲ;I; "/9CIOY_is%28LR! !!c**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; REPROT ABS`! +݊ , R, ǰ,금 s! !ACE!GIKMO Skydda filerFel vid laddning av REPROT.ABS ABS`! +݊ , R, ǰ,금 s! !ACE1D1Tk m0 ** 2 ** Ver 6.03, 1983-11-03# Copyright 1982 Dataindustrier ABW  FY AAas L    ! ++* 1 0! ::+0+* ++*0  0 0:+0+*  &--------------------------------------Dž-D8 ݊Q Q: ;QRAM[a!1N g> ;m. ;s ;y  &--------------------------------------޵㸼K ݊ j( ? DR_:    _:#1g _:;mǀ@@;s?4Q;y;##䈧;;ǀ  ;@  ;jA'ea RAM:y;##䈧;ǀ1!N u!p4  () / ) ;Ƽ¼ ¼  ޵㸼H v   _: ( / ) ;Ƽ¼ ¼ a 1 a݊c>  RAM: (. /! ) ;Ƽ¼ ¼    (;D ) ;Ƽ¼ ¼ ¼(=¼ ¼(=¼1 ¼ ޵丼4¼ ,ᡸ[޵丼%l ,;$$y! (@) ;Ƽ¼¼ ¼(=¼ 1 ¼ ݵ丼5¼%?[. ݵ丼;,; 1 (?4Q) ;Ƽ¼V¼'M.䖆 ǀ@塜.1 [W (䈧) ;Ƽ¼h:¼'  1,2,4,8,16,32婈$߂$[ǀ@݊ (;@) ;t) ;1 Ƽ¼ ¼ C [@¼   [@%+%1 (;ǀ) ;) ;Ƽ¼ ¼ 1 m [ǀ¼ 7 [ǀ'" (;<ǀ ; ;) ;Ƽ¼ ¼ 1 m [ ǀ¼ : [ ǀ w!ry! (/) ;Ƽ¼ ¼  z 1 :DEVDES.REL;Ƽ¼ݍ¼¼: ¼:P¼ DEVDES.REL޸#޸,7ᡜ#޸7 9޸:  'DEVDES.REL' ޸ ީ[ݵ޵gm1syk`-p`%+1Dž-DQݵH丼HHJM'W5/W8',0,'A6/A8',64,'A5',128,'A6/A8 fast',192,'A6',64,'A8',64,'W5',0,'W8',02"-DߜDD QD-DD݊Ky#F$ݵH1฼HHU݊[7%2$ݵH฼H,H`b&&ޟޜw #2EakySystem-enheter HighRes-minneSystem enhetsnamnParametrar f|r di1skenheterCentral Gammal addr Vill du {ndra parametrarJ[ndra parametrar f|rkonverteras till矸 ,<QZdm[ndra DR_: konverteringFelaktigt namn[ndra controllertypFel typ[ndra CsFel typ[nd1ra clusterstorlekFel clusterstorlekGammal adresseringN '/HRw[r enheten centralFel CsSka parametrarna sparasp} skiva#[ndringarna best}r till n{sta resetSpara p} enhetFilen ej funnenT1yp Controllertyp '0<>@BDFCsClusterstorlekSp{rrad S{tt sp{rr  *0:DQ[agmsy%+117Hrollertyp '0<>@BDFCsClusterstorlekSp{rrad S{tt sp{rr  *0:DQ[agmsy%+1AA=* PREABS .BAC **%+----------------------------------+*%! PREABS !*%! ------ !*%! Autostart p} f|rst en assembler !*%! fil och sedan en basic-str{ng. !A*$%! !*.%! (C) Luxor Datorer AB !*8%+----------------------------------+B*'L"* Date / VerRev / Sign / Note>V9* 83-02-22 / 6.00 / LDAB / Tillh|r Systemdisk, UFD-DOS`*&j!** ** *A* ** ** ** ** ** ** ** **t* ~&!********************************** Main program* *5Autostart av maskinkodsfil (N) ݫ $ j  *Enhet: ݫAU : 2*Felaktigt enhetsnamn C&3 Hittar ej & BASICINI.SYS `*( Vill du {ndra (N) ݫ  j!*(j22Maskinkodsfil f|r autostAart ݫI 7< ] 'Felaktigt filnamn F*;P Skriv BASICstr{ng (max. 158 tkn) ݫ Z ! d 0n*7x,Kan ej st{nga BASICINI.SYS m * A*'"*********************************** Initialization*  ݵ ީ False/True* Ǡ Ǡ0 &H?DR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3UFD:E<`abcdAefghijklmnopqrstuvwxyz}{|@ABCDEFGHIJKLMNOPQRSTUVWXYZ][\D" .0123456789DN,*6TޜX$@ ABC 800 PREABS  Ver 6.00XJXTXޟXT XT= X^* hXr)|!Program f|r uppl{ggning Aav BASIC-)!kommandon och/eller maskinkodsfil"som ska utf|ras vid RESET.)!Mata in enhet som ska f|rses med,+#eller f} {ndrad, autostartfunktion.%Enheten m}ste inneh}lla filen"BASICINI.SYS".  A *&!*********************************$* Skriv ledtext och h{mta svar** V#9#Y#z(Ǡ; &0ߟ :D*&N!********************************X*,b'* KontrolA lera och formatera enhetsnamn(l#* Enhetsnamn ut i Dev$ om ej errorv*I , z +01DR:& ኽ  "(=  "A (=  2 _(=  :݊:&  *( #***********************************9 4* \ppna filen BASICINI.SYS och h{mta gamla str{ngar**A 4 2z# 2$>H BASICINI.SYS޸R#޸,L\ #޸,踇f#޸,Zp #޸,Ǡz ޟ !* X/&Gammal maskinkodsfil: Y"Gammal BA ASICstr{ng :   * *& !******************************** *" * Skriv record 0 p} BASICINI$ * Filen {r |ppen som #1. * 8 i&SB / L #޸,݂V #޸, ` #޸,A&j #޸,]Sǃ t ~ #޸,3 #޸,O!4` / #޸,!5  #޸,L #޸,b * #޸,Z #޸,0 ޸ A *    *& !********************************( *2 * Felfunktion < *F ( $$ P !Z ;';;;d  n - Tryck ;x ll  ;'; A   *& !******************************** * * Kontroll av filnamn7 2* Filnamn 11 tkn utan . ut i Assnamn$ om ej error * !Hzy  閽 . 施  AD ݊ ߵv#" Nv݊, x 6 b@ ޵v^J v T ` _.^ . bbb b bh r bbb |   *& !******A************************** *$ * S{tt punkt och packa filnamn * &zy  z  ޵ V鐸    劽 . ޜ   & *InitConFormnamnFelAOpenDevSlaskInmatningText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"DAr%N%XJ%b"l vy ngText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"DQQA g #*****************************#* NAMEDISK.BAC *#* Program f|r skivm{rkning *#* ABC800, ABC802 och ABC806 *#* (c)LUXOR Motala *#*****************************$*#.* Tillh|r Qsystemdisk, UFD-DOS8*'B"* Ver date / VerRev / Sign / Note;L6* 83-03-03 / 6.00 / LDAB / Urspr. NAMEDISK Ver. 2.0V*`j#t*****************************~Dimensionering y ǠInmatningsbuffert*Qީݵ True/False* $Eݫ)2 Gammalt namn<Volym: F*$PNytt namn (N)?QݫUZ jd*.n Nytt namn Volym: ݫ1xw"F|r l}ng rad. ݫ8 8>ݫQM{rkning utf|rd* ;*#Q*****************************Funktionsdefinitioner*&!*********************************,'* Kontrollera och formatera enhetsnamn(#* Enhetsnamn ut i Dev$ om ej error*h  z ",+6Q01DR:$@Jኽ  "T(=  "^(=  h.݊r:$ |*% *******************************Q*+&* Make drive descriptor from dev-name*Y!"""%$ DR$'>$ $  k`-3ߜ- ᜵ &*0$'>Q :DN*#X**** L{s en sektor **********b!#I#l,vf`K Q?Qݍ4$Kan ej l{sa fr}n skivan. Kontrolleraޫ8 Q#*****************************#**** Skriv en sektorQ *********A"#I#,c`K Q?Qݍ4$Kan ej skriva p} skivan. Kontrolleraޫ8 Q#*****************************# ****L{s gammalt volymnamn****   *y W4Q hW >WWޜ犈HW WRW  \WޜWfpz"****************************$**** L{gg variabel i dosbuff**"X ޵W6WWz ,WQ WޜW 8#*****************************#**** Inmatningsfunktion****** ##$& ;Ǡ;; &  ; $ . ߟ '8 Felaktig inmatning. ݫa8B Q L #V *****************************#` **** Felfunktion*************j 9!|#!$t ;;%~ ݊Kvittera med CE;2    ;(;  VolymnamnSlaskDevDevsInmatDevnameQFelDescReadsektDrdescDosbuffWritesektIdevTableEntryDriveSektnrStatusTextRadKolKvitteran R yy$ . 8Q >!KyQ#Wy    ;(;  VolymnamnSlaskDevDevsInmatDevnameQktDriveSektnrStatusFelWritesektDosbuffInmatTextRadKolKvitteraSkrivSlaksVolymnanLisytDevsFormnamnDevFinddevDrdescDescIdescEntryTableAuto890IdevDevname4 R yy$B$.#8$>Q KyQ1!Wy VolymnamnSlaskReadsea "a1)Hqa9 1qR`!![!"R*{"!"{0 !"i!X*q`~6#~6#~6*{| !X##> #~#fo"!~#foOPTROSL SYS:f` *i`a##~D #~R7!!6#!>1~/w/w> 14#y>~/w/w> y@ 4D>y~/w/w>y 8>y~>y/w >y D>y/wy><2!!R?"i!Aq6#PXE ^!AV{7%7ˮ! a/ 0:G`h9 !X`!Q~<( } >3}AwGnf##Nɟ>x*Ws:!  <(=(!:>*pR!p"iQ!"iɧ(=(=(aI(=(#=FHF$6F!F*-F*0CMDINT SYS Abort RAM*x?g: *m`##~ HR:! " <(=(!:?>A8 2R:WOxpW{a]x(R2˸(%?v({<.=  i_ {<.= 2{ ~O{4Cy!!zo0$~(?z>  <12{G :!>(4y:!(a?14~>0#2RAMC!2C#~7 ~z>?8v͏>8m{c.s 1 :WOxpW{]x(롩 #x/q !x ͚/͚/{ 2˸͏(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~͏(?z>  <12{G :>(4y:Wq/&.T] 66͚Ϳ@8= &,t .<(1=>  <(=(! :2/͂= t0.6$Ϳ=.w>2~w$w%͊͊ ,>-ORAM/ >!_>-*.~<(= #,N,,V,~/q:ź ,^,~/ , (GK#(>7*~,"CS2!=ʖ=k ==ʅ K[:[ (:_#~K5>Now.V#~_V1q- &ɀo&N{+zs#r[ͅ!6[!:(I <(C <_c "{z0*"!55 .w ,w:@_!!F?DwxNo&4~o-~iwyoO~axpNo&4nw-w}bowyMoqOxpBo&4#4:@ !q  !L#!7& !9))y!o&^w,Vw{(0xp Ao&~!V P.[:@(y8*iy#y 0ڇ!o&s,r>,^,V>>Bos,rͶ>No&6ɀoN-{z>Bo^,V>Jo^,VR>Ͷ ͇8 q".Oͱ.Oͱ, )>#8.~.~,~͍)> ]Ч78zy< *|(z]> ]͉p͉xG ͍> &\͍xpGAo&~<> [>&#z>K>Jos,r>AoF>rq/OG>2A87>2+~2ͩͅ8~*o B͋8)Pڽ*|~b ą8V! w#2!o0$~(,ͅ82O G* #y y=Oh!>w0!4~0:((% : <>(< :<2.7>Sq ?>& >8:!wͩͅ8~O_ K W!w _.w>_V " o g+" !"#"!^,Vͅڑ.  .w>.w:@_!BA ( yOy[( x(!z7>2ͅ?*.~,,,,,,72P!>6>& 2ͅ8(͍8!q Lͅ8U <- >O0 (=:< 7 : <>(< :<2 !>F>(!N>(> >(:>(@> >2> >2O <(>O0`b  [ͅD8  ͋8bͅ8 Ϳ= :͋ J!F B  q Y .F ,F   [͋ .F   y  ͋ ͩͅ .~O*E >G   *> J  ͋ !"" #" "!6.:@_-BɁ_F #y Ϳ<<Ϳ=)6.~ . ~,_ ڝ [ ><. w,wvq f6J _>wyO0z=_~.N<{< ڝ .N.~<,~<ͨ [ԍ8U* ͬ 8K.44 8@͇ͩ86: &w:o>6,= ͍88>2>q 4 s 8    & * #ͩͅ:OE Df ? Ëb:2} +  [ͅ!~O6= <  ͋bͅ!Fx(!N68\<(Y.w6,w.w.N><><q.~Oy8 OzW 4.N6_.~8 wzW{0{ b͋q| w!F&.N<! V-^ͅ8^ ( K .qbͅ8I 8:͋8?!^,Vͅ8-.N.F ,F (  ͋8:Ao&~ w>  >?b >G@> x>(>& *i~ *ip & y0; o}(G0y $}o} z(gqb V0 {0Z >7ȅoG|8g> O{=!p,w: `iV "TM G zG( 0 { b8  0S%k8z8:N*o >2ASORTORDRTAB*}"!"}nf~#+ NF !"!#"###":& ( *r#"Å "DŽf"ł1*!َnf ~#foTO.#,****Ä*ń*ǂ  P!@666666׍!D~ !n f |ԛu t ]T6>Z8v66FpȄ!ut0z8;.~>~ 2OF<7 !!΂Nkk8>4>2">93333[##||S΂CЁS҂CԈ~+~ ~G #~!j !k ~#fo{8~ ^ Vwsr+,-./0  Z   +  ; !9N#F#^#V#N#F#>47ISMn f Fu* 9ɯ!KΈISAM OPENISOPISAM READISRDISAM WRITEISWRISAM UPDATEISUPISAM DELETEISDLKEYINDEXFIRSTLASTNEXTPREVIOUSPREVf666666ہ'# '# >76#Hw#́ۅEɎ#>7 &+    ((#,( ( (y9 w7 >/>͋g !9>9= ͏&0  !9>[^Xف[+V+^́Q.N !^X!ف[!Æ6!C΁ 1(+V+^+Q8. <2Ö++4 #4!^X!ف[Dq#^#V] !X![#^#V!C΁D +r+sH}!0΁DYPF.FzD:Ç(F!`>!!`!-`!0`!?`!*`0y#7*3!"3sā‡"3{ā"3 Ӄ ՝ >45Ȧ! 0!0   [ΎO  !ְxG#R# *7!ف^8![X8* 7~( =( =( ~ >>>* 7~* 7F N * 7 F* 7 !NɃ  Ѓ[΁ 2*Аu>z7$%,-(5Mւ0jx7 0 " 8  e  Ђ9 Ђ0 Ђ 8(  Ђ 8 (x7 `"(x7 U8L e [ 3b B}^! i`! !Xw!Ӆ" 9f^(* 9R ^ !^!J*҂KԊ + (9y[ -06 #< ȁ[(  ~ >|7~ ~  0} Ȅ Hut" 7nf  $ {0 4   1  i*҂Kԁ h $ {0 4  10` ?Y *Ԃ[ЇR>}7 $ S(8 0y( 4  1*΂KЁ  h S(   { A8 1V6" 9! [ 3*ԎB  A[ҁ 2>{7 ȁ" 7* 7 " 7~* 7 " 7ȁ7R {ف !݁ڃF |[ -!  Eց*҂Kԃ ց*΂KЋ6#!  2 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ +\][ (\][ -x ~#^#V ǃ ~#^#V!؆4(5 ߁! !F΁ 1  =2ؖ]T!F΅!  1 H!IΆN#F)dدGOdd)0 G{( x7{TدGO(n~{~Z)TدGO(Jn0>CقFZ~W:WFzFzFD#4 #4!@΃wo*وB8 ("ٖ MD!! ĦNwy#~@_^V  Oq6R>} G=(=(=(-=((~#ph N#~#hyhx态G~#N#? 7eyH˹e~# +0/x/>΅  [G~0G #~O #` ! og~!ցJ (4" 98'z8ӊ0* 9F R* 9F(Sz0" Aɂ#[8  8# 1 'p [O!Y\( 9 9 C!aƂی!R8!^ ( 0:a( # [!^6#Á!^cN %!܅R [ކOBֆ <#[Ӂֆ#c!a ցp [O!܈Ƃ[!R8!^[WɅɉF(wp!^R MDRMDkb6s>΄ <{ 7 0[ 7R f(!pƃ [N( m8ɌF>x7# [=ݾ0 ~ <#ă0 9 0[ 7R !!ցӔ~~wځ8$ >y7ɉ~(O( m(F( #[!ցӂ!a~(ɋs [!R8ɁɁ݁^!a;(Ʉ ֈˎɊ6Bi`RMD|܃!ՁՂ!ZՁ!^ ( ن!^ [2ف!ֈF Ɇ #6#!Y!ցɈ6#6#!\ 9!aF !^ [Dw[i!^6!GaӇ !X!aF#c}^X!ِw( # ɐӧRMDkb6 n ɆF( #[N(>΄ F( #[  [F(OBaG!R8 [w>Ά0-!i`i` F(>x7!^ (>"7[0 `  0r!{%!}%!%1>ך|^#V{  } |JC^! 89^!DM9 *R:T=0 oO(.$>0^ &"R!2N # ^#V*R> %"R_> _.$<|W%&,t> _! =W _ W=!9 N9 7?ȇ7n*R}0g>8|9>8}9> 8>9_>(9{![WR\bR{OzG!B!<80M~A|xg~w,p$p}l&]T))))))_[W6 6~"M:(h: F (6 : )7nf$%(n##^#V#N#F \u!t"2[QÊ828 W:˿ǁȁnȏn!g~怇8 ^QÒ8#|u!w">57 8*Rw,t  :S> *WP0!RMD!B8MD!xx6 (kb6 y(W|g!x"W> 8|9> ӑ8}9`> g:T)>8w9  ___~ {= {={ ɧO^ +V(^(?(~Gy((  Oy>!*~=˂˂˛N*w *wUB(1rŽ*t 6#>q#pY*R:T2P(}o>P2T"R!˃wC>2>2:P(;SR2TSRm8 8^O:GG~5ypX(o(@O{ {5q#z56#H(P N>5q#6ё{P8a  ( = v m`fqy5m5:2##{PH>:2++{H+:ˇ2P zH:ˇ2z SPBH:2a H!xx>56 !xP>5 q!x>5q#H>"HG:Gw~5xK86(R(RӃ+(Y(?(A:G>  y(x8GG:˟2:ˇ2,(˸$xGxG'''Gx8G???GC :o(_( ++^##{ 0Sy5r#x5:w#:O(W zNW>5r#x5:w{PaH:2:2:ˏ2: ˯2C y56 #x56 #:2W N>56 #y5:w#{PaH:Oˏ2(W#Wx8GG:2:2WPWy5r#x5rz{oN P8z 8y :2 :g2w~5 :2>2>2((++("~5(O#~2_5G:C(K( ~5 :gy  z |2C TDMP>56 #ˊ 5 >56  ˊ>56  J( w 6 #  j&T]))))))x     0BYw!{%!}%!%1>>|^#V{  } |#o! (! }2W|2V*t6k6k!"Y!X}F N(ˎ;(>8:W9!> 8|9> 8}9!6 x!Px!Xˆ:VB_ W;{7;{ >8:W 9> 8>x9> 8>9;:V7;!XV˖ >8:W94>#>##o:Q(}2Q*R[T"RST>#>#M    8P:8 !P*m`^#VS>!#~ (~#/(,( (2 (.~˯LMvFRCʐDt!P!7:R H!P! ͉~ (˯6,#wC(R !P!͉PD87:R !7)-R:PO`8#-`83`O3`G(*>B!`!B8 7!72!4[>z(c!"B86`_6`WS@˳ 6`o_08}*o*BP!P[@z!"B P!P!͌[>͌:p`( ( C>2>2S2:*k`>~ :2``2:DS>*mB7`s#r[>z!72o6`_6`W͌:Pz!72o6`_6`W*>͌zo6`_,- :O `RH`!`͌!.!iP͂-R:PO`:QoP*$.T]6! *>}9`|9`:P͹B6'9`0`0`#R n*$o=w, !8f !PP:Q!`͌!Z~ #6U#~ 6f#~ 6d:R !`!.7!7$`!`!C7!w7͂[>z!|728*$.~< Y,  [>86`_6`W͌6`_O~+(Bs54`8$`!`!\P*m`##~*m`##w!7!7*k`: o0$#N˶`q*k`: o0$#N˶`qx4Dbk6#6 ͳ x0G> ͮ89;#ͳx 0(>ͮ;. #ͳx0> ͮ;˯>7_0B4C8+~# (0:?A^?~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7Vo#~( 0# O (̀!9  o ** User File Directory ** Ver 63B3P.05, 1984-03-07Felaktig option !UFD,LMFRCD FilnamnL - Lista aktivt bibliotekM - Aktivera master-biblioteketF - Aktivera fader-biblioteketR - Byt namn p} aktivt bibliotekC - Skapa nytt bibliotekD - Radera aktivt bibliotekingebB2]n - Aktivera gammalt bibliotekAnge option (L,M,F,R,C,D,ingen) :Filnamn : Aktivt bibliotek {r ' .Ufd'MFD'under fader-bibliotek 'Aktivt bibliotek {r 'MFD'UFD skapatUFD raderatUFD har bytt namnKan inte radera 'MFD'KwB 1jan inte byta namn p} 'MFD'Enhet f}r ej anges !'MFD' har ingen fader !Inget namn angett !Felaktig fil !Hittar ej filen !Filtyp f}r ej anges !Filen finns redan !Ej tillr{ckligt kontinuerligt utrymme p} enheten !Fel vid l{sning/)B Q0wskrivning p} disken !Biblioteket m}ste vara tomt !Kan ej st{lla UFD-pekaren.8tt !Felaktig fil !Hittar ej filen !Filtyp f}r ej anges !Filen finns redan !Ej tillr{ckligt kontinuerligt utrymme p} enheten !Fel vid l{sning/)B /  1000 ! * LIB .BAC * 1010 ! +------------------------------+ 1020 ! ! LIB.BAC ! 1030 ! ! Biblioteksprogram ! 1040 ! ! f|r alla diskenheter & RAM: ! 1050 ! ! (C) Luxor Datorer AB / ! 1060 ! ! Tillh|r Systemdisk, UFD-DOS ! 1070 ! +------------------------------+ 1080 ! * 1090 ! * Because of the size of this programme, it should be squeezed when 1100 ! * running, to perform well. 1110 ! * 1120 ! * Ver date / VerRev / Sign / Note 1130 ! * 83-03-17 / 6.00 / LDAB / Orig. LIB Ver 5.0 f|r RAM/skiva 1140 ! * 83-06-23 / 6.01 / LDAB / CE or CR clears error message 1150 ! 1160 EXTEND : INTEGER 1170 ! *********************************************************************** 1180 ! * E* 1190 ! * M A I N P R O G R A M * 1200 ! * E* 1210 ! *********************************************************************** 1220 ! * 1230 Q7=FNInit 1240 Q7=FNSetlin(T) 1250 ! * 1260 IF Scan THEN GOTO 1320 1270 IF FNEnhet THEN Q7=FNFel('Enheten ej klar',T) : GOTO 1450 1280 IF Fil THEN IF FNPrlist THEN Q7=FNFel('Skrivaren ej READY.',T) 1290 IF Fil=F THEN Q7=FNScroll 1300 GOTO 1450 1310 ! * 1320 ! * Scan sequence 1330 ! * 1340 Devnr=0 ! First device 1350 ! * 1360 WHILE Devnr>=0 AND Devnr'RAM:' THEN Selcod=Selcod OR VAL(MID$(Dev$,3,1)) 2390 IF Dev$='RAM:' THEN Selcod=Selcod OR 1 2400 Clusi=2^(PEEK(Table+Entry+1) AND 7) 2410 Dirbeg=16 2420 RETURN F 2430 FNEND 2440 ! * 2450 DEF FNUdesc LOCAL Qselcod 2460 Qselcod=PEEK(-7) 2470 Entry=Qselcod AND 16+8+4 2480 Selcod=30 2490 Clusi=2^(PEEK(Table+Entry+1) AND 7) 2500 Dirbeg=PEEK2(-9) 2510 IF Dirbeg=0 THEN RETURN T ! UFD not active 2520 RETURN F 2530 FNEND 2540 ! * 2550 ! +---------------------------------+ 2560 ! ! Huvudrutin f|r en drive el. RAM ! 2570 ! +---------------------------------+ 2580 DEF FNEnhet 2590 Q7=FNVolname 2600 IF Dev$='UFD:' THEN Q7=FNMfd ELSE Q7=FNVolshort 2610 IF FNBitmap THEN RETURN T 2620 Q7=FNReadfil 2630 RETURN Q7 2640 FNEND 2650 ! * 2660 ! ********************************************************************** 2670 ! * D* 2680 ! * S U B F U N C T I O N D E C L A R A T I O N P A R T * 2690 ! * D* 2700 ! ********************************************************************** 2710 ! * 2720 DEF FNUnsign.(X)=-(X AND 32768)*2.+X 2730 ! * 2740 ! +-----------------------------+ 2750 ! ! Meny ! 2760 ! +-----------------------------+ 2770 DEF FNMeny LOCAL I 2780 ! * 2790 ; Huvud$ CUR(8,0); 2800 ; TAB(Widcomp1) '1 - Skrivare (Printer)' 2810 ; TAB(Widcomp1) '2 - Storlek' 2820 ; TAB(Widcomp1) '3 - Filstatus' 2830 ; TAB(Widcomp1) '4 - Viss drivenhet' 2840 Q7$=FNCon$('V{lj (1,2,3,4) ',13,Widcomp1+3) 2850 I=1 2860 WHILE I<=LEN(Q7$) 2870 IF INSTR(1,'1234',MID$(Q7$,I,1))=0 OR LEN(Q7$)>4 THEN 2780 2880 I=I+1 2890 WEND 2900 IF INSTR(1,Q7$,'1') THEN Fil=T ELSE Fil=F 2910 IF INSTR(1,Q7$,'2') THEN Storlek=T ELSE Storlek=F 2920 IF INSTR(1,Q7$,'3') THEN Filstatus=T ELSE Filstatus=F 2930 IF INSTR(1,Q7$,'4') THEN Scan=F ELSE Scan=T 2940 IF Scan THEN RETURN F 2950 ! * 2960 Q7$=FNCon$('Enhet ? ',16,6) 2970 IF FNDevname(Q7$) OR FNDesc THEN Q7=FNFel('Felaktigt enhetsnamn',T) : GOTO 2950 2980 RETURN F 2990 FNEND 3000 ! * 3010 ! ******************************** 3020 ! * 3030 ! * Skriv ledtext och h{mta svar 3040 ! * 3050 DEF FNCon$(Text$,Rad,Kol) LOCAL S,S1,T$=160 3060 ! * 3070 S=160 3080 ; CUR(Rad,Kol) Text$; 3090 WHILE S1<=S AND (PEEK(65362)4 OR LEN(N$)<3 THEN RETURN T 3360 IF LEN(N$)=4 THEN N$=LEFT$(N$,3) 3370 IF INSTR(1,Devs$,N$)=0 THEN RETURN T 3380 Dev$=N$+':' 3390 RETURN F 3400 FNEND 3410 ! * 3420 ! +------------------------------------+ 3430 ! ! Scroll rutin ! 3440 ! +------------------------------------+ 3450 DEF FNScroll LOCAL Mxname,Index,Lin,I,Opt 3460 ; Huvud$ 3470 ; Dev$ Volshort$ FNUnsign.(Rsi ze) 'kvar av' FNUnsign.(Osize) TAB(Wid) 3480 ; 'VOLYM: ' Volname$ 3490 ; CUR(4,0); 3500 ; TAB(Widcomp2+1) Lhead1$ 3510 ; TAB(Widcomp2+1) Lhead2$ 3520 Q7=FNHelp 3530 Mxname=LEN(Summa$)/20-1 ! Max filename nr 3540 WHILE Index+Mxlin<=Mxname 3550 L!in=0 3560 WHILE Lin<=Mxlin 3570 I=20*(Index+Lin)+1 3580 ; CUR(Lin+6,Widcomp2); 3590 ; MID$(Summa$,I,12)+' '+MID$(Summa$,I+12,6)+' '+MID$(Summa$,I+18,1)+' '+MID$(Summa$,I+19,1); 3600 Lin=Lin+1 3610 WEND 3620 Opt=FNKey(CHR$(13,32,196,198,212,21"4)) 3630 IF Opt=1 THEN RETURN T 3640 IF Opt=2 OR Opt=4 THEN Index=Index+1 3650 IF Opt=3 THEN Index=Index-1 : IF Index<0 THEN Index=0 3660 IF Opt=5 THEN Forw=F : RETURN F ELSE Forw=T 3670 IF Opt=6 THEN RETURN F 3680 WEND 3690 RETURN F 3700 FNEND# 3710 ! * 3720 ! ******************************* 3730 ! * 3740 ! * List filenames on pr: 3750 ! * 3760 DEF FNPrlist LOCAL Mxname,Name,I,Tabul 3770 ON ERROR GOTO 3950 3780 PREPARE 'pr:' AS FILE 1 3790 ; #1,Prhead$ 3800 ; #1 3810 ; #1,Dev$ Volshort$$ ',' FNUnsign.(Rsize) 'lediga av totalt' FNUnsign.(Osize) 'sektorer.' 3820 ; #1,'VOLYM: ' Volname$ 3830 ; #1 3840 ; #1,Lhead1$ TAB(41) Lhead1$ 3850 ; #1,Lhead2$ TAB(41) Lhead2$ 3860 Mxname=LEN(Summa$)/20-1 3870 WHILE Name<=Mxname 3880 IF Tabul=%1 THEN Tabul=41 ELSE Tabul=1 3890 I=20*Name+1 3900 ; #1,TAB(Tabul); 3910 ; #1,MID$(Summa$,I,12)+' ' MID$(Summa$,I+12,6)+' '+MID$(Summa$,I+18,1)+' '+MID$(Summa$,I+19,1); 3920 LET Name=Name+1 3930 WEND 3940 RETURN F 3950 ! * 3960 RESUME 3970 3&970 RETURN T 3980 FNEND 3990 ! * 4000 ! ******************************* 4010 ! * 4020 ! * Read volume name 4030 ! * 4040 DEF FNVolname 4050 Volname$='' 4060 IF FNRdsec(0) THEN RETURN T 4070 I=-2681 4080 WHILE I<-2560 4090 IF PEEK(I)=13 AND PE'EK(I+1)=10 THEN RETURN F 4100 IF PEEK(I)<32 OR PEEK(I)>127 THEN Volname$='' : RETURN F 4110 Volname$=Volname$+CHR$(PEEK(I)) 4120 I=I+1 4130 WEND 4140 Volname$='' 4150 RETURN F 4160 FNEND 4170 ! * 4180 ! ******************************* 4190 ! *( 4200 ! * Read short volume name in sysdir 4210 ! * 4220 DEF FNVolshort 4230 ON ERROR GOTO 4280 4240 OPEN Dev$+'sysdir.sys' AS FILE 2 4250 GET #2,Q7$ COUNT 11 4260 Volshort$=LEFT$(Q7$,8)+'.'+RIGHT$(Q7$,9) 4270 RETURN F 4280 ! * 4290 RESUME 4300 )4300 Volshort$=SPACE$(12) 4310 RETURN F 4320 FNEND 4330 ! * 4340 ! ******************************* 4350 ! * 4360 ! * Find MFD device 4370 ! * 4380 DEF FNMfd LOCAL Mfdcod,D$=3 4390 Mfdcod=PEEK(-7) 4400 D$=CVT%$(PEEK2(Table+(Mfdcod AND 16+8+4)+2)) 4*410 IF (Mfdcod AND 16+8+4)=PEEK(Table) THEN D$='DR' 4420 D$=D$+NUM$(Mfdcod AND 2+1) 4430 IF Mfdcod>=28 THEN D$='RAM' 4440 Volshort$=' ('+D$+':) ' 4450 RETURN F 4460 FNEND 4470 ! * 4480 ! +------------------------------+ 4490 ! ! Sortera in fil+namn i listan ! 4500 ! +------------------------------+ 4510 DEF FNSort(Filnamn$) LOCAL Bottom,Mitten,Top 4520 Top=LEN(Summa$)/20-1 4530 WHILE Bottom<>Top 4540 Mitten=(Bottom+Top)/2 4550 IF Filnamn$'UFD:' AND PEEK(Dosbuf+3)<>255 THEN Mxdirsec=7 ELSE Mxdirsec=15 4830 Osize=CALL(VARPTR(Bitmap$))*Clusi 4840 ! * 4850 IF FNRdsec(Sec-1) THEN RETURN T 4860 Rsize=CALL(VARPTR0(Bitmap$))*Clusi 4870 IF Dev$='UFD:' THEN IF FNRdsec(Dirbeg-1) THEN RETURN T 4880 WHILE Index<16 4890 Antal(Index)=PEEK(-2577+Index) 4900 Index=Index+1 4910 WEND 4920 RETURN F 4930 FNEND 4940 ! * 4950 ! +------------------------------------+ 14960 ! ! Omvandlar sm} bokst{ver till stora ! 4970 ! +------------------------------------+ 4980 DEF FNUpcase$(Text$) 4990 IF LEN(Text$)=0 THEN RETURN '' 5000 IF ASCII(Text$)>95 AND ASCII(Text$)<127 THEN RETURN CHR$(ASCII(Text$) AND 95)+FNUpcase$(R2IGHT$(Text$,2)) 5010 RETURN LEFT$(Text$,1)+FNUpcase$(RIGHT$(Text$,2)) 5020 FNEND 5030 ! * 5040 ! +-------------------------------------+ 5050 ! ! H{mta filnamn ur DOSBUF 0 ! 5060 ! +-------------------------------------+ 5070 DEF FNFilnamn$(Index3) LOCAL Filnamn$=12 5080 Filnamn$=MID$(Dosbuf$,Index+4,11) 5090 Filnamn$=LEFT$(Filnamn$,8)+'.'+RIGHT$(Filnamn$,9) 5100 RETURN Filnamn$ 5110 FNEND 5120 ! * 5130 ! +-------------------------------------+ 5140 ! ! Skriv- och rad`rskydd ! 5150 ! +--4-----------------------------------+ 5160 DEF FNProt$(Index) LOCAL Prot$=4,Protbyte 5170 IF Filstatus=0 THEN RETURN ' ' 5180 Prot$=' ' 5190 Protbyte=ASCII(MID$(Dosbuf$,Index+1,1)) 5200 IF (Protbyte AND 1) THEN MID$(Prot$,1,1)='S' 5210 IF (Protb5yte AND 2) THEN MID$(Prot$,2,1)='R' 5220 RETURN Prot$ 5230 FNEND 5240 ! * 5250 ! +-------------------------------------+ 5260 ! ! Filens storlek ! 5270 ! +-------------------------------------+ 5280 DEF FNStorlek$(Index) LOCAL Ribad,Filesize,Stor6lek$=6 5290 IF Storlek=F THEN RETURN ' ' 5300 Filesize=CVT$%(MID$(Dosbuf$,Index+2,2)) 5310 Storlek$=NUM$(FNUnsign.(Filesize)) 5320 IF Filesize THEN RETURN SPACE$(6-LEN(Storlek$))+Storlek$ 5330 ! * 5340 ! * Old DOS file size computing 5350 ! * 57360 Ribad=Clusi*(SWAP%(CVT$%(MID$(Dosbuf$,Index,2)))/32) 5370 Filesize=Clusi*CALL(VARPTR(Stor$),Ribad) 5380 Storlek$=NUM$(FNUnsign.(Filesize)) 5390 RETURN SPACE$(6-LEN(Storlek$))+Storlek$ 5400 FNEND 5410 ! * 5420 ! +-------------------------------8----+ 5430 ! ! Huvudrutin f|r l{sning av filnamn ! 5440 ! +-----------------------------------+ 5450 DEF FNReadfil LOCAL Status,Index,Filnamn$=20,Dirsec,Rad 5460 Summa$=SPACE$(20) 5470 WHILE Dirsec<=Mxdirsec 5480 IF Antal(Dirsec)=0 THEN GOTO 55909 5490 IF FNRdsec(Dirsec+Dirbeg) THEN RETURN T 5500 Index=1 5510 WHILE Index<=250 5520 Q7=ASCII(RIGHT$(Dosbuf$,Index)) 5530 IF Q7=0 OR Q7=255 THEN GOTO 5560 5540 Filnamn$=FNFilnamn$(Index)+FNStorlek$(Index)+FNProt$(Index) 5550 Q7=FNSort(Filnamn$): 5560 ! * 5570 Index=Index+16 5580 WEND 5590 ! * 5600 Dirsec=Dirsec+1 5610 WEND 5620 IF LEN(Summa$)<20*(Mxlin+1) THEN Summa$=Summa$+SPACE$(20*(Mxlin+1)-LEN(Summa$)) 5630 RETURN F 5640 FNEND 5650 ! * 5660 ! +----------------------------------;+ 5670 ! ! L{s ett tkn ! 5680 ! +----------------------------------+ 5690 DEF FNKey(Opt$) LOCAL Key$=1 5700 ; CUR(23,Wid-2) '*'; 5710 GET Key$ 5720 ; CUR(23,Wid-2) ' '; 5730 RETURN INSTR(1,Opt$,Key$) 5740 FNEND 5750 ! * 5760 ! +---------------<-------------------+ 5770 ! ! Fler utskrifter ?? ! 5780 ! +----------------------------------+ 5790 DEF FNMore 5800 IF Wid<80 THEN ; CUR(22,0) SPACE$(Wid); 5810 Q7$=FNCon$('Fler utskrifter (J/N) ? ',23,0) 5820 IF (ASCII(Q7$) OR 32)=ASCII('j') T=HEN RETURN T ELSE RETURN F 5830 FNEND 5840 ! * 5850 ! +------------------------------------+ 5860 ! ! Skriv ut hj{lptext ! 5870 ! +------------------------------------+ 5880 DEF FNHelp 5890 IF Wid>=80 THEN GOTO 5940 5900 ; CUR(22,0) 'PF5=F|reg}>ende SH+PF5=F|reg}ende enhet'; 5910 ; CUR(23,0) 'PF7=N{sta SH+PF7=N{sta enhet >'; 5920 ; CUR(21,0);STRING$(Wid,ASCII('=')); 5930 RETURN F 5940 ! * 5950 ; CUR(23,0);'PF5=F|reg}ende PF7=N{sta SH+PF5=F|reg}ende enhet SH+PF7=N{sta enhet >'; 596?0 ; CUR(22,0);STRING$(Wid,ASCII('=')); 5970 RETURN F 5980 FNEND 5990 ! * 6000 ! ******************************** 6010 ! * 6020 ! * Felfunktion 6030 ! * 6040 DEF FNFel(Skriv$,Kvittera) 6050 ; CHR$(7); 6060 ; CUR(23,0);SPACE$(Wid);CUR(23,0);Skr@iv$; 6070 IF Kvittera=F THEN Q7=5000 : WHILE Q7 : Q7=Q7-1 : WEND : GOTO 6130 6080 ; ' - Tryck '; 6090 Q$=' ' 6100 WHILE INSTR(1,CHR$(24,13),Q$)=0 6110 GET Q$ 6120 WEND 6130 ! * 6140 ; CUR(23,0);SPACE$(Wid); 6150 RETURN F 6160 FNEND 6170 A! * 070 IF Kvittera=F THEN Q7=5000 : WHILE Q7 : Q7=Q7-1 : WEND : GOTO 6130 6080 ; ' - Tryck '; 6090 Q$=' ' 6100 WHILE INSTR(1,CHR$(24,13),Q$)=0 6110 GET Q$ 6120 WEND 6130 ! * 6140 ; CUR(23,0);SPACE$(Wid); 6150 RETURN F 6160 FNEND 6170 B70 IF Kvittera=F THEN Q7=5000 : WHILE Q7 : Q7=Q7-1 : WEND : GOTO 6130 6080 ; ' - Tryck '; 6090 Q$=' ' 6100 WHILE INSTR(1,CHR$(24,13),Q$)=0 6110 GET Q$ 6120 WEND 6130 ! * 6140 ; CUR(23,0);SPACE$(Wid); 6150 RETURN F 6160 FNEND 6170 Ba i)d$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)n$! !)x$! PROGRAM F\R S[TTNING AV DEN !)$! BATTERIDRIVNA INTERNA KLOCKAN. !)$! DELAR AV PROGRAMMET M]STE VARA !)$! I MASKINSPR]K. !)$! !)$! LUXOR DATORER AB !)$! !)$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! " I r  %_;   ޜa@;ސ8"0 ,ݖޟ 96 / :  ;@JT^ HUVUDPROGRAMhr | ޵D!  - І KALENDER OCH KLOCKS[TTNING ІO= Ѓ]R: 19ЃM]NAD: ЃDATUM: ЃTIMME: ЃMINUT: ЃSEKUND: ЃVECKODAGSNUMMER: $INMATNING MED KOLL AV MAXV[RDE&߫d%0߫M/:/'ނ/'邕D߫9N9'ނ9'X߫CbC'l߫MvM'<߫WW'<ޫfaa1a7HC '킠C'M '킠M'9 '킠9' k7k/ '킠/'% '킠%' k(ka'W '킠W' kS[TT KALENDER+k+u;,%',/',9',C',M',W' R[TT TID ? ([R TIDEN RIKTIG (J/N)? _; <)*݊ 4 {>{n{NH{R\?f:DATA SATSER SOM INNEH]LLER RUTIN F\R S[TTNING AV KALENDERp+z*$62,134,211,54,62,133,211,54,227,227$#1,224,4,62,6,211,54,203,1,62*)#14,31,211,54,227,227,62,13 4,211,54$#227,227,16,235,14,7,6,8,62,6('!211,54,203,6,62,14,31,211,54,227+*$227,62,134,211,54,227,227,16,235,35!13,32,229,62,5,211,54,201>InpTextLengVarSlask]rM}nadDatumTimmeMinutSekundDagzy y% / 9 !C:!Mj!W!a!kzuy{z,14,7,6,8,62,6('!211,54,203,6,62,14,31,211,54,227+*$227,62,134,211,54,227,227,16,235,35!13,32,229,62,5,211,54,201>InpTextLengVarSlask]rM}nadDatumTimmeMinutSekundDagzy y% / 9!e**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; UFD ABS`! +݊ , R, ǰ,금 w! (EGIKMOQSUser file directoryFel vid laddning av UFD.ABSS`! +݊ , R, ǰ,금 w! (EGIKa START Start av ISAMDEMO&!1982-07-20 M Rudolfson Id`-Data ( ;2Ѓ ISAM-DEMOЇ<T-FЃSTARTЇ6PЃ TangentenЁPF1Ѓanv{nds alltid+ZЃf|r att avbryta en funktion$dЃProgrammet laddas.#nЃEtt |gonblick ...x޵p7݊#"    IDEMO1.BACExtenbdE3xtendy znv{nds alltid+ZЃf|r atd8 >fRp!n Record lengthxH 2z޵縼]& ՂSpecify indices ! 7Ձ ފ= #,##,Isam file : \##,Data file : p##,Record length : 7##,"Name Start Lgth Type Dupl.޵縼 #, ;#"#,ք 0;",#,Յ ;*6#,օ@ ޜ ;4@#,օx; Y;N;JT^hinitiate filesrt\\ޟ 1Ձu#Ձ,/ wՁ|pՁՁ\Ձ#Ձ, f!#Ձ, //޵縼-'#Ձ,#Ձ,*޵ޟ#Ձ, Ձ IDEMO1.BACget index data&ւ@ * Index no ;*)&"Name of index 02:>Ձ D> N޵ޟ-'X  2*b(lKey start position ;v2z 2 z  Key length ;J2 zޜ 2u. / /z  Key type (;+޵⸼ ;,;);mR R޵⸼!R ݵ222! ޟ (Duplicate keys (Y/N) RR0*RY(= RN4>Herror processin gR \օ8;2 փ` ;f2ޜ '@Yrp ;zBad name ! ;Bad number ! ;Bad key ! ;Duplicate name !;unpack filename D0">  ք0>ݵ2޵2R(R$>.޵Ḽ8R /BՂ DR :޵8$#Lւ@Ձ 088䖽V޵帼`> R>j )tR/. ޜ~޵฼>RJ>5Rޟ R>Ձ Aݵ2zz Ձ !. 0  _ _ ޜ   Bք@ ;** Isam file creation ver ;0 ;.0 **4"P"";R޵( 2ߵ2<FR'zzݖݵ2 P 'ARTIKLAR','ARTIKLAR',50'ARTNR',1,7,'A','N''VARUGR',41,2,'I','Y' ''* izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zHz Rz\ fzp zyyy ~ y x y yyy /zDI UA * izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zHz Jid&$b+ &ISAMDEMO Demonstration av ISAM-filer&!1982-07-20 M Rudolfson Id`-Data (2ARTIKLARޫ߫" < ߫"F)P$------------ Huvudmeny ------------Z dn݊Gxޖv1,------------ Skapa ny ISAM-fil ------------ 0Ѓ Den befintliga ISAM-filen kommerЃ att raderas.4[r detta riktigt (J/N) ?ޫN"X""J "N ; DEMOCRE.BAC72------------ Kolla om ISAM-fil finns ------------ " ),z6ޫ@-Jߊ T ^ኽ hr2|------------- Avsluta programmet ------------ xs0 V#M޵,2,C4 mS7$Ska posten lagras (J/N) ?ޫJ. 8SB","L"NyV"J ;s ` Yj1t#޸,Y ~ޜ߫WyS # 4O݊߫IS(ЃS|kningen kan ske efter: Ѓ1 Artikelnummer Ѓ2 Varugruppskod5 V{lj alternativ (1/2) :ޫ1' S!*"1޵cARTNRi1"4"2cVARUGRi> ;^H)RЃ S|kning efterЁcs4\Ange s|kbegrepp :cJf pSDz"cc~c~cg ;lc""""'/"'1"#޸,Yi-%x   Y Y } + V{lj funktion :ݫǟ   ៸ X $ . 8 #޸,Y҇B I%L "   V D` j #޸,Yчt %~ "     9  @  (  S< Ska {ndringarna lagras (J/N) ?ޫJ  S "" "NS "J ;l ( ( Y2 #޸Y < %F yd   W  P SZ d )) n 8x Ska posten raderas (J/N) ?ޫJz  S "" "NS "J ;p 3 #޸, ޟ ߫   X  S $   ݊߫ S) ЃListningen kan ske efter: Ѓ1 Artikelnummer Ѓ2 Varugruppskod5 V{lj alternativ (1/2) :ޫ1    S "1ARTNRi, "2VARUGRi& ;h 0 : #޸,YiχD YSN 5X #޸,Yiчb YSl v   ) 5 P  ޵,2O! (,Ђ;(  ,s,, ;    )*% S NS :  ޵,2!* (,Ђ;54 ,ފ% ,C,, ;4> ,ޖ$,,C,C;H R \ f '%%,'޵,2$',2O(.',C,, 8'7B',C'/L'V',C'1`' j'22 t'~'N'E%*'޵'޵,2',m ',""%3'%ݖ"% "%ޟ "%ޟ%',J'0"'ߜ%'2"'᜵E'",,~,~, ,C"' ( ( N y zZ*NR4N++>N޵5$HN+ +RN7 \N 11fN9," -> Pil h|ger"pN8," <- Pil v{nster"zN199,"PF8 Pil v{nster"N24," CE Radera raden"N192,"PF1 Avbryt""N!196,"PF5 F|reg}ende f{lt"N198,"PF7 N{sta f{lt""N!194,"PF3 F|reg}ende post"N195,"PF4 N{sta post"N193,"PF2 [ndra post"N197,"PF6 Radera post" NTN225]N555555F5V5s5C+N*$'Artikelnummer',1,1,7,0,7,0501,0515)N("'Ben{mning',1,1,25,0,25,0601,0615+O*$'Styckpris',3,0,99999,2,8,0701,0715.O-''Antal i lager',3,0,9999,1,6,0801,0815-O &'Varugruppskod',2,0,999,0,3,0901,0915$O .O޵52{U8O5s555555F5V BOP5V5V✲LObVOީݵS`Oߵ jOtO~ONY#EY+O O ; Om O OO OC):O5O5; OmO O*y'PTryck p} RETURN !;& P || +|ኆP+|⊽SP ;(P2Pq(Y+ R%.%_;%;ީ]X!R%݊ݖœ""%S%݊߸! S" _  S޸8 S"ݵ%œ*S4St,kA+),z^>Sdd.ޟЂ_dd.dd.;ݸHSRSs"j&),zA,\SЃ;(fSߜpS( ; zSSS'v"A'X'p''S5SKSSSSM!-D"X'p'+$SݸSީSݸSShy-_zX'p'"TA T'#T$T"ީ.Tݸ8TBT-zX'p'')."LT VT' `T  1jT  "" . 0""tT".݊ ".""~T"000000". "Tީ -""TީTݸTT*#yzzZy T"T޵5A5 ,T_ǀ5( = T TTT5,,zA'X'p''Uޖ0" UUU!a.z2U HUVUDMENYVV V5"V"Skapa ISAM-fil",V "Inmatning")6V(""S|kning - [ndring - Borttagning"!@V "Li!stning p} bildsk{rmen"JV "Avsluta" TV^V޵5T hVrV5ߡ;|V5 5ЃV5 ݸЃV:VV{lj ett alternativ (0 - 4) ޫR&V"ݮޟx ;V"&V"' Vݍ V޵5 Ɔ VV Y$Y Y޵,2d4Y,Fd,Fd.ޟЃ,s;*Z,V,,C #ZZ Zx%o(Z޵2M/2ZVCHR\3PName of data file ;.dat(Z2d8 >fRp!n Record lengthxH 2z޵縼]& ՂSpecify indices ! 7Ձ ފ= #,##,Isam file : \##,Data file : p##,Record length : 7##,"Name Start Lgth Type Dupl.޵縼 #, ;#"#,ք 0;",#,Յ ;*6#,օ@ ޜ ;4@#,օx; Y;N;JT^hinitiate filesrt\\ޟ 1Ձu#Ձ,/ wՁ|pՁՁ\Ձ#Ձ, f!#Ձ, //޵縼-'#Ձ,#Ձ,*޵ޟ#Ձ, Ձ IDEMO1.BACget index data&ւ@ * Index no ;*)&"Name of index 02:>Ձ D> N޵ޟ-'X  2*b(lKey start position ;v2z 2 z  Key length ;J2 zޜ 2u. / /z  Key type (;+޵⸼ ;,;);mR R޵⸼!R ݵ222! ޟ (Duplicate keys (Y/N) RR0*RY(= RN4>Herror processin gR \օ8;2 փ` ;f2ޜ '@Yrp ;zBad name ! ;Bad number ! ;Bad key ! ;Duplicate name !;unpack filename D0">  ք0>ݵ2޵2R(R$>.޵Ḽ8R /BՂ DR :޵8$#Lւ@Ձ 088䖽V޵帼`> R>j )tR/. ޜ~޵฼>RJ>5Rޟ R>Ձ Aݵ2zz Ձ !. 0  _ _ ޜ   Bք@ ;** Isam file creation ver ;0 ;.0 **4"P"";R޵( 2ߵ2<FR'zzݖݵ2 P 'ARTIKLAR','ARTIKLAR',50'ARTNR',1,7,'A','N''VARUGR',41,2,'I','Y' ''* izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zHz Rz\ fzp zyyy ~ y x y yyy /zDI UA * izP  Ђ;޵D+ D;*޵UXW4F >HLiatInputCreateStringx ~y"y(z2y8y>zHz "#"  LIST CRE EDIT 2.1 1982-11-18dnx޸nyckel$.ISM huvud$.DAT޵4]r S  Skapa ISAM-filer Ver 40 .0 " T=T="   !*! ,%6_; @  J ޜ?T; ^hݖޟ 9r " ǀ  ;|:Z!!y !` ޜD _ (=  !!!""!z5&21 36 39 41 42 43 48 132 147 210&݊FEL 0$0ޜ 7Oe : DЁ>< ; N X bT;lݸ޸v'Hitta"r ej filen'%$'Checksummafel vid skrivning''Filen skrivskyddad''Skivan full''Enheten ej klar''Skivan skrivskyddad''Fel i biblioteket''F|r stort heltal''Felaktiga data''Felaktigt tal'")"pI"y")!yJ" ޵ Skapa index nr:4* Namn p} index:4>2H卽 "R2\ Startposition:1'&fݖ.݊HMpz210210ni ( / /2 L{ngd p} "nyckel:T',ݖ.݊HޜM210}132$c.8B /L Indextyp (B,A,I,F,D):ޫV!`BAIFD" ݍj147t+~BAIFDޟ /Dubblett-nycklar (J/N):ޫJNݍݍ147G"(=NJޟ ޜ" 芽 Skapa index nr4 Namn p} index:7 ޟ(2 <4F޵N߸9PN_NNamn p} Nfil:" mZN_N_S0dN_.݊N_N_N$nxN_N(N_:ݍ ooP__:ޜuuu.ޟ u__.ޜ"uu" u4ޜ߸$ Postl{ngd:O ‰'H"Hݖ‰.݊M,6@132RJT1478^nhr |;" 1#޸,4 o u ޜ/H/޵N#޸,N޵N#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErro"rErrcCodeKeyDummyNumberSizeIsamnameDriveKeys . $V 4yH"Ny _"o!#u* R "I"Q#y#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErro22ABC 80 Dator H ABC 800Dator, komplett 5@H ABC 810Bildsk{rm, f{rg } H ABC 815Bildsk{rm, monokromatisk  ABC 830Flexskiveenhet, 160 kByte@H ABC2 832Flexskiveenhet, 640 kByteZ ORD Ordbehandlingsprogram ;z DIAGRAMDiagramritningsprogram Hz GRAFIK Grafikeditor z ABC830 Flexskiveenhet, 160 kByte@H ABC2 465456 !@ 123 123  789 789 vv fdsa 12 @@{ uytyu uyt dh jhgf jh2gf 543 543 b dsfa fds  fgdssaffdfds hgfghf hgfhgf - 432432 4324223432 XX 786678 7866875 DDc 7865567875457864  k 98798 8765 [l 6543654654 Lx# 432143243243223241  <`+0 <`+ B <`+<`09`<0+90`+< 765763476437463764376476543764 RiH 6543 543 )h jhgghjjjhg 2 jhgjhg jhgfjghfjhgf S# <`+<`09`<0+90`+< 765763476437463764376476543764 RiH 6543 543 )h jhgghjjjhg BBARTIKLARDAT2ARTNR VARUGR )BABC 80 2ABC 800dABC 810ABC 815ABC 830ABC 832aDIAGRAMGRAFIK /ORD B2d/aB98798 #<@+0 U<@+<@09ANDERS [DSFA FDSA FGDSSAFFREDRIKHGFGHF JHGF JHGGHJJ JHGJHG 2KALLE dOLLE PELLE UYTYU B^789 R R RbEb]ݵ I 8#0)) Igen J; ݵީ)Helkopiering Ver. 1.03/(c) Luxor Datorer AB / BJ9 ; bCMM,,ݸ,޸,ݸ,,ݸ,޸W MF0:W Fr}n-enhet: ;4AWe WW aa "Felaktigt enhetsnamna ka:W Fr}n-enhet: Wq MF1:q Till-enhet: ;4Aqb qqmaa "Felaktigt enhetsnamna {a:q Till-enhet: q(Antal sektorer: (RETURN -> hela skivan) ;5V 1234567890 aa 65535aQa'#Ska q formaterasbJKqA嵁 Felaktigt tal- 9*r**Y+**+ )5-V{grar formatera remote disk!|)ᜈ ވ k`-ᜈ?q b formateras. - ݍ ݊ ޟ Fel vid formatering)!y L{ser sektor  -  p} W C,ky f` Cbޜ(=Mߊ)'W - L{sfel uޜA!y Skriver sektor  -  p} q,{t CޜMc` ߊb)'q - Skrivfel ޜz)uyVerifierar sektor  - ,kv f` Cޜ(=Mߊ:'W - L{sfel bޜݵ,{ f` ߊ)'q - L{sfel MMCޜVer.-fel ޜlh$cB$1))   p} sektor b ;ޜ(;V"Qz y Ё>  <T ݊T;ݸ yՂ)a'$z T;ݸ'; /  9;TPb : 'T-¼;  - T-;ݸ4Q)/  yݵ)   y (/)?  z b 1V,+T; ! ޖ()#)ފJߊN5 02 I i   y햽!++c!b # ++ T{- G ߜ     - - `p#RAMPMRP < 7 y !$y`--݊ݸb y`-ߜsݸݸ$m`--݊ݸm`-ߜ-$w`--݊ݸw`-ߜ-ᐽᜈޜǀ݊ݸ߈݊ީ޸,ᜈ?bީݸA72yyyy2 39޸,3(O 0>0>0>0>ɶ (= (= '(= 0(= + ǀǀ刧函ݸ8 3zz !I!!!b "yyA"yyb"z"zPy yzyy""yNFީީ޵ '  '    _AV -޵,  "$ސ޵$$" "ޜ$b",݊ީ-, ;a  * ; ;", ?$,ޜ;&&ݖ&ݵ& (((ǀ'(ꊽ$( ޵ݵ,ީ$(劧(抧$(Pb $ . $ (:޵"ݖ+ $ޟ$" $$" ݵ, &ݵa &**݊< 1*ލ!! CUCHEXCDCE*ߡޟݵ&_AbVݵߵ$& ݵ,&--...P ..,.", ,,A&.H .݊ZP ..,$ ..݊&b0&9 ; , $ޟ & $ _AVe 0 .00.  $ޟ$P .. ߟ $ޟ $ޜ G$ޜ$ݵ,& ݵ9P b 0 FPH ., , -  00ݐݵ0;a  * ; ;0; ݊c -Sޓ ߜ-, ߓ ߜ-ޜ,  ᜸,b, ݍ ,, Y" SR) $yyzz,{{lRT( xPS8,,9,,8,,9,,8,,9,g4|SǀbSR,ǀTP <);݊  0; ;" SRz  #)/9CMWakq{bR,ǀTP <);݊  0; ;" SRz  #)/9CMWakq{rra  addopt.absՁ##Ձ,ֈ to start table!#Ձ,ֈ OPTROSH REL!(#Ձ,ֈ~ to terminate2 to terminate2! al:| QI*********** TEST AV 512K BYTE MINNET P] VU-KORTET ABC806 ***************SI*********** med 4K blockning ***************#(,ߜ,ݸ,ݸ-2e78F Fel p} adressk i krets(?)M Prova med att byta.Minnestest OK.<din    sވ IHxǀ ,12}@ ,11 ̂,10툽 ,9刽 ,8ሽ ,7߈ ,6ވ ,5 y )!Y!޵-*ޜݸ!   ޟ+,169 !!;ݵ+@j+ǀE++rJ++U-O BLOCK+,+ޜ+ݸTީY)"I"q"""" ޵k0,,,,,>,,,4,,,,y,,!,,,,,UC,޸,,,,ǰ,,,x,,ǿ,,y,,, 08ݸdTsTs1MemtestAdrKretsRawColBitSdataLdataBladrXmskrivXml{sNy4Fr}nTillXmemblAntCpubl  y  !+!8yUC,޸,,,,ǰ,,,x,,ǿ,,y,,, 08ݸ` a startVersDosversSepoldSepmellSetmelldrSepsupTypSetsupdrOffsDevConoutSepDrSetSetoldBiaSetbiaTableEntryClusiLinkDrdescClcSettimeCodTbufList2200BdPtrBcdClickGCodTbufList2200BdPtrBcdCli x>RnxA1)$* DT .BAC * While not squeezed* DRIVETST.BAC **(#* Made by G|ran Nordenborg+&* - - Symtek Software AB - -GB** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **$*+.&* Rev. date / Rev. numb / Sign / Note+8&* 81-05-12 / 1.00 / GN / Main4B/* 82-01-13 / 1.01 / B.J. / Luxor Datorer0L+* Formatting added, 6 Drives MUX-selection4V/* 82-02-09 / 1.02 / B.J. / Luxor Datorer4`/* 82-04-29  / 1.03 / B.J. / Luxor Datorer#j* Drivesel 0-7 instead of 1-84t/* 82-08-23 / 1.04 / B.J. / Luxor Datorer9~4* 84-01-26 / 3.00 / BJ / Winchester testing>9* 84-03-30 / 3.01 / BJ / HD formatting bug fixed4/* 84-08-06 / 3.04 / MK / Luxor Datorer>9* 85-06-12 / 3.05 / MK / FD formatting bug fixedGB** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ***$dj* Machine code area +**3 ݵ ** Switch 0/1. 1 -> LDAB burn in test gear* * FNEND0(+******************************************2*<* Main programF* PZ*dq Cn* x\K  N  ~v* * FNENDGB******************************************************************=8* F U N C T I O N D E C L A R A T I O N P A R T*GB******************************************************************!* Main test routines* "m "#),/5;AGM6#^@SY݊_ JeT*^2h-********************************************r*|* Write a sector*  !- k)q/w;}G 2L q } wqw݊ }ߣ}q5wA}M) e* Read only; don't writekSY݊_ e*3&.*********************************************0*:* InitializationD* N X*bީݵel* vݵ _޵S*޵ߵ*%* Reset all controllers* ݲ ᲇ 䲇 貇 벇  * 4% >.H*R \ߜ f p*#z޵#* Commands to controllerk1ǀ&* Xebec read with no error correction* * Special commands*0߰"* Controller buffer fill commands ݲ @ ǀ **޵'!* Status signals from controller ߵ- 3 Y $ ǀ9 . e8 *8B  ,{,,޸,,,/,O,,޸,2L ,W, ,,,,,,,ݸ,6V ,޸,,0,,y,,ݸ,,,Ǣ !` (,ݸ,ݸ,j *'t "* This was code from FILLCONT.ASM~ * ߰?L ? N ! ?; N ?N *7 Ѓ& Drive-test  Ver. 3.05, 85-06-12  O6 OЃ&======================================O$ OO(= Prod.  > O *   VSA36C72.55AY* Epson- CSA36C72YCentronics-interface *.( Printer option (PR:Y) ;c2 ccY< c:݊ PR:YYF Y޸޸P Z d 1. 40 track DDn 2. 80 cylinder DD DT DSx 3. 77 cylinder 8" DD DS+ #4. 320 cyl., 4 sid. (Rodime RO 202)' 5. 306 cyl., 4 sid. (BASF 6186) 6. Other Hard Disk ' Type of drivesޫ߫ * ᓽm * Hard disk  ޵s mss& First driveݫsݫy* Last driveysss *  O  *#" ފݵ쵅'-#, ߊ޵쵅O,%6 ޵L.%@ ኽ?$%J ⊽1$T ㍽^ * h Or *| Number of headsޫޟ, Sectors/track ޟ/ Number of tracks'aޟ $ > ޜ ޜ ( Card selectޫ?  Skip "Write" (N); cc c! jJyYc e *  O S ЁЍRead test only!/ ЈЁЍData on disks will be KILLED!& %0 First sideݫݫ(: Last side&D First trackݫݫ)N Last track'X First sectorݫݫx*b Last sectorNl **v Random write/read (Y) ; c;c c, nNcqw ; : ; - * No formatting when read only P;  Formatting (N) ; cc c jJyYc  * O Func;  Si;  Tr;  Se;  Stat;  Sense;  Note;*  Dr;4 Time> 6= H * R \ f *p ޵z ݲ  * ݵ ݵ * ,ݸ ,ݸ ,ݸ * y+ ޜޜߡ  * e* $> Error.8*BGLB*****************************************************************V*A`<* S U B F U N C T I O N D E C L A R A T I O N P A R Tj*GtB*****************************************************************~*,'* Get an argument from operator*Vq+.!/A/i/1, - (); c&cc = c8c'c'Out of range...; ` c'*Illegal input...* */******************************************(*#2* Log error on console<* FY! PޜZd Errcountern)x5AMS_ e*-(****************************************-(* Print an error line on console*"//,;Ё;$6# Rd;Wr;@;J;T;^;h;.ry;|;C;.;:; ޜ ߜ<; e*;6******************************************************(#* Log all errors on console* .!*ߜ<&* 0 c6:Є%'P' for PRINTER, for display ; D cN<;$XcpcP eb޵ lߜvH  cc  ޜ>6Є%Press to cont or 'I' to init... ;  c1cIci ;c (; e*+&************************************* *-(* Wa it for test controller ready **1Y1114,>*Hݵ'_ RS%\9'e(f9'݊ep z*+&************************************!**-(* Calculate command bytes to controller* #2)2I2q2222!# mk kݵ ޵  mߣވ ނ?5d"dޜm )sy$ m ,K. Try numberSide5, TrackA, SectorM, ;(8#Read Write B 8tL>(VAM壧ވ# M䈧 `>7jP5Aߣ ǀAMM t>~54AM15A݊@Single Density0 ᣧ  O>,A5$M * Winchester  >)m )  A9| e* 2-****************************%*****************6(1* Convert a sense byte to an ASCII string2*<B00A0)2 Fm# P*Z Cont busy dcn߈c Ill cmdcxሽc Lost dtac刽c &CRC errc툽c No AMc  c Wr faultc@c Wr protcǀ Dr not rdyc c)$************************************:5* Convert a sense byte from Xebec to an ASCII string'*3:A0 4I4z Host ad busy*%0* Xebec error type 숵* Xebec error code"Unknown,*6ޜ@*J> Type 0 error codesT㖽^ޜ '5C(SZhNo errrNo index|Seek errWr fault Dr not rdy  Recal err*> Type 1 error codes疽$ޜ !/;BSahoID errData errAM err ) Sec not fndSeek err  & Corrble err0Bad trk: Format errD*N> Type 2 error codesXޖbޜlIll cmdvIll addr*> Type 3 error codesߖ*ޜ RAM errProg err ECC polyn err**%*************************************#* Log errors on printer* *q0 Y޸#޸#޸#޸#޸#޸S #޸H* * * * * * * * *+ * D R I V E - T E S T * * * * * * * * * **#޸84ފ-#޸%Single side, 40 track, Double density8>ߊ-#޸%Double side, 80 track, Double density Disc formatting < - -ys" ,޵(mߣވDrive ފ5ߡޜߊsߡޜ * For HD*' ݫ5S9* Formatting takes some timeSY= _,# Ёީ﹈ c6  *4*>)H$***********************************R*/\** Fill controller with formatting dataf* p 6zݵ߸|&ݫݫ޵?7S'݊_7,?  *(#***********************************+&* Fill controller buffer with data*q3_a- #)* Fill controller buffer9 $e.*88B*(L#**********************************V*`* Stop motors and waitj* t3l~ݵǠ+,,,ݸ* Reset controllerݵǠ *.)***********************************9******2-* Send command to controller and wait for it*932yyyy2 3,<3(O 0>0>0>0>ɶ  (=   (=  '(=  0(:= ( + 2e<*F+P&*************************************Z*dzy4J/2n##޸ Rd;#޸ Wr;x#޸ ;#޸;#޸;#޸;;#޸";+#޸,^;#޸;;?#޸B;.;: e********************** 8 }ޜ}"<}ޜ } ,qޜq6qޜ q @wޜwJwޜ w Tޜ^sޜye her|yStartPutcmdCodProdInitializeWritetestLogerrorTruePrinterrReadtestFunc=ReadSidReadsidTrkReadtrackSecReadsectorCommandStatFaultDataFalseWriteWrtsidWrttrackWrtsectorLastsidFirstsidLasttrackFirsttrackLastsectorFirstsectorDrivetypeRoCsRstTabulHeadlineLineLastlineTrfhcXreadSpeccmdFormatFillPi>ordyRtrcRdytrfBusyMenyheadPrInputHdLastdriveselFirstdriveselMaxsidMaxsectorMaxtrackCscontSecstrkHeadcylMaxerrorErrorTryDriveselTextLowHighDefaultPerrlineErrnumberSensePrinterlogErrindexWaitstatCardselSignal\statCmndCmd?BordDriveCscntHiLoMotoffCntcmdFillcontSensehdrdErrtypeErrnrPrintererrlinePrerrtypPrerrtyphdrdFunctionSensebitXerrMxtrkFormatfillInpdataBufTimeHourMinErrrorList4000NexdrTracklastWtrackNorndWrtsecLastsecFirstsecWrrtrackWt@trackGetyWrtrackDrivselFirstselExtendIntegrej i 9!#")Y"/"5";)#A #G#My#S1$YY$_$e$k$q%wI%}%8%!&'i'i&&'(1( !I(m((( )Q)) ))-*'Q*-*3*9*?)AO+YZ+czm+s+y!,,,-a---99.e.y .a..18y0.) 6y G5X i 6!7 %wI%}%8%!&'i'i&&'(1( !I(m((( )Q)) ))-*'Q*-*3*9*?)