SYSDIR SYS BASICINISYSADDOPT ABS DEVDES REL OPTROSH RELOPTROSL SYS CMDINT SYS`SYSTEM ABSCOPY ABSCOPYLIB ABS@DELETE ABSDISKCHEKABS DOSGEN ABS ERRCOPY ABS LIB ABS`REPROT ABS UFD ABSDRINI BACDISKCHEKBACLIB BACPREABS BAC @REPROT BAC ` SETCAL BAC SYS BAC `UFD BAC PROMSA BAC ` PROMSA BAS `KONVERT BAC INNEH]LLBAC 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 variabel00DEVDES 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"P (RP 1Ճ1͂hɁ/`!}[!"Ɂ*{"!"{!"i*q`~6#~6J#~6J!}6#!>1~/w/w> 14#y>~/w/w> y@ 4D>y~/w/w>y >P=<2!}R?"i!Aq6#PXE ^!AV{:7%7ˮ!' / 0:G`h9 !Ձ`!Q~<( } >3}AwGnf##Nɟ9>9x*W:}(?14PC>0#s::} :>*Ʉ!"iՂ!"iɧ(=(=(b(=(#=FHF$6F!F*-F*0RAMCMDINT SYS Abort OPTROSL SYS<*x?g: *m`##~P:}W :?>A8 2ɟ:WOxpW{]x(4Ɏ2˸)(%?v({<.=  i_ {<.= 2{ ~O{4Cy!}zo0$~)(?P z>  <12{G :}>(4yRAM!#~7 ~z>?8v͏>8m{c.s 1 :WOxpW{]x(롩 #x/` !x ͚/͚/{ 2˸͏(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~͏(?z>  <12{G :>(4y:W`/&.T] 66͚Ϳ@8= &,a .<(=> :2/o= a0.6$Ϳ=.w>2~w$w%ww ,>-ORAMB >!_>-*.~<(= #,N,,V,~/ ,^,~/ , (G`MK#(>7*~,"CS2!=ʖ=k ==ʅ K[:[ (:_#~K5>Now.V#~_V &ɀo&N{+z`@s#r[ͅ!6[!:(I <(C <_c "{z0*"!55 .w ,w:@_!!F?DwxNo&4~o-~iwyoO~axpNo&4nw-w}bowyMoqOxpBo&4#4:@ !  !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ͱ.Oͱ.Oͱ,` )>#8.~.~,~͍)> ]Ч78zy< *|(z]> ]͉p͉xG ͍> &\͍xpGAo&~<> [>&#z>K>Jos,r>AoF>OG>2A8w`7>2+~2ͩͅ8~*o B͋8)Pڽ*|~b ą8V! w#2!o0$~(,ͅ82O G* #y y=Oh!>w0!4~0:((% : <>(< :<2.7>` ?>& >8:n` 4!wͩͅ8~O_ K W!w _.w>_V " o g+" !"#"!^,Vͅڑ.  .w>.w:@_!BA ( yOy[( x(!z7>2ͅ?*.~,,,,,,72P!>6>& 2ͅ8(͍8!ͅ` A8U <- >O0 (=:< 7 : <>(< :<2 !>F>(!N>(> >(:>(@> >2> >2O <(>O0`b  [ͅD8  ͋8bͅ8 Ϳ= :͋ J!F B   .F ,F:` N   [͋ .F   y  ͋ ͩͅ .~O*E >G   *> J  ͋ !"" #" "!6.:@_-BɁ_F #y Ϳ<<Ϳ=)6.~ . ~,_ ڝ [ ><. w,w6J _>wyO0z=_~.N<{< ڝ .N.~<,~<ͨ [ԍ8U* ͬ 8K.44 8@͇ͩ86: &w:o>6,= ͍88>2 8  ` ) h  & * #ͩͅ:OE D ? Ëb:2} +  [ͅ!~O6= <  ͋bͅ!Fx(!N68\<(Y.w6,w.w.N><><q.~Oy8 OzW 4.N6_.~8 wzW{0{ b͋!F&.N`q }<! V-^ͅ8^ ( K .qbͅ8I 8:͋8?!^,Vͅ8-.N.F ,F (  ͋8:Ao&~ w>  >?m >G@> x>(>& *i~ *ip & y0; o}(G0y $}o} z(0 {y`W a0Z >7ȅoG|8g> O{=!p,w: `iV "TM G zG( 0 { b&`++! / 0:G`h9 !ͣ`!Q~<( } >3}AwGnf##Nɟ`>`x*WsRɧ(=(=(*(=( =:F$`6F!`F*`-`F*`0`! #(0}[JBͷx7~!"3`o"`H`*88*`-`!"!"3*@">2A*. JDR0J DR1JDR2JUFDJ"MF0J*MF1J 2MF2J :MO0J BMO1J JSF0JRSF1JZSF2JbHD0JjHD1JrHD2JHD3JBASICINISYSCMDINT SYS Abort DRHDMFMOSF????RM`)Ei>] i> Z9!c`i9!9c!c> Z8!9@>>[#>7Y=%րBYEKILLNAMEAS_נFׇ(eL@GN T{by 1983-09-26(s8p!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. DISK 8!:R Ÿ!! =0!Y2i!! =0!Y2j!w!Pk0!B!!`k0!B:i2P:j2`!6 !~# (+~ ( ,ʻ##~2G> 2G!RK B`.P9/!b~ T]!KB`!j~B8 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*$$.6B7 0`:g!hɾ :fɧʝ:Q!aw !`>2Q!]V!\^ '`>2f-E`!R4®#4îOBJABSTXTXXXXXXXXXXXbk6#6  x0G> @89#x 0(>. #x0> ɯ>7_B6&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 naBB53mn?  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!,B8 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!ypB7o0$~:P *m`^#Vy_0>ͶX'*yo~#<+~#,,, # } o~f>oR  (# >.!!~A:A(&I!XN (7J :=A8*q#>.6#6"#B6'6,;y( O y*##" ",د2:ѧ!!!*#~X+~#_ͦ8(:!!+7!:O>`X!+*:O `$`ͩ*"* !Kx<!COPYLIB CEN:Χ7[:::#B54>^.s $: >> *.V-^-S~ɇ.(ɯ27''''} 8B 6 #0>0! 6 ! ~.(͔8wX7#~ ( ͔8wq! AڢA^?0:?>E`E`2ί2pB4A>-`X[!~4W*$.: 8֯2:Χ(([!~4W*$$. 0`:!ξ :Χʺ*R+":Q!aw !`>2QX!]V!\^ '`>2>2:ηO!!22*"*"#~+~ :W(!7!!!B3N#_ͦ8 = !!+7!G==!:O>2Q>`X!+:O `!GGE`E`>-`X*$.[S:<2 XE`E` -`*$$.[S:<2 G*"*"[ S"B2[:=2ʲÏ*"*": ί2:O:ιͧ!r!!U:2 v!##!7!9R!7:_(*~?w#:w:_( *:w#:w~#foSC2}2y2``K[:2B .1h:*.~7.~?,*N˶f`q 181 bk6#6 f x0G> a@89q#fx 0(>aq. #fx0> aqϯ>7_~0~8+~# (0:?%B 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 !B /! 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 B .r Olika fill{ngd sektorer kopierade ** Kopiering av filer ** Ver 6.00, 1984-06-14 Tillg{ngliga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Kopiera ej resten av skivan J - Kopiera denB 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 denBA  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_B8!":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 B 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!!ai m* 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 dr!ive2B-* 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 typ!e 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*%promsa"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-2! x 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_: mot! svarar 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ž6!y : ǀ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 11!b**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; DISKCHEKABS`! +݊, P,ǰ,금 r! @BD1FHJLN Diskcheck Fel vid laddning av DISKCHEK.ABSKABS`! +݊, P,ǰ,금 r! @BDAA)(jd xg. Enheten ej klar 4( !Skrivaren ej READY.  < ݵ""ݓ"/࣐/"ޜ:9;J@( !Skrivaren ej READAY.  C "ޜ" "ޟ"i` I;; ݵީ ǠOk`-Y_ i_,, ,ݸ,Y,Y, ,ݸ9BUFDDR0DR1DR2DR3HD0HD1HD2HD3SF0SFA1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3RAM/ CsƃzƍƗƧƧ,,ݸ,޸,,,ݸ,޸TII( 浱ݵ 쵷  ABC800 LIB  Ver. 6.01II= ǠO* ABC800 LIB *A Ver. 6.01 * * O= 'Filnamn: Storlek: Skriv-Raderskydd:'------------ -------- ----- -----------IP!!('8A >ǡǻ 'p`!:v!U~<~<_## ?h) c9&I_i5 _(=_ @ ᜵Ai_ !Y&&9UFD:9 9 9RAM:R M ݵ' Yߜ-᜵ Yᜈ ݊Yᜈ9RAM:9'9RAM: ކAYޜ䈧Q&L'ᜈ%Y%ޜ䈧-݊ I Dd9UFD: 4  F  (yՂ&y ½;1 - ASkrivare (Printer) 2 - Storlek 3 - Filstatus4 - Viss drivenhetV{lj (1,2,3,4) O޵6O1234O݊Oᖆ;ޜO1 O2 22O3 8A 8O4  Enhet ? EOO%Felaktigt enhetsnamn 4 Z(J)q))y zǠ;.RIS ;ޜ;0   A  ߟ Funktionstangent l W ) z :9 01DR:9 ኽ  /݊ :91!)!*Q*y q*½A 9—Lkvar avRIVOLYM: ;ޜޜ= ƒޟݵ}ޜ;ƒ ƒ ƒ ƒ;A ޜ ފ ߊኆ ޜޟݐݵ⊽C C㊽Z U)9+y a+>pr:޸#޸,#޸#޸,9—,Llediga av totaltR sektorerA .#޸,VOLYM: #޸#޸,)#޸,)ƒޟފ )޵ޜ#޸,;#޸,ƒ ƒ ƒ ƒ;ޜo Y#A y [ ޜ犈   ޜV#Q>9 sysdir.sys߸ #߸,O踈O .O'+zYᜈߜA-/ᜈYDRޜ RAM (:) +",a,,,ƒޟ=ߣƒޜ  ޜƒ ƒޜ+,!-,Af`݊ǀ 툽,9Skivan d}ligt formatterad.R퟈!9Diskfel ' %!*I-ފ2 ފ9UFD:{{+RAޟ +L9UFD:ޟ $퐸s ޜ[)VJ)݊ _  _  8",3!*", § .Aj-e!*--8݊  §ޜ ވ(=S߈(=Rz(!*!.Q.z(2  §ߜ04§0 +A'.!*",.q){s݊x ޵[§ ݊)=e휵ޜcƒޜƒޜƒAC+>r*+Iߟ*; Iߟ ;f1"aIPI;Fler utskrifter (J/N) ? OO j  *IP(PF5=F|reg}ende SH+PF5=F|reg}ende enhet;A%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;;;LjAޟ5 - Tryck ;  ݊ Ɲ;I; "/9CIOY_is%28LRA{5 - Tryck ;  ݊ Ɲ;I; "/9CIOY_is%28LRQQ=* PREABS .BAC **%+----------------------------------+*%! PREABS !*%! ------ !*%! Autostart p} f|rst en assembler !*%! fil och sedan en basic-str{ng. !Q*$%! !*.%! (C) Luxor Datorer AB !*8%+----------------------------------+B*'L"* Date / VerRev / Sign / Note>V9* 83-02-22 / 6.00 / LDAB / Tillh|r Systemdisk, UFD-DOS`*&j!** ** *Q* ** ** ** ** ** ** ** **t* ~&!********************************** Main program* *5Autostart av maskinkodsfil (N) ݫ $ j  *Enhet: ݫQU : 2*Felaktigt enhetsnamn C&3 Hittar ej & BASICINI.SYS `*( Vill du {ndra (N) ݫ  j!*(j22Maskinkodsfil f|r autostQart ݫI 7< ] 'Felaktigt filnamn F*;P Skriv BASICstr{ng (max. 158 tkn) ݫ Z ! d 0n*7x,Kan ej st{nga BASICINI.SYS m * Q*'"*********************************** Initialization*  ݵ ީ False/True* Ǡ Ǡ0 &H?DR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3UFD:E<`abcdQefghijklmnopqrstuvwxyz}{|@ABCDEFGHIJKLMNOPQRSTUVWXYZ][\D" .0123456789DN,*6TޜX$@ ABC 800 PREABS  Ver 6.00XJXTXޟXT XT= X^* hXr)|!Program f|r uppl{ggning Qav 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".  Q *&!*********************************$* Skriv ledtext och h{mta svar** V#9#Y#z(Ǡ; &0ߟ :D*&N!********************************X*,b'* KontrolQ lera och formatera enhetsnamn(l#* Enhetsnamn ut i Dev$ om ej errorv*I , z +01DR:& ኽ  "(=  "Q (=  2 _(=  :݊:&  *( #***********************************9 4* \ppna filen BASICINI.SYS och h{mta gamla str{ngar**Q 4 2z# 2$>H BASICINI.SYS޸R#޸,L\ #޸,踇f#޸,Zp #޸,Ǡz ޟ !* X/&Gammal maskinkodsfil: Y"Gammal BQ ASICstr{ng :   * *& !******************************** *" * Skriv record 0 p} BASICINI$ * Filen {r |ppen som #1. * 8 i&SB / L #޸,݂V #޸, ` #޸,Q&j #޸,]Sǃ t ~ #޸,3 #޸,O!4` / #޸,!5  #޸,L #޸,b * #޸,Z #޸,0 ޸ Q *    *& !********************************( *2 * Felfunktion < *F ( $$ P !Z ;';;;d  n - Tryck ;x ll  ;'; Q   *& !******************************** * * Kontroll av filnamn7 2* Filnamn 11 tkn utan . ut i Assnamn$ om ej error * !Hzy  閽 . 施  QD ݊ ߵv#" Nv݊, x 6 b@ ޵v^J v T ` _.^ . bbb b bh r bbb |   *& !******Q************************** *$ * S{tt punkt och packa filnamn * &zy  z  ޵ V鐸    劽 . ޜ   & *InitConFormnamnFelQOpenDevSlaskInmatningText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"DQr%N%XJ%b"l vy ngText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"Da @a!c**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; REPROT ABS`! +݊ , R, ǰ,금 s! !ACEaGIKMO Skydda filerFel vid laddning av REPROT.ABS ABS`! +݊ , R, ǰ,금 s! !ACEq bqa i)d$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)n$! !)x$! PROGRAM F\R S[TTNING AV DEN !)$! BATTERIDRIVNA INTERNA KLOCKAN. !)$! DELAR AV PROGRAMMET M]STE VARA !)$! I MASKINSPR]qK. !)$! !)$! LUXOR DATORER AB !)$! !)$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! " I r  %_q;   ޜa@;ސ8"0 ,ݖޟ 96 / :  ;@JT^ HUVUDPROGRAMhr | q޵D!  - І KALENDER OCH KLOCKS[TTNING ІO= Ѓ]R: 19ЃM]NAD: ЃDATUM: ЃTIMME: ЃMINUT: ЃqSEKUND: ЃVECKODAGSNUMMER: $INMATNING MED KOLL AV MAXV[RDE&߫d%0߫M/:/'ނ/'邕D߫9N9'ނ9'X߫CbC'ql߫MvM'<߫WW'<ޫfaa1a7HC '킠C'M '킠M'9 '킠9' k7k/ '킠/'% '킠%q' k(ka'W '킠W' kS[TT KALENDER+k+u;,%',/',9',C',M',W' R[TT TID ? ([R TIDEN RIKTIG (J/N)? _; <)*q݊ 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,13q 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% / 9q !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  Tk m0 ** 2 ** Ver 6.03, 1983-11-03# Copyright 1982 Dataindustrier ABW  FY AAas L    ! ++*  0! ::+0+* ++*0  0 0:+0+*  &--------------------------------------Dž-D8 ݊Q Q: ;QRAM[a!N g> ;m. ;s ;y  &--------------------------------------޵㸼K ݊ j( ? DR_:    _:#g _:;mǀ@@;s?4Q;y;##䈧;;ǀ  ;@  ;jA'ea RAM:y;##䈧;ǀ!N u!p4  () / ) ;Ƽ¼ ¼  ޵㸼H v   _: ( / ) ;Ƽ¼ ¼ a  a݊c>  RAM: (. /! ) ;Ƽ¼ ¼    (;D ) ;Ƽ¼ ¼ ¼(=¼ ¼(=¼Ӂ ¼ ޵丼4¼ ,ᡸ[޵丼%l ,;$$y! (@) ;Ƽ¼¼ ¼(=¼  ¼ ݵ丼5¼%?[. ݵ丼;,; 1 (?4Q) ;Ƽ¼V¼'M.䖆 ǀ@塜. [W (䈧) ;Ƽ¼h:¼'  1,2,4,8,16,32婈$߂$[ǀ@݊ (;@) ;t) ; Ƽ¼ ¼ C [@¼   [@%+%1 (;ǀ) ;) ;Ƽ¼ ¼  m [ǀ¼ 7 [ǀ'" (;<ǀ ; ;) ;Ƽ¼ ¼ m [ ǀ¼ : [ ǀ w!ry! (/) ;Ƽ¼ ¼  z :DEVDES.REL;Ƽ¼ݍ¼¼: ¼:P¼ DEVDES.REL޸#޸,7ᡜ#޸7 9޸:  'DEVDES.REL' ޸ ީ[ݵ޵gmsyk`-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$ݵH฼HHU݊[7%2$ݵH฼H,H`b&&ޟޜw #2EakySystem-enheter HighRes-minneSystem enhetsnamnParametrar f|r diskenheterCentral Gammal addr Vill du {ndra parametrarJ[ndra parametrar f|rkonverteras till矸 ,<QZdm[ndra DR_: konverteringFelaktigt namn[ndra controllertypFel typ[ndra CsFel typ[ndra clusterstorlekFel clusterstorlekGammal adresseringN '/HRw[r enheten centralFel CsSka parametrarna sparasp} skiva#[ndringarna best}r till n{sta resetSpara p} enhetFilen ej funnenTyp Controllertyp '0<>@BDFCsClusterstorlekSp{rrad S{tt sp{rr  *0:DQ[agmsy%+17Hrollertyp '0<>@BDFCsClusterstorlekSp{rrad S{tt sp{rr  *0:DQ[agmsy%+1 ` !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! (EGIK  d /!PROMSA - Drivrutin mot PROMMIS SA Vers. 9.15P(KDriver f|r 80-teckens ABC800/802/806 gentemot PROMMIS SA 1986-09-15 /Lhe2 <F"P'ǖ"Zd-ߜ,,,ơ,n0x+......... Definition av funktionstangenter" ,&, ,# 6 @ J T ^ h--㜵rAdress till antal i inbuffertV24:VSA30A72.88A޸B/Vi s|ker kontakt med PROMMIS SA p} 19200 bit/s.xNI.........................Evighetsloop f|r inkommande och avg}ende tecken r-~6 Tangentbord$~#޸Tީ"~#޸Jݵ$~Inkommande tecken2 ݵL{s filrad, s{nd till SAC 4Cursorflyttning"O,J*************************************************************************/6*......... Inkommande tecken behandlas h{r@~~J #޸~T^^(= h*~ݖrhG|--- Ingen ESC i str{ngen!ݵ~; #;--- ESC fanns i str{ngen2ޖ'ޟ ""; #";'~ޜ" #޸"&~ޟ~~ݖߜ@>9................................Escape-sekvenser fr}n SA!=SZG" < ;...............Ej definierat&=08........................................Cursorplacering+:~ߜߜ"ߜJ D~ߜ #޸"߸*)N #޸"ߜ""ޡX" "bݐݵl""" "vݐݵOO;Cݵ縐5...................ESC S start fillagring (SA -> PC)##޸6$絩.......E SC Z filslutFݵ6...................ESC G start filh{mtning (PC -> SA) ީOJ*************************************************************************OJ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$2 ƻ'....................Tangentbordstecken;,»(....... Analys av funktionstangenter mm2 :v42N4mT#޸» >*8..........................................Ej definierat64  )....................PF1..............ESC> ݵH ݵ縇R9\t x,....................PF2..............utg}ng@fO#S{kert att du vill avsluta (J/N) : ;!p O;%z jJyY݊ x ; .............PF5..............cursor upp (~E)< -...........PF6..............inskjut tkn (~V)< -...........PF7..............cursor ned (~X); ,....... ...PF8..............stryk tkn (~>)< -...........pil <-- .........cursor v (~S); .............pil --> .........cursor h (~D)< -......shft PF5..............sida bak}t (~R); ........shft PF7..............sida fram}t (~C)< -......shft PF1..............ny adress (~U); ........shft PF2, ~K .........hexedit (~H); ........shft PF4..............textedit (~A): -......shft PF6..............decedit (~N)OJ$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$O$J=========================================================================2.-Cursorf|rflyttning direkt till videokretsen.8xSPR=`8,,ǡ9,,8,,9,,8,,9,NI========================================================================NI************************************************************************C>.......... Skriv p} fil ....... Startas och stoppas med PF 4#޸Tީ,ݵ縈Start eller stopp ?="Filnamn vid lagring p} flexskiva: ; Nu startP 縇&絩Indikator att utfil {r aktiv  .Fel vid lagring p} flexskiva: ;N(I************************************************************************N<I$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$DF?........... L{s fr}n fil ........ Startas och stoppas med PF 3P#޸Tީ.ZݵStart eller stopp ??d$Filnamn vid l{sning fr}n flexskiva: ; Nu start-i#Fil|verf|ring p}g}r. Var god v{nta!nTx(Indikator att infil {r aktiv , Filen finns ej!*Fel vid l{sning fr}n fil: ;NI$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$NI************************************************************************+&............... Dags att s{nda en rad0#;#޸;",ݵ#6" #޸h Fel;JYNTI************************************************************************^ h&9*rR-ݸ +);ݸ +!d.݊#޸@*;r-~~dd~ #޸~""(" PROMMIS SA #޸LUݸ!"d""c"ޡMBuInstr{ngAktivfilFunkkodLfEscTestadrPrinitIncharTtFlAutoutAutoinPrintfilStilsortMarginalBufferFilradUtfilInfilEsEscposKolFilIfilUfilCuradrLsitGkolKolradGcadrSsortLisDelEraDeleteCrXonXoffAckAdrblenAdrbantClrposClrColRadStr{ngList444AntalPauseGoto2FkSparacurH{mtacurH{mtcurSparcurDefendDefInantH{mtaSradflagInputlineIdentFtangRneL{sfilkJ##J("z,+6'@&J&T&^'h!rq'xy~((#1+'1$#)( (zQ)z $$J,i$yngList444AntalPauseGoto2FkSparacurH{mtacurH{mtcurSparcurDefendDefInantH{mtaSradflagInputlineIdentFtangRneL{sfilkJ##J("z,+6'@&J&T&^'h!rq'xy~((#1+'1$#)( g 10 ! 20 ; : ; : ; "PROMSA - Drivrutin mot PROMMIS SA" : ; 30 ! Vers. 9.15 40 ! Driver f|r 80-teckens ABC800/802/806 gentemot PROMMIS SA 1986-09-15 /Lhe 50 ! 60 INTEGER : EXTEND 70 ! 80 DIM Buffer$=10000,Filrad$=150,Str{ng$=255,B$=255 90 ! 100 POKE PEEK2(65500)+2,VAROOT(Buffer$),SWAP%(VAROOT(Buffer$)) 110 ! 120 ! ......... Definition av funktionstangenter 130 Ftang$=CHR$(192,193,194,195,196,197,198,199) 140 Ftang$=Ftang$+CHR$(8,9,212,214,208,11,209,211,213,27) 150 Ack$=CHR$(6) : Cr$=CHR$(13) : Xon$=CHR$(17) : Xoff$=CHR$(20) 160 Clr$=CHR$(26) : Esc$=CHR$(27) 170 Adrbant=PEEK2(65500)+6 ! Adress till antal i inbuffert 180 ! 190 OPEN "V24:VSA30A72.88A" AS FILE 1 195 ; 'Vi s|ker kontakt med PROMMIS SA p} 19200 bit/s.' : ; : Z=FNIdent 200 ! 210 ! .........................Evighetsloop f|r inkommande och avg}ende tecken 220 Antal=PEEK2(Adrbant) 230 IF SYS(5) GOSUB 760 ! Tangentbord 240 IF Antal>540 IF NOT Pause PUT #1 Xoff$ : Pause=-1 250 IF Antal<270 IF Pause PUT #1 Xon$ : Pause=0 260 IF Antal GOSUB 320 : GOTO 220 ! Inkommande tecken 270 IF Infil IF Sradflag GOSUB 1530 : Sradflag=0 ! L{s filrad, s{nd till SA 280 GOSUB 1080 : GOTO 220 ! Cursorflyttning 290 ! 300 ! ************************************************************************* 310 ! ......... Inkommande tecken behandlas h{r 320 IF Antal>255 Antal=255 330 GET #1 Str{ng$ COUNT Antal 340 Clrpos=INSTR(1,Str{ng$,Clr$) 350 IF Clrpos THEN MID$(Str{ng$,Clrpos,1)=CHR$(12) : GOTO 340 360 WHILE Antal>0 370 Escpos=INSTR(1,Str{ng$,Esc$) : IF Escpos 410 380 ! --- Ingen ESC i str{ngen 390 Antal=0 : ; Str{ng$; : IF Utfil ; #Utfil Str{ng$; 400 GOTO 460 410 ! --- ESC fanns i str{ngen 420 IF Escpos>1 B$=LEFT$(Str{ng$,Escpos-1) : ; B$; : IF Utfil ; #Utfil B$; 430 IF Antal>Escpos B$=MID$(Str{ng$,Escpos+1,1) ELSE GET #1 B$ 440 GOSUB 510 450 Antal=Antal-Escpos-1 : IF Antal>0 Str{ng$=RIGHT$(Str{ng$,Escpos+2) 460 IF Infil Sradflag=Sradflag OR INSTR(1,Str{ng$,Cr$) 470 WEND 480 RETURN 490 ! 500 ! ................................Escap e-sekvenser fr}n SA 510 ON 1+INSTR(1,"=SZG",B$) GOTO 540,570,660,690,710 520 RETURN 530 ! 540 ; CHR$(7) ""; : RETURN ! ...............Ej definierat 550 ! 560 ! ........................................Cursorplacering 570 IF Antal>E scpos+2 B$=MID$(Str{ng$,Escpos+2,2) : Escpos=Escpos+2 : GOTO 600 580 IF Antal24 THEN Rad=24 620 B$=RIGHT$(B$,2) : Col=ASCII(B$)-32 630 IF Col<0 THEN Col=0 ELSE IF Col>79 Col=79 640 ; CUR(Rad,Col); : RETURN 650 ! 660 Utfil=0 : CLOSE 10 ! ...................ESC S start fillagring (SA -> PC) 670 GOSUB 1200 : PUT #1 Ack$ : RETURN 680 ! 690 U tfil=10 : GOSUB 1200 : RETURN ! .......ESC Z filslut 700 ! 710 Infil=0 : CLOSE 20 ! ...................ESC G start filh{mtning (PC -> SA) 720 GOSUB 1360 : Sradflag=-1 : RETURN 730 ! ******************************************************************** ***** 750 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 760 GET A$ ! ....................Tangentbordstecken 770 Fk=1+INSTR(1,Ftang$,A$) ! ....... Analys av funktionstangenter mm 780 ON Fk GOSUB 810,820,860,810,810,920,930,940,950,960,970,980,990,1000,1010,1010,1020,1030,820 790 PUT #1 A$ : RETURN 800 ! 810 RETURN ! ..........................................Ej definierat 820 A$=CHR$(27) ! ....................PF1..............ESC 830 IF Infil Infil=0 : CLOSE 20 840 IF Utfil Utfil=0 : CLOSE 10 850 RETURN 860 Z=FNSparcur ! ....................PF2..............utg}ng 870 ; CUR(24,0) TAB(79) CUR(24,0) 'S{kert att du vill avsluta (J/N) : '; 880 GET I$ : ; CUR(24,0) TAB(79) CUR(24,0); 890 IF INSTR(1,"jJyY",I$)=0 A$="" : Z=FNH{mtcur : RETURN 900 ; CUR(23,0) 910 END 920 A$=CHR$(5) : RETURN ! ............PF5..............cursor upp (~E) 930 A$=CHR$(22) : RETURN ! ...........PF6..............inskjut tkn (~V) 940 A$=CHR$(24) : RETURN ! ...........PF7..............cursor ned (~X) 950 A$=CHR$(127) : RETURN ! ..........PF8..............stryk tkn (~>) 960 A$=CHR$(19) : RETURN ! ...........pil <-- .........cursor v (~S) 970 A$=CHR$(4) : RETURN ! ............pil --> .........cursor h (~D) 980 A$=CHR$(18) : RETURN ! ......shft PF5..............sida bak}t (~R) 990 A$=CHR$(3) : RETURN ! .......shft PF7..............sida fram}t (~C) 1000 A$=CHR$(21) : RETURN ! ......shft PF1..............ny adress (~U) 1010 A$=CHR$(8) : RETURN ! .......shft PF2, ~K .........hexedit (~H) 1020 A$=CHR$(1) : RETURN ! .......shft PF4..............textedit (~A) 1030 A$=CHR$(14) : RETURN ! ......shft PF6..............decedit (~N) 1040 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 1060 ! ========================================================================= 1070 ! Cursorf|rflyttning direkt till videokretsen. 1080 Curadr=30720+PEEK(65363)*80+PEEK(65362) 1120 OUT 56,10,57,8,56,14,57,SWAP%(Curadr),56,15,57,Curadr : RETURN 1160 ! ======================================================================== 1180 ! ************************************************************************ 1190 ! .......... Skriv p} fil ....... Startas och stoppas med PF 4 1200 PUT #1 Xoff$ : Pause=-1 1210 IF Utfil THEN Utfil=0 : CLOSE 10 : GOTO 1270 ! Start eller stopp ? 1220 ; : INPUT "Filnamn vid lagring p} flexskiva: ";Ufil$ ! Nu start 1230 ON ERROR GOTO 1300 1240 PREPARE Ufil$ AS FILE 10 1250 Utfil=10 ! Indikator att utfil {r aktiv 1260 ! 1270 A$='' : ON ERROR GOTO 1280 RETURN 1290 ! 1300 ; 'Fel vid lagring p} flexskiva: ' ERRCODE; : RESUME 1270 1310 ! 1320 ! ************************************************************************ 1340 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 1350 ! ........... L{s fr}n fil ........ Startas och stoppas med PF 3 1360 PUT #1 Xoff$ : Pause=-1 1370 IF Infil THEN Infil=0 : CLOSE 20 : GOTO 1430 ! Start eller stopp ? 1380 ; : INPUT "Filnamn vid l{sning fr}n flexskiva: ";L{sfil$ ! Nu start 1385 ; : ; 'Fil|verf|ring p}g}r. Var god v{nta!' 1390 ON ERROR GOTO 1460 1400 OPEN L{sfil$ AS FILE 20 1410 Infil=20 ! Indikator att infil {r aktiv 1420 ! 1430 A$='' : ON ERROR GOTO 1440 RETURN 1450 ! 1460 IF ERRCODE=21 ; 'Filen ' L{sfil$ ' finns ej!' : RESUME 1380 1470 ; 'Fel vid l{sning fr}n fil: ' ERRCODE; : RESUME 1430 1480 ! 1490 ! $$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ 1510 ! ************************************************************************ 1520 ! ............... Dags att s{nda en rad 1530 ON ERROR GOTO 1580 1540 INPUT LINE #Infil Filrad$ : ; Filrad$; : ; #1 Filrad$; 1550 ON ERROR GOTO 1560 RETURN 1570 ! 1580 Infil=0 1590 IF ERRCODE=34 THEN PUT #1 Esc$ ELSE ; 'Fel' ERRCODE; 1610 CLOSE 20 : RESUME 1430 1620 ! ************************************************************************ 1630 ! 1640 DEF FNSparcur 1650 Kol=PEEK2(65362) : RETURN 0 1670 FNEND 1680 ! 1690 DEF FNH{mtcur 1700 ; CUR(SWAP%(Kol),Kol); : RETURN 0 1720 FNEND 1730 ! 1740 DEF FNIdent 1750 IF MOD(T,100)=0 PUT #1 Cr$ : ; '*'; 1760 Antal=PEEK2(Adrbant) : IF Antal>100 Antal=100 1770 GET #1 Str{ng$ COUNT Antal : B$=B$+Str{ng$ 1780 IF INSTR(1,B$,'PROMMIS SA ') PUT #1 'LU' : RETURN 0 1790 IF LEN(B$)>100 B$=RIGHT$(B$,LEN(B$)-99) 1800 T=T+1 : GOTO 1750 1810 FNEND  : ; '*'; 1760 Antal=PEEK2(Adrbant) : IF Antal>100 Antal=100 1770 GET #1 Str{ng$ COUNT Antal : B$=B$+Str{ng$ 1780 IF INSTR(1,B$,'PROMMIS SA ') PUT #1 'LU' : RETURN 0 1790 IF LEN(B$)>100 B$=RIGHT$(B$,LEN(B$)-99) 1T+1 : GOTO 1750 1810 FNEND  : ; '*'; 1760 Antal=PEEK2(Adrbant) : IF Antal>100 Antal=100 1770 GET #1 Str{ng$ COUNT Antal : B$=B$+Str{ng$ 1780 IF INSTR(1,B$,'PROMMIS SA ') PUT #1 'LU' : RETURN 0 1790 IF LEN(B$)>100 B$=RIGHT$(B$,LEN(B$)-99) 1 ` a$F A================================================================1,= KONVERTERA ORD800-FIL)$= KONVERTF(A================================================================2 ޸3<%ANGE FILNAMN SOM SKALL KONVERTERAS 3A%ANGE DEN GENERERADE FILENS NAMN F P޸Zs d߸ n#߸,߂wR x#޸}?#޸ߟ "#߸ "ޜ"="#߸,݂#߸"/8FELKOD=! FIL=FELKOD=NamnInAntradNamn1Namn2z  * "A #߸,߂wR x#޸}?#޸ߟ "#߸ "ޜ aqQL*****************************************************************************%* FILE PRINT OUT(#* DOKUMENT* ޸ IDENT0(ЄD O K U M E N T A T I O N.Ї;*ЃN=Ї;#2P(ߵ.4.4ޟ: <'@F@@60P(KAN EJ K\RA DETTA PROGRAM P] DENNA DATORZnPP(px.(F4(Lx,ߜ,F,F,,L,L@ኽYRǀ\&R,,(,ݸ,\,\,ݸ,ݸ PR8,,9,޵b INNEH]LL.TXT޸ #޸h߸h0r.,)======== FYLL SK[RMEN ==================6b*1%@ #޸hh x #޸hxJh(( 'Tb4br bޜb^ЃN=Ї;Fh= PF5=Scroll Ned PF7=Scroll Upp SH+PF3=Print SH+PF8=Avslut ~!r@ኽ~;~R|;E@=========== SCROLLAR SK[RMEN ================================== ƈˆ ˆ &ˆ 0ˆ s! FELKOD=(( !%@ኽ’;’R* h4h P R B=============================================================83= SUBRUTIN F\R ATT SCROLLA FRAM]T=փ  hbr bޜb2bb*1#޸,b2%. #޸hh x #޸hx)8(ޜ(h(( BB=============================================================72= SUBRUTIN F\R ATT SCROLLA BAK]T=b4ޙi#޸,2.  #޸hh x #޸hxbޟb%h(( ( E @===============================================================- (= SUBRUT IN F\R ATT PRINTA FIL = 0 (=== S[TTER PRINTERPARAMETRAR ========== PR:⸇  DOKUMENT.TXT޸ ޵b #޸h߸h0r% #޸hh x #޸hx #h br bޜb  #    KF=====================================================================;6= SUBRUTIN F\R ATT S[TTA PRINTER PARAMETRAR LG======================================================================  ; VSA30a72.55B"S[TTER CHANAL-PAR TILL ST]ENDE A4+ VSA40a48.55BLIGGANDE A4,H]LAT  VSA40a48.55BOH]LAT,2CHNQP ,2C0NQx (2C0OQx  PRINTERINITIERING~(~ߣ!"~;(~ߣ-,SL] P] STR\MMEN. ST[LL PAPPERET;-6P] 1:A SKRIVRADEN. -RET-;@ hJh $TV[LJ 1 2 ELLER 3 NEDAN; ^ 1 ST]ENDE A4;"h2 LIGGANDE A4 H]LAT;#r3 LIGGANDE A4 OH]LAT; |; h+h1h2h3h'h K%޵฼ ; -->;f;,PR:⸈#;⸇    *FEL ! KOLLA PRINTERN. -RET-; h$h P;STknBertypGiGnrAntvFormIndBasTkStyrAlfaGmaxGminResGvOpenFunkNyFilnamnFilnrFelEnheterEnhInNumsRadlgdCurstDmyCur[ndrEdradBldRubrAcurradCurslBldadrBldlgdKvektKvekt1NamnTextLgdReseRiRetIndatTxtKontrvIn1DelLgdaDelaCvtRubBernamDatNuGot5oIdRex1GmxGinId1AntgrpVminVmaxGrpAntgvAntvgCpaceIstVmnVmxVmaAntresFilsLopAfilPos1MvId2Grp1Grp2MfelOwerwCoutntErseFilkollThenFilesAlgBildadrAcrradMernamnMergnamnJnResnamnDummyN{rvaroCountPutgMergenamnD2000List10LiostCyeForqAndrD1832ProcProcnamnFolsChtPekAntradI8fRaderPf1ScrollNedPf2UppShPf8AvslutThnFradIfDtypWidtWhidtWhidthLi9stChparPrparKolRad25FeltextTehTheh!$2B((#.#4$:1%@4Fa%L%R6\6b2hj#r2x&~b&zJ6q4555y amnFolsChtPekAntradI8fRaderPf1ScrollNedPf2UppShPf8AvslutThnFradIfDtypWidtWhidtWhidthLi9stChparPrparKolRad25FeltextTehTheh!$2B((#.#4$:1%@4Fa%L%R6\6b2hj#r2x&~b&zJ6q4555