??SYSDIR SYS START SQ  M[RK BAC M[RK1 5  bc '? a8c 7START R1.29 820224,Start f|r ADMINISTRATION 800,830103",6@JT^KhrƂք@ Մփ F*քփ *քև*ք փ *ք և **J*F*<____________________________________________________________֋z | ƣrr#ߵḼ0 0 ¾0¾9‚¾޵‚ޟa  oM A‚ޜ ߜr£ީ##yg]rޜr"P5MY&F.K; EnU  Menyfel:  _  0 h.#ߜrV%/9/CީMMC9 0START9C%%.݊%.BAC%ݵZZM %XXީZZ~9 0PROGRAMg DATAgPlacera gskiva 9 i drivenhet 9 .gg Allt klartJ MTC9M% ߵḼ" ,000 0m-| 0,|,|,ݸ,ݸ % ))))))C6#1#$ޟ 5%0z ¾ ƾ¾  m# z N C! Y! 0123456789!6V CUCH 0123456789!6Vo CUCH ,Z,R,J,B,:,2Tid:) Godk{nnes:J   yyߡޟ' SYSTEM.EGNX SYSTEM.EGNX#X,ߟ #X,,6  @JT^#X,ߟ h#X,ߟ #SYSTEMFEL: KAN EJ FORTS[TTA (19080) ;) SYSTEM.EGNX#X,- s{tt f|retagsnamn! -#X,9PR:VSA30D72.5,Mx80,80,72,0,21.51,01234,000100 60 20 0,SK#X styckkilo #XDR1:XFilen skriven!E*@yy .ݖ  0*R*****P 'L'ݐ d'mᣜ݊閆 ݸ޵&+ޜ݊ݸ 'z(W'Rz z)!(O'*> ','; ';ީADMINISTRATION 800,0" #,ADMINISTRATION 800,SYSTEMMENY#,M><8,1REDOVISNING,2LAGER,3KUND,4ORDER,5FAKTURA / KUNDRESKONTRA-+6LEVERANT\RSRESKONTRA,7SYSTEMV]RD,0AVSLUTA%#4,11,24,**************************#!12,24 ,* TACK F\R IDAG! *#!13,24,************************** 20,0,,'%#1,P,VERIFIK.,1REDOVISNING,CREDOV,,, #2,P,LAGER.DAT,1LAGER,COFL,,,&$#3,P,KUND.DAT,1KUNDREGISTER,COFL,,,)'#4,P,OHUVUD.DAT,1ORDERREGISTER,COFL,,,)'#5,P,RESKON.DAT,1KUNDR EGISTER,COFl,,,,*(#6,P,LEVREG.DAT,1LEV.RESKONTRA,COFL,,,,#7,M0.6,1SKAPA DATASKIVA,2GLOBALA PROGRAMEGENSKAPER423PROGRAMEGENSKAPER (OFL),4BLANKETTGENERATOR (OFL)" 5ST[LL KLOCKAN,0TILL SYSTEMMENY$"#71,M,3,1REDOVISNING 800,2OFL 8000]TER TI LL SYSTEMMENY#711,P,CREDOV,,,#712,P,COFL,,,,#72,P,COFL,,,#73,P,COFL,,,#74,P,COFL,,,,#75,K##,E2,10,15,"Datum (}}mmdd) :"12,15,"Tid (ttmmss) :"yZ%tyz(z,y 喾ߵ޵1  &P+Ky zP޵#1"9$:@;ݸ!Y+ ;ݵBݸ_+Z   ;P ;"  - "P;ݸ'&"z P;ݸ %z yyy yyzzzz2O X ݊ ;-> g ;  %  ;Vald rutin h{mtas ; V{lj ( siffra RETURN ) 4(/  yݵQQp,k   y (J/N)? ujJnN1VQP;  jJޖZ,SRLy$Gz y >  < P;ݸ((#yyzz; UB,Pzzyyy,yy,,zPy yzyy,!-NFީQީ ޵/ '    '    AV -޵ ސ޵ ޜ ݊ީ -   ?  ޜ;^ ݖ ݵQ ǀ'ꊽ޵ݵ ީ 劧抧P .  :޵ݖ+ޟ ݵ ݵ  ݊] RhލB! CUCHEXCDCEߡޟݵQAV ݵߵݵ --"" "P.. "  <.H.݊ ZP.. .. ݊09 ;  ޟ AVe 0.00. P..ߟޟ ޜLޜ ݵ ݵ P0FPH.  - @@ݐݵ@@;^ *'yzyz xSPR8,,9,,8,,9,,8,,9,g,8,,9,渔<);݊ ;-y zyzzy00 -  . ݊ ޜ ៵޸੸ ,ޜj-yyyyzzy y yyyy ޜޜ Nߡޜ y *y (=y {;ݸ-y#c#cP*;xy=y*yP.݊#c#c ;#c#cP* ;Z.y z .iy y ,ߜ-ݵ3xPߜ,,,P,ݸ",6@JT^hr %/9CMZg|  @Q^hy,P,ݸ",6@JT^hr %/9CMZg| IK.,1REDOVISNING,CREDOV,,, 26020 DATA #2,P,LAGER.DAT,1LAGER,COFL,,, 26030 DATA #3,P,KUND.DAT,1KUNDREGISTER,COFL,,, 26040 DATA #4,P,OHUVUD.DAT,1ORDERREGISTER,COFL,,, 26050 DATA #5,P,RESKON.DAT,1KUNDREGISTER,COFl,,,, 26060 DATA #6,P,LEVREG.DAT,1LEV.RESKO NTRA,COFL,,,, 26110 DATA #7,M 26120 DATA 6,1SKAPA DATASKIVA,2GLOBALA PROGRAMEGENSKAPER 26122 DATA 3PROGRAMEGENSKAPER (OFL),4BLANKETTGENERATOR (OFL) 26128 DATA 5ST[LL KLOCKAN,0TILL SYSTEMMENY 26140 DATA #71,M,3,1REDOVISNING 800,2OFL 800 26141 DATA 0]TER0"?0aDxք@  START.BAC޸N:KONTROLLERA ATT PROGRAMSKIVAN A800/NET FINNS TILLG[NGLIG! ; Մ ANGE M[RKE:ք ;60AR<< #޸,,#޸,Ձ#SR0U#Pzzyyyq$yy$$zPy yzyy$%NFީ"ީ ޵/ '   '  b  AV -޵ ސ޵ 0ޜ ݊ީ -   ?  ޜ;(ݖ ݵ" ǀ'ꊽ޵ݵ ީ 劧抧P . 0 :޵ݖ+ޟ ݵ ݵ ݊] R2ލB! CUCHEXCDCEߡޟݵ"8AV 0ݵߵݵ --"" "P.. " <.H.݊ ZP.. .. ݊09 ; 0 ޟ AVe 0.00.ޟP..ߟޟ ޜLޜ ݵ ݵ P0FPH0.  - BBݐݵBB;8("yzyzxSPR8,,9,,8,,9,,8,,9,g,8,,9,渆 ;0"(28B- BBݐݵBB;8("yzyzxSPR8,,9,,8,,9,,8,,9,g,8,,9,渆 ; )") 30514 IF FNGet$<>CHR$(24%) THEN 30514 ELSE ; CUR(23%,0%) SPACE$(80%); : RETURN 0% 30516 FNEND 30520 DEF FNIc$(R%,P%,A$,B$) : ; CUR(R%,P%); : RETURN FNIn$(A$,B$) 30550 FNEND 30560 DEF FNIn$(A$,S$) LOCAL ]%,X%,Q%,Fst%,A%,T%,Sn$=1,Start$=4,B$=80,L%, *P%,C$=1,C%,Q%,Sign%,Sf% 30570 Funk$="NF" : Nofunk%=-1% : Fst%=-1% : ]%=1% 30580 ON ERROR GOTO 30600 : A%=VAL(LEFT$(A$,1%)) : T%=ASCII(RIGHT$(A$,2%)) 30590 A%=VAL(LEFT$(A$,2%)) : T%=ASCII(RIGHT$(A$,3%)) 30600 ON ERROR GOTO : Sn$=RIGHT$(A$,LEN(A$)) : + Start$=FNL{scur$ 30601 B$=S$ : IF LEN(B$)>A% B$=LEFT$(B$,A%) 30602 IF T%=65% OR T%=86% GOTO 30610 30605 IF ASCII(B$)=45% THEN Sign%=1% : B$=RIGHT$(B$,2%) 30610 L%=LEN(B$) : IF P%<1% P%=1% ELSE IF P%>L% P%=L%+1% 30615 IF L%+Sign%=0% Fst%=-1% 30620@?@aDxք@  YMSTART.BAC޸N:KONTROLLERA ATT PROGRAMSKIVAN A800/NET FINNS TILLG[NGLIG! ; Մ ANGE M[RKE:ք ;60AR<< #޸,1#޸,Ձ#SR@U#Pzzyyyq$yy$$zPy yzyy$%NFީ"ީ ޵/ '   '  b  AV -޵ ސ޵@ ޜ ݊ީ -   ?  ޜ;(ݖ ݵ" ǀ'ꊽ޵ݵ ީ 劧抧P . @ :޵ݖ+ޟ ݵ ݵ ݊] R2ލB! CUCHEXCDCEߡޟݵ"8AV @ݵߵݵ --"" "P.. " <.H.݊ ZP.. .. ݊09 ; @ ޟ AVe 0.00.ޟP..ߟޟ ޜLޜ ݵ ݵ P0FP@H.  - BBݐݵBB;8("yzyzxSPR8,,9,,8,,9,,8,,9,g,8,,9,渆 ;@"(28B- BBݐݵBB;8("yzyzxSPR8,,9,,8,,9,,8,,9,g,8,,9,渆 ; 5%) 30940 OUT 56%,14%,57%,SWAP%(X%),56%,15%,57%,X%,56%,10%,57%,103%,56%,11%,57%,9% 30950 ; CUR(0%,60%) TIME$; : IF SYS(5%)=0% THEN 30940 30960 GET A$ : ; S$; : RETURN A$ 30970 FNEND 30980 DEF FNFormat$(L%,A$,P%) LOCAL B$=30,S$=1,X% 30990 B$=A$ : IF 6 B$="" B$="0" 31000 B$=ADD$(B$,"0",P%) 31010 S$=LEFT$(B$,1%) : IF S$="-" B$=RIGHT$(B$,2%) ELSE S$="" 31020 X%=INSTR(1%,B$,".") : IF X%=0% X%=LEN(B$)+1% 31030 FOR I%=X%-4% TO 1% STEP -3% 31040 B$=LEFT$(B$,I%)+","+RIGHT$(B$,I%+1%) 31050 NEXT I% 31 7060 B$=S$+B$ : RETURN SPACE$((LEN(B$)-L%)*(L%>LEN(B$)))+B$ 31070 FNEND 31080 DEF FNScroll%(G%,H%,C%,D%,R$) LOCAL R$=1,I%,J%,A%,B%,F%,K% 31090 J%=D%+1% : I%=C%+1% : K%=J%-C% : F%=(R$="N")*2%+1% : A%=H% : B%=G% : IF NOT F% A%=G% : B%=H% 31100 FOR ]%= 8A%+F% TO B% STEP F% : MID$(Srad$(]%-F%),I%,K%)=MID$(Srad$(]%),I%,K%) : NEXT ]% : ; CUR(B%,C%) SPACE$(K%); : RETURN 0% 31110 FNEND 31120 DEF FNDump$ LOCAL P% 31130 ; #99% : ; #99% STRING$(80%,42%); 31140 FOR ]%=30720% TO 32639% : P%=PEEK(]%) AND 127% 9 : IF P%=127% P%=42% 31150 IF MOD(]%,80%)=0% ; #99% 31160 ; #99% CHR$(P%); : NEXT ]% : ; #99% : ; #99% STRING$(80%,42%) CHR$(12%); : RETURN "" 31170 FNEND 31180 DEF FNSpace$(L%,A$)=LEFT$(A$+SPACE$(L%),L%) 31190 DEF FNNinit$ LOCAL K%,]% 31200 DIM S :rad$(23%)=0% : K%=PEEK2(VAROOT(Srad$(0%))+2%) 31210 FOR I%=0% TO 23% : ]%=30720%+I%*80% : POKE I%*6%+K%+2%,]%,SWAP%(]%),80%,0% : NEXT I% 31220 RETURN "" 31230 FNEND Space$(L%,A$)=LEFT$(A$+SPACE$(L%),L%) 31190 DEF FNNinit$ LOCAL K%,]% 31200 DIM S ;%)=0% : K%=PEEK2(VAROOT(Srad$(0%))+2%) 31210 FOR I%=0% TO 23% : ]%=30720%+I%*80% : POKE I%*6%+K%+2%,]%,SWAP%(]%),80%,0% : NEXT I% 31220 RETURN "" 31230 FNEND Space$(L%,A$)=LEFT$(A$+SPACE$(L%),L%) 31190 DEF FNNinit$ LOCAL K%,]% 31200 DIM S0?0175 ; CHR$(12) : ; CUR(8,5) STRING$(70%,42%) : ; CUR(9,5) "*" CUR(9,74) "*" CUR(10,5) "*" CUR(10,74) "*" 180 ; CUR(11%,5%) "*" CUR(11%,74%) "*" CUR(12%,5%) STRING$(70%,42%) 190 ; CUR(10%,10%) "___________________________________________________________0_" 195 FOR I=0 TO 2000 : NEXT I $(70%,42%) : ; CUR(9,5) "*" CUR(9,74) "*" CUR(10,5) "*" CUR(10,74) "*" 180 ; CUR(11%,5%) "*" CUR(11%,74%) "*" CUR(12%,5%) STRING$(70%,42%) 190 ; CUR(10%,10%) "___________________________________________________________0FOR I=0 TO 2000 : NEXT I $(70%,42%) : ; CUR(9,5) "*" CUR(9,74) "*" CUR(10,5) "*" CUR(10,74) "*" 180 ; CUR(11%,5%) "*" CUR(11%,74%) "*" CUR(12%,5%) STRING$(70%,42%) 190 ; CUR(10%,10%) "___________________________________________________________