???SYSDIR SYS LIB BAC`COPYLIB ABSCOPY ABS DELETE ABS`BASICINISYS UFD ABS`UFD BAC LIB ABSCMDINT SYS@LOGIN ABS COPYLIB CEN STARTUP BAC@USERDIR Ufd STARTUP1BAC LOGIN BAC PRESTARTBAC @REPROT ABS REPROT BAC RAMOPT SYS SETSTARTBAC@STARTCMDSYS`LIN80 BACLIB80 BACUFD80 BAC !BASPGM BAC@ITEMFIL >TEXTFIL  START BAC`PREP1 BACMULT BACGLOSTESTBACREAKTIONBAC@HUNDAR4 BACSORTERA BACHOROSKOPBACLUFF BACMUSIK BACDEM BAC@YNGVEJUSBACADBKARINBAC`START1 BAC&REG\VND BACCBTST  PRINT043ZPR@RPR BJ\RN Ufd KLASGRAFBAS@KLASGRAFBAC`HELCOPY BAC`MAKEUSERBAC PROG BAC? bc !? !4** , ** Ver 6.03, 1983-02-02# Copyright 1983 Dataindustrier AB LIB ABS`! +݊  {oǰ,`,,, , ,  , , , , , , , , , , ,  U! +Library listingLoad error - sorry.Too old LIB.ABS used {oǰ,`,,, , , *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. @5/! ~_E( D(!2!:p`((64#:w#:w>^.m¤:w(~>(!+ *#"ɯllll} 8B 6 #0>0038 := =(!Q!:=_, 4D7:p`Q! *.xg::=/_: (#'ZW*N˶`q*N˶`qC!(7>7:O!6_!6:̷6C6SC2}2y2``K[:2:@XtЋФо!9!, F3Q 80!̅og~#fo ! SYSDIR SYSDOSGEN CEN 2M 2 ^:ͧ 0 ͕ @͕ ͕``:Oͫ ({(/_O 7``:OS ͫ(_( ͫ5,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 - Kom08 :o` !:p`(͈!̕7*$$$.w, !w:_8)!`͊ R :D=_*T][B  [!!}ͯw z ͔8*$T$$.] w,> z !f!0P!!O07}z ͔8L*$T$$.]EMGO,> !/x !y G, !Gԯ z ! 0ίDM!9qpsr ut { ww 6!}͔܌^V *$.%~(e4W#^+{(Z##~w#~w#͞0,56#@?@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îOBJABSTXTXXXXXXXXXXXGRAFRITABACbk6#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 ?  Kopian00 0h`qͮ*N˶`q:p`!B0 !K ~#fo|> >-    }0 8B0>0~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7V0 /uͭ#~( 0# ʍ (̾!9  ͭ :0 *!a!!f:eѷ]>2eV5+##~ # Z H W5 !9>Z 5 55~0PR: q.}** Diskcheck *ZP!?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@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`d?`)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 optionRen1000zp6͜^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 >:|?  88!ί2Q.S!̯ww66*m`^#VS{> >w:P .!! P2!!'!6L#6,# :P!7=(w!~# (~# (K (G,(/ ~# (9 (5_N &S &,8 F &P O :'>((:TP &:b :m (+!m:͊!b.͊!j ͊ ~ݾ!.*k` ~o0$~2"#~202; :@ Nr]C0C:?*w2:2>2rC0:?@*w2:2,7z].*k`o0$##V#^!r#s; f(. 6R#6A#6Mʧ!~ J[r\*.^#Vz #~_0r[o!6 ##!zʧ; z\~ [r[.~,n <=}w~ [},6'_0tZ*$.#~ (S(R#^#VS#~<= R ( *( #yV ##F(1}ݶOtrr> > 0N(]*| I}oV#>_:(:< tZ[!E<( #,4I̯}  8B(0>0> !6^ 5 4 ^ͨ54~*m`##~:*.~7.~?,v*~?@w*#N˶~2`q~ (#y 3W:'7@,3NssE!!:η >!]ͳ>2V'+##~ # L : W' !9> ' ''~0:ΧjssE!!͝^(666>>~ [,w2[^w * :Χ*,~ #^#VSZSͿ6B6C6'6&6#{~D7PR: t12bk6#6 ͡ x0G> ͜.89ͬ#͡x 0(>ͬ͜. #͡x0> ͬ͜ί>7_, 1Y0͹8+~# (0:?A^?V#~( 0# (!9   ~# 7 (+~:06D#6R# w#6:ˮ#ˮ#~:8ˮ:0* *{^#V##O ~:7?| 7 UFD:P FILENAME.EXT H, 0f** Library list ** Ver 6.03, 1983-02-02 Drive ***:RAM: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, /s,P,none) 8 Ver 6.03, 1983-02-02 Drive ***:RAM: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?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#3 ޲ݸV#Invalid baudrate, use only: f&V0(V; :1ީDVN,V;X b)-l!Unknown baudrate - usiA? 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* MAKEUSER.BAC '** Make/Delete users ** ' Ver 6.02, 1983-02-11 ,'# Copyright 1983 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. 2j* 83-02-11 / 6.02 / FB / Delete correct. t* te &~** ** ** ** ** ** ** ** ** ** ** * EJECT &******************************** * * Main routine * CQŅQŕQƖQ QQۿ .  $"New/Delete/Rename (N/D/R) ; * te )F(۾:F(F(F((": 2F2"NnDdRrF("N"* /F2㺇"Illegal function.: $A8F2ຽ  "Login........:;  :*w:L>NHָ (N/D/R) ; * te L>,亽 q (F2պ20N 2"Password.....:;: I <*w::PRNHָ F:"Directory....:; P :*w:D\NHָ Z\ d"Privilege....:; n :PfNH2ٷ x te (AlL>PRD\Pf Cv I|Al(~ "CvCvAlI|$ $CvﺽCvCv I|۽~ AlAlCv  :; n :PfNH2ٷ x te 8" ufd:names.sys:Q:ƖQ " >  8" ufd:names.sys:Q:ƖQ " %Q.:Q:0 Q  .Q:Q: :BQָ te "B.亽@ &,Al"B"亽^8 6H @" New user...; JQQ DTQAlB:Q:0 :|:Append new user. ^" Old user...; hQQ te #rQAlָ:Q:0 |Q:z "done.: q " No user to ; -F2㺇"delete."rename.  q ("Can't create "NAMES.SYS": q ! ! Delete ! QQ te 8" ufd:names.sys:Q:ƖQ " 8" ufd:names.sys:Q:ƖQ " .Q:Q: :BQָ B.亽: $B&L>纽 QQ 2Q:Q: :Q:0 Q.纽@ '&Q:z :Q:z 0"Delete complete.: q ):" Can't find 'L>ֻ"'.: q D! N! Rename X! b"New name.....:;  l :*w:NNHָ *vN,亇" No rename.: q 8" ufd:names.sys:Q:ƖQ " .Q:Q: :BQָ B.亽: !B"L>纽 .:;  QQ BNB $ Cv I|B( "CvCvBI|$ $CvﺽCvCv I|۽ )BBB("Cv  .:;  #QBָ:Q:0 Q:z "Rename complete.: q Pf:x   $******************************* 4* #>* Fixup a string to uppercase H* and eight characters. R*  .:;  &\NH(ﺇNHNH" fNHNHNH(, pI|NH( ezNHI|&a캇GNHNHI|"NHI|& NHI|$ I|۽  rs. R*  .:;  $****************************** * $* Routine to crunch password. * X I|NH( "XXNHI|$ 9NHNHI|"X NHI|$ XX :;  I|۽  $ ******************************  * " * Routine to list all users. $ * . A8 8  B " ufd:names.sys .L Q:Q: :BQָ V B.亇  :;  ` TB&0 j B&" ; t B&; ~ T(,T  A8A8:L L A8㺇" No users.  :: $ ******************************  *   :;  ! * Routine to read password.  * with "*" echo.  *  NH"  C۾:CC  C 麇  "*;:NHNHC F  C㺇Z :F  C 㺇P  C溽< ( NH(㺇F 2 Z :( n <  ; F NH(P麇 P Z NH"亇  ;: d NHNHNH(" 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 "QQ޺6 +, QŕQQQ㺇 /6 QŅQQƖQ "޺^ p *@ ZoQ::QQƖQ ָ J ZoQŕQ: Q7%=MOD(Q%(Q1%),253%) &T QŅQ:Buffer written. ^ QQ㺽 !h QŕQQQ r ZoQ: | ZoQŕQ:  QƖQ Qָ  QQQ( . qQQQQŕQ%0ٷ ),253%)  QqQ麽 * QQQƖQ qQ$ ( QQQQqQ 6 0 QQQƖQ qQQ& $ QQQQQ  $ ****************************** )  * " * Simulate "INPUT ''N$" stm.  *  NH۾:  NHNHNH(" & $0 ****************************** : * !D * Simulate "PUT" statement. N * X * Q1%=Lu number. b * Q%(Lu)=Current position. ************ ) l * Q$=String to write. 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.  *  aQQ( *********** ) , qQQQQQ  QƖQ '亽 + QŕQQQ㺇> / QŅQQƖQ "޺  ' Zo::QQƖQ ָ  ZoQŕQ: ( *********** ) & QŅQ:Buffer written. ! QŕQQQ  ZoQ: * ZoQŕQ: 4 QƖQ Qָ 4> QqQ:QaQﺇQaQշ H QŅQ QŕQ: ( *********** ) gR QƖQ QƖQ qQ"QQ(aQQ&QƖQ qQQ$ 9\ aQaQQ:QQQQQ f aQ溽 p $z ******************************  * *********** ) # * Simulate 'CLOSE' statement.  * ' QQط:Q:  Qպ   9\ aQaQQ:QQQQQ f aQ溽 p $z ******************************  * *********** ) a? * 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 ; ? SU USERDIR W# ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw ?? D?DOSGEN ABSDISKCHEKABSDISKCHEKBAC@MAKEUSERBACDOSGEN CEN DISKCHEKCEN RAMOPT BAC MKUSER80BAC DSKCHK80BAC ` RAMOPT80BAC NAMES SYS RPR BASPROG BAC@BASS\K BAC?8> b82!C:o` !ڿ:P8=!!] =0!2P!! ~˯6A#6,#w#6 :P :P*k`2P> 22!~# (~#/(,( (" (~# ( (N 2F 2:P!b !R :ͷj:P2!r!p:,8pJ!¿:A!P !!p:pJ!¿!R!p:pJ!¿&!!b:ͷ!p:pK(C:P2*k`o0$~2#"~2 9`~  T]6R!"͆(FG #}  .6#6#%:A80~w 0,  $ڼ.:w $ڼ6#:w>^.m¤:w >(!+ ~#(#ʼ(!+ ~#fo1,6"!Q!>^#VS0]T6!60$ڼ]T 0$ڼ 0:O`8v {ZWS {ZWS{ZWS!00`8,!`8'*:8) Q!:ͷ!!:ͷ &!F,@5/! ~_E( D(!2!:p`((64#:w#:w>^.m¤:w(~>(!+ *#"ɯllll} 8B 6 #0>0038 := =(!Q!:=_,4D7:p`Q! *.xg::=/_: (#'ZW*N˶`q*N˶`qC!(7>7:O!6_!6:̷6C6SC2}2y2``K[:2:@XtЋФо!9!,F3Q 80!̅og~#fo ! SYSDIR SYSDOSGEN CEN 2M 2 ^:ͧ 0 ͕ @͕ ͕``:Oͫ ({(/_O 7``:OS ͫ(_( ͫ5,2a ~, ``O xyz{ͯ0 @ N @;@NNGw, Ingen floppy isatt !!!?!!! Skriv in "K" n{r du {r klar !  lite sv}rt att skriva n{r SKRIVSKYDDET , 1n{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 ??  0g Det vag, 0[r v{l det jag trodde !!!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 re, /hdan ett job.Hittar inte "DOSGEN.CEN".Kan inte {ndra under bibliotek.Felaktig login.N}got fel vid ladding av "DOSGEN.CEN".Felaktig "ERROR" kod.Program fel.Central:** Disk generation ** Ver 6.01, 1982-12-16 Disken i ***: komme, .ur 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 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 {,(,pr v{l {nd} ingen floppy va ! INTERN,gT FEL, VAR V[NLIG DELGE S[LJAREN Kan inte formatera, kontrollera !!! Jag formaterar disken !!!Nu checkas sektor Sector ***** {r d}lig - borttagen!   !,+[6ͺ4@(#v +('&@((&|=o| ( '#0>4>ࣵ_ͺG!͟y͟x͟z͟{ H D͍`(y.EM8( ( 0( !5(72͍#~t!>4>,*N1~( >~>7 A 1͍?2?.e͟~*k`ͺ ~o0$~=8( x =::*x?g8`(y.EM8( ( 0( !5(72͍#~t!>4>,? 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 ? !,* 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 optionCBigListyNamept0D?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@?@?!ͥ"6!ͥ":!ͥ"7K ~#fo*:ͬB0*<͈G>7 ͰT]6 !"?n(,@? F( #}  .6#6#%:DA80~w 0,Ϳ  >Ͱ.:CwͿ >*8[?#s#r08 ͮ:D= =(*86#s#r*6 6A*4͈:D=_ͮ7*.xg:Eͱ*AN˶qͱ*AN˶",@L>qͱ!(7>7:>O!6y!>6:E·66*?#"?=GͿ ^:F§ -0ͰKK@K`:Oͱ({(/_O 7`:OSͱ(_(  ~ ,@=, `O x y z { ï0 @ N @;@NNGw,  !6V͒( !5 >N@(#v +('&@((&|=o| ( '#0>N>ࣵ_G!͹,@<&y͹x͹z͹{ H Dͧ`(y.EM8( ( ((0( !5(72ͧ#~Ž!>4>1~( >~>7 A 1ͧ?2..e͹~*k ~o0$~=8( ,@";3 x =::x*x?g?`(y.EM8( ( ((0( !5(72ͧ#~Ž!>4>1~( >~>7 A 1ͧ?2..e͹~*k ~o0$~=8( ,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.02, 1983-02-11 ,'# Copyright 1983 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. 2j* 83-02-11 / 6.02 / FB / Delete correct. t* te p&~** ** ** ** ** ** ** ** ** ** ** * EJECT &******************************** * * Main routine * CQŅQŕQƖQ QQۿ .  $"New/Delete/Rename (N/D/R) ; * te p)F(۾:F(F(F((": 2F2"NnDdRrF("N"* /F2㺇"Illegal function.: $A8F2ຽ  "Login........:;  :*w:L>NHָ (N/D/R) ; * te pL>,亽 q (F2պ20N 2"Password.....:;: I <*w::PRNHָ F:"Directory....:; P :*w:D\NHָ Z\ d"Privilege....:; n :PfNH2ٷ x te p(AlL>PRD\Pf Cv I|Al(~ "CvCvAlI|$ $CvﺽCvCv I|۽~ AlAlCv  :; n :PfNH2ٷ x te p8" ufd:names.sys:Q:ƖQ " >  8" ufd:names.sys:Q:ƖQ " %Q.:Q:0 Q  .Q:Q: :BQָ te p"B.亽@ &,Al"B"亽^8 6H @" New user...; JQQ DTQAlB:Q:0 :|:Append new user. ^" Old user...; hQQ te p #rQAlָ:Q:0 |Q:z "done.: q " No user to ; -F2㺇"delete."rename.  q ("Can't create "NAMES.SYS": q ! ! Delete ! QQ te p 8" ufd:names.sys:Q:ƖQ " 8" ufd:names.sys:Q:ƖQ " .Q:Q: :BQָ B.亽: $B&L>纽 QQ p 2Q:Q: :Q:0 Q.纽@ '&Q:z :Q:z 0"Delete complete.: q ):" Can't find 'L>ֻ"'.: q D! N! Rename X! b"New name.....:;  p l :*w:NNHָ *vN,亇" No rename.: q 8" ufd:names.sys:Q:ƖQ " .Q:Q: :BQָ B.亽: !B"L>纽 .:;  p QQ BNB $ Cv I|B( "CvCvBI|$ $CvﺽCvCv I|۽ )BBB("Cv  .:;  p#QBָ:Q:0 Q:z "Rename complete.: q Pf:x   $******************************* 4* #>* Fixup a string to uppercase H* and eight characters. R*  .:;  p&\NH(ﺇNHNH" fNHNHNH(, pI|NH( ezNHI|&a캇GNHNHI|"NHI|& NHI|$ I|۽  rs. R*  .:;  p$****************************** * $* Routine to crunch password. * X I|NH( "XXNHI|$ 9NHNHI|"X NHI|$ XX :;  pI|۽  $ ******************************  * " * Routine to list all users. $ * . A8 8  B " ufd:names.sys .L Q:Q: :BQָ V B.亇  :;  p` TB&0 j B&" ; t B&; ~ T(,T  A8A8:L L A8㺇" No users.  :: $ ******************************  *   :;  p! * Routine to read password.  * with "*" echo.  *  NH"  C۾:CC  C 麇  "*;:NHNHC F  C㺇Z :F  C 㺇P  C溽< p( NH(㺇F 2 Z :( n <  ; F NH(P麇 P Z NH"亇  ;: d NHNHNH(" 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 "QQ޺6 +, QŕQQQ㺇 /6 QŅQQƖQ "޺^ p *@ ZoQ::QQƖQ ָ J ZoQŕQ: Q7%=MOD(Q%(Q1%),253%) p&T QŅQ:Buffer written. ^ QQ㺽 !h QŕQQQ r ZoQ: | ZoQŕQ:  QƖQ Qָ  QQQ( . qQQQQŕQ%0ٷ ),253%) p QqQ麽 * QQQƖQ qQ$ ( QQQQqQ 6 0 QQQƖQ qQQ& $ QQQQQ  $ ****************************** ) p * " * Simulate "INPUT ''N$" stm.  *  NH۾:  NHNHNH(" & $0 ****************************** : * !D * Simulate "PUT" statement. N * X * Q1%=Lu number. b * Q%(Lu)=Current position. ************ ) pl * Q$=String to write. 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.  *  aQQ( *********** ) p, qQQQQQ  QƖQ '亽 + QŕQQQ㺇> / QŅQQƖQ "޺  ' Zo::QQƖQ ָ  ZoQŕQ: ( *********** ) p& QŅQ:Buffer written. ! QŕQQQ  ZoQ: * ZoQŕQ: 4 QƖQ Qָ 4> QqQ:QaQﺇQaQշ H QŅQ QŕQ: ( *********** ) pgR QƖQ QƖQ qQ"QQ(aQQ&QƖQ qQQ$ 9\ aQaQQ:QQQQQ f aQ溽 p $z ******************************  * *********** ) p# * Simulate 'CLOSE' statement.  * ' QQط:Q:  Qպ   9\ aQaQQ:QQQQQ f aQ溽 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 ; ?SU USERDIR WBJ\RN BJ\RN (ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw ?? ?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݊ ?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_0!7$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 up!61date 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 up1 ?1!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 1/ 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&(!*************************1*******<*P* Main routined*0x REPROT ABS`!  +-݊"Load error - sorry. GR, Set no fileǰ,긐Set no optionCBigLis1tyNameptrDrvptrOptptrInitializeNameTempNotraceLoistzyyy  +-݊"Load error - sorry. GR, Set no fileǰ,긐Set no optionCBigLisA ?A8EOA,8 !~!M ~y~y[~#foN8 Q ?QN * SETSTART.BAC** Startup set ** Ver 6.00, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb / SignQ / Note'B"* 82-09-08 / X.00 / FB / Main+L&* 82-09-28 / 6.00 / FB / Release.V*&`!** ** ** ** ** ** ** ** ** ** **j* tEJECT&~!********************************** Main routine* ޸,0TermQinal card.$Get terminal number. startcmd.sys޸L startcmd.sys޸%#޸, Clear status byte.#޸,  #޸, ݊N#޸,圧 ( #޸,Q2 #޸,$帇< #޸,.帇F Auto start ;+P߈file: is disabled.Z Auto login is;%dވ :$ disabled.nxAsk if any auto start.߈ Y8N80Do you want auto staQrt? (8) BB8B#B _ Y߯Auto start file:B;B L&LBLޟ BLޜB1B햾$Too long name, try again.{B B$߆SeQt 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 loginQ.TB$ B$^Enter password:B;(hB喾Too long password.rB. B.$|ކSet auto login option.Time to update file.#޸,圧 #޸,Q#޸,$$#޸,..#޸,-#޸, At last update status info.޸(Can't create 'STARTCMD.SYS'./LstTermStatChainnameLoginPasswordStrDef! zI r $ . 8Z!B:!LQ y #޸,$$#޸,..#޸,-#޸, At last update status info.޸(Can't create 'STARTCMD.SYS'./LstTermStatChainnameLoginPasswordStrDef! zI r $ . 8Z!B:!La@?asetstart felix fb nfo.R޸\(fCan't create 'STARTCMD.SYS'./LstTermStatChainnameLoginPasswordStrDef! zI r $ . 8Z!B:!Ly *#޸,$$4#޸,..qa?q* 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 q8.* 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 q"** Login utility ** " Ver 6.00, 1982-09-28 ,"# Copyright 1982 Dataindustrier AB @A ' LOGIN ABS `! A )6*6 **** t* ~* Main routine * :: 9-10 q<A 6A6A޺"Internal error.: (A A6A6 C A AA: -C 㺇"Load error - sorry.: FL "纇)ALo"L L -",P A 9-10 qI A(" #I ǯ,ANI .$  I OK R CK :: R պ" Some error. (N "纇 Nerֻ 2 rry.: FL "纇)ALo"L L -",P A 9-10 ? * LIB.BAC '** Library list ** ' Ver 6.02, 1983-02-11 ,'# Copyright 1983 Dataindustrier AB $* Written by G|ran Nordenborg &** ** ** ** ** **L,s * ** ** ** $* '.* Ver date / Ver nb / Sign / Note EJECT '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* 83-02-11 / 6.02 / FB / List file. `* &j** ** ** ** ** ** ** ** ** ** ** t* ~EJECT &******************************** * * Main routine * @A' LIB ABS `! A)6*6 <A6A6A޺"Internal error.: ** t* ~EJECT (AA6A6 CA A: -C㺇"Load error - sorry.: 7C6溇$"Sorry, too old LIB.ABS used: ǰغ, 6A޺"Internal error.: ** t* ~EJECT Z`,,, , , , , , , , , , , , , ,  RC:  C6溇$"Sorry, too old LIB.ABS used: ǰغ, 6A޺"Internal error.: ** t* ~EJECT ? 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(? )P'd"---------------------------------(n#------- programnamn BASPGM -------sx} ~և ։ ևHֆHևH ֆHւ@ք 0ֈք F "1. S|kning i databasen"-,&"2. Inmatning av text till databasen" "3. Avbryt"ւ@V antal s|kordLG----------------------------------------------------------------------ID-------------------------------------------------------------------  Չ0+omvandlar inparametern till cursorpositionHC------------------------------------------------------------------@ אR-% spara aktuell cursor som heltal"I,D-------------------------------------------------------------------6@x zz MJHl{ser in ett tecken fr}n tangentbordet och omvandlar det till ASCII-kod T ^ ^ h^r|LG---------------------------------------------------------------------- Q!*!+&returnerar en delstr{ng av instr{ngenTyp=1 f|rsta tecknet#Typ=2 alla tecken utom f|rsta"Typ=3 alla tecken utom sistaTyp=4 sista tecknetannan Typ hela str{ngenՁ Ձ Ղ Ղւ@Ձ Ճ  &0O:J-------------------------------------------------------------------------D"NB!r!!!",*!, ("X"XՁ b; l v3 _ ; ;   Ն և~cՁ * * 5 Մ)Ճւ@5 ք(ՁՂ քP   օ@ ; ֈG.ՂRւ@>1  Ո ֡ G*4#> ; HR\OfJ-------------------------------------------------------------------------pz?"z"x4/obs Ccr global m}ste ha ett v{ rde 40/80 tecken օ8Ձ;"օ8ՂՂ;%օ8Ձ~;ID-------------------------------------------------------------- -----8#Rzj#P փ` ;!ЃЈ<ЉЈ>Љ$օ@v.8HBC------------------------------------------------------------------LV#L##`(j tt~  t t2---------------------------------------------22---------------------------------------------<'%h%*! y!%d޵|uՁ S|kord nr ;ք  &  0ޜ1:Dޟ/ NX(b#----------------------------------lv'"---------------------------------%y &%h%y޵?Ձж”Ձ ޜ'"---------------------------------'"---------------------------------@&h%j&xx&("Ձք@ ;ք ք ք0ք ֆt AՁ  քPք  *Ձ49D>քP%V{lj ett nummer och tryck p} ;  HR& !--------------------------------& !----- huvudprogram -----------! ւ@ DATA OM DATA V~ ( #----------------------------------) $------ inmatning av data --------- itemfilՁ^+ Kan ej |ppna filen textfilՂ+ Kan ej |ppna filen= #Ձ, #Ձ,ƭՃ  ­2  J $¿N¿n  ք@  VK& Text:, ։x 0 Ձ: #Ձ,D #Ձ,1 N ՁS #Ձ,ևHT #Ձ, U ՁX #Ղ,։b #Ղ, g l Fler texter? ƿq ¿Ձv ¿Ձ   ! ւ@ DATA OM DATA+   (#----------- S|k och l{s ----------itemfilՁ+Kan ej |ppna filen)textfilՂ+Kan ej |ppna filen#Ձ, #Ձ,ƭՃ ­2 Ձ5#Ձ,ևH" #Ձ, ևH,L0G-------- L{s in s|korden i matris och sortera sedan i vektor ---------465.V{nta ett tag! Jag sorterar i bokstavsordning.:Ձ??ՁV& D0 гFN SՁ'XՁF]ՁV-b'F0 d'ա'g:l+nՁVՁpՁ'V=qF'F'F'F 'FrF'FItFkvF'Fx'Fkz|~XIS#:Vill du se s|korden s} svara j, tryck annars p} nՁ$n/ ք@ %¿N¿n&օ0և'օ(!*S|kord: ք H| +ELLER: ք ( /ք@ 4Ձ!>| V!H† VRr\#Ղ,։f #Ղ, ։p z 7"Tryck p} f|r forts{ttningքP/ ք@ Iօ0.Inga fler texter p} detta s|kord. Ny s|kning? ;ƿ¿Ձ¿Ձ  !ւ@ DATA OM DATA>s8p3-------- Visa s|korden --------------------------- zք@ ˋF|ljande s|kord finns. N{r man s|ker m}ste orden skrivas p} samma s{tt som de {r inskrivna, dvs om det {r stora respektive sm} bokst{ver.ՁV%F F,;&Tryck p} n{r du l{st klart. քP ք@ xjOm du vill ha s|korden utskrivna \nskas p} skrivaren s} svara S. Tryck annars p} ||S|s Pr:vsa30B72.5փ@#փ@ˋF|ljande s|kord finns. N{r man s|ker m}ste orden skrivas p} samma s{tt som de {r inskrivna, dvs om det {r stora respektive sm} bokst{ver. #փ@ՁV+%F#փ@F,#փ@ք@ փ@$.C8>----------- till{gg f|r fler s|kord ------------------------KXF------------ Utskrift av samtliga texter med respektive s|kord ------bL|senօ@litemfilՁﴥ+vKan ej |ppna filentextfilՂAﴥ+Kan ej |ppna filenfpr:փ@/#Kan ej |ppna skrivaren#Ձ, #Ձ,ƭՃ ­2Ձ#Ձ,ևH #Ձ,ևH ж ж ж#Ղ,։ #Ղ, ։#փ@,,, #փ@#փ@,  #փ@#փ@*4!>ւ@ DATA OM DATAgH;9R4---------------------------------------------------CurPosCurposGetCincharShiftTypInInputFr}gaDefaultL{ngdEdInascInflagMessageKvittensCcrErrorTextOpenFilFilnrEcPrepareFil1Filnr1RubPostl{ngdPostnrAntalL{geItemS|kS|kordMenyRubrikRadNrSvarAntlSlask# j#% %0~F~Vh%^ t$|zzx&&&zxx x  ' k*'|zzx crErrorTextOpenFilFilnrEcPrepareFil1Filnr1RubPostl{ngdPostnrAntalL{geItemS|kS|kordMenyRubrikRadNrSvarAntlSlask# j#% %0~F~Vh%^ t$|zzx&&&zxx x  'E? ( ADBDATADATOR DATOR DATAMASKIN  DATORCPU CPU PROCESSORALU MINNEUTENHETINENHET SPR]KKODBIN[R SPR]K KOMPILATORTOLK  FILREGISTER ENIAC1946EL.R\R  HOLLERTITH1887H]LKORT BABBAGE1833MEKANIK  TRANSISTOR1947  HEX  KOMPILATOR ASSEMBLERTOLK UTENHETPRINTERSKRIVARE FORTRAN COBOL1959  COMPIS SKOLDATOROLESEN CADCAM 1936TURINGUPPSATS 121212         ?   ADB betyder automatisk databehandling. Behandling av data som i huvudsak sker med hj{lp av dator. Data {r uppgifter, fakta som ska bearbetas.  "En dator {r en databehandlingsapparat som utan m{nskligt ingripande under k|r- ning kan utf|ra omfattande ber{kningar med ett stort antal matematiska och lo-  giska operationer." (Standardiseringskommissionen i Sverige.) Datorns viktigaste del {r centralenheten ( CPU = Central Processing Unit ). Tillden skickas data f|r bearbetning via n}gon INENHET. Resultatet skickas ut till en UTENHET. I centralenheten finns processorn och prim{rminnet. Processorn har en aritmetiskoch logisk enhet ( ALU ) d{r ber{kningar och j{mf|relser g|rs. I prim{rminnet lagras program och data. Yttre minnen (sekund{rminnen) anv{nds f|r lagring av program och data. Dessa fungerar d} b}de som ut- och in-enheter. Exempel p} yttre minnen {r magnetband, skivminnen, flexskivor.  Maskinspr}ket {r bin{ra tal. Maskinorienterade spr}k {r en kod som {r beroende av vilken maskin man anv{nder. ASSEMBLY {r ett maskinorenterat spr}k. Problem- orienterade spr}k kallas ocks} h|gniv}spr}k. Det liknar mer det m{nskliga spr}- ket och {r oberoende av maskintyp (med viss modifikation). Exempel p} h|gniv}spr}k: COBOL, FORTRAN, PASCAL, PL/1, ADA, APL, BASIC, COMAL. Spr}ket |vers{tts till maskinspr}k av en kompilator. N{r det g{ller Basic och Comal som anv{nds f|r undervisning anv{nds en tolk (interpretator) som |vers{t- ter rad f|r rad vid inmatning av program. Fil kommer av engelskans file som betyder register. D{rf|r kallas ett register f|r databehandling f|r fil eller file. En fil spar as p} n}got yttre minne tex skivor eller magnetband. ENIAC byggdes i USA 1946 och brukar betraktas som den f|rsta egentliga datorn. Den var helt elektronisk med 18.000 elektronr|r. Den v{gde 30 ton och tog upp engolvyta p} 200 kvm. En modern programmerbar minir{knare har st|rre kapacitet {n ENIAC hade. I USA utlystes en t{vling i slutet p } 1800-talet om hur man skulle klara av folkr{kningen. 1860 hade den n{mligen tagit 7 }r. Herman Hollerith vann t{vlingen med sin elektriska h}lkortsmaskin 1887. ]r 1913 startade han IBM.  Charles Babbage (eng. matematiker) f|rstod po{ngen med en dator. Han utnyttjade h}lkort som styrmekanism. P} grund av att endast mekanik (kugghjul mm) fanns d} s} fick han den aldrig att fungera. Hans principer {r dock samma som i dagens datorer. Den f|rsta transistorn framst{lldes 1947 i Bells laboratorier av William Shock- ley och hans medarbetare. Transistorn var en f|ruts{ttning f|r datorernas enormautveckling. Tidigare fanns bara elektronr|r som dels {r mycket, mycket st|rre och dessutom kr{ver massor med energi. Hexadecimala talsystemet arbetar med basen 16. Det inneb{r att 16 olika talsym- boler finns: 0,1,2,3,4,5,6,7,8,9,A,B,C,D,E,F.  F|r att |vers{tta h|gniv}spr}k till maskinspr}k s} anv{nds en kompilator. Hela programmet kompileras d} f|rst och k|rs sedan. Assemblys kompilator kallas assembler. Tolk = interpretator |vers{tter rad f|r rad vid k|rningen vilket g|r interpreterande spr}k l}ngsamma. Utdata kan presenteras p} olika typer av skrivare. Matrisskrivarens skrivhuvud best}r av n}gra n}lar som avfyras enligt ett styrprogram och formar olika teckenoch bokst{ver. En sk|nskrivare har ett typhjul som en skrivmaskin. Den skriver snyggare men l}ngsammare. Radskrivare skriver en rad i tagetFORTRAN {r f|rkortning av FORmula TRANslator. Det anv{nds framf|r allt f|r tek- nisk databehandling. Det kom 1954 som f|rsta problemorienterade spr}k. (H|gniv}-spr}k).  Cobol {r f|rkortning f|r COMMON BUSINESS ORIENTED LANGUAGE.60 % av v{rldens programmerare beh{rskar spr}ket.  Olesen och Lindgren har tagit fram en 16-bitars dator f|r undervisnings{ndam}l. Mjukvara till datorn tas fram av ESSELTE STUDIUM som ocks} s{ljer och distribu- erar h}rdvaran. Datorn har f}tt namnet COMPIS (COMPuter In School) och ber{knas finnas till allm{n f|rs{ljning v}ren 1984. CAD=Computer aided design. CAM= Computer aided manufactoring. Datorst|dd kon- struktion av t.ex. kretskort, datorer, b}tar, segel, bilar m.m. Konstruktionen kan direkt |verf|ras till produktionen. 1936 presenterade Alan Turing sin uppsats "ON COMPUTABLE NUMBERS" som beskriver en automatisk r{knemaskin som kan utf|ra alla slags ber{kningar. THIS IS KARIN'S ATTEMPT TO DO SOMETHING WITH THIS STUPID COMPUTER. THIS WAS ACTUALLY HER MOTHER.      ! " # $ % & ' ( ) * + , - . / 0 1 2 3 4 5 6 7 8 9 : ; < = ?!K4/********************************************** EXTBAS% *******************************  א ,,ֈ א0,,ֈ  @Ր,,,ֈP,Ղ,ֆ,Ո,ֆ ,Ո,ֆ`,ՈBא ,,,ֈP,Ձ,օ ,Ո,օ0,Ո,օx,ՈFא,և2,Ո,Ո,և,և ,և(,և,և(,և ,ևCא,ֈ,Ո,Ղ,Ղ,ֆ,ֈ,և,Ո,և,ՈGא(,Ո,և ,և$,և,և,և ,և,և*,և$,և Fא2,ֈ,և.,և,և,և(,ֈ,ֆp,Ո,ֆp,ՈFא<,փ@,Ձ,ֈC,օh,,ֈg,ֈI,ֈg,ֈ/,ֆHHאF,ֈu,ֈ,ֆh,ֈt,ֈ,և,ևx,ֈ5,ֈH,ֆhHאP,ֈt,ֈ,ֈ9,ֆ ,ֈw,և,ֆ,,օ@,ֈs,ֈaFאZ,ֈ],ֆ,,,ֈ],ֆd,ֈU,ֈk,ֈM,ֈFאd,Ո,ֆ,ւ@,,ֈ/,ֈm,և,ֆ@,ֆ,ֈMGאn,ֈ!,Ո,և|,ֆ ,ևL,և^,ֈ/,ֈm,և$,ֆ`Gאx,օH,ֈM,ֈ!,Ո,ֆ ,ֆ ,օX,ևv,ֈ2,ևGא,փ@,,ֆ ,ֆ ,ւ@,ք,օ@,ֈt,ֈM,ֈ/Cא,Ո,ֈM,ֈ(,Ո,օ@,փ@,Ձ,,,ֈMFא,ֈ(,Ո,ֈQ,ֈo,ֈ],և,Ճ,ֈ],և ,փ Gא,ֈI,ֈ],և\,Ղ,ֈ],ևL,ւ@,ֈI,ֈ],ևbFא,Ճ,ֈ],և`,փ ,ֈI,ֈ],ևj,Ղ,ֈ],ևh א,ւ@,ֈI!"#Ր,א},א~$א},,Ո%&'א ,א,א(א,ք ,Ո) BASPGMCurPosCurposGetCincharShiftTypInInputFr}gaDefaultL{ngdEdInascInflagMessageKvittensCcrErrorTextOpenFilFilnrEcPrepareFil1Filnr1RubPostl{ngdPostnrAntalL{geItemS|kS|kordMenyRubrikRadNrSvar,Ո) BASPGMCurPosCurposGetCincharShiftTypInInputFr}gaDefaultL{ngdEdInascInflagMessageKvittensCcrErrorTextOpenFilFilnrE`?!' **** PREP1 **** ք@ 9փ Ѓ$***** PREPARERING AV DIREKTFIL *****&(փ`ІHUR M]NGA POSTER; 2 2<ՄІHUR M]NGA TECKEN I VARJE POST; F Pք ІFILNAMN ; ZdՁn޵x#Ձ,  Ձ,ք@փ ЃPREPARERINGEN AVSLUTADy yzy 2 2<ՄІHUR M]NGA TECKEN I VARJE POST; F Pք ІFILNAMN ; Z?Q ք@ 3+NU F]R DU TESTA DIG SJ[LV I MULTIPLIKATION QIDU F]R 50 PO[NG FR]N B\RJAN OCH VARJE G]NG DU SVARAR FEL DRAS EN PO[NG AV1()DU F]R OCKS] REDA P] HUR L]NG TID DET TOG8-0OM DU SKRIVER FEL KAN DU SUDDA MED <-- TANGENTEN2+<#STARTA GENOM ATT TRYCKA P] F Pք@ ZֆHAd)7*** starttid FLYTTA DENNA RAD TILL L[MLPG PLATS ******nօ PO[NG :;x }ֆ  Ձ*ք  ք A ք G1*փ A;*;G; = ; M&MAGօ փ`76*փ  Ձօ փ`t.A)S7*** stopptid -"- *******1օ(TID ;]; min ;e; sek*VILL DU FORTS[TTA? (J/N) ;Jj  dem"GB****** TAGTID ***************************************************J E*************** BER[KNING AV TID ***********************************ք@ՁmքPՁw$mI1m.wI2w8mw B'LքpՂ'VօՂ'`Sք@ՁjSքPՁt£I1~­I1£­ ·'SքpՂ'SօՂ'(֌aֆpֆp]]ֆpeLG**********************************************************************zx  z *x AyGyMyS]x exm wz  z x֌aֆpֆp]]ֆpeLG**********************************************************************zx  z *x AyG?  օpօHօpօHօp$(---------------- -ք@ .ˏMata in svenska och engelska ord i tur och ordning. N{r du {r klar med det skriver du SLUT. D} f}r du |vers{tta de svenska orden till engelska./)2;slut;SLUT <;Ձ;)FSvenska (eller slut): ;+K;slut;SLUT#P Engelska: ;ZdRnJnejJNEJ sք@ xՁ;T\);slut;SLUT;; J;#J;TՁT2փ` ,;\Ձ\\$; ;Ձ;U$T av ;Ձ var r{tt.Ձk׌;o\[SKNu f}r du tr{na p} de glosor du inte kan.(Tryck p} return f|r forts{ttning) J ք@ Ձ ք@ Ձ\$~w#$~ ;Ձ J;C"J$~$փ` ,;$~,-Ձ֊z.6 ;ք@ 0<(Bra! Nu verkar det som om du kan det h{r%@En g}ng till? (ja/nej) JJO P demT~~$|;xJzTx\x kx xx xփ` ,;$~,-Ձ֊z.6 ;ք@ 0<(Bra! Nu verkar det som om du kan det h{r%@En g}ng till? (ja/nej) JJO P demT~?9 ք@ ЄREAKTION ======== (ЄTRYCK P] MELLANSLAGS-%2ЄTANGENTEN D] BOLLEN FALLER7 <PօXЂ$Z ։z ;dփ@# e + f+ 5g5Նnփ@# + + 55Նqօ8`/օXІ;ՁօXЂ$;;Ձwք FUSK!*ք օЅ FANTASTISKT)քՅօЃBRA.քpօ(օ GANSKA BRA'օ օЁSOVER DU/օ EN G]NG TILL ? (J/N);+*ք օЅ FANTASTISKT+J+jP demx x #x+z5xA.քpօ(օ GANSKA BRA'օ օЁSOVER DU/օ EN G]NG TILL ? (J/N);+*ք օЅ FANTASTISKT+J+jP demx x #x"A?"DZ dք@ nxЍЃHUNDKAPPL\PNING Հ Հ  Հ Հփ Бi>փ` Жi>քГi>ք0Вi>A"ֆ 3քpօHЁЈ VINNARENR1Ձ hA ֆ 3քpօHІЈ VINNARENR2Ղ'Bֆ 4քpօHЃЈ VINNARENR3ւ@Aֆ 3քpօHЂЈ VINNARENR4ՃE"ֆ > ֆ ,ֆ ֆ (օփ ЅSATSA P] EN HUND. Kօ փ Ё1=R\DІ2=BL]Ѓ3=GULЂ4=GR\NЇ5=AVBRYT:օ0Ѕ$V[LJ 1-4 TRYCK D[REFTER P] ;"  փ .օ փ ЃGRATTIS DU TIPPADE R[TT!Ձ"׌;&օ փ օpXօ փ Ђ HA HA HA!bՁ"׌;l5vօ փ օp"  demy yyyy"x .օ փ ЃGRATTIS DU TIPPADE R[TT!Ձ"׌;&օ փ օpXօ փ Ђ HA HA HA!bՁ"׌;l5vօ փ օp2?2!H?d:- - - Assemblerrutin f|r sortering av heltalsvektor - - -(n#- - - N E HOLMBERG 83 04 22 - - - s x }Ange antalet: ;  ޵.  ނ 2; ++),+,+",, $1!޵ ;3 BB 9:'5- - - Pokerutin f|r sortering av heltalsvektor - - -8'$,,K,,,!,ݸ,ݸ,2", ,4$'.,#,",,,,o,,,g,ง6.'8,,_,,,W,,ǧ,,R,48'B,,Z,,|,߸,,},߸,,z0B'L,߸,,{,߸,,,,*, ,,ݸ,Ǽ, ,ง,ݸ,Ǽ, ,งRBETURN< 4nՁ`DIN EKONOMI KOMMER ATT F\RS[MRAS ETT TAG MEN FRUKTA EJ... DU F]R PENGAR I SLUTET AV VECKANG(Ղ9DU HAR DET BRA ST[LLT JUST NU MEN PASSA DIG F\R ATT SL\SAW2ւ@HPENGAR [R INGET PROBLEM MEN L]NA INTE UTB PENGARNA. DU BEH\VER DOM SJ[LV.A<Ճ3DU [R ALLDELES F\R SL\SAKTIG.DU F]R SK[RPA DIG.WFՁIDIN V[N OCH DU HAR DET LITE STRULIGT JUST NU,MEN F\RS\K ATT PRATA UT.DPՂ6NI HAR DET FINT MED ALLTING,MEN VAR INTE S] SVARTSJUK.BKZւ@DU TAR P] DIG F\R M]NGA ARBETSUPPGIFTER,F\RS\KB ATT S[GA IFR]N.rxՂ$dNU F]R DU S[TTA IG]NG OM DU VILL HA N]GOT GJORT.FOLK TYCKER INTE OM ATT BEH\VA TJATA P] DIG.hւ@$YDU SK\TER DIG BRA OCH G\R DET DU BLIR TILLSAGD,MEN F\RS\K ATT TA EGNA INITIATIVՃ$sDU HABR INTE VARIT N]GOT VIDARE V[NLIG MOT EN AV DE [LDRE ARBETSKAMRATERNA.BE OM F\RL]TELSE S] K[NNS ALLT B[TTRE.Ձ Ճ>Ձ ՃFՁ ՃNІEKONOMI:>ЁK[RLEK:FBЃJOBBET/SKOLAN:N$,\NSKAS FLER HOROSKOP? (J/N);4"4J, - dem6~~$~4z>x Fx Nx NІEKONOMI:>ЁK[RLEK:FR?R7y ZՁdև n$xNU SPELAR VI LITE }%TREDIMENSIONELLT LUFFARSCHACK-BEH\VER DU SPELREGLERNA? (J/N) ,,N/'DET H[R [R ETT SPEL I EN 4 X 4 RX 4 KUB.*"VARJE DRAG [R ETT TRESIFFRIGT TAL.+#DE ENSKILDA SIFFRORNA KAN BARA VARA/'ETT TAL MELLAN 1 OCH 4. DE K[NNETECKNAR0(AVDELNING, RAD OCH KOLUMN I AVDELNINGEN: MINA DRAG VISAR JAG MED ETT X OCH DINA MED 01R)N[R JAG VINNER VISAR JAG SLUTST[LLNINGEN /'D[R MIN VINNARRAD HAR * IST[LLET F\R X.+#MAN VINNER N[R MAN F]TT FYRA I RAD.!(DIAGONALT G]R OCKS] BRA)"Շ6#ևF$ևՃV%Յl[,Zx Qx RV~6~ՂV~6~ւ@V~6~ՃV~6~86x .x և\փ@ՁՃֆpՁՅ@Ձ|ՅJ|lT^hՁև2rՁՃ|VՁ|RՇ|6 VILL DU B\RJA ,,JA@,NEJBARA JA ELLER NEJ TACK=DU FLYTTAR TILL  ևH&ևH0ք :ևHRք D։^cNև^RX?bՃl(vՃՃC;3DET [R ETT OTILL]TET DRAG F\RS\K SJ[LV S] F]R DU SEՅՃօ 6~7/'PLARTSEN [R REDAN UPPTAGEN. EN G]NG TILLi6ՁՁ|ևd|F~ՃGRATULERAR!! DU VANN! H[R [R DIN VINNARRADZ|ՁV~;|ՂV~z;|ւ@V~d;|RՃV~O;ՁՃ |V~6փ@# %* SLUTST[LLNING/ 4X > H|F~քp R|\|F~ւ@ f|p z |ՁՃR |V~6~P6փ 7 JAG G]R TILL ; ;,OCH D[R SATT DEN;F2 |ՁՃo|V~6~?6փ &SMART,JAG G]R TIR LL;X$A.Ձ|և8|BՂcLՂVՁՃ@ `|V~6~j|V~6~t_~P~Ձ|և3|F~Հ|F~ց0R nՁՅ"l~6~,l~6փ ! JAG G]R TILL ; Ձ|և|U(ք d2ք <ՁՃ@ F|R V~6~P|V~6~ZdnxՁ|և3|F~Հu|F~փ,^$Ձ$$Ղ, #VILL DU SPELA EN G]NG TILL; ,,JA,R NEJ,$JAG HAJAR BARA JA ELLER NEJ;"Ձև,F6@JՁՇZT6~?^6փ &hJAG VILL G[RNA HA ;r|DET BLEV OARVGJORTՁևՃhAF~ՁF~ՂF~ւ@F~Ճ'ք ~|ւ@ - 54.1,49,52,4,13,61,64,16,22,3R9,23,38,26,42,27,43:&931,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20=0<621,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38=:<639,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56D57,58,59,60,61,62,63,643N2,1,17,33,49,2,18R,34,50,3,19,35,51,4,20,36,523X2,5,21,37,53,6,22,38,54,7,23,39,55,8,24,40,566b5/9,25,41,57,10,26,42,58,11,27,43,59,12,28,44,607l6013,29,45,61,14,30,46,62,15,31,47,63,16,32,48,644v3-1,5,9,13,17,21,25,29,33,37,41,45,49,53,57,6154.2,6,1R0,14,18,22,26,30,34,38,42,46,50,54,58,6254.3,7,11,15,19,23,27,31,35,39,43,47,51,55,59,6354.4,8,12,16,20,24,28,32,36,40,44,48,52,56,60,6454.1,6,11,16,17,22,27,32,33,38,43,48,49,54,59,6454.13,10,7,4,29,26,23,20,45,42,39,36,61,58,55,52R32,1,21,41,61,2,22,42,62,3,23,43,63,4,24,44,6476049,37,25,13,50,38,26,14,51,39,27,15,52,40,28,1643-1,18,35,52,5,22,39,56,9,26,43,60,13,30,47,6454.49,34,19,4,53,38,23,8,57,42,27,12,61,46,31,165.1,22,43,64,16,27,38,49,4,23,42,61,1R3,26,39,52ՁՃ |V~6~~|V~6փ փ :2 )VAR DET D[R VERKLIGEN SMART? JAG G]R TILL;-, #SMARTSKALLE, D] G]R JAG SNABBT TILL;*|V~4> H~RR||ՃՃՁ \Ձf pՂ#zփ փ Ղ'!|V~6~L|V~6փ  JAG G]R TILL;Ձ|Շ|6|6~+ R0.X, ;Ձ>քPՃ >>ֆ@Յ ւ@x 6~Ղ Ճ ւ@ Ղe Ձf ! .;" ) s;. ` 8  ;B Q L  V B` j Rt E ~ .s 0s Xs *s z    dem ~~$H,z6|F| V| l||x x x      x xxx xxx> szB Q L  V B` j b?b^      $|3 .********** MUSIK ************************* Z! Q  1Bzdz (+22<-*****b** H[R B\RJAR HUVUDPROGRAMMET *********AZBք@ IDu f}r spela p} siffer-tangenterna. Med SHIFT-tangenten f}r du halvtoner.CD Avbryt med zEF޵4 .P44U4$Z6d n޸ x LbL VVև4VֆhVք VՁVՆ0V$; VV\f 228,205,"H" 214,210,"C" 204,215,"C#" 180,225,"D#" 160,235,"F" 1b50,240,"F#" 0,0,"" 120,255,"B" 107,255,"C" 0,0,"" 95,255,"D" 0,0,""" 0,0,"", 0,0,""6 136,250,"G#"@ 107,255,"C"J 242,200,"B"T 228,205,"H"^ 214,210,"C"h 190,220,"D"br 170,230,"E"| 160,235,"F" 143,255,"G" 128,255,"A" 114,255,"H" 0,0,"" 0,0,"" 0,0,"" 102,255,"C#" 0,0,"" 88,255, "D#" 85,255,"E"  demTonFrekvL{ngdbNotrace% U $~4y LzVy\y 143,255,"G" 128,255,"A" 114,255,"H" 0,0,"" 0,0,"" 0,0,"" 102,255,"C#" 0,0,"" 88,255, "D#" 85,255,"E"  demTonFrekvL{ngdr?r)5 0-----------------------------------------------50------ Demonstrationsprogram ------------------------ Programnamn: DEM(520----- 830520 CB ---------------------------< Fք@ (Pփ փ DEMrONSTRATIONSPROGRAM(Zփ@փ =====================+dՄփ 1. Multiplikationstr{ningnքփ  2. Glostest"xք փ 3. Sortera namnք0փ  4. Horoskop"ք@փ 5. Reaktionstid6քPփ #6. Rergisterprogram med direktaccess3ք`փ  7. Tredimensionellt luffarschack!քpփ 8. Spela musik$Յփ 9. Lyssna p} musik%օՃ10. Databas om dataօՃ 11. ADB-Karin?օ0Ճ!V{lj alternativ. r(Avbryt = 12) : ; % "1?N]ju L mult glostest sorterax horoskop reaktion@ start1  luff musikl yngvejus start adbkarin4xrAvbryt = 12) : ; % "1?N]ju L mult glostest sorterax horoskop reaktion@ start1  luff musikl yngvejus start adbkarin4xA? );3 .********** MUSIK *************************xlxx zCևօ0ֈ[փ ֈEՅֈ~ֈAօXևtֈ3ՆֈuֈI (+Չ22<-******* H[R B\RJAR HUVUDPROGRAMMET *********FՁւ@ P8ZdnՁՁ xՁՂ h&Ձւ@ 5ՁՁ kDՁՂ  SՁՂ -"b,ՁՂ 6@qKՁՂ LMNՁՂ OPQՁֈHRSՁֈHTnUՁւ@ V4WXՁփ@ YZ ] dem^ֈVֈRhr|ֈ>ֈ\dֈ*ֈfCֈ ֈk"ֈֈuՈֈևdֈ&ևVֈ0x xxxxxxx>ֈ\d?  , programnamn ADBKARINKF---------------------------------------------------------------------#L(G----------------------------------------------------------------------_diI"D-------------------------------------------------------------------',B ` Չ06+omvandlar inparametern till cursorposition;H@C------------------------------------------------------------------Y^ אR-%h spara aktuell cursor som heltalmIrD------------------------------------------------------------------- zz MHl{ser in ett tecken fr}n tangentbordet och omvandlar det till ASCII-kod    LG----------------------------------------------------------------------Z!Q!!+&returnerar en delstr{ng av instr{ngenTyp=1 f|rsta tecknet#Typ=2 alla tecken utom f|rsta"Typ=3 alla tecken utom sistaTyp=4 sista tecknetannan Typ hela str{ngenՁ Ձ &Ղ Ղ0ւ@Ձ :Ճ  DNSOTJ-------------------------------------------------------------------------V"X!!""`""!` ""bՁ l; v 3 _ ; ;   Ն և~cՁ * * 5 Մ)Ճւ@5 ք(ՁՂ քP   օ@ ;  ֈG.’ՂRւ@>1z Ո ֈG# ; OJ------------------------------------------------------------------------- ?#zP#x4/obs Ccr global m}ste ha ett v{rde 40/80 tecken օ8Ձ;"օ8ՂՂ;$%.օ8Ձ~;8BGILD---- ---------------------------------------------------------------#Rz#P փ` ;!ЃЈ<ЉЈ>Љօ@vHC------------------------------------------------------------------x $L$$( " (" 2"<A2F---------------------------------------------KP%L$$Z(d n"x " "2---------------- -----------------------------3.-------- h{r b|rjar huvudprogrammet --------- և ք@ք@* ք@ Aփ /Statistik |ver anst{lldas f{rds{tt till arbetetՁ:֊z>"Ղփ 1. K|r bil sj{lv#  ւ@փ 2. Sam}ker i bilՃփ 3. Buss" փ փ 4. Cykel, moped*փ@փ 5. Annat9 XքD:Մփ 2Ej godk{nd blankett = 0. Avbryt inmatningen med 9.;քփ ;L>4Ange alternativ och tryck sedan p} RETURN-tangenten Ձ `oC` ֆ@` ֆdTCDu m}ste skriva en siffra! (Tryck p} CE-tangenten f|r forts{ttning)X H`'XRXjXj~Ձ\Xփ@ zՁzaXփ ք)vfXփ ք aք փ ;&Ange f{rds{tt och tryck sedan RETURN ք@`Ձ*`ք և 'ՂօpՁj~ևHz %(ւ@օpՂj~ևHz %(Ճօpւ@j~ևHzђ %(փ օpՃj~ևHz %)փ@օpփ j~ևHz %VՄփ Ej godk{nda j~ևHz % Lքփ 9 Iօ0;$\nskas resultatet utskrivet? (J/N) Ձ`"`J`j Kmh?:-------- subrutin ------------------------------------Iքp7Inkomna Ej godk{nda Alt 1 Alt 2 Alt 3 Alt 4 Alt 5_ՅN------------------------------------------------------------------------------p z j~ Ձj~ Ղj~ ւ@j~ Ճj~ ;Ձ:F1:փ@:ՅֆH;:ք0և;:*@;-------- subrutin -------------------------------------G 7Andra f{rds{tt fullt.(Tryck p} CE-tangenten f|r forts.)X .` )------ utskrift -----------------------Cj .Sl} p} skrivaren. Tryck sedan p} CE-tangenten.օ@Xt Pr:փ@X>~ #փ@ք ք` "ADB-KARINS STATISTIK \VER F[RDS[TT #փ@ք և ֆt #փ@E #փ@ք 1. K|r bil sj{lv օpՁj~ևHz %E #փ@ք 2. Sam}ker i bil օpՂj~ևHz %F #փ@ք 3. Buss օpւ@j~ևHz %F #փ@ք 4. Cykel, moped օpՃj~ևHz %J #փ@ք 5. Andra f{rds{tt: օpփ j~ևHz %; #փ@#փ@T #փ@ք Ej godk{nda օpj~ևHz %#փ@#փ@L #փ@ք 7Inkomna Ej godk{nda Alt 1 Alt 2 Alt 3 Alt 4 Alt 5c #փ@ք N------------------------------------------------------------------------------ #փ@ք  z j~ Ձj~ Ղj~ ւ@j~ Ճj~ֆpՁ* Ղ:" #փ@ֆp:*  (#' ' demAuto300CurPosAuto350CurposGetCincharShiftTypInInputFr}gaDefaultL{ngdEdInascInflagMessageKvittensCcrErrorTextList1200RubOpenFilFilnrEcPrepareFil1Filnr1Postl{ngdPostnrL{geAntal*!#"$*~:x Xx`zj\&zxAuta? !l4'/**********************************************' $'EXTBAS.'%8' *******************************B'L'V'`'j'א ,,ֈt'א0,,ֈ~''@'Ր,,,ֈP,Ղ,ֆ,Ո,ֆ ,Ո,ֆ`,ՈB'א ,,,ֈP,Ձ,օ ,Ո,օ0,Ո,օx,ՈF'א,և2,Ո,Ո,և,և ,և(,և,և(,և ,ևC'א,ֈ,Ո,Ղ,Ղ,ֆ,ֈ,և,Ո,և,ՈG'א(,Ո,և ,և$,և,և,և ,և,և*,և$,և F'א2,ֈ,և.,և,և,և(,ֈ,ֆp,Ո,ֆp,ՈF'א<,փ@,Ձ,ֈC,օh,,ֈg,ֈI,ֈg,ֈ/,ֆHH'אF,ֈu,ֈ,ֆh,ֈt,ֈ,և,ևx,ֈ5,ֈH,ֆhH'אP,ֈt,ֈ,ֈ9,ֆ ,ֈw,և,ֆ,,օ@,ֈs,ֈaF'אZ,ֈ],ֆ,,,ֈ],ֆd,ֈU,ֈk,ֈM,ֈF'אd,Ո,ֆ,ւ@,,ֈ/,ֈm,և,ֆ@,ֆ,ֈMG(אn,ֈ!,Ո,և|,ֆ ,ևL,և^,ֈ/,ֈm,և$,ֆ`G (אx,օH,ֈM,ֈ!,Ո,ֆ ,ֆ ,օX,ևv,ֈ2,ևG(א,փ@,,ֆ ,ֆ ,ւ@,ք,օ@,ֈt,ֈM,ֈ/C(א,Ո,ֈM,ֈ(,Ո,օ@,փ@,Ձ,,,ֈMF((א,ֈ(,Ո,ֈQ,ֈo,ֈ],և,Ճ,ֈ],և ,փ G2(א,ֈI,ֈ],և\,Ղ,ֈ],ևL,ւ@,ֈI,ֈ],ևbF<(א,Ճ,ֈ],և`,փ ,ֈI,ֈ],ևj,Ղ,ֈ],ևhF(א,ւ@,ֈIP(Z(d(Ր,א},א~n(א},,Ոx(((א ,א,א(א,ք ,Ո( REG\VND,ևbF<(א,Ճ,ֈ],և`,փ ,ֈI,ֈ],ևj,Ղ,ֈ],ևhF(א,ւ@,ֈIP(Z(d(Ր,א? #~c programnamn REG\VNDKF---------------------------------------------------------------------83M}ste startas upp med START1 som inneh}ller EXTBAS#L(G----------------------------------------------------------------------_diI"D-------------------------------------------------------------------',B ` Չ06+omvandlar inparametern till cursorposition;H@C------------------------------------------------------------------Y^ אR-%h spara aktuell cursor som heltalmIrD------------------------------------------------------------------- zz MHl{ser in ett tecken fr}n tangentbordet och omvandlar det till ASCII-kod    LG----------------------------------------------------------------------Z!Q!!+&returnerar en delstr{ng av instr{ngenTyp=1 f|rsta tecknet#Typ=2 alla tecken utom f|rsta"Typ=3 alla tecken utom sistaTyp=4 sista tecknetannan Typ hela str{ngenՁ Ձ &Ղ Ղ0ւ@Ձ :Ճ  DNSOTJ-------------------------------------------------------------------------V"X!!""`""!` ""bՁ l; v 3 _ ; ;   Ն և~cՁ * * 5 Մ)Ճւ@5 ք(ՁՂ քP   օ@ ;  ֈG.ՂRւ@>1z Ո ֈG# ; OJ---------------------- ---------------------------------------------------?#zP#x4/obs Ccr global m}ste ha ett v{rde 40/80 tecken օ8Ձ;"օ8ՂՂ;$%.օ8 Ձ~;8BGILD-------------------------------------------------------------------#Rz#P փ` ;!ЃЈ<ЉЈ>Љօ@vHC------------------------- -----------------------------------------x$L$$( " (" 2"<A2F---------------------------------------------KP%L$$Z(d n"x  " "2---------------------------------------------50-----------------------------------------------&&x z   ք@ փ`փ Մփ ֆt$ք փ Ҳ 1. Nyregistrering!ք0փ 2. Uppdateringք@փ  3. UtskriftքPփ  4. Avbryt6քpՄ$V{lj 1-4 och tryck sedan p} '_1234!ՅՄւ@ՅՄ;Ձ^ ' +@&-------------------------------------E J' OՁ1TՁ9օ g^#Ձ,9Ph #Ձ,Xօ rXօ $|1bX91 1Ձ1= 1ՁrՁ1rՁi1ՁrLFb1b-bb1b1b vE@---------------------------------------------------------------F A------------- Huvudprogram -------------------------------------D ?------------- lagring i direktfil ---------------------------- D ?------------- 830721 CB ----------------------------------- օ Ձ օ օ@b ք@  և  cbtst  Ձ& º@"0 allvarligt felO: Ճ/փ@ namn: Մ adress: ք postadr: փ tel: D Ձ1Ճ,N 11гX 1օ b l և Pm #Ձ,n #Ձ, Ճ o 2p Ձ1օ 4q #Ձ,1քr #Ձ,1Ձs w Register-|vningTx M F A---------------------------------------------------------------- 5n5Nօ( ք@  Ձ1ՃO 11.;, 1N11~5  ;2 օ8; Okej? (j/n) jՁ^ "^j' cv1v2v3v4% ange f{ltnummer:  Ձv  ²v'v օ8Ձ; .;3 NN~2 օ8; Okej? (j/n) jՁ^  Ձ1օ 1+ 101911  9P #Ձ, Ձ1Ճ< #Ձ,1N  #Ձ,օ 1N  * Ձ4 օ8;4> Ska fler regisreras? (j/n) jՁ5H J #Ձ,K #Ձ,1L Ձ1օ 0M #Ձ,1քN #Ձ,1O R Register-|vningS ~B. =\ 8-------------------------------------------------------< 7--------- uppdatering -------------------------------- 6:1------------------------------------------------ ;ք@ <օ8;#B Vem s|ks? օ -LՁ1r.V1b  `1bօ(29j9Pt#Ձ,~ՁՃR! #Ձ,N~+.Nօ8Ձ;G3PF1 = avbryt PF2 = {ndring PF3 = stryk PF6 = s|k^3#Finns ej! Kvittera med CE-tangentenj.)--------- {ndring ----------------------v^"^j'cv1v2v3v4%ange f{ltnummer:  Ձvv'vօ8Ձ; .;3NN~쳇2օ8; Okej? (j/n) jՁR^2<#Ձ,FՁ1Ճ<P#Ձ,1N Z#Ձ,օ 1NdGn3PF1 = avbryt PF2 = {ndring PF3 = stryk PF6 = s|ks^3.----------- stryka -------------------------- ^u^j^nօ8Ձօ8;6Ska denna post strykas? (j/n) Ձ^^n^NA#Ձ,#Ձ,P90 Ձ4 PF1 = avbryt PF6 = s|k@^+h&-------- s|ka -----------------------r ք@ օ8;# Vem s|ks? օ Ձ1r.1b  1bֲ(299P#Ձ,ՁՃR! #Ձ,N~+.Nօ8Ձ;G3PF1 = avbryt PF2 = {ndring PF3 = stryk PF6 = s|k^ 3#Finns ej! Kvittera med CE-tangentenj0+--------- utskrift ----------------------- ք@ Ձ1r1bօ(299P#Ձ,ՁՃ6! #Ձ,N~N:+ 7\nskas utskrift p} skrivaren? nՁ8^C ^J^j.Register-|vningIE *pr:փ@4Ձ1r>1bօ(29H9PR# Ձ,\ՁՃ<!f #Ձ,N~p#փ@NzX #փ@Iregister-|vningXQ3.------------ avbryt -------------------------#Ձ,#Ձ,1Ձ1ֲ! 0#Ձ,1ք#Ձ,1g  dem94--------------------------------------------------->(#9----------- felhantering -------------------------------2#ֆT<#փ@z F# ^P#^ ֈ?Z#"փ@Ձd# h"R,#'--------- pf1 avbryt -----------------#,#'--------------------------------------,#'--------- pf2 {ndra -----------------#:,$'--------------------------------------,T$'--------- pf3 stry#ka -----------------^$,h$'--------------------------------------+$&-------- pf4 ej inkopplad -----------$+%&-------- pf5 ej inkopplad -----------&%+%&--------- pf6 s|ka ------------------%)%$--------------------------$---------Auto300CurPosAuto350CurposGetCincharShiftTypInInputFr}gaDefaultL{ngdEdInascInflagMessageKvittensCcrErrorTextList1200RubOpenFilFilnrEcPrepareFil1Filnr1Postl{ngdPostnrL{geAntalSvarMenyRubrikPlatsNamn%IndexS|kBufSort!#"$1x 9'P%XB'bn'rX&x z~ J%p%xZ$~| z%5&N~^zvzx0&x'z'rorTextList1200RubOpenFilFilnrEcPrepareFil1Filnr1Postl{ngdPostnrL{geAntalSvarMenyRubrikPlatsNamn? (aaaaa 11111111111100000000 aaa aaa MARIA L\VGREN HOVSLAGARV[GEN 42 134 00 GUSTAVSBERG 0766 348 44 MICHAEL NYGREN R]DJURSSV[GEN 26 134 00 GUSTAVSBERG 0766 31747 CHRISTINA BOD@N VAL\V[GEN 51 132 00 S-BOO 08/715 12 58 BRITTMARIE RASMUSSENBL]SIPPEV[GEN 22 13900 v{rmd| 0766/21479 BIRGITTA H[GGSTR\M KYRKOG]RDSBOSTADEN 13400 GUSTAVSBERG 0766/322 12 LENNART TORESJ\ DALBOBRANTEN 25 12253 FARSTA 937847 ANN MARGRET YNGVE LAVALV[GEN 5 13141 NACKA 7434378 LILIAN ENGLUND MARK\RPLAN L 13400 GUSTAVSBERG 0766-32780 MARI-ANNE EK THUN-OLLEV[GEN 53  134 00 GUSTAVSBERG 0766 31222 CAJSA GOFFH@ DUVN[SV[GEN 33 131 50 SALTSDJ\ DUVN08/716 51 69 EVA \STGREN GRANSTIGEN 1 134 00 GUSTAVSBERG 0766/30067 GERD LINDBERG HOVSLAGARV[GEN 63 134 00 GUSTAVBERG 0766 32316   christina val|v saltsj|-boo 7151258  ??A? Drive SF0: SYSDIR .SYS LIB .BAC COPYLIB .ABS COPY .ABS DELETE .ABS BASICINI.SYS UFD .ABS UFD .BAC LIB .ABS CMDINT .SYS LOGIN .ABS COPYLIB .CEN STARTUP .BAC USERDIR .Ufd STARTUP1.BAC LOGIN .BAC PRESTART.BAC REPROT .ABS REPROT .BAC RAMOPT .SYS SETSTART.BAC STARTCMD.SYS LIN80 .BAC LIB80 .BAC UFD80 .BAC BASPGM .BAC ITEMFIL . TEXTFIL . START .BAC PREP1 .BAC MULT .BAC GLOSTEST.BAC REAKTION.BAC HUNDAR4 .BAC SORTERA .BAC HOROSKOP.BAC LUFF .BAC MUSIK .BAC DEM .BAC YNGVEJUS.BAC ADBKARIN.BAC START1 .BAC REG\VND .BAC CBTST . JAN .Ufd BJ\RN .Ufd H]KAN .Ufd ROGER .Ufd GUNNAR .Ufd PRINT043.ZPR RPR . 2860 av 3944 sektorer lediga.  .BAC HOROSKOP.BAC LUFF .BAC MUSIC DEM .BAC YNGVEJUS.BAC ADBKARIN.BAC START1 .BAC REG\VND .BAC CBTST . JAN .Ufd BJ\RN .Ufd H]KAN .Ufd ROGER .Ufd GUNNAR .Ufd PRINT043.ZPR RPR . 2860 av 3944 sektorer lediga.  .BAC HOROSKOP.BAC LUFF .BAC MUSI? ?!( ք@ ЀЁЂЃЄЅІЇ,,(ֈ,ֈo,2x < ,,万 F P ޟZJ ޜdN ޟ nM ޜ xF ޜ,, '< ,,丈օ0ՄA%=օ0ՅB%=  ,&, &Goto10Noextendy yzy & dN ޟ nM ޜ xF@?!=4 ք@ ЀЁЂЃЄЅІЇ,,(ֈ,ֈo,2x < ,,万 F P ޟZJ ޜdN ޟ nM ޜ xF ޜ,,XDK &օ0ֆ X%= օ0ֆ,Y%=& ,&,/L" ,&, ,,Qp '< ,,丈օ0ՄA%=օ0ՅB%= ,,2, , 2hGoto10Noextendy yzy y&y, 2 ,/L" ,&, ,,Qp '< ,,丈օ0ՄA%=օ0ՅB%= #a?#a . )* * * KOPIERING AV DISKETT ABC800 * * *(#* * * N E HOLMBERG 83-03-07 * * *(#* * * MULTIUSER ABC/DTC-NET. * * * ( 2|(< #COPYDISKGF:S{tt originalskivan i dri#ve 0 och den nya skivan i drive 1$PN{r du {r klar, tryck RETURN Z d,ߜ,ݸ, n 8x, f`>"8? >D{Df`JݵRDR(8R#TݵcDic(݊P4 L[S SP]Rc ;SEKTOR;,ݵtc thtf` ct>="1 L{sfel sp}rc sektort#,t6v@SKRIVJ,Tݵt~^thtrc`c t>B|6Skrivfel p} sp}rc sektortVER ݵtt#f`c t>tA@Verifieringsfel p} sp}rc sektort'eKOPIERINGEN KLARSkivfel~z(} 8y>yDJxRy cytyt?)9` * GRAFRITNING * * 820928 NEH *SֈpֈpՁ$ք@.ք@>փ Nփ XՁbՁl ք@ ;֐~ՁE#=Om du vill mata in en ny funktion, tryck PF7, annars 'RETURN'( $$ ֈF-$ քPX2;71Skriv ED1200 och {ndra funktionen, d{refter 'RUN'<֐~,ՁA Fք@ ;(K#- - - - V[LJ INTERVALL - - - - - -P INTERVALL: ;UvvZ _v'$dՁք0˜iք0 , ;0nƢ¢ , ¢քps7 x¢'%}ք0օ;)$- - - - X-koord f|r ORIGO - - - - - Ձ ޵( )$- - - - Fmax och Fmin - - - - - - -փ  V[NTA LITE!;+ݵ݂݂޵ȁ~%~~Fmax%~~Fmin)$- - - - Y-koord f|r ORIGO - - - - -փ ք0; ޵( $- - - - Rita axlarna - - - - - Ձ  $ |    $  ,'- - - - Markeringar p} x-axeln - - - -"* '$޵,,$1$$6;,>$@m$ E,ޜ, J$,>$O$$T,ޜ,޸Y,ޟ^ c,@,h'- - - - Markeringar p} y-axeln - - - -m HrP޵,wP|PHP,.PpP ,ޜ, Pf,.PPHPޜ,f,޸Ձ,f ,l*%- - - - Gradering av x-axeln - - - -#Ղ>~tt ނ|,|㐾!ւ@>~ttނ|t‚N|ޟ$@>~ttނ|1|$@Ձ>~ttނ|tP‚X|ޟ磟琾  N;X*%- - - - Gradering av y-axeln - - - - Ղ.~tt|)|㐾ւ@.~tt|!tu‚ž|磟!l.~tt|. |!lՁȁ .~tt|!t‚´|磟 "!࣐ߩ&!+ž;´;'0"- - - - Rita grafen - - - - - - -5޵3:~ f?,f,ՁD,I'- - - - Val av {ndringar - - - - - - -Nփ S $$ ֈ?$X$Ձ$Մ]$(4\bֈgՁlv*qք0ց ; vք0; {Ձ$[ք`;ք@ ;֐~, %{ޟNߜ;ޟXߜ;ޟžޜ;ޟ´ޜ;:&xx 0l-%wnOߏZ,֊z ‚ ‚uz%lxxݵ'Ձք  ޜ E- ‚%mxx ݵ%(ք *ք  /ޜ49E+ >‚C(H#- - - - Sudda bildminnet - - - - - Mpb ? RW,,\ֈo,ֈo af(k#- - - - Rita axlar - - - - - - - - p}"tu޸,,޸ z߸,,ޜ ,,ޟ ,,  "~ݸ,,ށ,,ޜ,,ޟ,,  8b#/ݸ,,޸,  }R$t,ݸ,޸ ,޸ޟ,߸ ,งޜ,ḇ ,⸇,  $~$,ݸ,޸),.ޜ,3,8ޟ,=,B, GL Qv:%/V,ݸ,޸[, `e>j9- - - - Ber{kning av intervallet f|r graderingen - - - -oxx"t% y(\( ~Lʹ% ~܀+Q녏Հ%Ձ%%ք % %(#- - - - Felhantering - - - - - - -ք0;ք`;:(xxՃւ@ւ@ՃDeffnraderaRaderaIngentingDedAxlarOnerrorUsingFgctl0Fgctl1ThemList300Axlarx1JoAxlarx2InentingAxlarx3List1600Deffnaxlary1Axlary1Deffnaxlary2Axlary2Axlary3Exp1Exp2D638SuddNumGrad/||$z.|>|N Xb2l:vzx xxzzx x   xy  x$x,y@H Pxfy ltx|yz   "!y  z  x%xxp2D638SuddNumGrad/||$z.|>|N Xb2l:vzx xxzzx x   xy  x$x,y@H Pxfy ltx|yz   "!y  z  x3d?3W * MAKEUSER.BAC** Make/Delete users ** Ver 6.01, 1982-09-28+# Copyright 1982 Dataindustrier AB * Written by Felix Burton&$!** ** ** ** ** ** ** ** ** ** **.*'8"* Ver date / Ver nb 3/ 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!** ** ** ** ** ** ** ** ** ** **~3* EJECT&!********************************** Main routine*   (New/Delete/Rename (N/D/R)  !NnDdRr N ޜߣ%݊Illegal function.݊ލ*Login....3....: a   "Password.....:; *Directory....:4(_2Privilege....: ><F *_DPD4> DZݵNd޵TD3nN3DT NxN NNVDN D! ufd:names.sys޸T ufd:names.sys޸#޸, End of file. #޸,݂ #޸,eeD e j3 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.3|$Can't create "NAMES.SYS" Deleteq ufd:names.sys޸ ufd:names.sys߸ #޸,ee}e #߸,* #޸,e#߸,ee3Delete complete.( Can't find ' ,'.& 0Rename:DU*NNew name.....:ooo Xo No rename.Lb ufd:names.sys޸l #޸,eve0e3 #޸,*e(=oݵN޵Teޟ3NeT NN NNu#޸,eeޟ N Rename complete.B*+Disc write protected.1޵>3  % ******************************* *$** Fixup a string to uppercase4* and eight characters.>*HZ!*#zy R\޵M4f a(= pޜ3 z% ********************************#* Unformat a formatted text.*"Y*#Q#3ݖ  ޟ% ********************************$ 3 * Routine to crunch password. * J"y*#zy $ ݵ. ޵J8  B   L ݍV ޜ ` j %t *******************************~ *# * Routine to list all users. 3 * [1  ݵ   names.sys޸ #޸,e er* !ݵName Dir. Priv.0 e e ###e  ޜp  ݊ No users. ݸ % ******3*************************( * "2 * Routine to read password < * with "*" echo.F *P !#P##Z Pd  n  x *; Q 劾R> ꊾ6$ 3# ; ]  ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw3 z   *!*!4">!"DzN"Ty ezo"y# ; ޟ  ;  SlaskListuserFunctionFuncAntuserLoginFormPasswordReadpwDirPrivCryptoCsumUnformNewloginNameLengthFirstflgTempCharw?!#  DALABTEKUfdC ?C!#  DALABTEKUfdE?*** BASS\K ***  Bӿ k #---------- DATA IN ---------- #::"VILKEN DATABAS \NSKAS? ):"ANGE DATABASEN MED 8 BOKST[VER ;$::BBӾ:BBpBBd޺  k 8%BB(À . ,8=;:BB".DATٺ:Bm 2=:" DATABASEN BBֻ" FINNS EJ::` 'B#ٺ,Iӽ:#ٺ,Eӽ 1LUIպ:#ٺ,UCԾ   k 81VUCUCUC(" $`Uӽ:UIպ &j#ٺ,UGԽ:Uӽ tB :ٺ 2~---------- TILLG[NGLIGA VARIABLER ----------  k: B;,  k 8* B;"TILLG[NGLIGA VARIABLER: +:UIպ :UCֻ, !UF.,:Uӽ .---------- S\KVILLKOR INMATAS ----------  (B"F|r avslut skriv SLUT. B;,  k 82R8:K>:BDǍ:!BJBDշ ,R8K>B;"ANGE S\KVILLKOR ? ; 91BP(:K>K>:RVR8: *---------- SYNTAXKONTROLL ----------  B1$=STR[NG F\R ANALYS    k 8!C$(0-I1)=TILL]TNA VARIABLER  (B"SLUT亽 /2U:P\:Kb:Kh .<---------- F\REKOMST AV '<=>' ---------- F PLnB( ZK>p dD~"<=>K>& k 8.n:P\P\Ln޺ BxLnP\շ:!KK>շ:KhP\շ:1KKhL 3KhKhٷ:D~BKh& D~" 亽 K>Խp #4:JIﺽ k 8.---------- F\REKOMST AV 'OCH' ----------  (D~" OCH :Kb1Kշ: +P\㺽:KhP\ 2KhKb%躽:p: 0UF.BKbKhKb&  k 8 8UU:KbP\L:LnKbշ P /---------- F\REKOMST AV 'VISA' ----------  'D~" VISA ::Yط 'P\ﺽ":p: .BKbKhKb&  k 8 W"KhP\:UF.BKbKhKb&:KbP\L 4,XIպ:D~XCָ: B6P\㺽@:YY:YSXշ @XԽ Kb&  k 8 #J---------- S\KNING ---------- T ^!Z hZ rZJպ |P\ WIպ 1WGZA P\WG& P\P\WG WԽ  k 8 VUպ .V$VSշ:D~V$Gָ &H*V$GVF.( )H*캽 Jʇp: BVF.H*,  #D4D~2:B=B2 Խ  k 8 $VSպ 0=Do  $VSպXlˀ "TB㺽 7̇ -D4B=躽TB TB & -0D4B=⺽TB TB : B2 Խ  k 8-DD4B=TB TB N -XD~B꺽TB TB b -lD~B亽TB TB v -D~B𺽇TB TB  Vս B2 Խ  k 8)Z㺽 ṅ $: !Z!Z ZԽ Z㺽 &k::!Zպ;" TR[FF; %!Zﺽ "AR !"! BHվ ZԽ "FRﺽ ‡B k 8"TX㺽 ‡h ,---------- FINNS D$ I B1$ ? ----------   1LD~(:P\KbBD~*: / ---------- TILL]TEN VARIABEL ? ---------- * .4JI:KbKhﺽp k 8*>E^BKbKhKb& HJIպd "RJCE^纽f 3\USJշ:US!Kշ: fJԽd p:"S\KVILLKORET SAKNAS ! 0zMrt:p ;:Mrսt: k 8,B;"TRYCK P] RETURN-TANGENTEN 0" F\R ATT FORTS[TTA !;B;: , ; B;"S\KNING I DATABAS;  B;Ǘ ;#.  !---------- INPUT ----------  t:p ;:Mrսt: k 8IR8K>B;,;RVK>1BPB;":;R8K>B; $U:B,: ; $BHվ:BH 溽 "Uﺽ $ lчO BH溽  U㺽 :Mrսt: k 8J UU:BBU":BHֻ;" ;BHֻ;:O  BHֻ; L UU:BBBH:UBD㺽 $ lчO $ '. ---------- MER DATA IN ---------- 8 㺽 :Mrսt: k 8.B ~ X:#ٺ,JԽ:#ٺ,FRս L JEA տ V UJպ~ ` #ٺ,BӾ *j UA BB( " t Uӽ~:TX: ~ TX: ---------- SLUT ----------  k 8  :"PROBAS ) ---------- INSTRUKTIONER ----------      # ------------UTSKRIFT --------   k:  BYպ  CBSշ -------- SLUT ----------  k 8.( CCֻ; @;": ;CGֻ 2 Bս (< BHվ:BH庽< F ----------UTSKRIFT --------   k:  BYպ  CBSշ -------- SLUT ----------  k 8