|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 5056 (0x13c0)
Types: TextFile
Notes: Mikados_K
Names: »VIRK.K«
└─⟦385f097a1⟧ Bits:30008988 SPC/1 COMAL programmer til bogføring
└─⟦this⟧ »VIRK.K«
0010PROC DATOCHECK(NR5,OK5) 0015OK5=E 0020ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 0025MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 0030DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 0035IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B 0040IF OK5=B THEN EXIT 0045CASE MÅNED OF 0050WHEN 4,6,W,11 0055IF DATO>30 THEN OK5=B 0060WHEN G 0065IF DATO>29 THEN OK5=B 0070IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B 0075ENDCASE 0080ENDPROC 0100PROC CHECK(NR1,OK1) 0110OK1=B 0115RESULT=B 0120IF LEN(NR1$)>B THEN 0130IF NR1$(E)="-" THEN 0140FORTEGN=-E 0150OK1=E 0160ELSE 0170FORTEGN=E 0180ENDIF 0190WHILE LEN(NR1$)>OK1 0200OK1=OK1+E 0210IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN 0220FORTEGN=B 0230OK1=LEN(NR1$) 0240ENDIF 0245RESULT=RESULT*10+ORD(NR1$(OK1))-48 0250ENDWHILE 0260OK1=OK1*FORTEGN 0270IF OK1<B THEN OK1=OK1+E 0280ENDIF 0290ENDPROC 0300PROC INOPL(OPL) 0305EXEC INLINE(OPL) 0310CASE OPL OF 0315WHEN E 0320POST1$(E,7)=LINE$ 0325WHEN G 0330POST1$(8,32)=LINE$ 0335WHEN V 0340POST1$(33,55)=LINE$ 0345WHEN 4 0350POST2$(E,4)=LINE$ 0355WHEN 5 0360POST2$(5,18)=LINE$ 0365WHEN 6 0370POST2$(19,24)=LINE$ 0375WHEN 7 0380POST2$(25,34)=LINE$ 0381WHEN 8 0382REPEAT 0383EXEC DATOCHECK(LINE$,J) 0384IF J=B THEN EXEC INLINE(OPL) 0385UNTIL J>B 0386DAD$=LINE$ 0387ENDCASE 0390ENDPROC 0395PROC SKRIVOPL 0400IF OUTP=B THEN CLEAR 0405FOR J=E TO A 0410CASE J OF 0415WHEN E 0420LINE$=POST1$(E,7) 0425WHEN G 0430LINE$=POST1$(8,32) 0435WHEN V 0440LINE$=POST1$(33,55) 0445WHEN 4 0450LINE$=POST2$(E,4) 0455WHEN 5 0460LINE$=POST2$(5,18) 0465WHEN 6 0470LINE$=POST2$(19,24) 0475WHEN 7 0480LINE$=POST2$(25,34) 0481WHEN 8 0482LINE$=DAD$ 0485ENDCASE 0487IF OUTP=B THEN 0490EXEC OUTLINE(J) 0491ELSE 0492EXEC OUTPLINE(J) 0493ENDIF 0495NEXT J 0500ENDPROC 0505PROC OUTLINE(N) 0510CURSOR X(N),Y(N) 0515PRINT USING "### ":N; 0520PRINT PICT$(N); 0525CURSOR X(N)+25,Y(N) 0530PRINT LINE$ 0535ENDPROC 0540PROC INDVIRK 0545OPEN FIL$,W 0550EXEC FEJL(B,B,FIL$) 0555GET FIL$,E:POST1$ 0560GET FIL$,G:POST2$,SLJNR,MLMNR,ATPLM 0563GET FIL$,V:DAD$ 0565ENDPROC 0570PROC UDVIRK 0575PUT FIL$,E:POST1$ 0580PUT FIL$,G:POST2$,SLJNR,MLMNR,ATPLM 0583PUT FIL$,V:DAD$ 0585CLOSE FIL$ 0590EXEC FEJL(E,B,FIL$) 0595ENDPROC 0600PROC FEJL(P1,P2,P3) 0605IF STATUS(P3$)<>B THEN 0610OUTPUT T 0615PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 0620STOP 0625ENDIF 0630ENDPROC 0680PROC INLINE(N) 0690REPEAT 0700CURSOR X(N),Y(N) 0705PRINT USING "###":N; 0710PRINT BL$(X(N)+V,79) 0720CURSOR X(N)+4,Y(N) 0730PRINT PICT$(N) 0740CURSOR X(N)+25,Y(N) 0750INPUT "",LINE$ 0760IF TYPE(N)<B THEN 0770IF LEN(LINE$)<=ABS(TYPE(N)) THEN 0780OK=E 0790FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) 0800LINE$(I)=" " 0810NEXT I 0820ELSE 0830OK=B 0840ENDIF 0850ELSE 0860EXEC CHECK(LINE$,OK) 0870IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B 0880ENDIF 0890UNTIL OK<>B 0900ENDPROC 0910PROC SKRIVPICT 0920CLEAR 0930FOR I=E TO A 0940CURSOR X(I),Y(I) 0945PRINT USING "### ":I; 0950PRINT PICT$(I) 0960NEXT I 0970ENDPROC 0975PROC OUTPLINE(N) 0977PRINT TAB(X(N)); 0979PRINT USING "### ":N; 0981PRINT PICT$(N);TAB(X(N)+25);LINE$ 0983ENDPROC 9000A=8 9010DIM X(A),Y(A),PICT$(A,20),TYPE(A) 9011DIM POST1$(55),POST2$(34),DAD$(6) 9020DIM BL$(79),LINE$(30),FIL$(20) 9025OUTP=B 9030FOR I=E TO 79 9031BL$=BL$+" " 9032NEXT I 9040FIL$="P641220:VIRKKART" 9200FOR I=E TO A 9210X(I)=E 9220Y(I)=E+G*I 9230NEXT I 9240PICT$(E)="CIR-nr" 9250TYPE(E)=7 9260PICT$(G)="Navn" 9270TYPE(G)=-25 9280PICT$(V)="Adresse" 9290TYPE(V)=-23 9300PICT$(4)="Postnr" 9310TYPE(4)=4 9320PICT$(5)="By" 9330TYPE(5)=-14 9340PICT$(6)="Aftalenr i PI" 9350TYPE(6)=6 9360PICT$(7)="Kontonr i PI" 9370TYPE(7)=10 9372PICT$(8)="System-dato" 9374TYPE(8)=6 9380Æ=B 9390EXEC INDVIRK 9400REPEAT 9405SV=G 9410CLEAR 9420CURSOR 10,10 9430PRINT "V I R K S O M H E D S - K A R T O T E K" 9440PRINT 9450PRINT TAB(10);"0 Færdig" 9460PRINT TAB(10);"1 Ændring" 9470PRINT TAB(10);"2 Udskrift på skærm" 9480PRINT TAB(10);"3 Udskrift på printer" 9490PRINT 9500REPEAT 9510CURSOR E,17 9520EDIT " ",SV 9530UNTIL SV=>B AND SV<=V 9540CASE SV OF 9550WHEN E 9560EXEC SKRIVOPL 9570REPEAT 9580REPEAT 9585SV1=B 9590CURSOR E,23 9600EDIT "Feltnr ",SV1 9610UNTIL SV1=>B AND SV1<W 9620IF SV1>B THEN 9630EXEC INOPL(SV1) 9640Æ=E 9650ENDIF 9660UNTIL SV1=B 9670WHEN G 9675OUTP=B 9680EXEC SKRIVOPL 9685INPUT "RETURN",LINE$ 9690WHEN V 9700OUTPUT P 9705OUTP=E 9710EXEC SKRIVOPL 9711FOR I=W TO 72 9712PRINT 9713NEXT I 9715OUTP=B 9720OUTPUT T 9730ENDCASE 9740UNTIL SV=B 9750IF Æ=E THEN 9760EXEC UDVIRK 9790ENDIF 9800CLOSE 9810CHAIN "P641210:STARTB"
0x0000…001e Line {l1=0x1c, l2=»0010PROC DATOCHECK(NR5,OK5) «, l3=0x1c}
0x001e…002a Line {l1=0x0a, l2=»0015OK5=E «, l3=0x0a}
0x002a…0058 Line {l1=0x2c, l2=»0020ÅR=(ORD(NR5$(E))-48)*10+ORD(NR5$(G))-48 «, l3=0x2c}
0x0058…0089 Line {l1=0x2f, l2=»0025MÅNED=(ORD(NR5$(V))-48)*10+ORD(NR5$(4))-48 «, l3=0x2f}
0x0089…00b9 Line {l1=0x2e, l2=»0030DATO=(ORD(NR5$(5))-48)*10+ORD(NR5$(6))-48 «, l3=0x2e}
0x00b9…00f6 Line {l1=0x3b, l2=»0035IF DATO<E OR MÅNED<E OR MÅNED>12 OR DATO>31 THEN OK5=B «, l3=0x3b}
0x00f6…0110 Line {l1=0x18, l2=»0040IF OK5=B THEN EXIT «, l3=0x18}
0x0110…0125 Line {l1=0x13, l2=»0045CASE MÅNED OF «, l3=0x13}
0x0125…0139 Line {l1=0x12, l2=»0050WHEN 4,6,W,11 «, l3=0x12}
0x0139…0155 Line {l1=0x1a, l2=»0055IF DATO>30 THEN OK5=B «, l3=0x1a}
0x0155…0162 Line {l1=0x0b, l2=»0060WHEN G «, l3=0x0b}
0x0162…017e Line {l1=0x1a, l2=»0065IF DATO>29 THEN OK5=B «, l3=0x1a}
0x017e…01aa Line {l1=0x2a, l2=»0070IF DATO=29 AND ÅR MOD 4<>B THEN OK5=B «, l3=0x2a}
0x01aa…01b9 Line {l1=0x0d, l2=»0075ENDCASE «, l3=0x0d}
0x01b9…01c8 Line {l1=0x0d, l2=»0080ENDPROC «, l3=0x0d}
0x01c8…01e2 Line {l1=0x18, l2=»0100PROC CHECK(NR1,OK1) «, l3=0x18}
0x01e2…01ee Line {l1=0x0a, l2=»0110OK1=B «, l3=0x0a}
0x01ee…01fd Line {l1=0x0d, l2=»0115RESULT=B «, l3=0x0d}
0x01fd…0218 Line {l1=0x19, l2=»0120IF LEN(NR1$)>B THEN «, l3=0x19}
0x0218…0233 Line {l1=0x19, l2=»0130IF NR1$(E)="-" THEN «, l3=0x19}
0x0233…0244 Line {l1=0x0f, l2=»0140FORTEGN=-E «, l3=0x0f}
0x0244…0250 Line {l1=0x0a, l2=»0150OK1=E «, l3=0x0a}
0x0250…025c Line {l1=0x0a, l2=»0160ELSE «, l3=0x0a}
0x025c…026c Line {l1=0x0e, l2=»0170FORTEGN=E «, l3=0x0e}
0x026c…0279 Line {l1=0x0b, l2=»0180ENDIF «, l3=0x0b}
0x0279…0293 Line {l1=0x18, l2=»0190WHILE LEN(NR1$)>OK1 «, l3=0x18}
0x0293…02a3 Line {l1=0x0e, l2=»0200OK1=OK1+E «, l3=0x0e}
0x02a3…02d1 Line {l1=0x2c, l2=»0210IF NR1$(OK1)<"0" OR NR1$(OK1)>"9" THEN «, l3=0x2c}
0x02d1…02e1 Line {l1=0x0e, l2=»0220FORTEGN=B «, l3=0x0e}
0x02e1…02f5 Line {l1=0x12, l2=»0230OK1=LEN(NR1$) «, l3=0x12}
0x02f5…0302 Line {l1=0x0b, l2=»0240ENDIF «, l3=0x0b}
0x0302…032b Line {l1=0x27, l2=»0245RESULT=RESULT*10+ORD(NR1$(OK1))-48 «, l3=0x27}
0x032b…033b Line {l1=0x0e, l2=»0250ENDWHILE «, l3=0x0e}
0x033b…0351 Line {l1=0x14, l2=»0260OK1=OK1*FORTEGN «, l3=0x14}
0x0351…036f Line {l1=0x1c, l2=»0270IF OK1<B THEN OK1=OK1+E «, l3=0x1c}
0x036f…037c Line {l1=0x0b, l2=»0280ENDIF «, l3=0x0b}
0x037c…038b Line {l1=0x0d, l2=»0290ENDPROC «, l3=0x0d}
0x038b…03a1 Line {l1=0x14, l2=»0300PROC INOPL(OPL) «, l3=0x14}
0x03a1…03b8 Line {l1=0x15, l2=»0305EXEC INLINE(OPL) «, l3=0x15}
0x03b8…03cb Line {l1=0x11, l2=»0310CASE OPL OF «, l3=0x11}
0x03cb…03d8 Line {l1=0x0b, l2=»0315WHEN E «, l3=0x0b}
0x03d8…03f0 Line {l1=0x16, l2=»0320POST1$(E,7)=LINE$ «, l3=0x16}
0x03f0…03fd Line {l1=0x0b, l2=»0325WHEN G «, l3=0x0b}
0x03fd…0416 Line {l1=0x17, l2=»0330POST1$(8,32)=LINE$ «, l3=0x17}
0x0416…0423 Line {l1=0x0b, l2=»0335WHEN V «, l3=0x0b}
0x0423…043d Line {l1=0x18, l2=»0340POST1$(33,55)=LINE$ «, l3=0x18}
0x043d…044a Line {l1=0x0b, l2=»0345WHEN 4 «, l3=0x0b}
0x044a…0462 Line {l1=0x16, l2=»0350POST2$(E,4)=LINE$ «, l3=0x16}
0x0462…046f Line {l1=0x0b, l2=»0355WHEN 5 «, l3=0x0b}
0x046f…0488 Line {l1=0x17, l2=»0360POST2$(5,18)=LINE$ «, l3=0x17}
0x0488…0495 Line {l1=0x0b, l2=»0365WHEN 6 «, l3=0x0b}
0x0495…04af Line {l1=0x18, l2=»0370POST2$(19,24)=LINE$ «, l3=0x18}
0x04af…04bc Line {l1=0x0b, l2=»0375WHEN 7 «, l3=0x0b}
0x04bc…04d6 Line {l1=0x18, l2=»0380POST2$(25,34)=LINE$ «, l3=0x18}
0x04d6…04e3 Line {l1=0x0b, l2=»0381WHEN 8 «, l3=0x0b}
0x04e3…04f1 Line {l1=0x0c, l2=»0382REPEAT «, l3=0x0c}
0x04f1…050f Line {l1=0x1c, l2=»0383EXEC DATOCHECK(LINE$,J) «, l3=0x1c}
0x050f…0532 Line {l1=0x21, l2=»0384IF J=B THEN EXEC INLINE(OPL) «, l3=0x21}
0x0532…0542 Line {l1=0x0e, l2=»0385UNTIL J>B «, l3=0x0e}
0x0542…0553 Line {l1=0x0f, l2=»0386DAD$=LINE$ «, l3=0x0f}
0x0553…0562 Line {l1=0x0d, l2=»0387ENDCASE «, l3=0x0d}
0x0562…0571 Line {l1=0x0d, l2=»0390ENDPROC «, l3=0x0d}
0x0571…0585 Line {l1=0x12, l2=»0395PROC SKRIVOPL «, l3=0x12}
0x0585…05a1 Line {l1=0x1a, l2=»0400IF OUTP=B THEN CLEAR «, l3=0x1a}
0x05a1…05b4 Line {l1=0x11, l2=»0405FOR J=E TO A «, l3=0x11}
0x05b4…05c5 Line {l1=0x0f, l2=»0410CASE J OF «, l3=0x0f}
0x05c5…05d2 Line {l1=0x0b, l2=»0415WHEN E «, l3=0x0b}
0x05d2…05ea Line {l1=0x16, l2=»0420LINE$=POST1$(E,7) «, l3=0x16}
0x05ea…05f7 Line {l1=0x0b, l2=»0425WHEN G «, l3=0x0b}
0x05f7…0610 Line {l1=0x17, l2=»0430LINE$=POST1$(8,32) «, l3=0x17}
0x0610…061d Line {l1=0x0b, l2=»0435WHEN V «, l3=0x0b}
0x061d…0637 Line {l1=0x18, l2=»0440LINE$=POST1$(33,55) «, l3=0x18}
0x0637…0644 Line {l1=0x0b, l2=»0445WHEN 4 «, l3=0x0b}
0x0644…065c Line {l1=0x16, l2=»0450LINE$=POST2$(E,4) «, l3=0x16}
0x065c…0669 Line {l1=0x0b, l2=»0455WHEN 5 «, l3=0x0b}
0x0669…0682 Line {l1=0x17, l2=»0460LINE$=POST2$(5,18) «, l3=0x17}
0x0682…068f Line {l1=0x0b, l2=»0465WHEN 6 «, l3=0x0b}
0x068f…06a9 Line {l1=0x18, l2=»0470LINE$=POST2$(19,24) «, l3=0x18}
0x06a9…06b6 Line {l1=0x0b, l2=»0475WHEN 7 «, l3=0x0b}
0x06b6…06d0 Line {l1=0x18, l2=»0480LINE$=POST2$(25,34) «, l3=0x18}
0x06d0…06dd Line {l1=0x0b, l2=»0481WHEN 8 «, l3=0x0b}
0x06dd…06ee Line {l1=0x0f, l2=»0482LINE$=DAD$ «, l3=0x0f}
0x06ee…06fd Line {l1=0x0d, l2=»0485ENDCASE «, l3=0x0d}
0x06fd…0713 Line {l1=0x14, l2=»0487IF OUTP=B THEN «, l3=0x14}
0x0713…0729 Line {l1=0x14, l2=»0490EXEC OUTLINE(J) «, l3=0x14}
0x0729…0735 Line {l1=0x0a, l2=»0491ELSE «, l3=0x0a}
0x0735…074c Line {l1=0x15, l2=»0492EXEC OUTPLINE(J) «, l3=0x15}
0x074c…0759 Line {l1=0x0b, l2=»0493ENDIF «, l3=0x0b}
0x0759…0766 Line {l1=0x0b, l2=»0495NEXT J «, l3=0x0b}
0x0766…0775 Line {l1=0x0d, l2=»0500ENDPROC «, l3=0x0d}
0x0775…078b Line {l1=0x14, l2=»0505PROC OUTLINE(N) «, l3=0x14}
0x078b…07a2 Line {l1=0x15, l2=»0510CURSOR X(N),Y(N) «, l3=0x15}
0x07a2…07be Line {l1=0x1a, l2=»0515PRINT USING "### ":N; «, l3=0x1a}
0x07be…07d4 Line {l1=0x14, l2=»0520PRINT PICT$(N); «, l3=0x14}
0x07d4…07ee Line {l1=0x18, l2=»0525CURSOR X(N)+25,Y(N) «, l3=0x18}
0x07ee…0800 Line {l1=0x10, l2=»0530PRINT LINE$ «, l3=0x10}
0x0800…080f Line {l1=0x0d, l2=»0535ENDPROC «, l3=0x0d}
0x080f…0822 Line {l1=0x11, l2=»0540PROC INDVIRK «, l3=0x11}
0x0822…0834 Line {l1=0x10, l2=»0545OPEN FIL$,W «, l3=0x10}
0x0834…084e Line {l1=0x18, l2=»0550EXEC FEJL(B,B,FIL$) «, l3=0x18}
0x084e…0866 Line {l1=0x16, l2=»0555GET FIL$,E:POST1$ «, l3=0x16}
0x0866…0890 Line {l1=0x28, l2=»0560GET FIL$,G:POST2$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0890…08a6 Line {l1=0x14, l2=»0563GET FIL$,V:DAD$ «, l3=0x14}
0x08a6…08b5 Line {l1=0x0d, l2=»0565ENDPROC «, l3=0x0d}
0x08b5…08c7 Line {l1=0x10, l2=»0570PROC UDVIRK «, l3=0x10}
0x08c7…08df Line {l1=0x16, l2=»0575PUT FIL$,E:POST1$ «, l3=0x16}
0x08df…0909 Line {l1=0x28, l2=»0580PUT FIL$,G:POST2$,SLJNR,MLMNR,ATPLM «, l3=0x28}
0x0909…091f Line {l1=0x14, l2=»0583PUT FIL$,V:DAD$ «, l3=0x14}
0x091f…0930 Line {l1=0x0f, l2=»0585CLOSE FIL$ «, l3=0x0f}
0x0930…094a Line {l1=0x18, l2=»0590EXEC FEJL(E,B,FIL$) «, l3=0x18}
0x094a…0959 Line {l1=0x0d, l2=»0595ENDPROC «, l3=0x0d}
0x0959…0973 Line {l1=0x18, l2=»0600PROC FEJL(P1,P2,P3) «, l3=0x18}
0x0973…0991 Line {l1=0x1c, l2=»0605IF STATUS(P3$)<>B THEN «, l3=0x1c}
0x0991…09a0 Line {l1=0x0d, l2=»0610OUTPUT T «, l3=0x0d}
0x09a0…09ce Line {l1=0x2c, l2=»0615PRINT "FIL-FEJL ";P3$;STATUS(P3$),P1;P2 «, l3=0x2c}
0x09ce…09da Line {l1=0x0a, l2=»0620STOP «, l3=0x0a}
0x09da…09e7 Line {l1=0x0b, l2=»0625ENDIF «, l3=0x0b}
0x09e7…09f6 Line {l1=0x0d, l2=»0630ENDPROC «, l3=0x0d}
0x09f6…0a0b Line {l1=0x13, l2=»0680PROC INLINE(N) «, l3=0x13}
0x0a0b…0a19 Line {l1=0x0c, l2=»0690REPEAT «, l3=0x0c}
0x0a19…0a30 Line {l1=0x15, l2=»0700CURSOR X(N),Y(N) «, l3=0x15}
0x0a30…0a4b Line {l1=0x19, l2=»0705PRINT USING "###":N; «, l3=0x19}
0x0a4b…0a66 Line {l1=0x19, l2=»0710PRINT BL$(X(N)+V,79) «, l3=0x19}
0x0a66…0a7f Line {l1=0x17, l2=»0720CURSOR X(N)+4,Y(N) «, l3=0x17}
0x0a7f…0a94 Line {l1=0x13, l2=»0730PRINT PICT$(N) «, l3=0x13}
0x0a94…0aae Line {l1=0x18, l2=»0740CURSOR X(N)+25,Y(N) «, l3=0x18}
0x0aae…0ac3 Line {l1=0x13, l2=»0750INPUT "",LINE$ «, l3=0x13}
0x0ac3…0adc Line {l1=0x17, l2=»0760IF TYPE(N)<B THEN «, l3=0x17}
0x0adc…0b04 Line {l1=0x26, l2=»0770IF LEN(LINE$)<=ABS(TYPE(N)) THEN «, l3=0x26}
0x0b04…0b0f Line {l1=0x09, l2=»0780OK=E «, l3=0x09}
0x0b0f…0b38 Line {l1=0x27, l2=»0790FOR I=LEN(LINE$)+E TO ABS(TYPE(N)) «, l3=0x27}
0x0b38…0b4b Line {l1=0x11, l2=»0800LINE$(I)=" " «, l3=0x11}
0x0b4b…0b58 Line {l1=0x0b, l2=»0810NEXT I «, l3=0x0b}
0x0b58…0b64 Line {l1=0x0a, l2=»0820ELSE «, l3=0x0a}
0x0b64…0b6f Line {l1=0x09, l2=»0830OK=B «, l3=0x09}
0x0b6f…0b7c Line {l1=0x0b, l2=»0840ENDIF «, l3=0x0b}
0x0b7c…0b88 Line {l1=0x0a, l2=»0850ELSE «, l3=0x0a}
0x0b88…0ba3 Line {l1=0x19, l2=»0860EXEC CHECK(LINE$,OK) «, l3=0x19}
0x0ba3…0bd0 Line {l1=0x2b, l2=»0870IF TYPE(N)>B AND TYPE(N)<>OK THEN OK=B «, l3=0x2b}
0x0bd0…0bdd Line {l1=0x0b, l2=»0880ENDIF «, l3=0x0b}
0x0bdd…0bef Line {l1=0x10, l2=»0890UNTIL OK<>B «, l3=0x10}
0x0bef…0bfe Line {l1=0x0d, l2=»0900ENDPROC «, l3=0x0d}
0x0bfe…0c13 Line {l1=0x13, l2=»0910PROC SKRIVPICT «, l3=0x13}
0x0c13…0c20 Line {l1=0x0b, l2=»0920CLEAR «, l3=0x0b}
0x0c20…0c33 Line {l1=0x11, l2=»0930FOR I=E TO A «, l3=0x11}
0x0c33…0c4a Line {l1=0x15, l2=»0940CURSOR X(I),Y(I) «, l3=0x15}
0x0c4a…0c66 Line {l1=0x1a, l2=»0945PRINT USING "### ":I; «, l3=0x1a}
0x0c66…0c7b Line {l1=0x13, l2=»0950PRINT PICT$(I) «, l3=0x13}
0x0c7b…0c88 Line {l1=0x0b, l2=»0960NEXT I «, l3=0x0b}
0x0c88…0c97 Line {l1=0x0d, l2=»0970ENDPROC «, l3=0x0d}
0x0c97…0cae Line {l1=0x15, l2=»0975PROC OUTPLINE(N) «, l3=0x15}
0x0cae…0cc5 Line {l1=0x15, l2=»0977PRINT TAB(X(N)); «, l3=0x15}
0x0cc5…0ce1 Line {l1=0x1a, l2=»0979PRINT USING "### ":N; «, l3=0x1a}
0x0ce1…0d09 Line {l1=0x26, l2=»0981PRINT PICT$(N);TAB(X(N)+25);LINE$ «, l3=0x26}
0x0d09…0d18 Line {l1=0x0d, l2=»0983ENDPROC «, l3=0x0d}
0x0d18…0d22 Line {l1=0x08, l2=»9000A=8 «, l3=0x08}
0x0d22…0d4a Line {l1=0x26, l2=»9010DIM X(A),Y(A),PICT$(A,20),TYPE(A) «, l3=0x26}
0x0d4a…0d72 Line {l1=0x26, l2=»9011DIM POST1$(55),POST2$(34),DAD$(6) «, l3=0x26}
0x0d72…0d97 Line {l1=0x23, l2=»9020DIM BL$(79),LINE$(30),FIL$(20) «, l3=0x23}
0x0d97…0da4 Line {l1=0x0b, l2=»9025OUTP=B «, l3=0x0b}
0x0da4…0db8 Line {l1=0x12, l2=»9030FOR I=E TO 79 «, l3=0x12}
0x0db8…0dca Line {l1=0x10, l2=»9031BL$=BL$+" " «, l3=0x10}
0x0dca…0dd7 Line {l1=0x0b, l2=»9032NEXT I «, l3=0x0b}
0x0dd7…0df5 Line {l1=0x1c, l2=»9040FIL$="P641220:VIRKKART" «, l3=0x1c}
0x0df5…0e08 Line {l1=0x11, l2=»9200FOR I=E TO A «, l3=0x11}
0x0e08…0e15 Line {l1=0x0b, l2=»9210X(I)=E «, l3=0x0b}
0x0e15…0e26 Line {l1=0x0f, l2=»9220Y(I)=E+G*I «, l3=0x0f}
0x0e26…0e33 Line {l1=0x0b, l2=»9230NEXT I «, l3=0x0b}
0x0e33…0e4b Line {l1=0x16, l2=»9240PICT$(E)="CIR-nr" «, l3=0x16}
0x0e4b…0e5b Line {l1=0x0e, l2=»9250TYPE(E)=7 «, l3=0x0e}
0x0e5b…0e71 Line {l1=0x14, l2=»9260PICT$(G)="Navn" «, l3=0x14}
0x0e71…0e83 Line {l1=0x10, l2=»9270TYPE(G)=-25 «, l3=0x10}
0x0e83…0e9c Line {l1=0x17, l2=»9280PICT$(V)="Adresse" «, l3=0x17}
0x0e9c…0eae Line {l1=0x10, l2=»9290TYPE(V)=-23 «, l3=0x10}
0x0eae…0ec6 Line {l1=0x16, l2=»9300PICT$(4)="Postnr" «, l3=0x16}
0x0ec6…0ed6 Line {l1=0x0e, l2=»9310TYPE(4)=4 «, l3=0x0e}
0x0ed6…0eea Line {l1=0x12, l2=»9320PICT$(5)="By" «, l3=0x12}
0x0eea…0efc Line {l1=0x10, l2=»9330TYPE(5)=-14 «, l3=0x10}
0x0efc…0f1b Line {l1=0x1d, l2=»9340PICT$(6)="Aftalenr i PI" «, l3=0x1d}
0x0f1b…0f2b Line {l1=0x0e, l2=»9350TYPE(6)=6 «, l3=0x0e}
0x0f2b…0f49 Line {l1=0x1c, l2=»9360PICT$(7)="Kontonr i PI" «, l3=0x1c}
0x0f49…0f5a Line {l1=0x0f, l2=»9370TYPE(7)=10 «, l3=0x0f}
0x0f5a…0f77 Line {l1=0x1b, l2=»9372PICT$(8)="System-dato" «, l3=0x1b}
0x0f77…0f87 Line {l1=0x0e, l2=»9374TYPE(8)=6 «, l3=0x0e}
0x0f87…0f91 Line {l1=0x08, l2=»9380Æ=B «, l3=0x08}
0x0f91…0fa4 Line {l1=0x11, l2=»9390EXEC INDVIRK «, l3=0x11}
0x0fa4…0fb2 Line {l1=0x0c, l2=»9400REPEAT «, l3=0x0c}
0x0fb2…0fbd Line {l1=0x09, l2=»9405SV=G «, l3=0x09}
0x0fbd…0fca Line {l1=0x0b, l2=»9410CLEAR «, l3=0x0b}
0x0fca…0fdd Line {l1=0x11, l2=»9420CURSOR 10,10 «, l3=0x11}
0x0fdd…1013 Line {l1=0x34, l2=»9430PRINT "V I R K S O M H E D S - K A R T O T E K" «, l3=0x34}
0x1013…1020 Line {l1=0x0b, l2=»9440PRINT «, l3=0x0b}
0x1020…103f Line {l1=0x1d, l2=»9450PRINT TAB(10);"0 Færdig" «, l3=0x1d}
0x103f…105f Line {l1=0x1e, l2=»9460PRINT TAB(10);"1 Ændring" «, l3=0x1e}
0x105f…1089 Line {l1=0x28, l2=»9470PRINT TAB(10);"2 Udskrift på skærm" «, l3=0x28}
0x1089…10b5 Line {l1=0x2a, l2=»9480PRINT TAB(10);"3 Udskrift på printer" «, l3=0x2a}
0x10b5…10c2 Line {l1=0x0b, l2=»9490PRINT «, l3=0x0b}
0x10c2…10d0 Line {l1=0x0c, l2=»9500REPEAT «, l3=0x0c}
0x10d0…10e2 Line {l1=0x10, l2=»9510CURSOR E,17 «, l3=0x10}
0x10e2…10fd Line {l1=0x19, l2=»9520EDIT " ",SV «, l3=0x19}
0x10fd…1119 Line {l1=0x1a, l2=»9530UNTIL SV=>B AND SV<=V «, l3=0x1a}
0x1119…112b Line {l1=0x10, l2=»9540CASE SV OF «, l3=0x10}
0x112b…1138 Line {l1=0x0b, l2=»9550WHEN E «, l3=0x0b}
0x1138…114c Line {l1=0x12, l2=»9560EXEC SKRIVOPL «, l3=0x12}
0x114c…115a Line {l1=0x0c, l2=»9570REPEAT «, l3=0x0c}
0x115a…1168 Line {l1=0x0c, l2=»9580REPEAT «, l3=0x0c}
0x1168…1174 Line {l1=0x0a, l2=»9585SV1=B «, l3=0x0a}
0x1174…1186 Line {l1=0x10, l2=»9590CURSOR E,23 «, l3=0x10}
0x1186…119f Line {l1=0x17, l2=»9600EDIT "Feltnr ",SV1 «, l3=0x17}
0x119f…11bc Line {l1=0x1b, l2=»9610UNTIL SV1=>B AND SV1<W «, l3=0x1b}
0x11bc…11d1 Line {l1=0x13, l2=»9620IF SV1>B THEN «, l3=0x13}
0x11d1…11e7 Line {l1=0x14, l2=»9630EXEC INOPL(SV1) «, l3=0x14}
0x11e7…11f1 Line {l1=0x08, l2=»9640Æ=E «, l3=0x08}
0x11f1…11fe Line {l1=0x0b, l2=»9650ENDIF «, l3=0x0b}
0x11fe…1210 Line {l1=0x10, l2=»9660UNTIL SV1=B «, l3=0x10}
0x1210…121d Line {l1=0x0b, l2=»9670WHEN G «, l3=0x0b}
0x121d…122a Line {l1=0x0b, l2=»9675OUTP=B «, l3=0x0b}
0x122a…123e Line {l1=0x12, l2=»9680EXEC SKRIVOPL «, l3=0x12}
0x123e…1259 Line {l1=0x19, l2=»9685INPUT "RETURN",LINE$ «, l3=0x19}
0x1259…1266 Line {l1=0x0b, l2=»9690WHEN V «, l3=0x0b}
0x1266…1275 Line {l1=0x0d, l2=»9700OUTPUT P «, l3=0x0d}
0x1275…1282 Line {l1=0x0b, l2=»9705OUTP=E «, l3=0x0b}
0x1282…1296 Line {l1=0x12, l2=»9710EXEC SKRIVOPL «, l3=0x12}
0x1296…12aa Line {l1=0x12, l2=»9711FOR I=W TO 72 «, l3=0x12}
0x12aa…12b7 Line {l1=0x0b, l2=»9712PRINT «, l3=0x0b}
0x12b7…12c4 Line {l1=0x0b, l2=»9713NEXT I «, l3=0x0b}
0x12c4…12d1 Line {l1=0x0b, l2=»9715OUTP=B «, l3=0x0b}
0x12d1…12e0 Line {l1=0x0d, l2=»9720OUTPUT T «, l3=0x0d}
0x12e0…12ef Line {l1=0x0d, l2=»9730ENDCASE «, l3=0x0d}
0x12ef…1300 Line {l1=0x0f, l2=»9740UNTIL SV=B «, l3=0x0f}
0x1300…1313 Line {l1=0x11, l2=»9750IF Æ=E THEN «, l3=0x11}
0x1313…1325 Line {l1=0x10, l2=»9760EXEC UDVIRK «, l3=0x10}
0x1325…1332 Line {l1=0x0b, l2=»9790ENDIF «, l3=0x0b}
0x1332…133f Line {l1=0x0b, l2=»9800CLOSE «, l3=0x0b}
0x133f…135c Line {l1=0x1b, l2=»9810CHAIN "P641210:STARTB" «, l3=0x1b}
0x135c…1360 00 00 00 00 ┆ ┆
0x1360…1380 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]