SYSDIR SYS LIB BAC`COPYLIB ABSCOPY ABS DELETE ABS`BASICINISYS UFD ABS`UFD BAC LIB ABSCMDINT SYS@LOGIN ABSCOPYLIB CEN STARTUP BACSTARTUP1BAC LOGIN BAC` PRESTARTBACREPROT ABSREPROT BAC@RAMOPT SYS` SETSTARTBACSTARTCMDSYSLIN80 BAC LIB80 BAC`UFD80 BACUSERDIR Ufd@SKRIVETTUfdSBY UfdLMK UfdPTN UfdNIN Ufd`BILBO UfdBER UfdFAKT `INITIERAPR FINANS ? bc !? !\ * LIB.BAC** Library list ** Ver 6.00, 1982-09-23+$# Copyright 1982 Dataindustrier AB8*$L* Written by G|ran Nordenborg&`!** ** ** ** ** ** ** ** ** ** **t*'"* Ver date / Ver nb / Si gn / Note'"* 82-07-07 / X.00 / GN / Main83* 82-09-10 / X.01 / FB / No 'CMDINT.SYS' load.*%* 82-09-23 / 6.00 / GN / Release*&!** ** ** ** ** ** ** ** ** ** *** EJECT&(!********************************< *P* Main routined*0x LIB ABS`!  +-݊"Load error - sorry. r7(Sorry, too old LIB.ABS used ;'ǰ,Illegal drive number. LBigListyNameptrDrvptrOptptrInitializeNameTempNotraceLoistSaedSedzyyy"Load error - sorry. r7(Sorry, too old LIB.ABS used ;'ǰ,Illegal drive number.0c?0 88 !:o` !_د2!~# (~#/(,( ( (~#V :2:P!! =0! 2 !! =0! 2`!!~J :2!!P0!!: 2P!U08 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!y07o0$~:P *m`^#Vy_0>ͶX'*yo~#<+~#,,, # } o~f>oR  (# >.!!~A:A(&I!XN (7J :=A8*q#>.6#6"#06'6,;y( O y*##" ",د2:ѧ!!!*#~X+~#_ͦ8(:!!/7!:O>`X!/*:O `$`ͩ*"* !Kx<!COPYLIB CEN:Χ7[:::#0E54>^.s $: >> *.V-^-S~ɇ.(ɯ274''''} 8B 6 #0>0! 6 ! ~.(͔8wX7#~ ( ͔8wq! AڢA^?0:?>E`E`04I2ί2>-`X[!~4W*$.: 8֯2:Χ(([!~4W*$$. 0`:!ξ :Χʺ*R+":Q!aw !`>2QX!]V!\^ '`>2>2:ηO!!22*"*"#~+~ :W(!7!!03V!#_ͦ8 = !!/7!J==!:O>2Q>`X!/:O `!JGE`E`>-`X*$.[S:<2 XE`E` -`*$$.[S:<2 G*"*"[ /02cS":=2ʲÏ*"*": ί2:O:ιͧ!s!!V:2 v! ##!7!9R! 7:_(*~?w#:w:_( *:w#:w~#foSC2}2y2``K[h0 61p:2:*.~7.~?,*N˶f`q 181 bk6#6 j x0K> e@8=u#jx 0,>eu. #jx0> eu >7_͂0͂8+~#*0 0{ (0:?A^?Kopiera ########.### ? Kopiera fil? Kopiera fr}n ? Kopiera till ? Verifiering? (J/N) Felaktigt filnamn Felaktigt devicenamn Minnet fullt. Orginalfilen finns inte. Kopian finns inte. Du anv{nder ett f|r gaM0 /wmmalt OS !! SYSDIR SYS Fas 2 Kopiering Programfel !  Fas 3 Verifiering Inga verifieringsfel  Verifieringsfel - Kopiera en g}ng till  Sektorfel p} kopian  Verifieringsfel  Sektorformatfel p} orginalfilen  Sektorformatfel p0 .j} kopian  Olika fill{ngd sektorer kopierade ** Kopiering av filer ** Ver 6.00, 1982-09-23 Tillg{ngliga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Kopiera ej resten av skivan J - Kom0 u-]piera denna fil J=Filnamn.typ - Kopiera med nytt filnamn Orginal och kopia m}ste vara olika Fel i biblioteketR8liga kommandon: A - Kopiera resten av skivan X - Uthopp, kopiera inget I - Kopiera ej resten av skivan J - Kom@?@8! :R Ÿ!! =0!]2i!! =0!]2j!{!Pk0!F!!`k0!F:i2P:j2`!6 !~# (+~ ( ,ʻ##~2G> 2G!RK B`.P9/!b~ T]!KB`!j~@8 T]!SB`!`9 `!3` $`͕`! VB`:X !F !`~ ]Th!VNy!] X!D:G B`TB`!AOB`BB`!HAB`! E`2g-E`-` !g~4W*$.:g 8߯2h:gɧ(% !h~4W*$$.C@7 0`:g!hɾ :fɧʝ:Q!aw !`>2Q!]V!\^ '`>2f-E`!R4®#4îOBJABSTXTXXXXXXXXXXXbk6#6  x0K> @8=#x 0,>. #x0> >7@6&_08+~# (0:?A^?** Doscopy ** Ver 6.00, 1982-09-23 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopian0@453s namn?  Hittar inte orginalfilen ! ** BAD4 OPTION SPEC. **8-23 ** Ny fil ** Felaktigt filnamn Felaktigt biblioteksnamn Fil som ska kopieras?  Kopiera fr}n ?  Kopiera till ?  Kopian0P!?P 88 !u:P8L!! =0! 2p!!P0!!o:p2P!u"I"Kʯw#w:P! 72p:p2 *m`~#7!y 3:P *m`^#Vy_0*k`: o0$#N˶f`q*:Py(ʝoMP8 ~G#<ʝ~ʝ> o~fʝ>oR  (›#]>.!/!]!M~A:MA(Iʪ!XNʜ ()J *Iq#>.>SIyOҧ §[ISq:vʧ!m!!*K~#45!_>P7:pO`!$`!`*K"K!8!7bk6#6 ͊ x0K> ͅ@8=͕#͊x 0,>͕ͅ. #͊x0> ͕ͅ >7_͢0͢8+~# (0:?A^?Fel i biblioteket.Programfel P6' ! Fas 2 radering Drivenhet? Radera fil? Felaktigt device. Filen ej funnen. Radera  Filen raderad XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1982-09-23 Tillg{ngliga kommandon:A - RaderPE54a resten av skivanX - Uthopp, radera ingetI - Radera ej resten av sA4kivanJ - Radera denna fil 8 XXXXXXXX.XXX ?  ** Borttagning av filer ** Ver 6.00, 1982-09-23 Tillg{ngliga kommandon:A - Rader`` ?`)5JT]SO!4`!5ADDOPT ABSrun startup (24685)) ;"You are assigned to a UFD." u are still assigned to UFD' `All DOS LFT:s busyLine too longFile not foundLU not openEnd of fileHard disc error during readHard disc error during writeRecord fmt err (Unintialized data.)Record number out of rangeFile is write protectedFile is delete protected of memory`File space fullDrive off lineHardware write protectLogical file no openInvalid logical file numberInvalid drive numberInvalid trap numberFailure in system dataInvalid physical file numberDevice busyI/O operation is illegal in this deviceory`Console function keyIEC both talker and listenerIEC input without being listenerIEC output without being talkerKeyboard wait exhaustedByte from device not ASCIINew filename already existsBuffer overflowIllegal time specificationhis deviceory`ISAM - Mismatch at checkreadISAM - Key not foundISAM - Overlay missingISAM - Illegal opcodeISAM - Can't find index fileISAM - Index file not in placeISAM - Can't find data fileISAM - File not openISAM - Illegal end of fileISAM - Illegal keyy`ISAM - No key accessedISAM - Disc I/O errorISAM - Duplicate keysISAM - Illegal record terminationISAM - Illegal end of sectorISAM - Reserved error codeFloating point overflowArray index outside legal rangeInteger overflowISAM - Illegal keyy`ASCII arithmetic overflowString index negative or too largeNegative TAB, SPACE$ or STRING$Overflow in string assignAttempt to expand array or stringExpression out of range in 'ON'RETURN without GOSUBWrong return typeOut of DATA statementseyy`Wrong argument to built-in functionIllegal SYS() subfunctionPreviosly rejected lineDEF or FNEND entered wrong wayPrint using errorIllegal data terminatorInsufficient dataRestore to a non-DATA lineToo much dataRESUME or ERRCODE without errory` Dot address off screenMatrix size mismatchCan't do this MAT operation into selfMatrix too singularLine not foundLine is in wrong function definitionCan't find matching 'NEXT''NEXT' without matching 'FOR'Wrong variable after 'NEXT'hout errory` Nested FOR loops with same variableFOR with local variable illegal (sorry)Undefined user functionMultiple defined user functionNested DEF:s illegalNumber of indices not consistentNot assignableOption not part of this configurationEnd of memory` Protection violationIncompatible SAVE formatCan't merge compiled programsGRAPHICS is too late or COMMON errorPlease use the RUN commandCan't continueIllegal in direct modeBad command argumentIllegal numberCan't change precisionEnd of memory` Undecodeable statementText after expected end of lineMust be first on a lineIllegal index or argument(s)Illegal mode mixing in expressionNot a simple variableIllegal statement after 'ON'Can't find commaCan't find '='Can't find ')'d of memory` Cant find 'AS FILE'Can't find 'AS'Can't find 'TO'Linenumber expectedIllegal variable namer argument(s)Illegal mode mixing in expressionNot a simple variableIllegal statement after 'ON'Can't find commaCan't find '='Can't find ')'d of memory`aattffnn AA IIEEaa'' iidd''SSaa'' iidd''OOiieeuubbrreeppcceelleeaa aaiibbeennmm rruueettsslleeaa ooeemmxxnn nneeppeessoooo iippeevvrraalllleeaa ttttmmnn ffee OO''CCnnttffnn oommaa'' iidd''''CCnnttffnn )) ffmmmmrr` Drive 0 RING .BAC 3 LIB .BAC 7 CIRKLAR .BAC 3 PRINT100.ZPR 32  251 av 296 sektorer kvar Drive 1 Volume: ABC80SYS CMDINT .SYS 7 COPY .ABS 4 LIB .BAC 11 REMSBOOT.BAC 5 SPACE .ABS 4 MAP .ABS 3 COPYLIB .ABS 6 ABSIN .ABS 4 DO`SGEN .ABS 14 FORMAT .BAC 5 DISKKILL.BAC 7 BASF .BAC 2 SEEKTEST.BAC 5 FASTGEN .BAC 6 KRYPTO .BAC 20 LIB .BAS 10 BASICERR.SYS 11 CHECKHEX.BAC 4 MORSE .BAC 15 LASGEN .BAC 7 BYE .ABS 2 KRYPTO .ABS 10 DEBUG .ABS 32 OVERLAY .BAS 12 LAT`E .BAC 3 DISCDUPL.ABS 16 RGBMOT .ABS 3 EDIT .ABS 15 FIX .ABS 7 MARKVOL .BAC 4 BACDUMP .BAC 5 EWA .BAC 6 WRL .BAC 10 DOSGENFF.ABS 11  2 av 288 sektorer kvarSGEN .BAC 7 BYE .ABS 2 KRYPTO .ABS 10 DEBUG .ABS 32 OVERLAY .BAS 12 LAT` 3 DISCDUPL.ABS 16 RGBMOT .ABS 3 EDIT .ABS 15 FIX .ABS 7 MARKVOL .BAC 4 BACDUMP .BAC 5 EWA .BAC 6 WRL .BAC 10 DOSGENFF.ABS 11  2 av 288 sektorer kvarSGEN .BAC 7 BYE .ABS 2 KRYPTO .ABS 10 DEBUG .ABS 32 OVERLAY .BAS 12 LAT`p?p 8" 8 !i"*m`^#VS!#~ (~#/(,( (2 (.~˯LMvFRCiDM!"!7:R H!"! [~ (˯6,#wC(R !"![P^87:R !7)R:PO`8#-`83`O3`G(*B!`!p8 7!7;2! [z(c!"86`_6`WS˳ 6`o_08}*o*"!"[z!" "!"!͌[͌:p`( !>2>2S;2``:DS*m`s#r[z!7;2H6`_6p7`W͌:P 8=#x 0,>. #x0}p4K> >7_08+~# (0:?A^?~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7** User File Directory ** Ver 6.00, 1982-09-23Illegal op:p3Xtion !UFD,LMFRCD FILENAMEL - List current directoryM - Assign master file directoryF - Assign father directoryR - Rename current directoryC - Create a new directoryD - Delete current directorynone Assign to an existing directop2eryGive option (L,M,F,R,C,D,none) :Filename : Current directory is ' .Ufd'MFD'whose father is 'Current directory is 'MFD'UFD createdUFD deletedUFD renamedCan't delete 'MFD'Can't rename 'MFD'Drive must not be spep 1rcified !'MFD' has no father !No name specified !Bad file !File not found !Extension must not be specified !File exist already !Not[0 enougth continous space on device !Read/Write error during disk I/O !Directory MUST bep !0x empty !Can't set ufd pointer.p8pecified !Bad file !File not found !Extension must not be specified !File exist already !Not[0 enougth continous space on device !Read/Write error during disk I/O !Directory MUST bea? ! * UFD.BAC!** User file directory ** Ver 6.00, 1982-09-23,$# Copyright 1982 Dataindustrier AB;8*$L* Written by G|ran Nordenborg&`!** ** ** ** ** ** ** ** ** ** **t*'"* Ver date / Ver nb / Sign / Note'"* 82-07-07 / X.00 / GN / Main83* 82-09-17 / X.01 / FB / No 'CMDINT.SYS' load.*%* 82-09-23 / 6.00 / GN / Release*&!** ** ** ** ** ** ** ** ** ** *** EJECT&(!********************************<*P* Main routined*0x UFD ABS`!  ++݊ Load error - sorry. GR, Set no fileǰ,긐Set no optionRen1000zyyy* Main routined*0x UFD ABS`!  ++݊ Load error - sorry. GR, Set no fileǰ,긐Set no optionRen1000z?  88!oͫ!L̯ww66*m`^#VSH{> >2:P .!ͫ!P!!ͫ!6L#6,# :P!7=(<2< *H|!7>w!~# (~# (K (G,(/ ~# (9 (5_N S F P 8 O :0>( :TP & :ݾ!*k` ~o0$~2E"C#~2F02 :E@ N10C:E?*Cw2E:F2G>2F10:E?@*Cw2E:G2F9*k`o0$##V#^!r#s f( 6R#67A#6Mͯf!: J[H1*.^#Vz #~_01o!_6 ##!Qͯįf 9: [H1.~,n <=ʼ}w: [H}_03*$.#~ (S(R#^#VSJ#~<ʲ=ʲ R p6'( *( #²_yV ##F(1}ݶO533> > 0N(]*J| I}oV#>_:F(:< 3[!E<( w: _!k!7*1k~8 #:F=b#z>˯͕͕͕͕}  8B(0>0> !*4I6^ 5 4 ͫ^R54:*m`##~:E*.~7.~?,v*C~?@w*C#N˶`q^3R:0 *!!!:̷]>2͍Vͽ+##~ʆ ҆# ʌ4>3O Wͽ !9>Z ͽ ͽÍý~0PR: 2bk6#6 x x0K> s8=̓#xx 0,>s̓. #xx0> s̓ >7_͐0͐8+~# (0:?A^?V#~(.2M 0# ʪ (!9   ~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 UFD:P FILENAME.EXT ** Library list ** Ver 6.00, 1982-09-23 Drive ***: 1ZRAM:xxxxxInga av  sektorer lediga.Skiv fel = Bad device !Directory to list? S - SizeN - Filenumber.F - File status.P - Printer output.none Filename only.Options (S,N,F,P,none) 8 Ver 6.00, 1982-09-23 Drive ***:? p?m^V@+##~ # c Q W@ !9  @ @@~(02v{>pÙ ÐTÌóßçABS BAS CSS OVLCSS ABS:o`/>{ 0!$s#:w!!@:0 *s`FʵZ`*s`ˆE` @!w#w#w=2A>20:0G!Ao~<(!`:020q8!!P~# (+ ʙ~`8 w# !46.36!~$ 4T:N:.R .F:4M_B`6:+++~ >@6 O0:4@o&q=n:N:T:4 :N! !eB B`L:4B_͟.N~..R T.F:4J_B`:4 :N,(/ !3n&~ #( +}23!4~wq4!~$ !BO# >2J !CB`!@~!ʐOB`0!rÐ:@!AN!]``:0({'{!RFB`FQw#! <;: Ver 6.00, 1982-09-23 Copyright 1982 Dataindustrier AB l<~# 7 (+~:06D#6R#3; w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 NAMENAME.EXT F|rst}r ej Filen ej funnen Filnamn saknas Felaktigt drive nummer Not yet. -):** Disc operating system - Ver 6.** ** #6R#3;; >p#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 NAMENAME.EXT F|rst}r ej Filen ej funnen Filnamn saknas Felaktigt drive nummer Not yet. -):** Disc operating system - Ver 6.** ** #6R#3A? 8!u8! *.6 >N2>2C``:!y~ ( # y !!L[T> 2~ =y (,=#!!̀Ty =>N2>2C``: 7>2>2C``: d*. [m`Q8 8! 8!!ɇ 8!-ȅog~#fo~#G7ʯ+G^vɇɠɭ!8!y,( (`8~0 #> #~ (A ͪ(( ( 8w#>*Ͳw#!DM9 y! +** Login ** VB7er 6.00, 1982-09-28 during login. during logout..Please login.You must be a super-user.Illegal sub-functionTask already running.File not foundCan't change directoryBad login.Illegal terminal number.Illegal format.l!6&Some trapLogin:Password: A5V2#~( 0#  (C!9  2 8tionTask already running.File not foundCan't change directoryBad login.Illegal terminal number.Illegal format.l? 8!"!"!"!"!"*$."*~2*~#q!60w[* 6D*0!LJog~#fo>7ɍN#^# >N#0$![#s#rN#^# >N#0>Aɯ2!" ͋N8 :(.![00*#"!5 :(:a!qw0!>2a ͋! 2:20͋:O:>7y!>7# :(ɯ2!"*!"!"!-*xg.[S:<2 8*"!y( (N.7>2K ~#fo*B0*8!qw0!>2a ͋! 2:20͋:O:>7y!>7# :(ɯ2!"*!"!"!-*xg.[S:<2 8*"!y( (N?L8B B* STARTUP.BAC'** Startup **'' Ver 6.00, 1982-09-28'+&' Copyright 1982 Dataindustrier AB' * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb / Sign / Note(B#* 82-08-XX / X.00 / FB / Main.7L2* 82-09-08 / X.01 / FB / Auto start function.+V&* 82-09-28 / 6.00 / FB / Release.`*&j!** ** ** ** ** ** ** ** ** ** **t* ~EJECT&!********************************** Main routine* "4 ** Time:) **-m`-- You are assigned to an UFD.݊D Illegal time.&startup1Clear basic memory. loginExecute loggin.&!******************************** *% * Check if valid time and date.* (Ny 2c<ޜސޜ閆k!FߜސߜJP4Z;d;nݸ%xPlease enter date and time.YY-MM-DD HH-MM-SS ; X&!********************************* * Set clock* z !zP"! y y N-޵㙸ᐾ -,/ ኾ ᖾ .,: * ݊"ߵ=$, 0123456789݊6ޜ@ߟ'JTޜ(^ߜ,ݸ,,,#h,,,rݸ|ީ&!*********************************#* Check if auto start, login.*!mQ"y"޸,0Terminal card.  startcmd.sys޸#޸, #,,޸, ݊ީ1#޸,圧 Chain, login, passwd. #޸,& #޸,"帇0 #޸,4帇: 6&D66ޟ 6ޜNވ݊ "4X߈݊ީbݸlv TNameChainnameChecktimeSettimeTxSepLoginPasswordAutoDgfStrLlistStatTerm* "B!4r!z},z6y 4帇: 6&D66ޟ 6ޜNވ݊ "4X߈݊ީbݸlv?!n Chain name.x ** Time:) **-m`-- You are assigned to an UFD.&startup1Clear basic memory. loginExecute loggin.NameChainname* !?!-B d * LOGIN.BAC n* Written by Felix Burton&x!** ** ** ** ** ** ** ** ** ** ***'"* Ver date / Ver nb / Sign / Note(#* 82-08-XX / X.00 / FB / Main..)* 82-09-02 / X.01 / FB / Auto login.83* 82-09-10 / X.02 / FB / No 'CMDINT.SYS' load.+&* 82-09-28 / 6.00 / FB / Release.*&!** ** ** ** ** ** ** ** ** ** *** EJECT&!********************************** Main routine*"4m** Login utility **" Ver 6.00, 1982-09-28+,# Copyright 1982 Dataindustrier AB6-@,ݸf`J0T LOGIN ABS`! ^ +h&r݊Load error - sorry.,|"L ",4  ޵  ǯ,  ++ Some error.   nul:z"z 4zy zyy +y&r݊b?8(d#**********************************(n#* PRESTART.BAC *(x#* Uppl{ggning AUTO-start *(#* f|r ABC800 *(#* Ver. 1.0 *(#* LUXOR  *(#**********************************  Ǡ Ǡ ;"** ABC800 PRESTART **.!Program f|r uppl{ggning av BASIC--$kommando som skall utf|ras vid RESET;޵;Ǡ;;Device? ;;" BASICINI.SYS޸,  6#޸,݂@#޸,"J]Sǃ (T#޸,^#޸,(/hVill du ha optioner (J/N);(r( _J d6|O (push hl;la de,name;li c,-13(!4 (la hl,bufad.+1;inc (hl).(` (call load.;push hl3(!5 (la hl,bufad.+1;dec (hl)*( (pop hl;exts hl;rnc*( (exts hl;pop hl;ret#޸,#޸,(+ ADDOPT ABS(#޸,L#޸,(#޸,Z#޸,'Gammal BASIC str{ng:;; ;Ny BASIC str{ng? ;ߵ;Ǡ;; (ߊOk, ingen {ndring.2&;;0#޸,Z:#޸,D޸ N;Xb\ l;2Q!77V?#~( 0#  (P!9  ? bk6#6  x0K> 8=#x 0,>. #x0> >7_07$8+~# (0:?A^?~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7** File protection utility ** Ver 6.00, 1982-09-23 Bad optionREPROT,XWD Filename.Ext Directory up61date error. Filename : Bad filename Bad deviceFile not found X - Remove protectionW - Set write protectD - Set delete protectGive option (X,W,D) : ABS8 Ver 6.00, 1982-09-23 Bad optionREPROT,XWD Filename.Ext Directory up!?!!5 * REPROT.BAC%** File protection utility ** Ver 6.00, 1982-09-23,$# Copyright 1982 Dataindustrier AB;8$L* Written by G|ran Nordenborg&`!** ** ** ** ** ** ** ** ** ** **t*'"* Ver date !/ Ver nb / Sign / Note'"* 82-08-27 / X.00 / GN / Main83* 82-09-11 / X.01 / FB / No 'CMDINT.SYS' load.*%* 82-09-23 / 6.00 / GN / Release*&!** ** ** ** ** ** ** ** ** ** *** EJECT&(!*************************!*******<*P* Main routined*0x REPROT ABS`!  +-݊"Load error - sorry. GR, Set no fileǰ,긐Set no optionCBigLis!tyNameptrDrvptrOptptrInitializeNameTempNotraceLoistzyyy  +-݊"Load error - sorry. GR, Set no fileǰ,긐Set no optionCBigLis1@?18EO1,8 !~!M ~y~y[~#foN8 Ab?AN * SETSTART.BAC** Startup set ** Ver 6.00, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb / SignA / Note'B"* 82-09-08 / X.00 / FB / Main+L&* 82-09-28 / 6.00 / FB / Release.V*&`!** ** ** ** ** ** ** ** ** ** **j* tEJECT&~!********************************** Main routine* ޸,0TermAinal card.$Get terminal number. startcmd.sys޸L startcmd.sys޸%#޸, Clear status byte.#޸,  #޸, ݊N#޸,圧 ( #޸,A2 #޸,$帇< #޸,.帇F Auto start ;+P߈file: is disabled.Z Auto login is;%dވ :$ disabled.nxAsk if any auto start.߈ Y8N80Do you want auto staArt? (8) BB8B#B _ Y߯Auto start file:B;B L&LBLޟ BLޜB1B햾$Too long name, try again.{B B$߆SeAt auto start option.Ask if any auto login.ވ Y8N80"Do you want auto login? (8) B,B8B#6B _ Yޯ @Enter login name:B;'J$喾Too long loginA.TB$ B$^Enter password:B;(hB喾Too long password.rB. B.$|ކSet auto login option.Time to update file.#޸,圧 #޸,A#޸,$$#޸,..#޸,-#޸, At last update status info.޸(Can't create 'STARTCMD.SYS'./LstTermStatChainnameLoginPasswordStrDef! zI r $ . 8Z!B:!LA y #޸,$$#޸,..#޸,-#޸, At last update status info.޸(Can't create 'STARTCMD.SYS'./LstTermStatChainnameLoginPasswordStrDef! zI r $ . 8Z!B:!LQ?Qsetstart felix fb eate 'STARTCMD.SYS'./ sswordStrDef! zI r $ . 8Z!B:!Ly *#޸,$$4#޸,..a?a* LOGIN.BAC * Written by Felix Burton &** ** ** ** ** ** ** ** ** ** ** * '* Ver date / Ver nb / Sign / Note (* 82-08-XX / X.00 / FB / Main. .$* 82-09-02 / X.01 / FB / Auto login. R CK :: 9-10 a8.* 82-09-10 / X.02 / FB / No 'CMDINT.SYS' load. +8* 82-09-28 / 6.00 / FB / Release. B* &L** ** ** ** ** ** ** ** ** ** ** V* `EJECT &j******************************** t* ~* Main routine * :: 9-10 a"** Login utility ** " Ver 6.00, 1982-09-28 ,"# Copyright 1982 Dataindustrier AB @A ' LOGIN ABS `! A )6*6 **** t* ~* Main routine * :: 9-10 a<A 6A6A޺"Internal error.: (A A6A6 C A AA: -C 㺇"Load error - sorry.: FL "纇)ALo"L L -",P A 9-10 aI A(" #I ǯ,ANI .$  I OK R CK :: R պ" Some error. (N "纇 Nerֻ 2 rry.: FL "纇)ALo"L L -",P A 9-10 q!?q* LIB.BAC '** Library list ** ' Ver 6.00, 1982-09-28 ,'# Copyright 1982 Dataindustrier AB $* Written by G|ran Nordenborg &** ** ** ** ** ** ** ** ** ** ** $* '.* Ver date / Ver nb / Sign / Note legal drive q'8* 82-07-07 / X.00 / GN / Main 8B* 82-09-10 / X.01 / FB / No 'CMDINT.SYS' load. +L* 82-09-28 / 6.00 / FB / Release. V* &`** ** ** ** ** ** ** ** ** ** ** j* tEJECT &~******************************** * rive q* Main routine * @AZ' LIB ABS `! Ad)6*6 <Ad6Ad6A޺"Internal error.: (AdAd6Ad6 CjAd Ad: ive q-Cj㺇"Load error - sorry.: 7Cj6溇$"Sorry, too old LIB.ABS used: ǰغ, RpCj:  A޺"Internal error.: (AdAd6Ad6 CjAd Ad: ive a? d* UFD.BAC "n'** User file directory ** x' Ver 6.00, 1982-09-23 -'# Copyright 1982 Dataindustrier AB; * $* Written by G|ran Nordenborg &** ** ** ** ** ** ** ** ** ** ** * ND %)<>65% ; "Internal error." : S'* Ver date / Ver nb / Sign / Note '* 82-07-07 / X.00 / GN / Main 8* 82-09-17 / X.01 / FB / No 'CMDINT.SYS' load. ** 82-09-23 / 6.00 / GN / Release * &** ** ** ** ** ** ** ** ** ** ** * EJECT error." : S&******************************** * * Main routine "* @,A M' UFD ABS `! 6A M)6*6 <7A M6A6A޺"Internal error.: * EJECT error." : S(8A MA6A6 @C MA AA: 7JC M㺇&"Load error - sorry. :ror TR, ^ǰ, hR PC 4: r 6A޺"Internal error.: * EJECT error." : S?  @DOSGEN ABSDISKCHEKABS DISKCHEKBAC MAKEUSERBAC `DOSGEN CEN DISKCHEKCEN RAMOPT BAC MKUSER80BAC DSKCHK80BAC @ RAMOPT80BAC NAMES SYSFAKT EKART D? 8> b82:p` !͉6!:o` !g:P8=!!] =0!2P!! ~˯6A#6,#w#6 :p`(:P :P*k`2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P!: !R :̷†:8P2X!J!V:VJ!~g:A!P !}!V:VJ!~g!8!V:VJ!~g&!!H:̷!V:VK(C:P2*k`o0$~2#"~2 9`~  T]6ͷ!"ͱ(Fr #}  @.6#6#%:A80~w 0,  Rd .:w Rd0 ]T6!60Rd ]T 0Rd _6"0:O`8v #{ZWS #{ZWS#{ZWS !00`8,!`8'*:8) b|!b:̷!!:̷*#"ɯ͗͗͗͗} 8B 6 #0>00͕8 := =(@5/|!:=_7:p`|! *.4xg::=/_: (#'ZWd*N˶`qd*N˶`q:p`!͉͐B0 !͉͈K ~#fodͨ!(7>7:O!6î!64D:̷6ͨ6!@[!P>N.Cz>.Cz:! ̅og~#foDOSGEN CEN(2*.:O*.E>^SC2}2y2``K[:2:&>ZqЊФ!! 80!l̅og͐ ! SYSDIR S3QYS 35M 3/ }!! ~E(D(!0 ͂@͂͂!``:O͗d({(/_O 7!``:OSd͗(_( ͗ ~ͯ, ``L2aO xͯyͯzͯ{0 @ N @;@NNGw, Ingen floppy isatt !!!?!!! Skriv in "K" n{r du {r klar !  lite sv}rt att skriva n{r SKRIVSKYDDET {r p} ! Skriv in "K" n{r du har kollat !Enkel eller dubbel densitet? (E/D)  Svara E eller D !  Disken verkar vara d}ligt formaterad ! Ska jag formatera den ?  ABSOLUT s{ker ??  &0~ Det var v{l det jag trodde !!!@ 0[Du anv{nder ett f|r gammalt OS !! Device ?  Felaktigt device ! Volymnamn ?  Skall disken formateras (F/-) ? Du m}ste vara inloggad.Du m}sta vara "Super user".Felaktig sub-funktion.Det finns redan ett job.Hittar inte " /hDOSGEN.CEN".Kan inte {ndra under bibliotek.Felaktig login.N}got fel vid ladding av "DOSGEN.CEN".Felaktig "ERROR" kod.Central:** Disk generation ** Ver 6.00, 1982-09-23 Disken i ***: kommer att rensas helt vid initieringen. [r .udet OK ?  Sp}r 0 {r d}ligt (borttaget) ! Tyv{rr kan jag inte initiera biblioteket p} denna disk. Prova med formatering om du inte redan har gjort det !! Jag testar disken (hav t}lamod) ! anv{ndbara sektorer.N -} Har du bytt disk ??? Annars s} kommer jag att initiera disken som jag laddade det h{r programmet ifr}n !!! [r det OK ?  F|rst}r inte !!! L{s p} i beskrivningen !!! Det d{r {r v{l {nd} ingen floppy va ! INTERN,pT FEL, VAR V[N,~LIG DELGE S[LJAREN Kan inte formatera, kontrollera !!! Jag formaterar disken !!!Nu checkas sektor Sector ***** {r d}lig - borttagen! *0ÁvÓàGC3=dßÉäùÀ+[q`cfilohþÞÑ<=?  !6ʋ;( !5 >Ã@(#v +('&@((&|=o| ( '#0>Ã>ࣵ_G!yxz{ H D`(y.EM8( }*NJJ( ]]0( !5(72!>4>1~( >~>7 A 1?2?.e~*k` ~o0$~=8( x =::*x?g0_`>-`*5)A.~<(= #,N,,V,~/ ,^,~/ , (Ge֮#(>7*~,"CS2!====K[:[(:_#~-`*5?  82܂Ɂ8͂:p` !6!}Ăs:P81!͂! 0!͂2P!͂!6,# !#~ (~#/(,( (> (:~#˯N 2D 2Y 2W 2F 2P 2( :P!?2*k` ~o0$~2#"~ z !f!0P!!O7}z ͔8L*$T$$.]EMGO,> !/x !y G, !Gԯ z ! 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[ # #~64I!w!$ !5!9!7>_: :'[!:O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!4 4 : (#'{_*$$$j~  87 w͊73VO >:W !xpg.EM !?! )!w "!g !_ !W !O !͕͕͕͂!͂>͂!͂! ~ ͂!͂nf>͂!  6ͣ!2c͂:p`:0 (:(z !͂{8(! ͂η͜:η>:η>͕͂!V͂! :˯OY>>N>> >~#fd+~# :00+~#^?A:͎:η 1pc1l1F!@[!P>N.2i>.2i:! υogDISKCHEKCEN0*.͂:O*.E>^SC2}2y2``K[:2:$6RRRՇ!i !R?![υog|7ͮ*N˶A 0h`qͮ*N˶`q:p`!B0 !K ~#fo|> >-    }0 8B0>0~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7V /uͭ#~( 0# ʍ (̾!9  ͭ :0 *!a!!f:eѷ]>2eV5+##~ # Z H W5 !9>Z 5 55~0PR: q.}** Diskcheck *Z .s* Ver 6.00, 1982-09-24You are using a too old OS ! Device to check ? W - Display warningsD - Display filenames during checkN - No changes on diskY - Correct all failures foundF - Fast, warnings will not be checkedOptions  -(W,D,N,Y,F,none) ? Bad device !Shall I close the fileShall I clear this DIR sectorShall I delete the fileShall I replace lockout tableShall I replace bitmapShall I replace UFD headerShall I rewrite sector (Y/N) ? Record format erro,rr.Rib format failed.Drive off line.Write protect.Record not found.CRC error.Data lost.End of media.Unknown status.File not properly closed.Multiple use of cluster. DISK NOT SAFE!Bitmap integrity error.Directory map integrity error.+eLockout table integrity error.Not used sectors locked out in bitmap,or found bad by DOSGEN. Warning only.Record format error. Warning only.Bad filename :Bad user file directory header.You MUST login.You MUST be a super-user.Some1%*X internal error.Some trap during n*}et-execute. LDA:, Owner:, LRN:DISKCHECK abort. . Bitmap Lockout cat.Library UFD header Nobody 8 header.You MUST login.You MUST be a super-user.Some1 ? !,* DISKCHEK.BAC** Diskcheck ** Ver 6.00, 1982-09-23,$# Copyright 1982 Dataindustrier AB;8$L* Written by G|ran Nordenborg&`!** ** ** ** ** ** ** ** ** ** **t*'"* Ver date / Ver nb / Sign / Note'"* 82-07-07 / X.00 / GN / Main83* 82-09-13 / X.01 / FB / No 'CMDINT.SYS' load.*%* 82-09-23 / 6.00 / GN / Release*&!** ** ** ** ** ** ** ** ** ** *** EJECT&(!********************************< *P* Main routined*0x DISKCHEKABS`!  +/݊$Load error - sorry. GP, Set no fileǰ,긐Set no optionCBigListyNamept rDrvptrOptptrInitializeNameTempNotraceLoistzyyy  +/݊$Load error - sorry. GP, Set no fileǰ,긐Set no optionCBigListyNamept0 ? 0W * MAKEUSER.BAC** Make/Delete users ** Ver 6.01, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb 0/ Sign / Note'B"* 82-07-XX / X.00 / FB / Main3L.* 82-09-02 / X.01 / FB / Delete & rename.+V&* 82-09-28 / 6.00 / FB / Release.8`3* 82-09-28 / 6.01 / FB / Checksum when rename.j*&t!** ** ** ** ** ** ** ** ** ** **~0* EJECT&!********************************** Main routine*   (New/Delete/Rename (N/D/R)  !NnDdRr N ޜߣ%݊Illegal function.݊ލ*Login....0....: a   "Password.....:; *Directory....:4(_2Privilege....: ><F *_DPD4> DZݵNd޵TD3nN0DT NxN NNVDN D! ufd:names.sys޸T ufd:names.sys޸#޸, End of file. #޸,݂ #޸,eeD e j0 New user...;&"#޸,*Change user info.(,#޸,De[Append new user.6 Old user...;&@#޸,*Change user info.J#޸,DT^done.4h No user to ;$rߊdelete. rename.0|$Can't create "NAMES.SYS" Deleteq ufd:names.sys޸ ufd:names.sys߸ #޸,ee}e #߸,* #޸,e#߸,ee0Delete complete.( Can't find ' ,'.& 0Rename:DU*NNew name.....:ooo Xo No rename.Lb ufd:names.sys޸l #޸,eve0e0 #޸,*e(=oݵN޵Teޟ3NeT NN NNu#޸,eeޟ N Rename complete.B*+Disc write protected.1޵>0  % ******************************* *$** Fixup a string to uppercase4* and eight characters.>*HZ!*#zy R\޵M4f a(= pޜ0 z% ********************************#* Unformat a formatted text.*"Y*#Q#3ݖ  ޟ% ********************************$ 0 * Routine to crunch password. * J"y*#zy $ ݵ. ޵J8  B   L ݍV ޜ ` j %t *******************************~ *# * Routine to list all users. 0 * [1  ݵ   names.sys޸ #޸,e er* !ݵName Dir. Priv.0 e e ###e  ޜp  ݊ No users. ݸ % ******0*************************( * "2 * Routine to read password < * with "*" echo.F *P !#P##Z Pd  n  x *; Q 劾R> ꊾ6$ 0# ; ]  ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw0 z   *!*!4">!"DzN"Ty ezo"y# ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw@ d? @ ?tC}>LaL^LLLLLLLLLLLLLL!t+++|͒}͒!t!͆ 6!͆!͆!͆K ~#fo͛@'ΐ'Not yet implemented at ####H - abort.8> b@82:p !͉6!:o !g:P8=!!] =0!2P!! ~˯6A#6,#w#6 :p(:P :P*k2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P!: !R :̷†:P2X@7!J!V:VJ!~g:A!P !}!V:VJ!~g!8!V:VJ!~g&!!H:̷!V:VK(C:P2*ko0$~2#"~2 9~  T]6ͷ!"ͱ(Fr #}  @.6#6#%:A80~w 0,  Rd .:w Rd0 ]T6!60Rd ]T 0Rd 0:Oe@68v #{ZWS #{ZWS#{ZWS !008,!8'*:8) b|!b:̷!!:̷*#"ɯ͗͗͗͗} 8B 6 #0>00͕8 := =(|!@45#:=_7:p|! *.4xg::=/_: (#'ZWd*N˶qd*N˶q:p!͉͐B0 !͉͈K ~#fodͨ!(7>7:O!6î!6:̷6B@48ͨ6!@[!P>N.Cz>.Cz:! ̅og~#foDOSGEN CEN(2*.:O*.E>^SC2}2y2`K[:2:&>ZqЊФ!! 80!l̅og͐ ! SYSDIR SYS _@3E 35M 3/ }!! ~E(D(!0 ͂@͂͂!`:O͗d({(/_O 7!`:OSd͗(_( ͗ ~ͯ, `O xͯyͯ@ 2Uzͯ{0 @ N @;@NNGw, Ingen floppy isatt !!!?!!! Skriv in "K" n{r du {r klar !  lite sv}rt att skriva n{r SKRIVSKYDDET {r p} ! Skriv in "K" n{r du@ 1b har kollat !Enkel eller dubbel densitet? (E/D)  Svara E eller D !  Disken verkar vara d}ligt formaterad ! Ska jag formatera den ?  ABSOLUT s{ker ?? 20~ Det var v{l det jag trodde !!!Du anv{nder@ 0O ett f|r gammalt OS !! Device ?  Felaktigt device ! Volymnamn ?  Skall disken 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".K@ /\Kan inte {ndra under bibliotek.Felaktig login.N}got fel vid ladding av "DOSGEN.CEN".Felaktig "ERROR" kod.Central:** Disk generation ** Ver X.XX, 1982-09-29 Disken i ***: kommer att rensas helt vid initieringen. [r det OK ?  Sp}r 0 {r d}ligt (borttaget) ! Tyv{rr kan jag inte initiera biblioteket p} denna disk. Prova med formatering om du inte redan har gjort det !! Jag testar disken (hav t}lamod) ! anv{ndbara sektorer. Har du@-v bytt disk ??? Annars s} kommer jag att initiera disken som jag laddade det h{r programmet ifr}n !!! [r det OK ?  F|rst}r inte !!! L{s p} i beskrivningen !!! Det d{r {r v{l {nd} ingen floppy va ! INTERNT FEL, VAR V#@,|[N,~LIG DELGE S[LJAREN Kan inte formatera, kontrollera !!! Jag formaterar disken !!!Nu checkas sektor Sector ***** {r d}lig - borttagen! *0ÁvÓàKG7AhãÍåûÄu`cÉ@+gfilolþÞÑ,.  !6ʋ;( !5 >Ã@(#v +('&@((&|=o| ( '#0>Ã>ࣵ_G!yxz{ H D`(y.EM8( JJ@*Z( ]]0( !5(72!>4>1~( >~>7 A 1?2..e~*k ~o0$~=8( x =::*x?g0_>-*.~<(= #,@)MN,,V,~/ ,^,~/ , (Ge֮#(>7*~,"CS2!====K[:[(:_#~<Ʌ8=8( x =::*x?g0_>-*.~<(= #,P ? P ?tC}>LaL^LLLLLLLLLLLLLL!t+++|͒}͒!t!͆ 6!͆!͆!͆K ~#fo͛@'ΐ'Not yet implemented at ####H - abort. 82܂ɁP8͂:p !6!Ăs:P81!g͂! =0!5͂2P!|͂!6,# !#~ (~#/(,( (> (:~#˯N 2D 2Y 2W 2F 2P 2( :P!5?2*k ~o0$~2#"~ z !!0P!!c}z 6P7 8L*$T$$.]EMGO,> !x !'y G, !ү z !0ίDM!9qpsr ut { ww 6!{}͔܌^V *$.%~(e4W#^+{(Z##~w#~w#͞0,56#nf [YyP6͜^Vnf+R8Q[R0I~w0G, ~fW˯6 !4!9~w,6,6,~w,~w,~w,w#%P ͔8[ # #~6!w! P48!5!9!y7>_: :'[!:O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!t4 4 : (#'{_*$$$j~  87 w͊7O >:|P3EW !xpg.EM !!* )!:w "!Ig ![_ !fW !qO !͕͕͕͂!.͂>͂!3͂! ~ ͂!<͂nf>͂!  6ͣ!U͂:p:0P 2R (:(z !C͂{8(! V͂η͜:η>:η>͕͂!͂! :˯OY>>N>> >~#fd+~# :00+~#^?A::η>1lP 1F!@[!P>N.2i>.2i:! υogDISKCHEKCEN0*.͂:O*.E>^SC2}2y2`K[:2:Ӈ! !?![υog|7ͮ*N˶qͮ*N˶qP 0S:p!B0 !K ~#fo|> >-    }0 8B0>0** Diskcheck ** Ver X.XX, 1982-09-27You are using a too old OS ! Device to check ? W - Display warningsD - Displa"P /`y filenames during checkN - No changes on diskY - Correct all failures foundF - Fast, warnings will not be checkedOptions (W,D,N,Y,F,none) ? Bad device !Shall I close the fileShall I clear this DIR sectorShall I delete the fileSP .mhall I replace lockout tableShall I replace bitmapShall I replace UFD headerShall I rewrite sector (Y/N) ? Record format error.Rib format failed.Drive off line.Write protect.Record not found.CRC error.Data lost.End of media.UnknowP4-zn status.File not properly closed.Multiple use of -Fcluster. DISK NOT SAFE!Bitmap integrity error.Directory map integrity error.Lockout table integrity error.Not used sectors locked out in bitmap,or found bad by DOSGEN. Warning on8P,ply.Record format error. Warning only.Bad filename :Bad user file directory header.You MUST login.You MUST be a super-user.Some internal error.Some trap during net-execute. LDA:, Owner:, LRN:DISKCHECK abort. . :P<+cBitmap Lockout cat.Library UFD header Nobody 8irectory header.You MUST login.You MUST be a super-user.Some internal error.Some trap during net-execute. LDA:, Owner:, LRN:DISKCHECK abort. . :` ? `s_ * RAMOPT.BAC** Setup utility ** Ver 6.00, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb / Sign` / Note'B"* 82-09-06 / X.00 / FB / Main6L1* 82-09-14 / X.01 / FB / Start 'RAMOPT.SYS'.+M&* 82-09-28 / 6.00 / FB / Release.V*&`!** ** ** ** ** ** ** ** ** ** **j* tEJECT&~!*********************************`* Main routine* 'Change parameters? (Y/N)  _ YC ramopt.sys޸ #޸,݂ #޸,޵( (( *ލ3` (92<Calculate checksum.FPݵ?Z޵(6d((=( n?(?xA((=? #޸,݂#޸, Ձ,,⸇ ``P-"Can't start 'RAMOPT.`SYS'.UN$Can't find 'RAMOPT.SYS'.*)Invalid 'RAMOPT.SYS' version.&!********************************* * Change current options.*"2"9#i#"ǰDefault baudrate.,݊u6`@Convert to buadrate.JT^ hVr |V& Buad rate ()? VConvert to CTC data.ph99V` ޲ݸV#Invalid baudrate, use only: f&V0(V; :1ީDVN,V;X b)-l!Unknown baudrate - usi`ng default.hv*!* Buad rate convert table.* 75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 1200,69,16 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,,` ModeOptSlaskPrintoptAutOnerrorFiPbuadUrnPrescaleBuadrateBaudrateSetoptChangeoptBuadBaudData1Data2CsumTunEx1130x- * z(y 9I ?#PyV# 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,,p ? p* MAKEUSER.BAC '** Make/Delete users ** ' Ver 6.01, 1982-09-28 ,'# Copyright 1982 Dataindustrier AB  * Written by Felix Burton &$** ** ** ** ** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note p'B* 82-07-XX / X.00 / FB / Main 3L* 82-09-02 / X.01 / FB / Delete & rename. +V* 82-09-28 / 6.00 / FB / Release. 8`* 82-09-28 / 6.01 / FB / Checksum when rename. j* &t** ** ** ** ** ** ** ** ** ** ** ~* EJECT p&******************************** * * Main routine * CQfŅQpŕQzƖQQQؿ $ $"New/Delete/Rename (N/D/R) ; )Fؾ:FFF(": ** ** ~* EJECT p2F"NnDdRrF"N"* /F㺇"Illegal function.: $AFຽ "Login........:;   : 9:LNָ L,亽3 Fպ(øD EJECT p("Password.....:;:  2 9::PNָ <:"Directory....:; F : 9:DNָ P  Z"Privilege....:; d :PN2ٷ n (xALPDP C EJECT pIA( "CCAI$ $CﺽCC Iؽ AAC  8" ufd:names.sys:Qf:ƖQ"   C EJECT p8" ufd:names.sys:Qf:ƖQ" I_ _ #Z_o::Q_. Z_oI:: I_o %Q.:Q:& V Qf   C EJECT p.Q:Q:x :BQָ B.亽6 &"A"B"亽T , 6" New user...; @QfQf DJQAB:Q:& V:rY:Append new user. EJECT p T" Old user...; ^QfQf #hQAָ:Q:& V rQ:p I |"done.:3 " No user to ; -F㺇"delete."rename. 3 ("Can't create "NAMES.SYS":3 ! CT p ! Delete ! 8" ufd:names.sys:Qf:ƖQ" 8" ufd:names.sys:Qf:ƖQ" .Q:Q:x :BQָ B.亽0 $B&L纽 ! CT p QfQf =Q_:Q::x :Q_:Q_:& _ Q.纽 'Q:p I:Q:p I &"Delete complete.:3 )0" Can't find 'Lֻ"'.:3 :! D! Rename p N! X"New name.....:; b : 9:N&Nָ *lN&,亇" No rename.:3 8v" ufd:names.sys:Qf:ƖQ" .Q:Q:x :BQָ B.亽0 D! Rename p !B"L纽x QfQf BN&B $ C IB( "CCBI$ $CﺽCIC$ I .亽0 D! Rename p)B82B-2B 6("C/ #QBָ:Q:& V Q:p I "Rename complete.:3  P:n~  $ ****************************** ** #4* Fixup a string to uppercase D! Rename p>* and eight characters. H* &RN(ﺇNN" \NNN(, fIN(, epNI&a캇GNNI"NI& NI$ zIؽ, e p $****************************** * $* Routine to crunch password. * X: IN(< "X:X:NI$ 9NNI"X: NI$ X:X: , e pIؽ<  $******************************  * " * Routine to list all users.  * $ A . 8 " names.sys .B Q:Q:x :BQָ L B.亇 X:X: , e pV TJB&0 ` B&" ; j B&; t TJ(,TJ ~ AA:B A㺇" No users.  :: $ ******************************  * X:X: , e p! * Routine to read password.  * with "*" echo.  *  N"  CTپ:C^CT  C^ 麇 "*;:NNCT < c  C^㺇P :< c  C^ 㺇F }  C^溽2 W p N(㺇< c ( P : , 2  ; < N(P麇 ~ F P N"亇  ;: Z NNN(" d   ; n $x ******************************  * ! * Simulate "GET" statement.  * p * Q1%=Lu number.  * Q0%=Number of bytes. * Q%(Lu)=Current position.  * Q$=String.  * # * Q8%(Lu)=Buffer needs write.  * Q9%(Lu)=Record number.  * Q9$(Lu)=Current record.  * Q8%=Scratch.  * Q7%=MOD(Q%(Q1%),253%) p *  Q" 0 QƖQ"QQf޺, +" QŕQzQQf㺇 /, QŅQpQƖQ"޺T . *6 ZdoQ::QQƖQָ @ ZdoQŕQz: Q7%=MOD(Q%(Q1%),253%) p&J QŅQp:Buffer written. T QQf㺽 !^ QŕQzQQf h ZdoQ: r ZdoQŕQz: | QƖQQָ  QjQQ( . qQpQQfQŕQz%0ٷ ),253%) p QjqQp麽 w * QQQƖQqQp$ ( QQfQQfqQp , 0 QQQƖQqQpQj& $ QQfQQfQj  $ ****************************** ) p * " * Simulate "INPUT ''N$" stm.  *  Nؾ:  NNN("  $& ****************************** 0 * !: * Simulate "PUT" statement. D * N * Q1%=Lu number. X * Q%(Lu)=Current position. ************ ) pb * Q$=String to write. l * #v * Q8%(Lu)=Buffer needs write.  * Q9%(Lu)=Record number.  * Q9$(Lu)=Current record.  * Q8%=Scratch.  * Q7%=MOD(Q%(Lu),253%) * Q6%=Bytes left to write.  *  aQvQ( *********** ) p, qQpQQfQQf  QƖQ'亽 A + QŕQzQQf㺇4 C / QŅQpQƖQ"޺ ' Zdo::QQƖQָ  ZdoQŕQz: ( *********** ) p& QŅQp:Buffer written. ! QŕQzQQf  ZdoQ:  ZdoQŕQz: * QƖQQָ 44 QjqQp:QjaQvﺇQjaQvշ > QŅQp QŕQz: ( *********** ) pgH QƖQQƖQqQp"QQ(aQvQj&QƖQqQpQj$ 9R aQvaQvQj:QQfQQfQj \ aQv溽 f $p ****************************** z * *********** ) p# * Simulate 'CLOSE' statement.  * ' QQfط:Q:x Qպ   9R aQvaQvQj:QQfQQfQj \ aQv溽 f $p ****************************** z * *********** ) ? * DISKCHEK.BAC '** Diskcheck ** ' Ver 6.00, 1982-09-28 -'# Copyright 1982 Dataindustrier AB;  $* Written by G|ran Nordenborg &$** ** **, 1:** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note 49'B* 82-07-07 / X.00 / GN / Main 8L* 82-09-13 / X.01 / FB / No 'CMDINT.SYS' load. +V* 82-09-28 / 6.00 / FB / Release. `* &j** ** ** ** ** ** ** ** ** ** ** t* ~EJECT &******************************** * 49* Main routine * @AU' DISKCHEKABS `! A_)6*6 <A_6A_6A޺"Internal error.: (A_A_6A_6 CeA_ A_: 491Ce㺇 ::"Load error - sorry.: P, ǰ, RkCe:   6 <A_6A_6A޺"Internal error.: (A_A_6A_6 CeA_ A_: 49 B? * RAMOPT.BAC '** Setup utility ** ' Ver 6.00, 1982-09-28 ,'# Copyright 1982 Dataindustrier AB  * Written by Felix Burton &$** ** ** ** ** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note ; 'B* 82-09-06 / X.00 / FB / Main 6L* 82-09-14 / X.01 / FB / Start 'RAMOPT.SYS'. +V* 82-09-28 / 6.00 / FB / Release. `* &j** ** ** ** ** ** ** ** ** ** ** t* ~EJECT &******************************** * ; * Main routine * OOȿ -"Change parameters? (Y/N) ;:AȾ: %AÕ "Y纇a  " ramopt.sys  Zo:o: OQָ I ; % IOOI$ IȽ O溇 ( 2 <Calculate checksum. F PC ZI ?dOOI"IO OI$ I ; nCCIO xIȽ 9OOI"C OI$ !Zo::QOָ Zo:  ,, Z``: 26&"Can't start 'RAMOPT.SYS'.:   ("Can't find 'RAMOPT.SYS'.: -"Invalid 'RAMOPT.SYS' version.:  &******************************** * * Change current options. * "Bǰ:Default baudrate. "O㺇|@ , 6Convert to buadrate. @ JN TvS ^Bɽ,Dɽ,!D$ɽ /hDO!D$O޺^ rBBշ |% 1" Buad rate (B0$");:Bɽ  Convert to CTC data.  =  vS S*ɽ,Dɽ,!D$ɽ S*B溽 %ODշ:O!D$շ O  BBշ: $"Invalid baudrate, use only: D:vS Bɽ,Dɽ,!D$ɽ "(B0$; &Bɽ,Dɽ,!D$ɽ 0",B0$; :& D"):|@ 1N"!Unknown baudrate - using default.:|@ X* !b* Buad rate convert table. l* v75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 ; 1200,69,16 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,, "!Unknown baudrate - using default.:|@ X* !b* Buad rate convert table. l* v75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 ; ? ELEV2 ELEV2 ELEV3 ELEV3 ELEV4 ELEV4 ELEV1 ELEV1 ݵ*ޟ/ #޸, ,H*ޜ(= *޵$'RW#߸,**\$z߸!f޸%& ݵ$ p޸ z߸% ordasm.abs  nzzzʀ~ ~#~ gzvz }Aā ʁЁ ց܁  B zzy$y *y 06<IBH9N_ eIvy| y yyy y y y޸ z߸% ordasm.abs  nzzzʀ? marknadsf|ring. mersiell ganisationers huvuduppgift {r inte att skaffa sig bidrag utan snarare motsatsen. Att marknadsf|ra sig mot spon- sorer och bidragsgivare {r ganska likt vanlig kommersiell mark- nadsf|ring. H{r tar vi upp dmarknadsf|ring. mersiell ganisationers huvuduppgift {r inte att skaffa sig bidrag utan snarare motsatsen. Att marknadsf|ra sig mot spon- sorer och bidragsgivare {r ganska likt vanlig kommersiell mark- nadsf|ring. H{r tar vi upp d ;޵縼u+▾ ⟵+<Ձ+1+ޟ塵7( +ޟ页717Ђ ; ordbasicznzzzʀ~ ~#~ gzvz }Aā ʁЁ ց܁  By ??  $1983 04 25 MARKNADSF\RING - FORTS[TTNING Kommentarer till kommentarer. 1. Betr. handelsl{rostoff. Detta har faktiskt inte behandlats i god- tagbar omfattning tidigare p} tre}rigt gymnasium. F|rhoppningsvis skall det nya {mnet arbetsmetodik {ndra p} detta. L{roplanen talar dock n{r det g{ller {mnet distribution om att eleverna skall komma i kokntakt med "verklighetsn{ra dokument" m.m. H{r har vi behandlat hith|rande ting , t.ex. dokumentutformnig och val av avtalsvillkor ur marknadsf|ringssynpunkt, som konkurrensmedel. Detta har mig veterligt inte f|rekommit tidigare i l{rob|cker av det h{r slaget. Aspekten {r emellertid mycket viktig, en marknadsf|rare m}ste f|r- st} att avtalsutformning och offertskrivning t.ex. inte enbart {r g|ra f|r kontorister och jurister utan v{rdefulla medel i t{vlan om kunderna. Jag skall emellertid se hur vi kan banta detta stoff med h{nsyn till att en hel del nu tas upp i arbetsmetodik. 2. Handelsr{ttsliga fr}gor. H{r {r det f|r det f|rsta s} att det st}r i l{roplanen att de skall behandlas. F|r det andra tar vi inte upp handelsr{tt i allm{nhet utan bara s}dant som direkt anknyter till respektive kapitels inneh}ll. F|r det tredje {r det mesta juridiska stoffet i f|rsta delen. Det {r v{l inte konsekvent att stryka allt i den senare delen? 3. I vilket avseende {r bokens andra del mindre fr{sch och mera tradi- tionell? 484. Svaret {r jo. (Uppg. G4). Figuren kan ocks} anv{ndas helt infor- mellt vid t.ex.textgenomg}ng som diskussionsunderlag, d}m man t.ex. j{mf|r arbetsf|rdelningen med utg}ngspunkt fr}n produkter som eleverna k{nner v{l till, t.ex. mj|l och TV, eller fr}nk{nda f|retag som en n{raliggande industri eller en detaljist p} orten. 497. Handelsanst{lldas f|rbund har i m}nga }r drivit fr}gan, dock utan framg}ng. Negativ f|r vem, f|rresten? Jag anser inte att vi beh|- ver ta upp denna problematik h{r. 543. Kop ia av titelsidan bifogas. Troligen har inneh}llet publicerats n}gon annanstans tidigare - var vet jag emellertid inte. 555. P} s. 555 samt f|ljande sidor f|rekommer en hel del definitioner. Dessa kan knappast uteslutas. Texten s. 561 korta s enl. bif. kopia. 571. Inledningen stryks. 585. Budgetering behandlas i {mnet f|retagsekonomi/f|rvaltning. F|r- s{ljningsbudgeten {r en av huvudkomponenterna i den totala budge- ten. Det finns ingen anledning att h{r behandla hur budgetering g}r till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r  till fig.s.124 e.  till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r  g.s.124 e.  till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r  ;;0޸gЁf|r m}nga rader ;: Dokumentnamn;nn#*r޸޸;n.B; Ё finns redan ;n. rMEB Ta bort ( j/n); _J K޸n9N~rǫ~#޸޸46rgЁkan ej sparas: ;޸+ skrivskydd1 ) skivan full#*c?? $1983 04 25 MARKNADSF\RING - FORTS[TTNING Kommentarer till kommentarer. 1. Betr. handelsl{rostoff. Detta har faktiskt inte behandlats i god- tagbar omfattning tidigare p} tre}rigt gymnasium. F|rhoppningsvis skall det nya {mnet arbetsmetodik {ndra p} detta. L{roplanen talar dock n{r det g{ller {mnet distribution om att eleverna skall komma i kokntakt med "verklighetsn{ra dokument" m.m. H{r har vi behandlat hith|rande ting , t.ex. dokumentutformnig och val av avtalsvillkor ur marknadsf|ringssynpunkt, som konkurrensmedel. Detta har mig veterligt inte f|rekommit tidigare i l{rob|cker av det h{r slaget. Aspekten {r emellertid mycket viktig, en marknadsf|rare m}ste f|r- st} att avtalsutformning och offertskrivning t.ex. inte enbart {r g|ra f|r kontorister och jurister utan v{rdefulla medel i t{vlan om kunderna. Jag skall emellertid se hur vi kan banta detta stoff med h{nsyn till att en hel del nu tas upp i arbetsmetodik. 2. Handelsr{ttsliga fr}gor. H{r {r det f|r det f|rsta s} att det st}r i l{roplanen att de skall behandlas. F|r det andra tar vi inte upp handelsr{tt i allm{nhet utan bara s}dant som direkt anknyter till respektive kapitels inneh}ll. F|r det tredje {r det mesta juridiska stoffet i f|rsta delen. Det {r v{l inte konsekvent att stryka allt i den senare delen? 3. I vilket avseende {r bokens andra del mindre fr{sch och mera tradi- tionell? 484. Svaret {r jo. (Uppg. G4). Figuren kan ocks} anv{ndas helt infor- mellt vid t.ex.textgenomg}ng som diskussionsunderlag, d} man t.ex. j{mf|r arbetsf|rdelningen med utg}ngspunkt fr}n produkter som eleverna k{nner v{l till, t.ex. mj|l och TV, eller fr}nk{nda f|retag som en n{raliggande industri eller en detaljist p} orten. 497. Handelsanst{lldas f|rbund har i m}nga }r drivit fr}gan, dock utan framg}ng. Negativ f|r vem, f|rresten? Jag anser inte att vi beh|- ver ta upp denna problematik h{r. 543. Kopi a av titelsidan bifogas. Troligen har inneh}llet publicerats n}gon annanstans tidigare - var vet jag emellertid inte. 555. P} s. 555 samt f|ljande sidor f|rekommer en hel del definitioner. Dessa kan knappast uteslutas. Texten s. 561 kortas enl. bif. kopia. 571. Inledningen stryks. 585. Budgetering behandlas i {mnet f|retagsekonomi/f|rvaltning. F|r- s{ljningsbudgeten {r en av huvudkomponenterna i den totala budge- ten. Det finns ingen anledning att h{r behandla hur  budgetering g}r till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r t ill fig.s.124 e.  till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r t .s.124 e.  till. 618. S 618 a,b,c. saknas hos mig. Vad skall det finnas p} dessa? 622. Borde r{cka med att n{mna upphovsm{nnen. Aidaformeln ses n{stan aldrig med omn{mnande av skaparen. Se ny kopia. 625. a. H{nvisningen {r tǁ"2BHBN݊ >",,,ݸ,ݸ,,᜵TB,T,T@$,,,ݸ,ǁ,,᜵TB,T,T(BZP` skriv Z` katalog d` rubrik n` inst{llningx`ORD 800 ;޵p⸼upTp▾ p⟵T<ՁTpTޟ塵B( Tޟ页Ђp`;r;n/ЃArbetsminnet in? 5 REM R[NTEBER[KNING SUSSI CISSI MARIA 20 INPUT "ANGE L]NAT BELOPP"A 30 INPUT "ANGE TID I DAGAR"B 40 LET C=.1425 50 U=A*B/360*C 60 PRINT CHR$(12) 70 PRINT "L]NEBELOPP" A 80 PRINT "L]NETID" B 90 PRINT "UPPLUPEN R[NTA" U 100 END y +y&r݊[NTEBER[KNING SUSSI CISSI MARIA 20 INPUT "ANGE L]NAT BELOPP"A 30 INPUT "ANGE TID I DAGAR"B 40 LET C=.1425 50 U=A*B/360*C 60 PRINT CHR$(12) 70 PRINT "L]NEBELOPP" A 80 PRINT "L]NETID" B 90 PRINT "UPPLUPEN R[NTA" U 100 END y +y&r݊?LOOP BAC ޟ\抾 ޜf p "zސ޵ꟾJK*ޜ;Qޟ>>ޟޜ>>>.ޜ;(udokument utvaldaUvІ"Justera skrivaren och tryck RETURN; D* ꟾS4;݊!nЂ,;޵ЁP޵k¢DcDiЁ?)? Ձք  x #޸#޸>3#޸;ʁ'޸  ǀ5 ˆ޸ЇOK;܁݊޵Ё ޸' Utskriften avbruten;%Felkod vid utskrift;8ЁވЁցݍЁފ1 ()$(ЁޜЁ聵>> >*2#޸n>ߣāޜ;;F" D6 nzzzʀ~ ~#~ gzvz } āyʁyЁyցy܁y  yBz z"9(I.~>y DyJIPyVy\bIh?" helkopia Z katalog d delkopia n formatera x ORD 800 ;޵⸼u+▾ ⟵+<Ձ+1+ޟ塵7( +ޟ页717Ђ ;,";;=+G=+MQG,,^,#,V,#,N,y,ǧ,,#,,ݸ,,ǰ,Q ordasm.abs޸6޵+Ḽ& #޸,=GMMOt3N'ЁProgramd?@RESK DOSGEN ABS`DISKCHEKABSDISKCHEKBAC@MAKEUSERBACDOSGEN CENDISKCHEKCEN RAMOPT BACMKUSER80BACDSKCHK80BAC RAMOPT80BAC NAMES SYS@FAKT `EKART B 85 PRINT 90 PRINT 'UPPLUPEN R[NTA I KRONOR: ' U 0 INPUT 'ANGE L]NAT BELOPP I KRONOR: 'A 25 PRINT 30 INPUT 'ANGE TID I DAGAR: 'B 40 LET C=.1425 50 U=A*B/360*C 60 PRINT CHR$(12) 70 PRINT ' L]NEBELOPP I KRONOR: ' A 75 PRINT 80 PRINT 'TID I DAGAR: ' INT 90 PRINT 'UPPLUPEN R[NTA I KRONOR: ' U 0 INPUT 'ANGE L]NAT BELOPP I KRONOR: 'A 25 PRINT 30 INPUT 'ANGE TID I DAGAR: 'B 40 LET C=.1425 50 U=A*B/360*C 60 PRINT CHR$(12) 70 PRINT ' L]NEBELOPP I KRONOR: ' A 75 PRINT 80 PRINT 'TID I DAGAR: ' ?Butskrift b|r Du spara det dokumentet som finns i arbetsminnet p} skiva. SKRIV-kommandon:  Skriv Starta utskriften  Katalog V{lj ut ett eller flera dokument f|r utskrift f|r utskrift. Mark|ren flyttas med piltangenterna, och urval sker meBd RETURN. Tag bort markeringar med "ra- dera". "Flytta" kopierar in katalogen i arbetsminnet  Rubrik Ange en rubrik  Inst{llning Best{m var sidnummer och text ska placeras  ORD 800 ]terg} till huvudprogrammet  justera anv{nds n{r Du vil?A?100 26950 918 7712.5 830215 0 0 927 4965 830320 0 0 931 1245 830330 0 0 0 0 0 0 0 0 0 0 0 0 101 39475 865 8460.5 821131 2000 821218 892 5635 830105 0 0 912 2725 830415 0 0 923 3980.75 830418 0 0 0 0 0 0 0 102 21615 790 5000 830215 0 0 872 3950.5 830411 1950.5 830430 940 1635 830430 0 0 0 0 0 0 0 0 0 0 0 0 103 19050 815 6945 830101 4000 830128 819 3500 830220 3500 830227 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 104 31945 697 3650 830111 0 0 878 1945.5 830321 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 105 88965 914 3955 830415 0 0 932 4765 830430 0 0 951 2135.5 830422 0 0 0 0 0 0 0 0 0 0 0 0 106 61510 884 1250 821205 250 830105 897 875 830212 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 107 19120 806 3475.5 830111 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 108 110515 899 2675.75 821110 0 0 943 970 821227 0 0 963 3495.25 830315 0 0 971 7218 830407 0 0 0 0 0 0 0 109 81325 937 2125 830106 0 0 958 625 830313 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 69005 823 3000 830117 0 0 965 2915.5 830204 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 675.70 0 0 943 970 821227 0 0 963 3495.25 830315 0 0 971 7218 830407 0 0 0 0 0 0 0 109 81325 937 2125 830106 0 0 958 625 830313 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 110 69005 823 3000 830117 0 0 965 2915.5 830204 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 675.7??? 20701 101 1203 4 20701 101 1205 25 20701 101 1211 3 20701 101 1214 5 20 15 0 0 ++ Some error.   nul:z"z 4zy zyy +y&r݊ 101 1203 4 20701 101 1205 25 20701 101 1211 3 20701 101 1214 5 20 15 0 0 ++ Some error.   nul:z"z 4zy zyy +y&r݊[NTEBER[KNING SUSSI CISSI MARIA 20 INPUT "ANGE L]NAT BELOPP"A 30 INPUT "ANGE TID I DAGAR"B 40 LET C=.1425 50 U=A*B/360*C 60 PRINT CHR$(12) 70 PRINT "L]NEBELOPP" A 80 PRINT "L]NETID" B 90 PRINT "UPPLUPEN R[NTA" U 100 END y +y&r݊?1201 FAKTURABLANKETT PKT 30 50 10 500 75 850 2195 98650 29600 0 0 0 0 1202 F\LJESEDEL PKT 27 45 5 400 100 500 2703 110245 43745.25 0 0 0 0 1203 A5-KUVERT KARTONG 12 17.5 0 1496 300 1500 3869 67982.50 18972.00 4 70.00 22.00 0 1204 H[FTAPPARAT ST 13.5 24 3 800 300 500 1271 29415 11650 0 0 0 0 1205 KOLLEGIEBLOCK PKT 9 19.25 0 125 100 250 901 17647.00 9196.50 25 481.25 256.25 0 1206 SLAGREMSA KARTONG 15.5 23 0 650 200 500 3992 90850 31600 0 0 0 0 1207 PLASTFICKA PKT 16 37.5 5 2600 750 4000 2018 72965.5 39900.75 0 0 0 0 1208 H]LSLAG ST 38 56 10 1100 350 1500 3279 163945 87500.5 0 0 0 0 1209 KREDITNOTA PKT 18.5 29 0 525 75 400 844 24650 8500 0 0 0 0 1210 F\NSTERKUVERT KARTONG 43 65 10 550 150 600 1972 118345 31280.5 0 0 0 0 1211 KARTOTEK ST 20.5 31.5 0 2997 400 4000 2188 69030.00 23298.00 3 94.50 33.00 0 1212 ARKIVL]DA ST 7 12 0 575 50 400 769 9145 3675 0 0 0 0 1213 ORDERSET PKT 11 26.5 3 1500 250 900 1277 33190.25 18610.75 0 0 0 0 1214 H[NGMAPP ST 23.5 42 5 1845 800 2000 1533 61345.50 24047.50 5 210.00 92.50 0 1215 KULPENNA SET 9 14.25 0 910 225 1500 2093 29565 10495.5 0 0 0 0  50 400 769 9145 3675 0 0 0 0 1213 ORDERSET PKT 11 26.5 3 1500 250 900 1277 33190.25 18610.75 0 0 0 0 1214 H[NGMAPP ST 23.5 42 5 1845 800 2000 1533 61345.50 24047.50 5 21.50 0 1215 KULPENNA SET 9 14.25 0 910 225 1500 2093 29565 10495.5 0 0 0 0  50 400 769 9145 3675 0 0 0 0 1213 ORDERSET PKT 11 26.5 3 1500 250 900 1277 33190.25 18610.75 0 0 0 0 1214 H[NGMAPP ST 23.5 42 5 1845 800 2000 1533 61345.50 24047.50 5 21"?";;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3< Uppgift i bokf|ring  S\D  Olssons Ost (med moms)  L|s uppgiften Olssons Ost med h{nsynstagande till att moms  utg}r p} k|p och f|rs{ljning. Siffrorna f|r kontantf|rs{lj- ningar avs"er belopp inklusive moms. Alla ink|psbelopp anges exklusive moms.  Moms utg}r f|r n{rvarande enligt lag med 19 % av f|rs{ljnings- summan.  Momsredovisning skall ske den 5 april. tg}r p} k|p och f|rs{ljning. Siffrorna f|r kontantf|rs{lj- ningar avs"pp inklusive moms. Alla ink|psbelopp anges exklusive moms.  Moms utg}r f|r n{rvarande enligt lag med 19 % av f|rs{ljnings- summan.  Momsredovisning skall ske den 5 april. tg}r p} k|p och f|rs{ljning. Siffrorna f|r kontantf|rs{lj- ningar avs2?2;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3< Trelleborg 1983 08 23  Till Rektor f|r S|dersl{tsgymnasiet   Med anledning av de tilltagande ol{genheterna f|rorsakade av byggandet av polishuset hemst{ller jag att Rektor skynd2samt vidtar l{mpliga }tg{rder.  I f|rsta hand m}ste byggnadsfirman anmodas att undanr|ja de risker f|r olycksfall som elever och l{rare uts{tts f|r. Det f|rekommer nu dagligen att flera tunga last- och arbetsfordon samtidigt uppeh}ller sig och f|rfly2ttas p} skolg}rden. En lyftkran sv{nger praktiskt taget st{ndigt en betongbeh}llare |ver delar av skolg}rden samt |ver f|rbindelseg}ngen mellan Norregatan och Kyrkskolan. Risken f|r att betongrester m m faller ner {r uppenbar.  Det finns tidvis knapp2ast n}gon skyddad plats att uppeh}lla sig p} utomhus runt skolan. Skolg}rden {r f|rutom av arbetande fordon belamrad med byggnadsmaterial, arbetsbodar och byggper- sonalens privatfordon. Skolans cykelst{ll flyttas hit och dit. [ven grusplanen norr om s2koltomten, dit skolpersonalens och elevernas bilar av n}gon anledning f|rvisats, har ockuperats av byggnadsfirman f|r gruslastning och som upplagsplats.  Ol{genheter i form av buller st|r i h|g grad undervisningen. Det m}ste finnas m|jligheter att u2ndanr|ja en stor del av des- sa ol{genheter genom att s{rskilt st|rande verksamhet f|rl{ggs till tid d} undervisning inte p}g}r. Dessutom m}ste p}talas att ol{genheterna med damm och smuts som eleverna drar med sig in i skolbyggnaden efter passagen av2 byggplatsen {nnu inte }tg{rdats. En ordentlig markbel{ggning {r ett absolut krav.  Torbj|rn S|derlund  Skyddsombud }g}r. Dessutom m}ste p}talas att ol{genheterna med damm och smuts som eleverna drar med sig in i skolbyggnaden efter passagen av2atsen {nnu inte }tg{rdats. En ordentlig markbel{ggning {r ett absolut krav.  Torbj|rn S|derlund  Skyddsombud }g}r. Dessutom m}ste p}talas att ol{genheterna med damm och smuts som eleverna drar med sig in i skolbyggnaden efter passagen avB`?BPR:VSA70B72.5 62 , 62 , 60 , 46 8 , 0 , 1 , 0 , 1 , 1 , 0 , 1 , 2 , 0 ------------- ------------------------------------------------- #  27 , 35 $  27 , 36 *  27 , 24 0  27 , 18 2  27 , 16 3  27 , 17 8  27 , 25 '  B8 , 27 , 22 B  27 , 21 I  27 , 19 ^  27 , 20 b  8 /  8 , 47 f  133 m  134 =  130 , 61 ?  131 _  129 "  12  $  27 , 36 *  27 , 24 0  27 , 18 2  27 , 16 3  27 , 17 8  27 , 25 '  B, 22 B  27 , 21 I  27 , 19 ^  27 , 20 b  8 /  8 , 47 f  133 m  134 =  130 , 61 ?  131 _  129 "  12  $  27 , 36 *  27 , 24 0  27 , 18 2  27 , 16 3  27 , 17 8  27 , 25 '  R ?R;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3< S\DERSL[TTSGYMNASIET Protokoll $[mneskonferens i F|retags- $ekonomiska {mnen (Fe,Di,- $Re,Rd,Am,Dik) Tid l983 08 17, 13.15  Plats Personalrummet, Kyrkskolan  Justering GunvoRr Sonnby  Planering:  Rk En, ev. tv} gemensamma skrivningar skall efter- str{vas. Di Betingsl{sning |nskas.  Exkursioner F|ljande f|rslag f|rel}g:  E3 - H|gestads gods. Heldag i slutet av september.  Busskostnad ca 1 000 kr.  E2,E3R, r{ttskunskap. Tidpunkter beroende av f|re- komsten av l{mpliga m}l och kan ej preciseras. Ingen kostnad, men lektioner i andra {mnen kan ber|ras.  Ek1,Dk1 Bes|k i Malm| hos KF:s resp. ICA lager- centraler samt M{ster Gr|n (Tr{dg}rdshallenR). Ev. hos Svenska Tobaks AB. Busskostnad ca 1000 kr. (Heldag)  Ek2 F|rs{krings AB Skandia i Malm|. Halvdag. Resa med allm{nna kommunikationsmedel.  E2 Trelleborg AB. Halvdag. Ingen kostnad.  Koncentra- En koncentrationsdag f|resl}s f|r RE2 i november, tionsdag d} ett datorst|tt f|retagsspel genomf|rs.  TTF F|rslag till TTF-aktiviteter {r f|ljande:  1. Dataexpert inbjuds att tala om datorn i prakti- ken.  2. Representanter f|r fackliga organisationer inbjuds att tala om fRackets roll p} arbetsplatsen.  Skrivskema F|reg}ende h|sttermins f|rdelning av skrivningar kan anv{ndas som mall vid uppg|rande av }rets. Se bilaga. Resurser Med anledning av att antalet klasser som l{ser ekonomiska {mnen |kats samt att ett Rnytt {mne (Am) tillkommit understryker konferensen n|dv{ndigheten av att de materiella resurserna |kas i motsvarande omfattning.  Arbetsrum Det nyligen iordningst{llda arbetsrummet har utan  f|r l{rare f|reg}ende diskussion tagits i an?8> b82:p` !͉6!:o` !g:P8=!!] =0!2P!! ~˯6A#6,#w#6 :p`(:P :P*k`2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P!: !R :̷†:8P2X!J!V:VJ!~g:A!P !}!V:VJ!~g!8!V:VJ!~g&!!H:̷!V:VK(C:P2*k`o0$~2#"~2 9`~  T]6ͷ!"ͱ(Fr #}  @.6#6#%:A80~w 0,  Rd .:w Rd0 ]T6!60Rd ]T 0Rd _6"0:O`8v #{ZWS #{ZWS#{ZWS !00`8,!`8'*:8) b|!b:̷!!:̷*#"ɯ͗͗͗͗} 8B 6 #0>00͕8 := =(@5/|!:=_7:p`|! *.4xg::=/_: (#'ZWd*N˶`qd*N˶`q:p`!͉͐B0 !͉͈K ~#fodͨ!(7>7:O!6î!64D:̷6ͨ6!@[!P>N.Cz>.Cz:! ̅og~#foDOSGEN CEN(2*.:O*.E>^SC2}2y2``K[:2:&>ZqЊФ!! 80!l̅og͐ ! SYSDIR S3QYS 35M 3/ }!! ~E(D(!0 ͂@͂͂!``:O͗d({(/_O 7!``:OSd͗(_( ͗ ~ͯ, ``L2aO xͯyͯzͯ{0 @ N @;@NNGw, Ingen floppy isatt !!!?!!! Skriv in "K" n{r du {r klar !  lite sv}rt att skriva n{r SKRIVSKYDDET {r p} ! Skriv in "K" n{r du har kollat !Enkel eller dubbel densitet? (E/D)  Svara E eller D !  Disken verkar vara d}ligt formaterad ! Ska jag formatera den ?  ABSOLUT s{ker ??  &0~ Det var v{l det jag trodde !!!@ 0[Du anv{nder ett f|r gammalt OS !! Device ?  Felaktigt device ! Volymnamn ?  Skall disken formateras (F/-) ? Du m}ste vara inloggad.Du m}sta vara "Super user".Felaktig sub-funktion.Det finns redan ett job.Hittar inte " /hDOSGEN.CEN".Kan inte {ndra under bibliotek.Felaktig login.N}got fel vid ladding av "DOSGEN.CEN".Felaktig "ERROR" kod.Central:** Disk generation ** Ver 6.00, 1982-09-23 Disken i ***: kommer att rensas helt vid initieringen. [r  .udet OK ?  Sp}r 0 {r d}ligt (borttaget) ! Tyv{rr kan jag inte initiera biblioteket p} denna disk. Prova med formatering om du inte redan har gjort det !! Jag testar disken (hav t}lamod) ! anv{ndbara sektorer.N -} Har du bytt disk ??? Annars s} kommer jag att initiera disken som jag laddade det h{r programmet ifr}n !!! [r det OK ?  F|rst}r inte !!! L{s p} i beskrivningen !!! Det d{r {r v{l {nd} ingen floppy va ! INTERN,pT FEL, VAR V[N,~LIG DELGE S[LJAREN Kan inte formatera, kontrollera !!! Jag formaterar disken !!!Nu checkas sektor Sector ***** {r d}lig - borttagen! *0ÁvÓàGC3=dßÉäùÀ+[q`cfilohþÞÑ<=?  !6ʋ;( !5 >Ã@(#v +('&@((&|=o| ( '#0>Ã>ࣵ_G!yxz{ H D`(y.EM8( }*NJJ( ]]0( !5(72!>4>1~( >~>7 A 1?2?.e~*k` ~o0$~=8( x =::*x?g0_`>-`*5)A.~<(= #,N,,V,~/ ,^,~/ , (Ge֮#(>7*~,"CS2!====K[:[(:_#~-`*5 d?  82܂Ɂ8͂:p` !6!}Ăs:P81!͂! 0!͂2P!͂!6,# !#~ (~#/(,( (> (:~#˯N 2D 2Y 2W 2F 2P 2( :P!?2*k` ~o0$~2#"~ z !f!0P!!O 7}z ͔8L*$T$$.]EMGO,> !/x !y G, !Gԯ z ! 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 4I!w!$ !5!9!7>_: :'[!:O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!4 4 : (#'{_*$$$j~  87 w͊7 3VO >:W !xpg.EM !?! )!w "!g !_ !W !O !͕͕͕͂!͂>͂!͂! ~ ͂!͂nf>͂!  6ͣ! 2c͂:p`:0 (:(z !͂{8(! ͂η͜:η>:η>͕͂!V͂! :˯OY>>N>> >~#fd+~# :00+~#^?A:͎:η 1pc1l1F!@[!P>N.2i>.2i:! υogDISKCHEKCEN0*.͂:O*.E>^SC2}2y2``K[:2:$6RRRՇ!i !R?![υog|7ͮ*N˶A 0h`qͮ*N˶`q:p`!B0 !K ~#fo|> >-    }0 8B0>0~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7V /uͭ#~( 0# ʍ (̾!9  ͭ :0 *!a!!f:eѷ]>2eV5+##~ # Z H W5 !9>Z 5 55~0PR: q.}** Diskcheck *Z .s* Ver 6.00, 1982-09-24You are using a too old OS ! Device to check ? W - Display warningsD - Display filenames during checkN - No changes on diskY - Correct all failures foundF - Fast, warnings will not be checkedOptions -(W,D,N,Y,F,none) ? Bad device !Shall I close the fileShall I clear this DIR sectorShall I delete the fileShall I replace lockout tableShall I replace bitmapShall I replace UFD headerShall I rewrite sector (Y/N) ? Record format erro ,rr.Rib format failed.Drive off line.Write protect.Record not found.CRC error.Data lost.End of media.Unknown status.File not properly closed.Multiple use of cluster. DISK NOT SAFE!Bitmap integrity error.Directory map integrity error. +eLockout table integrity error.Not used sectors locked out in bitmap,or found bad by DOSGEN. Warning only.Record format error. Warning only.Bad filename :Bad user file directory header.You MUST login.You MUST be a super-user.Some1 %*X internal error.Some trap during n*}et-execute. LDA:, Owner:, LRN:DISKCHECK abort. . Bitmap Lockout cat.Library UFD header Nobody 8 header.You MUST login.You MUST be a super-user.Some10?0!,* DISKCHEK.BAC** Diskcheck ** Ver 6.00, 1982-09-23,$# Copyright 1982 Dataindustrier AB;8$L* Written by G|ran Nordenborg&`!** ** ** ** ** ** ** ** ** ** **t*'"* Ver date / Ver nb / 0Sign / Note'"* 82-07-07 / X.00 / GN / Main83* 82-09-13 / X.01 / FB / No 'CMDINT.SYS' load.*%* 82-09-23 / 6.00 / GN / Release*&!** ** ** ** ** ** ** ** ** ** *** EJECT&(!********************************<0*P* Main routined*0x DISKCHEKABS`!  +/݊$Load error - sorry. GP, Set no fileǰ,긐Set no optionCBigListyNamept0rDrvptrOptptrInitializeNameTempNotraceLoistzyyy  +/݊$Load error - sorry. GP, Set no fileǰ,긐Set no optionCBigListyNamept@D?@W * MAKEUSER.BAC** Make/Delete users ** Ver 6.01, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb @/ Sign / Note'B"* 82-07-XX / X.00 / FB / Main3L.* 82-09-02 / X.01 / FB / Delete & rename.+V&* 82-09-28 / 6.00 / FB / Release.8`3* 82-09-28 / 6.01 / FB / Checksum when rename.j*&t!** ** ** ** ** ** ** ** ** ** **~@* EJECT&!********************************** Main routine*   (New/Delete/Rename (N/D/R)  !NnDdRr N ޜߣ%݊Illegal function.݊ލ*Login....@....: a   "Password.....:; *Directory....:4(_2Privilege....: ><F *_DPD4> DZݵNd޵TD3nN@DT NxN NNVDN D! ufd:names.sys޸T ufd:names.sys޸#޸, End of file. #޸,݂ #޸,eeD e j@ New user...;&"#޸,*Change user info.(,#޸,De[Append new user.6 Old user...;&@#޸,*Change user info.J#޸,DT^done.4h No user to ;$rߊdelete. rename.@|$Can't create "NAMES.SYS" Deleteq ufd:names.sys޸ ufd:names.sys߸ #޸,ee}e #߸,* #޸,e#߸,ee@Delete complete.( Can't find ' ,'.& 0Rename:DU*NNew name.....:ooo Xo No rename.Lb ufd:names.sys޸l #޸,eve0e@ #޸,*e(=oݵN޵Teޟ3NeT NN NNu#޸,eeޟ N Rename complete.B*+Disc write protected.1޵>@  % ******************************* *$** Fixup a string to uppercase4* and eight characters.>*HZ!*#zy R\޵M4f a(= pޜ@ z% ********************************#* Unformat a formatted text.*"Y*#Q#3ݖ  ޟ% ********************************$ @ * Routine to crunch password. * J"y*#zy $ ݵ. ޵J8  B   L ݍV ޜ ` j %t *******************************~ *# * Routine to list all users. @ * [1  ݵ   names.sys޸ #޸,e er* !ݵName Dir. Priv.0 e e ###e  ޜp  ݊ No users. ݸ % ******@*************************( * "2 * Routine to read password < * with "*" echo.F *P !#P##Z Pd  n  x *; Q 劾R> ꊾ6$ @# ; ]  ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw@ z   *!*!4">!"DzN"Ty ezo"y# ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharwP?P ?tC}>LaL^LLLLLLLLLLLLLL!t+++|͒}͒!t!͆ 6!͆!͆!͆K ~#fo͛@'ΐ'Not yet implemented at ####H - abort.8> bP82:p !͉6!:o !g:P8=!!] =0!2P!! ~˯6A#6,#w#6 :p(:P :P*k2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P!: !R :̷†:P2XP7!J!V:VJ!~g:A!P !}!V:VJ!~g!8!V:VJ!~g&!!H:̷!V:VK(C:P2*ko0$~2#"~2 9~  T]6ͷ!"ͱ(Fr #}  @.6#6#%:A80~w 0,  Rd .:w Rd0 ]T6!60Rd ]T 0Rd 0:OeP68v #{ZWS #{ZWS#{ZWS !008,!8'*:8) b|!b:̷!!:̷*#"ɯ͗͗͗͗} 8B 6 #0>00͕8 := =(|!P45#:=_7:p|! *.4xg::=/_: (#'ZWd*N˶qd*N˶q:p!͉͐B0 !͉͈K ~#fodͨ!(7>7:O!6î!6:̷6BP48ͨ6!@[!P>N.Cz>.Cz:! ̅og~#foDOSGEN CEN(2*.:O*.E>^SC2}2y2`K[:2:&>ZqЊФ!! 80!l̅og͐ ! SYSDIR SYS _P3E 35M 3/ }!! ~E(D(!0 ͂@͂͂!`:O͗d({(/_O 7!`:OSd͗(_( ͗ ~ͯ, `O xͯyͯP 2Uzͯ{0 @ N @;@NNGw, Ingen floppy isatt !!!?!!! Skriv in "K" n{r du {r klar !  lite sv}rt att skriva n{r SKRIVSKYDDET {r p} ! Skriv in "K" n{r duP 1b har kollat !Enkel eller dubbel densitet? (E/D)  Svara E eller D !  Disken verkar vara d}ligt formaterad ! Ska jag formatera den ?  ABSOLUT s{ker ?? 20~ Det var v{l det jag trodde !!!Du anv{nderP 0O ett f|r gammalt OS !! Device ?  Felaktigt device ! Volymnamn ?  Skall disken 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".KP /\Kan inte {ndra under bibliotek.Felaktig login.N}got fel vid ladding av "DOSGEN.CEN".Felaktig "ERROR" kod.Central:** Disk generation ** Ver X.XX, 1982-09-29 Disken i ***: kommer att rensas helt vid initieringen. [r det OK ?  Sp}r 0 {r d}ligt (borttaget) ! Tyv{rr kan jag inte initiera biblioteket p} denna disk. Prova med formatering om du inte redan har gjort det !! Jag testar disken (hav t}lamod) ! anv{ndbara sektorer. Har duP-v bytt disk ??? Annars s} kommer jag att initiera disken som jag laddade det h{r programmet ifr}n !!! [r det OK ?  F|rst}r inte !!! L{s p} i beskrivningen !!! Det d{r {r v{l {nd} ingen floppy va ! INTERNT FEL, VAR V#P,|[N,~LIG DELGE S[LJAREN Kan inte formatera, kontrollera !!! Jag formaterar disken !!!Nu checkas sektor Sector ***** {r d}lig - borttagen! *0ÁvÓàKG7AhãÍåûÄu`cÉP+gfilolþÞÑ,.  !6ʋ;( !5 >Ã@(#v +('&@((&|=o| ( '#0>Ã>ࣵ_G!yxz{ H D`(y.EM8( JJP*Z( ]]0( !5(72!>4>1~( >~>7 A 1?2..e~*k ~o0$~=8( x =::*x?g0_>-*.~<(= #,P)MN,,V,~/ ,^,~/ , (Ge֮#(>7*~,"CS2!====K[:[(:_#~<Ʌ8=8( x =::*x?g0_>-*.~<(= #,`?` ?tC}>LaL^LLLLLLLLLLLLLL!t+++|͒}͒!t!͆ 6!͆!͆!͆K ~#fo͛@'ΐ'Not yet implemented at ####H - abort. 82܂Ɂ`8͂:p !6!Ăs:P81!g͂! =0!5͂2P!|͂!6,# !#~ (~#/(,( (> (:~#˯N 2D 2Y 2W 2F 2P 2( :P!5?2*k ~o0$~2#"~ z !!0P!!c}z 6`7 8L*$T$$.]EMGO,> !x !'y G, !ү z !0ίDM!9qpsr ut { ww 6!{}͔܌^V *$.%~(e4W#^+{(Z##~w#~w#͞0,56#nf [Yy`6͜^Vnf+R8Q[R0I~w0G, ~fW˯6 !4!9~w,6,6,~w,~w,~w,w#%P ͔8[ # #~6!w! `48!5!9!y7>_: :'[!:O:η G`͔:η(<~(6nf+^V{(#R8*>g.~ݖG,~G,~!t4 4 : (#'{_*$$$j~  87 w͊7O >:|`3EW !xpg.EM !!* )!:w "!Ig ![_ !fW !qO !͕͕͕͂!.͂>͂!3͂! ~ ͂!<͂nf>͂!  6ͣ!U͂:p:0` 2R (:(z !C͂{8(! V͂η͜:η>:η>͕͂!͂! :˯OY>>N>> >~#fd+~# :00+~#^?A::η>1l` 1F!@[!P>N.2i>.2i:! υogDISKCHEKCEN0*.͂:O*.E>^SC2}2y2`K[:2:Ӈ! !?![υog|7ͮ*N˶qͮ*N˶q` 0S:p!B0 !K ~#fo|> >-    }0 8B0>0** Diskcheck ** Ver X.XX, 1982-09-27You are using a too old OS ! Device to check ? W - Display warningsD - Displa"` /`y filenames during checkN - No changes on diskY - Correct all failures foundF - Fast, warnings will not be checkedOptions (W,D,N,Y,F,none) ? Bad device !Shall I close the fileShall I clear this DIR sectorShall I delete the fileS` .mhall I replace lockout tableShall I replace bitmapShall I replace UFD headerShall I rewrite sector (Y/N) ? Record format error.Rib format failed.Drive off line.Write protect.Record not found.CRC error.Data lost.End of media.Unknow`4-zn status.File not properly closed.Multiple use of -Fcluster. DISK NOT SAFE!Bitmap integrity error.Directory map integrity error.Lockout table integrity error.Not used sectors locked out in bitmap,or found bad by DOSGEN. Warning on8`,ply.Record format error. Warning only.Bad filename :Bad user file directory header.You MUST login.You MUST be a super-user.Some internal error.Some trap during net-execute. LDA:, Owner:, LRN:DISKCHECK abort. . :`<+cBitmap Lockout cat.Library UFD header Nobody 8irectory header.You MUST login.You MUST be a super-user.Some internal error.Some trap during net-execute. LDA:, Owner:, LRN:DISKCHECK abort. . :p"?ps_ * RAMOPT.BAC** Setup utility ** Ver 6.00, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb / Signp / Note'B"* 82-09-06 / X.00 / FB / Main6L1* 82-09-14 / X.01 / FB / Start 'RAMOPT.SYS'.+M&* 82-09-28 / 6.00 / FB / Release.V*&`!** ** ** ** ** ** ** ** ** ** **j* tEJECT&~!*********************************p* Main routine* 'Change parameters? (Y/N)  _ YC ramopt.sys޸ #޸,݂ #޸,޵( (( *ލ3p (92<Calculate checksum.FPݵ?Z޵(6d((=( n?(?xA((=? #޸,݂#޸, Ձ,,⸇ ``P-"Can't start 'RAMOPT.pSYS'.UN$Can't find 'RAMOPT.SYS'.*)Invalid 'RAMOPT.SYS' version.&!********************************* * Change current options.*"2"9#i#"ǰDefault baudrate.,݊u6p@Convert to buadrate.JT^ hVr |V& Buad rate ()? VConvert to CTC data.ph99Vp ޲ݸV#Invalid baudrate, use only: f&V0(V; :1ީDVN,V;X b)-l!Unknown baudrate - usipng default.hv*!* Buad rate convert table.* 75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 1200,69,16 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,,p ModeOptSlaskPrintoptAutOnerrorFiPbuadUrnPrescaleBuadrateBaudrateSetoptChangeoptBuadBaudData1Data2CsumTunEx1130x- * z(y 9I ?#PyV# 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,,?* MAKEUSER.BAC '** Make/Delete users ** ' Ver 6.01, 1982-09-28 ,'# Copyright 1982 Dataindustrier AB  * Written by Felix Burton &$** ** ** ** ** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note 'B* 82-07-XX / X.00 / FB / Main 3L* 82-09-02 / X.01 / FB / Delete & rename. +V* 82-09-28 / 6.00 / FB / Release. 8`* 82-09-28 / 6.01 / FB / Checksum when rename. j* &t** ** ** ** ** ** ** ** ** ** ** ~* EJECT &******************************** * * Main routine * CQfŅQpŕQzƖQQQؿ $ $"New/Delete/Rename (N/D/R) ; )Fؾ:FFF(": ** ** ~* EJECT 2F"NnDdRrF"N"* /F㺇"Illegal function.: $AFຽ "Login........:;   : 9:LNָ L,亽3 Fպ(øD EJECT ("Password.....:;:  2 9::PNָ <:"Directory....:; F : 9:DNָ P  Z"Privilege....:; d :PN2ٷ n (xALPDP C EJECT IA( "CCAI$ $CﺽCC Iؽ AAC  8" ufd:names.sys:Qf:ƖQ"   C EJECT 8" ufd:names.sys:Qf:ƖQ" I_ _ #Z_o::Q_. Z_oI:: I_o %Q.:Q:& V Qf   C EJECT .Q:Q:x :BQָ B.亽6 &"A"B"亽T , 6" New user...; @QfQf DJQAB:Q:& V:rY:Append new user. EJECT T" Old user...; ^QfQf #hQAָ:Q:& V rQ:p I |"done.:3 " No user to ; -F㺇"delete."rename. 3 ("Can't create "NAMES.SYS":3 ! CT ! Delete ! 8" ufd:names.sys:Qf:ƖQ" 8" ufd:names.sys:Qf:ƖQ" .Q:Q:x :BQָ B.亽0 $B&L纽 ! CT QfQf =Q_:Q::x :Q_:Q_:& _ Q.纽 'Q:p I:Q:p I &"Delete complete.:3 )0" Can't find 'Lֻ"'.:3 :! D! Rename N! X"New name.....:; b : 9:N&Nָ *lN&,亇" No rename.:3 8v" ufd:names.sys:Qf:ƖQ" .Q:Q:x :BQָ B.亽0 D! Rename !B"L纽x QfQf BN&B $ C IB( "CCBI$ $CﺽCIC$ I .亽0 D! Rename )B82B-2B 6("C/ #QBָ:Q:& V Q:p I "Rename complete.:3  P:n~  $ ****************************** ** #4* Fixup a string to uppercase D! Rename >* and eight characters. H* &RN(ﺇNN" \NNN(, fIN(, epNI&a캇GNNI"NI& NI$ zIؽ, e  $****************************** * $* Routine to crunch password. * X: IN(< "X:X:NI$ 9NNI"X: NI$ X:X: , e Iؽ<  $******************************  * " * Routine to list all users.  * $ A . 8 " names.sys .B Q:Q:x :BQָ L B.亇 X:X: , e V TJB&0 ` B&" ; j B&; t TJ(,TJ ~ AA:B A㺇" No users.  :: $ ******************************  * X:X: , e ! * Routine to read password.  * with "*" echo.  *  N"  CTپ:C^CT  C^ 麇 "*;:NNCT < c  C^㺇P :< c  C^ 㺇F }  C^溽2 W  N(㺇< c ( P : , 2  ; < N(P麇 ~ F P N"亇  ;: Z NNN(" d   ; n $x ******************************  * ! * Simulate "GET" statement.  *  * Q1%=Lu number.  * Q0%=Number of bytes. * Q%(Lu)=Current position.  * Q$=String.  * # * Q8%(Lu)=Buffer needs write.  * Q9%(Lu)=Record number.  * Q9$(Lu)=Current record.  * Q8%=Scratch.  * Q7%=MOD(Q%(Q1%),253%)  *  Q" 0 QƖQ"QQf޺, +" QŕQzQQf㺇 /, QŅQpQƖQ"޺T . *6 ZdoQ::QQƖQָ @ ZdoQŕQz: Q7%=MOD(Q%(Q1%),253%) &J QŅQp:Buffer written. T QQf㺽 !^ QŕQzQQf h ZdoQ: r ZdoQŕQz: | QƖQQָ  QjQQ( . qQpQQfQŕQz%0ٷ ),253%)  QjqQp麽 w * QQQƖQqQp$ ( QQfQQfqQp , 0 QQQƖQqQpQj& $ QQfQQfQj  $ ****************************** )  * " * Simulate "INPUT ''N$" stm.  *  Nؾ:  NNN("  $& ****************************** 0 * !: * Simulate "PUT" statement. D * N * Q1%=Lu number. X * Q%(Lu)=Current position. ************ ) b * Q$=String to write. l * #v * Q8%(Lu)=Buffer needs write.  * Q9%(Lu)=Record number.  * Q9$(Lu)=Current record.  * Q8%=Scratch.  * Q7%=MOD(Q%(Lu),253%) * Q6%=Bytes left to write.  *  aQvQ( *********** ) , qQpQQfQQf  QƖQ'亽 A + QŕQzQQf㺇4 C / QŅQpQƖQ"޺ ' Zdo::QQƖQָ  ZdoQŕQz: ( *********** ) & QŅQp:Buffer written. ! QŕQzQQf  ZdoQ:  ZdoQŕQz: * QƖQQָ 44 QjqQp:QjaQvﺇQjaQvշ > QŅQp QŕQz: ( *********** ) gH QƖQQƖQqQp"QQ(aQvQj&QƖQqQpQj$ 9R aQvaQvQj:QQfQQfQj \ aQv溽 f $p ****************************** z * *********** ) # * Simulate 'CLOSE' statement.  * ' QQfط:Q:x Qպ   9R aQvaQvQj:QQfQQfQj \ aQv溽 f $p ****************************** z * *********** ) ?* DISKCHEK.BAC '** Diskcheck ** ' Ver 6.00, 1982-09-28 -'# Copyright 1982 Dataindustrier AB;  $* Written by G|ran Nordenborg &$** ** **, 1:** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note 49'B* 82-07-07 / X.00 / GN / Main 8L* 82-09-13 / X.01 / FB / No 'CMDINT.SYS' load. +V* 82-09-28 / 6.00 / FB / Release. `* &j** ** ** ** ** ** ** ** ** ** ** t* ~EJECT &******************************** * 49* Main routine * @AU' DISKCHEKABS `! A_)6*6 <A_6A_6A޺"Internal error.: (A_A_6A_6 CeA_ A_: 491Ce㺇 ::"Load error - sorry.: P, ǰ, RkCe:   6 <A_6A_6A޺"Internal error.: (A_A_6A_6 CeA_ A_: 49?* RAMOPT.BAC '** Setup utility ** ' Ver 6.00, 1982-09-28 ,'# Copyright 1982 Dataindustrier AB  * Written by Felix Burton &$** ** ** ** ** ** ** ** ** ** ** .* '8* Ver date / Ver nb / Sign / Note ; 'B* 82-09-06 / X.00 / FB / Main 6L* 82-09-14 / X.01 / FB / Start 'RAMOPT.SYS'. +V* 82-09-28 / 6.00 / FB / Release. `* &j** ** ** ** ** ** ** ** ** ** ** t* ~EJECT &******************************** * ; * Main routine * OOȿ -"Change parameters? (Y/N) ;:AȾ: %AÕ "Y纇a  " ramopt.sys  Zo:o: OQָ I ; % IOOI$ IȽ O溇 ( 2 <Calculate checksum. F PC ZI ?dOOI"IO OI$ I ; nCCIO xIȽ 9OOI"C OI$ !Zo::QOָ Zo:  ,, Z``: 26&"Can't start 'RAMOPT.SYS'.:   ("Can't find 'RAMOPT.SYS'.: -"Invalid 'RAMOPT.SYS' version.:  &******************************** * * Change current options. * "Bǰ:Default baudrate. "O㺇|@ , 6Convert to buadrate. @ JN TvS ^Bɽ,Dɽ,!D$ɽ /hDO!D$O޺^ rBBշ |% 1" Buad rate (B0$");:Bɽ  Convert to CTC data.  =  vS S*ɽ,Dɽ,!D$ɽ S*B溽 %ODշ:O!D$շ O  BBշ: $"Invalid baudrate, use only: D:vS Bɽ,Dɽ,!D$ɽ "(B0$; &Bɽ,Dɽ,!D$ɽ 0",B0$; :& D"):|@ 1N"!Unknown baudrate - using default.:|@ X* !b* Buad rate convert table. l* v75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 ; 1200,69,16 2400,69,8 4800,69,4 9600,69,2 19200,69,1 ,, "!Unknown baudrate - using default.:|@ X* !b* Buad rate convert table. l* v75,69,250 110,69,170 150,69,125 300,69,62 600,69,31 ;  ?ELEV2 ELEV2 ELEV3 ELEV3 ELEV4 ELEV4 ELEV1 ELEV1