??SYSDIR SYS BASICINISYSADDOPT ABS DEVDES REL@ OPTROSH RELOPTROSL SYS ISAMOPT REL TERMOPT RELSOFTOPT RELCMDINT SYS SYSTEM ABS@COPY ABSCOPYLIB ABSDELETE ABS@DISKCHEKABSDOSGEN ABS ERRCOPY ABS LIB ABS@REPROT ABS UFD ABSDRINI BAC START BAC DISKCHEKBAC LIB BAC REPROT BAC SYS BAC @PREABS BAC NAMEDISKBAC UFD BAC ISAMDEMOBAC )IDEMO1 BACDEMOCRE BACCREINDEXBACARTIKLARDATARTIKLARISMARTIKLARIS1 SETOPT BAC@ SETCAL BACCLIB BAS? 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 variabel LUXOR 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 variabel 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 variabel0?0OPTROSH 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[aPB?PGX0Pv 110cEԇ`![!"E:*{"!"{!"i*q`6#6#6́:!6#!>1~/w/w> 14#y>~/w/w> y@ 4D>y~/w/w>y >Pׇ<!R?!>w*.6, !j#####= :W~O>bE(>2P0>b0.6c=.wc hT]66c,T]6cw}?ء~# "i!Aq6#PXPET :^!AV{ߋ7%7ˮ!̞ / 0:G`h9 !`:!Q~<( } >3}AwGnf##Nɟ>x*W:(?14>0#s߆E!"iPz!j"i:ɧ(=(=((=(#=FHF$6F!F*-F*0RAMUCMDINT SYS Abort OPTROSL SYS*x?g:EA ::E:WOxpW{]x(E2P˸(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~(?z>  <12{G :>(4y RAM! #~< [@Pد P`?`S tiÇÍ<8(2YÔù~üâøufýKNQTWZ]ËÅ=?*x?g˸: *m`##~>7 {z>?8s͌>8j{c.s1:WOxpW{]x(롩 #x,}` !x ͗,,͗{2˸͌(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~͌(?z>  <12{G :>(4y}`RAM>!_>-*.~<(= #,N,,V,~/ ,^,~/ , (GB#(>7 *~,"CS2!=o=D = =i K[:[(:_#~< [͇دxp2@o&!|`F*[R8D:K+>Now.V#~_/ &ɀo&N{+zs#r[ͅ!6[!:(D <(> <_< "{z0*"!55 .w ,w:@_!!F?DwxNo&4~o-~iwyoO~axpNo&4nw-w}J`3$bowyMoqOxpBo&4#4:@ !   !L!7 !9)y!o&^w,Vw{(0xp Ao&~!V A.GL:@(y8*iy#y 0ڇ!o&s,r/,^,V/>Bos,rͧ>N`lo&6ɀoN-{z>Bo^,V>Jo^,VR/͇ͧ8͢.O͢.O͢, /8.~.~,~͍> NЧ7 8ky< *|(kN> NzpzxG ~> &M~xpGAo`y&~<> L/z>K>Jos,r>AoF/O8>2A87/2+~2͠ͅ8~*o B͋8Bگ*|ʷ~Yͅ8V! w#2!o0$~(,ͅ82O G* #y y=Oh!>w0h`;y!4~0:((%: <>(< :<27><M>>8:!w͠ͅ8~O_ K W!w _.w>_/ " o g+" !"#"!^,Vͅڃ.  .w>.w:@_!BA ( yOy[( x(z7` b>2!>6B>2ͅ8(͍8!ͅ8U < >O0 (=:< 7: <>(< :<2 !>F>(!N>(> >(:>(@> >2> >2O <(>O0`Y [ͅD8  ͋8Yͅ8 ڷ@` UͶ= :ʷ͋ J!F B   .F ,F   [͋.F   y  ͋͠ͅ.~O*E >G   *> #  ͋!"" #" "!6.:@_-BɁ_F #y Ͷ,<Ͷ=)>@oO` H&B6.~ . ~,C ځ [ ><. w,w6. <. 6<&o< [ " 7R8* R" !q6.w6,w* [ RͶ=(,M!~(YW~w_-~.w> _>wyO0z=_~.N<{<ͪ ځ .N.~<,~<͌ [ԍ8U* ͐ 8K.4Z` w ;4ͪ 8@͇͠86: &w:o>6,= ͍88>2ͪ 8    * #͠ͅ:OE D ËY:2"t M}u + [ͅ!~O6= < ͋Yͅ!Fx(!N68\<(Y.w6,w.w.N><><q.~O` &y8 OzWc 4.N6_.~8 wzW{0{c Y͋!F&.N<>@o&! V-^͇8^ ( K .qYͅ8I 8:͋8?!^,Vͅ8-.N.F ,F (  ͋8:Ao&~ w>  >?" >G@> x>(>*i~ *` ip & y0< o}(G0y %}o} z(xG0 {0Z >7ȅoG|8g> O{=!p,w: `i/ "TM G zG(zW0 { YyAo&~ w>  >?" >G@> x>(>*i~ *p'?pH0|p4%U8d8:N*o >2ASORTORDRTAB*}"!"}nf~#+ NF !"!#"###":& ( *r#"Å "DŽf"ł1*!p%nf ~#foTO.#,****Ä*ń*ǂ  P!@666666׍!D~ !n f |ԛu t ]T6>Z8v66FppȄ!֌ut0d8;.~>~ 2OF<7 !!NUU8>4>2">93333[##||S΂CЁS҂CԈ~+~ ~p #~!j !k ~#fo{8~ ^ Vwsr+,-./0  ;      h!9N#F#^#V#N#F#>47ISMn f F_* ɯ!Kp3ISAM OPENISOPISAM READISRDISAM WRITEISWRISAM UPDATEISUPISAM DELETEISDLKEYINDEXFIRSTLASTNEXTPREVIOUSPREVf666666ہ'# '# >76#Hw#pۅEɎ#>7 &+    ((#,( ( (y9 w7 >/>͋g !9>9= ͏&0  !9>[^Xف[+V+^pH(.N !^X!ف[!C (+V+^+H8. ++4 #4!^X!ف[q#^#V? !X![#^#V!C+r+s?p !0YPFniFnd!`>!!` !-`!0`!*`!?`8y#7*3!"3"3"3   >45Ȧ!0!0   >>* ~* F N *  F* !ֆN [΁ p *Аu>z7$%,-(5M ւ͂0jx7 ~܇0 " 8  F ~ 9 0  8(   8 (x7 `"(x7 U8L F[ b}^! p ֌i`! ւ! Xw!փ" f^(* R ^ !^!ց#*҂KԊ + (9y[ 06 #< ȁ[n(  ~ >|7~ ~  } ȋut" p nf ׂ  \ 0   |   J*҂Kԁ I  \0   0` Y ׂ*Ԃ[ЇR>}7  4(8 h0y(   *΂KЁ Ip 4(  h \ " Ѓ8 V-" ! ց[ *ԎB  A[ҁ a>{7 ȁ" *  " ~*  " ȅ7R \ف k!݁ڄFap[ ! ց &ց* ҂Kԃ ց*΂KЋ6#! ։  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^ \][ p \][ x ~#^#V   ~#^#V!4(5  ! օ!F   =2]T!F! ց  )!IN#F=دGOl=p{-دGOl(GW{WdG-دGOlGG0>CFnZ~W:WFdvFdFid#4 #4!@w*pB8 (" MD!! 6Nwy#~@_^V  n O͎q6R>} cG=(=(=(-=((~#pA N#~#AyAx态G~#N#? 7>yH˹>~# +p0/x/>   { ʄ7 [ R f(!ւIaƃ [N( F8F>x7# <=ݾ0 |~ #0  [ R !pւ!ց~~wځ8$ |>yA7~(O( F(F( #[!ց!a~(s ݁[!R8؋^!a;( ֈˎ6Bpi`RMD܃!Ձ!Z!^  ن!^ <2ف؂!ֈF #6#!Y!ց6#6#!\ !aF !^ <Dw[Bp!^6!ցa !X!aF#c}^X!ِw( # ӧRMDkb6 n F( #[oN(> F( #[ p <F(OBa!R8o \0͏-!i`aʑi` Fa(>x7!^ >"7[0 pp#? 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 ? p?m^V@+##~ # c Q W@ !9  @ @@~(02v{>pÞ Õ=uðÜÈÐABS BAS CSS OVLCSS ABSy:o`>{/ 0! s#:w!!)E` )!w#w#w=2A>20:0G!Ao~<(!`:020q8!!P~# (+ ʞ~`8 w# !46.36!~$ 4=:N:.R .F:4M_B`6:+++~ >@6 O0:4@o&q:N:=:4 :N! !e=nB B`L:4B_͈.N~..R =.F:4J_B`:4 :N,(/ !3n&~ #( +}23!4~wq!~$ !BO# >2J !CB`!@~!ʕOB`0![Õ:@!AN!]``:0({'{!RFB`Fu (A8^0&iwyN2yw#! <;Q Ver 6.02, 1983-04-21 Copyright 1982 Dataindustrier AB h.<%~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:;0* *{^#V##O ~:7?| 7 NAMENAME.EXT F|rst}r ej Hittar ej filen Filnamn saknas Felaktigt enhetsnamn Inte {nnu. -/);** Disc operating system - Ver 6.** ** ;R >p #~:8ˮ: ? :!>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. DISKA? 8!:R Ÿ!! =0!Y2i!! =0!Y2j!w!Pk0!B!!`k0!B:i2P:j2`!6 !~# (+~ ( ,ʻ##~2G> 2G!RK B`.P9/!b~ T]!KB`!j~8 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*$$.67 0`:g!hɾ :fɧʝ:Q!aw !`>2Q!]V!\^ '`>2f-E`!R4®#4îOBJABSTXTXXXXXXXXXXXbk6#6  x0G> @89#x 0(>. #x0> ɯ>7_6&08+~# (0:?A^?** Doscopy ** Ver 6.00, 1983-02-10 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopians naB53mn?  Hittar inte originalfilen ! ** BAD OPTION SPEC. **81983-02-10 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopians na? 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 den? 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(ʝo8 ~G#<ʝ~ʝ> o~fʝ>oR  (›#W>.!)!W!G~A:GA(Iʪ!XNʜ ()J *Cq#>.>SCyOҧ §[CSk:pʧ!g!!*E~#45!_7:jO`!$`!`*E"E!2!7bk6#6 ͆ x0G> ́@89͑#͆x 0(>́͑. #͆x0> ́͑ɯ>7_͞0͞8+~# (0:?A^?Fel i biblioteket.Programfel ! 6'Fas 2 radering Drivenhet? Radera fil? Felaktig enhet. Filen ej funnen. Radera  Filen raderad XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1983-02-10 Tillg{ngliga kommandon:A - Radera rest[54en av skivanX - Uthopp, radera ingetI - Radera ej resten av skivanJ - Radera denna fil 8 aderad XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1983-02-10 Tillg{ngliga kommandon:A - Radera restD? 82܅Ʉ8ͅ:p` !6!Ląs:P81!ͅ! Ϳ0!\ͅ2P!ͅ!6,# Ϳ!#~ (~#/(,( (> (:~#˯N 2D 2J 2V 2S 2P 2( :P!\?2*k` ~o0$~2#"~ } !6"!0P!!w7̀} ͔8L*$T$$.]EMGO,> !x !Oy G, !կ } "!0ίDM!9qpsr ut { ww 6!͔̀܌^V *$.%~(e4W#^+{(Z##~w#~w#͞0,56#6'nf [Y͟^Vnf+R8Q[R0I~w0G, ~fW˯6 !4!9~w,6,6,~w,~w,~w,w#%P ͔8[ # #~6!"m4Aw! !5!9!7>_: :'[!":O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!"4 4 : (#'{_*$$$j~  87 w͍7``O >3N:W !xpg.EM !!J )![w "!gg !_ !W !O !͘͘͘ͅ!?ͅ>ͅ!Dͅ! ~ ͅ!Mͅnf>ͅ!  6ͦ!iͅI2[:p`:0 (:(z !Tͅ{8(! jͅη͟:η>:η>͘ͅ!ͅ! Ϳ:˯OJ>>N>> >~#fd+~# :00+~#^?A:͆:ηI 1i1C!@[!P>N.5l>.5l:!υogDISKCHEKCEN3"*.ͅ:O*.EͿ>^SC2}2y2``K[:2:և!# !?!^υog|7ͱ*N˶`qͱ* 0ZN˶`q:p`!B0 !K ~#foɯ} 8B 6 #0>0~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7Vͥ#~( 0# ʀ /g (̶!9  ͥ :'7s3sE!!5:2ҷ >!]>22VA+##~ # f T WA !9> A AA~0:2ҧ̈́s3sE .t!!5ͷ^(666>>~ ^w * :2ҧ*,~ #^#VSZSҿ6B6C6'6&6#{3~D7PR: `A-L** Diskcheck ** Ver 6.01, 1983-02-23Du anv{nder ett f|r ga -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,ingen) ? Felaktigt enhetsnamn !Ska filen sD,t{ngasSka 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 de"+snna record.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 bitmapY*f men ej 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:DISK)Z)YCHECK avbruten. . 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:DISK)?8> b82!:o` !ڿ:P8=!!] =0!2P!! ~˯6A#6,#w#6 :P :P*k`2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P! !R :ͷj:P2M!?!X:8XJ!¿:A!P !^!X:XJ!¿!:!X:XJ!¿&!!f:ͷ!X:XK(C:P2*k`o0$~2#"~2 9`~  T]6R!"͆(FG #}  .6#6#%:A80~w 0,  $ڼ.:w $ڼ6#:w>^.m¤:w >(! ~#(#ʼ(! ~#fo6"Q!>^#VS0]T6!60$ڼ]T 0$ڼ 0:O`8v {ZWS {ZWS{ZWS!00`8,!`8'*:8) CQ!C:ͷ!!:ͷ &!W5/! ~_E( D(!2!S:p`((6#:w#:w>^.m¤:w(~>(! *#"ɯllll} 8B 6 #0>0038 := =(Q!:=_7{4<:p`~Q!m *.xg::=/_: (#'ZW*N˶`q*N˶`qC!(7>7:O!6!6:̷6C6SC2}2y2``K[:2: %AXqЋЫ!! 8Q>3I0!̅og~#fo ! SYSDIR SYSDOSGEN CEN %2M 2 ^:ͧ 0 ͕ @͕ ͕``:Oͫ ({(/_O 7``:OS ͫ(_( ͫ ~N2Y, ``O xyz{ͯ0 @ N @;@NNGw, Enheten ej klar, kontrollera ! Skriv in "K" n{r du {r klar !  Skivan skrivskyddad ! Skriv in "K"  1f 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 ?? \,0  Du anv{nder ett f|r gammalt DOS !!* 0S 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".Kan inte {ndra underI /` bibliotek.Felaktig login.N}got fel vid laddning av "DOSGEN.CEN".Felaktig "ERROR" kod.Programfel.Central:** Disk generation ** Ver 6.01, 1983-04-21 Skivan i ***: kommer att rensas helt vid initieringen. [r det OK ?  + .mSp}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 skiva??? Annars komme -zr skivan, som detta program laddades fr}n, att initieras (raderas) !!! [r det OK ?  Felaktig option ! Felaktigt enhetsnamn ! Internt fel. Kan inte formatera, kontrollera !!! Skivan formateras !Nu testas s,xektor Sektor ***** {r d}lig - borttagen!   !6$ʦ( !5 >Þ@(#v +('&@((&|=o| ( '#0>Þ>ࣵ_0$G! y x z { H D`(y.EM8( eu+ke( xx0( !5(72#~!>4>1~( >~>7 A 1?2?.e ~*k`$ ~o0$~=8( x =::*x?gb8`(y.EM8( eu?*^ ~o0$~=8( x =::*x?gɯ8`(y.EM8( ( 0( !5(72V#~=!>4>1~( >~>7 A 1V?2?.eh~*k`̓?8!":R Ÿ!! =0!2! ! =0!2!!Pͬ0!!!`ͬ0!:2P:2`!6 !~# (~ ( ,ʺ##~2> 2!R B`.P>4:R2!b~ T]!B8 `!j~ T]!B`!`> `$!I` $`͚`!H B`: !i !~ ]Tm!Ny! !: B`TB`!OB`BB`!AB`![ #E`2:E`NE`-`w!~4W*$.: 8߯2:ʧ(%w!7~4W*$$. 0`:!ʾ :ʧʢ:Q!aw !`>2Q!]V!\^ '`>2:E`!R4»#4ûNE`*R[ʧRB͢> #"R:!) ! !1!A: !}*$.!%!.!.~_Jʶ: !%!.!.~6&_Jʻ!%!.!.L*$.s#û.%B8'x!.UA~#p6 !.|A~#t6 !.A~ 886.#6 !-!T!{Ɛ'@'OBJABSTXTXXXXXXXXXXXbk6#6  x0G53> @89&#x 0(>&. #x0> &˯>7_3038+~# (0:?A^?͚~0:?~08 833bk)8)88)8 _8͚͛+(- I#~ (ɯͽͽͽͽ}!o4@ 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 fyw62 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?  6z2Kopians namn?  Kopians enhet? ** Errcopy ** Ver 6.01, 1983-02-10 ** Ny fil ** ** BAD OPTION SPEC. **8ektorinneh}llet. Felaktigt filnamn Felaktigt enhetsnamn Felaktig fil?  Felaktig enhet?  6!?! 88!ί2Q.S!̯ww66*m`^#VS{> >w:P .!! P2!!)!6L#6,# :P!7=(w!~# (~# (K (G,(/ ~# (9 (5_N &S &!8 F &P O :'>((:TP &:b :m (+!m:͊!b.͊!j ͊ ~ݾ!.*k` ~o0$~2"#~202; :@ Nr]C0C:?*w2:2>2rC0:?@*w2:2!7z].*k`o0$##V#^!r#s; f(. 6R#6A#6Mʧ!~ J[r\*.^#Vz #~_0r[o!6 ##!zʧ; z\~ [r[.~,n <=}w~ [}!6'_0tZ*$.#~ (S(R#^#VS#~<= R ( *( #yV ##F(1}ݶOtrr> > 0N(]*| I}oV#>_:(:< tZ[!E<( ̯s!4A}  8B(0>0> !6^ 5 4 ^ͨ54~*m`##~:*.~7.~?,v*~?@w*#N˶~2`q~ (#y3W:'7!3FssE!!:η >!]ͳ>2V'+##~ # L : W' !9> ' ''~0:ΧjssE!!͝^(666>>~ ^w * ͜.89ͬ#͡x 0(>ͬ͜. #͡x0> ͬ͜ί>7_͹0! 1Q8+~# (0:?A^?V#~( 0# (!9   ~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 UFD:P FILENAME.EXT ** Libra! 0^ry list ** Ver 6.03, 1983-02-10 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.OptX! /kioner (S,N,F,P,ingen) 810 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.OptX1A?1 8'!'8!c'':R 8!'!`P!:R 7!!'! `~˯6,#wZ !yB`:P!7OR`!*k`: ~o0$#"!#~ (~ (o (k,# ~˯X( S(R Q:P_:Q! **N˶f`q!:P1+8*o~<7#~w*N˶c`q!>2Q!77bk6#6 ͊ x0G> ͅ89͕#͊x 0(>͕ͅ. #͊x0> ͕ͅȯ>7_͢0͢8+~# (0:?A^?~# 7 (+~:06D#6R# w#6:ˮ#17$#~:8ˮ:0* *{^#V##O ~:7?| 7VF#~( 0# & (W!9  F ** File protection utility ** Ver 6.00, 1983-02-10 Felaktig optionREPROT,XSR Filnamn.Ext Fel vid skri 161vning i biblioteket. Filnamn : Felaktigt filnamn Felaktig enhetHittar ej filen X - Avl{gsna skyddS - S{tt skrivskyddR - S{tt raderskyddAnge option (X,S,R) : ABS8S3-02-10 Felaktig optionREPROT,XSR Filnamn.Ext Fel vid skri A?A 8)8 !e)*m`^#VS!#~ (~#/(,( (2 (.~˯LMvFRCiDM!)!7:R H!)! b~ (˯6,#wC(R !)!bP87:R !7)R:PO`8#-`83`O3`G(*B!`!A8 7!7;2! [z(c!"86`_6`WS˳ 6`o_08}*o*)!)[z!" )!)!͌[͌:p`( !>2>2S;2``:DS*m`s#r[z!7;2H6`_6A7`W͌:P ͇89͗#͌x 0(>͇͗. #͌x0> ͇͗˯>7_ͤ0ͤ8+~# (0:?A^?~#8A4C 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7VH#~( 0# ( (Y!9  H ** User File Directory ** Ver 6.00, 1983-02-22Felaktig option !UFDlA3P,LMFRCD FilnamnL - Lista aktivt bibliotekM - Aktivera master-biblioteketF - Aktivera fader-biblioteketR - Byt namn p} aktivt bibliotekC - Skapa nytt bibliotekD - Radera aktivt bibliotekingen - Aktivera gammalt bibliotekAnge opA2]tion (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'Kan inte byta namn p} 'MFD'Enhet f}r e|A 1jj 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/skrivning p} disken !Biblioteket m}stA *0we vara tomt !Kan ej st{lla UFD-pekaren.q8tt !Felaktig fil !Hittar ej filen !Filtyp f}r ej anges !Filen finns redan !Ej tillr{ckligt kontinuerligt utrymme p} enheten !Fel vid l{sning/skrivning p} disken !Biblioteket m}stQ?Qaei /* 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 drQive2B-* 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$ settingt* ~&!** ** ** ** ** ** ** ** ** *Q* ***ީݵ 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 ofQ next program*&!********************************* * Main routine* ,(,݊2<2,ފ2<<,ߓ2k< F,ߓ mFFP* Z^Pd*,nQ ",߸Turn off 5 ms clickx*+"DOS {r 2<FP*  "*&!********************************** Detect DOS version*"* At exit : 0 if old 5" dos,'* 1 if old Q5" DT and 8" DOS3.* >=12, New UFD DOS version number* ) pf`ݸ old 5" DOS#i`-ߜ-R D ޸'o`Get UFD DOS version number",*'6"*********************************@*#JQ* Separate between old DOSsesT*^Sj A)z!h out (2),a : retr+Z |޸,,}  ޸,-}   Z'ABC 6-1x eller 8"/800 8"Q/800ABC 6-1x*)$************************************% * Separate between mellanDOSses*  Lj`-劽 ABC 6-3xj`-튽 ABC 6-2x &ok{nt0:*,D'*****************************Q *********N*&X!* Separate between Super and NETb* l2!w vp``$`݊ UFD-DOS ver. ,$`ኽ ABC-NET ver. , UFD-DOS ver. ,*,'****************************************Q %* Set current drive to DR: mellanDOS*  !刵4m`-,圸 Set DR_:, e.g. shift 1 bit left#݊DR_: motsvarar SF_:DR_: motsvarar MF_: ** %**************************************)Q 4$* Set current UFD-DOS drive to DR_:>*H!#!!R`ݍ\-݊ fᜈpk`-, Set DR_:zk`-k`-ߜ-'DR_: motsvarar  _:**%****************Q **********************%* Set UFD-DOS drives to biased addr.* #9#i## k`- ᜵X䡜ޜ,䈧␽ޜ,@ Set biased  ᜵  Gammal addressering$ . Q *(8 #**********************************B *"L * Copy CMOS clock into TIME$V *` .J$$C$6j >dž6>Dž6y :t ǀ6>6>dž 2~ 6>Q6> 8 dž67LJ# >  6  ++Z  * 詸,ݸ8 ,,,6 멸,ޫ,߫Q, Datum och tid: )  *$ ****************************** * * Convert BCD --> Decimal *( %91%zQ%2  < 숧F VersDosversSepoldSepmellSetmelldQrSepsupTypSetsupdrOffsDevConoutSepDrSetSetoldBiaSetbiaTableEntryClusiLinkDrdescClcSettimeCodTbufList2200BdPtrBcdClickGy y""q%"#, 2R"<"F"P*$Z9`i!숧F VersDosversSepoldSepmellSetmellda ?aaP * START .BAC **  ( nul:ߜ-'DR_: motsvarar  _: **UVersDosversSepoldSepmellSetmelldrSepsupTypSetsupdrOffsDevConoutSepDrSety y" R"q ?q!w**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; DISKCHEKABS`! +݊A P,ǰ,금 Ver nb / Sign / Note rq! @BDFHJLN Diskcheck Fel vid laddning av DISKCHEK.ABS! +݊A P,ǰ,금 Ver nb / Sign / Note r ? )(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 ? !v**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; REPROT ABS`! +݊ ? R, ǰ,금er nb / Sign / Note s! !ACEGIKMO Skydda filerFel vid laddning av REPROT.ABS! +݊ ? R, ǰ,금er nb / Sign / Note s! ? Oem# ** 2 ** Ver 6.02, 1982-11-16# Copyright 1982 Dataindustrier ABN  FY AAas L    ! ++*  0! ::+0+* ++*0  0 0:+0+*  &--------------------------------------Dž-D8 ݊Q Q: ;QRAM[a!N g> ;m. ;s ;y  &--------------------------------------޵㸼> ݊ j ? DR_:    _:#g _:;mǀ@@;s?4Q;y;##䈧;;ǀ  ;@  ;jA'ea RAM:y;##䈧;ǀ!N u!p4  () / ) ;Ƽ¼ ¼  ޵㸼; v   _: ( / ) ;Ƽ¼ ¼ a  a݊c>  RAM: (. /! ) ;Ƽ¼ ¼   (;7 ) ;Ƽ¼ ¼ ¼(=¼ ¼(=¼ӡ ¼ ޵丼4¼ ,ᡸ[޵丼%_ ,;$$y! (@) ;Ƽ¼¼ ¼(=¼  ¼ ݵ丼5¼%?[. ݵ丼;,; 1 (?4Q) ;Ƽ¼V¼'M.䖆 ǀ@塜. [W (䈧) ;Ƽ¼h1¼'  1,2,4,8,16,32婈$߂$[ǀ@݊ (;@) ;t) ; Ƽ¼ ¼ C [@¼   [@%+ (;ǀ) ; ) ;Ƽ¼ ¼ v  [ǀ¼ @ [ǀ'" (;8ǀ ; ;) ;Ƽ¼ ¼ v [ ǀ¼ C [ ǀ w!ry! (/) ;Ƽ¼ ¼   :DEVD ES.REL;Ƽ¼ݍ¼¼: ¼:P¼ DEVDES.REL޸#޸,1ᡜ#޸1 3޸:  'DEVDES.REL' ޸ ީ[ݵ޵gmsyk`-p`%+Dž-DQݵB丼BBDM'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$ݵB฼BBO݊[D%2$ݵB฼B,BZ/ Sign / Noteb&&ޟޜs #2EakySystem-enheter HighRes-minneSystem enhetsnamnParametrar f|r diskenheterCentral Gammal addr Vill du {ndra parametrarJ[ndra parametrar f|rkonverteras till矸 ,<MV`i[ndra DR_: konverteringFelaktigt namn[ndra cont.-typFel typ[ndra CsFel typ[ndra clusterstorlekFel clusterstorlekGammal adresseringN '/MV{[r enheten centralFel CsSka disk-parametrarna sparasp} disk#[ndringarna best}r till n{sta resetSpara p} enhetFilen ej funnenTyp Cont.-typ &/;=?ACECs Clusterstorl.Sp{rrad S{tt sp{rr  *0:DQ[agmsy%+1Bp Cont.-typ &/;=?ACECs Clusterstorl.Sp{rrad S{tt sp{rr  *0:DQ[agmsy%+1B E? =* PREABS .BAC **%+----------------------------------+*%! PREABS !*%! ------ !*%! Autostart p} f|rst en assembler !*%! fil och sedan en basic-str{ng. !*$%! !*.%! (C) Luxor Datorer AB !*8%+----------------------------------+B*'L"* Date / VerRev / Sign / Note>V9* 83-02-22 / 6.00 / LDAB / Tillh|r Systemdisk, UFD-DOS`*&j!** ** ** ** ** ** ** ** ** ** **t* ~&!********************************** Main program* *5Autostart av maskinkodsfil (N) ݫ $ j  *Enhet: ݫU : 2*Felaktigt enhetsnamn C&3 Hittar ej & BASICINI.SYS `*( Vill du {ndra (N) ݫ  j!*(j22Maskinkodsfil f|r autostart ݫI 7< ] 'Felaktigt filnamn F*;P Skriv BASICstr{ng (max. 158 tkn) ݫ Z ! d 0n*7x,Kan ej st{nga BASICINI.SYS m * *'"*********************************** Initialization*  ݵ ީ False/True* Ǡ Ǡ0 &H?DR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3UFD:E<`abcdefghijklmnopqrstuvwxyz}{|@ABCDEFGHIJKLMNOPQRSTUVWXYZ][\D" .0123456789DN,*6TޜX$@ ABC 800 PREABS  Ver 6.00XJXTXޟXT XT= X^* hXr)|!Program f|r uppl{ggning av 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".   *&!*********************************$* Skriv ledtext och h{mta svar** V#9#Y#z(Ǡ; &0ߟ :D*&N!********************************X*,b'* Kontrol lera och formatera enhetsnamn(l#* Enhetsnamn ut i Dev$ om ej errorv*I , z +01DR:& ኽ  "(=  " (=  2 _(=  :݊:&  *( #***********************************9 4* \ppna filen BASICINI.SYS och h{mta gamla str{ngar** 4 2z# 2$>H BASICINI.SYS޸R#޸,L\ #޸,踇f#޸,Zp #޸,Ǡz ޟ !* X/&Gammal maskinkodsfil: Y"Gammal B ASICstr{ng :   * *& !******************************** *" * Skriv record 0 p} BASICINI$ * Filen {r |ppen som #1. * 8 i&SB / L #޸,݂V #޸, ` #޸,&j #޸,]Sǃ t ~ #޸,3 #޸,O!4` / #޸,!5  #޸,L #޸,b * #޸,Z #޸,0 ޸  *    *& !********************************( *2 * Felfunktion < *F ( $$ P !Z ;';;;d  n - Tryck ;x ll  ;';    *& !******************************** * * Kontroll av filnamn7 2* Filnamn 11 tkn utan . ut i Assnamn$ om ej error * !Hzy  閽 . 施  D ݊ ߵv#" Nv݊, x 6 b@ ޵v^J v T ` _.^ . bbb b bh r bbb |   *& !******************************** *$ * S{tt punkt och packa filnamn * &zy  z  ޵ V鐸    劽 . ޜ   & *InitConFormnamnFelOpenDevSlaskInmatningText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"Dr%N%XJ%b"l vy ngText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"D ? A g #*****************************#* NAMEDISK.BAC *#* Program f|r skivm{rkning *#* ABC800, ABC802 och ABC806 *#* (c)LUXOR Motala *#*****************************$*#.* Tillh|r systemdisk, 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*ީݵ True/False* $Eݫ)2 Gammalt namn<Volym: F*$PNytt namn (N)?ݫUZ jd*.n Nytt namn Volym: ݫ1xw"F|r l}ng rad. ݫ8 8>ݫQM{rkning utf|rd* ;*#*****************************Funktionsdefinitioner*&!*********************************,'* Kontrollera och formatera enhetsnamn(#* Enhetsnamn ut i Dev$ om ej error*h  z ",+601DR:$@Jኽ  "T(=  "^(=  h.݊r:$ |*% ********************************+&* Make drive descriptor from dev-name*Y!"""%$ DR$'>$ $  k`-3ߜ- ᜵ &*0$'> :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 sektor *********A"#I#,c`K Q?Qݍ4$Kan ej skriva p} skivan. Kontrolleraޫ8 Q#*****************************# ****L{s gammalt volymnamn****   *y W4 hW >WWޜ犈HW WRW  \WޜWfpz"****************************$**** L{gg variabel i dosbuff**"X ޵W6WWz ,W WޜW 8#*****************************#**** Inmatningsfunktion****** ##$& ;Ǡ;; &  ; $ . ߟ '8 Felaktig inmatning. ݫa8B  L #V *****************************#` **** Felfunktion*************j 9!|#!$t ;;%~ ݊Kvittera med CE;2    ;(;  VolymnamnSlaskDevDevsInmatDevnameFelDescReadsektDrdescDosbuffWritesektIdevTableEntryDriveSektnrStatusTextRadKolKvitteran R yy$ . 8Q >!KyQ#Wy    ;(;  VolymnamnSlaskDevDevsInmatDevnamektDriveSektnrStatusFelWritesektDosbuffInmatTextRadKolKvitteraSkrivSlaksVolymnanLisytDevsFormnamnDevFinddevDrdescDescIdescEntryTableAuto890IdevDevname4 R yy$B$.#8$>Q KyQ1!Wy VolymnamnSlaskReadse ?!r**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; UFD ABS`! +݊ 9 R, ǰ,금/ Sign / Note w! (EGIKMOQSUser file directoryFel vid laddning av UFD.ABS! +݊ 9 R, ǰ,금/ Sign / Note w! ?a 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 *?!T&$R+ &ISAMDEMO Demonstration av ISAM-filer&!1982-07-20 M Rudolfson Id`-Data (2ARTIKLARޫ߫" < ߫"F)P$------------ Huvudmeny ------------Z d n݊Gxޖv1,------------ Skapa ny ISAM-fil ------------ 0Ѓ Den befintliga ISAM-filen kommerЃ att raderas.4[r detta riktigt (J/N) ?ޫN"H""J "N ; DEMOCRE.BAC72------------ Kolla om ISAM-fil finns ------------ " ),j6ޫ@-Jߊ T ^ኽ hr2|------------- Avsluta programmet ------------ 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 "Listning 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'Hittar 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#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErrorErrcCodeKeyDummyNumberSizeIsamnameDriveKeys . $V 4yH"Ny _"o!#u* R "I"Q#y#޸,޸aoTypeFileExtHeadInpTextLengVarSlaskConvNameErro"?"ABC 80 Dator H ABC 800Dator, komplett 5@H ABC 810Bildsk{rm, f{rg } H ABC 815Bildsk{rm, monokromatisk  ABC 830Flexskiveenhet, 160 kByte@H ABC" 832Flexskiveenhet, 640 kByteZ ORD Ordbehandlingsprogram ;z DIAGRAMDiagramritningsprogram Hz GRAFIK Grafikeditor z ABC830 Flexskiveenhet, 160 kByte@H ABC" 465456 !@ 123 123  789 789 vv fdsa 12 @@{ uytyu uyt dh jhgf jh"gf 543 543 b dsfa fds  fgdssaffdfds hgfghf hgfhgf - 432432 43242"3432 XX 786678 7866875 DDc 7865567875457864  k 98798 8765 [l 6543654654 Lx# 432143243243223"41  <`+0 <`+ B <`+<`09`<0+90`+< 765763476437463764376476543764 RiH 6543 543 )h jhgghjjjhg " jhgjhg jhgfjghfjhgf S# <`+<`09`<0+90`+< 765763476437463764376476543764 RiH 6543 543 )h jhgghjjjhg 2?2ARTIKLARDAT2ARTNR VARUGR )22298798 #<@+0 U<@+<@09ANDERS [DSFA FDSA FGDSSAFFREDRIKHGFGHF JHGF JHGGHJJ JHGJHG 2KALLE dOLLE PELLE UYTYU 2^789 B?BBR ?R!  addopt.absՁ##Ձ,ֈ to start table!#Ձ,ֈ ISAMOPT REL!(#Ձ,ֈ~ to terminate2bB?ba i)d$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!)n$! !)x$! PROGRAM F\R S[TTNING AV DEN !)$! BATTERIDRIVNA INTERNA KLOCKAN. !)$! DELAR AV PROGRAMMET M]STE VARA !)$! I MASKINSPR]bK. !)$! !)$! LUXOR DATORER AB !)$! !)$!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! " I r  %_b;   ޜa@;ސ8"0 ,ݖޟ 96 / :  ;@JT^ HUVUDPROGRAMhr | b޵D!  - І KALENDER OCH KLOCKS[TTNING ІO= Ѓ]R: 19ЃM]NAD: ЃDATUM: ЃTIMME: ЃMINUT: ЃbSEKUND: ЃVECKODAGSNUMMER: $INMATNING MED KOLL AV MAXV[RDE&߫d%0߫M/:/'ނ/'邕D߫9N9'ނ9'X߫CbC'bl߫MvM'<߫WW'<ޫfaa1a7HC '킠C'M '킠M'9 '킠9' k7k/ '킠/'% '킠%b' k(ka'W '킠W' kS[TT KALENDER+k+u;,%',/',9',C',M',W' R[TT TID ? ([R TIDEN RIKTIG (J/N)? _; <)*b݊ 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,13b 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% / 9b !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% / 9r?r1000 ! * 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 ! +-------r-----------------------+ 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 fr|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* 121r0 ! *********************************************************************** 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 THErN 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) 2r470 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 ! ! Hurvudrutin 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 !r * 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 ! ********************************************************************r** 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 - rSkrivare (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$(Q7r$,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') THENr 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 ! *****************************r*** 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$+':' 339r0 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.(Rsir 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 Lr!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,21r"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 FNENDr# 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$ Volshortr$$ ',' 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=r%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 3r&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 PEr'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 ! *r( 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 r)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)) 4r*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 filr+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(VARPTRr0(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 ! +------------------------------------+ r14960 ! ! 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$(Rr2IGHT$(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$(Indexr3) 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 ! +--r4-----------------------------------+ 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 (Protbr5yte 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,Storr6lek$=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 ! * 5r7360 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 ! +-------------------------------r8----+ 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 5590r9 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$)r: 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 ! +----------------------------------r;+ 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 ! +---------------r<-------------------+ 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') Tr=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}r>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 >'; 596r?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);Skrr@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 rA! * 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 rB70 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