|
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: »CALC.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »CALC.K«
7780 PROC SKRIV 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 TAB(61);ST$;"Kr" 7845 ST$=TAH$ 7850 WHEN "@@" 7855 IF GT$(12)="+" THEN GT$(12)=" " 7860 PRINT TAB(61);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
0x0000…0011 Line {l1=0x0f, l2=»7780 PROC SKRIV«, l3=0x0f}
0x0011…001e Line {l1=0x0b, l2=»7785 CLEAR «, l3=0x0b}
0x001e…0032 Line {l1=0x12, l2=»7790 FOR X=1 TO 22«, l3=0x12}
0x0032…0043 Line {l1=0x0f, l2=»7795 CURSOR 1,X«, l3=0x0f}
0x0043…0066 Line {l1=0x21, l2=»7800 PRINT USING "####":LINENR+X;«, l3=0x21}
0x0066…007c Line {l1=0x14, l2=»7805 IF X>LAST THEN «, l3=0x14}
0x007c…008c Line {l1=0x0e, l2=»7810 PRINT " "«, l3=0x0e}
0x008c…0098 Line {l1=0x0a, l2=»7815 ELSE «, l3=0x0a}
0x0098…00b6 Line {l1=0x1c, l2=»7820 CASE SIDE$(X,65,66) OF «, l3=0x1c}
0x00b6…00d5 Line {l1=0x1d, l2=»7825 PRINT " ";SIDE$(X)«, l3=0x1d}
0x00d5…00e5 Line {l1=0x0e, l2=»7830 WHEN "##"«, l3=0x0e}
0x00e5…010b Line {l1=0x24, l2=»7835 IF ST$(12)="+" THEN ST$(12)=" "«, l3=0x24}
0x010b…0128 Line {l1=0x1b, l2=»7840 PRINT TAB(61);ST$;"Kr"«, l3=0x1b}
0x0128…0137 Line {l1=0x0d, l2=»7845 ST$=TAH$«, l3=0x0d}
0x0137…0147 Line {l1=0x0e, l2=»7850 WHEN "@@"«, l3=0x0e}
0x0147…016d Line {l1=0x24, l2=»7855 IF GT$(12)="+" THEN GT$(12)=" "«, l3=0x24}
0x016d…018a Line {l1=0x1b, l2=»7860 PRINT TAB(61);GT$;"Kr"«, l3=0x1b}
0x018a…0199 Line {l1=0x0d, l2=»7865 GT$=TAH$«, l3=0x0d}
0x0199…01a9 Line {l1=0x0e, l2=»7870 WHEN "%%"«, l3=0x0e}
0x01a9…01c2 Line {l1=0x17, l2=»7875 HJ$=SIDE$(X,51,61)«, l3=0x17}
0x01c2…01e8 Line {l1=0x24, l2=»7880 IF HJ$(11)=" " THEN HJ$(11)="+"«, l3=0x24}
0x01e8…0207 Line {l1=0x1d, l2=»7885 EXEC CALC(0,HJ$,ST$,ST$)«, l3=0x1d}
0x0207…0226 Line {l1=0x1d, l2=»7890 EXEC CALC(0,HJ$,GT$,GT$)«, l3=0x1d}
0x0226…024f Line {l1=0x27, l2=»7895 PRINT " ";SIDE$(X,1,64);" "«, l3=0x27}
0x024f…025e Line {l1=0x0d, l2=»7900 ENDCASE «, l3=0x0d}
0x025e…026b Line {l1=0x0b, l2=»7905 ENDIF «, l3=0x0b}
0x026b…0278 Line {l1=0x0b, l2=»7910 NEXT X«, l3=0x0b}
0x0278…0287 Line {l1=0x0d, l2=»7915 ENDPROC «, l3=0x0d}
0x0287…0298 Line {l1=0x0f, l2=»7920 PROC CHECK«, l3=0x0f}
0x0298…02a9 Line {l1=0x0f, l2=»7925 OKAY=FALSE«, l3=0x0f}
0x02a9…02bc Line {l1=0x11, l2=»7930 CURSOR 22,23«, l3=0x11}
0x02bc…02cf Line {l1=0x11, l2=»7935 CASE SV$ OF «, l3=0x11}
0x02cf…02e2 Line {l1=0x11, l2=»7940 WHEN "T","t"«, l3=0x11}
0x02e2…02f2 Line {l1=0x0e, l2=»7945 OKAY=TRUE«, l3=0x0e}
0x02f2…030b Line {l1=0x17, l2=»7950 PRINT "Tilføjelse"«, l3=0x17}
0x030b…032a Line {l1=0x1d, l2=»7955 WHEN "TL","tl","Tl","tL"«, l3=0x1d}
0x032a…033a Line {l1=0x0e, l2=»7960 OKAY=TRUE«, l3=0x0e}
0x033a…0355 Line {l1=0x19, l2=»7965 PRINT "Tilføj linie"«, l3=0x19}
0x0355…0368 Line {l1=0x11, l2=»7970 WHEN "s","S"«, l3=0x11}
0x0368…0378 Line {l1=0x0e, l2=»7975 OKAY=TRUE«, l3=0x0e}
0x0378…038f Line {l1=0x15, l2=»7980 PRINT "Sletning"«, l3=0x15}
0x038f…03ae Line {l1=0x1d, l2=»7985 WHEN "SL","sl","Sl","sL"«, l3=0x1d}
0x03ae…03be Line {l1=0x0e, l2=»7990 OKAY=TRUE«, l3=0x0e}
0x03be…03d7 Line {l1=0x17, l2=»7995 PRINT "Slet linie"«, l3=0x17}
0x03d7…03ea Line {l1=0x11, l2=»8000 WHEN "R","r"«, l3=0x11}
0x03ea…03fa Line {l1=0x0e, l2=»8005 OKAY=TRUE«, l3=0x0e}
0x03fa…0410 Line {l1=0x14, l2=»8010 PRINT "Retning"«, l3=0x14}
0x0410…0423 Line {l1=0x11, l2=»8015 WHEN "e","E"«, l3=0x11}
0x0423…0433 Line {l1=0x0e, l2=»8020 OKAY=TRUE«, l3=0x0e}
0x0433…044b Line {l1=0x16, l2=»8025 PRINT "Editering"«, l3=0x16}
0x044b…045e Line {l1=0x11, l2=»8030 WHEN "C","c"«, l3=0x11}
0x045e…046e Line {l1=0x0e, l2=»8035 OKAY=TRUE«, l3=0x0e}
0x046e…048a Line {l1=0x1a, l2=»8040 PRINT "Centrer linie"«, l3=0x1a}
0x048a…04a9 Line {l1=0x1d, l2=»8045 WHEN "BL","Bl","bL","bl"«, l3=0x1d}
0x04a9…04b8 Line {l1=0x0d, l2=»8050 SV$="BL"«, l3=0x0d}
0x04b8…04c8 Line {l1=0x0e, l2=»8055 OKAY=TRUE«, l3=0x0e}
0x04c8…04ed Line {l1=0x23, l2=»8060 PRINT "Indsæt beregningslinie"«, l3=0x23}
0x04ed…050c Line {l1=0x1d, l2=»8065 WHEN "ST","St","sT","st"«, l3=0x1d}
0x050c…051b Line {l1=0x0d, l2=»8070 SV$="ST"«, l3=0x0d}
0x051b…052b Line {l1=0x0e, l2=»8075 OKAY=TRUE«, l3=0x0e}
0x052b…0551 Line {l1=0x24, l2=»8080 PRINT "Subtotallinie indsættes"«, l3=0x24}
0x0551…0570 Line {l1=0x1d, l2=»8085 WHEN "GT","Gt","gT","gt"«, l3=0x1d}
0x0570…057f Line {l1=0x0d, l2=»8090 SV$="GT"«, l3=0x0d}
0x057f…058f Line {l1=0x0e, l2=»8095 OKAY=TRUE«, l3=0x0e}
0x058f…05b7 Line {l1=0x26, l2=»8100 PRINT "Grandtotallinie indsættes"«, l3=0x26}
0x05b7…05c6 Line {l1=0x0d, l2=»8105 ENDCASE «, l3=0x0d}
0x05c6…05d5 Line {l1=0x0d, l2=»8110 ENDPROC «, l3=0x0d}
0x05d5…05e0 00 00 24 3d 53 49 44 45 24 28 49 ┆ $=SIDE$(I┆
0x05e0…0600 31 2c 31 2c 4a 31 2d 31 29 2b 4c 49 4e 45 24 2e 15 31 32 39 35 20 45 58 45 43 20 46 4c 5b 4b 28 ┆1,1,J1-1)+LINE$. 1295 EXEC FLÆK(┆
0x0600…0620 4c 49 4e 45 24 29 15 19 31 33 30 30 20 53 49 44 45 24 28 49 31 29 3d 53 50 4c 49 54 24 2b 42 4c ┆LINE$) 1300 SIDE$(I1)=SPLIT$+BL┆
0x0620…0640 24 19 0c 31 33 30 35 20 49 31 3d 49 31 2b 31 0c 09 31 33 31 30 20 4a 31 3d 31 09 12 31 33 31 35 ┆$ 1305 I1=I1+1 1310 J1=1 1315┆
0x0640…0660 20 49 46 20 49 31 3d 49 20 54 48 45 4e 20 12 1e 31 33 32 30 20 49 46 20 4c 45 4e 28 4c 49 4e 45 ┆ IF I1=I THEN 1320 IF LEN(LINE┆
0x0660…0680 24 29 3c 3d 4a 2d 4a 31 20 54 48 45 4e 20 1e 37 31 33 32 35 20 49 46 20 4c 45 4e 28 4c 49 4e 45 ┆$)<=J-J1 THEN 71325 IF LEN(LINE┆
0x0680…06a0 24 29 3e 30 20 54 48 45 4e 20 53 49 44 45 24 28 49 31 2c 4a 31 3a 4c 45 4e 28 4c 49 4e 45 24 29 ┆$)>0 THEN SIDE$(I1,J1:LEN(LINE$)┆
0x06a0…06c0 29 3d 4c 49 4e 45 24 37 15 31 33 33 30 20 4a 31 3d 4a 31 2b 4c 45 4e 28 4c 49 4e 45 24 29 15 10 ┆)=LINE$7 1330 J1=J1+LEN(LINE$) ┆
0x06c0…06e0 31 33 33 35 20 45 58 45 43 20 44 45 4c 45 54 45 10 0a 31 33 34 30 20 45 4c 53 45 20 0a 28 31 33 ┆1335 EXEC DELETE 1340 ELSE (13┆
0x06e0…0700 34 35 20 53 49 44 45 24 28 49 31 2c 4a 31 3a 4a 2d 4a 31 2b 31 29 3d 4c 49 4e 45 24 28 31 3a 4a ┆45 SIDE$(I1,J1:J-J1+1)=LINE$(1:J┆
0x0700…0720 2d 4a 31 2b 31 29 28 23 31 33 35 30 20 4c 49 4e 45 24 3d 4c 49 4e 45 24 28 4a 2d 4a 31 2b 32 2c ┆-J1+1)(#1350 LINE$=LINE$(J-J1+2,┆
0x0720…0740 4c 45 4e 28 4c 49 4e 45 24 29 29 23 0b 31 33 35 35 20 4a 31 3d 4a 2b 31 0b 10 31 33 36 30 20 45 ┆LEN(LINE$))# 1355 J1=J+1 1360 E┆
0x0740…0760 58 45 43 20 49 4e 53 45 52 54 10 0b 31 33 36 35 20 45 4e 44 49 46 20 0b 0a 31 33 37 30 20 45 4c ┆XEC INSERT 1365 ENDIF 1370 EL┆
0x0760…0780 53 45 20 0a 14 31 33 37 35 20 53 49 44 45 24 28 49 31 29 3d 4c 49 4e 45 24 14 14 31 33 38 30 20 ┆SE 1375 SIDE$(I1)=LINE$ 1380 ┆
0x0780…07a0 4a 31 3d 4c 45 4e 28 4c 49 4e 45 24 29 2b 31 14 10 31 33 38 35 20 45 58 45 43 20 44 45 4c 45 54 ┆J1=LEN(LINE$)+1 1385 EXEC DELET┆
0x07a0…07c0 45 10 0b 31 33 39 30 20 45 4e 44 49 46 20 0b 0b 31 33 39 35 20 45 4e 44 49 46 20 0b 0b 31 34 30 ┆E 1390 ENDIF 1395 ENDIF 140┆
0x07c0…07e0 30 20 45 4e 44 49 46 20 0b 11 31 34 30 35 20 57 48 45 4e 20 22 45 22 2c 22 65 22 11 13 31 34 31 ┆0 ENDIF 1405 WHEN "E","e" 141┆
0x07e0…0800 30 20 4c 49 4e 45 24 3d 53 49 44 45 24 28 49 29 13 10 31 34 31 35 20 43 55 52 53 4f 52 20 31 2c ┆0 LINE$=SIDE$(I) 1415 CURSOR 1,┆
0x0800…0820 32 33 10 0e 31 34 32 30 20 50 52 49 4e 54 20 42 4c 24 0e 0c 31 34 32 35 20 52 45 50 45 41 54 20 ┆23 1420 PRINT BL$ 1425 REPEAT ┆
0x0820…0840 0c 10 31 34 33 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1d 31 34 33 35 20 45 44 49 54 20 22 20 ┆ 1430 CURSOR 1,23 1435 EDIT " ┆
0x0840…0860 20 20 20 20 20 20 20 20 20 20 22 2c 4c 49 4e 45 24 1d 29 31 34 34 30 20 55 4e 54 49 4c 20 4c 45 ┆ ",LINE$ )1440 UNTIL LE┆
0x0860…0880 4e 28 4c 49 4e 45 24 29 3e 30 20 41 4e 44 20 4c 45 4e 28 4c 49 4e 45 24 29 3c 36 37 29 13 31 34 ┆N(LINE$)>0 AND LEN(LINE$)<67) 14┆
0x0880…08a0 34 35 20 53 49 44 45 24 28 49 29 3d 4c 49 4e 45 24 13 11 31 34 35 30 20 57 48 45 4e 20 22 43 22 ┆45 SIDE$(I)=LINE$ 1450 WHEN "C"┆
0x08a0…08c0 2c 22 63 22 11 08 31 34 35 35 20 56 3d 31 08 22 31 34 36 30 20 57 48 49 4c 45 20 53 49 44 45 24 ┆,"c" 1455 V=1 "1460 WHILE SIDE$┆
0x08c0…08e0 28 49 2c 56 29 3d 22 20 22 20 41 4e 44 20 56 3c 36 36 22 0a 31 34 36 35 20 56 3d 56 2b 31 0a 0e ┆(I,V)=" " AND V<66" 1465 V=V+1 ┆
0x08e0…0900 31 34 37 30 20 45 4e 44 57 48 49 4c 45 20 0e 09 31 34 37 35 20 48 3d 36 36 09 21 31 34 38 30 20 ┆1470 ENDWHILE 1475 H=66 !1480 ┆
0x0900…0920 57 48 49 4c 45 20 53 49 44 45 24 28 49 2c 48 29 3d 22 20 22 20 41 4e 44 20 48 3e 31 21 0a 31 34 ┆WHILE SIDE$(I,H)=" " AND H>1! 14┆
0x0920…0940 38 35 20 48 3d 48 2d 31 0a 0e 31 34 39 30 20 45 4e 44 57 48 49 4c 45 20 0e 12 31 34 39 35 20 49 ┆85 H=H-1 1490 ENDWHILE 1495 I┆
0x0940…0960 46 20 48 3d 3e 56 20 54 48 45 4e 20 12 19 31 35 30 30 20 53 53 3d 49 4e 54 28 28 36 35 2d 48 2b ┆F H=>V THEN 1500 SS=INT((65-H+┆
0x0960…0980 56 29 2f 32 29 2b 31 19 0d 31 35 30 35 20 53 59 4d 24 3d 42 4c 24 0d 20 31 35 31 30 20 53 59 4d ┆V)/2)+1 1505 SYM$=BL$ 1510 SYM┆
0x0980…09a0 24 28 53 53 3a 48 2d 56 2b 31 29 3d 53 49 44 45 24 28 49 2c 56 2c 48 29 20 12 31 35 31 35 20 53 ┆$(SS:H-V+1)=SIDE$(I,V,H) 1515 S┆
0x09a0…09c0 49 44 45 24 28 49 29 3d 53 59 4d 24 12 0b 31 35 32 30 20 45 4e 44 49 46 20 0b 13 31 35 32 35 20 ┆IDE$(I)=SYM$ 1520 ENDIF 1525 ┆
0x09c0…09e0 57 48 45 4e 20 22 53 54 22 2c 22 47 54 22 13 15 31 35 33 30 20 49 46 20 4c 41 53 54 3c 32 32 20 ┆WHEN "ST","GT" 1530 IF LAST<22 ┆
0x09e0…0a00 54 48 45 4e 20 15 0e 31 35 33 35 20 4c 49 4e 45 24 3d 42 4c 24 0e 16 31 35 34 30 20 49 46 20 53 ┆THEN 1535 LINE$=BL$ 1540 IF S┆
0x0a00…0a20 56 24 3d 22 53 54 22 20 54 48 45 4e 20 16 16 31 35 34 35 20 4c 49 4e 45 24 28 36 35 2c 36 36 29 ┆V$="ST" THEN 1545 LINE$(65,66)┆
0x0a20…0a40 3d 22 23 23 22 16 0a 31 35 35 30 20 45 4c 53 45 20 0a 16 31 35 35 35 20 4c 49 4e 45 24 28 36 35 ┆="##" 1550 ELSE 1555 LINE$(65┆
0x0a40…0a60 2c 36 36 29 3d 22 40 40 22 16 0b 31 35 36 30 20 45 4e 44 49 46 20 0b 09 31 35 36 35 20 49 31 3d ┆,66)="@@" 1560 ENDIF 1565 I1=┆
0x0a60…0a80 49 09 10 31 35 37 30 20 45 58 45 43 20 49 4e 44 53 5b 54 10 0b 31 35 37 35 20 45 4e 44 49 46 20 ┆I 1570 EXEC INDSÆT 1575 ENDIF ┆
0x0a80…0aa0 0b 0e 31 35 38 30 20 57 48 45 4e 20 22 42 4c 22 0e 15 31 35 38 35 20 49 46 20 4c 41 53 54 3c 32 ┆ 1580 WHEN "BL" 1585 IF LAST<2┆
0x0aa0…0ac0 32 20 54 48 45 4e 20 15 0e 31 35 39 30 20 4c 49 4e 45 24 3d 42 4c 24 0e 10 31 35 39 35 20 43 55 ┆2 THEN 1590 LINE$=BL$ 1595 CU┆
0x0ac0…0ae0 52 53 4f 52 20 31 2c 32 33 10 0e 31 36 30 30 20 50 52 49 4e 54 20 42 4c 24 0e 0c 31 36 30 35 20 ┆RSOR 1,23 1600 PRINT BL$ 1605 ┆
0x0ae0…0b00 52 45 50 45 41 54 20 0c 10 31 36 31 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1f 31 36 31 35 20 ┆REPEAT 1610 CURSOR 1,23 1615 ┆
0x0b00…0b20 49 4e 50 55 54 20 22 46 61 6b 74 6f 72 20 31 20 20 20 22 2c 53 50 4c 49 54 24 1f 16 31 36 32 30 ┆INPUT "Faktor 1 ",SPLIT$ 1620┆
0x0b20…0b40 20 53 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 21 31 36 32 35 20 45 58 45 43 20 43 41 ┆ SPLIT$=SPLIT$+"+" !1625 EXEC CA┆
0x0b40…0b60 4c 43 28 36 2c 53 50 4c 49 54 24 2c 54 41 48 24 2c 48 4a 24 29 21 11 31 36 33 30 20 55 4e 54 49 ┆LC(6,SPLIT$,TAH$,HJ$)! 1630 UNTI┆
0x0b60…0b80 4c 20 46 4c 41 47 3d 30 11 22 31 36 33 35 20 4c 49 4e 45 24 28 32 2c 31 32 29 3d 48 4a 24 28 32 ┆L FLAG=0 "1635 LINE$(2,12)=HJ$(2┆
0x0b80…0ba0 2c 31 32 29 3b 50 31 24 3d 48 4a 24 22 28 31 36 34 30 20 49 46 20 4c 49 4e 45 24 28 31 32 29 3d ┆,12);P1$=HJ$"(1640 IF LINE$(12)=┆
0x0ba0…0bc0 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 24 28 31 32 29 3d 22 20 22 28 0c 31 36 34 35 20 52 45 50 ┆"+" THEN LINE$(12)=" "( 1645 REP┆
0x0bc0…0be0 45 41 54 20 0c 10 31 36 35 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1f 31 36 35 35 20 49 4e 50 ┆EAT 1650 CURSOR 1,23 1655 INP┆
0x0be0…0c00 55 54 20 22 46 61 6b 74 6f 72 20 32 20 20 20 22 2c 53 50 4c 49 54 24 1f 16 31 36 36 30 20 53 50 ┆UT "Faktor 2 ",SPLIT$ 1660 SP┆
0x0c00…0c20 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 21 31 36 36 35 20 45 58 45 43 20 43 41 4c 43 28 ┆LIT$=SPLIT$+"+" !1665 EXEC CALC(┆
0x0c20…0c40 36 2c 53 50 4c 49 54 24 2c 54 41 48 24 2c 48 4a 24 29 21 11 31 36 37 30 20 55 4e 54 49 4c 20 46 ┆6,SPLIT$,TAH$,HJ$)! 1670 UNTIL F┆
0x0c40…0c60 4c 41 47 3d 30 11 1e 31 36 37 35 20 45 58 45 43 20 43 41 4c 43 28 34 2c 48 4a 24 2c 54 41 48 24 ┆LAG=0 1675 EXEC CALC(4,HJ$,TAH$┆
0x0c60…0c80 2c 48 4a 24 29 1e 12 31 36 38 30 20 49 46 20 53 49 3e 30 20 54 48 45 4e 20 12 1d 31 36 38 35 20 ┆,HJ$) 1680 IF SI>0 THEN 1685 ┆
0x0c80…0ca0 45 58 45 43 20 43 41 4c 43 28 32 2c 48 4a 24 2c 50 31 24 2c 50 31 24 29 1d 1f 31 36 39 30 20 4c ┆EXEC CALC(2,HJ$,P1$,P1$) 1690 L┆
0x0ca0…0cc0 49 4e 45 24 28 31 33 2c 32 34 29 3d 22 2a 22 2b 48 4a 24 28 32 2c 31 32 29 1f 28 31 36 39 35 20 ┆INE$(13,24)="*"+HJ$(2,12) (1695 ┆
0x0cc0…0ce0 49 46 20 4c 49 4e 45 24 28 32 34 29 3d 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 24 28 32 34 29 3d ┆IF LINE$(24)="+" THEN LINE$(24)=┆
0x0ce0…0d00 22 20 22 28 0c 31 37 30 30 20 52 45 50 45 41 54 20 0c 10 31 37 30 35 20 43 55 52 53 4f 52 20 31 ┆" "( 1700 REPEAT 1705 CURSOR 1┆
0x0d00…0d20 2c 32 33 10 1f 31 37 31 30 20 49 4e 50 55 54 20 22 46 61 6b 74 6f 72 20 33 20 20 20 22 2c 53 50 ┆,23 1710 INPUT "Faktor 3 ",SP┆
0x0d20…0d40 4c 49 54 24 1f 16 31 37 31 35 20 53 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 21 31 37 ┆LIT$ 1715 SPLIT$=SPLIT$+"+" !17┆
0x0d40…0d60 32 30 20 45 58 45 43 20 43 41 4c 43 28 36 2c 53 50 4c 49 54 24 2c 54 41 48 24 2c 48 4a 24 29 21 ┆20 EXEC CALC(6,SPLIT$,TAH$,HJ$)!┆
0x0d60…0d80 11 31 37 32 35 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 1e 31 37 33 30 20 45 58 45 43 20 43 41 ┆ 1725 UNTIL FLAG=0 1730 EXEC CA┆
0x0d80…0da0 4c 43 28 34 2c 48 4a 24 2c 54 41 48 24 2c 48 4a 24 29 1e 12 31 37 33 35 20 49 46 20 53 49 3e 30 ┆LC(4,HJ$,TAH$,HJ$) 1735 IF SI>0┆
0x0da0…0dc0 20 54 48 45 4e 20 12 1f 31 37 34 30 20 4c 49 4e 45 24 28 32 35 2c 33 36 29 3d 22 2a 22 2b 48 4a ┆ THEN 1740 LINE$(25,36)="*"+HJ┆
0x0dc0…0de0 24 28 32 2c 31 32 29 1f 1d 31 37 34 35 20 45 58 45 43 20 43 41 4c 43 28 32 2c 48 4a 24 2c 50 31 ┆$(2,12) 1745 EXEC CALC(2,HJ$,P1┆
0x0de0…0e00 24 2c 50 31 24 29 1d 28 31 37 35 30 20 49 46 20 4c 49 4e 45 24 28 33 36 29 3d 22 2b 22 20 54 48 ┆$,P1$) (1750 IF LINE$(36)="+" TH┆
0x0e00…0e20 45 4e 20 4c 49 4e 45 24 28 33 36 29 3d 22 20 22 28 0b 31 37 35 35 20 45 4e 44 49 46 20 0b 0b 31 ┆EN LINE$(36)=" "( 1755 ENDIF 1┆
0x0e20…0e40 37 36 30 20 45 4e 44 49 46 20 0b 0c 31 37 36 35 20 52 45 50 45 41 54 20 0c 10 31 37 37 30 20 43 ┆760 ENDIF 1765 REPEAT 1770 C┆
0x0e40…0e60 55 52 53 4f 52 20 31 2c 32 33 10 1f 31 37 37 35 20 49 4e 50 55 54 20 22 50 72 69 73 66 61 6b 74 ┆URSOR 1,23 1775 INPUT "Prisfakt┆
0x0e60…0e80 6f 72 20 22 2c 53 50 4c 49 54 24 1f 16 31 37 38 30 20 53 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b ┆or ",SPLIT$ 1780 SPLIT$=SPLIT$+┆
0x0e80…0ea0 22 2b 22 16 21 31 37 38 35 20 45 58 45 43 20 43 41 4c 43 28 36 2c 53 50 4c 49 54 24 2c 54 41 48 ┆"+" !1785 EXEC CALC(6,SPLIT$,TAH┆
0x0ea0…0ec0 24 2c 48 4a 24 29 21 11 31 37 39 30 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 24 31 37 39 35 20 ┆$,HJ$)! 1790 UNTIL FLAG=0 $1795 ┆
0x0ec0…0ee0 4c 49 4e 45 24 28 33 37 2c 35 30 29 3d 22 61 22 2b 48 4a 24 28 32 2c 31 32 29 2b 22 4b 72 22 24 ┆LINE$(37,50)="a"+HJ$(2,12)+"Kr"$┆
0x0ee0…0f00 28 31 38 30 30 20 49 46 20 4c 49 4e 45 24 28 34 38 29 3d 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 ┆(1800 IF LINE$(48)="+" THEN LINE┆
0x0f00…0f20 24 28 34 38 29 3d 22 20 22 28 1d 31 38 30 35 20 45 58 45 43 20 43 41 4c 43 28 32 2c 48 4a 24 2c ┆$(48)=" "( 1805 EXEC CALC(2,HJ$,┆
0x0f20…0f40 50 31 24 2c 50 31 24 29 1d 24 31 38 31 30 20 49 46 20 50 31 24 28 31 32 29 3d 22 2b 22 20 54 48 ┆P1$,P1$) $1810 IF P1$(12)="+" TH┆
0x0f40…0f60 45 4e 20 50 31 24 28 31 32 29 3d 22 20 22 24 23 31 38 31 35 20 4c 49 4e 45 24 28 35 31 2c 36 36 ┆EN P1$(12)=" "$#1815 LINE$(51,66┆
0x0f60…0f80 29 3d 50 31 24 28 32 2c 31 32 29 2b 22 4b 72 20 25 25 22 23 09 31 38 32 30 20 49 31 3d 49 09 10 ┆)=P1$(2,12)+"Kr %%"# 1820 I1=I ┆
0x0f80…0fa0 31 38 32 35 20 45 58 45 43 20 49 4e 44 53 5b 54 10 0b 31 38 33 30 20 45 4e 44 49 46 20 0b 0d 31 ┆1825 EXEC INDSÆT 1830 ENDIF 1┆
0x0fa0…0fc0 38 33 35 20 45 4e 44 43 41 53 45 20 0d 16 31 38 34 30 20 53 54 24 3d 54 41 48 24 3b 47 54 24 3d ┆835 ENDCASE 1840 ST$=TAH$;GT$=┆
0x0fc0…0fe0 54 41 48 24 16 0f 31 38 34 35 20 45 58 45 43 20 53 4b 52 49 56 0f 0b 31 38 35 30 20 45 4e 44 49 ┆TAH$ 1845 EXEC SKRIV 1850 ENDI┆
0x0fe0…1000 46 20 0b 0b 31 38 35 35 20 45 4e 44 49 46 20 0b 1d 31 38 36 30 20 55 4e 54 49 4c 20 53 56 24 3d ┆F 1855 ENDIF 1860 UNTIL SV$=┆
0x1000…1020 22 46 22 20 4f 52 20 53 56 24 3d 22 66 22 1d 0d 31 38 36 35 20 45 4e 44 50 52 4f 43 20 0d 00 00 ┆"F" OR SV$="f" 1865 ENDPROC ┆
0x1020…1040 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 ┆ ┆
[…0x1c…]