D@ D@SYSDIR SYS EDITRAD BAC@EDRAD BAC BASICINISYS ADDOPT ABS` OPTROSH RELOPTROSL SYS@CMDINT SYSCOPY ABSCOPYLIB ABS@DELETE ABSDISKCHEKABS DOSGEN ABS ERRCOPY ABS LIB ABSDRINI BAC DISKCHEKBAC@6LIB BAC PREABS BAC SETOPT BAC SETCAL BAC @EDRAD FUN STRKOLL FUN ED1 BAC `FORMAT FUN ORDMERGEBACD@ bc   D@ a bO J_________________________________________________________________________- Programnamn: EDITRADP(K__________________________________________________________________________2O<J____________________________ _____________________________________________F&P!_ HUVUDSLINGAOZJ_________________________________________________________________________ IF&0 :޵縼/ LG______________________________________________________________________61- SUBRUTIN F\R ATT BEHANDLA IF-SATSERMH_______________________________________________________________________0A D@0a bO J_________________________________________________________________________- Programnamn: EDITRADP(K__________________________________________________________________________2O<J____________________________0_____________________________________________F&P!_ HUVUDSLINGAOZJ_________________________________________________________________________ IF&00:޵縼/ LG______________________________________________________________________61- SUBRUTIN F\R ATT BEHANDLA IF-SATSERMH_______________________________________________________________________0IFޫޫ?$THENޫޫE.;;ޫޫnK8ELSEݫޫTQ@B?ߜE?ߜ WTAR BORT EJ RELEVANTA TECKENLIF W a160tkn)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 variabelP!D@POPTROSH RELOPTROSH RELP ""!!4*`-`!~5g.~(I#>(C"N#`8,s-`*.~(8.V.^K@yH`0{7s* !**"ͱ:G(*oLEb9B"*LEC* -`*. "!#b! PͱG#g (Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BASPICINISYSk(Mo _!O qomki!a_][*{/_z/WC~#F#N#( :O:G!j B*++7!BOOʪ~#F#N#( :O:GxAOq#p#BAS`bD@`GX0`v 110cEԇ`![!"E:*{"!"{!"i*q`6#6#6́:!6#!>1~/w/w> 14#y>~/w/w> y@ 4D>y~/w/w>y >`ׇ<!R?!>w*.6, !j#####= :W~O>bE(>2P0>b0.6c=.wc hT]66c,T]6cw}?ء~# "i!Aq6#PX`z!j"i:ɧ(=(=((=(#=FHF$6F!F*-F*0RAMUCMDINT SYS Abort OPTROSL SYS*x?g:EA ::E:WOxpW{]x(E2`˸(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~(?z>  <12{G :>(4y RAM! #~< [@`د `pD@pS tiÇÍ<8(2YÔù~üâøufýKNQTWZ]ËÅ=?*x?g˸: *m`##~>7 {z>?8s͌>8j{c.s1:WOxpW{]x(롩 #x,}p !x ͗,,͗{2˸͌(%?v({<.=  i_ {<.= 2{ ~O{4Cy!zo0$~͌(?z>  <12{G :>(4y}pRAM>!_>-*.~<(= #,N,,V,~/ ,^,~/ , (GB#(>7 *~,"CS2!=o=D = =i K[:[(:_#~< [͇دxp2@o&!|pF*[R8D:K+>Now.V#~_/ &ɀo&N{+zs#r[ͅ!6[!:(D <(> <_< "{z0*"!55 .w ,w:@_!!F?DwxNo&4~o-~iwyoO~axpNo&4nw-w}Jp3$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ͧ>Nplo&6ɀoN-{z>Bo^,V>Jo^,VR/͇ͧ8͢.O͢.O͢, /8.~.~,~͍> NЧ7 8ky< *|(kN> NzpzxG ~> &M~xpGAopy&~<> L/z>K>Jos,r>AoF/O8>2A87/2+~2͠ͅ8~*o B͋8Bگ*|ʷ~Yͅ8V! w#2!o0$~(,ͅ82O G* #y y=Oh!>w0hp UͶ= :ʷ͋ J!F B   .F ,F   [͋.F   y  ͋͠ͅ.~O*E >G   *> #  ͋!"" #" "!6.:@_-BɁ_F #y Ͷ,<Ͷ=)>@oOp H&B6.~ . ~,C ځ [ ><. w,w6. <. 6<&o< [ " 7R8* R" !q6.w6,w* [ RͶ=(,M!~(YW~w_-~.w> _>wyO0z=_~.N<{<ͪ ځ .N.~<,~<͌ [ԍ8U* ͐ 8K.4Zp 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.~Op &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~ *p ip & y0< o}(G0y %}o} z(xG0 {0Z >7ȅoG|8g> O{=!p,w: `i/ "TM G zG(zW0 { YyAo&~ w>  >?" >G@> x>(>*i~ *AD@ 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ˮ:7 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 naD@  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" /! 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 denAD@  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 rest7̀} ͔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$D@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 ?  ++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`̓D@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?  6"D@ 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:27z].*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<( ̯s4A}  8B(0>0> !6^ 5 4 ^ͨ54~*m`##~:*.~7.~?,v*~?@w*#N˶~2`q~ (#y3W:'73FssE!!:η >!]ͳ>2V'+##~ # L : W' !9> ' ''~0:ΧjssE!!͝^(666>>~ ^w *<o2S :Χ*,~ #^#VSZSͿ6B6C6'6&6#{~D7PR: i|12bk6#6 ͡ x0G> ͜.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.OptX* ***ީݵ 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*$edrad"Name of next program*&!********************************* * Main routine* ,(,݊2<2,ފ2<<,ߓ2k< F,ߓ mFFP* Z^Pd*,n ",߸Turn off 5 ms clickx*+"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* Separate between old DOSsesT*^Sj A)z!h out (2),a : retr+Z |޸,,}  ޸,-}   Z'ABC 6-1x eller 8"/800 8"/800ABC 6-1x*)$************************************% * Separate between mellanDOSses*  Lj`-劽 ABC 6-3xj`-튽 ABC 6-2x &ok{nt0:*,D'***************************** *********N*&X!* Separate between Super and NETb* l2!w vp``$`݊ UFD-DOS ver. ,$`ኽ ABC-NET ver. , UFD-DOS ver. ,*,'**************************************** %* Set current drive to DR: mellanDOS*  !刵4m`-,圸 Set DR_:, e.g. shift 1 bit left#݊DR_: motsvarar SF_:DR_: motsvarar MF_: ** %**************************************) 4$* Set current UFD-DOS drive to DR_:>*H!#!!R`ݍ\-݊ fᜈpk`-, Set DR_:zk`-k`-ߜ-'DR_: motsvarar  _:**%**************** **********************%* Set UFD-DOS drives to biased addr.* #9#i## k`- ᜵X䡜ޜ,䈧␽ޜ,@ Set biased  ᜵  Gammal addressering$ .  *(8 #**********************************B *"L * Copy CMOS clock into TIME$V *` .J$$C$6j >dž6>Dž6y :t ǀ6>6>dž 2~ 6>6> 8 dž67LJ# >  6  ++Z  * 詸,ݸ8 ,,,6 멸,ޫ,߫, Datum och tid: )  *$ ****************************** * * Convert BCD --> Decimal *( %91%zQ%2  < 숧F VersDosversSepoldSepmellSetmelld D@!w**  ** Ver 6.00, 1982-09-23# Copyright 1982 Dataindustrier AB; DISKCHEKABS`! +݊A P,ǰ,금 Ver nb / Sign / Note r! @BDFHJLN Diskcheck Fel vid laddning av DISKCHEK.ABS! +݊A P,ǰ,금 Ver nb / Sign / Note r!MD@! 2(I* LIB .BAC * '"+------------------------------+ '"! LIB.BAC ! '"! Biblioteksprogram ! '"! f|r alla diskenheter & RAM: ! '"! (C) Luxor Datorer AB / ! '$"! Tillh|r! Systemdisk, UFD-DOS ! '."+------------------------------+ 8* (B#* Ver date / VerRev / Sign / Note BL=* 83-03-17 / 6.00 / LDAB / Orig. LIB Ver 5.0 f|r RAM/skiva@V;* 83-06-23 / 6.01 / LDAB / CE or CR clears error message` j!MtH***********************************************************************M~H* *MH* M A I N P R O G R A M *MH* ! *MH************************************************************************  * 0p %Enheten ej klar %*_6-!%Skrivaren ej READY. ) , *  * Scan sequence*ݵ"First device (* 2"ݓ"/࣐</"ޜ:9F_Pj P6Z-%Skrivaren ej READY!. )d F+n*xC "ޜ" "ޟ"=*  & I; ;* MH********************************************************!***************MH* *MH* F U N C T I O N D E C L A R A T I O N P A R T *MH* *MH*! ]O* ABC800 LIB * Ver. 6.01 * * &O= 00'Filnamn: Storlek: Skriv-Raderskydd:0:'------------ -------- ----- -----------1DIPMax filename on ! displayN* X* Machine code areasb* l!Uv!('8 >ǡǻ 'mp`!:v!U~<~<_#! # *  * &!******************************* * $* Set/Reset linear addressing *  )'t _i P 6 _(=_ @ Res ol!d addr. *᜵4 >H* Ri_ \fp* &z!******************************* * ,'* Make drive descriptor from dev-name * y!(i(9UFD:t9 9 !9RAM:!R M ݵ3 Yߜ- ᜵   * > Yᜈ Don't show DR again if Scan$ ݊Yᜈ DR conv. $ ". 9RAM:9'8 9!RAM: ކB Yޜ䈧L  V ` j *t 1|1 ~  ᜈ%  Y%ޜ䈧 -! ݊ UFD not active   * * %+---------------------------------+ !* %! Huvudrutin f|r en drive el. RAM ! * %+---------------------------------+  \ # 9UFD:     7 ( 2 < * MF H*****************************************************!***************** MP H* * LZ G* 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 *Md H* * Mn !H********************************************************************** x * ! (9yՂ *& !+-----------------------------+ & !! Meny ! & !+-----------------------------+  xa y ! *  ½;$ 1 - Skrivare (Printer)  2 - Storlek  3 - Filstatus 4 - Viss drivenhet) V{lj (1,2,3,4) O ޵ BO& 1234O݊Oᖆ " ޜ!, 6 O1 @ O2 22J O3 88T O4  ^ h * r Enhet ? O@| On*Felaktigt enhetsnamn P !  * ' "********************************  * % * Skriv ledtext och h{mta svar  *  $ r'''y z * Ǡ ;$ 9RIS  ;  ޜ  !;& X 0 : 4  "D  Skip leading spacesN X ߟ b *%l Funktionstangent v   * ' "********************************  * - (* Kontrollera och formatera enhetsnamn ! ޜ n! ފ ߊኆ ޜ!$ޟݐݵ .⊽C C8㊽B LV`*%j *******************************t*~!* List filenames on pr:*Y346y 7pr:޸ #޸,#޸J#޸,9—,Llediga av totaltR sektorer.#޸,VOLYM: #޸#޸,)#޸,)ƒ!ޟ ފ )޵ޜ#޸,;S(#޸,ƒ ƒ ƒ ƒ; 2ޜ<W FP*Z d nx*% *****************!*************** * Read volume name * $ # ݫ y o ޜ犈%   ޜ  ",!* %6 *******************************@*(J#* Read short volume name in sysdirT* ^5{hMr9 sysdir.sys߸| #߸,O踇O .O *  *% ************! ********************* Find MFD device*%55z Yᜈߜ-/ᜈYDR&ޜ0 RAM: (:) DNX*'b"+-------------!!-----------------+ 'l"! Sortera in filnamn i listan ! 'v"+------------------------------+  ((1)i))ƒޟIߣ*ƒޜ  ޜ&ƒ ƒޜ!" * (#********************************* * !* Read one physical sector *  g&)8, f` *4݊>ǀ ;H툽09Skivan d}ligt formattera!#d.[ 4R퟈%9Diskfel '  \ fp* +z&+----------------------------------+ +&! Bitmap ! +&+----------------------------------+ $ )!*ފ!$m -ފ9UFD:{{+R*ޟ +L%9UFD:ޟ .퐸s  ޜ $.!%* -8(+------------------------------------+ -B(! Omvandlar sm} bokst{ver till stora ! -L(+------------------------------------+ V'jr'`݊5j _  _ t ~!&*.)+-------------------------------------+ .)! H{mta filnamn ur DOSBUF 0 ! .)+-------------------------------------+ (B)( § . *.)+------------------!'-------------------+ .)! Skriv- och rad`rskydd ! .)+-------------------------------------+  ,),,8݊  (§ޜ 2ވ(=S<߈(=R FP!+* 휵|* ޜ0ƒޜƒޜƒ *+&+----------------------------------+ +&! L{s ett tkn ! +&+----------------------------------+ !,4R44&Iߟ*; 0 :Iߟ ;DNX*+b&+----------------------------------+ +l&! Fler utskrifter ?? ! +v&+----------------------------------+ a"wIP!-I;0Fler utskrifter (J/N) ? ݫO#O j  * -(+------------------------------------+ -(! Skriv ut hj{lptext ! -(+------------------------------------+ a2/!.IP8(PF5=F|reg}ende SH+PF5=F|reg}ende enhet;5%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= ; 4>H* 'R"******************************** \* f* Felfunktion p* z%z,Q1  ;!;I;;;- LjޟH - Tryck ;   ݊  Ɲ*;I; * ,SetlinInitMenyFilScanEnhetDevnrDevsDevDescScrollinitScrollL{ngdMoreQtabAntalStorVolnameSummaWidDosbufWidcomp1Widcomp2Huvud!1BitmapConStorlekFilstatusDevnameFelSelcodRdsecRamHj{lptextStatusReadfilSetRtabTextRadKolUpcaseIdevTableEntryClusiSortFilnamnBottomMittenTopSecnrIndexSecOsizeRsizeTknMaxl{ngdKolumnCrMinstaSt|rstaBackstepStr{ngNull!2SkrivNamnProtProtbyteIndex1SysdirAdressRamcardFilstorlekStartB|rjanRadenL{geSizeTillbakaDirsecFlaggaTeckenErrorMindriveMaxdriveRamvalKvitteraSlaskUdescQselcodTkn1HelpMxdirsecXxList4900ShowPrlistSelcodeLitList4200Lin!3LstMxlinOptKeyMxnameDirbegForwVolshortMfdMfdcodPrheadShortvolNameNrEd3670TabulLheadLhead1Lhead2RibadFilesizeDiskerrEcodListSettedUnsign9 y  y"!/2!9Z!CY5Iy#O:Y9(_J'i"s"J# #5###$!4b$"6z77y4$"y %(!5%i(2$8)%Lq*RA*{2zolNameNrEd3670TabulLheadLhead1Lhead2RibadFilesizeDiskerrEcodListSettedUnsign9 y  y"!/2!9Z!CY5Iy#O:Y9(_J'i"s"J# #5###$!5!+Y+++,Z,,i---7y" 8,q1+11I274A$`a5f5l%}5)569# dfilDirsecFlaggaHj{lptextScanDescIdevTableEntryDrdesc9 ''1(Q()(/(5!";y)A)GyMyS ]"g:q=*j***+1* ** ** ** ** ** ** ** **t* ~&!********************************** Main program* *5Autostart av maskinkodsfil (N) ݫ $ j  *Enhet: ݫ1U : 2*Felaktigt enhetsnamn C&3 Hittar ej & BASICINI.SYS `*( Vill du {ndra (N) ݫ  j!*(j22Maskinkodsfil f|r autost1art ݫI 7< ] 'Felaktigt filnamn F*;P Skriv BASICstr{ng (max. 158 tkn) ݫ Z ! d 0n*7x,Kan ej st{nga BASICINI.SYS m * 1*'"*********************************** Initialization*  ݵ ީ False/True* Ǡ Ǡ0 &H?DR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3UFD:E<`abcd1efghijklmnopqrstuvwxyz}{|@ABCDEFGHIJKLMNOPQRSTUVWXYZ][\D" .0123456789DN,*6TޜX$@ ABC 800 PREABS  Ver 6.00XJXTXޟXT XT= X^* hXr)|!Program f|r uppl{ggning 1av 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".  1 *&!*********************************$* Skriv ledtext och h{mta svar** V#9#Y#z(Ǡ; &0ߟ :D*&N!********************************X*,b'* Kontrol1 lera och formatera enhetsnamn(l#* Enhetsnamn ut i Dev$ om ej errorv*I , z +01DR:& ኽ  "(=  "1 (=  2 _(=  :݊:&  *( #***********************************9 4* \ppna filen BASICINI.SYS och h{mta gamla str{ngar**1 4 2z# 2$>H BASICINI.SYS޸R#޸,L\ #޸,踇f#޸,Zp #޸,Ǡz ޟ !* X/&Gammal maskinkodsfil: Y"Gammal B1 ASICstr{ng :   * *& !******************************** *" * Skriv record 0 p} BASICINI$ * Filen {r |ppen som #1. * 8 i&SB / L #޸,݂V #޸, ` #޸,1&j #޸,]Sǃ t ~ #޸,3 #޸,O!4` / #޸,!5  #޸,L #޸,b * #޸,Z #޸,0 ޸ 1 *    *& !********************************( *2 * Felfunktion < *F ( $$ P !Z ;';;;d  n - Tryck ;x ll  ;'; 1OpenDevSlaskInmatningText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"D1r%N%XJ%b"l vy ngText1BasicKontrollStatusAssDriveAssnamnDevsTextRadKolFr}gaDisplyoldAbsfilBasAss1Ass2SkrivKvitteraIndexHeadFchr1FchrList2500ErrBasic1WriteCodMprogSetpWidth80Xmid 9 :y& y& 0!:"DA D@Aa  addopt.absՁ##Ձ,ֈ to start table!##Ձ,ֈ OPTROSH REL!(#Ձ,ֈ~ to terminate2 to terminate2Q D@Qa 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' 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% / 9a AD@a6000 ! _______________________________________________________________________ 6010 ! 6020 ! FUNKTION FOR EDITERA EN RAD 6030 ! _______________________________________________________________________ 6040 ! 6050 Dmy=FNGetcur 6060 GET In$ 6070 IF In$<a>CHR$(192) THEN 6100 6080 IF RIGHT$(Str$,LEN(Str$))=';' THEN Str$=Str$+';' ELSE Str$=Str$+';;' 6090 GOTO 6220 6100 IF In$<>CHR$(199) THEN 6130 6110 IF Dcur=0 THEN Str$=LEFT$(Str$,LEN(Str$)-1) : GOTO 6220 6120 IF LEN(Str$)>Dcur THEN Str$=MID$(Str$,1,LENa(Str$)-Dcur)+MID$(Str$,LEN(Str$)-Dcur+2,Dcur-1) : Dcur=Dcur-1 : GOTO 6220 ELSE 6060 6130 IF In$<>CHR$(8) THEN 6150 6140 IF DcurCHR$(9) THEN 6180 6160 IF Dcur>0 THEN Dcur=Dcur-1 ELSE 6060 61a70 ; CUR(Cr,Ck+LEN(Str$)-Dcur); : GOTO 6060 6180 IF Dcur=0 AND ASCII(In$)>31 AND ASCII(In$)<127 THEN 6200 6190 IF Dcur>=0 AND ASCII(In$)>31 AND ASCII(In$)<127 THEN 6210 ELSE 6060 6200 Str$=Str$+In$ : GOTO 6220 6210 Str$=MID$(Str$,1,LEN(Str$)-Dcur)+In$+aMID$(Str$,LEN(Str$)-Dcur+1,Dcur) : GOTO 6220 6220 ; CUR(Cr,Ck) Str$ CUR(Cr,Ck+LEN(Str$)) SPACE$(80-LEN(Str$)) CUR(Cr,Ck+LEN(Str$)-Dcur); 6230 IF In$<>CHR$(192) THEN 6060 6240 RETURN Str$ 6250 FNEND GOTO 6220 6210 Str$=MID$(Str$,1,LEN(Str$)-Dcur)+In$+ar$,LEN(Str$)-Dcur+1,Dcur) : GOTO 6220 6220 ; CUR(Cr,Ck) Str$ CUR(Cr,Ck+LEN(Str$)) SPACE$(80-LEN(Str$)) CUR(Cr,Ck+LEN(Str$)-Dcur); 6230 IF In$<>CHR$(192) THEN 6060 6240 RETURN Str$ 6250 FNEND GOTO 6220 6210 Str$=MID$(Str$,1,LEN(Str$)-Dcur)+In$+0 ____________b1l,- Funktion som formaterar en radMvH_______________________________________________________________________r&]% ; ; ޵ݵ}&}/}ޜ;}q D@q5600 ! ________________________________________________________________________ 5610 ! 5620 ! _ FFUNKTION F\R ATT KOLLA ORD I EN STR[NG 5630 ! _________________________________________________________________________ 5640 DEF FNStrkoll(Text$,Bef,Dublq) 5650 R2=1 5660 FOR R=1 TO 2 5670 Q(R)=INSTR(R2,Str$,Text$) 5680 IF Q(R)>0 THEN R2=Q(R)+1 5690 NEXT R 5700 IF Bef AND Q(1)=0 THEN ; Text$+' SAKNAS' : STOP 5710 IF Dubl AND Q(2)>0 THEN ; 'FLERA ' Text$ : STOP 5720 RETURN Q(1) 5730 FNEND blqR2=1 5660 FOR R=1 TO 2 5670 Q(R)=INSTR(R2,Str$,Text$) 5680 IF Q(R)>0 THEN R2=Q(R)+1 5690 NEXT R 5700 IF Bef AND Q(1)=0 THEN ; Text$+' SAKNAS' : STOP 5710 IF Dubl AND Q(2)>0 THEN ; 'FLERA ' Text$ : STOP 5720 RETURN Q(1) 5730 FNEND bl @D@ a bO J_________________________________________________________________________- Programnamn: EDITRADP(K__________________________________________________________________________2O<J_________________________________________________________________________F&P!_ HUVUDSLINGAOZJ_________________________________________________________________________ IF&0:޵縼/ LG______________________________________________________________________61- SUBRUTIN F\R ATT BEHANDLA IF-SATSERMH_______________________________________________________________________IFޫޫ?$THENޫޫE.;;ޫޫnK8ELSEݫޫTQ@B?ߜE?ߜ WTAR BORT EJ RELEVANTA TECKENLIF W aYH޵8R/ݖ& / ;ޜ)\;ޟ a f pB@=____________________________________________________________J$T- TAR BORT EJ PRINTBARA TECKENB^=____________________________________________________________B!j B'"޵> !~    & StrSlaskInGetcurCrCkPutcurDmyClTknStarVilkVillkReturnjWhileInstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyrFormatStrpEd7150TeckenTstr I&" y /V"?$E$K$Q%W!a%k q w}y} !R Y# A!InstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyr aD@ 7000 ! _____________________________________________________________________ 7010 ! 7020 ! - Funktion som formaterar en rad 7030 ! _______________________________________________________________________ 7040 ! 7050 DEF FNFormat$(Slask$) LOCAL Slask$=400,Rad$=400 7060 I2=1 : R=1 : R1=1 7070 R1=R : R=INSTR(R,Slask$,';') 7080 IF R=0 THEN 7170 7090 IF R=R1+1 THEN 7070 7100 Inst$(I2)=MID$(Slask$,1,R-1) : Slask$=MID$(Slask$,R+1,LEN(Slask$)-(R)) 7110 IF LEN(Slask$)<2 THEN R=R+1 : Inst$(I2+1)='' : GOTO 7170 7120 I2=I2+1 7130 GOTO 7070 7140 I=1 7150 IF LEN(Inst$(I))>0 THEN Rad$=Rad$+' '+Inst$(I)+' ;' : I=I+1 : GOTO 7150 7160 IF MID$(Rad$,1,LEN(Rad$))=';' THEN Rad$=LEFT$(Rad$,LEN(Rad$)-1) : GOTO 7160 7170 RETURN Rad$ 7180 FNEND I2+1)='' : 0 }݊t}ޜ'/ޜ}ޜtޜ///݊l 4ޜ>YH޵8R/ݖ& / ;ޜ)\;ޟ a f0 pB@=____________________________________________________________J$T- TAR BORT EJ PRINTBARA TECKENB^=____________________________________________________________B!j B'"޵> !~0    & StrSlaskInGetcurCrCkPutcurDmyClTknStarVilkVillkReturnjWhileInstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyr0FormatStrpEd7150TeckenTstr I&" y /V"?$E$K$Q%W!a%k q w}y} !R Y# A!InstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyr }݊t}ޜ'/ޜ}ޜtޜ///݊l 4ޜ>YH޵8R/ݖ& / ;ޜ)\;ޟ a f pB@=____________________________________________________________J$T- TAR BORT EJ PRINTBARA TECKENB^=____________________________________________________________B!j B'"޵> !~     & StrSlaskInGetcurCrCkPutcurDmyClTknStarVilkVillkReturnjWhileInstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyr FormatStrpEd7150TeckenTstr I&" y /V"?$E$K$Q%W!a%k q w}y} !R Y# A!InstInsrListed1170Led1170MinDcurDurElseListlistGotDkurEdradThAvslIfFiTextStrkollBefDublElsRtRadCfrRaveStyr D@ x c # save ordmergeProgramnamn :ORDMERGLGProgrammet h{mtar in vilka ordfiler som skall mergas ihop. Resultatet OJl{ggs i m}lfilen = Namn$. Parametern sudda = 1 anger att de l{sta filerna tas bort.MH----------------------------------------------------------------------- ޸2޵ d =f/ANGE NAMN P] CMD-FIL (utan .cmd) eller -RET- hݖ&nANGE NAMN P] M]LFILEN $7xANGE NAMN P] MERGEFIL #  43ޜF\R M]NGA FILER7)SKALL DE L[STA FILERNA RADERAS -J/N- ..J޵8ݵ87.cmdง#>>>ߟ /v߸ L[SER FIL = k #߸>>>ߟ >#ފ[ފ#޸>ݵ["[݊#޸> ݵ[L"&VFEL=R`߸2j8ފޜ ޜtMERGE COMPLETED~-!FILEN  SAKNASDFEL VID \PPNING AV MERGEFIL  . Felkod = )$޸Skapar m}lfil@FEL VID \PPNINMG AV M]LFIL = $ . Fel kod = 4(COMMANDOFILEN  .CMD saknasAFel Vid \ppning Av CMD-fil .CMD Felkod = S-FEL VID L[SNING AV M]LFIL FR]N COMMANDOFIL = $.CMD FELKOD = "& จR/F EL VID L[SNING AV MEGEFILER FR]N COMMANDFIL = $.CMD FELKOD = &fzzPzP%  aa aǀޟNamn1Namn2NamnInSuddaRecM}lfilenFinnsSkallDenSkriv as\verFelVid\ppningAvMergefilCmdfilCmffilCmdFilOpencmdfilListR{knRa{knL{sningM}lfilFr}nCommandofilTknHtknDeffnHjustTkned5030+f y #$b . 8 >zH1$Ny[ a%amn1Namn2NamnInSuddaRecM}lfilenFinnsSkallDenSkriv`ET :^!AV{ߋ7%7ˮ!̞ / 0:G`h9 !`:!Q~<( } >3}AwGnf##Nɟ>x*W:(?14>0#s߆E!"ip;y!4~0:((%: <>(< :<27><M>>8:!w͠ͅ8~O_ K W!w _.w>_/ " o g+" !"#"!^,Vͅڃ.  .w>.w:@_!BA ( yOy[( x(z7p b>2!>6B>2ͅ8(͍8!ͅ8U < >O0 (=:< 7: <>(< :<2 !>F>(!N>(> >(:>(@> >2> >2O <(>O0`Y [ͅD8  ͋8Yͅ8 ڷ@D@ 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*$$.62[:=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 !D@  82܅Ʉ8ͅ:p` !6!Ląs:P81!ͅ! Ϳ0!\ͅ2P!ͅ!6,# Ϳ!#~ (~#/(,( (> (:~#˯N 2D 2J 2V 2S 2P 2( :P!\?2*k` ~o0$~2#"~ } !6"!0P!!w*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) .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( euz2Kopians 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?  6D@aei /* DRINI .BAC *** DR_: initialization *#* Tillh|r Systemdisk, UFD-DOS*,'* Copyright (c) 1983, Luxor Datorer AB$**.%* Program to detect type of DOS PROM+8&* and to set DR_: equal to BOOT drive2B-* and to set drives to old biased addressingL*'V"* Ver date / Ver nb / Sign / Note1`,* 83-03-01 / 6.00 / LDAB / Urspr. DOSVERS7j2* 83-04-25 / 6.01 / LDAB / ABC806 TIME$ settingt* ~&!** ** ** ** ** ** ** ** ** *rSepsupTypSetsupdrOffsDevConoutSepDrSetSetoldBiaSetbiaTableEntryClusiLinkDrdescClcSettimeCodTbufList2200BdPtrBcdClickGy y""q%"#, 2R"<"F"P*$Z9`i!숧F VersDosversSepoldSepmellSetmelld!************************************************************************ Initialization"* ,9 6ݵީ False/True @ǠOJ* %Tk`-YDevice descriptor table^_ i8h_,, ,ݸ,Y,Y! , ,ݸDev desc tabler* |9Current device nameKBUFDDR0DR1DR2DR3HD0HD1HD2HD3SF0SF1SF2SF3MF0MF1MF2MF3MO0MO1MO2MO3RAM/  CScan devices forward)sDirectory sector used flag$ƃSorted files area ! zƍƗShort volume name* Ƨ6Ƨ,,ݸ,޸,,,ݸ,޸Disk buffer area* TI$I( 浱ݵ 쵷;  ABC800 LIB  Ver. 6.01II=  Ǡ!) $* Enhetsnamn ut i Dev$ om ej error  *  by% z  :9    + 01DR:9   ኽ   /݊  :9 !* 4 * -> (+------------------------------------+ -H (! Scroll rutin ! -R (+------------------------------------+ \ ~!4)94y 4 f ½3p 9—Lkvar avRIz VOLYM: ! ; ޜ ޜ # ƒޟMax filename nr O ݵ  ޜ ;O ƒ ƒ ƒ ƒ;!(Z*.d)+-------------------------------------+ .n)! Filens storlek ! .x)+-------------------------------------+ $)78$2  §ߜ0!)*#* Old DOS file size computing*§0 +**,'+-----------------------------------+ ,'! Huvudrutin f|r l{sning av filnamn ! ,"'+------!*-----------------------------+ ,&B&)(/' 6@{Js݊T ^޵hr§ |݊9'1 D@1=* PREABS .BAC **%+----------------------------------+*%! PREABS !*%! ------ !*%! Autostart p} f|rst en assembler !*%! fil och sedan en basic-str{ng. !1*$%! !*.%! (C) Luxor Datorer AB !*8%+----------------------------------+B*'L"* Date / VerRev / Sign / Note>V9* 83-02-22 / 6.00 / LDAB / Tillh|r Systemdisk, UFD-DOS`*&j!** ** *1   *& !******************************** * * Kontroll av filnamn7 2* Filnamn 11 tkn utan . ut i Assnamn$ om ej error * !Hzy  閽 . 施  1D ݊ ߵv#" Nv݊, x 6 b@ ޵v^J v T ` _.^ . bbb b bh r bbb |   *& !******1************************** *$ * S{tt punkt och packa filnamn * &zy  z  ޵ V鐸    劽 . ޜ   & *InitConFormnamnFelQ޵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/ '킠/'% '킠%0_________________________________________________________MZ$o ",Lj &  Ƥ¤ =5;ޟ ;;¤ j݊ޟ SJ0 8ߜޟޟ,¤ "!ޜ0¤ 7ݖ ޟkq;#$݊¤ ¤ )(.ݓ¤ ¤ 0 h8¤32B¤ޜALkqkqPkq;V¤  [",帇 `jKXF__________________________________________________________________________________________________________________MZ$o ",Lj &  Ƥ¤ =5;ޟ ;;¤ j݊ޟ SJ 8ߜޟޟ,¤ "!ޜ0¤ 7ݖ ޟkq;#$݊¤ ¤ )(.ݓ¤ ¤  h8¤32B¤ޜALkqkqPkq;V¤  [",帇 `jKXF_________________________________________________________70 7120 I2=I2+1 7130 GOTO 7070 7140 I=1 7150 IF LEN(Inst$(I))>0 THEN Rad$=Rad$+' '+Inst$(I)+' ;' : I=I+1 : GOTO 7150 7160 IF MID$(Rad$,1,LEN(Rad$))=';' THEN Rad$=LEFT$(Rad$,LEN(Rad$)-1) : GOTO 7160 7170 RETURN Rad$ 7180 FNEND I2+1)='' : >(H閽#>>>ߟ $-Nޜ>;N"Nݖ HޜHr>${$!NQ|NݖF FELAKTIG KOMMENTAR I M]LFILEN = $ I CMDFILEN .CMD޵#>>¡>ߟ >>!N$NݖBortkommenterad rad>>>w > ޜYV'F\R M]NGA MERGEFILER I COMMANDOFILEN = $.CMDK\RNINGEN AVBRYTS$޸\ppnar m}lfil=& M]LFILEN $% FINNS. SKALL DEN SKRIVAS \VER? -J/N-00 ..J.j.N.n<:.N.n'ANGE NAMN P] NY M]LFIL $*D M]LFIL = $ \PPNADN޵X޵[bl