|
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: 12640 (0x3160)
Types: TextFile
Notes: Mikados_K
Names: »OPMODUL.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »OPMODUL.K«
0010 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12) 0015 TAH$="0+" 0020 PROC CALC(AR3,B1,B2,ES) 0025 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AR3-6*(AR3>5) 0030 CALL "DDE:REGN" 0035 IF AR3<6 THEN 0040 IF FLAG THEN STOP 0045 ENDIF 0050 ES$=RES$ 0055 ENDPROC 0060 DIM ST$(12),GT$(12),HJ$(12),P1$(12) 0065 ST$=TAH$;GT$=TAH$ 0100 TRUE=1 0120 FALSE=0 0140 DIM SPLIT$(66),BL$(66),FIL$(20) 0160 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20) 0180 FOR I=1 TO 66 0200 BL$(I)=" " 0220 NEXT I 0240 FIL$="P641216:MODUL" 0260 REPEAT 0280 INPUT "Oprettelse, ændring eller stop O/Æ/S ",S$ 0300 UNTIL S$="O" OR S$="Æ" OR S$="o" OR S$="æ" OR S$="S" OR S$="s" 0320 IF S$="S" OR S$="s" THEN GO TO 8260 0340 IF S$="Æ" OR S$="æ" THEN 0360 REPEAT 0380 INPUT "MODULNR ",SV$ 0400 EXEC CHECK1 0420 UNTIL OKAY=TRUE 0440 EXEC CONVERT(NR) 0460 FIL1$=FIL$+SV$ 0480 OPEN FIL1$,W 0500 IF STATUS(FIL1$)<>0 THEN GO TO 0360 0501 L=1 0502 GET FIL1$:SIDE$(L) 0510 WHILE STATUS(FIL1$)=0 DO 0520 L=1+L 0540 GET FIL1$:SIDE$(L) 0560 ENDWHILE 0580 LAST=L-1 0600 CLOSE FIL1$ 0620 OPEN FIL1$,W 0630 ST$=TAH$;GT$=TAH$ 0640 EXEC SKRIV 0660 ELSE 0680 I=0 0700 LAST=-1 0720 CLEAR 0740 REPEAT 0760 I=I+1 0780 CURSOR 2,I 0790 PRINT USING "###":I; 0800 INPUT " ",LINE$ 0820 IF LEN(LINE$)=0 THEN LAST=I-1 0840 IF LAST=-1 THEN SIDE$(I)=LINE$+BL$ 0860 UNTIL I=20 OR LAST<>-1 0880 IF LAST=-1 THEN LAST=20 0900 ENDIF 0920 IF LAST=0 THEN GO TO 0260 0945 I0=1 0950 REPEAT 0955 CURSOR 1,23 0960 INPUT "T,TL,S,SL,R,E,C,F,BL,ST,GT ",SV$ 0965 EXEC CHECK 0970 IF OKAY=TRUE THEN 0975 I=I0-1 0980 EXEC FINDPOS 0985 I0=I 0990 IF I0=>LAST THEN I0=1 0995 IF J>0 THEN 1000 CASE SV$ OF 1005 WHEN "TL","tl","Tl","tL" 1010 IF LAST<22 THEN 1015 CURSOR 1,23 1020 PRINT BL$ 1025 REPEAT 1030 CURSOR 1,23 1035 INPUT " ",LINE$ 1040 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1045 I1=I 1050 EXEC INDSÆT 1055 ENDIF 1060 WHEN "T","t" 1065 J1=J 1070 I1=I 1075 CURSOR 1,23 1080 PRINT BL$ 1085 REPEAT 1090 CURSOR 1,23 1095 INPUT " ",LINE$ 1100 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1105 EXEC INSERT 1110 WHEN "S","s" 1115 EXEC SLUTPOS 1120 EXEC DELETE 1125 WHEN "SL","sl","Sl","sL" 1130 I1=I 1135 EXEC SLET 1140 WHEN "R","r" 1145 EXEC SLUTPOS 1150 CURSOR 1,23 1155 PRINT BL$ 1160 REPEAT 1165 CURSOR 1,23 1170 INPUT " ",LINE$ 1175 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1180 IF I1=I THEN 1185 IF LEN(LINE$)<=J-J1+1 THEN 1190 SIDE$(I1,J1:LEN(LINE$))=LINE$ 1195 J1=J1+LEN(LINE$) 1200 IF J1<=J THEN EXEC DELETE 1205 ELSE 1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 1215 LINE$=LINE$(J-J1+2,LEN(LINE$)) 1220 J1=J+1 1225 EXEC INSERT 1230 ENDIF 1235 ELSE 1240 IF LEN(LINE$)<=66-J1 THEN 1245 SIDE$(I1,J1:LEN(LINE$))=LINE$ 1250 J1=J1+LEN(LINE$) 1255 IF J1>66 THEN 1260 J1=1 1265 I1=I1+1 1270 ENDIF 1275 EXEC DELETE 1280 ELSE 1285 P=67 1290 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$ 1295 EXEC FLÆK(LINE$) 1300 SIDE$(I1)=SPLIT$+BL$ 1305 I1=I1+1 1310 J1=1 1315 IF I1=I THEN 1320 IF LEN(LINE$)<=J-J1 THEN 1325 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$ 1330 J1=J1+LEN(LINE$) 1335 EXEC DELETE 1340 ELSE 1345 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1) 1350 LINE$=LINE$(J-J1+2,LEN(LINE$)) 1355 J1=J+1 1360 EXEC INSERT 1365 ENDIF 1370 ELSE 1375 SIDE$(I1)=LINE$ 1380 J1=LEN(LINE$)+1 1385 EXEC DELETE 1390 ENDIF 1395 ENDIF 1400 ENDIF 1405 WHEN "E","e" 1410 LINE$=SIDE$(I) 1415 CURSOR 1,23 1420 PRINT BL$ 1425 REPEAT 1430 CURSOR 1,23 1435 EDIT " ",LINE$ 1440 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67 1442 IF SIDE$(I,65,66)="##" OR SIDE$(I,65,66)="@@" THEN 1443 LINE$=LINE$+BL$;LINE$(65,66)=SIDE$(I,65,66) 1444 ENDIF 1445 SIDE$(I)=LINE$(1,66) 1450 WHEN "C","c" 1455 V=1 1460 WHILE SIDE$(I,V)=" " AND V<66 1465 V=V+1 1470 ENDWHILE 1475 H=66 1480 WHILE SIDE$(I,H)=" " AND H>1 1485 H=H-1 1490 ENDWHILE 1495 IF H=>V THEN 1500 SS=INT((65-H+V)/2)+1 1505 SYM$=BL$ 1510 SYM$(SS:H-V+1)=SIDE$(I,V,H) 1515 SIDE$(I)=SYM$ 1520 ENDIF 1525 WHEN "ST","GT" 1530 IF LAST<22 THEN 1535 LINE$=BL$ 1540 IF SV$="ST" THEN 1545 LINE$(65,66)="##" 1550 ELSE 1555 LINE$(65,66)="@@" 1560 ENDIF 1565 I1=I 1570 EXEC INDSÆT 1575 ENDIF 1580 WHEN "BL" 1585 IF LAST<22 THEN 1590 LINE$=BL$ 1595 CURSOR 1,23 1600 PRINT BL$ 1605 REPEAT 1610 CURSOR 1,23 1615 INPUT "Faktor 1 ",SPLIT$ 1620 SPLIT$=SPLIT$+"+" 1625 EXEC CALC(6,SPLIT$,TAH$,HJ$) 1630 UNTIL FLAG=0 1635 LINE$(2,12)=HJ$(2,12);P1$=HJ$ 1640 IF LINE$(12)="+" THEN LINE$(12)=" " 1645 REPEAT 1650 CURSOR 1,23 1655 INPUT "Faktor 2 ",SPLIT$ 1660 SPLIT$=SPLIT$+"+" 1665 EXEC CALC(6,SPLIT$,TAH$,HJ$) 1670 UNTIL FLAG=0 1675 EXEC CALC(4,HJ$,TAH$,HJ$) 1680 IF SI>0 THEN 1685 EXEC CALC(2,HJ$,P1$,P1$) 1690 LINE$(13,24)="*"+HJ$(2,12) 1695 IF LINE$(24)="+" THEN LINE$(24)=" " 1700 REPEAT 1705 CURSOR 1,23 1710 INPUT "Faktor 3 ",SPLIT$ 1715 SPLIT$=SPLIT$+"+" 1720 EXEC CALC(6,SPLIT$,TAH$,HJ$) 1725 UNTIL FLAG=0 1730 EXEC CALC(4,HJ$,TAH$,HJ$) 1735 IF SI>0 THEN 1740 LINE$(25,36)="*"+HJ$(2,12) 1745 EXEC CALC(2,HJ$,P1$,P1$) 1750 IF LINE$(36)="+" THEN LINE$(36)=" " 1755 ENDIF 1760 ENDIF 1765 REPEAT 1770 CURSOR 1,23 1775 INPUT "Prisfaktor ",SPLIT$ 1780 SPLIT$=SPLIT$+"+" 1785 EXEC CALC(6,SPLIT$,TAH$,HJ$) 1790 UNTIL FLAG=0 1795 LINE$(37,50)="a"+HJ$(2,12)+"Kr" 1800 IF LINE$(48)="+" THEN LINE$(48)=" " 1805 EXEC CALC(2,HJ$,P1$,P1$) 1810 IF P1$(12)="+" THEN P1$(12)=" " 1815 LINE$(51,66)=P1$(2,12)+"Kr %%" 1820 I1=I 1825 EXEC INDSÆT 1830 ENDIF 1835 ENDCASE 1840 ST$=TAH$;GT$=TAH$ 1845 EXEC SKRIV 1850 ENDIF 1855 ENDIF 1860 UNTIL SV$="F" OR SV$="f" 3060 IF LAST>20 THEN 3080 CURSOR 1,22 3100 PRINT "SIDEN ER FOR ";LAST-20;"LINIER FOR LANG" 3120 GO TO 0960 3140 ENDIF 3160 IF (S$="O") OR (S$="o") THEN 3180 REPEAT 3200 INPUT "MODULNR ",SV$ 3220 EXEC CHECK1 3240 UNTIL OKAY=TRUE 3260 EXEC CONVERT(NR) 3280 FIL1$=FIL$+SV$ 3300 CREATE FIL1$,6 3320 IF STATUS(FIL1$)<>0 THEN GO TO 3180 3340 OPEN FIL1$,W 3360 ENDIF 3380 FOR L=1 TO LAST 3400 PUT FIL1$:SIDE$(L) 3420 NEXT L 3450 ENDFILE FIL1$ 3500 CLOSE FIL1$ 3520 GO TO 0240 3540 PROC FINDPOS 3560 REPEAT 3580 I=I+1 3600 CURSOR 1,I 3620 INPUT " ",LINE$ 3640 UNTIL I=22 OR LEN(LINE$)>0 3660 J=LEN(LINE$) 3680 IF J>66 THEN J=66 3700 ENDPROC 3860 PROC INDSÆT 3880 LAST=LAST+1 3900 IF I1>LAST THEN LAST=I1 3920 FOR L=LAST TO I1+1 STEP -1 3940 SIDE$(L)=SIDE$(L-1) 3960 NEXT L 3980 SIDE$(I1)=LINE$+BL$ 4000 ENDPROC 4020 PROC SLET 4040 FOR L=I1 TO LAST-1 4060 SIDE$(L)=SIDE$(L+1) 4080 NEXT L 4100 SIDE$(LAST)="" 4120 LAST=LAST-1 4140 ENDPROC 4160 PROC SLUTPOS 4180 I1=I 4200 J1=J 4220 CURSOR J+10,I 4240 INPUT " ",LINE$ 4260 IF LEN(LINE$)=0 THEN 4280 EXEC FINDPOS 4300 ELSE 4320 J=LEN(LINE$)+J1-1 4340 IF J>66 THEN J=66 4360 ENDIF 4380 ENDPROC 4400 PROC FLÆK(LIN) 4410 Q=0 4420 SPLIT$="" 4440 FOUND=FALSE 4460 Q=LEN(LIN$) 4480 WHILE Q>0 4500 IF LIN$(Q)=" " THEN 4520 LIN$(Q)="" 4540 Q=Q-1 4560 ELSE 4580 Q=0 4600 ENDIF 4620 ENDWHILE 4640 IF P>LEN(LIN$) THEN 4660 FOUND=TRUE 4680 P=LEN(LIN$)+1 4700 ELSE 4720 IF P<66 THEN P=P+1 4740 IF LIN$(P)<>" " THEN 4760 CURSOR 1,23 4762 PRINT " ";LIN$(1,P),BL$ 4764 CURSOR 1,23 4766 INPUT "Del ",SPLIT$ 4768 P=LEN(SPLIT$) 4770 IF P>0 THEN 4772 FOUND=TRUE 4774 IF SPLIT$(P)="-" THEN Q=1 4776 ELSE 4778 FOUND=FALSE 4780 ENDIF 4840 ELSE 4860 FOUND=TRUE 4880 ENDIF 4900 ENDIF 4920 IF FOUND THEN 4940 IF P=1 THEN 4960 SPLIT$="" 4980 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$)) 5000 ELSE 5010 IF Q=0 THEN P=P+1 5020 SPLIT$=LIN$(1,P-1) 5030 IF Q=1 THEN 5032 SPLIT$(P)="-" 5034 P=P-1 5036 ENDIF 5040 IF P<LEN(LIN$) THEN 5060 LIN$=LIN$(P+1,LEN(LIN$)) 5080 ELSE 5100 LIN$="" 5120 ENDIF 5140 ENDIF 5160 ENDIF 5180 ENDPROC 5200 PROC INSERT 5220 B$="" 5240 IF J1>1 THEN B$=SIDE$(I1,1,J1-1) 5260 B$=B$+LINE$ 5280 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66) 5300 P=67 5320 EXEC FLÆK(B$) 5340 SIDE$(I1)=SPLIT$+BL$ 5360 I1=I1+1 5380 J1=1 5400 LINE$=B$ 5420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0 5440 B$=SIDE$(I1) 5460 IF LINE$(LEN(LINE$))="-" THEN 5480 LINE$(LEN(LINE$))="" 5500 ELSE 5520 IF LEN(LINE$)<66 THEN LINE$=LINE$+" " 5540 ENDIF 5560 SIDE$(I1,1,LEN(LINE$))=LINE$ 5580 P=67-LEN(LINE$) 5600 EXEC FLÆK(B$) 5620 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$ 5640 LINE$=B$ 5660 I1=I1+1 5680 ENDWHILE 5700 IF LEN(LINE$)>0 THEN 5720 EXEC INDSÆT 5740 ENDIF 5760 ENDPROC 5780 PROC DELETE 5800 J=J+1 5820 IF J>66 THEN 5840 J=1 5860 I=I+1 5880 ENDIF 5900 P=67-J1 5920 IF I=LAST+1 THEN 5940 IF J1>1 THEN 5960 SIDE$(I1,J1,66)=BL$ 5980 ELSE 6000 I1=I1-1 6020 ENDIF 6040 FOR Q=I1+1 TO LAST 6060 SIDE$(Q)=BL$ 6080 NEXT Q 6100 LAST=I1 6120 ELSE 6140 LINE$=SIDE$(I,J,66) 6160 EXEC FLÆK(LINE$) 6180 REPEAT 6200 HYPHEN=0 6220 IF LEN(SPLIT$)>0 THEN 6240 IF SPLIT$(LEN(SPLIT$))="-" THEN 6260 HYPHEN=LEN(SPLIT$)+J1-1+100*I1 6280 SPLIT$(LEN(SPLIT$))="" 6300 ELSE 6320 SPLIT$=SPLIT$+" " 6340 ENDIF 6360 ENDIF 6380 SIDE$(I1,J1,66)=SPLIT$+BL$ 6400 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN 6420 J1=J1+LEN(SPLIT$) 6440 P=67-J1 6460 IF I<22 THEN 6480 IF SIDE$(I+1,1)<>" " THEN 6500 LINE$=SIDE$(I+1) 6520 I=I+1 6540 EXEC FLÆK(LINE$) 6560 IF LEN(SPLIT$)>0 THEN 6580 SIDE$(I1,J1,66)=SPLIT$+BL$ 6600 IF LEN(LINE$)>0 THEN I=I-1 6620 SPLIT$=LINE$ 6640 LINE$="" 6660 HYPHEN=0 6680 ELSE 6700 SIDE$(I1+1)=LINE$ 6720 LINE$="" 6740 I1=I1+1 6760 ENDIF 6780 ELSE 6800 LINE$="" 6820 SPLIT$="" 6840 ENDIF 6860 ELSE 6880 LINE$="" 6900 SPLIT$="" 6920 ENDIF 6940 ELSE 6960 B$=LINE$ 6980 LINE$=SIDE$(I+1) 7000 SIDE$(I1+1)=B$ 7020 J1=LEN(B$);P=67-J1 7040 EXEC FLÆK(LINE$) 7060 ENDIF 7080 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-" 7100 J1=1 7120 J=1 7140 I1=I1+1 7160 I=I+1 7180 IF I>22 THEN I=22 7200 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ") 7220 J=I1 7240 WHILE J<I 7260 EXEC SLET 7280 J=J+1 7300 ENDWHILE 7320 ENDIF 7330 ENDPROC 7340 PROC CHECK1 7360 NR=0 7380 I=1 7400 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN 7420 OKAY=TRUE 7440 ELSE 7460 OKAY=FALSE 7480 ENDIF 7500 WHILE I<=LEN(SV$) 7520 IF SV$(I)<"0" OR SV$(I)>"9" THEN 7540 OKAY=FALSE 7560 I=LEN(SV$)+1 7580 ELSE 7600 NR=NR*10+ORD(SV$(I))-48 7620 I=I+1 7640 ENDIF 7660 ENDWHILE 7680 ENDPROC 7700 PROC CONVERT(NO) 7720 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48) 7740 ENDPROC 7780 PROC SKRIV 7782 LINENR=0 7785 CLEAR 7790 FOR X=1 TO 22 7795 CURSOR 1,X 7800 PRINT USING "####":LINENR+X; 7805 IF X>LAST THEN 7810 PRINT " " 7815 ELSE 7820 CASE SIDE$(X,65,66) OF 7825 PRINT " ";SIDE$(X) 7830 WHEN "##" 7835 IF ST$(12)="+" THEN ST$(12)=" " 7840 PRINT " ";SIDE$(X,1,49);ST$;"Kr" 7845 ST$=TAH$ 7850 WHEN "@@" 7855 IF GT$(12)="+" THEN GT$(12)=" " 7860 PRINT " ";SIDE$(X,1,49);GT$;"Kr" 7865 GT$=TAH$ 7870 WHEN "%%" 7875 HJ$=SIDE$(X,51,61) 7880 IF HJ$(11)=" " THEN HJ$(11)="+" 7885 EXEC CALC(0,HJ$,ST$,ST$) 7890 EXEC CALC(0,HJ$,GT$,GT$) 7895 PRINT " ";SIDE$(X,1,64);" " 7900 ENDCASE 7905 ENDIF 7910 NEXT X 7915 ENDPROC 7920 PROC CHECK 7925 OKAY=FALSE 7930 CURSOR 22,23 7935 CASE SV$ OF 7940 WHEN "T","t" 7945 OKAY=TRUE 7950 PRINT "Tilføjelse" 7955 WHEN "TL","tl","Tl","tL" 7960 OKAY=TRUE 7965 PRINT "Tilføj linie" 7970 WHEN "s","S" 7975 OKAY=TRUE 7980 PRINT "Sletning" 7985 WHEN "SL","sl","Sl","sL" 7990 OKAY=TRUE 7995 PRINT "Slet linie" 8000 WHEN "R","r" 8005 OKAY=TRUE 8010 PRINT "Retning" 8015 WHEN "e","E" 8020 OKAY=TRUE 8025 PRINT "Editering" 8030 WHEN "C","c" 8035 OKAY=TRUE 8040 PRINT "Centrer linie" 8045 WHEN "BL","Bl","bL","bl" 8050 SV$="BL" 8055 OKAY=TRUE 8060 PRINT "Indsæt beregningslinie" 8065 WHEN "ST","St","sT","st" 8070 SV$="ST" 8075 OKAY=TRUE 8080 PRINT "Subtotallinie indsættes" 8085 WHEN "GT","Gt","gT","gt" 8090 SV$="GT" 8095 OKAY=TRUE 8100 PRINT "Grandtotallinie indsættes" 8105 ENDCASE 8110 ENDPROC 8260 CHAIN "P641216:START"
0x0000…002e Line {l1=0x2c, l2=»0010 DIM RES$(15),OP1$(12),OP2$(12),TAH$(12)«, l3=0x2c}
0x002e…003e Line {l1=0x0e, l2=»0015 TAH$="0+"«, l3=0x0e}
0x003e…005c Line {l1=0x1c, l2=»0020 PROC CALC(AR3,B1,B2,ES)«, l3=0x1c}
0x005c…009b Line {l1=0x3d, l2=»0025 RES$=ES$;OP1$=B1$;OP2$=B2$;SI=0;FLAG=0;ART=AR3-6*(AR3>5)«, l3=0x3d}
0x009b…00b1 Line {l1=0x14, l2=»0030 CALL "DDE:REGN"«, l3=0x14}
0x00b1…00c6 Line {l1=0x13, l2=»0035 IF AR3<6 THEN «, l3=0x13}
0x00c6…00df Line {l1=0x17, l2=»0040 IF FLAG THEN STOP «, l3=0x17}
0x00df…00ec Line {l1=0x0b, l2=»0045 ENDIF «, l3=0x0b}
0x00ec…00fb Line {l1=0x0d, l2=»0050 ES$=RES$«, l3=0x0d}
0x00fb…010a Line {l1=0x0d, l2=»0055 ENDPROC «, l3=0x0d}
0x010a…0134 Line {l1=0x28, l2=»0060 DIM ST$(12),GT$(12),HJ$(12),P1$(12)«, l3=0x28}
0x0134…014c Line {l1=0x16, l2=»0065 ST$=TAH$;GT$=TAH$«, l3=0x16}
0x014c…0159 Line {l1=0x0b, l2=»0100 TRUE=1«, l3=0x0b}
0x0159…0167 Line {l1=0x0c, l2=»0120 FALSE=0«, l3=0x0c}
0x0167…018d Line {l1=0x24, l2=»0140 DIM SPLIT$(66),BL$(66),FIL$(20)«, l3=0x24}
0x018d…01d7 Line {l1=0x48, l2=»0160 DIM B$(133),SYM$(66),S$(1),SIDE$(22,66),LINE$(133),SV$(2),FIL1$(20)«, l3=0x48}
0x01d7…01eb Line {l1=0x12, l2=»0180 FOR I=1 TO 66«, l3=0x12}
0x01eb…01fc Line {l1=0x0f, l2=»0200 BL$(I)=" "«, l3=0x0f}
0x01fc…0209 Line {l1=0x0b, l2=»0220 NEXT I«, l3=0x0b}
0x0209…0224 Line {l1=0x19, l2=»0240 FIL$="P641216:MODUL"«, l3=0x19}
0x0224…0232 Line {l1=0x0c, l2=»0260 REPEAT «, l3=0x0c}
0x0232…0269 Line {l1=0x35, l2=»0280 INPUT "Oprettelse, ændring eller stop O/Æ/S ",S$«, l3=0x35}
0x0269…02ae Line {l1=0x43, l2=»0300 UNTIL S$="O" OR S$="Æ" OR S$="o" OR S$="æ" OR S$="S" OR S$="s"«, l3=0x43}
0x02ae…02d8 Line {l1=0x28, l2=»0320 IF S$="S" OR S$="s" THEN GO TO 8260«, l3=0x28}
0x02d8…02f8 Line {l1=0x1e, l2=»0340 IF S$="Æ" OR S$="æ" THEN «, l3=0x1e}
0x02f8…0306 Line {l1=0x0c, l2=»0360 REPEAT «, l3=0x0c}
0x0306…0321 Line {l1=0x19, l2=»0380 INPUT "MODULNR ",SV$«, l3=0x19}
0x0321…0333 Line {l1=0x10, l2=»0400 EXEC CHECK1«, l3=0x10}
0x0333…0349 Line {l1=0x14, l2=»0420 UNTIL OKAY=TRUE«, l3=0x14}
0x0349…0360 Line {l1=0x15, l2=»0440 EXEC CONVERT(NR)«, l3=0x15}
0x0360…0375 Line {l1=0x13, l2=»0460 FIL1$=FIL$+SV$«, l3=0x13}
0x0375…0388 Line {l1=0x11, l2=»0480 OPEN FIL1$,W«, l3=0x11}
0x0388…03b2 Line {l1=0x28, l2=»0500 IF STATUS(FIL1$)<>0 THEN GO TO 0360«, l3=0x28}
0x03b2…03bc Line {l1=0x08, l2=»0501 L=1«, l3=0x08}
0x03bc…03d5 Line {l1=0x17, l2=»0502 GET FIL1$:SIDE$(L)«, l3=0x17}
0x03d5…03f5 Line {l1=0x1e, l2=»0510 WHILE STATUS(FIL1$)=0 DO «, l3=0x1e}
0x03f5…0401 Line {l1=0x0a, l2=»0520 L=1+L«, l3=0x0a}
0x0401…041a Line {l1=0x17, l2=»0540 GET FIL1$:SIDE$(L)«, l3=0x17}
0x041a…042a Line {l1=0x0e, l2=»0560 ENDWHILE «, l3=0x0e}
0x042a…0439 Line {l1=0x0d, l2=»0580 LAST=L-1«, l3=0x0d}
0x0439…044b Line {l1=0x10, l2=»0600 CLOSE FIL1$«, l3=0x10}
0x044b…045e Line {l1=0x11, l2=»0620 OPEN FIL1$,W«, l3=0x11}
0x045e…0476 Line {l1=0x16, l2=»0630 ST$=TAH$;GT$=TAH$«, l3=0x16}
0x0476…0487 Line {l1=0x0f, l2=»0640 EXEC SKRIV«, l3=0x0f}
0x0487…0493 Line {l1=0x0a, l2=»0660 ELSE «, l3=0x0a}
0x0493…049d Line {l1=0x08, l2=»0680 I=0«, l3=0x08}
0x049d…04ab Line {l1=0x0c, l2=»0700 LAST=-1«, l3=0x0c}
0x04ab…04b8 Line {l1=0x0b, l2=»0720 CLEAR «, l3=0x0b}
0x04b8…04c6 Line {l1=0x0c, l2=»0740 REPEAT «, l3=0x0c}
0x04c6…04d2 Line {l1=0x0a, l2=»0760 I=I+1«, l3=0x0a}
0x04d2…04e3 Line {l1=0x0f, l2=»0780 CURSOR 2,I«, l3=0x0f}
0x04e3…04fe Line {l1=0x19, l2=»0790 PRINT USING "###":I;«, l3=0x19}
0x04fe…051b Line {l1=0x1b, l2=»0800 INPUT " ",LINE$«, l3=0x1b}
0x051b…053f Line {l1=0x22, l2=»0820 IF LEN(LINE$)=0 THEN LAST=I-1«, l3=0x22}
0x053f…0568 Line {l1=0x27, l2=»0840 IF LAST=-1 THEN SIDE$(I)=LINE$+BL$«, l3=0x27}
0x0568…0585 Line {l1=0x1b, l2=»0860 UNTIL I=20 OR LAST<>-1«, l3=0x1b}
0x0585…05a3 Line {l1=0x1c, l2=»0880 IF LAST=-1 THEN LAST=20«, l3=0x1c}
0x05a3…05b0 Line {l1=0x0b, l2=»0900 ENDIF «, l3=0x0b}
0x05b0…05d0 Line {l1=0x1e, l2=»0920 IF LAST=0 THEN GO TO 0260«, l3=0x1e}
0x05d0…05db Line {l1=0x09, l2=»0945 I0=1«, l3=0x09}
0x05db…05e9 Line {l1=0x0c, l2=»0950 REPEAT «, l3=0x0c}
0x05e9…05fb Line {l1=0x10, l2=»0955 CURSOR 1,23«, l3=0x10}
0x05fb…0629 Line {l1=0x2c, l2=»0960 INPUT "T,TL,S,SL,R,E,C,F,BL,ST,GT ",SV$«, l3=0x2c}
0x0629…063a Line {l1=0x0f, l2=»0965 EXEC CHECK«, l3=0x0f}
0x063a…0653 Line {l1=0x17, l2=»0970 IF OKAY=TRUE THEN «, l3=0x17}
0x0653…0660 Line {l1=0x0b, l2=»0975 I=I0-1«, l3=0x0b}
0x0660…0673 Line {l1=0x11, l2=»0980 EXEC FINDPOS«, l3=0x11}
0x0673…067e Line {l1=0x09, l2=»0985 I0=I«, l3=0x09}
0x067e…069a Line {l1=0x1a, l2=»0990 IF I0=>LAST THEN I0=1«, l3=0x1a}
0x069a…06ad Line {l1=0x11, l2=»0995 IF J>0 THEN «, l3=0x11}
0x06ad…06c0 Line {l1=0x11, l2=»1000 CASE SV$ OF «, l3=0x11}
0x06c0…06df Line {l1=0x1d, l2=»1005 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x06df…06f6 Line {l1=0x15, l2=»1010 IF LAST<22 THEN «, l3=0x15}
0x06f6…0708 Line {l1=0x10, l2=»1015 CURSOR 1,23«, l3=0x10}
0x0708…0718 Line {l1=0x0e, l2=»1020 PRINT BL$«, l3=0x0e}
0x0718…0726 Line {l1=0x0c, l2=»1025 REPEAT «, l3=0x0c}
0x0726…0738 Line {l1=0x10, l2=»1030 CURSOR 1,23«, l3=0x10}
0x0738…0758 Line {l1=0x1e, l2=»1035 INPUT " ",LINE$«, l3=0x1e}
0x0758…0783 Line {l1=0x29, l2=»1040 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0783…078e Line {l1=0x09, l2=»1045 I1=I«, l3=0x09}
0x078e…07a0 Line {l1=0x10, l2=»1050 EXEC INDSÆT«, l3=0x10}
0x07a0…07ad Line {l1=0x0b, l2=»1055 ENDIF «, l3=0x0b}
0x07ad…07c0 Line {l1=0x11, l2=»1060 WHEN "T","t"«, l3=0x11}
0x07c0…07cb Line {l1=0x09, l2=»1065 J1=J«, l3=0x09}
0x07cb…07d6 Line {l1=0x09, l2=»1070 I1=I«, l3=0x09}
0x07d6…07e8 Line {l1=0x10, l2=»1075 CURSOR 1,23«, l3=0x10}
0x07e8…07f8 Line {l1=0x0e, l2=»1080 PRINT BL$«, l3=0x0e}
0x07f8…0806 Line {l1=0x0c, l2=»1085 REPEAT «, l3=0x0c}
0x0806…0818 Line {l1=0x10, l2=»1090 CURSOR 1,23«, l3=0x10}
0x0818…0838 Line {l1=0x1e, l2=»1095 INPUT " ",LINE$«, l3=0x1e}
0x0838…0863 Line {l1=0x29, l2=»1100 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0863…0875 Line {l1=0x10, l2=»1105 EXEC INSERT«, l3=0x10}
0x0875…0888 Line {l1=0x11, l2=»1110 WHEN "S","s"«, l3=0x11}
0x0888…089b Line {l1=0x11, l2=»1115 EXEC SLUTPOS«, l3=0x11}
0x089b…08ad Line {l1=0x10, l2=»1120 EXEC DELETE«, l3=0x10}
0x08ad…08cc Line {l1=0x1d, l2=»1125 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x08cc…08d7 Line {l1=0x09, l2=»1130 I1=I«, l3=0x09}
0x08d7…08e7 Line {l1=0x0e, l2=»1135 EXEC SLET«, l3=0x0e}
0x08e7…08fa Line {l1=0x11, l2=»1140 WHEN "R","r"«, l3=0x11}
0x08fa…090d Line {l1=0x11, l2=»1145 EXEC SLUTPOS«, l3=0x11}
0x090d…091f Line {l1=0x10, l2=»1150 CURSOR 1,23«, l3=0x10}
0x091f…092f Line {l1=0x0e, l2=»1155 PRINT BL$«, l3=0x0e}
0x092f…093d Line {l1=0x0c, l2=»1160 REPEAT «, l3=0x0c}
0x093d…094f Line {l1=0x10, l2=»1165 CURSOR 1,23«, l3=0x10}
0x094f…096f Line {l1=0x1e, l2=»1170 INPUT " ",LINE$«, l3=0x1e}
0x096f…099a Line {l1=0x29, l2=»1175 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x099a…09ae Line {l1=0x12, l2=»1180 IF I1=I THEN «, l3=0x12}
0x09ae…09d0 Line {l1=0x20, l2=»1185 IF LEN(LINE$)<=J-J1+1 THEN «, l3=0x20}
0x09d0…09f4 Line {l1=0x22, l2=»1190 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x09f4…0a0b Line {l1=0x15, l2=»1195 J1=J1+LEN(LINE$)«, l3=0x15}
0x0a0b…0a2b Line {l1=0x1e, l2=»1200 IF J1<=J THEN EXEC DELETE«, l3=0x1e}
0x0a2b…0a37 Line {l1=0x0a, l2=»1205 ELSE «, l3=0x0a}
0x0a37…0a61 Line {l1=0x28, l2=»1210 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x0a61…0a86 Line {l1=0x23, l2=»1215 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0a86…0a93 Line {l1=0x0b, l2=»1220 J1=J+1«, l3=0x0b}
0x0a93…0aa5 Line {l1=0x10, l2=»1225 EXEC INSERT«, l3=0x10}
0x0aa5…0ab2 Line {l1=0x0b, l2=»1230 ENDIF «, l3=0x0b}
0x0ab2…0abe Line {l1=0x0a, l2=»1235 ELSE «, l3=0x0a}
0x0abe…0adf Line {l1=0x1f, l2=»1240 IF LEN(LINE$)<=66-J1 THEN «, l3=0x1f}
0x0adf…0b03 Line {l1=0x22, l2=»1245 SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x22}
0x0b03…0b1a Line {l1=0x15, l2=»1250 J1=J1+LEN(LINE$)«, l3=0x15}
0x0b1a…0b2f Line {l1=0x13, l2=»1255 IF J1>66 THEN «, l3=0x13}
0x0b2f…0b3a Line {l1=0x09, l2=»1260 J1=1«, l3=0x09}
0x0b3a…0b48 Line {l1=0x0c, l2=»1265 I1=I1+1«, l3=0x0c}
0x0b48…0b55 Line {l1=0x0b, l2=»1270 ENDIF «, l3=0x0b}
0x0b55…0b67 Line {l1=0x10, l2=»1275 EXEC DELETE«, l3=0x10}
0x0b67…0b73 Line {l1=0x0a, l2=»1280 ELSE «, l3=0x0a}
0x0b73…0b7e Line {l1=0x09, l2=»1285 P=67«, l3=0x09}
0x0b7e…0bae Line {l1=0x2e, l2=»1290 IF J1>1 THEN LINE$=SIDE$(I1,1,J1-1)+LINE$«, l3=0x2e}
0x0bae…0bc5 Line {l1=0x15, l2=»1295 EXEC FLÆK(LINE$)«, l3=0x15}
0x0bc5…0be0 Line {l1=0x19, l2=»1300 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x0be0…0bee Line {l1=0x0c, l2=»1305 I1=I1+1«, l3=0x0c}
0x0bee…0bf9 Line {l1=0x09, l2=»1310 J1=1«, l3=0x09}
0x0bf9…0c0d Line {l1=0x12, l2=»1315 IF I1=I THEN «, l3=0x12}
0x0c0d…0c2d Line {l1=0x1e, l2=»1320 IF LEN(LINE$)<=J-J1 THEN «, l3=0x1e}
0x0c2d…0c66 Line {l1=0x37, l2=»1325 IF LEN(LINE$)>0 THEN SIDE$(I1,J1:LEN(LINE$))=LINE$«, l3=0x37}
0x0c66…0c7d Line {l1=0x15, l2=»1330 J1=J1+LEN(LINE$)«, l3=0x15}
0x0c7d…0c8f Line {l1=0x10, l2=»1335 EXEC DELETE«, l3=0x10}
0x0c8f…0c9b Line {l1=0x0a, l2=»1340 ELSE «, l3=0x0a}
0x0c9b…0cc5 Line {l1=0x28, l2=»1345 SIDE$(I1,J1:J-J1+1)=LINE$(1:J-J1+1)«, l3=0x28}
0x0cc5…0cea Line {l1=0x23, l2=»1350 LINE$=LINE$(J-J1+2,LEN(LINE$))«, l3=0x23}
0x0cea…0cf7 Line {l1=0x0b, l2=»1355 J1=J+1«, l3=0x0b}
0x0cf7…0d09 Line {l1=0x10, l2=»1360 EXEC INSERT«, l3=0x10}
0x0d09…0d16 Line {l1=0x0b, l2=»1365 ENDIF «, l3=0x0b}
0x0d16…0d22 Line {l1=0x0a, l2=»1370 ELSE «, l3=0x0a}
0x0d22…0d38 Line {l1=0x14, l2=»1375 SIDE$(I1)=LINE$«, l3=0x14}
0x0d38…0d4e Line {l1=0x14, l2=»1380 J1=LEN(LINE$)+1«, l3=0x14}
0x0d4e…0d60 Line {l1=0x10, l2=»1385 EXEC DELETE«, l3=0x10}
0x0d60…0d6d Line {l1=0x0b, l2=»1390 ENDIF «, l3=0x0b}
0x0d6d…0d7a Line {l1=0x0b, l2=»1395 ENDIF «, l3=0x0b}
0x0d7a…0d87 Line {l1=0x0b, l2=»1400 ENDIF «, l3=0x0b}
0x0d87…0d9a Line {l1=0x11, l2=»1405 WHEN "E","e"«, l3=0x11}
0x0d9a…0daf Line {l1=0x13, l2=»1410 LINE$=SIDE$(I)«, l3=0x13}
0x0daf…0dc1 Line {l1=0x10, l2=»1415 CURSOR 1,23«, l3=0x10}
0x0dc1…0dd1 Line {l1=0x0e, l2=»1420 PRINT BL$«, l3=0x0e}
0x0dd1…0ddf Line {l1=0x0c, l2=»1425 REPEAT «, l3=0x0c}
0x0ddf…0df1 Line {l1=0x10, l2=»1430 CURSOR 1,23«, l3=0x10}
0x0df1…0e10 Line {l1=0x1d, l2=»1435 EDIT " ",LINE$«, l3=0x1d}
0x0e10…0e3b Line {l1=0x29, l2=»1440 UNTIL LEN(LINE$)>0 AND LEN(LINE$)<67«, l3=0x29}
0x0e3b…0e75 Line {l1=0x38, l2=»1442 IF SIDE$(I,65,66)="##" OR SIDE$(I,65,66)="@@" THEN «, l3=0x38}
0x0e75…0ea7 Line {l1=0x30, l2=»1443 LINE$=LINE$+BL$;LINE$(65,66)=SIDE$(I,65,66)«, l3=0x30}
0x0ea7…0eb4 Line {l1=0x0b, l2=»1444 ENDIF «, l3=0x0b}
0x0eb4…0ecf Line {l1=0x19, l2=»1445 SIDE$(I)=LINE$(1,66)«, l3=0x19}
0x0ecf…0ee2 Line {l1=0x11, l2=»1450 WHEN "C","c"«, l3=0x11}
0x0ee2…0eec Line {l1=0x08, l2=»1455 V=1«, l3=0x08}
0x0eec…0f10 Line {l1=0x22, l2=»1460 WHILE SIDE$(I,V)=" " AND V<66«, l3=0x22}
0x0f10…0f1c Line {l1=0x0a, l2=»1465 V=V+1«, l3=0x0a}
0x0f1c…0f2c Line {l1=0x0e, l2=»1470 ENDWHILE «, l3=0x0e}
0x0f2c…0f37 Line {l1=0x09, l2=»1475 H=66«, l3=0x09}
0x0f37…0f5a Line {l1=0x21, l2=»1480 WHILE SIDE$(I,H)=" " AND H>1«, l3=0x21}
0x0f5a…0f66 Line {l1=0x0a, l2=»1485 H=H-1«, l3=0x0a}
0x0f66…0f76 Line {l1=0x0e, l2=»1490 ENDWHILE «, l3=0x0e}
0x0f76…0f8a Line {l1=0x12, l2=»1495 IF H=>V THEN «, l3=0x12}
0x0f8a…0fa5 Line {l1=0x19, l2=»1500 SS=INT((65-H+V)/2)+1«, l3=0x19}
0x0fa5…0fb4 Line {l1=0x0d, l2=»1505 SYM$=BL$«, l3=0x0d}
0x0fb4…0fd6 Line {l1=0x20, l2=»1510 SYM$(SS:H-V+1)=SIDE$(I,V,H)«, l3=0x20}
0x0fd6…0fea Line {l1=0x12, l2=»1515 SIDE$(I)=SYM$«, l3=0x12}
0x0fea…0ff7 Line {l1=0x0b, l2=»1520 ENDIF «, l3=0x0b}
0x0ff7…100c Line {l1=0x13, l2=»1525 WHEN "ST","GT"«, l3=0x13}
0x100c…1023 Line {l1=0x15, l2=»1530 IF LAST<22 THEN «, l3=0x15}
0x1023…1033 Line {l1=0x0e, l2=»1535 LINE$=BL$«, l3=0x0e}
0x1033…104b Line {l1=0x16, l2=»1540 IF SV$="ST" THEN «, l3=0x16}
0x104b…1063 Line {l1=0x16, l2=»1545 LINE$(65,66)="##"«, l3=0x16}
0x1063…106f Line {l1=0x0a, l2=»1550 ELSE «, l3=0x0a}
0x106f…1087 Line {l1=0x16, l2=»1555 LINE$(65,66)="@@"«, l3=0x16}
0x1087…1094 Line {l1=0x0b, l2=»1560 ENDIF «, l3=0x0b}
0x1094…109f Line {l1=0x09, l2=»1565 I1=I«, l3=0x09}
0x109f…10b1 Line {l1=0x10, l2=»1570 EXEC INDSÆT«, l3=0x10}
0x10b1…10be Line {l1=0x0b, l2=»1575 ENDIF «, l3=0x0b}
0x10be…10ce Line {l1=0x0e, l2=»1580 WHEN "BL"«, l3=0x0e}
0x10ce…10e5 Line {l1=0x15, l2=»1585 IF LAST<22 THEN «, l3=0x15}
0x10e5…10f5 Line {l1=0x0e, l2=»1590 LINE$=BL$«, l3=0x0e}
0x10f5…1107 Line {l1=0x10, l2=»1595 CURSOR 1,23«, l3=0x10}
0x1107…1117 Line {l1=0x0e, l2=»1600 PRINT BL$«, l3=0x0e}
0x1117…1125 Line {l1=0x0c, l2=»1605 REPEAT «, l3=0x0c}
0x1125…1137 Line {l1=0x10, l2=»1610 CURSOR 1,23«, l3=0x10}
0x1137…1158 Line {l1=0x1f, l2=»1615 INPUT "Faktor 1 ",SPLIT$«, l3=0x1f}
0x1158…1170 Line {l1=0x16, l2=»1620 SPLIT$=SPLIT$+"+"«, l3=0x16}
0x1170…1193 Line {l1=0x21, l2=»1625 EXEC CALC(6,SPLIT$,TAH$,HJ$)«, l3=0x21}
0x1193…11a6 Line {l1=0x11, l2=»1630 UNTIL FLAG=0«, l3=0x11}
0x11a6…11ca Line {l1=0x22, l2=»1635 LINE$(2,12)=HJ$(2,12);P1$=HJ$«, l3=0x22}
0x11ca…11f4 Line {l1=0x28, l2=»1640 IF LINE$(12)="+" THEN LINE$(12)=" "«, l3=0x28}
0x11f4…1202 Line {l1=0x0c, l2=»1645 REPEAT «, l3=0x0c}
0x1202…1214 Line {l1=0x10, l2=»1650 CURSOR 1,23«, l3=0x10}
0x1214…1235 Line {l1=0x1f, l2=»1655 INPUT "Faktor 2 ",SPLIT$«, l3=0x1f}
0x1235…124d Line {l1=0x16, l2=»1660 SPLIT$=SPLIT$+"+"«, l3=0x16}
0x124d…1270 Line {l1=0x21, l2=»1665 EXEC CALC(6,SPLIT$,TAH$,HJ$)«, l3=0x21}
0x1270…1283 Line {l1=0x11, l2=»1670 UNTIL FLAG=0«, l3=0x11}
0x1283…12a3 Line {l1=0x1e, l2=»1675 EXEC CALC(4,HJ$,TAH$,HJ$)«, l3=0x1e}
0x12a3…12b7 Line {l1=0x12, l2=»1680 IF SI>0 THEN «, l3=0x12}
0x12b7…12d6 Line {l1=0x1d, l2=»1685 EXEC CALC(2,HJ$,P1$,P1$)«, l3=0x1d}
0x12d6…12f7 Line {l1=0x1f, l2=»1690 LINE$(13,24)="*"+HJ$(2,12)«, l3=0x1f}
0x12f7…1321 Line {l1=0x28, l2=»1695 IF LINE$(24)="+" THEN LINE$(24)=" "«, l3=0x28}
0x1321…132f Line {l1=0x0c, l2=»1700 REPEAT «, l3=0x0c}
0x132f…1341 Line {l1=0x10, l2=»1705 CURSOR 1,23«, l3=0x10}
0x1341…1362 Line {l1=0x1f, l2=»1710 INPUT "Faktor 3 ",SPLIT$«, l3=0x1f}
0x1362…137a Line {l1=0x16, l2=»1715 SPLIT$=SPLIT$+"+"«, l3=0x16}
0x137a…139d Line {l1=0x21, l2=»1720 EXEC CALC(6,SPLIT$,TAH$,HJ$)«, l3=0x21}
0x139d…13b0 Line {l1=0x11, l2=»1725 UNTIL FLAG=0«, l3=0x11}
0x13b0…13d0 Line {l1=0x1e, l2=»1730 EXEC CALC(4,HJ$,TAH$,HJ$)«, l3=0x1e}
0x13d0…13e4 Line {l1=0x12, l2=»1735 IF SI>0 THEN «, l3=0x12}
0x13e4…1405 Line {l1=0x1f, l2=»1740 LINE$(25,36)="*"+HJ$(2,12)«, l3=0x1f}
0x1405…1424 Line {l1=0x1d, l2=»1745 EXEC CALC(2,HJ$,P1$,P1$)«, l3=0x1d}
0x1424…144e Line {l1=0x28, l2=»1750 IF LINE$(36)="+" THEN LINE$(36)=" "«, l3=0x28}
0x144e…145b Line {l1=0x0b, l2=»1755 ENDIF «, l3=0x0b}
0x145b…1468 Line {l1=0x0b, l2=»1760 ENDIF «, l3=0x0b}
0x1468…1476 Line {l1=0x0c, l2=»1765 REPEAT «, l3=0x0c}
0x1476…1488 Line {l1=0x10, l2=»1770 CURSOR 1,23«, l3=0x10}
0x1488…14a9 Line {l1=0x1f, l2=»1775 INPUT "Prisfaktor ",SPLIT$«, l3=0x1f}
0x14a9…14c1 Line {l1=0x16, l2=»1780 SPLIT$=SPLIT$+"+"«, l3=0x16}
0x14c1…14e4 Line {l1=0x21, l2=»1785 EXEC CALC(6,SPLIT$,TAH$,HJ$)«, l3=0x21}
0x14e4…14f7 Line {l1=0x11, l2=»1790 UNTIL FLAG=0«, l3=0x11}
0x14f7…151d Line {l1=0x24, l2=»1795 LINE$(37,50)="a"+HJ$(2,12)+"Kr"«, l3=0x24}
0x151d…1547 Line {l1=0x28, l2=»1800 IF LINE$(48)="+" THEN LINE$(48)=" "«, l3=0x28}
0x1547…1566 Line {l1=0x1d, l2=»1805 EXEC CALC(2,HJ$,P1$,P1$)«, l3=0x1d}
0x1566…158c Line {l1=0x24, l2=»1810 IF P1$(12)="+" THEN P1$(12)=" "«, l3=0x24}
0x158c…15b1 Line {l1=0x23, l2=»1815 LINE$(51,66)=P1$(2,12)+"Kr %%"«, l3=0x23}
0x15b1…15bc Line {l1=0x09, l2=»1820 I1=I«, l3=0x09}
0x15bc…15ce Line {l1=0x10, l2=»1825 EXEC INDSÆT«, l3=0x10}
0x15ce…15db Line {l1=0x0b, l2=»1830 ENDIF «, l3=0x0b}
0x15db…15ea Line {l1=0x0d, l2=»1835 ENDCASE «, l3=0x0d}
0x15ea…1602 Line {l1=0x16, l2=»1840 ST$=TAH$;GT$=TAH$«, l3=0x16}
0x1602…1613 Line {l1=0x0f, l2=»1845 EXEC SKRIV«, l3=0x0f}
0x1613…1620 Line {l1=0x0b, l2=»1850 ENDIF «, l3=0x0b}
0x1620…162d Line {l1=0x0b, l2=»1855 ENDIF «, l3=0x0b}
0x162d…164c Line {l1=0x1d, l2=»1860 UNTIL SV$="F" OR SV$="f"«, l3=0x1d}
0x164c…1663 Line {l1=0x15, l2=»3060 IF LAST>20 THEN «, l3=0x15}
0x1663…1675 Line {l1=0x10, l2=»3080 CURSOR 1,22«, l3=0x10}
0x1675…16ab Line {l1=0x34, l2=»3100 PRINT "SIDEN ER FOR ";LAST-20;"LINIER FOR LANG"«, l3=0x34}
0x16ab…16bc Line {l1=0x0f, l2=»3120 GO TO 0960«, l3=0x0f}
0x16bc…16c9 Line {l1=0x0b, l2=»3140 ENDIF «, l3=0x0b}
0x16c9…16ed Line {l1=0x22, l2=»3160 IF (S$="O") OR (S$="o") THEN «, l3=0x22}
0x16ed…16fb Line {l1=0x0c, l2=»3180 REPEAT «, l3=0x0c}
0x16fb…1716 Line {l1=0x19, l2=»3200 INPUT "MODULNR ",SV$«, l3=0x19}
0x1716…1728 Line {l1=0x10, l2=»3220 EXEC CHECK1«, l3=0x10}
0x1728…173e Line {l1=0x14, l2=»3240 UNTIL OKAY=TRUE«, l3=0x14}
0x173e…1755 Line {l1=0x15, l2=»3260 EXEC CONVERT(NR)«, l3=0x15}
0x1755…176a Line {l1=0x13, l2=»3280 FIL1$=FIL$+SV$«, l3=0x13}
0x176a…177f Line {l1=0x13, l2=»3300 CREATE FIL1$,6«, l3=0x13}
0x177f…17a9 Line {l1=0x28, l2=»3320 IF STATUS(FIL1$)<>0 THEN GO TO 3180«, l3=0x28}
0x17a9…17bc Line {l1=0x11, l2=»3340 OPEN FIL1$,W«, l3=0x11}
0x17bc…17c9 Line {l1=0x0b, l2=»3360 ENDIF «, l3=0x0b}
0x17c9…17df Line {l1=0x14, l2=»3380 FOR L=1 TO LAST«, l3=0x14}
0x17df…17f8 Line {l1=0x17, l2=»3400 PUT FIL1$:SIDE$(L)«, l3=0x17}
0x17f8…1805 Line {l1=0x0b, l2=»3420 NEXT L«, l3=0x0b}
0x1805…1819 Line {l1=0x12, l2=»3450 ENDFILE FIL1$«, l3=0x12}
0x1819…182b Line {l1=0x10, l2=»3500 CLOSE FIL1$«, l3=0x10}
0x182b…183c Line {l1=0x0f, l2=»3520 GO TO 0240«, l3=0x0f}
0x183c…184f Line {l1=0x11, l2=»3540 PROC FINDPOS«, l3=0x11}
0x184f…185d Line {l1=0x0c, l2=»3560 REPEAT «, l3=0x0c}
0x185d…1869 Line {l1=0x0a, l2=»3580 I=I+1«, l3=0x0a}
0x1869…187a Line {l1=0x0f, l2=»3600 CURSOR 1,I«, l3=0x0f}
0x187a…189a Line {l1=0x1e, l2=»3620 INPUT " ",LINE$«, l3=0x1e}
0x189a…18bb Line {l1=0x1f, l2=»3640 UNTIL I=22 OR LEN(LINE$)>0«, l3=0x1f}
0x18bb…18ce Line {l1=0x11, l2=»3660 J=LEN(LINE$)«, l3=0x11}
0x18ce…18e6 Line {l1=0x16, l2=»3680 IF J>66 THEN J=66«, l3=0x16}
0x18e6…18f5 Line {l1=0x0d, l2=»3700 ENDPROC «, l3=0x0d}
0x18f5…1907 Line {l1=0x10, l2=»3860 PROC INDSÆT«, l3=0x10}
0x1907…1919 Line {l1=0x10, l2=»3880 LAST=LAST+1«, l3=0x10}
0x1919…1937 Line {l1=0x1c, l2=»3900 IF I1>LAST THEN LAST=I1«, l3=0x1c}
0x1937…1958 Line {l1=0x1f, l2=»3920 FOR L=LAST TO I1+1 STEP -1«, l3=0x1f}
0x1958…1972 Line {l1=0x18, l2=»3940 SIDE$(L)=SIDE$(L-1)«, l3=0x18}
0x1972…197f Line {l1=0x0b, l2=»3960 NEXT L«, l3=0x0b}
0x197f…1999 Line {l1=0x18, l2=»3980 SIDE$(I1)=LINE$+BL$«, l3=0x18}
0x1999…19a8 Line {l1=0x0d, l2=»4000 ENDPROC «, l3=0x0d}
0x19a8…19b8 Line {l1=0x0e, l2=»4020 PROC SLET«, l3=0x0e}
0x19b8…19d1 Line {l1=0x17, l2=»4040 FOR L=I1 TO LAST-1«, l3=0x17}
0x19d1…19eb Line {l1=0x18, l2=»4060 SIDE$(L)=SIDE$(L+1)«, l3=0x18}
0x19eb…19f8 Line {l1=0x0b, l2=»4080 NEXT L«, l3=0x0b}
0x19f8…1a0d Line {l1=0x13, l2=»4100 SIDE$(LAST)=""«, l3=0x13}
0x1a0d…1a1f Line {l1=0x10, l2=»4120 LAST=LAST-1«, l3=0x10}
0x1a1f…1a2e Line {l1=0x0d, l2=»4140 ENDPROC «, l3=0x0d}
0x1a2e…1a41 Line {l1=0x11, l2=»4160 PROC SLUTPOS«, l3=0x11}
0x1a41…1a4c Line {l1=0x09, l2=»4180 I1=I«, l3=0x09}
0x1a4c…1a57 Line {l1=0x09, l2=»4200 J1=J«, l3=0x09}
0x1a57…1a6b Line {l1=0x12, l2=»4220 CURSOR J+10,I«, l3=0x12}
0x1a6b…1a81 Line {l1=0x14, l2=»4240 INPUT " ",LINE$«, l3=0x14}
0x1a81…1a9d Line {l1=0x1a, l2=»4260 IF LEN(LINE$)=0 THEN «, l3=0x1a}
0x1a9d…1ab0 Line {l1=0x11, l2=»4280 EXEC FINDPOS«, l3=0x11}
0x1ab0…1abc Line {l1=0x0a, l2=»4300 ELSE «, l3=0x0a}
0x1abc…1ad4 Line {l1=0x16, l2=»4320 J=LEN(LINE$)+J1-1«, l3=0x16}
0x1ad4…1aec Line {l1=0x16, l2=»4340 IF J>66 THEN J=66«, l3=0x16}
0x1aec…1af9 Line {l1=0x0b, l2=»4360 ENDIF «, l3=0x0b}
0x1af9…1b08 Line {l1=0x0d, l2=»4380 ENDPROC «, l3=0x0d}
0x1b08…1b1d Line {l1=0x13, l2=»4400 PROC FLÆK(LIN)«, l3=0x13}
0x1b1d…1b27 Line {l1=0x08, l2=»4410 Q=0«, l3=0x08}
0x1b27…1b37 Line {l1=0x0e, l2=»4420 SPLIT$=""«, l3=0x0e}
0x1b37…1b49 Line {l1=0x10, l2=»4440 FOUND=FALSE«, l3=0x10}
0x1b49…1b5b Line {l1=0x10, l2=»4460 Q=LEN(LIN$)«, l3=0x10}
0x1b5b…1b6b Line {l1=0x0e, l2=»4480 WHILE Q>0«, l3=0x0e}
0x1b6b…1b86 Line {l1=0x19, l2=»4500 IF LIN$(Q)=" " THEN «, l3=0x19}
0x1b86…1b97 Line {l1=0x0f, l2=»4520 LIN$(Q)=""«, l3=0x0f}
0x1b97…1ba3 Line {l1=0x0a, l2=»4540 Q=Q-1«, l3=0x0a}
0x1ba3…1baf Line {l1=0x0a, l2=»4560 ELSE «, l3=0x0a}
0x1baf…1bb9 Line {l1=0x08, l2=»4580 Q=0«, l3=0x08}
0x1bb9…1bc6 Line {l1=0x0b, l2=»4600 ENDIF «, l3=0x0b}
0x1bc6…1bd6 Line {l1=0x0e, l2=»4620 ENDWHILE «, l3=0x0e}
0x1bd6…1bf1 Line {l1=0x19, l2=»4640 IF P>LEN(LIN$) THEN «, l3=0x19}
0x1bf1…1c02 Line {l1=0x0f, l2=»4660 FOUND=TRUE«, l3=0x0f}
0x1c02…1c16 Line {l1=0x12, l2=»4680 P=LEN(LIN$)+1«, l3=0x12}
0x1c16…1c22 Line {l1=0x0a, l2=»4700 ELSE «, l3=0x0a}
0x1c22…1c3b Line {l1=0x17, l2=»4720 IF P<66 THEN P=P+1«, l3=0x17}
0x1c3b…1c57 Line {l1=0x1a, l2=»4740 IF LIN$(P)<>" " THEN «, l3=0x1a}
0x1c57…1c69 Line {l1=0x10, l2=»4760 CURSOR 1,23«, l3=0x10}
0x1c69…1c92 Line {l1=0x27, l2=»4762 PRINT " ";LIN$(1,P),BL$«, l3=0x27}
0x1c92…1ca4 Line {l1=0x10, l2=»4764 CURSOR 1,23«, l3=0x10}
0x1ca4…1cc6 Line {l1=0x20, l2=»4766 INPUT "Del ",SPLIT$«, l3=0x20}
0x1cc6…1cda Line {l1=0x12, l2=»4768 P=LEN(SPLIT$)«, l3=0x12}
0x1cda…1ced Line {l1=0x11, l2=»4770 IF P>0 THEN «, l3=0x11}
0x1ced…1cfe Line {l1=0x0f, l2=»4772 FOUND=TRUE«, l3=0x0f}
0x1cfe…1d1e Line {l1=0x1e, l2=»4774 IF SPLIT$(P)="-" THEN Q=1«, l3=0x1e}
0x1d1e…1d2a Line {l1=0x0a, l2=»4776 ELSE «, l3=0x0a}
0x1d2a…1d3c Line {l1=0x10, l2=»4778 FOUND=FALSE«, l3=0x10}
0x1d3c…1d49 Line {l1=0x0b, l2=»4780 ENDIF «, l3=0x0b}
0x1d49…1d55 Line {l1=0x0a, l2=»4840 ELSE «, l3=0x0a}
0x1d55…1d66 Line {l1=0x0f, l2=»4860 FOUND=TRUE«, l3=0x0f}
0x1d66…1d73 Line {l1=0x0b, l2=»4880 ENDIF «, l3=0x0b}
0x1d73…1d80 Line {l1=0x0b, l2=»4900 ENDIF «, l3=0x0b}
0x1d80…1d95 Line {l1=0x13, l2=»4920 IF FOUND THEN «, l3=0x13}
0x1d95…1da8 Line {l1=0x11, l2=»4940 IF P=1 THEN «, l3=0x11}
0x1da8…1db8 Line {l1=0x0e, l2=»4960 SPLIT$=""«, l3=0x0e}
0x1db8…1deb Line {l1=0x31, l2=»4980 IF P<LEN(LIN$) THEN LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x31}
0x1deb…1df7 Line {l1=0x0a, l2=»5000 ELSE «, l3=0x0a}
0x1df7…1e0f Line {l1=0x16, l2=»5010 IF Q=0 THEN P=P+1«, l3=0x16}
0x1e0f…1e28 Line {l1=0x17, l2=»5020 SPLIT$=LIN$(1,P-1)«, l3=0x17}
0x1e28…1e3b Line {l1=0x11, l2=»5030 IF Q=1 THEN «, l3=0x11}
0x1e3b…1e4f Line {l1=0x12, l2=»5032 SPLIT$(P)="-"«, l3=0x12}
0x1e4f…1e5b Line {l1=0x0a, l2=»5034 P=P-1«, l3=0x0a}
0x1e5b…1e68 Line {l1=0x0b, l2=»5036 ENDIF «, l3=0x0b}
0x1e68…1e83 Line {l1=0x19, l2=»5040 IF P<LEN(LIN$) THEN «, l3=0x19}
0x1e83…1ea2 Line {l1=0x1d, l2=»5060 LIN$=LIN$(P+1,LEN(LIN$))«, l3=0x1d}
0x1ea2…1eae Line {l1=0x0a, l2=»5080 ELSE «, l3=0x0a}
0x1eae…1ebc Line {l1=0x0c, l2=»5100 LIN$=""«, l3=0x0c}
0x1ebc…1ec9 Line {l1=0x0b, l2=»5120 ENDIF «, l3=0x0b}
0x1ec9…1ed6 Line {l1=0x0b, l2=»5140 ENDIF «, l3=0x0b}
0x1ed6…1ee3 Line {l1=0x0b, l2=»5160 ENDIF «, l3=0x0b}
0x1ee3…1ef2 Line {l1=0x0d, l2=»5180 ENDPROC «, l3=0x0d}
0x1ef2…1f04 Line {l1=0x10, l2=»5200 PROC INSERT«, l3=0x10}
0x1f04…1f10 Line {l1=0x0a, l2=»5220 B$=""«, l3=0x0a}
0x1f10…1f37 Line {l1=0x25, l2=»5240 IF J1>1 THEN B$=SIDE$(I1,1,J1-1)«, l3=0x25}
0x1f37…1f49 Line {l1=0x10, l2=»5260 B$=B$+LINE$«, l3=0x10}
0x1f49…1f73 Line {l1=0x28, l2=»5280 IF J1<67 THEN B$=B$+SIDE$(I1,J1,66)«, l3=0x28}
0x1f73…1f7e Line {l1=0x09, l2=»5300 P=67«, l3=0x09}
0x1f7e…1f92 Line {l1=0x12, l2=»5320 EXEC FLÆK(B$)«, l3=0x12}
0x1f92…1fad Line {l1=0x19, l2=»5340 SIDE$(I1)=SPLIT$+BL$«, l3=0x19}
0x1fad…1fbb Line {l1=0x0c, l2=»5360 I1=I1+1«, l3=0x0c}
0x1fbb…1fc6 Line {l1=0x09, l2=»5380 J1=1«, l3=0x09}
0x1fc6…1fd5 Line {l1=0x0d, l2=»5400 LINE$=B$«, l3=0x0d}
0x1fd5…2018 Line {l1=0x41, l2=»5420 WHILE SIDE$(I1,1)<>" " AND LEN(LINE$)>0 AND LEN(SIDE$(I1))>0«, l3=0x41}
0x2018…202b Line {l1=0x11, l2=»5440 B$=SIDE$(I1)«, l3=0x11}
0x202b…2050 Line {l1=0x23, l2=»5460 IF LINE$(LEN(LINE$))="-" THEN «, l3=0x23}
0x2050…206b Line {l1=0x19, l2=»5480 LINE$(LEN(LINE$))=""«, l3=0x19}
0x206b…2077 Line {l1=0x0a, l2=»5500 ELSE «, l3=0x0a}
0x2077…20a3 Line {l1=0x2a, l2=»5520 IF LEN(LINE$)<66 THEN LINE$=LINE$+" "«, l3=0x2a}
0x20a3…20b0 Line {l1=0x0b, l2=»5540 ENDIF «, l3=0x0b}
0x20b0…20d3 Line {l1=0x21, l2=»5560 SIDE$(I1,1,LEN(LINE$))=LINE$«, l3=0x21}
0x20d3…20e9 Line {l1=0x14, l2=»5580 P=67-LEN(LINE$)«, l3=0x14}
0x20e9…20fd Line {l1=0x12, l2=»5600 EXEC FLÆK(B$)«, l3=0x12}
0x20fd…213e Line {l1=0x3f, l2=»5620 IF LEN(SPLIT$)>0 THEN SIDE$(I1,LEN(LINE$)+1,66)=SPLIT$+BL$«, l3=0x3f}
0x213e…214d Line {l1=0x0d, l2=»5640 LINE$=B$«, l3=0x0d}
0x214d…215b Line {l1=0x0c, l2=»5660 I1=I1+1«, l3=0x0c}
0x215b…216b Line {l1=0x0e, l2=»5680 ENDWHILE «, l3=0x0e}
0x216b…2187 Line {l1=0x1a, l2=»5700 IF LEN(LINE$)>0 THEN «, l3=0x1a}
0x2187…2199 Line {l1=0x10, l2=»5720 EXEC INDSÆT«, l3=0x10}
0x2199…21a6 Line {l1=0x0b, l2=»5740 ENDIF «, l3=0x0b}
0x21a6…21b5 Line {l1=0x0d, l2=»5760 ENDPROC «, l3=0x0d}
0x21b5…21c7 Line {l1=0x10, l2=»5780 PROC DELETE«, l3=0x10}
0x21c7…21d3 Line {l1=0x0a, l2=»5800 J=J+1«, l3=0x0a}
0x21d3…21e7 Line {l1=0x12, l2=»5820 IF J>66 THEN «, l3=0x12}
0x21e7…21f1 Line {l1=0x08, l2=»5840 J=1«, l3=0x08}
0x21f1…21fd Line {l1=0x0a, l2=»5860 I=I+1«, l3=0x0a}
0x21fd…220a Line {l1=0x0b, l2=»5880 ENDIF «, l3=0x0b}
0x220a…2218 Line {l1=0x0c, l2=»5900 P=67-J1«, l3=0x0c}
0x2218…2230 Line {l1=0x16, l2=»5920 IF I=LAST+1 THEN «, l3=0x16}
0x2230…2244 Line {l1=0x12, l2=»5940 IF J1>1 THEN «, l3=0x12}
0x2244…225e Line {l1=0x18, l2=»5960 SIDE$(I1,J1,66)=BL$«, l3=0x18}
0x225e…226a Line {l1=0x0a, l2=»5980 ELSE «, l3=0x0a}
0x226a…2278 Line {l1=0x0c, l2=»6000 I1=I1-1«, l3=0x0c}
0x2278…2285 Line {l1=0x0b, l2=»6020 ENDIF «, l3=0x0b}
0x2285…229e Line {l1=0x17, l2=»6040 FOR Q=I1+1 TO LAST«, l3=0x17}
0x229e…22b1 Line {l1=0x11, l2=»6060 SIDE$(Q)=BL$«, l3=0x11}
0x22b1…22be Line {l1=0x0b, l2=»6080 NEXT Q«, l3=0x0b}
0x22be…22cc Line {l1=0x0c, l2=»6100 LAST=I1«, l3=0x0c}
0x22cc…22d8 Line {l1=0x0a, l2=»6120 ELSE «, l3=0x0a}
0x22d8…22f2 Line {l1=0x18, l2=»6140 LINE$=SIDE$(I,J,66)«, l3=0x18}
0x22f2…2309 Line {l1=0x15, l2=»6160 EXEC FLÆK(LINE$)«, l3=0x15}
0x2309…2317 Line {l1=0x0c, l2=»6180 REPEAT «, l3=0x0c}
0x2317…2326 Line {l1=0x0d, l2=»6200 HYPHEN=0«, l3=0x0d}
0x2326…2343 Line {l1=0x1b, l2=»6220 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x2343…236a Line {l1=0x25, l2=»6240 IF SPLIT$(LEN(SPLIT$))="-" THEN «, l3=0x25}
0x236a…238f Line {l1=0x23, l2=»6260 HYPHEN=LEN(SPLIT$)+J1-1+100*I1«, l3=0x23}
0x238f…23ac Line {l1=0x1b, l2=»6280 SPLIT$(LEN(SPLIT$))=""«, l3=0x1b}
0x23ac…23b8 Line {l1=0x0a, l2=»6300 ELSE «, l3=0x0a}
0x23b8…23d0 Line {l1=0x16, l2=»6320 SPLIT$=SPLIT$+" "«, l3=0x16}
0x23d0…23dd Line {l1=0x0b, l2=»6340 ENDIF «, l3=0x0b}
0x23dd…23ea Line {l1=0x0b, l2=»6360 ENDIF «, l3=0x0b}
0x23ea…240b Line {l1=0x1f, l2=»6380 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x240b…243d Line {l1=0x30, l2=»6400 IF J1+LEN(SPLIT$)<66 AND LEN(LINE$)=0 THEN «, l3=0x30}
0x243d…2455 Line {l1=0x16, l2=»6420 J1=J1+LEN(SPLIT$)«, l3=0x16}
0x2455…2463 Line {l1=0x0c, l2=»6440 P=67-J1«, l3=0x0c}
0x2463…2477 Line {l1=0x12, l2=»6460 IF I<22 THEN «, l3=0x12}
0x2477…2498 Line {l1=0x1f, l2=»6480 IF SIDE$(I+1,1)<>" " THEN «, l3=0x1f}
0x2498…24af Line {l1=0x15, l2=»6500 LINE$=SIDE$(I+1)«, l3=0x15}
0x24af…24bb Line {l1=0x0a, l2=»6520 I=I+1«, l3=0x0a}
0x24bb…24d2 Line {l1=0x15, l2=»6540 EXEC FLÆK(LINE$)«, l3=0x15}
0x24d2…24ef Line {l1=0x1b, l2=»6560 IF LEN(SPLIT$)>0 THEN «, l3=0x1b}
0x24ef…2510 Line {l1=0x1f, l2=»6580 SIDE$(I1,J1,66)=SPLIT$+BL$«, l3=0x1f}
0x2510…2531 Line {l1=0x1f, l2=»6600 IF LEN(LINE$)>0 THEN I=I-1«, l3=0x1f}
0x2531…2544 Line {l1=0x11, l2=»6620 SPLIT$=LINE$«, l3=0x11}
0x2544…2553 Line {l1=0x0d, l2=»6640 LINE$=""«, l3=0x0d}
0x2553…2562 Line {l1=0x0d, l2=»6660 HYPHEN=0«, l3=0x0d}
0x2562…256e Line {l1=0x0a, l2=»6680 ELSE «, l3=0x0a}
0x256e…2586 Line {l1=0x16, l2=»6700 SIDE$(I1+1)=LINE$«, l3=0x16}
0x2586…2595 Line {l1=0x0d, l2=»6720 LINE$=""«, l3=0x0d}
0x2595…25a3 Line {l1=0x0c, l2=»6740 I1=I1+1«, l3=0x0c}
0x25a3…25b0 Line {l1=0x0b, l2=»6760 ENDIF «, l3=0x0b}
0x25b0…25bc Line {l1=0x0a, l2=»6780 ELSE «, l3=0x0a}
0x25bc…25cb Line {l1=0x0d, l2=»6800 LINE$=""«, l3=0x0d}
0x25cb…25db Line {l1=0x0e, l2=»6820 SPLIT$=""«, l3=0x0e}
0x25db…25e8 Line {l1=0x0b, l2=»6840 ENDIF «, l3=0x0b}
0x25e8…25f4 Line {l1=0x0a, l2=»6860 ELSE «, l3=0x0a}
0x25f4…2603 Line {l1=0x0d, l2=»6880 LINE$=""«, l3=0x0d}
0x2603…2613 Line {l1=0x0e, l2=»6900 SPLIT$=""«, l3=0x0e}
0x2613…2620 Line {l1=0x0b, l2=»6920 ENDIF «, l3=0x0b}
0x2620…262c Line {l1=0x0a, l2=»6940 ELSE «, l3=0x0a}
0x262c…263b Line {l1=0x0d, l2=»6960 B$=LINE$«, l3=0x0d}
0x263b…2652 Line {l1=0x15, l2=»6980 LINE$=SIDE$(I+1)«, l3=0x15}
0x2652…2667 Line {l1=0x13, l2=»7000 SIDE$(I1+1)=B$«, l3=0x13}
0x2667…2680 Line {l1=0x17, l2=»7020 J1=LEN(B$);P=67-J1«, l3=0x17}
0x2680…2697 Line {l1=0x15, l2=»7040 EXEC FLÆK(LINE$)«, l3=0x15}
0x2697…26a4 Line {l1=0x0b, l2=»7060 ENDIF «, l3=0x0b}
0x26a4…26e4 Line {l1=0x3e, l2=»7080 IF HYPHEN>0 THEN SIDE$(HYPHEN DIV 100,HYPHEN MOD 100)="-"«, l3=0x3e}
0x26e4…26ef Line {l1=0x09, l2=»7100 J1=1«, l3=0x09}
0x26ef…26f9 Line {l1=0x08, l2=»7120 J=1«, l3=0x08}
0x26f9…2707 Line {l1=0x0c, l2=»7140 I1=I1+1«, l3=0x0c}
0x2707…2713 Line {l1=0x0a, l2=»7160 I=I+1«, l3=0x0a}
0x2713…272b Line {l1=0x16, l2=»7180 IF I>22 THEN I=22«, l3=0x16}
0x272b…2774 Line {l1=0x47, l2=»7200 UNTIL (LEN(SPLIT$)=0 AND LEN(LINE$)=0) OR (J=1 AND SIDE$(I,1)=" ")«, l3=0x47}
0x2774…277f Line {l1=0x09, l2=»7220 J=I1«, l3=0x09}
0x277f…278f Line {l1=0x0e, l2=»7240 WHILE J<I«, l3=0x0e}
0x278f…279f Line {l1=0x0e, l2=»7260 EXEC SLET«, l3=0x0e}
0x279f…27ab Line {l1=0x0a, l2=»7280 J=J+1«, l3=0x0a}
0x27ab…27bb Line {l1=0x0e, l2=»7300 ENDWHILE «, l3=0x0e}
0x27bb…27c8 Line {l1=0x0b, l2=»7320 ENDIF «, l3=0x0b}
0x27c8…27d7 Line {l1=0x0d, l2=»7330 ENDPROC «, l3=0x0d}
0x27d7…27e9 Line {l1=0x10, l2=»7340 PROC CHECK1«, l3=0x10}
0x27e9…27f4 Line {l1=0x09, l2=»7360 NR=0«, l3=0x09}
0x27f4…27fe Line {l1=0x08, l2=»7380 I=1«, l3=0x08}
0x27fe…2827 Line {l1=0x27, l2=»7400 IF LEN(SV$)>0 AND LEN(SV$)<3 THEN «, l3=0x27}
0x2827…2837 Line {l1=0x0e, l2=»7420 OKAY=TRUE«, l3=0x0e}
0x2837…2843 Line {l1=0x0a, l2=»7440 ELSE «, l3=0x0a}
0x2843…2854 Line {l1=0x0f, l2=»7460 OKAY=FALSE«, l3=0x0f}
0x2854…2861 Line {l1=0x0b, l2=»7480 ENDIF «, l3=0x0b}
0x2861…2879 Line {l1=0x16, l2=»7500 WHILE I<=LEN(SV$)«, l3=0x16}
0x2879…28a1 Line {l1=0x26, l2=»7520 IF SV$(I)<"0" OR SV$(I)>"9" THEN «, l3=0x26}
0x28a1…28b2 Line {l1=0x0f, l2=»7540 OKAY=FALSE«, l3=0x0f}
0x28b2…28c5 Line {l1=0x11, l2=»7560 I=LEN(SV$)+1«, l3=0x11}
0x28c5…28d1 Line {l1=0x0a, l2=»7580 ELSE «, l3=0x0a}
0x28d1…28ef Line {l1=0x1c, l2=»7600 NR=NR*10+ORD(SV$(I))-48«, l3=0x1c}
0x28ef…28fb Line {l1=0x0a, l2=»7620 I=I+1«, l3=0x0a}
0x28fb…2908 Line {l1=0x0b, l2=»7640 ENDIF «, l3=0x0b}
0x2908…2918 Line {l1=0x0e, l2=»7660 ENDWHILE «, l3=0x0e}
0x2918…2927 Line {l1=0x0d, l2=»7680 ENDPROC «, l3=0x0d}
0x2927…293e Line {l1=0x15, l2=»7700 PROC CONVERT(NO)«, l3=0x15}
0x293e…296c Line {l1=0x2c, l2=»7720 SV$=CHR(NO DIV 10+48)+CHR(NO MOD 10+48)«, l3=0x2c}
0x296c…297b Line {l1=0x0d, l2=»7740 ENDPROC «, l3=0x0d}
0x297b…298c Line {l1=0x0f, l2=»7780 PROC SKRIV«, l3=0x0f}
0x298c…299b Line {l1=0x0d, l2=»7782 LINENR=0«, l3=0x0d}
0x299b…29a8 Line {l1=0x0b, l2=»7785 CLEAR «, l3=0x0b}
0x29a8…29bc Line {l1=0x12, l2=»7790 FOR X=1 TO 22«, l3=0x12}
0x29bc…29cd Line {l1=0x0f, l2=»7795 CURSOR 1,X«, l3=0x0f}
0x29cd…29f0 Line {l1=0x21, l2=»7800 PRINT USING "####":LINENR+X;«, l3=0x21}
0x29f0…2a06 Line {l1=0x14, l2=»7805 IF X>LAST THEN «, l3=0x14}
0x2a06…2a16 Line {l1=0x0e, l2=»7810 PRINT " "«, l3=0x0e}
0x2a16…2a22 Line {l1=0x0a, l2=»7815 ELSE «, l3=0x0a}
0x2a22…2a40 Line {l1=0x1c, l2=»7820 CASE SIDE$(X,65,66) OF «, l3=0x1c}
0x2a40…2a5f Line {l1=0x1d, l2=»7825 PRINT " ";SIDE$(X)«, l3=0x1d}
0x2a5f…2a6f Line {l1=0x0e, l2=»7830 WHEN "##"«, l3=0x0e}
0x2a6f…2a95 Line {l1=0x24, l2=»7835 IF ST$(12)="+" THEN ST$(12)=" "«, l3=0x24}
0x2a95…2ac2 Line {l1=0x2b, l2=»7840 PRINT " ";SIDE$(X,1,49);ST$;"Kr"«, l3=0x2b}
0x2ac2…2ad1 Line {l1=0x0d, l2=»7845 ST$=TAH$«, l3=0x0d}
0x2ad1…2ae1 Line {l1=0x0e, l2=»7850 WHEN "@@"«, l3=0x0e}
0x2ae1…2b07 Line {l1=0x24, l2=»7855 IF GT$(12)="+" THEN GT$(12)=" "«, l3=0x24}
0x2b07…2b34 Line {l1=0x2b, l2=»7860 PRINT " ";SIDE$(X,1,49);GT$;"Kr"«, l3=0x2b}
0x2b34…2b43 Line {l1=0x0d, l2=»7865 GT$=TAH$«, l3=0x0d}
0x2b43…2b53 Line {l1=0x0e, l2=»7870 WHEN "%%"«, l3=0x0e}
0x2b53…2b6c Line {l1=0x17, l2=»7875 HJ$=SIDE$(X,51,61)«, l3=0x17}
0x2b6c…2b92 Line {l1=0x24, l2=»7880 IF HJ$(11)=" " THEN HJ$(11)="+"«, l3=0x24}
0x2b92…2bb1 Line {l1=0x1d, l2=»7885 EXEC CALC(0,HJ$,ST$,ST$)«, l3=0x1d}
0x2bb1…2bd0 Line {l1=0x1d, l2=»7890 EXEC CALC(0,HJ$,GT$,GT$)«, l3=0x1d}
0x2bd0…2bf9 Line {l1=0x27, l2=»7895 PRINT " ";SIDE$(X,1,64);" "«, l3=0x27}
0x2bf9…2c08 Line {l1=0x0d, l2=»7900 ENDCASE «, l3=0x0d}
0x2c08…2c15 Line {l1=0x0b, l2=»7905 ENDIF «, l3=0x0b}
0x2c15…2c22 Line {l1=0x0b, l2=»7910 NEXT X«, l3=0x0b}
0x2c22…2c31 Line {l1=0x0d, l2=»7915 ENDPROC «, l3=0x0d}
0x2c31…2c42 Line {l1=0x0f, l2=»7920 PROC CHECK«, l3=0x0f}
0x2c42…2c53 Line {l1=0x0f, l2=»7925 OKAY=FALSE«, l3=0x0f}
0x2c53…2c66 Line {l1=0x11, l2=»7930 CURSOR 22,23«, l3=0x11}
0x2c66…2c79 Line {l1=0x11, l2=»7935 CASE SV$ OF «, l3=0x11}
0x2c79…2c8c Line {l1=0x11, l2=»7940 WHEN "T","t"«, l3=0x11}
0x2c8c…2c9c Line {l1=0x0e, l2=»7945 OKAY=TRUE«, l3=0x0e}
0x2c9c…2cb5 Line {l1=0x17, l2=»7950 PRINT "Tilføjelse"«, l3=0x17}
0x2cb5…2cd4 Line {l1=0x1d, l2=»7955 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x2cd4…2ce4 Line {l1=0x0e, l2=»7960 OKAY=TRUE«, l3=0x0e}
0x2ce4…2cff Line {l1=0x19, l2=»7965 PRINT "Tilføj linie"«, l3=0x19}
0x2cff…2d12 Line {l1=0x11, l2=»7970 WHEN "s","S"«, l3=0x11}
0x2d12…2d22 Line {l1=0x0e, l2=»7975 OKAY=TRUE«, l3=0x0e}
0x2d22…2d39 Line {l1=0x15, l2=»7980 PRINT "Sletning"«, l3=0x15}
0x2d39…2d58 Line {l1=0x1d, l2=»7985 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x2d58…2d68 Line {l1=0x0e, l2=»7990 OKAY=TRUE«, l3=0x0e}
0x2d68…2d81 Line {l1=0x17, l2=»7995 PRINT "Slet linie"«, l3=0x17}
0x2d81…2d94 Line {l1=0x11, l2=»8000 WHEN "R","r"«, l3=0x11}
0x2d94…2da4 Line {l1=0x0e, l2=»8005 OKAY=TRUE«, l3=0x0e}
0x2da4…2dba Line {l1=0x14, l2=»8010 PRINT "Retning"«, l3=0x14}
0x2dba…2dcd Line {l1=0x11, l2=»8015 WHEN "e","E"«, l3=0x11}
0x2dcd…2ddd Line {l1=0x0e, l2=»8020 OKAY=TRUE«, l3=0x0e}
0x2ddd…2df5 Line {l1=0x16, l2=»8025 PRINT "Editering"«, l3=0x16}
0x2df5…2e08 Line {l1=0x11, l2=»8030 WHEN "C","c"«, l3=0x11}
0x2e08…2e18 Line {l1=0x0e, l2=»8035 OKAY=TRUE«, l3=0x0e}
0x2e18…2e34 Line {l1=0x1a, l2=»8040 PRINT "Centrer linie"«, l3=0x1a}
0x2e34…2e53 Line {l1=0x1d, l2=»8045 WHEN "BL","Bl","bL","bl"«, l3=0x1d}
0x2e53…2e62 Line {l1=0x0d, l2=»8050 SV$="BL"«, l3=0x0d}
0x2e62…2e72 Line {l1=0x0e, l2=»8055 OKAY=TRUE«, l3=0x0e}
0x2e72…2e97 Line {l1=0x23, l2=»8060 PRINT "Indsæt beregningslinie"«, l3=0x23}
0x2e97…2eb6 Line {l1=0x1d, l2=»8065 WHEN "ST","St","sT","st"«, l3=0x1d}
0x2eb6…2ec5 Line {l1=0x0d, l2=»8070 SV$="ST"«, l3=0x0d}
0x2ec5…2ed5 Line {l1=0x0e, l2=»8075 OKAY=TRUE«, l3=0x0e}
0x2ed5…2efb Line {l1=0x24, l2=»8080 PRINT "Subtotallinie indsættes"«, l3=0x24}
0x2efb…2f1a Line {l1=0x1d, l2=»8085 WHEN "GT","Gt","gT","gt"«, l3=0x1d}
0x2f1a…2f29 Line {l1=0x0d, l2=»8090 SV$="GT"«, l3=0x0d}
0x2f29…2f39 Line {l1=0x0e, l2=»8095 OKAY=TRUE«, l3=0x0e}
0x2f39…2f61 Line {l1=0x26, l2=»8100 PRINT "Grandtotallinie indsættes"«, l3=0x26}
0x2f61…2f70 Line {l1=0x0d, l2=»8105 ENDCASE «, l3=0x0d}
0x2f70…2f7f Line {l1=0x0d, l2=»8110 ENDPROC «, l3=0x0d}
0x2f7f…2f9b Line {l1=0x1a, l2=»8260 CHAIN "P641216:START"«, l3=0x1a}
0x2f9b…2fa0 00 00 00 00 00 ┆ ┆
0x2fa0…2fc0 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 ┆ ┆
[…0xd…]