START BAC LOADASM BAC BASASM ABS KONFIG BACINITIERABAC HUVPROG BACBDEFBAS BAC SYSTEM BAC`UL[NK BAC#UTSKRIFTBACKONTROLLBACKOPIERA BAC MODIFI BAC MODI2 BAC DIMFEL BAC SLUTA BAC END BAC GRUNDDATBAC ` EDIT BAC FORMAT DAT SYSREP BAC L[SFIL BAC INMATA BAC \VERF\R BAC REPARERABAC`BASINFO BAC BACKUP BAC LIB BACLIBKOPIABACPREP BAC!SYSKOPI BAC BASICINISYS@APR `START BASREGISTERBASREGISTERKGF! START Pdata AB 821101 ֈGolv upp 6.75 Kbyte#  ,ݸ,0,ݸ, LOADASMx " )] LOADASM Pdata AB 830314+ Ձ!Leveransskivtyp 0/1/2 (MF,SF,MO)6 Ղ ,Test av extraminne: 0/1/2 (Nej/Ja/HR-minne)2Tߣ쟵 < F*!P****-Z** BASREGIS TER 800 v 2.2 **!d****n*;;!x"*3,2<2+F<+LQF,,^,#,V,#,N,y,ǧ,,#,,ݸ,,ǰ,W  BASASM.ABS޸$# #޸,<FLR޸%&21 Programskivan ol{sbar!,XMinnesparametrar: ݂ F^F,޸,#, ,,,A,!,ݸ,ݸ,{,ǧ,(,޸,s,n,>,5,,y,>,h,,y,,ǯ,g,U#,5 ߂F^^0F윸,ݸ,ݸ,ݸ,ݸ,>,ݸFޜ,߸,츈ZR0,##djhp5v' 'ኆ 32 K| 16 K|J7v4ީ9޸,v^F^ߵdjExtern|{ ݵvGFޜ,1,^F^"1dj Luxor 64 K|(:dFޜ,,F䜸,,,U AFǪRF䜸,ݸ,ݸǪajUni800|YFߜ,F^ޜRFߜ,^F^ ݵjhInget extraminne !;"Fߜ,^ޜFj Facit 128 K|,ߵj Facit 32 K|26,d, j,p,vPortnr,Xon,Xoff,CS@j݊J Extra minne: ;|Tݵ7F9^ݵR߸)R,R-hFފ",,朸,-rFߊ",,㜸,| ?>81,0,2,0,0,0,0,2,2,2,0,1,1,0,0,1,0,0,0,0,1,0,0,2,1,1,0,2?80,0,2,0,0,0,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,0,1,0,1,0,1,1KǙ ,, XNݵ'߸9ؚ,P,OP,,Ǚ L,օ,Ǚ ,, X4Ր,,",*Ǩ, KONFIGx xyx"x*x2 <FyLyRy Xy^y dy jyp vy|zy ߸9ؚ,P,OP,,Ǚ00000DR0DR1Register:f( ] {KWY*ʒ̀'SʒV^~ Nj+WY|M!jR0?F ~KEV^l(:WXɯ2;*Rȯ;>&`|͋S:2̀է if:<2| >2!"0$o!:W6^:f(:8.͇+~* s#r:G>0OF{(CV ^ #ZfnW(ɺ:ĥol|"n f #u t "Ȓ~Fp͇0[Ȓ*͍>͊wK*B0qp:()~0Fp͇0[*0bk+wgo. 'K y!HG :2i>2xo:g!{ ͌##33!{͌0S]0S######_~((#!! HGBl͇* #~w͇N F !*T]6##*#"2ĒKx0ʌ !*#"87cqʮ| Йz7O/$'778Ԋr8?IcѥfKoꫢal*vtzk^@f HhKihfw\e鍪vrKh6mLMgp_c\ ibi`7ɁhZ0 ':2i>2}`*.+x6~!6p!Q?0SڒN#F###0Sܒ3B <0>N#F#2ޒ-*ڒ~#"ڒ!6^*ܒ~#"ܒ!6~|( 8!! x :ޒ&o+l"~Fp#0W͇0:[*0zWE:0 >͊0*:Ēbk+2Ē"^{#~w:f>2w'~_o:Ē(#7͇*N F  T]~(9O w#q#p#q#p~w++[Y^'2f>2o>z(H"ޒ*K#~G+((8%~O 8(*ޒ  `i0܅KޒBMDq#p+## x ?"Œ|!:!F*Œ##"Œ######6#6*^Sǒ#"*#R!*ǒR"ǒ*Œ####0"ŒS*"*^#""Ò*Ò[7R8:OІ (w(ن?G> ن?GA(ˁІWz >+ن*~#"0ֆ*[R!*w#"*Œ0*Œs#r)?####"’|!:22ƒ2ǒ[*’##00SĒ"’:=2>2 <:Oڇ:Œ? :Ē@0G~#  y8aP(_+~# (0 y8/aP(0P(0 Ї +N~#,( PN!#:ǒ<2ǒ:( :(:ǒ2ƒ#!:ƒ[~# ( 8<07ɯKĒ CĒxxK C x2x2l"|KN6H'~8!n f +u t ~Fp͇0K*0 ĉ 0zW͐>͊^{w#w:2f>2!w^#V#~#foɅo0$ɯco_GO~q#!:咧  G##(#++~2#7͇!"Ē*"’#K #N#~(G*’B8C’*ĒB0CĒ x *’KĒZ|(C`i>2̒S֒"ؒ[֒*ؒ#<:̒2͒"Ғ"0 ? &:͒(*Ғ+|(h"Ғ #}G*Ԓ#"Ԓ<2͒*ؒR [֒? SВ (*cTG}[В*ؒR("ؒæ"֒2̒golA/:(%~X(̈́͘~~0_Ä~p͇0͘~0w'n f -( L'~0 lA 5 c͐͐(#͍zw>͊R/:(zW`͐ѧxȯgoZ^ V Rl:͓'~w*#~:͙ 6gn$>:$z(2͒W2͒SΒQ?03SВ"Ғ͇[Β-LSΒn f 0R8Hl:͒(A :͒(cT :ᒧ((Fx(!*ΒW?03E#[В:ҒO(x(  # (> ѯ'mmdm m} B0 0>0':G!:#(## ~7##́#~_02B"^'SNFCͤN F * ~ó#z( (͟+ssoͤ*##""Ē*#":2y怰  i.0*N F $s#r![Si*.[Ē (~# ~]~+##SĒ>2!"888*oT0w*22[S*R870zWn f R8!*.>G:::>(w2Ògo"ƒ*o<2’[~*ƒ8-#"ƒ#z *K[’ #~ r+s## x *’́#"’!6+6j!~(8#`8 _(zxW{@_͸(%! HGBs#r#0s#rѯog>&w!!. !)3(##z# {( (++++###### 0####0᯼:f{2!璇6!:ᒧʗ: _W2:2i.">2_U]>2Ô:2'ѯ2䒳~~ :͓0 r<Ô!:0(G##:ᒾ# ~( ^X#:(_B_Bn f )$##DM:͓0:Ẅ́<Ô~w+:w2!:<2_6:w2#~w#:wͬN"~2]Lͬ;|(*!")H:2ĒQͬ;Hu<0:o&0.x2f>2!Fc`gFf`_:G**~#(G =3R83##~2#3: ::bk)))=())0}_#####>2*&00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000:RG:SO:f KY͙>  Y͙Gx6ѳ(s( x2Ry2SC:P({???oo{?|g{o{o&)0))|xg͙"Q?0#pO*> + p/#&$<>%;*22’͑ !("P'P!(g7ԑ08 :0”/'F ~G ~H ~I (:O͑:(O!’yw2,(8+(-(&!.O*.͑w,0 -͑, &":/28g:’o*0g[_$&"k:W?0:6+FN <8!4>,2x0O͑0:0yOO2Ē2ŒSɒ>2Ȓ:ƒ>222Ò͟:Ò |%땵ʔ|"#({&ƕ>&<2,(f% ;D**Phd/($(@!}!0lh):o:Œ0D=O[0|XmE:oā"Ē!}*.w,}v}2Ò}2*"}!(84*"}*K( Q KmT]6  :Ē_͙:0vŒ6x~# !Œ4: w!Ē4> w:Ē_͙{(@z(D=_*6:GW2M000000000000000000000000000000000000000000:@ÀÙöљG::O:(Ax2::""Sm[[0!/7-!#%6>$-{2"(!Ƀ!7~w, \]/xagh%oȤW@h\Y)n}Qo]~Vx\estWU[Y{BdsVg},Vmp~lPa[} Gy CMbFOl=! L w-7.8)'*=:[0eX)HvÛHäBB}  cQìôãÊîACj6>ĈÿÐ}!ÞÚ̍äA)!ÐX“ܔè0(X)HvÛHäBB}  cQìôãÊîACj6>ĈÿÐ}!ÞÚ̍äA)!ÐX“ܔè0(X)HvÛHäBB}  cQìôãÊîACj6>ĈÿÐ}!ÞÚ̍äA)!ÐX“ܔè@@)G  KONFIG Pdata AB 830323/ ՁՁ Floppytyp 0/1/2 (Supdos/8"/5") ՅօDrive nr 0-31 Ճ$Ճ, Cluster 1-32 DR04DR1> DrivenamnEf` SF04SF1>Omr{kning f|r Sup@erdos$אԴHAdress till drivetabell<,H,H,, ,,,$,,( Drivetabell92H,ݸ,,ݸ,,ݸ,ݸ,ݸ,ީ,ީ,,ݸ,ݸA<Hք@,޸,,ݸ,,ݸ,ݸ,޸,ީ,ީ,,ݸ,ݸ,ީFP@,T,޸ZI$=reg.systemnamndnP喾xPPPݵZ긼L4>PZޜ kk_ k k Z,k\INITIERAP P;S{tt i programskivan! Tryck RETURN@ qV{lj registersystem"{L{gg Q$ |ver dosbuf 0Ǩ ; {,,ݸ,޸,ݸ,,ݸ,޸i -!޵ݵkީk'km`--݊ Inget UFD:)i,ނ@km`--꟧EݵZ츼ZZ Z,ނ塜Z,ނ!"iZkm`--ퟧ,ݵ6ޜ{KFG @݊( Jޜ{T@YEv Register.x^|cǐ;Zh݊K,ݸ V{lj nytt namn (8 tecken): ;PPQ)| Ing}ende registersystem:&޵ZMǬ矖);##@Z; Z;ꜵ V{lj systemnummer; eller nytt namn (1): ;Ǩ ,ݸPP1PDP'ސ{P I$=Valt namn Nytt namn ?@*,>:P.KFG޸!&ǥ ,ݸ10S{tt i dataskivan!䵕KONFIGP :婵9D,금Ǩ,ݸǥ䊾,ݸN ݵݵޜ{ Re@ gister݊ s޵-{ BASDATA LBLޟީ># ݊ޜfZ {(= ߐSkivan konverteras!K%Registersystemet d|ps till "REG@ ISTER"ޜREGISTER ֆ$ZFrist se 28-31 i bitmapi,ނ塜",Ձ , 11110000",Ճ , 11111101f,ނ塜 ERROR@@ > :REGISTER.KFG޸:B#޸, #޸,,#޸,#޸,ݸ#޸,ީ#޸,ݸ D޸ $,4> HxPz Zy ky qz {z~yy} yyyy1f,ނ塜 ERROR@PP!eZ INITIERA Pdata AB 830307----- DESIGN-DATA -----.(,,,Pstbuf,Bitbuf,Iobuf2✸,ݸ Indtab l{ngd+<TP P ( Sk{rmbreddLFǨ,ݸ,ީ,ީ,޸, ,޸,P,ݸ%Chain,Vminne,Mode,Sk{rm,Drive,Offset&K,ݸAntal blink, 0=o{ndligtP Z----- VARIABELTABELL -----7dǰ,A ,B ,D ,Q ,R ,a ,ݸ&x!----- SP[RRA DOSBUFFER 2-7 -----%ߵ丼ǿ,P&!----- L[S IN SYSTEMSEKTORN ----->!݊3,i ','-!v0+----- TECKENOMVANDLING F\R SORTERING -----Wǥ'} HUVPROG #P DEFBAS 9S{tt i programskivan Tryck RETURN; -Dataskivan {r inte OK"튾Formateringsfel#L{gg en dataskiva i drive 1! Tryck RETURN ;-?----- L{s namn -----P7!" 7 7=7 :7.KFG7----- \ppna N$ -----ic' 7޸K#޸, L#޸, R#޸, #޸, #޸, #޸, X޸ ǭTP-,,,ݸ,,ݸ,ݸ,,ީ,ީ,,X,X޵!N$ OKEݵ!޸y yy !y'y-z 7zLAR!X9, L#޸, R#޸, #޸, #޸, #޸, X޸ ǭT`&`!`^" HUVPROG Pdata AB 830314 - F @& ,+ޜ,\@ &, &< LRް&b#r*Z ݰ `ǀ'Ǡ&ƘƢƬƶ rV{lj alternativ:CZ4, ǀ, ǀ,ǰ,ǰǰ,ݸ,޸"(ǨǨ,ݸ%ފTryck p} RETURN ;ߊ INITIERA\` DIMFELdR1n'ސ▆ REPARERAo&p- --qq,A,D,B$x,A,x+,A ޵ݵ`6$,A, "!,Aޜ &,Aީޟ  z,A $,A,` (-&-L !r ; (I) ;0㵒cީ¢ _  @$¢ޖ ¢'   ,ݸ' `ƶ¶ 3劾(¢ ¢¢ޟ ǜ /抾$¬¬ ¬ 銾 ;Lꟾ 1$޵¢ǜ >ǀ¢`¶;¢¶ !2,, , .Ǣ%0;݊<2Fel i format, rad$position#ޟ4$<#6޵⸼0-8`ݵ&@0-$$݊݊d&A$ސ$0- B,K$CN$$,D$i'6E$  ,,$,$]BmޜJ8Ange regis` ternummer () ;f¢\¢'ސ▆=0݊ ',@ݵ'$ޜY*89Ange sorteringsordning () ;¢6` ¢'ސ$ ޜP>Ange formatnummer (0) ;o¢W¢'!ݐ0-,+0,,<# XE ` Ordning *: ;޵⸼!$*⡜-;, ǥީG ;r*Register PosterDMax \*Format0-7Ordning ;ǫ` Autom; Ingen; insortǬ=, R - Register I - Insortering) L - Listning K - Kontroll' S - System U - Utskrifter/ D - Definitioner E - Egna programP B - Byt dataskiva`  V - V{xla registersystem . - Avslutning"ݵ+p¢[6 RILKSUDEBV.¢ޜ ;w/ X!Ǩ,KONTROLL > !Byt ev. dataskiva - Tryck RETURN ;KONFIG S`YSTEM UL[NKDEFBAS% Programnamn? ;],丈f`c%Byt ut dataskivan och tryck p} RETURN;\INITIERAߵ 6ǬߣLADDNING AV PROGRAMMODUL P]G]R;`ݵ; ¢END*X ;ޜ!Zݐ ݵS\݊ݵݵ^l^`ݵb ݐ* ;de¢3f .EB[SUIAOF`¢ޜ s#.J%h-¢'ݐjlߵnp" ޜޜ ޜݵ$, ,$`g9*$$*ߟ$ $ޜ,=*$* 1 Inmatning:$ $RL;E$,&d!$ޟ$ߟ$& $,¢la`Sީ޵ݐ ݵI ݊["ޜK#Ska denna post elimineras? J/N (J) ;¢J¢ $񈀧Rޜ ޟ'Tޜސ l/X\޵`.B݊4ޜ-,Ange f{ltnummer: ;G¢'ސ  ,*¢¬¢;&ޜR¢  (¢ޟ '`ސ Z.¢,¢ޜ ,  U$ީ6'$$$⡜$ Snabbs|kning; S|kning;- p} f{lt$ p} alla f{ltީ 'S|kord;˜` (˜);-? ;&˜¢˜ ¢b¢ ީ;݊ r㸇޵;ݵ$ޟ:ǖ$br#bHd `Y $VNL INSORTERING N'$޵*$)P* *; ;R TS/V Zavposter insorterade X 1 - Sorteringsautomatik"Z 2 - Insortera ordning%\ 3 - Insorter`a alla ordningar"^ 4 - Byt sorteringsordning` 0 - Tillbakab66c¢'d12340.¢ޜ fߵohNǫJ/jAutomatisk insortering J/N (¢) ?;l툕¢`n޵$¢Nݵ$pT'rAvbryt insortering med SH PF7t¢'ނ*ǫ$vǫ,*xǫ,$zީ,~y y zy y&y,~<~LyR~b~r~}y zz z zy yyy`yyyyyyy  y$y *y ;ybryt insortering med SH PF7t¢'ނ*ǫ$vǫ,*xǫ,$zީ,~y y zy y&y,~<~LyR~b~r~}y zz z zy yyypp)>9=&>dDEFBAS Pdata AB 830317fDosbuf 1=bitvektorhDosbuf 3=systemsektoriǭ,޸jǨ,߸Tv}ng initiera k` ; L{s namn%nǠ#$4>oHHNpǰp,A,R,ݸqX^=;^݊) :#-! Init dataskiva d#----- INPpUT ---- 4,ݸNollst{ll GET'  ^^ 43^劾(4 44ޟ 4ǜ X/^抾$>> ^>>^ ^銾 ;<^ꟾ >1^$޵jp4ǜ Xl>^^ǀ4;44 !2X"--- Utskrift p} sk{rm ------- DEFINITIONER  );/! sektorer lediga f|r nya register+ REGISTERdpTYPr ; r݊ (EJ UPPLAGT); rߊ 8-BITARS KOD; r FORMATREG; d$ d$O MAX ANTAL:;#####; ANTAL ORDNINGAR:;###;U )POSTL[NGD: ;####;p=BUFFERTL[NGD: ;####M ANTAL F[LT:;####; F[LTL[NGD: ;####;U )LEDTEXTL[NGD: ;####;=ANTAL POSTER: ;##### %_ ------ L{s registerkonf -------` pd0ja ݵ{b j-rjߜ- d j-<+j-f j-j-h j-j-j j-jl jjn j-p ޵⸼P޵⸼@:r ݲpj⡜ t }~ % ------ Skriv registerkonf ----- d0jH j,r,r,,,,,,,,W j眸,,,,,,,,,,,,,p ޵⸼;޵⸼+% j⡜,  ݵݵ ݵ ޵⸼0j j-݊ ޜ j- j-! jp j-  rdF ,,ݸ,,ݸ,,,,,,ݸ,, ,& f fX Backup 32=26 , 1' ,--- Typ,Maxant,Ant ordn,Ant pbuf,Postl -----&( !-------------- Typ -------------* ], REGISTERTYP:-. %1 - Packning, sortering (normalt reg)"/ 2 - Ej packning, sortering.0 &3 - Ej packning, ej sortering (format)"1 4 - Packning, ej sortering2 ޵rpr 3 ޵*4 Ange registertyp:^ 5 r&6 !---------- Max antal -----------8 'MAX ANTAL POSTER:M: EAnger hur m}nga poster det maximalt kan t{nkas ing} i detta register.X< PUppgiften kan inte {ndras i efpterhand, men genom kopiering till annan skiva kan> en {ndring }stadkommas.@ ޵ǀ>B Max antal poster:G C ^ D &F !--------- Antal index ----------H rߖ ޵&J ANTAL SORTERINGSORDNINGpAR:JL BAnger hur m}nga sorteringsordningar som snabbt skall kunna anropasN ޵5P Antal sorteringsordningar:G ^ Q &R !----------- Postl{ngd ----------T POSTL[NGD:WV OBest{mmer det maximala apntalet tecken per post. Vissa tecken (siffror, blank-JX Btecken och punkt) packas. Maximala postl{ngden {r 1024 bytes.Z %^ Postl{ngd:% ^` %b ݵ޵Ḽh6c p ᡵ!ࡵߡd f %j ----------- Antal buf ---------+l /ANTAL SEKTORER I POSTBUFFERTEN:m Sn KDenna parameter best{mmer hur m}nga sektorer som skall h{mtasp vid varjeVp Nskivaccess. F|r att maximalt utnyttja registret rekommenderas i detta fallet,r p} grundval av postl{ngdenst.t ޵u  ޜ*v Antal sektorer:^w x py  j'!z ݵe޸穸B1{ ǀ>6 j&| x} Med"sorteringsordningar och postl{ngd  kan maxantalet h|gst vara;ݐݵp -~ Tryck RETURN;4. ^? % ޜ ޜ ✐^ Skall postl{ngden |kas tillf|r)#att maximalt utnyttja registret J/N6 (J) ?;^p!z4N  ( #---- Fr}gor vid {ndring+uppl -----% --------- Ant f{lt ------------ @ ANTAL F[LT:? 7Anger hur m}nga f{lt per post registret skall inneh}lla vqObs Minskning av detta antal medf|r att postep"r med f|r stort f{ltantal f|rst|rs.T|m i s} fall f|rst ber|rda f{lt. ޵$ Antal f{lt:r^ $ -------- F{ltl{ngd -----------  F[LTL[NGD:n fAnger hur m}nga tecken som maximalt ska kunna ing} p#i ett f{lt. Outnyttjad f{lt- l{ngd tar ingen plats. zuObs Minskning av denna l{ngd medf|r att poster med f|r l}ng f{ltl{ngd f|rst|rs. Avkorta i s} fall f|rst ber|rda f{lt.# ޵Ǡ Max 255 eg.- F{ltl{ngd:^p$u  Q IAntalet f{lt multiplicerat med f{lt-l{ngden understiger postl{ngden !( Tryck RETURN ;0눕^# ------- Ledtextl{ngd -------- 숔 LEDTEXTL[NGD:: 2Anger hur m}nga tecken ledtp%externa skall best} av.[ RMObs att en minskning av denna l{ngd kan medf|ra att ledtexterna f|rst|rs! ݵ( Ledtextl{ngd:B^ $ -------- Sekvenser ---------0 rߖ%޵⸼p&ݲ1ݲ 눔SORTERINGSORDNINGAR:K Ange 5 f{ltnummer mellan 1 ochf|r varje sorteringsordning. ݵ޵ ݵ) Sorteringsordning޵⸼ ݵ* Niv} p': Ange f{ltnr:>= ^0ޟޟޟޟPw. ޲ ޵ G1 <#Felaktigt angivna niv}er ! # ---- Input med kontroll ----+ &E1%=p(RETv{rde E2%<=v{rde=>E3% F$=fr}ga2 )Ange ett heltal mellanoch +  ;() ; 爕^ :4 4 4'  Xn.S )---- sub m{rp)k/frist plats bitvektor ----T U ^V ,X f$XZ ,*g %----- m{rk/frist bitmap K0%-L0% ----+h ݊*.ݖ *ޟ\i **ޟ*j*p* ޟ (en bit x)j )k *ݵ^;*^;l ^.݊䟐a䜵Cn gp ^ ar aggat ^ ,av Rx 8 p+3---- ANDa sekvens 1-R1% med K% om [%(1-R1%)=1 ----" ޵݊! ޟǀߜޟ! ޟǀߜނ) $Om K%=32767% ta bort alla 3 ur [buf Om K%=0 nollst{ll [buf& ݊,޸,ݸ,p,i iX X  ޵ޟ⸼% ,⸇ t fX ANDa index I%:# ޜ. iXޜM' ݵ: p--a  ,a,a  fX i6~ 1---- Packa upp typ [% fr}n adr \% i 'K%'$() ----  ,^,j,j ]XXB  ---- Registernamn ---- REGISTERNAMN:' |p. 6 $ (Skrivarkod) ' [ {ndra namn . tillbakax! 4.40^ԇ 9 4[ 4'd dޜ3% Ange 1-6: ;ሕ^ 4'd dސd㖆L d$>d p/44>4;%P^) 4  h4ޟ 'd dސd㖆B. 4d$4ޜ d$ .  ݵd3 XG skriv R$( )" $,߸,,ݸ,,ݸ,޸ `Rp0XX f& 婵X F ---- f{ltrubriker ----H i d XJ 04N LEDTEXTER REGISTERd)d$)P ޵8>*R [ {ndra rad nr . tillbakaއ!T 4.p140^M҇V cX 4[ 4'dZ dޜ6(\ Ange f{ltnr: ;߈^ ] 4'd^ dސdV` dRd 44>4;ޜdވ^h)a 4  p24ޟ 'db dސd[$c 44ޜ44d d+j f d X k n X o H{mta D$p Nݵq N  Nr y H{mta f{lt K% till J$z p3N >{ NޜN >|  ߵ޵ޟ N ޜ  L{mna f{lt K% fr}n I$ ! N N ޜB N / NޟNA Np4 Nޟ 4 4NޜN NHNN  Skriv D$ N ޜ ݵޟ"  ,Nޜ * %---- Uppl{ggning standardformat ----  H{mta sformat ip5 Ǡ֐u0 $,,,,,, `AXX  ` ޵` ǟ,   f'X #---- Nollfyll dosbuf 0 ----ݵ^^ ,ݸ"s-p6--- Ber{kna slutsektor ----Ftޟǀߜ܀}p =qނu---- H[MTA SFORMAT ----ݵݵݵ+%ݵ :FORMAT.DAT޸ FORMAT.DAT޸*#޸, #޸, p7T#޸,444ߟ 44` 4 ޜ4 ޸&Filen FORMAT.DAT felaktig !'"---- Kopiera reg.uppl{ggning ----,7ڈ KOPIERING AV REGISTERUPPL[GGNINGi dXfp86Rutinen kopierar exakt uppl{ggningen fr}n registerd till en dataskiva i drive 0.Inga poster kopieras.J /L{gg en dataskiva i drive 0 och tryck RETURN ;D׈^ȇ ǭ,ݸ^݊  -!)p9( Felaktig dataskiva i drive 0B-jF6,F5 43'Denna skiva rymmer inte detta register!d$ dݵdd- Ange registernr f|r uppl{ggning:; և^p:4'ddސd▆8d0%Registerd finns redan !e+Registerdl{ggs upp p} drive 07ǭ,޸i dXǭ,ݸf dX(ddݵݵjݵڇ ޵Tp;9"޵ ޲ ݵ=Nollst{ll index&/وd$ !(Register upplagt drive 0.(T Tryck RETURN ;|Ԉǭ,޸+Ƈ>g9---- Antal sektorer lediga (F6) & tillg{ngliga (F5) ----h݂xݵ^=jݵjނ*p<b*;*^namn ---- !"  .  .KFG----- \ppna N$ -----icX!ǭޜ:޸K#޸, Ũ#޸, *#޸, Ũ#޸, Ũ#޸, Ũ#޸,p? ;޸ *ފݵ$$ Bitmap-6 ǭV-,,,ݸ,,ݸ,ݸ,,ީ,ީ,,;,;޵^N$ OK *݂;XEݵ^޸&@!---- Heltal => Pos. flyttal ----Jx%y Tp@ݐ Ց^'#---- FEL Z% ----(#ǥXX 'Dataskivan {r ej ok. 'y zzy $~4z >z HNzXy^ydyj8r x0(   y y }        pAz$A*!;8dyjy{ y  IIII y z!a g x xyyy~y zzy $~4z >z HNzXy^ydyj8r x0(   y y }        ! ![i ' SYSTEM Pdata AB 821102Nya serviceprogram inf|res som data F|rst ledtext, sedan programnamn, sedan eventuellt tal (0-255) som skall l{ggas i byte 63400. ,޸0Ǩފ# Tryck RETURN;' SYSTEM======$(#'Kopiera register',KOPIERA,0%-$'Modifiera register',MODIFI,02'Formatera',PREP,80"<!'S{kerhetskopia',BACKUP,66(F'!'Kopiering av filer',LIBKOPIA,68%P$'Inneh}llsf|rteckning',LIB,76&d%'Reparera register',REPARERA,0!n'Byt format 0',GRUNDDAT,0xݵǨ,ݸN*ޜ$##; -  0 - TillbakaV{lj alternativ: ;,ݸ'.0} INITIERAW!'44ސ464$Ǩ,4$! 4ǥ:v8ǬߣLADDNING AV PROGRAMMODUL P]G]R;@݊3,i :,:3-!Wǥ:Dataskivan {r inte OK#L{gg en dataskiva i drive 1% Tryck RETURN ; DEFBAS---- L{s namn ----̀F!" F FLF :F.KFGF----- \ppna N$ -----ic: F޸K#޸, [#޸, a#޸, #޸, #޸, #޸, g޸ ǭNр-,,,ݸ,,ݸ,ݸ,,ީ,ީ,,g,g޵@N$ OKEݵ@޸z y ~$}4y:y@yFz[Aa!g9#޸, [#޸, a#޸, #޸, #޸, #޸, g޸ ǭNѐa ! UL[NK Pdata AB 821108) ,i , - .ްް&ް6ްFްV*Z ݰf ǀfyCZ4, ǀ, ǀ,ǰ,ǰǰ,ݸ,޸X5 DIMFELc----- Varini -----dm----- Rinit -----1nv'|vސv▆ REPARERAo|-&p|- |-|qw----- Sinit ----- x,A,vǥީ!----- Nollst sortordn -----$i ޟǀߜޟފ UTSKRIFTXob*劾 Tryck RETURN;Ɣty y y~&~6~F~V~f}vy|y yyz !----- Nollst sortordn -----$i ޟǀߜޟފ UTSKRIFTXob*劾 Tryck RETURN;Ɣty y  ! 5Y dUTSKRIFT Pdata AB 830309GfǠ q0"(.""(g'-4..Gh(:."J(Z`ްp#ǀ*iƠƪƴƾkǥR no(Z( ----- KOMMANDO-INPUT -----V{lj alternativ: ;2ީ  _  @+$ ޖ  Ѡ'  ----- INPUT ----- ,ݸNollst{ll GET' ƴ´ 3劾(    ޟ ǜ /抾$ªª ª 銾 ;<ꊾ 1$޵ ǜ >ǀ ´; ´ !2,----- PACKUPP -----"-'A2#6޵⸼08ݵ----- HUVUDMENY ---------- L[S POST -----K ǥN6----- L[S DELINDEX -----7ޟǀǀ$8"ǀ "(ǀ(9޵.ǀ .ݲ0=޵.4ޟǀޜ?iJ.AݠPsC.ޟǀPޜaPEPP -g6Gggǁg.ޟǀPޜ*IR޵P(Pݖi J;L=NFel i sorteringsordningx)V.v reparera !#~----- NOLLST[LL V-MINNE -----ǩ,ީ,ީ1,----- L[S PARAMETRAR OCH F[LTRUBRIKER -----~'x1 ,~,x,A ✸,޸INDTAB---a*i ~ߵD4 ~࡜,A,D,BRegtab f|r avkoda+4ޟǀߜxޟJiJލ UL[NK>S{tt programskivan i drive 0 Tryck RETURN;72----- PACKA UPP FR]N ADRESS \% TILL 'K%'$() -----  ,,,!(] ǥ2,w'----- SPARA PARAMETRAR P] SKIVAN -----x<ǥy:*Fel i format, rad $position #ޟ+ $J ----- L[S IN FORMAT -- --- 0-V& ,,~% ߵB  ݵ ǥ'----- UTG]NG ----- ' '/:"]terg}ng till huvudmenyn J/N (N) ?;: JX :: ̠ INITIERA8:S{tt i programskivan Tryck RETURN ;YN UTSKRIFTER ==========REGISTER~ ordningx)~NPROGRAM+RETURN0#N(Med denna rutin sker utskrift p} printerB&N:Hur utskriften l{ggs upp best{ms av utskriftsformaten.-'N%F|reg. fr}ga f}s genom att trycka PF1O)NAnge utskriftsenhet, S=Sk{rm, () ;5 Sݵ㵜*N  +N ,N 2NAnge formatnr ;5N( ) ;8N@  ;N>N 'ANݐDN݊'GNInl{sn av format HNINN/4 PNAnge antal poster/sida ;SN݊޵VN() ;_YNǠ\N  _N 'bNސeN JN/hNStopp efter varje sida J/N (ª) ?;kN:  JnNpN J޵ݵqN݊޵>rNAntal utskrifter (̠) ;  sN 'ސtN(selectuNw2wNSt{mmer detta J/N (J) ?;= NzNR----- UTSKRIFTER -----R ¾>R/#Justera skrivaren och tryck RETURN ;C ; R8 R݊x, R޵޵ݵsidnr,ant p/sid+ R#Utskrift p}g}r, Pause med SHIFT PF7 RH6%=utskr p/sid r{kn-Rǀ"Pǀ,R݊!޵.(.:R)􈂝 R Ǭ)R  JRAvbryt RR݊ RUBRIKR݊ Ơ)R+  JAvbryt4Rޜ# ;ݵޜ7SS# ;S Sl`T Tryck RETURN;^bTa----- Rubrik ut -----a $,޸,޸ Init b$()aLeta upp rubrikformat aǟPP %7a $aݵRubrikformat saknasaP ej rubrformaݵݵa----- Post ut -----a $,޸,޸ Init b$()aLeta upp postformat aǟPP %0a $a $,޸,޸#"aPލ ej post forma޵?ݵ7 b2----- Sub utskrift G5%=0 rubrik, G5%=1 post -----bǟPP<b /#&$><%",;*P ޜ  K,?_ ob/ tabpb#;qbyb # f{lt nr@zb#:;%#;#;|b3b & f{ltrubrik,b#`;#~;bb $ radvxlb݊޵b# ;b>bLbb < loopslutbrbb%bbf b" text/b&޵.#. ;b$b * styrteckenb# ;|e $~e Format slute Fel i formatee޵ fel i formate*0u%----- SELECT Pdata AB 810723 -----2u 4uVillkor 6urad R%, kod K$, operand O$8uR%=0 inget villkor:uu. 30094: Urval@uBu JN/DuSkall villkor anv{ndas J/N (ª) ?;Eu눕!Fu  JNHu J ݵ#JuAnge f{ltnummer f|r kod 1-;*Lu( ;() ;Nuꈕ  OuPu` 'Ruސ(?,<>,=,+,- () ;ߵ鈕 ]u( ^u :`u<><>=+-"bu*du%-------- Fr.o.m. - T.o.m ---------fu S1% -> S2%hu juluސ޵mu݊ݵ+nuFr.o.m. post nr: () ;oupu   ru 'tuݐuuvu"""&xuT.o.m. post nr: (") ;yuzu9舕  "{u |u '"~u""kuu-u(---------- Urval ur A$(R%) ------------u[% status 1=fel koduu݊.uʠ:pp:u+u=:~u-݊gu<>:HuTީu޵ FEL POSTuݵ R[TT POSTuǥ7uǥuǥ.A!Skall utskrift avbrytas J/N (N) ?;BȯݵʯޜJޜ̯5ͯ0=========== Standardformat printer ============%ί$'%0,/8,&0,$1,/8,"sid ",#0,$2'(Я!'%1,>1,/10,&I,/G+12,#I,$1,ו  [ $?ו -1 Ange radnr: ;5%@ׅ 'ސh;BJ   ª ;"ߜn)D    ޟ 'Fוސ.Gו.Hו J ޜ JGJ׆,'- $,,,,,,(L`BǠ!H ǥ MN׆,~\ǥy yyyy"(y.4y :~J~Zy`~p~~}z z zzzz yyyyy yy "(1 .y JI Py a g9 xy~y )1" A)))1)1 )y,~\ǥy yyyy"(y.4y :~J~Zy`~p~~}z z zzzz yyyyy yy "(1 .y JI Py a g9 xy~y )1 ! KONTROLL Pdata AB 821106 Ǩ-!7ݰ ݰݰ*ݰ:#JݰZ ǥRj( -p2 -v<ސ▆vF 0|P|-݊ǰj}U/Z System: ‚ Register:;;d)Typ:|-;|- Formatregister;iJ Jn|-x|-|-|-+ǀނ|1݊݊ *** Fel i registret ***?܀}p =qGAntal f{lt: |)Max postl{ngd: EBuffertl{ngd: )Antal poster: |-EMax antal poster: )Max f{ltl{ngd: |-||EMax f{ltrubrikl{ngd:|-)Aktuell ordning: 5޵fOrdning;##;: ;&޵⸼/|⡜;␾-;(Upplagda register: ;޵⸼+%0 ,; Ǩ,޸" HUVPROG,6 Systemnamn@!"J ‚ Ty ~~*~:~J~Z}jypyvy|yzy y yy x  y I ,; Ǩ,޸" HUVPROG,6 Systemnamn@!"J ‚ T !Q9 KOPIERA Pdata AB 830323! KOPIERA======= Ǩ,߸< < ǭ,޸i!(QIDenna rutin anv{nds f|r att kopiera ett helt register, eller delar av ettC;register fr}n drive 1 till ett upplagt register i drive 0.'L{gg en dataskiva i drive 01 - Kopiera register!2 - Sl} samman 2 register3 - Byt dataskivor 0 - Tillbaka " V$$1230. ޜ<& SYSTEM4'#L{gg i programskivan. Tryck RETURN ;d'f. 4 :-@gF'-LhfiRX^ݰnݰ~ްX#ǀZ ݰLǀ#jF(ݵ޵/kޜRX( ޟlRXMn(Z4,Lǀ,Lǀ,ǰ,ǰǰ,ݸ,޸oݵݵݵqxV{lj alternativ: ;0ycީ FF_ F FzF@|$ ޖ ' }F ~# ,ݸNollst{ll GET'   3劾(  ޟ ǜ (/抾$  銾 ;?ꟾ 1$޵F ǜ ( >ǀ ;  !2((FXFFR"'A%'-2$,,R,F,F,,!`A(( ǥ((l+N+FpH+ǥ( K+ ǥ(N+F7ǭ,ݸr(:Uǭ,ݸo(`ǩ,ީ,ީ1'FF7),1,7,A✸,޸<F-LF-= ,,F,F!(]%(( ǥ((2$xǭ,ݸ< ( y]Register14i drive 0 t|ms och ers{tts av poster fr}n registerC i drive 12St{mmer detta J/N (N) ?;_ Jk bV  y4670 8[ KBH,丈f`c(Byt dataskiva och tryck RETURN;+ IJ ǀI-!Kopiering p}g}r. Pause med SH PF7 ީOU4ީ&=LDR1:U; ǭ, UIǀ9(UI+9(   OޜO޵fRR*$ f^Xf^f^X ") ORff^. h8 Oߟ B W L N o ǭ,ݸݵwO&p =Lz4t +޵fRf^wRf ީy DR0:=ޜ; +݊ + =ޜ=,=,=+ 10- + + 10,=,= 10,, y ީOO @$Skall kopieringen avbrytas J/N (N) ?;t Jީ  ǥ(6 d ǭ,޸H ?Ange registernummer i drive 1 varifr}n posterna skall h{mtas: ; T  'C% CސC▆C0݊5 ,C,f (, (2( 9. ǭ,Ձ@ޟǀߜޟi/ ލ<0 &Poster h{mtas fr}n registerC)C2 ǭ,ݸnN< EAnge numret f|r det register i drive 0 vari posterna skall inf|ras: ;F H e '1%P 1ސ1▆10݊6Z ,1d A%h ǥ(i ǥ(#n KOPIERING AV POSTER: C0F&D F-.F-4F:N F-@F-X F-FY F-b !v ǭ,޸;݊~ ,& i (,( -!! ǭ,ݸZ݊ 9( ,& i (,(< -!)  i&(F( Register i drive ǭ: ߵR% ޵f⸼ f- f  UޟǀǀI. ǭ,޸Iǀ Iǀ ޵fǀ fݲ ޵f@ޟǀޜ if(( ݵs fޟǀޜP!  -6$ IIǁIfޟǀޜ*' ޵ݖ * - >0 Fel i sorteringsordning)V.v. reparera !z 10F F-=M ޵f=,ݸ,ݸf,޸,ݸLߜ$ F7޵fF-' ,fF,f' F,7,7/ F霸,ݸ,ݸF,ݸ,ݸݵݵ=/ Dataskivan i driveǭ {r inte OK, L{gg i dataskiva. Tryck RETURN ;  .X.X 44 :R:R @L@L,t9(}ǭ,޸<݊;~Skrivfel p} drive 1 ! Tryck RETURN;"),C,,A✸,޸ r( o(9(,1,7,A---- L{s namn ---- f!"f f   +.KFG----- \ppna N$ -----ic(!+ǭޜ:޸K#޸, f#޸, 5#޸, f#޸, f#޸, f#޸, ;޸ ǭfT-f,f,,ݸ,f,ݸ,ݸ,f,ީ,ީ,f,;,;޵N$ OKEݵ޸!' JN/"'Skall villkor anv{ndas J/N () ?;#'숕!$'  J N &' J ݵ#('Ange f{ltnummer f|r kod 1-;**': ;() ;,'p숕 -'  .' '0'ސ:<2'Ange kod p} f{lt;<A(A) ;4'눕5' A 6' A8'K=KE:'Ange operator <,>,<>,=,+,- (K) ;ߵl눕;;' K <' K:>'KK<>K=K+K- H'qJ'ސ޵DL'Fr.o.m. post nr: () ;ꈕIN'  P' 'R'ސT'U'&V'T.o.m. post nr: () ;X'ꈕY'  Z' '\'M ^'St{mmer detta J/N (J) ?;`'6鈕2a' N/b'l'݊m'A^n'^Ap'K+q'K=^Atr'K-݊]s'K<>^A>t'KTީ x'޵ z'ݵ|'ǥ(y}'ǥ( ~'ǥ(y z z z(y. 4 : @ FyLy RyXy^~n~~~~~}} ~ y y yyy %y +y1y7) =yC I O Uyfy wy)1  I  1 y 9 z+ 5!;9Az Kz~'ǥ(y z z z(y. 4 : @ FyLy RyXy^~n~~~~~}} ~ y y yyy %y +y1y7) =yC I O Uyfy wy !7 MODIFI Pdata AB 830330 }- %✸,ݸǩ,ީ,ީ8"ݰ2ݰBްR#b*Z ݰr ǀr ǠƈƒƜߡߡưVCZ4, ǀ, ǀ,ǰ,ǰǰ,ݸ,޸  rdR<1n'ސ▆ REPARERAo &p- -%q,A,ݸ,ݸ$x,A,,A v$,A, R&,Aީޟ  ᵺ(--V{lj alternativ: ;0㵂cީˆ _  @$ˆޖ ˆ'   ,ݸ' Ɯœ 3劾(ˆ ˆˆޟ ǜ /抾$’’ ’ 銾 ;Lꟾ 1$޵ˆǜ >ǀˆœ;ˆœ !2ǥީ/ N AUTOMATISK MODIFIERING=#!NREGISTER)b "N!#N1 - Omflyttning av f{lt&N2 - Nytt f{ltinneh}ll.)N&3 - Omvandling mellan stora/sm} bokst.#,N4 - Matematiska operationer!-N5 - Eliminering av poster/N 0 - Avsluta2Nˆ 3N ˆ'*5N.012345ˆޜ Vvv8N SYSTEM:9NS{tt i programskivan! Tryck RETURN ;R OMFLYTTNINGP RHDenna rutin byter eller kopierar hela eller delar av f{lt inom en post>R6Ex: Byt plats mellan f{lt 1, del 2 och f{lt 4, del 3.&RF{lt nr 0 motsvarar postnumretRPF1 = tillbakaR  R? RRR RR# R R#R)fR R)*&R1 - Byte mellan f{ltoch#,(R2 - Kopiering av f{lttill#*Rjˆ 0/+R],R/ސ/ߖq.RU NYTT F[LTINNEH]LL>U6Denna ruti n byter ett visst f{ltinneh}ll mot ett annat&UEx: Byt A, f{lt 3, del 2 mot B(U Byt ut f{lt 4, del 7 mot CBAUPF1 = tillbakahU(Ange nuvarande teckenf|ljd: ;(RETURN=hela) ;() ;U 㵂ˆU UˆV# mV V#V)V V)$ VAnge blivande teckenf|ljd: ;" V5)(5) ; Vˆ5Vc Vˆ5㵂Y OMVANDLING>Y6Denna rutin byter VERSALER mot gemener p} visst f{lt.Y'Y1 - Byt sm} bokst{ver mot stora)Y!2 - Byt f|rsta bokstaven mot stor'Y3 - Byt stora bokst{ver mot sm}XY(4 - Byt stora mot sm }, ej f|rsta bokstav# bokstav efter minus eller blankY 0 - Tillbaka Yn!Yˆ.ˆ0yYˆ'??ސ?ᖆ.Y# YUY#Yൺ7] MODI2^^ ELIMINERINGH^>Denna rutin eliminerar ett visst antal poster med en viss kod6^Forts{tta J/N (J) ?;ˆNr^ˆˆJR^$_D ˆNM' _`_Pause med SH PF7_EKEQC_"_t 5_Post nr;⟾KKޜK_ ݵ_(_⊾EߟQT_݊@_ǫ,ݸ#y'_ފ,QO`@&Skall modifieringen avbrytas J/N (N) ?;󈔈ˆJ$`S`Modifiering klar !` Tryck RETURN ; ` -e-?#aAnge f{ltnr 1-: ;a  ( ) ; aSaˆ  a aˆ'aݐaaǥS+d#F{ltdelarna avskiljes av mellanslag:dAnge del av f{lt  : 0=hela () ; dL dˆ  d! dˆ'ݐddൺadߵ󈀾e#b)he°nx‚ebhexx °eŒ° Œ$e#bbhre/ߊb"e¦nn °e‚° ‚efbeTb~ e޵ eݵݵe#b)he 5_fޜ°f݊ f5ޟ$f°ޟ 5°- fn ° ‚n ° f‚°°ޟ .fX#b޵Xf?$\fݵ#"޵ˆP^fˆ %tf_ ޵vfˆ(= xf#"ˆ8fݵ#" _ ޵*f#"#" #"f f޵ fߵ+fݵݵ#"ˆlfˆ 7f -"?_ ޵fˆ(= ff#"ˆf gUޟ$gQޟQ%xib"h݊n%{iݵ ° ޵hD~iޜ°  iib"niiޜ 1i݊&°ޟ n°ޜ=i°ޟ ni°ޜi°ޜޟin nni‚‚‚ޟ i0i°%°° °°ޟ ii° ° ib"°Au JN CuǠ/DuSkall villkor anv{ndas J/N (’) ?;Eu눕!Fuˆ JNHuˆJ ݵ#JuAnge f{ltnummer f|r kod 1-;*Lu ;() ;(Nu눕ˆPuˆ'Ruސ,<>,=,+,- () ;ߵꈕˆ]u+ ^uˆ:`u<><>=+-y buRⵂluEސE޵E+nuFr.o.m. post nr: (E) ;ouApuˆ E ruˆ'EtuEސEvuQEQQwu&xuT.o.m. post nr: (Q) ;zuV鈕ˆ Q{u |uˆ'Q~uQEQ* uSt{mmer detta J/N (J) ?;uwuu݊u"u+u="u-݊vu<>"W2uRR"Tީ u޵ uݵuൺ.鈀uൺ鈀.uൺ鈀y y yyy"~2~B~R~b~r}y z z z yyyyyyyy A Ay A# ) /5 ?yE K Qbyhynx  !y    9z z鈀.uൺ鈀 !( MODI2 Pdata AB 821006 e- %✸,ݸǩ,ީ,ީ8"ݰ2ݰBްR#b*Z ݰr ǀr ǠƈƒƜVCZ4, ǀ, ǀ,ǰ,ǰǰ,ݸ,޸  rdR<1n'ސ▆ REPARERAo &p- -%q,A,ݸ,ݸ$x,A,,A v$,A, R&,Aީޟ  ᵦ(--V{lj alternativ: ;0㵂cީˆ _  @$ˆޖ ˆ'   ,ݸ' Ɯœ 3劾(ˆ ˆˆޟ ǜ /抾$’’ ’ 銾 ;Lꟾ 1$޵ˆǜ >ǀˆœ;ˆœ !2ǥީN N Modifi4!N/Denna del kan l{ggas p} modifi genom att g|ra:"N erase-23999#Nerase 24200-26299$N erase 26400- %NLIST A&N LOAD MODIFI(N MERGE A.] ARITMETIK/]'Operationerna utf|rs i angiven ordning.O]GOm n}gon operation ej g}r att genomf|ra }s{tts resultatf{ltet v{rdet 0.R]&Till}tna operatorer {r endast +,-,*,/.)Konstanter anges inom " ".]PF1 = tillbaka@]Ange f{ltnummer f|r resultat: ;() ;]] ]1]'Ange f{lt,operator,f{lt,operator,f{lt..R]JEx: 3+5*"12.67" betyder (f{lt3 + f{lt5) multipliceras med konstanten 12.67R]+Max 30 operationer och 5 konstanter till}ts(]F{lt nr 0 motsvarar postnumret]# ## ]Ǡ?;S㵂]ˆ.]ˆ~]ݵǠ#ˆ#ݵ-]ˆ " d.]ˆˆ"ޜ݊-ᖆ5]-ޜ--ˆߟ ޜ-#]ˆ+݊ ˆޜ ']ˆ-3333']ˆ*3333']ˆ/3333A]Iޜˆޟ 'ޜݐޜ]ޜz]ˆg^ˆˆ ^݊@^+-*/  ^݊^ˆ^ Resultatf{lt:)^ Operationer: ;޵9g?^99;"9";"^9+-*/9; ^;R ^Ange antal decimaler (J) ;ˆJ/^ˆ'JJݐJJޟ" ^[r det r{tt J/N (J) ?;f#^ˆN &^ޟP)^/^ߵ_]ˆN_ _Pause med SH PF7_V\_"__Post nr_ ݵ_s__݊_ǫ,ݸ_M`>$Ska modifieringen avbrytas J/N (N) ?;ˆJ$`^`Modifiering klar !` Tryck RETURN ; `G#aAnge f{ltnr 1-: ;a () ; aSaˆ a aˆ'aݐaaǥS.fީ"޵ fPސf޵޵PCfޜޜޜ" fފˆ’J fߊˆ’J fˆ’J fኾˆ’J"fi"ˆ#g"0Fel post;Aux JN CuǠ~/DuSkall villkor anv{ndas J/N (’) ?;Eul!Fuˆx JNHuˆJ ݵx#JuAnge f{ltnummer f|r kod 1-;*Lu ;x(x) ;(NuCˆxPuˆ'xRuxސx,<>,=,+,- (ˆ) ;ߵEˆˆ]u+ ^uˆ:`uˆ<ˆ>ˆ<>ˆ=ˆ+ˆ-y buRⵂluVސV޵V+nuFr.o.m. post nr: (V) ;ouxApuˆ V ruˆ'VtuVސVvu\V\\wu&xuT.o.m. post nr: (\) ;zuˆ \{u |uˆ'\~u\V\* uSt{mmer detta J/N (J) ?;u uux݊ux"~uˆ+uˆ=~x"uˆ-݊vuˆ<>~x"W2uR~Rx"ˆTީ u޵ uݵu൦u൦.u൦y y yyy"~2~B~R~b~r}y z z zyyyyyyyy Ay }}~ # -y3 9y JPyV \x9~z z>Tީ u޵ ! DIMFEL Pdata AB 821101RЁ(Minnesutrymmet r{cker inte f|r denna Ёuppl{ggning av skivan ! DEFBAS DEFBASc--------------------- ' 'y yyy  ! PDATA AB 810901% ߵ丼ǿ, ,ǀ1,ǀ SLUTAy y xxOADASM.BAC! !!" END Pdata AB 821027% ߵ丼ǿ, ,ǀ1,ǀZj ,, +ݵ'P,ؚ ,,  SLUTA!y y END Pdata AB 821027% ߵ丼ǿ, ,ǀ1,ǀZj ,, +ݵ'P,ؚ ,,  SLUTA1 !1! GRUNDDAT Pdata AB 821027 >  ݰݰ*ݰ:ݰJݰZ`j, t~t~ tǠƏ' GAMMALT FORMAT:i' ,,ݸ,1ǥ]A$޵~~  NYTT FORMAT: ݵ ޵~~ 6#BYTE TILL DET NYA FORMATET J/N (N) ;Ə Jj5"# SYSTEM$--- SKRIV FORMAT --1- &Ǡ*($,,,ݸ,,,!*`A ǥ,--- TECKENTABELL ---.2޵~`4ǟ~,j~ 6f'8:--- INIT A$( ) ---<B--- H[MTA SFORMAT --- 1Dݵݵ(E"ݵt :FORMAT.DAT޸F FORMAT.DAT޸G#޸, Ű#޸, HT#޸,ƏJߟ U` jnޜ  x޸&Filen FORMAT.DAT finns ej !1y ~~*~:~J~Z}jzt ~y z yyyy y FORMAT.DAT޸G#޸, Ű#޸, HT#޸,ƏJߟ U` jnޜ  x޸&Filen FORMAT.DAT finns ej !A bA!x EDIT Pdata AB 821027' ǠǠ`P"? 2 <,2< 2< 2M2>% F|r {ndring av filen FORMAT.DATi W Egen rutin#2 :FORMAT.DAT޸A lM :FORMAT.DAT޸o#޸, ]#޸, c!T#޸,ߟ ` iޜii" 0" "SORTERINGSF\LJD OCH STANDARDFORMAT$&&Sorteringsf|ljd: 0 A2(Format:޵<iޜ<<"k8*[ [ndra . avslutaV{lj alternativ: ;~,..['z0,C2z݊`.!Fel ! Skall vara 96 tecken l}ng !40㵀cީzA _ @$ޖ 'z  ,ݸ ƌŒ 3劾( ޟ ǜ W/抾$  銾 ;^Aꊾ 1$޵ǜ W3ǀŒ;Œ!Filen FORMAT.DAT finns ej!Filen FORMAT.DAT felaktig]zޜ'& Ange radnr:;%A'zzݐziޜ+z zz"(;bz   *ޟ 'zzݐziޜmz\$ޜ2z݊ Az"zi iޜi Otill}tet tal, Tryck CE;  (# )#޸2 :FORMAT.DAT߸*#ݵcݵ]޵<8",#<"cc.#<]0#2##߸,]#߸,c 4##߸A,6#޵<]8##߸,<":#߸<# INITIERA>#Kan ej spara, felkod@# Tryck RETURN ;x1z z z"~2 <y MWy] c iyzyy yzyy y]0#2##߸,]#߸,c 4##߸Q Q 4 13 !"#$%&'()*+,-./0123456789:;<=>?AaBbCcDdEe@`FfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYy^~Zz]}[{\|_ ".",#0,".",$1 >1,I,/4,&I /G+5,#I,$1 ?AaBbCcDdEe@`FfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYy^~Zz]}[{\|_ ".",#0,".",$1 >1,I,/4,&I /G+5,#I,$1 ǀˆœ;ˆœ !2ǥީ L[SFIL======K?Denna rutin lq{ser data fr}n en fil och sparar dessa i registerb!Ingen insortering sker.ǫ,ݸ Ej insort/Ange filnamn: (.=tillbaks) ;ˆ. ˆ޸F4Ange antal rader i f|ljd i filen fq|r varje post: ;ൂM8ˆ'ސ Inl{sning p}g}r ! ޵_#޸,ƈˆˆߟ 0ˆ!F|r l}ngt f{ltˆ "ˆ 浦qP(Post nrinf|rd;G X"Felkod ޸!ᵦIg൦9\&L{gg programskivan i drive 0 Tryck RETURN ; INITIERAy y yyy"~2~B~qR~b~r}y z z zyyyyyyyyy Felkod ޸!ᵦIg൦9\&L{gg programskivan i drive 0 Tryck RETURN ; INITIERAy y yyy"~2~B~  !U# INMATA Pdata AB 820926 S65011 -✸,ݸ@"("8HNް"^#n*Z ݰ~ǀ~'Ǡ"ƔƞƨƲ snV{lj alternativ:CZ4,ǀ,ǀ,ǰ,ǰǰ,ݸ,޸ dR1n' ސ▆ REPARERAoN&p - - -q=,A,D,B$x,A,x+,A ޵ݵ$,A, "!,Aޜe $,A, ᵼ ( -" -H !n ; (I) ;0㵎cީž _  @$žޖ ž'  ,ݸ' Ʋ²  3劾(ž žžޟ ǜ /抾$¨¨ ¨ 銾 ;Lꟾ 1$޵ žǜ 3ǀž;ž²,,,.Ǣl0OI Inmata [ [ndra S S|k F Format B Backa nr G} till RETURN . Tillbaka 1݊<2Fel i format, rad$position#ޟ4$8#6޵ ⸼ 0-8 ݵ &@0-݊ ݊d&Aސ 0- ᵼB, KCN,Di'2E ,,,]B$F޵S8,;+H+݊,+J88+ޟ 8+ TޜP>Ange formatnummer (0) ; žWž'!ݐ 0-, +0,,< ᵼǥީ INMATA======-Registern nJPosterav)Format0 OrdningkcMed de nna rutin kan snabbinmatning av nya poster, samt efterhandsinmatning p} vissa f{lt utf|ras.!Ingen insortering sker.1ސ1޵19 From. f{lt (1) ?;ž 1ž'11ސ1 7ސ77G Tom. f{lt (7) ?;Až7Kž'77ސ7*ǫ,ݸ>Qmode0DർFർ?N Initiera.bac!ZݐݵᵼL\݊ ݵݵ^l>`ݵb ݐ* ;dež'f.B[SIFžޜ /%h-ž'ݐjlߵgnർWpᵼG " ޜޜ 浼 ޜ9,,ݸInmatning f{lt1-7-޵17 j" NH;G("#1ޟ (ž9lfxީ޵ݐ ݵbA݊,ީx17A;+B+1ޟDݵd􈀤ސ (*ž¨ž;"ޜfž  S\(žSޟ 'ސ4.Sž(žSޜ (ർ$ޜUީ6'⡜ Snabbs|kning; S|kning;- p} f{lt p} alla f{lt(S|kord ;”(”) ;%?;"󈕁ž”ž^ž 򈀸 $g) yy yy"y(~8~HyN~^~n~~}y zz z zyyyyyyyyyy  yy +y 1 7Sy ;”(”) ;%?;" & )8W-  \VERF\R Pdata AB 8211100 ՁՁ Floppytyp 0/1/2 (Supdos/8"/5") ՅօDrive nr 0-314f`% Omr{kning f|r Superdos$* StandardformI =\VERF\RING AV DATA FR]N BASREGISTER ABC TILL BASREGISTER 8003'L[GG EN BASREGISTER DATASKIVA I DRIVE 11'L[GG EN TOM, FORMATERAD SKIVA I DRIVE 0 TRYCK RETURN ; 00  L[S GAMLA DATA (!: 2ݵ:< @@݊@FFPL Z(R d޵:InXx^djj"p(޵"" ޵jRp޵d2,pp"d ޵޵PR:޵ VISA DATA 3 'DENNA RUTIN T\MMER SKIVAN I DRIVE 0 !!!* Printerbeteckning: $ Antal register:$" Formatets typ: ,F$6 Postl{ngd:@$@ Postbuffertl{ngd:$J Antal tecken per f{lt:^$TAntal tecken per rubrik:d$^ Antal f{lt per post:j$h Maxantal poster:X$r Aktuellt antal poster:L$|Antal sorteringsbegrepp:,!Tryck RETURN f|r mer information ; ޵j=ޜވp; ݖ SPARA NYA DATA * Du ska nu ha en formaterad skiva2 i drive 0. De!@ sista fysiska+#posterna f}r tyv{rr ej plats s}vida,$det inte {r fler sektorer i drive 0.&Tryck p} "!" f|r kopiering ; ! &^$^$0j*j*,:XǀJInv kat + B5%=BmaxLDDHur m}nga olika sorteringsordningar ska snabbt kunna anropas (1-5) ?>N5Ange ett heltal mellan 1 och 5, RETURN motsvarar 1: ;Xp0010#b0'0 ސ▆5AcAnge antal sektorer i drive 0:; ).l,!,!,,,,@m,޸,ݸ,$,$,d,d,*,*ё ,X,XNv,޸,ݸ,ݸ,ݸ,(,ݸ,@,@,,,X,X,L,L;,^,^,d,d,j,,޸, ,  : ޵j\pBApp #ppʑ pޟ C ,j޵je,pޜ޵p*$,p ޜ *!:  "% :Y *54r> 87H ޟ R,,\޵("f, ޜp@4zߜ,ݸ,ݸ,ݸ,ݸ,✵޵(", ޜK&:#'".",#0,".",$1' '>1,I,/4,&I' '/G+5,#I,$1''?AaBbCcDdEe@`FfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYy^~Zz]}[{\|_q޵`ǟ,q w':xMEttfyll,޸,จ2 filer$.,ݸ 8:B:QL,ݸ,ݸ,ݸ,ݸ,B,A,S,D,A,T,A, ,L,B,LOV휸,ݸ,ݸ,ݸ,ݸ,R,e,g,i,s,t,e,r,1, , $` BASDATA.LBL+Register.1 j::L t~Ettfyll윸,ݸ  浐#튾:,޵4SKRIV INV. INDEX1(XޟǀߜStartsektor posterOffset! HELKOPIA MED OFFSET I ;D ,9ޟǀ,9ޟǀNX39:BbLlJ y@yy݊ފ ފߊ  $A*A0z :A@y FyLyRy Xy ^ydyjyp~~y y yy)y9zy} )yZ ` qz ! yyyyz" 3! 9! J! yy݊ފ ފߊ  $A*A0z :A@y FyLyRy Xy ^ydyjyp~~y y yy)y9zy} )yZ ! REPARERA Pdata AB 830209# REPARERA========-!7 - Register:0 3݊ -݊ Registret finns ej!!;r - - - -" -($ -. Antal poster:.- ݊݊*** Fel i registret ***" 4 :*$Aktuell sorteringsordning::;&޵@4nOrdning;##@; : sekvens ;&(޵Q⸼/ @⡜Q;*Q␾-;,SB: SYSTEM<'=Ange registernummer: >ސ▆@,<buBEj Basreg skiva !HD4Denna rutin nollst{ller alla sorterings-ordningar (4st ).E.(YF(Antalet poster kommer att |ka till (, och vissa tomma poster kommergH_att bildas. N{r dessa eliminerats inne-h}ller registret alla aktuella poster i fysisk ordning.I8JForts{tt J/N (N) ;hhJhjK(.W.(:L޵r43t0,޸<bN---- ANTAL ----DRAnge antal poster: (.) ;hh .hTyh'@V@ݐ@"X X0霸,@,@"Z0,@,@\<b@.^ǥb-$`----- NOLLST[LL SORTORDN ----- dr:!e"ǀޜ:ޟ,f,޸,(,(fb:hݵݵ"ǀ+0jޜݵfbP#lޜ(ݵ%n ޟ,,ޜp t0霸,(,(v< ǥbx x%y  ݐ Ց y y y y"y (.y4 : @y Qy byhz ry   x ! ݵ%n ޟ,,ޜp t0霸,(,(v< ǥbx x%y  ݐ Ց d )0 BASINFO Pdata AB 830316/ ՁՁ Floppytyp 0/1/2 (Supdos/8"/5") DR0DR1 DrivenamnEf` SF0SF1Omr{kning f|r Superdos ,(<,f`  0,#L[SFEL DRIVE 16< B$)HH6ޟNH<ޟT(HBޟZ2ݵ`<޵flq A`F BASINFOPID#Z#lId:6-<;d ANTAL SEKT,n#l Antal sekt:B-;x ANTAL REG0#lH Antal reg:N-T; AKT REG!#lAkt reg:Z-FMAX,GMAX,HMAX,MMAX%#lFmax:6-<;#lGmax:B -;+#lHHmax:N -T;#lMmax:Z-b 5 REGISTER BASINFO - ;/#lRegister`H`r#l`0-݊ #l Ej upplagt !$#lTyp:6-<;##lFormat:Bߜ-;2#lH Postl{ngd:N-T;$"#l Bufl{ngd:Z-,,#l Max antal:6-<;&6#l Akt antal:B-;,@#lH Blockmax:N-,J#l F{ltl{ngd:6-<;&T#l Ledtl{ngd:B-;,^#lH Ant f{lt:N.h#l Ant index:6<;(r#l Akt index:B;5s#lHSystemets sektoroffset: |#l*#lIndex: Sektor: Sekvens:+޵#l ;*#lf-ޜUނ;#l;޵⸼?"#l⡜;⟾ #l-;#l#l*#l Poster sektor-;--ݍݍ Felaktigt !BA#l-܀}p =q6ނ&#llݵlfފB9U Utskrift RETU RN n{sta . ]terg} V{lj alternativ: ;Ƽ¼.'¼U¼u޵lf;`ݖfފ ߵf`ޜ``㊾ݵ`&0 Startsektor&:!In: J%=indexnr Ut: K=startsektorDx 6y -N -ޟǀߜޟ-X r rPR:< Printerkod (r) ; r ޸ ޵J Iy@yy݊ފ ފߊ  yy x%y  ݐ Ց $r޵`⸼=f` ` *0Sektor f|r ledtexterxC޵`0`0-`0 & `` >f`& p0Registernamn & printerkod "޵▧\,r6޵& @rr J T^ h] ޜ` 7#l `ޜ` ;` ޜ ld BASINFO - ;#lRegister`H Ledtexter;` ݊#l saknas#l#lP`0-(Z0'޵0ߵ0dߵiݵn}` x0ኾ#l<;z0ޖ#lH;]0ኾ#lT;@ #l X ;Y ǘ68Z/Ange registersystemnamn eller avsluta med ".";\ ();]: ;^Ƽ¼._¼¼ `:.KFG޸b(Kd#޸, ł#޸, ł#޸, ł#޸, ł#޸, ł#޸, ň f޸ finns ej!@!"B  %C(# ǙZ2# INITIERA1<#S{tt i programskivan! Tryck RETURN;F#ƼZ#  (0y6y< BHN!T)Z1`yf9l)r~y 9y y y yz 1z~Iz %C(# ǙZ2# INITIERA1<#S{tt i programskivan! Tryck RETURN;F#ƼZ#  ) T  BACKUP Pdata AB 8303082 ՁՁ !Floppytyp 0/1/2 (Superdos/8"/5") ՅօDrive nr 0-31 Ճ$Ճ, Cluster 1-323f`  Omr{kning f|r superdos0Ձ4%0/1 (alla sektorer/anv{nda sektorer))!<(<B F|r ABC800f# ✵<<B F|r ABC800 (<ޟH ORG till asmy2H,,,:,,,,:,,,,:,,,:,,,,޸,(,%,,, <H,,,:,,,,:,,,,,,,!,ݸ,ݸ,O,>,ݸ,),,),,Ǒ,8}FH0,,,,޸,ǁ,,,,,*,,,,,~,ǧ,!,ݸ,ݸ,4,:,,PHG,ǧ,(,,b,k,),),),=,(,,),),,,,,},,,dz,,,_;ZHև>,,f,`,*,,,&,ݸ, dݵN,ނNGml DOS%n S[KERHETSKOPIA (Back up)x============== Detta program kopierartill skivan i DRIVE 0fr}n skivan i DRIVE 1+!Alla utnyttjade sektorer kopieras+!Du har v{l r{tt skiva i drive 0 ?&Nuvarande inneh}ll p} skivan i%DRIVE 0 kommer att f|rst|ras.$JTTJTj_!,丈c p^J!Starta med utropstecken (!) elleravsluta med punkt (.) ;dd.d!$,! ^,N ^*,ݸ,Startadr.till bitmap"ݵn}B\:,, , ,,H`,fݵ6ݵBޟdn@,<JH݊Tߊ^h 㟾U*@ `޵f⸼``ޜ`h*A޵f`V`f VsDV PR:V6E Skrivarkod (V) ;Ƃ‚V F‚޸$P\nskas filstorlekarna;UPֈ@Zݵ޸>>_ݵ$ ,(d,f`c8nf`ފ݊m`--쟧\x ݵf츼f4f(f`ފ݂  y޵``R`݊傛9ݵ丼(`݊#J;#J#JUFD:;#JDR0 :;ݵݵ츼4ސ,f`m`--ퟧ  x ߜ-9 ޜ壜$ފޜ$$݊4ފ$݊Vf踼"Vf V&,5f븼65f 5;J5LBLG TVՁV  Ձ J&^#J Flexskiva: "J"B'h#Jօ;V.5;rD݊ su݊ފ $ $w,|f`$,ݵ`N߸?` *` __ޜP#J; ޜT&ݵS V #J#J,#J  sektorer kvar;3݊m`-ߜ݊m`--ݍ ީ/J#J +*ǨLǨ,޸ SYSTEM& 0ݵP?5 J/N (N) ;Ƃ:ݵD‚J‚j޵DDIPPJ y@yy݊ފ ފߊ  $ ,4} DyJy PyVz`y fy zyIIIyyxyyyy yy$y5zJz_y޵DDIPPJ y@yy݊ފ ފߊ  $)  LIBKOPIA Pdata AB 8303231 ՁՁ !Floppytyp 0/1/2 (Superdos/8"/5") ՅօDrive nr 0-31 Ճ$Ճ, Cluster 1-32 DR04DR1> DrivenamnEf` SF04SF1>Omr{kning f|r Superdos HǿX Dosbuf 7ǿ, Frist{ll(ݵ^*< KOPIERING AV FILER (LIBKOPIA)A==================Fdd d@P6Detta program kopierar filer fr}n drive 1 till drive 0:Zd.Endast filer med filtyp .d ber|rs$d1 - Kopiering av valda filer#n2 - Kopiering av alla filer x3 - T|m skivan i drive 0( 4 - V{lj filtyp (.BAC .DAT etc.) 0 - Avsluta SV{lj alternativ:n'12340.nޜAa  8Ange filtyp utan "." ;dddߟ da5Kopiering av alla filer fr}n drive 1 till drive 0 ;dmed extension .d/ Starta med ! ;xx!޵^5Alla kopieras% INNEH]LL DRIVE >:ݵݵީ&m`--݊ Inget UFD (,f`c  7f`,ނ݊m`--  "L{sfel drive 1 ݵ츼"H,ݵݵ츼6Hސ,@f`m`--ퟧ 4 J  TޜW݊^nᵰ踼hn nr鵰븼| UfdKFGdd ޜ;^݊0;###; n.;(nn  ޟ .*  ޟ >^݊3ޜTݵS nO^ފD ޵ޟ ,    ?7Ange filnr1,filnr2 ..... f|r filer som skall kopieras:  5409,  ; :2&   ޟ  ;n0g:⟵DސN$X%b Kopiering p}g}r, bryt med "."l ݊v ,4!4݊ ޜ4 , P" 4ޟ ': 4ޜ :ސ: ::;2: e kan ej kopieras  kopi eras ;~fel>::޸ ݵ@<4::߸5%޵ #޸,$Bm&%V K߸@sektorer* ..Kopiering avbruten *49>޵Qޟ H#߸,Q$@ޜ@SR8\), Skivan full4::fpzy&Tal ej till}tet! (:)z(Felaktigt tal! (; 4ޟ ) 4ޜ = Klar !'Feldrive;C#Tryck RETURN f|r forts{ttning eller"." f|r avslutning;nn.t T|m skiva=Skivan i drive 0 t|ms !Starta med utropstecken ;nn!,#f`$ނ#c`$ނ!$ݵ츼 ,ݸ^!. ,8i$ނM/@"ݵQ츼Q֌0,Bc`tLa*Vǿ,XEv sp{rra dosbuf 7WǨD $`L{gg programskivan i drive 0#jL{gg en dataskiva i drive 1t Tryck RETURN ;~x SYSTEMJ y@yy݊ފ ފߊ  $,4> H} X9^A dznzxz y~yyyy y yyz z )$~4y:y@yQy N ;~x SYSTEMJ y@yy݊)M g PREP Pdata AB 8302282 ՁՁ !Floppytyp 0/1/2 (Superdos/8"/5") ՅօDrive nr 0-31 Ճ$Ճ, Cluster 1-324f`% Omr{kning f|r Superdosև4Track, antal sp}rՂ<densitet (1/2)ՂDsidantal (1/2) FORMATERING (Prep) ===========/'Denna rutin formaterar skivan i drive 0!,丈cL7$Byt skiva i drive 0 - Tryck RETURN ;RB$Eventuellt inneh}ll i drive 0 kommeratt f|rst|ras !iLH "Starta med utropstecken (!), elleravsluta med punkt (.) ;"RR.$,R!&Formatering p}g}r !'Ladda assembler($ *-Bitmap +L,Formatering klar-."Skall skivan kontrolleras J/N (J) ;!0RRNRn2Skivan kontrolleras4ݵ\bF\36\s Fel p} sektor\8d: Skivan {r ok..%Skall fler skivor formateras J/N (N) ;!RRJRjǨP(Flytta dataskivan till drive 1$S{tt programskivan i drive 0 Tryck RETURN ;R SYSTEMJ Iy@yy݊ފ ފߊ . -y$yyf`ݡ. y$yyc`rݡ޵\ḼO8,'HD0123\:X.X޸޸ oݵL 'Kan ej formatera h}rddisk !!! ޵L66ݵ~$ނ~6ݵ\!6\~$ݵ6\b$傠6\޵6\ݵ6\ ,/6~y~h56ݵݵ\%\ ,\슾66~~N-6 ݵ\츼\ ,66ݵL78Skivan felaktig - Tryck RETURN ; R޵L>L% = Sista sektor>b >ݵQF>bb$傢$傠ނbb݊ b >b>,>%320,616,640,1232,1280,1976,2560,3978PFFormatera {ldre 5" RFL$TF,4<Dނ LUFB N,ǧp<ނ,>,ݸ,޸,,,,ݸ,ݸT"N ,2,ǃ,,2,ǟ,,,,,ݸ,!,|,,0,,!V$N,ǖ,,,@,,,@,,@,,,ǀ,,@,,T&N) ,:,޸,,,,DZ,O,,,Z,,,޸,,ǀ,(P(N9,,,,,,,,,,,Z,,,޸,,ḇV*NI, ,,,ݸ,F,#,~,#,,r,,,,,,V,NY, ,,,,,߸,,޸,,O, ,,x,,r,V.Ni,y,,r,,z,,r,,{,,,޸,,0,,B0Ny,,ݸ,,,ݸ,޸,,޸,ݸ,޸,ݸ,߸,ݸ,޸,,踇H2Nlj,,,ݸ,޸, ,ǀ,@,޸,,ݸ,,ݸ,,,ݸ,งD4NǙ,,޸,,޸,ݸ,޸,ݸ,޸,ݸ,޸,޸,޸,,,N,鸇G6Nǩ,ݸ,,,޸,,ݸ,@,;,@,޸,,ݸ,N,ݸ,N@7NǸ,޸,,,,4ނ,ݸ,,,),<8N,,,,,`,`,,,,9NUFormatera nya 5" och 8" UǸL"V $,4x<xDxLyRz \y by ~y yy ,N@7NǸ,޸,,,,4ނ,ݸ,,,),<8N)9w SYSKOPI Pdata AB 830317" Antal sektorer/access ǭ,޸ Ǩ,߸Tv}ng initiera ݵݵ&/Ǡ0#6#F0V0`ǰ,R,S,ݸ N$,D0/D1jp݊ Sys1 = dosb4-!YRj6 -------- MENY -------"'&L{gg en dataskiva i drive2V{lj enligt f|ljande:-4޵v⸼v = v6x56 6 = Kopiera hela registersystem  87 = Byt dataskivor: 0 = Avsluta<8 V.V0}#>V'vvސv䖆@v䊾Bv㊾ݵv Cv@Dݵ⸼7vv݊ ޲ ݲF t\Nwxyǭ,ݸp݊.z, ݫ#j,|-! ~- R$() in0݊X,Register {r upptaget!+F6Systemet initieras" kolla Ndosb3,, init klar"4& :޸$޸ Finns redan !&p& :޸H(#޸,#޸, #޸,#޸,ݸ#޸,ީ#޸,*޸ ,& :X- Kan ej l{gga upp systemet  !Tryck - RETURN;޵0A02---- KOMMANDO-INPUT ----4V{lj alternativ: ;060xީV _  8@:$Vޖ V' < V>---- INPUT ---- V,ݸNollst{ll GET'  pp V3p劾(V VVޟ Vǜ j/p抾$`` p``p p銾 ;<pꟾ `1p$޵Vǜ jQppǀV0';Vp_ p@ V !2j ǭ,ݸSj/ ޵vv = vFL 1Ange registernr kopieringen skall ske till 1-5 ;p0 *V'ݖ㐈 ju Fixa sys0 ݵ ݵ& ݵ, ޵v⸼v0 -݊ v,ޜ, - -!    -&& . =F ,,,ݸ,,ݸ,,,,, ,ݸ,&,& 5 Registersystemet  finns ej!+ "Skall systemet initieras J/N (N) ?; VJ ޲ ' -- Ant bef sekt till N --.( ݂ᐾ.KFG:- ޟ24-39 (en bit x) / 2 ޵⸼e$4 jS1,S2,R%(a%)=0,1;5 ! (en bit x)6 ?< N=tot ant sektZ 0[ ݊ ݲ\ - Startsek^ -0-NS` -N0܀}p =qN-ޟǀߜނb # --- testa om N<=plats dr0 ---  Z L{s bitmap 0 YF5,F6 Ok ݊9 2& : ݵ''/6 -Registersystemet f}r ej plats p} denna skiva; TFE  om skivan ej "st{das" genomkopiering till annan skiva.; Tryck RETURN ;;.S )---- sub m{rk/frist plats bitvektor ----T U '\rEV ,ݫj,skriv bitmap0*g %----- m{rk/frist bitmap K0%-L0% ----+h ݊\.ݖ \ޟ\Ai \\/ޟ/ (en bit x)j \v/*k vݵpp ;l vp.݊v/䟐mv䜵vCn sp vp mr mssmt vp ,mv ^x  @y7yyyy ǭ, i上ݸ  yQyyyyy ފ  TEST  ǭ, f帊ݸ  skriv S$( ), ǭ,ݸ $,߸,,ݸ,,ݸ,޸ `Sj( f& 婵j >g9---- Antal sektorer lediga (F6) & tillg{ngliga (F5) ----h݂Tݵp>jݵvނcvp ,jD@---- L{s namn ---- v!"v v   &.KFG----- \ppna N$ -----C!&ǭޜ:޸K#޸, v#޸, Ź#޸, v#޸, v#޸, v#޸, Ŀ޸ ފݵ Bitmap-6 ǭvV-v,v,,ݸ,v,ݸ,ݸ,v,ީ,ީ,v,,޵pN$ OK!ǭvv vv v݂3Eݵp޸p SYSKOPIZr"Detta program kopierar hela, ellerdelar av registersystem  .tXYw'ZKopiera fr}n drive 0/1 (1) ?;\p]V1V^V'.bKopiera till drive 0/1 () ?;fypRgV V'h& V&`i `&V& j &`& &V&klV.mVV0V1njypp&@!---- Heltal => Pos. flyttal ----Jx%y Tݐ Ց^'#---- FEL Z% ----(#ǥj j'9 y z& 0y 6~F~Vz `z jypyvy yy }}8yy  ||y (' / @|fz{xxyyx!8AxyyzII I&I ,y= NyT0\ m s j" "渇2<gSɇF)xError  f|rs|k igenzzֈmRUN START ֈI  Ange med korrekt syntax,BASIC-sats som skallutf|ras vid reset #,d#,""2O@2 FASTIGHETSKORT sid 1 MILO . F\RV . K-NR  HUNR  L[NR  BEL1  BEL2  BY]R  OM]R  TAXV  BTYP  RYTA  ANTR  K\KS  BUTR  TIL1  TIL2  TIL3  TIL4  TIL5  TIL6  TIL7  GARG  SPIS  KYL  2 SK]P  KFL[  WC  GARD  V[RM  \SPI  BALK  BAD  GOL1  GOL2  GOL3  GOL4  KALL  TOTH  BR[N  EL  HYRG  ADR1  ADR2  INFL  ]TT1  ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 2 MIL2O \ F\RV SK K-NR K0065 HUNR 138 L[NR 1 BEL1 ROSENBERGSG 1 BEL2 18500 VAXHOLM BY]R 1900 OM]R 1940/54 TAXV ---- BTYP FLER-FAMILJ RYTA 185 KVM ANTR 6 ST K\KS K\K 1 ST BUTR ---- TIL1 MATK[LLARE TIL2 VINDS- E2L K[LLARKONT. TIL3 MASKINTV[TTSTUGA TIL4  TIL5  TIL6  TIL7  GARG 75 KR/M]N SPIS EL KYL KYLSK]P 110 L SK]P JA KFL[ JA WC 2 ST GARD ---- V[RM CV--EO1 \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PA2RKETT GOL3  GOL4  KALL 1980.00 KR/M]N TOTH 2965.55 KR/M]N BR[N 49.5 EL JA HYRG ADLER SVEN-]KE ADR1 ROSENBERGSG 1 ADR2 18500 VAXHOLM INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT s2id 3 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 1 BEL1 GRENADJ[RV[GEN 6 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 79 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL22 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 2 PARKETT GOL3  GOL4  KALL 932.00 KR/M]N TOTH 1384.20 KR/M]N BR[N 24.9 EL JA HYRG M\LLER RUT ADR1 GRENADJ[RV[GEN 6 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETS2 KORT sid 4 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 10 BEL1 GRENADJ[RV[GEN 6 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 103 KVM ANTR 4 K\KS K\K (1) BUTR ---- TIL1 MATK[LL2 ARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 2 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEU2 M GOL2 PARKETT GOL3  GOL4  KALL 1183.00 KR/M]N TOTH 1740.50 KR/M]N BR[N 30.7 EL JA HYRG MATTI B ADR1 GRENADJ[RV[GEN 6 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FAS2 TIGHETSKORT sid 5 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 11 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 103 ANTR 4 K\KS K\K (1) BUTR HALL TIL1 MATK2 [LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 2 GARD ---- V[RM CV-VV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 L2INOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1183.00 KR/M]N TOTH 1740.50 KR/M]N BR[N 30.7 EL JA HYRG PETTERSSON ULLA-BRITT ADR1 GRENADJ[RV[GEN 4 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM21  KOM2  FASTIGHETSKORT sid 6 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 12 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 83 KVM ANTR 3 K\KS K\K (1) 2BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ B2AD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 960.00 KR/M]N TOTH 1430.35 KR/M]N BR[N 25.9 EL JA HYRG RASK G A ADR1 GRENADJ[RV[GEN 4 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3 2 KOM1  KOM2  FASTIGHETSKORT sid 7 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 2 BEL1 GRENADJ[RV[GEN 6 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 100 KVM ANTR 4 K\KS K\K(21) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 2 GARD ---- V[RM CV-EO \SPI NEJ BALK N2EJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1171.00 KR/M]N TOTH 1715.80 KR/M]N BR[N 30.0 EL JA HYRG N[SLUND E ADR1 GRENADJ[RV[GEN 6 ADR2 18502 OSKAR-FREDRIKS INFL 570401 ]TT1 TRAPPST[DNING ]TT2 2 ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 8 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 3 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 100 KVM ANTR 4 2K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 2 GARD ---- V[RM CV-EO \SPI NE2J BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1181.00 KR/M]N TOTH 1725.80 KR/M]N BR[N 30.0 EL JA HYRG ANDERSON SIV ADR1 GRENADJ[RV[GEN 4 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[D2NING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 9 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 4 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 79 KVM 2 ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 1 GARD ---- V[RM CV-V2V-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 932.00 KR/M]N TOTH 1384.20 KR/M]N BR[N 24.9 EL  HYRG HEDFORS SVEN ADR1 GRENADJ[RV[GEN 4 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT21 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 10 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 5 BEL1 GRENADJ[RV[GEN 6 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ R2YTA 83 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ JA WC 1 GARD ---- 2 V[RM CV-VV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 960.00 KR/M]N TOTH 1430.35 KR/M]N BR[N 25.9 EL JA HYRG NORDB[CK EDVIN ADR1 GRENADJ[RV[GEN 6 ADR2 18502 OSKAR-FREDRIKS 2INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 11 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 6 BEL1 GRENADJ[RV[GEN 6 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP 2 FLER-FAMILJ RYTA 103 KVM ANTR 4 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ W2 C 2 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1173.00 KR/M]N TOTH 1730.50 KR/M]N BR[N 30.7 EL JA HYRG STEIN GEORG ADR1 GRENADJ[RV[GEN 6 ADR2 18502 OSKA2!R-FREDRIKS INFL  ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 12 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 7 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---2"- BTYP FLER-FAMILJ RYTA 104 KVM ANTR 4 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[2# JA WC 2 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1173.00 KR/M]N TOTH 1734.15 KR/M]N BR[N 30.9 EL JA HYRG ST]LVING BENGT ADR1 GRENADJ[RV[GEN 4 ADR2 2$ 18502 OSKAR-FREDRIKS INFL 631116 ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 13 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 8 BEL1 GRENADJ[RV[GEN 4 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 2% 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 82 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L 2& SK]P JA KFL[ JA WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 951.00 KR/M]N TOTH 1415.90 KR/M]N BR[N 25.6 EL JA HYRG MAGNELI PER ADR1 GRENADJ[RV[2'GEN 4 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 14 MILO \ F\RV SK K-NR K0068 HUNR 4 L[NR 9 BEL1 GRENADJ[RV[GEN 6 BEL2 18500 OSKAR-FREDRIKS BY]R 12(906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 82 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLS2)K]P 110L SK]P JA KFL[ JA WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 960.00 KR/M]N TOTH 1424.90 KR/M]N BR[N 25.6 EL JA HYRG LUNDQVIST AGDA ADR1 2* GRENADJ[RV[GEN 6 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 15 MILO \ F\RV SK K-NR K0068 HUNR 5 L[NR 1 BEL1 GRENADJ[RV 12 BEL2 18502 OSKAR-FREDRIKS 2+ BY]R 1906 OM]R 1947 TAXV ---- BTYP FLERFAMILJ RYTA 79 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONTOR TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL 2,KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 910.00 KR/M]N TOTH 1362.20 KR/M]N BR[N 24.9 EL JA HYRG MALMBERG HAR2-RY ADR1 GRENADJ[RV 12 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 16 MILO \ F\RV SK K-NR K0068 HUNR 5 L[NR 2 BEL1 GRENADJ[RV[GEN 12 BEL2 18502 OSKA2.R-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 100 KVM ANTR 4 K\KS K\K (1) BUTR HALL TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ 2/ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 2 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1215.00 KR/M]N TOTH 1759.80 KR/M]N BR[N 30.0 EL JA HYRG20 ANDERSSON INGRID ADR1 GRENADJ[RV[GEN 12 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 17 MILO \ F\RV SK K-NR K0068 HUNR 5 L[NR 3 BEL1 GRENADJ[RV[GEN 1210 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 100 KVM ANTR 4 K\KS K\K (1) BUTR HALL TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  22TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 2 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM,DUSCHRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 1131.00 KR/M]N TOTH 1675.80 KR/M]N 23 BR[N 30.0 EL JA HYRG BLOMBERG ]KE ADR1 GRENADJ[RV[GEN 10 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 18 MILO \ F\RV SK K-NR K0068 HUNR 5 L[NR 4 24 BEL1 GRENADJ[RV[GEN 10 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 80 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS TIL4 MASKINTV[TTSTU25GA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 930.00KR/M]N TOTH 138267.65 KR/M]N BR[N 25.2 EL JA HYRG LUNDBERG CARL-EVERT ADR1 GRENADJ[RV[GEN 10 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 19 MILO \ F\RV SK K-NR K0068 27 HUNR 5 L[NR 5 BEL1 GRENADJ[RV[GEN 12 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 82 KVM ANTR 3 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKONT. TIL3 UTHUS 28TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 PARKETT GOL3  GOL4  KALL 930.2900 KR/M]N TOTH 1387.65 KR/M]N BR[N 25.2 EL JA HYRG HJALMARSSON KJELL ADR1 GRENADJ[RV[GEN 12 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT sid 20 MILO \ F\RV 2: SK K-NR K0068 HUNR 5 L[NR 6 BEL1 GRENADJ[RV[GEN 12 BEL2 18502 OSKAR-FREDRIKS BY]R 1906 OM]R 1947 TAXV ---- BTYP FLER-FAMILJ RYTA 103 KVM ANTR 4 K\KS K\K (1) BUTR HALL TIL1 MATK[LLARE TIL2 VINDS-EL K[LLARKON2;T. TIL3 UTHUS TIL4 MASKINTV[TTSTUGA TIL5  TIL6  TIL7  GARG NEJ SPIS EL KYL KYLSK]P 110L SK]P JA KFL[ NEJ WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM,DUSCHRUM GOL1 LINOLEUM GOL2 PARKETT 2<GOL3  GOL4  KALL 1149.00 KR/M]N TOTH 1706.50 KR/M]N BR[N 30.7 EL JA HYRG SANDELL SVEN ADR1 GRENADJ[RV[GEN 12 ADR2 18502 OSKAR-FREDRIKS INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  FASTIGHETSKORT 2=sid 21 MILO \ F\RV SK K-NR K0831 HUNR 415 L[NR 5 BEL1 RIND\V[GEN 12 BEL2 18500 VAXHOLM BY]R 1897 OM]R 1948 TAXV ---- BTYP FLER-FAMILJ RYTA 74 KVM ANTR 2 K\KS K\K (1) BUTR ---- TIL1 MATK[LLARE TIL2 VIND2>S-EL K[LLARKONTOR TIL3 MASKINTV[TTSTUGA TIL4  TIL5  TIL6  TIL7  GARG NEJ SPIS EL,3 PLATTOR KYL KYLSK]P 70L SK]P JA KFL[ NEJ WC 1 GARD ---- V[RM CV-EO \SPI NEJ BALK NEJ BAD BADRUM GOL1 LINOLEUM GOL2 2?PARKETT GOL3  GOL4  KALL 940.00 KR/M]N TOTH 1441.75 KR/M]N BR[N 25.2 EL JA HYRG JANSSON CAROLA ADR1 RIND\V[GEN 12 ADR2 18500 VAXHOLM INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  LINOLEUM GOL2 2@ GOL3  GOL4  KALL 940.00 KR/M]N TOTH 1441.75 KR/M]N BR[N 25.2 EL JA HYRG JANSSON CAROLA ADR1 RIND\V[GEN 12 ADR2 18500 VAXHOLM INFL ---- ]TT1 TRAPPST[DNING ]TT2  ]TT3  KOM1  KOM2  LINOLEUM GOL2 B`BRRbb