|
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: 20224 (0x4f00)
Types: TextFile
Notes: Mikados_K
Names: »VAREDUMP.K«
└─⟦eb89399bc⟧ Bits:30008990 SOM ISFORIG, MEN KUN K-FILER
└─⟦this⟧ »VAREDUMP.K«
0100 DIM A1$(145) 0101 A2=0;A3=1 1000 PROC IOPEN(D1,A4,D2) 1010 IF D2=1 THEN 1020 OPEN A4$,W 1030 ELSE ;D3 FOR D4 D5. D6 1040 OPEN A4$,R 1050 ENDIF 1060 A9=STATUS(A4$) 1070 IF A9<>0 THEN EXIT 1075 REM INDLAES FILHOVED 1080 D1$(1:20)=A4$ 1090 GET A4$,1:D1$(48:76) 1100 EXEC UNPACK(B8,D1$,69,71) 1110 GET A4$,2:D1$(48+76:B8-76) 1115 EXEC DEFVAR 1120 A9=STATUS(A4$) 1140 IF A9<>0 THEN EXIT 1145 REM ER FILEN EN COMISQ-FIL 1180 IF B7<>B2*B5 THEN A9=-4 1200 IF A9<>0 THEN EXIT 1205 REM INDLAES BUKETTABEL 1240 IF D7 THEN EXEC COPSEGS(3,C3,D8,A2) 1330 IF A9<>0 THEN EXIT 1350 IF D9 THEN 1360 A9=-18 1370 IF NOT D7 THEN 1380 A9=-19 1390 E0,E1,E2,E3=0 1400 EXEC PACK(E0,D1$,102,104) 1420 ELSE 1450 E1,E2,E3=0 1480 E4=D8+6 1490 FOR B1=1 TO B6 1493 E5=D8+(B1-1)*(B0+6);E6=E5+2 1495 EXEC UNPACK(E7,D1$,E5,E6) 1500 EXEC COPSEGS(E7,C4,E8,A2) 1510 IF A9<>0 THEN EXIT 1520 A9=-18 1530 D1$(E4:B0)=D1$(E8+6:B0) 1540 E9=0 1550 E5=E8+3;E6=E5+2 1560 FOR C8=1 TO B5 1580 EXEC UNPACK(F0,D1$,E5,E6) 1585 E5=E5+B0+6;E6=E5+2 1590 IF F0>0 THEN 1600 E9=E9+F0 1610 E2=E2+1 1620 F1=C8 1630 ENDIF 1640 NEXT C8 1650 IF E9>0 THEN 1660 E3=E3+E9 1670 E1=E1+1 1680 D1$(E4:B0)=D1$(E8+(F1-1)*(B0+6)+6:B0) 1690 ENDIF 1700 E5=E4-3;E6=E5+2 1710 EXEC PACK(E9,D1$,E5,E6) 1725 E4=E4+B0+6 1730 NEXT B1 1735 IF A9<>-18 THEN EXIT 1740 F2=B6 1750 EXEC PACK(F2,D1$,21,23) 1760 ENDIF 1765 IF A9<>-18 AND A9<>-19 THEN EXIT 1770 EXEC PACK(E1,D1$,105,107) 1780 EXEC PACK(E2,D1$,108,110) 1790 EXEC PACK(E3,D1$,111,113) 1800 ENDIF 1805 IF A9<>-18 AND A9<>-19 AND A9<>0 THEN EXIT 1810 D9=1 1811 FOR B1=21 TO 45 STEP 3 1812 C8=B1+2 1813 EXEC PACK(0,D1$,B1,C8) 1814 NEXT B1 1815 REM LOKALE ZONE-VARIABLE 1820 EXEC PACK(D9,D1$,117,119) 1821 EXEC PACK(D2,D1$,30,32) 1825 IF D2=1 THEN 1830 B1=A9 1840 PUT A4$,1:D1$(48:76) 1850 PUT A4$,2:D1$(48+76:B8-76) 1860 A9=STATUS(A4$) 1870 IF A9>0 THEN EXIT 1880 A9=B1 1885 ENDIF 1900 ENDPROC 3000 PROC COPSEGS(G8,G9,H0,H1) 3010 H2=H0 3020 H3=G8 3030 REPEAT 3040 IF H1=0 THEN 3050 GET D1$(1:20),H3:D1$(H2:76) 3060 ELSE 3070 PUT D1$(1:20),H3:D1$(H2:76) 3080 ENDIF 3090 H2=H2+76 3100 H3=H3+1 3110 A9=STATUS(D1$(1:20)) 3120 UNTIL H3=G8+G9 OR A9>0 3130 ENDPROC 3140 PROC DIMS(A4) 3150 OPEN A4$,R 3160 A9=STATUS(A4$) 3170 IF A9>0 THEN EXIT 3180 GET A4$,1:A1$(1:76) 3190 A9=STATUS(A4$) 3200 IF A9>0 THEN EXIT 3210 CLOSE A4$ 3220 A9=STATUS(A4$) 3230 IF A9>0 THEN EXIT 3240 EXEC UNPACK(B0,A1$,37,39) 3250 EXEC UNPACK(B8,A1$,22,24) 3260 EXEC UNPACK(B9,A1$,25,27) 3270 EXEC UNPACK(C0,A1$,28,30) 3280 EXEC UNPACK(B3,A1$,52,54) 3290 EXEC UNPACK(A6,A1$,34,36) 3300 C7=47+B8+B9+C0+B3*76+A6+1+6+B0 3310 ENDPROC 3400 PROC FINDPOST 3424 EXEC EXTRACT(F4$,G5$) 3430 E5=D8+3;E6=E5+2 3433 G7=-1 3436 B1=1 3439 REPEAT 3442 EXEC UNPACK(E9,D1$,E5,E6) 3445 IF E9>0 THEN 3448 H4=B1 3449 G6$="" 3450 G6$=D1$(E5+3:B0) 3451 EXEC COMPARE(G6$,G5$) 3454 ENDIF 3457 B1=B1+1 3460 E5=E5+6+B0;E6=E5+2 3463 UNTIL B1>B6 OR G7=>0 3466 IF B1>B6 AND G7<0 THEN 3469 REM SQGNING ENDT UDENFOR FILEN 3472 EXEC READTABLE(H4) 3475 IF A9<>0 THEN EXIT 3478 E5=E8+(B5-1)*(B0+6)+3;E6=E5+2 3481 FOR H4=B5 TO 1 STEP -1 3484 EXEC UNPACK(E9,D1$,E5,E6) 3487 IF E9>0 THEN 3490 EXEC READBLOCK(H4,1) 3493 IF A9<>0 THEN EXIT 3496 G1=E9+1 3499 EXEC PACK(G1,D1$,27,29) 3502 A9=-1 3505 ENDIF 3508 E5=E5-(6+B0);E6=E5+2 3511 IF A9<>0 THEN EXIT 3514 NEXT H4 3517 IF A9<>0 THEN EXIT 3520 PRINT "KATASTROFE" 3523 STOP 3526 ELSE 3529 REM POSTEN ER I FILEN 3532 EXEC READTABLE(H4) 3535 E5=E8+3;E6=E5+2 3538 FOR H4=1 TO B5 3541 EXEC UNPACK(E9,D1$,E5,E6) 3544 IF E9>0 THEN 3545 G6$="" 3546 G6$=D1$(E5+3:B0) 3547 EXEC COMPARE(G6$,G5$) 3550 IF G7=>0 THEN 3553 EXEC READBLOCK(H4,1) 3556 H4=B5+1 3559 ENDIF 3562 ENDIF 3565 IF A9<>0 THEN EXIT 3568 E5=E5+6+B0;E6=E5+2 3571 NEXT H4 3574 IF A9<>0 THEN EXIT 3583 G7=-1;B1=0;E5=F6 3586 WHILE G7<0 3589 B1=B1+1 3592 IF B1>E9 THEN 3595 PRINT "KATASTROFE" 3598 STOP 3601 ENDIF 3603 F9$=D1$(E5:A6) 3604 EXEC EXTRACT(F9$,G6$) 3607 EXEC COMPARE(G6$,G5$) 3608 E5=E5+A6 3610 ENDWHILE 3613 IF G7=0 THEN 3616 A9=0 3619 ELSE 3622 A9=-1 3625 ENDIF 3628 G1=B1 3631 EXEC PACK(G1,D1$,27,29) 3633 ENDIF 3634 ENDPROC 3637 PROC READTABLE(H5) 3649 IF H5<>F2 THEN 3658 IF H6 THEN 3664 H7=E8+(G0-1)*(B0+6);H8=H7+2 3667 EXEC UNPACK(H9,D1$,H7,H8) 3670 EXEC COPSEGS(H9,B3,F6,A3) 3673 ENDIF 3676 IF A9<>0 THEN EXIT 3679 IF I0 THEN 3682 H7=D8+(F2-1)*(B0+6);H8=H7+2 3685 EXEC UNPACK(H9,D1$,H7,H8) 3688 EXEC COPSEGS(H9,C4,E8,A3) 3691 ENDIF 3694 IF A9<>0 THEN EXIT 3697 EXEC PACK(0,D1$,42,44) 3698 I0=0 3699 H6=0 3700 EXEC PACK(0,D1$,45,47) 3703 H7=D8+(H5-1)*(B0+6);H8=H7+2 3706 EXEC UNPACK(H9,D1$,H7,H8) 3709 EXEC COPSEGS(H9,C4,E8,A2) 3712 IF A9<>0 THEN EXIT 3715 F2=H5 3718 G0=0 3721 EXEC PACK(F2,D1$,21,23) 3724 EXEC PACK(G0,D1$,24,26) 3727 ENDIF 3730 ENDPROC 3733 PROC READBLOCK(I1,I2) 3745 IF I1<>G0 THEN 3748 IF H6 THEN 3751 H7=E8+(G0-1)*(B0+6);H8=H7+2 3754 EXEC UNPACK(H9,D1$,H7,H8) 3757 EXEC COPSEGS(H9,B3,F6,A3) 3760 ENDIF 3763 IF A9<>0 THEN EXIT 3766 EXEC PACK(0,D1$,45,47) 3767 H6=0 3769 H7=E8+(I1-1)*(B0+6);H8=H7+2 3772 EXEC UNPACK(H9,D1$,H7,H8) 3774 H7=F6+(I2-1)*A6 3775 EXEC COPSEGS(H9,B3,H7,A2) 3778 IF A9<>0 THEN EXIT 3781 G0=I1 3784 EXEC PACK(G0,D1$,24,26) 3787 ENDIF 3790 ENDPROC 3793 PROC FORSKYDIBLOK(I3) 3796 H7=E8+(G0-1)*(B0+6)+3;H8=H7+2 3799 EXEC UNPACK(E9,D1$,H7,H8) 3802 IF I3>0 THEN 3805 H7=F6+E9*A6;H8=H7-A6 3808 FOR I4=E9 TO I3 STEP -1 3811 D1$(H7:A6)=D1$(H8:A6) 3814 H7=H8 3817 H8=H7-A6 3820 NEXT I4 3823 ELSE 3826 IF I3<0 THEN 3829 H7=F6-I3*A6;H8=H7-A6 3832 FOR I4=-I3 TO E9-1 3835 D1$(H8:A6)=D1$(H7:A6) 3838 H8=H7 3841 H7=H7+A6 3844 NEXT I4 3847 ELSE 3850 A9=4711 3853 ENDIF 3856 ENDIF 3859 ENDPROC 3862 PROC SAETKEY(I3) 3864 F9$=D1$(F6+(I3-1)*A6:A6) 3871 H7=D8+(F2-1)*(B0+6)+3;H8=H7+2 3874 EXEC UNPACK(I5,D1$,H7,H8) 3877 H7=E8+(G0-1)*(B0+6)+6 3878 G5$="" 3879 G5$=D1$(H7:B0) 3880 H8=D8+(F2-1)*(B0+6)+6 3881 G6$="" 3882 G6$=D1$(H8:B0) 3883 EXEC COMPARE(G5$,G6$) 3886 I6=G7 3887 EXEC EXTRACT(F9$,G5$) 3889 EXEC COMPARE(G5$,G6$) 3892 IF I5=0 OR I6=0 OR G7>0 THEN 3895 D1$(H8:B0)=G5$(1:B0) 3898 EXEC PACK(1,D1$,39,41) 3899 I7=1 3901 ENDIF 3904 D1$(H7:B0)=G5$(1:B0) 3907 EXEC PACK(1,D1$,42,44) 3908 I0=1 3910 ENDPROC 3913 PROC QGNUM 3916 H7=D8+(F2-1)*(B0+6)+3;H8=H7+2 3919 EXEC UNPACK(I6,D1$,H7,H8) 3922 I6=I6+1 3925 EXEC PACK(I6,D1$,H7,H8) 3928 H7=E8+(G0-1)*(B0+6)+3;H8=H7+2 3931 EXEC UNPACK(I5,D1$,H7,H8) 3934 I5=I5+1 3937 EXEC PACK(I5,D1$,H7,H8) 3940 E3=E3+1 3943 EXEC PACK(E3,D1$,111,113) 3946 IF I5=1 THEN 3952 E2=E2+1 3955 EXEC PACK(E2,D1$,108,110) 3958 IF I6=1 THEN 3964 E1=E1+1 3967 EXEC PACK(E1,D1$,105,107) 3970 ENDIF 3973 ENDIF 3976 EXEC PACK(1,D1$,39,41) 3977 I7=1 3979 EXEC PACK(1,D1$,42,44) 3980 I0=1 3982 ENDPROC 3985 PROC EXTRACT(I8,I9) 3988 J0=120;J1=J0+2 3989 I9$="" 3991 J2=1 3994 FOR I4=1 TO A7 3997 EXEC UNPACK(J3,D1$,J0,J1) 4000 J0=J0+3;J1=J0+2 4003 EXEC UNPACK(J4,D1$,J0,J1) 4006 I9$(J2:J4)=I8$(J3:J4) 4009 J2=J2+J4 4012 J0=J0+6;J1=J0+2 4015 NEXT I4 4018 ENDPROC 4021 PROC COMPARE(J5,J6) 4024 J0=123;J1=J0+2 4027 J2=1 4030 G7=0 4033 FOR I4=1 TO A7 4036 EXEC UNPACK(J4,D1$,J0,J1) 4039 J0=J0+3;J1=J0+2 4042 IF J5$(J2:J4)<>J6$(J2:J4) THEN 4045 EXEC UNPACK(G7,D1$,J0,J1) 4048 G7=G7-2 4049 J7=J2 4050 WHILE J5$(J7)=J6$(J7) 4051 J7=J7+1 4052 ENDWHILE 4053 IF ORD(J5$(J7))<ORD(J6$(J7)) THEN G7=-G7 4054 ENDIF 4057 IF G7<>0 THEN EXIT 4060 J2=J2+J4 4063 J0=J0+6;J1=J0+2 4066 NEXT I4 4069 ENDPROC 4271 PROC RETNING 4280 E5=D8+(F2-1)*(B0+6)+3;E6=E5+2 4283 EXEC UNPACK(E9,D1$,E5,E6) 4286 K8=(E9<B7) 4289 IF K8 THEN 4292 EXEC FINDDIR(G0,B2,B5,E8) 4295 ELSE 4298 EXEC FINDDIR(F2,B7,B6,D8) 4301 ENDIF 4304 ENDPROC 4307 PROC FINDDIR(L0,L1,L2,L3) 4310 J8=L2+1;L4=L0+1;L5=L0 4313 WHILE J8=L2+1 4316 IF L4>L2 AND L5<1 THEN 4319 PRINT "FEJL: FULD TABEL" 4322 PRINT "FQRSTE","SIZE","TABLESIZE","TABLEST" 4325 PRINT L0,L1,L2,L3 4328 PRINT "NAESTE","FORRIGE" 4331 PRINT L4,L5 4334 STOP 4337 ENDIF 4340 IF L4<=L2 THEN 4343 E5=L3+(L4-1)*(6+B0)+3;E6=E5+2 4346 EXEC UNPACK(E9,D1$,E5,E6) 4349 IF E9<L1 THEN J8=L4-L0 4352 ENDIF 4355 IF L5=>1 THEN 4358 E5=L3+(L5-1)*(6+B0)+3;E6=E5+2 4361 EXEC UNPACK(E9,D1$,E5,E6) 4364 IF E9<L1 THEN J8=L5-L0 4367 ENDIF 4370 L4=L4+1;L5=L5-1 4373 ENDWHILE 4376 ENDPROC 4400 PROC ICLOSE(D1) 4403 A9=0 4406 EXEC DEFVAR 4407 IF L6=1 THEN 4412 IF D7=0 AND E3>0 THEN 4415 EXEC PACK(1,D1$,114,116) 4418 EXEC PACK(E3,D1$,102,104) 4421 REM INITREC 4424 ENDIF 4454 IF H6 THEN 4463 E5=E8+(G0-1)*(B0+6);E6=E5+2 4466 EXEC UNPACK(H9,D1$,E5,E6) 4469 EXEC COPSEGS(H9,B3,F6,A3) 4472 ENDIF 4475 IF A9<>0 THEN EXIT 4478 IF I0 THEN 4487 E5=D8+(F2-1)*(B0+6);E6=E5+2 4490 EXEC UNPACK(H9,D1$,E5,E6) 4493 EXEC COPSEGS(H9,C4,E8,A3) 4496 ENDIF 4499 IF A9<>0 THEN EXIT 4508 IF I7 THEN EXEC COPSEGS(3,C3,D8,A3) 4514 IF A9<>0 THEN EXIT 4517 PUT D1$(1:20),2:D1$(48+76:B8-76) 4520 A9=STATUS(D1$(1:20)) 4523 IF A9<>0 THEN EXIT 4526 EXEC PACK(0,D1$,117,119) 4529 PUT D1$(1:20),1:D1$(48:76) 4532 A9=STATUS(D1$(1:20)) 4535 IF A9<>0 THEN EXIT 4537 ENDIF 4538 CLOSE D1$(1:20) 4541 A9=STATUS(D1$(1:20)) 4544 ENDPROC 4900 PROC NEXTREC(D1,F4,F9) 4903 EXEC DEFVAR 4906 A9=0 4930 IF D7 THEN 4933 EXEC EXTRACT(F4$,G5$) 4939 G7=1 4942 IF G1>0 THEN 4945 F9$=D1$(F6+(G1-1)*A6:A6) 4948 EXEC EXTRACT(F9$,G6$) 4951 EXEC COMPARE(G5$,G6$) 4954 ENDIF 4957 IF G7<>0 THEN EXEC FINDPOST 4960 IF A9<>0 AND A9<>-1 THEN EXIT 4966 E5=E8+(G0-1)*(B0+6)+3;E6=E5+2 4969 EXEC UNPACK(E9,D1$,E5,E6) 4972 IF E9<=G1+A9 THEN 4978 K7=G0+1 4981 E5=E8+G0*(B0+6)+3;E6=E5+2 4984 FOR B1=K7 TO B5 4987 EXEC UNPACK(E9,D1$,E5,E6) 4990 IF E9>0 THEN 4993 K7=B1 4996 B1=B5 4999 ENDIF 5002 E5=E5+6+B0;E6=E5+2 5005 NEXT B1 5008 IF E9=0 THEN 5017 K6=F2+1 5020 E5=D8+F2*(B0+6)+3;E6=E5+2 5023 FOR B1=K6 TO B6 5026 EXEC UNPACK(E9,D1$,E5,E6) 5029 IF E9>0 THEN 5032 L7=B1 5035 B1=B6 5038 ENDIF 5041 E5=E5+B0+6;E6=E5+2 5044 NEXT B1 5047 IF E9=0 THEN 5053 IF E3<=1 THEN 5056 A9=-9 5059 ELSE 5062 A9=-2 5065 ENDIF 5068 K6=1 5071 E5=D8+3;E6=E5+2 5074 FOR B1=K6 TO F2 5077 EXEC UNPACK(E9,D1$,E5,E6) 5080 IF E9>0 THEN 5083 L7=B1 5086 B1=F2 5089 ENDIF 5092 E5=E5+B0+6;E6=E5+2 5095 NEXT B1 5098 IF E9=0 THEN 5101 PRINT "ALVORLIG TABELFEJL" 5104 STOP 5107 ENDIF 5110 ENDIF 5113 B1=A9 5114 A9=0 5116 EXEC READTABLE(K6) 5119 IF A9<>0 THEN EXIT 5122 A9=B1 5125 K7=1 5128 E5=E8+3;E6=E5+2 5131 FOR B1=K7 TO B5 5134 EXEC UNPACK(E9,D1$,E5,E6) 5137 IF E9>0 THEN 5140 K7=B1 5143 B1=B5 5146 ENDIF 5149 E5=E5+B0+6;E6=E5+2 5152 NEXT B1 5155 IF E9=0 THEN 5158 PRINT "ALVORLIG TABELFEJL" 5161 STOP 5164 ENDIF 5167 ENDIF 5170 IF A9>0 THEN EXIT 5173 B1=A9 5176 A9=0 5179 EXEC READBLOCK(K7,1) 5182 IF A9<>0 THEN EXIT 5185 A9=B1 5188 G1=1 5191 ELSE 5194 G1=G1+1+A9 5197 ENDIF 5200 IF A9>0 THEN EXIT 5203 F4$=D1$(F6+(G1-1)*A6:A6) 5204 EXEC PACK(G1,D1$,27,29) 5206 ELSE 5209 A9=-12 5212 ENDIF 5215 ENDPROC 5300 PROC DEFVAR 5303 EXEC UNPACK(F2,D1$,21,23) 5306 EXEC UNPACK(G0,D1$,24,26) 5309 EXEC UNPACK(G1,D1$,27,29) 5312 EXEC UNPACK(L6,D1$,30,32) 5315 EXEC UNPACK(F7,D1$,33,35) 5318 EXEC UNPACK(F8,D1$,36,38) 5321 EXEC UNPACK(I7,D1$,39,41) 5324 EXEC UNPACK(I0,D1$,42,44) 5327 EXEC UNPACK(H6,D1$,45,47) 5330 EXEC UNPACK(B6,D1$,48,50) 5333 EXEC UNPACK(B4,D1$,51,53) 5336 EXEC UNPACK(A5,D1$,54,56) 5339 EXEC UNPACK(B5,D1$,57,59) 5342 EXEC UNPACK(B7,D1$,60,62) 5345 EXEC UNPACK(B2,D1$,63,65) 5348 EXEC UNPACK(A7,D1$,66,68) 5351 EXEC UNPACK(B8,D1$,69,71) 5354 EXEC UNPACK(B9,D1$,72,74) 5357 EXEC UNPACK(C0,D1$,75,77) 5360 EXEC UNPACK(C1,D1$,78,80) 5363 EXEC UNPACK(A6,D1$,81,83) 5366 EXEC UNPACK(B0,D1$,84,86) 5369 EXEC UNPACK(C2,D1$,87,89) 5372 EXEC UNPACK(C3,D1$,90,92) 5375 EXEC UNPACK(C5,D1$,93,95) 5378 EXEC UNPACK(C4,D1$,96,98) 5381 EXEC UNPACK(B3,D1$,99,101) 5384 EXEC UNPACK(E0,D1$,102,104) 5387 EXEC UNPACK(E1,D1$,105,107) 5390 EXEC UNPACK(E2,D1$,108,110) 5393 EXEC UNPACK(E3,D1$,111,113) 5396 EXEC UNPACK(D7,D1$,114,116) 5399 EXEC UNPACK(D9,D1$,117,119) 5402 D8=48+B8 5405 E8=D8+B9 5408 F6=E8+C0 5411 ENDPROC 7000 PROC TESTOMS(N0,N1) 7005 N2=LEN(N0$) 7010 N3=4 7015 FOR N4=1 TO 70 7020 IF ORD(N0$(N4))=255 THEN EXIT 7025 IF N0$(N4)<>" " THEN 7030 IF N0$(N4)<>"-" THEN 7035 N5=N4 7040 N1$(13)="+" 7045 ELSE 7050 N5=N4+1 7055 N1$(13)="-" 7060 ENDIF 7065 N6=1+N2 7070 N4=70 7075 N3=0 7080 ENDIF 7085 NEXT N4 7090 IF N3 THEN EXIT 7095 FOR N4=N5 TO N5+N2-1 7100 IF N0$(N4)="." THEN 7105 N6=N4 7110 N4=N5+N2-1 7115 ENDIF 7120 NEXT N4 7125 IF N6-N5>9 THEN N3=3 7130 IF N3 THEN EXIT 7135 FOR N4=1 TO 9-N6+N5 7140 N1$(N4)=" " 7145 NEXT N4 7150 IF N6>N5 THEN 7155 FOR N4=10-N6+N5 TO 9 7160 IF N0$(N4+N6-10)<"0" OR N0$(N4+N6-10)>"9" THEN 7165 N3=2 7170 ELSE 7175 N1$(N4)=N0$(N4+N6-10) 7180 ENDIF 7185 NEXT N4 7190 ENDIF 7195 IF N3 THEN EXIT 7200 N1$(10)="." 7205 FOR N4=11 TO 12 7210 CASE 1 OF 7215 N3=2 7220 WHEN N0$(N6+N4-10)=" " OR ORD(N0$(N6+N4-10))=255 7225 N1$(N4)="0" 7230 WHEN N0$(N6+N4-10)<="9" AND N0$(N6+N4-10)=>"0" 7235 N1$(N4)=N0$(N6+N4-10) 7240 ENDCASE 7245 NEXT N4 7250 IF N0$(N6+3)=>"5" AND N0$(N6+3)<="9" THEN 7255 IF N1$(12)<"9" THEN 7260 N1$(12)=CHR(ORD(N1$(12))+1) 7265 ELSE 7270 N1$(12)="0" 7275 IF N1$(11)<"9" THEN 7280 N1$(11)=CHR(ORD(N1$(11))+1) 7285 ELSE 7290 N1$(11)="0" 7295 FOR N4=9 TO 1 STEP -1 7300 CASE N1$(N4) OF 7305 N1$(N4)=CHR(ORD(N1$(N4))+1) 7310 N4=1 7315 WHEN "9" 7320 IF N4=1 THEN N3=1 7325 N1$(N4)="0" 7330 WHEN " " 7335 N1$(N4)="1" 7340 N4=1 7345 ENDCASE 7350 NEXT N4 7355 ENDIF 7360 ENDIF 7365 ENDIF 7370 ENDPROC 7375 PROC TEKTAL(N7,N8,N9) 7380 O0=4 7385 FOR N4=1 TO 9 7390 IF N7$(N4)<>" " THEN 7395 O0=14-N4 7400 N4=9 7405 ENDIF 7410 NEXT N4 7415 N5=O0 DIV 3 7420 N8=0 7425 N9=ORD(N7$(12))+ORD(N7$(11))*10+(ORD(N7$(9))-48)*100*(O0>4)-528 7430 N9=N9+(ORD(N7$(8))-48)*1000*(O0>5)+(ORD(N7$(7))-48)*10000*(O0>6) 7435 N9=N9+(ORD(N7$(6))-48)*100000*(O0>7) 7440 IF O0>8 THEN 7445 N8=ORD(N7$(5))-48+(ORD(N7$(4))-48)*10*(O0>9) 7450 N8=N8+(ORD(N7$(3))-48)*100*(O0>10)+(ORD(N7$(2))-48)*1000*(O0>11) 7455 N8=N8+(ORD(N7$(1))-48)*10000*(O0>12) 7460 ENDIF 7465 ENDPROC 7470 PROC NULU(N7) 7475 FOR N4=1 TO 9 7480 IF N7$(N4)<>" " AND N7$(N4)<>"0" THEN EXIT 7485 N7$(N4)=" " 7490 NEXT N4 7495 ENDPROC 7500 PROC TALTEK(N8,N9,N7) 7505 FOR N4=1 TO 5 7510 N7$(N4)=CHR((N8 DIV 10**(5-N4)) MOD 10+48) 7515 NEXT N4 7520 O1=1 7525 FOR N4=6 TO 12 7530 IF N4=10 THEN 7535 N4=11;O1=0;N7$(10)="." 7540 ENDIF 7545 N7$(N4)=CHR((N9 DIV 10**(12-N4-O1)) MOD 10+48) 7550 NEXT N4 7555 EXEC NULU(N7$) 7560 ENDPROC 7565 PROC LANGPAK(O2,O3,O4,O5) 7570 IF O2$(13)="-" THEN N3=1 7575 EXEC TEKTAL(O2$,O6,O7) 7580 O8=O5-2 7585 EXEC PACK(O7,O3$,O8,O5) 7590 O8=O8-1 7595 EXEC PACK(O6,O3$,O4,O8) 7600 ENDPROC 7605 PROC LANGUDPAK(O3,O2,O4,O5) 7610 O8=O5-2 7615 EXEC UNPACK(O7,O2$,O8,O5) 7620 O8=O8-1 7625 EXEC UNPACK(O6,O2$,O4,O8) 7630 EXEC TALTEK(O6,O7,O3$) 7635 ENDPROC 7640 DIM O9$(20),FILE$(20) 7645 O9$="VENDOR:VAREREG " 7650 EXEC DIMS(O9$) 7655 IF A9<>0 THEN EXEC FEJL(O9$) 7660 DIM P0$(C7),G5$(B0),G6$(B0) 7665 EXEC IOPEN(P0$,O9$,0) 7670 IF A9<>0 THEN EXEC ERROR(P0$) 7675 DIM P4$(152),P5$(152),P6$(30),P7$(10),P8$(51),P9$(20),Q5$(13) 8980 PROC PRVAREOPL 8985 CURSOR 1,1 8990 EXEC UNPACK(Q1,P4$,1,3) 8995 PRINT "1 VARENR ",Q1 9000 CURSOR 1,2 9005 P6$=P4$(4,33) 9010 PRINT "2 VARENAVN ",P6$ 9015 CURSOR 1,3 9020 P6$=P4$(34,63) 9025 PRINT "3 BETEGNELSE HOS LEVERANDØR ",P6$ 9030 CURSOR 1,4 9035 EXEC LANGUDPAK(Q5$,P4$,64,67) 9040 PRINT "4 PRIS ",Q5$ 9050 EXEC LANGUDPAK(Q5$,P4$,68,71) 9055 CURSOR 1,5 9060 PRINT "5 KOSTPRIS ",Q5$ 9070 CURSOR 1,6 9075 EXEC UNPACK(Q1,P4$,72,73) 9080 PRINT "6 LEVERANDØRNR ",Q1 9085 CURSOR 1,7 9090 EXEC UNPACK(Q1,P4$,128,129) 9095 PRINT "7 OPRINDELSESLAND ",Q1 9100 CURSOR 1,8 9105 EXEC LANGUDPAK(Q5$,P4$,75,78) 9110 PRINT "8 TOLDPOSITIONSNR ";Q5$(1:9);Q5$(11,12) 9115 CURSOR 1,9 9120 EXEC UNPACK(Q1,P4$,79,80) 9125 PRINT "9 PAKNINGSENHED ",Q1 9130 CURSOR 1,10 9135 EXEC UNPACK(Q1,P4$,81,83) 9140 PRINT "10 FYSISK LAGER ",Q1 9145 EXEC UNPACK(Q3,P4$,84,86) 9150 CURSOR 40,10 9155 PRINT " PRIMOLAGER ",Q3 9160 Q6=(Q3+Q1)/2 9165 CURSOR 1,11 9170 EXEC UNPACK(Q1,P4$,87,89) 9175 PRINT "11 MINIMUMSLAGER ",Q1 9180 CURSOR 1,12 9185 EXEC UNPACK(Q1,P4$,90,92) 9190 PRINT "12 RESERVERET AF FYSISK LAGER ",Q1 9195 CURSOR 1,13 9200 EXEC UNPACK(Q1,P4$,93,95) 9205 PRINT "13 I ORDRE ",Q1 9210 CURSOR 30,13 9215 EXEC UNPACK(Q1,P4$,96,98) 9220 PRINT "14 HERAF RESERVERET ",Q1 9225 CURSOR 58,13 9230 EXEC UNPACK(Q1,P4$,99,99) 9235 PRINT "15 FORV. LEV. UGE ",Q1 9240 CURSOR 1,14 9245 EXEC UNPACK(Q1,P4$,100,102) 9250 PRINT "16 STØRRELSE AF SIDSTE BESTILLING ",Q1 9255 CURSOR 40,14 9260 EXEC UNPACK(Q1,P4$,103,105) 9265 PRINT "17 DATO FOR SIDSTE BEST ",Q1 9270 CURSOR 1,15 9275 EXEC UNPACK(Q1,P4$,106,108) 9280 PRINT "18 DATO FOR SIDSTE ORDRE ",Q1 9290 CURSOR 1,16 9295 EXEC UNPACK(Q1,P4$,109,111) 9300 PRINT "19 ANTAL SOLGT I ÅR ",Q1 9305 IF Q6<>0 THEN Q6=Q1/Q6 9310 CURSOR 40,16 9315 EXEC UNPACK(Q1,P4$,112,114) 9320 PRINT "20 ANTAL SOLGT S. ÅR ",Q1 9325 CURSOR 1,17 9330 EXEC UNPACK(Q7,P4$,115,117) 9335 PRINT "21 OMSÆTNING I ÅR ",Q7 9340 CURSOR 40,17 9345 EXEC UNPACK(Q1,P4$,118,120) 9350 PRINT "22 OMSÆTNING S. ÅR ",Q1 9355 CURSOR 1,18 9360 EXEC UNPACK(Q1,P4$,121,123) 9365 PRINT "23 DÆK. BID. TIL DATO ",Q1 9370 IF Q7<>0 AND Q6<>0 THEN 9375 CURSOR 65,1 9380 PRINT "GODT TAL ";Q6*Q1/Q7 9385 ENDIF 9390 CURSOR 40,18 9395 EXEC UNPACK(Q1,P4$,124,124) 9400 PRINT "24 DÆK. GRAD S. ÅR ",Q1 9410 CURSOR 1,19 9415 EXEC UNPACK(Q1,P4$,125,127) 9420 Q1=Q1-500000 9425 PRINT "25 ANDRE AFGANGE-TILGANGE ",Q1 9430 ENDPROC 9435 PROC ERROR(Q8) 9440 PRINT "FEJL PAA FIL ";Q8$(1:20) 9445 PRINT "FEJLSTATUS ",A9 9450 EXEC CLOSET 9455 ENDPROC 9460 PROC CLOSET 9465 EXEC ICLOSE(P0$) 9470 IF A9 THEN 9475 PRINT "VAREREG LUKKET UREGLEMENTERET, SITUATIONEN MAASKE PENIBEL"; 9480 PRINT "STATUS ";A9 9485 ENDIF 9490 STOP 9495 ENDPROC 9500 PROC FEJL(R0) 9505 IF STATUS(R0$) THEN 9510 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(R0$) 9515 PRINT "PAA FIL ";R0$ 9520 STOP 9525 ENDIF 9530 ENDPROC 9600 PROC FL(FLE) 9605 A=0 9610 OUT 84,24 9615 OUT 85,FLE+64 9620 REPEAT 9625 IN 86,64,A 9630 UNTIL A=0 9635 OUT 86,1 9640 OUT 86,0 9645 ENDPROC 9650 PROC FF 9655 A=0 9660 REPEAT 9665 IN 86,64,A 9670 UNTIL A=0 9675 OUT 85,192 9680 OUT 85,64 9685 ENDPROC 9689 FILE$="ISF:VAREREG " 9690 OPEN FILE$,W 9695 EXEC PACK(0,P4$,1,152) 9700 EXEC NEXTREC(P0$,P4$,P5$) 9705 IF A9<>-1 THEN EXEC ERROR(P0$) 9708 AV=0 9710 REPEAT 9715 PUT FILE$:P4$(1,76) 9716 IF STATUS(FILE$)<>0 THEN STOP 9717 PUT FILE$:P4$(77,152) 9718 IF STATUS(FILE$)<>0 THEN STOP 9720 EXEC UNPACK(Q,P4$,1,3) 9721 PRINT Q 9725 AV=AV+1 9730 EXEC NEXTREC(P0$,P4$,P5$) 9735 UNTIL A9<>0 9740 PRINT "DER ER UDSKREVET ";AV;" VARER " 9750 CLOSE FILE$ 9755 IF A9<>-2 THEN EXEC ERROR(P0$) 9760 EXEC ICLOSE(P0$) 9800 PROC PACK(L8,L9,M0,M1) 9805 IF M1<M0 THEN 9810 PRINT "PARAMFEJL I PACK" 9815 STOP 9820 ELSE 9823 M2=L8 9824 M3=M1 9825 REPEAT 9830 M4=M2 MOD 100+32 9835 L9$(M3)=CHR(M4) 9840 M2=M2 DIV 100 9845 M3=M3-1 9850 UNTIL M3<M0 9851 IF M2<>0 THEN 9852 PRINT "TAL IKKE PAKKET" 9853 STOP 9854 ENDIF 9855 ENDIF 9860 ENDPROC 9865 PROC UNPACK(L8,L9,M0,M1) 9870 L8=0 9875 IF M1<M0 THEN 9880 PRINT "PARAMFEJL I UNPACK" 9885 STOP 9890 ELSE 9893 M5=M0 9895 REPEAT 9900 L8=L8*100+ORD(L9$(M5))-32 9905 M5=M5+1 9910 UNTIL M5>M1 9915 ENDIF 9920 ENDPROC
0x0000…0013 Line {l1=0x11, l2=»0100 DIM A1$(145)«, l3=0x11}
0x0013…0023 Line {l1=0x0e, l2=»0101 A2=0;A3=1«, l3=0x0e}
0x0023…003e Line {l1=0x19, l2=»1000 PROC IOPEN(D1,A4,D2)«, l3=0x19}
0x003e…0052 Line {l1=0x12, l2=»1010 IF D2=1 THEN «, l3=0x12}
0x0052…0063 Line {l1=0x0f, l2=»1020 OPEN A4$,W«, l3=0x0f}
0x0063…0080 Line {l1=0x1b, l2=»1030 ELSE ;D3 FOR D4 D5. D6«, l3=0x1b}
0x0080…0091 Line {l1=0x0f, l2=»1040 OPEN A4$,R«, l3=0x0f}
0x0091…009e Line {l1=0x0b, l2=»1050 ENDIF «, l3=0x0b}
0x009e…00b3 Line {l1=0x13, l2=»1060 A9=STATUS(A4$)«, l3=0x13}
0x00b3…00cd Line {l1=0x18, l2=»1070 IF A9<>0 THEN EXIT «, l3=0x18}
0x00cd…00e8 Line {l1=0x19, l2=»1075 REM INDLAES FILHOVED«, l3=0x19}
0x00e8…00fc Line {l1=0x12, l2=»1080 D1$(1:20)=A4$«, l3=0x12}
0x00fc…0117 Line {l1=0x19, l2=»1090 GET A4$,1:D1$(48:76)«, l3=0x19}
0x0117…0137 Line {l1=0x1e, l2=»1100 EXEC UNPACK(B8,D1$,69,71)«, l3=0x1e}
0x0137…0158 Line {l1=0x1f, l2=»1110 GET A4$,2:D1$(48+76:B8-76)«, l3=0x1f}
0x0158…016a Line {l1=0x10, l2=»1115 EXEC DEFVAR«, l3=0x10}
0x016a…017f Line {l1=0x13, l2=»1120 A9=STATUS(A4$)«, l3=0x13}
0x017f…0199 Line {l1=0x18, l2=»1140 IF A9<>0 THEN EXIT «, l3=0x18}
0x0199…01ba Line {l1=0x1f, l2=»1145 REM ER FILEN EN COMISQ-FIL«, l3=0x1f}
0x01ba…01d8 Line {l1=0x1c, l2=»1180 IF B7<>B2*B5 THEN A9=-4«, l3=0x1c}
0x01d8…01f2 Line {l1=0x18, l2=»1200 IF A9<>0 THEN EXIT «, l3=0x18}
0x01f2…020f Line {l1=0x1b, l2=»1205 REM INDLAES BUKETTABEL«, l3=0x1b}
0x020f…0239 Line {l1=0x28, l2=»1240 IF D7 THEN EXEC COPSEGS(3,C3,D8,A2)«, l3=0x28}
0x0239…0253 Line {l1=0x18, l2=»1330 IF A9<>0 THEN EXIT «, l3=0x18}
0x0253…0265 Line {l1=0x10, l2=»1350 IF D9 THEN «, l3=0x10}
0x0265…0272 Line {l1=0x0b, l2=»1360 A9=-18«, l3=0x0b}
0x0272…0288 Line {l1=0x14, l2=»1370 IF NOT D7 THEN «, l3=0x14}
0x0288…0295 Line {l1=0x0b, l2=»1380 A9=-19«, l3=0x0b}
0x0295…02a9 Line {l1=0x12, l2=»1390 E0,E1,E2,E3=0«, l3=0x12}
0x02a9…02c9 Line {l1=0x1e, l2=»1400 EXEC PACK(E0,D1$,102,104)«, l3=0x1e}
0x02c9…02d5 Line {l1=0x0a, l2=»1420 ELSE «, l3=0x0a}
0x02d5…02e6 Line {l1=0x0f, l2=»1450 E1,E2,E3=0«, l3=0x0f}
0x02e6…02f4 Line {l1=0x0c, l2=»1480 E4=D8+6«, l3=0x0c}
0x02f4…0309 Line {l1=0x13, l2=»1490 FOR B1=1 TO B6«, l3=0x13}
0x0309…032b Line {l1=0x20, l2=»1493 E5=D8+(B1-1)*(B0+6);E6=E5+2«, l3=0x20}
0x032b…034b Line {l1=0x1e, l2=»1495 EXEC UNPACK(E7,D1$,E5,E6)«, l3=0x1e}
0x034b…036b Line {l1=0x1e, l2=»1500 EXEC COPSEGS(E7,C4,E8,A2)«, l3=0x1e}
0x036b…0385 Line {l1=0x18, l2=»1510 IF A9<>0 THEN EXIT «, l3=0x18}
0x0385…0392 Line {l1=0x0b, l2=»1520 A9=-18«, l3=0x0b}
0x0392…03b0 Line {l1=0x1c, l2=»1530 D1$(E4:B0)=D1$(E8+6:B0)«, l3=0x1c}
0x03b0…03bb Line {l1=0x09, l2=»1540 E9=0«, l3=0x09}
0x03bb…03d1 Line {l1=0x14, l2=»1550 E5=E8+3;E6=E5+2«, l3=0x14}
0x03d1…03e6 Line {l1=0x13, l2=»1560 FOR C8=1 TO B5«, l3=0x13}
0x03e6…0406 Line {l1=0x1e, l2=»1580 EXEC UNPACK(F0,D1$,E5,E6)«, l3=0x1e}
0x0406…041f Line {l1=0x17, l2=»1585 E5=E5+B0+6;E6=E5+2«, l3=0x17}
0x041f…0433 Line {l1=0x12, l2=»1590 IF F0>0 THEN «, l3=0x12}
0x0433…0442 Line {l1=0x0d, l2=»1600 E9=E9+F0«, l3=0x0d}
0x0442…0450 Line {l1=0x0c, l2=»1610 E2=E2+1«, l3=0x0c}
0x0450…045c Line {l1=0x0a, l2=»1620 F1=C8«, l3=0x0a}
0x045c…0469 Line {l1=0x0b, l2=»1630 ENDIF «, l3=0x0b}
0x0469…0477 Line {l1=0x0c, l2=»1640 NEXT C8«, l3=0x0c}
0x0477…048b Line {l1=0x12, l2=»1650 IF E9>0 THEN «, l3=0x12}
0x048b…049a Line {l1=0x0d, l2=»1660 E3=E3+E9«, l3=0x0d}
0x049a…04a8 Line {l1=0x0c, l2=»1670 E1=E1+1«, l3=0x0c}
0x04a8…04d4 Line {l1=0x2a, l2=»1680 D1$(E4:B0)=D1$(E8+(F1-1)*(B0+6)+6:B0)«, l3=0x2a}
0x04d4…04e1 Line {l1=0x0b, l2=»1690 ENDIF «, l3=0x0b}
0x04e1…04f7 Line {l1=0x14, l2=»1700 E5=E4-3;E6=E5+2«, l3=0x14}
0x04f7…0515 Line {l1=0x1c, l2=»1710 EXEC PACK(E9,D1$,E5,E6)«, l3=0x1c}
0x0515…0526 Line {l1=0x0f, l2=»1725 E4=E4+B0+6«, l3=0x0f}
0x0526…0534 Line {l1=0x0c, l2=»1730 NEXT B1«, l3=0x0c}
0x0534…0550 Line {l1=0x1a, l2=»1735 IF A9<>-18 THEN EXIT «, l3=0x1a}
0x0550…055c Line {l1=0x0a, l2=»1740 F2=B6«, l3=0x0a}
0x055c…057a Line {l1=0x1c, l2=»1750 EXEC PACK(F2,D1$,21,23)«, l3=0x1c}
0x057a…0587 Line {l1=0x0b, l2=»1760 ENDIF «, l3=0x0b}
0x0587…05af Line {l1=0x26, l2=»1765 IF A9<>-18 AND A9<>-19 THEN EXIT «, l3=0x26}
0x05af…05cf Line {l1=0x1e, l2=»1770 EXEC PACK(E1,D1$,105,107)«, l3=0x1e}
0x05cf…05ef Line {l1=0x1e, l2=»1780 EXEC PACK(E2,D1$,108,110)«, l3=0x1e}
0x05ef…060f Line {l1=0x1e, l2=»1790 EXEC PACK(E3,D1$,111,113)«, l3=0x1e}
0x060f…061c Line {l1=0x0b, l2=»1800 ENDIF «, l3=0x0b}
0x061c…064e Line {l1=0x30, l2=»1805 IF A9<>-18 AND A9<>-19 AND A9<>0 THEN EXIT «, l3=0x30}
0x064e…0659 Line {l1=0x09, l2=»1810 D9=1«, l3=0x09}
0x0659…0676 Line {l1=0x1b, l2=»1811 FOR B1=21 TO 45 STEP 3«, l3=0x1b}
0x0676…0684 Line {l1=0x0c, l2=»1812 C8=B1+2«, l3=0x0c}
0x0684…06a1 Line {l1=0x1b, l2=»1813 EXEC PACK(0,D1$,B1,C8)«, l3=0x1b}
0x06a1…06af Line {l1=0x0c, l2=»1814 NEXT B1«, l3=0x0c}
0x06af…06ce Line {l1=0x1d, l2=»1815 REM LOKALE ZONE-VARIABLE«, l3=0x1d}
0x06ce…06ee Line {l1=0x1e, l2=»1820 EXEC PACK(D9,D1$,117,119)«, l3=0x1e}
0x06ee…070c Line {l1=0x1c, l2=»1821 EXEC PACK(D2,D1$,30,32)«, l3=0x1c}
0x070c…0720 Line {l1=0x12, l2=»1825 IF D2=1 THEN «, l3=0x12}
0x0720…072c Line {l1=0x0a, l2=»1830 B1=A9«, l3=0x0a}
0x072c…0747 Line {l1=0x19, l2=»1840 PUT A4$,1:D1$(48:76)«, l3=0x19}
0x0747…0768 Line {l1=0x1f, l2=»1850 PUT A4$,2:D1$(48+76:B8-76)«, l3=0x1f}
0x0768…077d Line {l1=0x13, l2=»1860 A9=STATUS(A4$)«, l3=0x13}
0x077d…0796 Line {l1=0x17, l2=»1870 IF A9>0 THEN EXIT «, l3=0x17}
0x0796…07a2 Line {l1=0x0a, l2=»1880 A9=B1«, l3=0x0a}
0x07a2…07af Line {l1=0x0b, l2=»1885 ENDIF «, l3=0x0b}
0x07af…07be Line {l1=0x0d, l2=»1900 ENDPROC «, l3=0x0d}
0x07be…07de Line {l1=0x1e, l2=»3000 PROC COPSEGS(G8,G9,H0,H1)«, l3=0x1e}
0x07de…07ea Line {l1=0x0a, l2=»3010 H2=H0«, l3=0x0a}
0x07ea…07f6 Line {l1=0x0a, l2=»3020 H3=G8«, l3=0x0a}
0x07f6…0804 Line {l1=0x0c, l2=»3030 REPEAT «, l3=0x0c}
0x0804…0818 Line {l1=0x12, l2=»3040 IF H1=0 THEN «, l3=0x12}
0x0818…083a Line {l1=0x20, l2=»3050 GET D1$(1:20),H3:D1$(H2:76)«, l3=0x20}
0x083a…0846 Line {l1=0x0a, l2=»3060 ELSE «, l3=0x0a}
0x0846…0868 Line {l1=0x20, l2=»3070 PUT D1$(1:20),H3:D1$(H2:76)«, l3=0x20}
0x0868…0875 Line {l1=0x0b, l2=»3080 ENDIF «, l3=0x0b}
0x0875…0884 Line {l1=0x0d, l2=»3090 H2=H2+76«, l3=0x0d}
0x0884…0892 Line {l1=0x0c, l2=»3100 H3=H3+1«, l3=0x0c}
0x0892…08ad Line {l1=0x19, l2=»3110 A9=STATUS(D1$(1:20))«, l3=0x19}
0x08ad…08ca Line {l1=0x1b, l2=»3120 UNTIL H3=G8+G9 OR A9>0«, l3=0x1b}
0x08ca…08d9 Line {l1=0x0d, l2=»3130 ENDPROC «, l3=0x0d}
0x08d9…08ed Line {l1=0x12, l2=»3140 PROC DIMS(A4)«, l3=0x12}
0x08ed…08fe Line {l1=0x0f, l2=»3150 OPEN A4$,R«, l3=0x0f}
0x08fe…0913 Line {l1=0x13, l2=»3160 A9=STATUS(A4$)«, l3=0x13}
0x0913…092c Line {l1=0x17, l2=»3170 IF A9>0 THEN EXIT «, l3=0x17}
0x092c…0946 Line {l1=0x18, l2=»3180 GET A4$,1:A1$(1:76)«, l3=0x18}
0x0946…095b Line {l1=0x13, l2=»3190 A9=STATUS(A4$)«, l3=0x13}
0x095b…0974 Line {l1=0x17, l2=»3200 IF A9>0 THEN EXIT «, l3=0x17}
0x0974…0984 Line {l1=0x0e, l2=»3210 CLOSE A4$«, l3=0x0e}
0x0984…0999 Line {l1=0x13, l2=»3220 A9=STATUS(A4$)«, l3=0x13}
0x0999…09b2 Line {l1=0x17, l2=»3230 IF A9>0 THEN EXIT «, l3=0x17}
0x09b2…09d2 Line {l1=0x1e, l2=»3240 EXEC UNPACK(B0,A1$,37,39)«, l3=0x1e}
0x09d2…09f2 Line {l1=0x1e, l2=»3250 EXEC UNPACK(B8,A1$,22,24)«, l3=0x1e}
0x09f2…0a12 Line {l1=0x1e, l2=»3260 EXEC UNPACK(B9,A1$,25,27)«, l3=0x1e}
0x0a12…0a32 Line {l1=0x1e, l2=»3270 EXEC UNPACK(C0,A1$,28,30)«, l3=0x1e}
0x0a32…0a52 Line {l1=0x1e, l2=»3280 EXEC UNPACK(B3,A1$,52,54)«, l3=0x1e}
0x0a52…0a72 Line {l1=0x1e, l2=»3290 EXEC UNPACK(A6,A1$,34,36)«, l3=0x1e}
0x0a72…0a97 Line {l1=0x23, l2=»3300 C7=47+B8+B9+C0+B3*76+A6+1+6+B0«, l3=0x23}
0x0a97…0aa6 Line {l1=0x0d, l2=»3310 ENDPROC «, l3=0x0d}
0x0aa6…0aba Line {l1=0x12, l2=»3400 PROC FINDPOST«, l3=0x12}
0x0aba…0ad6 Line {l1=0x1a, l2=»3424 EXEC EXTRACT(F4$,G5$)«, l3=0x1a}
0x0ad6…0aec Line {l1=0x14, l2=»3430 E5=D8+3;E6=E5+2«, l3=0x14}
0x0aec…0af8 Line {l1=0x0a, l2=»3433 G7=-1«, l3=0x0a}
0x0af8…0b03 Line {l1=0x09, l2=»3436 B1=1«, l3=0x09}
0x0b03…0b11 Line {l1=0x0c, l2=»3439 REPEAT «, l3=0x0c}
0x0b11…0b31 Line {l1=0x1e, l2=»3442 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x0b31…0b45 Line {l1=0x12, l2=»3445 IF E9>0 THEN «, l3=0x12}
0x0b45…0b51 Line {l1=0x0a, l2=»3448 H4=B1«, l3=0x0a}
0x0b51…0b5e Line {l1=0x0b, l2=»3449 G6$=""«, l3=0x0b}
0x0b5e…0b75 Line {l1=0x15, l2=»3450 G6$=D1$(E5+3:B0)«, l3=0x15}
0x0b75…0b91 Line {l1=0x1a, l2=»3451 EXEC COMPARE(G6$,G5$)«, l3=0x1a}
0x0b91…0b9e Line {l1=0x0b, l2=»3454 ENDIF «, l3=0x0b}
0x0b9e…0bac Line {l1=0x0c, l2=»3457 B1=B1+1«, l3=0x0c}
0x0bac…0bc5 Line {l1=0x17, l2=»3460 E5=E5+6+B0;E6=E5+2«, l3=0x17}
0x0bc5…0be0 Line {l1=0x19, l2=»3463 UNTIL B1>B6 OR G7=>0«, l3=0x19}
0x0be0…0bfe Line {l1=0x1c, l2=»3466 IF B1>B6 AND G7<0 THEN «, l3=0x1c}
0x0bfe…0c23 Line {l1=0x23, l2=»3469 REM SQGNING ENDT UDENFOR FILEN«, l3=0x23}
0x0c23…0c3c Line {l1=0x17, l2=»3472 EXEC READTABLE(H4)«, l3=0x17}
0x0c3c…0c56 Line {l1=0x18, l2=»3475 IF A9<>0 THEN EXIT «, l3=0x18}
0x0c56…0c7a Line {l1=0x22, l2=»3478 E5=E8+(B5-1)*(B0+6)+3;E6=E5+2«, l3=0x22}
0x0c7a…0c97 Line {l1=0x1b, l2=»3481 FOR H4=B5 TO 1 STEP -1«, l3=0x1b}
0x0c97…0cb7 Line {l1=0x1e, l2=»3484 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x0cb7…0ccb Line {l1=0x12, l2=»3487 IF E9>0 THEN «, l3=0x12}
0x0ccb…0ce6 Line {l1=0x19, l2=»3490 EXEC READBLOCK(H4,1)«, l3=0x19}
0x0ce6…0d00 Line {l1=0x18, l2=»3493 IF A9<>0 THEN EXIT «, l3=0x18}
0x0d00…0d0e Line {l1=0x0c, l2=»3496 G1=E9+1«, l3=0x0c}
0x0d0e…0d2c Line {l1=0x1c, l2=»3499 EXEC PACK(G1,D1$,27,29)«, l3=0x1c}
0x0d2c…0d38 Line {l1=0x0a, l2=»3502 A9=-1«, l3=0x0a}
0x0d38…0d45 Line {l1=0x0b, l2=»3505 ENDIF «, l3=0x0b}
0x0d45…0d60 Line {l1=0x19, l2=»3508 E5=E5-(6+B0);E6=E5+2«, l3=0x19}
0x0d60…0d7a Line {l1=0x18, l2=»3511 IF A9<>0 THEN EXIT «, l3=0x18}
0x0d7a…0d88 Line {l1=0x0c, l2=»3514 NEXT H4«, l3=0x0c}
0x0d88…0da2 Line {l1=0x18, l2=»3517 IF A9<>0 THEN EXIT «, l3=0x18}
0x0da2…0dbb Line {l1=0x17, l2=»3520 PRINT "KATASTROFE"«, l3=0x17}
0x0dbb…0dc7 Line {l1=0x0a, l2=»3523 STOP «, l3=0x0a}
0x0dc7…0dd3 Line {l1=0x0a, l2=»3526 ELSE «, l3=0x0a}
0x0dd3…0def Line {l1=0x1a, l2=»3529 REM POSTEN ER I FILEN«, l3=0x1a}
0x0def…0e08 Line {l1=0x17, l2=»3532 EXEC READTABLE(H4)«, l3=0x17}
0x0e08…0e1e Line {l1=0x14, l2=»3535 E5=E8+3;E6=E5+2«, l3=0x14}
0x0e1e…0e33 Line {l1=0x13, l2=»3538 FOR H4=1 TO B5«, l3=0x13}
0x0e33…0e53 Line {l1=0x1e, l2=»3541 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x0e53…0e67 Line {l1=0x12, l2=»3544 IF E9>0 THEN «, l3=0x12}
0x0e67…0e74 Line {l1=0x0b, l2=»3545 G6$=""«, l3=0x0b}
0x0e74…0e8b Line {l1=0x15, l2=»3546 G6$=D1$(E5+3:B0)«, l3=0x15}
0x0e8b…0ea7 Line {l1=0x1a, l2=»3547 EXEC COMPARE(G6$,G5$)«, l3=0x1a}
0x0ea7…0ebc Line {l1=0x13, l2=»3550 IF G7=>0 THEN «, l3=0x13}
0x0ebc…0ed7 Line {l1=0x19, l2=»3553 EXEC READBLOCK(H4,1)«, l3=0x19}
0x0ed7…0ee5 Line {l1=0x0c, l2=»3556 H4=B5+1«, l3=0x0c}
0x0ee5…0ef2 Line {l1=0x0b, l2=»3559 ENDIF «, l3=0x0b}
0x0ef2…0eff Line {l1=0x0b, l2=»3562 ENDIF «, l3=0x0b}
0x0eff…0f19 Line {l1=0x18, l2=»3565 IF A9<>0 THEN EXIT «, l3=0x18}
0x0f19…0f32 Line {l1=0x17, l2=»3568 E5=E5+6+B0;E6=E5+2«, l3=0x17}
0x0f32…0f40 Line {l1=0x0c, l2=»3571 NEXT H4«, l3=0x0c}
0x0f40…0f5a Line {l1=0x18, l2=»3574 IF A9<>0 THEN EXIT «, l3=0x18}
0x0f5a…0f71 Line {l1=0x15, l2=»3583 G7=-1;B1=0;E5=F6«, l3=0x15}
0x0f71…0f82 Line {l1=0x0f, l2=»3586 WHILE G7<0«, l3=0x0f}
0x0f82…0f90 Line {l1=0x0c, l2=»3589 B1=B1+1«, l3=0x0c}
0x0f90…0fa5 Line {l1=0x13, l2=»3592 IF B1>E9 THEN «, l3=0x13}
0x0fa5…0fbe Line {l1=0x17, l2=»3595 PRINT "KATASTROFE"«, l3=0x17}
0x0fbe…0fca Line {l1=0x0a, l2=»3598 STOP «, l3=0x0a}
0x0fca…0fd7 Line {l1=0x0b, l2=»3601 ENDIF «, l3=0x0b}
0x0fd7…0fec Line {l1=0x13, l2=»3603 F9$=D1$(E5:A6)«, l3=0x13}
0x0fec…1008 Line {l1=0x1a, l2=»3604 EXEC EXTRACT(F9$,G6$)«, l3=0x1a}
0x1008…1024 Line {l1=0x1a, l2=»3607 EXEC COMPARE(G6$,G5$)«, l3=0x1a}
0x1024…1033 Line {l1=0x0d, l2=»3608 E5=E5+A6«, l3=0x0d}
0x1033…1043 Line {l1=0x0e, l2=»3610 ENDWHILE «, l3=0x0e}
0x1043…1057 Line {l1=0x12, l2=»3613 IF G7=0 THEN «, l3=0x12}
0x1057…1062 Line {l1=0x09, l2=»3616 A9=0«, l3=0x09}
0x1062…106e Line {l1=0x0a, l2=»3619 ELSE «, l3=0x0a}
0x106e…107a Line {l1=0x0a, l2=»3622 A9=-1«, l3=0x0a}
0x107a…1087 Line {l1=0x0b, l2=»3625 ENDIF «, l3=0x0b}
0x1087…1093 Line {l1=0x0a, l2=»3628 G1=B1«, l3=0x0a}
0x1093…10b1 Line {l1=0x1c, l2=»3631 EXEC PACK(G1,D1$,27,29)«, l3=0x1c}
0x10b1…10be Line {l1=0x0b, l2=»3633 ENDIF «, l3=0x0b}
0x10be…10cd Line {l1=0x0d, l2=»3634 ENDPROC «, l3=0x0d}
0x10cd…10e6 Line {l1=0x17, l2=»3637 PROC READTABLE(H5)«, l3=0x17}
0x10e6…10fc Line {l1=0x14, l2=»3649 IF H5<>F2 THEN «, l3=0x14}
0x10fc…110e Line {l1=0x10, l2=»3658 IF H6 THEN «, l3=0x10}
0x110e…1130 Line {l1=0x20, l2=»3664 H7=E8+(G0-1)*(B0+6);H8=H7+2«, l3=0x20}
0x1130…1150 Line {l1=0x1e, l2=»3667 EXEC UNPACK(H9,D1$,H7,H8)«, l3=0x1e}
0x1150…1170 Line {l1=0x1e, l2=»3670 EXEC COPSEGS(H9,B3,F6,A3)«, l3=0x1e}
0x1170…117d Line {l1=0x0b, l2=»3673 ENDIF «, l3=0x0b}
0x117d…1197 Line {l1=0x18, l2=»3676 IF A9<>0 THEN EXIT «, l3=0x18}
0x1197…11a9 Line {l1=0x10, l2=»3679 IF I0 THEN «, l3=0x10}
0x11a9…11cb Line {l1=0x20, l2=»3682 H7=D8+(F2-1)*(B0+6);H8=H7+2«, l3=0x20}
0x11cb…11eb Line {l1=0x1e, l2=»3685 EXEC UNPACK(H9,D1$,H7,H8)«, l3=0x1e}
0x11eb…120b Line {l1=0x1e, l2=»3688 EXEC COPSEGS(H9,C4,E8,A3)«, l3=0x1e}
0x120b…1218 Line {l1=0x0b, l2=»3691 ENDIF «, l3=0x0b}
0x1218…1232 Line {l1=0x18, l2=»3694 IF A9<>0 THEN EXIT «, l3=0x18}
0x1232…124f Line {l1=0x1b, l2=»3697 EXEC PACK(0,D1$,42,44)«, l3=0x1b}
0x124f…125a Line {l1=0x09, l2=»3698 I0=0«, l3=0x09}
0x125a…1265 Line {l1=0x09, l2=»3699 H6=0«, l3=0x09}
0x1265…1282 Line {l1=0x1b, l2=»3700 EXEC PACK(0,D1$,45,47)«, l3=0x1b}
0x1282…12a4 Line {l1=0x20, l2=»3703 H7=D8+(H5-1)*(B0+6);H8=H7+2«, l3=0x20}
0x12a4…12c4 Line {l1=0x1e, l2=»3706 EXEC UNPACK(H9,D1$,H7,H8)«, l3=0x1e}
0x12c4…12e4 Line {l1=0x1e, l2=»3709 EXEC COPSEGS(H9,C4,E8,A2)«, l3=0x1e}
0x12e4…12fe Line {l1=0x18, l2=»3712 IF A9<>0 THEN EXIT «, l3=0x18}
0x12fe…130a Line {l1=0x0a, l2=»3715 F2=H5«, l3=0x0a}
0x130a…1315 Line {l1=0x09, l2=»3718 G0=0«, l3=0x09}
0x1315…1333 Line {l1=0x1c, l2=»3721 EXEC PACK(F2,D1$,21,23)«, l3=0x1c}
0x1333…1351 Line {l1=0x1c, l2=»3724 EXEC PACK(G0,D1$,24,26)«, l3=0x1c}
0x1351…135e Line {l1=0x0b, l2=»3727 ENDIF «, l3=0x0b}
0x135e…136d Line {l1=0x0d, l2=»3730 ENDPROC «, l3=0x0d}
0x136d…1389 Line {l1=0x1a, l2=»3733 PROC READBLOCK(I1,I2)«, l3=0x1a}
0x1389…139f Line {l1=0x14, l2=»3745 IF I1<>G0 THEN «, l3=0x14}
0x139f…13b1 Line {l1=0x10, l2=»3748 IF H6 THEN «, l3=0x10}
0x13b1…13d3 Line {l1=0x20, l2=»3751 H7=E8+(G0-1)*(B0+6);H8=H7+2«, l3=0x20}
0x13d3…13f3 Line {l1=0x1e, l2=»3754 EXEC UNPACK(H9,D1$,H7,H8)«, l3=0x1e}
0x13f3…1413 Line {l1=0x1e, l2=»3757 EXEC COPSEGS(H9,B3,F6,A3)«, l3=0x1e}
0x1413…1420 Line {l1=0x0b, l2=»3760 ENDIF «, l3=0x0b}
0x1420…143a Line {l1=0x18, l2=»3763 IF A9<>0 THEN EXIT «, l3=0x18}
0x143a…1457 Line {l1=0x1b, l2=»3766 EXEC PACK(0,D1$,45,47)«, l3=0x1b}
0x1457…1462 Line {l1=0x09, l2=»3767 H6=0«, l3=0x09}
0x1462…1484 Line {l1=0x20, l2=»3769 H7=E8+(I1-1)*(B0+6);H8=H7+2«, l3=0x20}
0x1484…14a4 Line {l1=0x1e, l2=»3772 EXEC UNPACK(H9,D1$,H7,H8)«, l3=0x1e}
0x14a4…14ba Line {l1=0x14, l2=»3774 H7=F6+(I2-1)*A6«, l3=0x14}
0x14ba…14da Line {l1=0x1e, l2=»3775 EXEC COPSEGS(H9,B3,H7,A2)«, l3=0x1e}
0x14da…14f4 Line {l1=0x18, l2=»3778 IF A9<>0 THEN EXIT «, l3=0x18}
0x14f4…1500 Line {l1=0x0a, l2=»3781 G0=I1«, l3=0x0a}
0x1500…151e Line {l1=0x1c, l2=»3784 EXEC PACK(G0,D1$,24,26)«, l3=0x1c}
0x151e…152b Line {l1=0x0b, l2=»3787 ENDIF «, l3=0x0b}
0x152b…153a Line {l1=0x0d, l2=»3790 ENDPROC «, l3=0x0d}
0x153a…1556 Line {l1=0x1a, l2=»3793 PROC FORSKYDIBLOK(I3)«, l3=0x1a}
0x1556…157a Line {l1=0x22, l2=»3796 H7=E8+(G0-1)*(B0+6)+3;H8=H7+2«, l3=0x22}
0x157a…159a Line {l1=0x1e, l2=»3799 EXEC UNPACK(E9,D1$,H7,H8)«, l3=0x1e}
0x159a…15ae Line {l1=0x12, l2=»3802 IF I3>0 THEN «, l3=0x12}
0x15ae…15c9 Line {l1=0x19, l2=»3805 H7=F6+E9*A6;H8=H7-A6«, l3=0x19}
0x15c9…15e7 Line {l1=0x1c, l2=»3808 FOR I4=E9 TO I3 STEP -1«, l3=0x1c}
0x15e7…1603 Line {l1=0x1a, l2=»3811 D1$(H7:A6)=D1$(H8:A6)«, l3=0x1a}
0x1603…160f Line {l1=0x0a, l2=»3814 H7=H8«, l3=0x0a}
0x160f…161e Line {l1=0x0d, l2=»3817 H8=H7-A6«, l3=0x0d}
0x161e…162c Line {l1=0x0c, l2=»3820 NEXT I4«, l3=0x0c}
0x162c…1638 Line {l1=0x0a, l2=»3823 ELSE «, l3=0x0a}
0x1638…164c Line {l1=0x12, l2=»3826 IF I3<0 THEN «, l3=0x12}
0x164c…1667 Line {l1=0x19, l2=»3829 H7=F6-I3*A6;H8=H7-A6«, l3=0x19}
0x1667…1680 Line {l1=0x17, l2=»3832 FOR I4=-I3 TO E9-1«, l3=0x17}
0x1680…169c Line {l1=0x1a, l2=»3835 D1$(H8:A6)=D1$(H7:A6)«, l3=0x1a}
0x169c…16a8 Line {l1=0x0a, l2=»3838 H8=H7«, l3=0x0a}
0x16a8…16b7 Line {l1=0x0d, l2=»3841 H7=H7+A6«, l3=0x0d}
0x16b7…16c5 Line {l1=0x0c, l2=»3844 NEXT I4«, l3=0x0c}
0x16c5…16d1 Line {l1=0x0a, l2=»3847 ELSE «, l3=0x0a}
0x16d1…16df Line {l1=0x0c, l2=»3850 A9=4711«, l3=0x0c}
0x16df…16ec Line {l1=0x0b, l2=»3853 ENDIF «, l3=0x0b}
0x16ec…16f9 Line {l1=0x0b, l2=»3856 ENDIF «, l3=0x0b}
0x16f9…1708 Line {l1=0x0d, l2=»3859 ENDPROC «, l3=0x0d}
0x1708…171f Line {l1=0x15, l2=»3862 PROC SAETKEY(I3)«, l3=0x15}
0x171f…173e Line {l1=0x1d, l2=»3864 F9$=D1$(F6+(I3-1)*A6:A6)«, l3=0x1d}
0x173e…1762 Line {l1=0x22, l2=»3871 H7=D8+(F2-1)*(B0+6)+3;H8=H7+2«, l3=0x22}
0x1762…1782 Line {l1=0x1e, l2=»3874 EXEC UNPACK(I5,D1$,H7,H8)«, l3=0x1e}
0x1782…179e Line {l1=0x1a, l2=»3877 H7=E8+(G0-1)*(B0+6)+6«, l3=0x1a}
0x179e…17ab Line {l1=0x0b, l2=»3878 G5$=""«, l3=0x0b}
0x17ab…17c0 Line {l1=0x13, l2=»3879 G5$=D1$(H7:B0)«, l3=0x13}
0x17c0…17dc Line {l1=0x1a, l2=»3880 H8=D8+(F2-1)*(B0+6)+6«, l3=0x1a}
0x17dc…17e9 Line {l1=0x0b, l2=»3881 G6$=""«, l3=0x0b}
0x17e9…17fe Line {l1=0x13, l2=»3882 G6$=D1$(H8:B0)«, l3=0x13}
0x17fe…181a Line {l1=0x1a, l2=»3883 EXEC COMPARE(G5$,G6$)«, l3=0x1a}
0x181a…1826 Line {l1=0x0a, l2=»3886 I6=G7«, l3=0x0a}
0x1826…1842 Line {l1=0x1a, l2=»3887 EXEC EXTRACT(F9$,G5$)«, l3=0x1a}
0x1842…185e Line {l1=0x1a, l2=»3889 EXEC COMPARE(G5$,G6$)«, l3=0x1a}
0x185e…1882 Line {l1=0x22, l2=»3892 IF I5=0 OR I6=0 OR G7>0 THEN «, l3=0x22}
0x1882…189d Line {l1=0x19, l2=»3895 D1$(H8:B0)=G5$(1:B0)«, l3=0x19}
0x189d…18ba Line {l1=0x1b, l2=»3898 EXEC PACK(1,D1$,39,41)«, l3=0x1b}
0x18ba…18c5 Line {l1=0x09, l2=»3899 I7=1«, l3=0x09}
0x18c5…18d2 Line {l1=0x0b, l2=»3901 ENDIF «, l3=0x0b}
0x18d2…18ed Line {l1=0x19, l2=»3904 D1$(H7:B0)=G5$(1:B0)«, l3=0x19}
0x18ed…190a Line {l1=0x1b, l2=»3907 EXEC PACK(1,D1$,42,44)«, l3=0x1b}
0x190a…1915 Line {l1=0x09, l2=»3908 I0=1«, l3=0x09}
0x1915…1924 Line {l1=0x0d, l2=»3910 ENDPROC «, l3=0x0d}
0x1924…1935 Line {l1=0x0f, l2=»3913 PROC QGNUM«, l3=0x0f}
0x1935…1959 Line {l1=0x22, l2=»3916 H7=D8+(F2-1)*(B0+6)+3;H8=H7+2«, l3=0x22}
0x1959…1979 Line {l1=0x1e, l2=»3919 EXEC UNPACK(I6,D1$,H7,H8)«, l3=0x1e}
0x1979…1987 Line {l1=0x0c, l2=»3922 I6=I6+1«, l3=0x0c}
0x1987…19a5 Line {l1=0x1c, l2=»3925 EXEC PACK(I6,D1$,H7,H8)«, l3=0x1c}
0x19a5…19c9 Line {l1=0x22, l2=»3928 H7=E8+(G0-1)*(B0+6)+3;H8=H7+2«, l3=0x22}
0x19c9…19e9 Line {l1=0x1e, l2=»3931 EXEC UNPACK(I5,D1$,H7,H8)«, l3=0x1e}
0x19e9…19f7 Line {l1=0x0c, l2=»3934 I5=I5+1«, l3=0x0c}
0x19f7…1a15 Line {l1=0x1c, l2=»3937 EXEC PACK(I5,D1$,H7,H8)«, l3=0x1c}
0x1a15…1a23 Line {l1=0x0c, l2=»3940 E3=E3+1«, l3=0x0c}
0x1a23…1a43 Line {l1=0x1e, l2=»3943 EXEC PACK(E3,D1$,111,113)«, l3=0x1e}
0x1a43…1a57 Line {l1=0x12, l2=»3946 IF I5=1 THEN «, l3=0x12}
0x1a57…1a65 Line {l1=0x0c, l2=»3952 E2=E2+1«, l3=0x0c}
0x1a65…1a85 Line {l1=0x1e, l2=»3955 EXEC PACK(E2,D1$,108,110)«, l3=0x1e}
0x1a85…1a99 Line {l1=0x12, l2=»3958 IF I6=1 THEN «, l3=0x12}
0x1a99…1aa7 Line {l1=0x0c, l2=»3964 E1=E1+1«, l3=0x0c}
0x1aa7…1ac7 Line {l1=0x1e, l2=»3967 EXEC PACK(E1,D1$,105,107)«, l3=0x1e}
0x1ac7…1ad4 Line {l1=0x0b, l2=»3970 ENDIF «, l3=0x0b}
0x1ad4…1ae1 Line {l1=0x0b, l2=»3973 ENDIF «, l3=0x0b}
0x1ae1…1afe Line {l1=0x1b, l2=»3976 EXEC PACK(1,D1$,39,41)«, l3=0x1b}
0x1afe…1b09 Line {l1=0x09, l2=»3977 I7=1«, l3=0x09}
0x1b09…1b26 Line {l1=0x1b, l2=»3979 EXEC PACK(1,D1$,42,44)«, l3=0x1b}
0x1b26…1b31 Line {l1=0x09, l2=»3980 I0=1«, l3=0x09}
0x1b31…1b40 Line {l1=0x0d, l2=»3982 ENDPROC «, l3=0x0d}
0x1b40…1b5a Line {l1=0x18, l2=»3985 PROC EXTRACT(I8,I9)«, l3=0x18}
0x1b5a…1b6f Line {l1=0x13, l2=»3988 J0=120;J1=J0+2«, l3=0x13}
0x1b6f…1b7c Line {l1=0x0b, l2=»3989 I9$=""«, l3=0x0b}
0x1b7c…1b87 Line {l1=0x09, l2=»3991 J2=1«, l3=0x09}
0x1b87…1b9c Line {l1=0x13, l2=»3994 FOR I4=1 TO A7«, l3=0x13}
0x1b9c…1bbc Line {l1=0x1e, l2=»3997 EXEC UNPACK(J3,D1$,J0,J1)«, l3=0x1e}
0x1bbc…1bd2 Line {l1=0x14, l2=»4000 J0=J0+3;J1=J0+2«, l3=0x14}
0x1bd2…1bf2 Line {l1=0x1e, l2=»4003 EXEC UNPACK(J4,D1$,J0,J1)«, l3=0x1e}
0x1bf2…1c0e Line {l1=0x1a, l2=»4006 I9$(J2:J4)=I8$(J3:J4)«, l3=0x1a}
0x1c0e…1c1d Line {l1=0x0d, l2=»4009 J2=J2+J4«, l3=0x0d}
0x1c1d…1c33 Line {l1=0x14, l2=»4012 J0=J0+6;J1=J0+2«, l3=0x14}
0x1c33…1c41 Line {l1=0x0c, l2=»4015 NEXT I4«, l3=0x0c}
0x1c41…1c50 Line {l1=0x0d, l2=»4018 ENDPROC «, l3=0x0d}
0x1c50…1c6a Line {l1=0x18, l2=»4021 PROC COMPARE(J5,J6)«, l3=0x18}
0x1c6a…1c7f Line {l1=0x13, l2=»4024 J0=123;J1=J0+2«, l3=0x13}
0x1c7f…1c8a Line {l1=0x09, l2=»4027 J2=1«, l3=0x09}
0x1c8a…1c95 Line {l1=0x09, l2=»4030 G7=0«, l3=0x09}
0x1c95…1caa Line {l1=0x13, l2=»4033 FOR I4=1 TO A7«, l3=0x13}
0x1caa…1cca Line {l1=0x1e, l2=»4036 EXEC UNPACK(J4,D1$,J0,J1)«, l3=0x1e}
0x1cca…1ce0 Line {l1=0x14, l2=»4039 J0=J0+3;J1=J0+2«, l3=0x14}
0x1ce0…1d06 Line {l1=0x24, l2=»4042 IF J5$(J2:J4)<>J6$(J2:J4) THEN «, l3=0x24}
0x1d06…1d26 Line {l1=0x1e, l2=»4045 EXEC UNPACK(G7,D1$,J0,J1)«, l3=0x1e}
0x1d26…1d34 Line {l1=0x0c, l2=»4048 G7=G7-2«, l3=0x0c}
0x1d34…1d40 Line {l1=0x0a, l2=»4049 J7=J2«, l3=0x0a}
0x1d40…1d5c Line {l1=0x1a, l2=»4050 WHILE J5$(J7)=J6$(J7)«, l3=0x1a}
0x1d5c…1d6a Line {l1=0x0c, l2=»4051 J7=J7+1«, l3=0x0c}
0x1d6a…1d7a Line {l1=0x0e, l2=»4052 ENDWHILE «, l3=0x0e}
0x1d7a…1da9 Line {l1=0x2d, l2=»4053 IF ORD(J5$(J7))<ORD(J6$(J7)) THEN G7=-G7«, l3=0x2d}
0x1da9…1db6 Line {l1=0x0b, l2=»4054 ENDIF «, l3=0x0b}
0x1db6…1dd0 Line {l1=0x18, l2=»4057 IF G7<>0 THEN EXIT «, l3=0x18}
0x1dd0…1ddf Line {l1=0x0d, l2=»4060 J2=J2+J4«, l3=0x0d}
0x1ddf…1df5 Line {l1=0x14, l2=»4063 J0=J0+6;J1=J0+2«, l3=0x14}
0x1df5…1e03 Line {l1=0x0c, l2=»4066 NEXT I4«, l3=0x0c}
0x1e03…1e12 Line {l1=0x0d, l2=»4069 ENDPROC «, l3=0x0d}
0x1e12…1e25 Line {l1=0x11, l2=»4271 PROC RETNING«, l3=0x11}
0x1e25…1e49 Line {l1=0x22, l2=»4280 E5=D8+(F2-1)*(B0+6)+3;E6=E5+2«, l3=0x22}
0x1e49…1e69 Line {l1=0x1e, l2=»4283 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x1e69…1e7a Line {l1=0x0f, l2=»4286 K8=(E9<B7)«, l3=0x0f}
0x1e7a…1e8c Line {l1=0x10, l2=»4289 IF K8 THEN «, l3=0x10}
0x1e8c…1eac Line {l1=0x1e, l2=»4292 EXEC FINDDIR(G0,B2,B5,E8)«, l3=0x1e}
0x1eac…1eb8 Line {l1=0x0a, l2=»4295 ELSE «, l3=0x0a}
0x1eb8…1ed8 Line {l1=0x1e, l2=»4298 EXEC FINDDIR(F2,B7,B6,D8)«, l3=0x1e}
0x1ed8…1ee5 Line {l1=0x0b, l2=»4301 ENDIF «, l3=0x0b}
0x1ee5…1ef4 Line {l1=0x0d, l2=»4304 ENDPROC «, l3=0x0d}
0x1ef4…1f14 Line {l1=0x1e, l2=»4307 PROC FINDDIR(L0,L1,L2,L3)«, l3=0x1e}
0x1f14…1f30 Line {l1=0x1a, l2=»4310 J8=L2+1;L4=L0+1;L5=L0«, l3=0x1a}
0x1f30…1f44 Line {l1=0x12, l2=»4313 WHILE J8=L2+1«, l3=0x12}
0x1f44…1f62 Line {l1=0x1c, l2=»4316 IF L4>L2 AND L5<1 THEN «, l3=0x1c}
0x1f62…1f81 Line {l1=0x1d, l2=»4319 PRINT "FEJL: FULD TABEL"«, l3=0x1d}
0x1f81…1fb3 Line {l1=0x30, l2=»4322 PRINT "FQRSTE","SIZE","TABLESIZE","TABLEST"«, l3=0x30}
0x1fb3…1fcb Line {l1=0x16, l2=»4325 PRINT L0,L1,L2,L3«, l3=0x16}
0x1fcb…1fea Line {l1=0x1d, l2=»4328 PRINT "NAESTE","FORRIGE"«, l3=0x1d}
0x1fea…1ffc Line {l1=0x10, l2=»4331 PRINT L4,L5«, l3=0x10}
0x1ffc…2008 Line {l1=0x0a, l2=»4334 STOP «, l3=0x0a}
0x2008…2015 Line {l1=0x0b, l2=»4337 ENDIF «, l3=0x0b}
0x2015…202b Line {l1=0x14, l2=»4340 IF L4<=L2 THEN «, l3=0x14}
0x202b…204f Line {l1=0x22, l2=»4343 E5=L3+(L4-1)*(6+B0)+3;E6=E5+2«, l3=0x22}
0x204f…206f Line {l1=0x1e, l2=»4346 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x206f…208c Line {l1=0x1b, l2=»4349 IF E9<L1 THEN J8=L4-L0«, l3=0x1b}
0x208c…2099 Line {l1=0x0b, l2=»4352 ENDIF «, l3=0x0b}
0x2099…20ae Line {l1=0x13, l2=»4355 IF L5=>1 THEN «, l3=0x13}
0x20ae…20d2 Line {l1=0x22, l2=»4358 E5=L3+(L5-1)*(6+B0)+3;E6=E5+2«, l3=0x22}
0x20d2…20f2 Line {l1=0x1e, l2=»4361 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x20f2…210f Line {l1=0x1b, l2=»4364 IF E9<L1 THEN J8=L5-L0«, l3=0x1b}
0x210f…211c Line {l1=0x0b, l2=»4367 ENDIF «, l3=0x0b}
0x211c…2132 Line {l1=0x14, l2=»4370 L4=L4+1;L5=L5-1«, l3=0x14}
0x2132…2142 Line {l1=0x0e, l2=»4373 ENDWHILE «, l3=0x0e}
0x2142…2151 Line {l1=0x0d, l2=»4376 ENDPROC «, l3=0x0d}
0x2151…2167 Line {l1=0x14, l2=»4400 PROC ICLOSE(D1)«, l3=0x14}
0x2167…2172 Line {l1=0x09, l2=»4403 A9=0«, l3=0x09}
0x2172…2184 Line {l1=0x10, l2=»4406 EXEC DEFVAR«, l3=0x10}
0x2184…2198 Line {l1=0x12, l2=»4407 IF L6=1 THEN «, l3=0x12}
0x2198…21b5 Line {l1=0x1b, l2=»4412 IF D7=0 AND E3>0 THEN «, l3=0x1b}
0x21b5…21d4 Line {l1=0x1d, l2=»4415 EXEC PACK(1,D1$,114,116)«, l3=0x1d}
0x21d4…21f4 Line {l1=0x1e, l2=»4418 EXEC PACK(E3,D1$,102,104)«, l3=0x1e}
0x21f4…2206 Line {l1=0x10, l2=»4421 REM INITREC«, l3=0x10}
0x2206…2213 Line {l1=0x0b, l2=»4424 ENDIF «, l3=0x0b}
0x2213…2225 Line {l1=0x10, l2=»4454 IF H6 THEN «, l3=0x10}
0x2225…2247 Line {l1=0x20, l2=»4463 E5=E8+(G0-1)*(B0+6);E6=E5+2«, l3=0x20}
0x2247…2267 Line {l1=0x1e, l2=»4466 EXEC UNPACK(H9,D1$,E5,E6)«, l3=0x1e}
0x2267…2287 Line {l1=0x1e, l2=»4469 EXEC COPSEGS(H9,B3,F6,A3)«, l3=0x1e}
0x2287…2294 Line {l1=0x0b, l2=»4472 ENDIF «, l3=0x0b}
0x2294…22ae Line {l1=0x18, l2=»4475 IF A9<>0 THEN EXIT «, l3=0x18}
0x22ae…22c0 Line {l1=0x10, l2=»4478 IF I0 THEN «, l3=0x10}
0x22c0…22e2 Line {l1=0x20, l2=»4487 E5=D8+(F2-1)*(B0+6);E6=E5+2«, l3=0x20}
0x22e2…2302 Line {l1=0x1e, l2=»4490 EXEC UNPACK(H9,D1$,E5,E6)«, l3=0x1e}
0x2302…2322 Line {l1=0x1e, l2=»4493 EXEC COPSEGS(H9,C4,E8,A3)«, l3=0x1e}
0x2322…232f Line {l1=0x0b, l2=»4496 ENDIF «, l3=0x0b}
0x232f…2349 Line {l1=0x18, l2=»4499 IF A9<>0 THEN EXIT «, l3=0x18}
0x2349…2373 Line {l1=0x28, l2=»4508 IF I7 THEN EXEC COPSEGS(3,C3,D8,A3)«, l3=0x28}
0x2373…238d Line {l1=0x18, l2=»4514 IF A9<>0 THEN EXIT «, l3=0x18}
0x238d…23b4 Line {l1=0x25, l2=»4517 PUT D1$(1:20),2:D1$(48+76:B8-76)«, l3=0x25}
0x23b4…23cf Line {l1=0x19, l2=»4520 A9=STATUS(D1$(1:20))«, l3=0x19}
0x23cf…23e9 Line {l1=0x18, l2=»4523 IF A9<>0 THEN EXIT «, l3=0x18}
0x23e9…2408 Line {l1=0x1d, l2=»4526 EXEC PACK(0,D1$,117,119)«, l3=0x1d}
0x2408…2429 Line {l1=0x1f, l2=»4529 PUT D1$(1:20),1:D1$(48:76)«, l3=0x1f}
0x2429…2444 Line {l1=0x19, l2=»4532 A9=STATUS(D1$(1:20))«, l3=0x19}
0x2444…245e Line {l1=0x18, l2=»4535 IF A9<>0 THEN EXIT «, l3=0x18}
0x245e…246b Line {l1=0x0b, l2=»4537 ENDIF «, l3=0x0b}
0x246b…2481 Line {l1=0x14, l2=»4538 CLOSE D1$(1:20)«, l3=0x14}
0x2481…249c Line {l1=0x19, l2=»4541 A9=STATUS(D1$(1:20))«, l3=0x19}
0x249c…24ab Line {l1=0x0d, l2=»4544 ENDPROC «, l3=0x0d}
0x24ab…24c8 Line {l1=0x1b, l2=»4900 PROC NEXTREC(D1,F4,F9)«, l3=0x1b}
0x24c8…24da Line {l1=0x10, l2=»4903 EXEC DEFVAR«, l3=0x10}
0x24da…24e5 Line {l1=0x09, l2=»4906 A9=0«, l3=0x09}
0x24e5…24f7 Line {l1=0x10, l2=»4930 IF D7 THEN «, l3=0x10}
0x24f7…2513 Line {l1=0x1a, l2=»4933 EXEC EXTRACT(F4$,G5$)«, l3=0x1a}
0x2513…251e Line {l1=0x09, l2=»4939 G7=1«, l3=0x09}
0x251e…2532 Line {l1=0x12, l2=»4942 IF G1>0 THEN «, l3=0x12}
0x2532…2551 Line {l1=0x1d, l2=»4945 F9$=D1$(F6+(G1-1)*A6:A6)«, l3=0x1d}
0x2551…256d Line {l1=0x1a, l2=»4948 EXEC EXTRACT(F9$,G6$)«, l3=0x1a}
0x256d…2589 Line {l1=0x1a, l2=»4951 EXEC COMPARE(G5$,G6$)«, l3=0x1a}
0x2589…2596 Line {l1=0x0b, l2=»4954 ENDIF «, l3=0x0b}
0x2596…25b8 Line {l1=0x20, l2=»4957 IF G7<>0 THEN EXEC FINDPOST«, l3=0x20}
0x25b8…25dd Line {l1=0x23, l2=»4960 IF A9<>0 AND A9<>-1 THEN EXIT «, l3=0x23}
0x25dd…2601 Line {l1=0x22, l2=»4966 E5=E8+(G0-1)*(B0+6)+3;E6=E5+2«, l3=0x22}
0x2601…2621 Line {l1=0x1e, l2=»4969 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x2621…263a Line {l1=0x17, l2=»4972 IF E9<=G1+A9 THEN «, l3=0x17}
0x263a…2648 Line {l1=0x0c, l2=»4978 K7=G0+1«, l3=0x0c}
0x2648…2668 Line {l1=0x1e, l2=»4981 E5=E8+G0*(B0+6)+3;E6=E5+2«, l3=0x1e}
0x2668…267e Line {l1=0x14, l2=»4984 FOR B1=K7 TO B5«, l3=0x14}
0x267e…269e Line {l1=0x1e, l2=»4987 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x269e…26b2 Line {l1=0x12, l2=»4990 IF E9>0 THEN «, l3=0x12}
0x26b2…26be Line {l1=0x0a, l2=»4993 K7=B1«, l3=0x0a}
0x26be…26ca Line {l1=0x0a, l2=»4996 B1=B5«, l3=0x0a}
0x26ca…26d7 Line {l1=0x0b, l2=»4999 ENDIF «, l3=0x0b}
0x26d7…26f0 Line {l1=0x17, l2=»5002 E5=E5+6+B0;E6=E5+2«, l3=0x17}
0x26f0…26fe Line {l1=0x0c, l2=»5005 NEXT B1«, l3=0x0c}
0x26fe…2712 Line {l1=0x12, l2=»5008 IF E9=0 THEN «, l3=0x12}
0x2712…2720 Line {l1=0x0c, l2=»5017 K6=F2+1«, l3=0x0c}
0x2720…2740 Line {l1=0x1e, l2=»5020 E5=D8+F2*(B0+6)+3;E6=E5+2«, l3=0x1e}
0x2740…2756 Line {l1=0x14, l2=»5023 FOR B1=K6 TO B6«, l3=0x14}
0x2756…2776 Line {l1=0x1e, l2=»5026 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x2776…278a Line {l1=0x12, l2=»5029 IF E9>0 THEN «, l3=0x12}
0x278a…2796 Line {l1=0x0a, l2=»5032 L7=B1«, l3=0x0a}
0x2796…27a2 Line {l1=0x0a, l2=»5035 B1=B6«, l3=0x0a}
0x27a2…27af Line {l1=0x0b, l2=»5038 ENDIF «, l3=0x0b}
0x27af…27c8 Line {l1=0x17, l2=»5041 E5=E5+B0+6;E6=E5+2«, l3=0x17}
0x27c8…27d6 Line {l1=0x0c, l2=»5044 NEXT B1«, l3=0x0c}
0x27d6…27ea Line {l1=0x12, l2=»5047 IF E9=0 THEN «, l3=0x12}
0x27ea…27ff Line {l1=0x13, l2=»5053 IF E3<=1 THEN «, l3=0x13}
0x27ff…280b Line {l1=0x0a, l2=»5056 A9=-9«, l3=0x0a}
0x280b…2817 Line {l1=0x0a, l2=»5059 ELSE «, l3=0x0a}
0x2817…2823 Line {l1=0x0a, l2=»5062 A9=-2«, l3=0x0a}
0x2823…2830 Line {l1=0x0b, l2=»5065 ENDIF «, l3=0x0b}
0x2830…283b Line {l1=0x09, l2=»5068 K6=1«, l3=0x09}
0x283b…2851 Line {l1=0x14, l2=»5071 E5=D8+3;E6=E5+2«, l3=0x14}
0x2851…2867 Line {l1=0x14, l2=»5074 FOR B1=K6 TO F2«, l3=0x14}
0x2867…2887 Line {l1=0x1e, l2=»5077 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x2887…289b Line {l1=0x12, l2=»5080 IF E9>0 THEN «, l3=0x12}
0x289b…28a7 Line {l1=0x0a, l2=»5083 L7=B1«, l3=0x0a}
0x28a7…28b3 Line {l1=0x0a, l2=»5086 B1=F2«, l3=0x0a}
0x28b3…28c0 Line {l1=0x0b, l2=»5089 ENDIF «, l3=0x0b}
0x28c0…28d9 Line {l1=0x17, l2=»5092 E5=E5+B0+6;E6=E5+2«, l3=0x17}
0x28d9…28e7 Line {l1=0x0c, l2=»5095 NEXT B1«, l3=0x0c}
0x28e7…28fb Line {l1=0x12, l2=»5098 IF E9=0 THEN «, l3=0x12}
0x28fb…291c Line {l1=0x1f, l2=»5101 PRINT "ALVORLIG TABELFEJL"«, l3=0x1f}
0x291c…2928 Line {l1=0x0a, l2=»5104 STOP «, l3=0x0a}
0x2928…2935 Line {l1=0x0b, l2=»5107 ENDIF «, l3=0x0b}
0x2935…2942 Line {l1=0x0b, l2=»5110 ENDIF «, l3=0x0b}
0x2942…294e Line {l1=0x0a, l2=»5113 B1=A9«, l3=0x0a}
0x294e…2959 Line {l1=0x09, l2=»5114 A9=0«, l3=0x09}
0x2959…2972 Line {l1=0x17, l2=»5116 EXEC READTABLE(K6)«, l3=0x17}
0x2972…298c Line {l1=0x18, l2=»5119 IF A9<>0 THEN EXIT «, l3=0x18}
0x298c…2998 Line {l1=0x0a, l2=»5122 A9=B1«, l3=0x0a}
0x2998…29a3 Line {l1=0x09, l2=»5125 K7=1«, l3=0x09}
0x29a3…29b9 Line {l1=0x14, l2=»5128 E5=E8+3;E6=E5+2«, l3=0x14}
0x29b9…29cf Line {l1=0x14, l2=»5131 FOR B1=K7 TO B5«, l3=0x14}
0x29cf…29ef Line {l1=0x1e, l2=»5134 EXEC UNPACK(E9,D1$,E5,E6)«, l3=0x1e}
0x29ef…2a03 Line {l1=0x12, l2=»5137 IF E9>0 THEN «, l3=0x12}
0x2a03…2a0f Line {l1=0x0a, l2=»5140 K7=B1«, l3=0x0a}
0x2a0f…2a1b Line {l1=0x0a, l2=»5143 B1=B5«, l3=0x0a}
0x2a1b…2a28 Line {l1=0x0b, l2=»5146 ENDIF «, l3=0x0b}
0x2a28…2a41 Line {l1=0x17, l2=»5149 E5=E5+B0+6;E6=E5+2«, l3=0x17}
0x2a41…2a4f Line {l1=0x0c, l2=»5152 NEXT B1«, l3=0x0c}
0x2a4f…2a63 Line {l1=0x12, l2=»5155 IF E9=0 THEN «, l3=0x12}
0x2a63…2a84 Line {l1=0x1f, l2=»5158 PRINT "ALVORLIG TABELFEJL"«, l3=0x1f}
0x2a84…2a90 Line {l1=0x0a, l2=»5161 STOP «, l3=0x0a}
0x2a90…2a9d Line {l1=0x0b, l2=»5164 ENDIF «, l3=0x0b}
0x2a9d…2aaa Line {l1=0x0b, l2=»5167 ENDIF «, l3=0x0b}
0x2aaa…2ac3 Line {l1=0x17, l2=»5170 IF A9>0 THEN EXIT «, l3=0x17}
0x2ac3…2acf Line {l1=0x0a, l2=»5173 B1=A9«, l3=0x0a}
0x2acf…2ada Line {l1=0x09, l2=»5176 A9=0«, l3=0x09}
0x2ada…2af5 Line {l1=0x19, l2=»5179 EXEC READBLOCK(K7,1)«, l3=0x19}
0x2af5…2b0f Line {l1=0x18, l2=»5182 IF A9<>0 THEN EXIT «, l3=0x18}
0x2b0f…2b1b Line {l1=0x0a, l2=»5185 A9=B1«, l3=0x0a}
0x2b1b…2b26 Line {l1=0x09, l2=»5188 G1=1«, l3=0x09}
0x2b26…2b32 Line {l1=0x0a, l2=»5191 ELSE «, l3=0x0a}
0x2b32…2b43 Line {l1=0x0f, l2=»5194 G1=G1+1+A9«, l3=0x0f}
0x2b43…2b50 Line {l1=0x0b, l2=»5197 ENDIF «, l3=0x0b}
0x2b50…2b69 Line {l1=0x17, l2=»5200 IF A9>0 THEN EXIT «, l3=0x17}
0x2b69…2b88 Line {l1=0x1d, l2=»5203 F4$=D1$(F6+(G1-1)*A6:A6)«, l3=0x1d}
0x2b88…2ba6 Line {l1=0x1c, l2=»5204 EXEC PACK(G1,D1$,27,29)«, l3=0x1c}
0x2ba6…2bb2 Line {l1=0x0a, l2=»5206 ELSE «, l3=0x0a}
0x2bb2…2bbf Line {l1=0x0b, l2=»5209 A9=-12«, l3=0x0b}
0x2bbf…2bcc Line {l1=0x0b, l2=»5212 ENDIF «, l3=0x0b}
0x2bcc…2bdb Line {l1=0x0d, l2=»5215 ENDPROC «, l3=0x0d}
0x2bdb…2bed Line {l1=0x10, l2=»5300 PROC DEFVAR«, l3=0x10}
0x2bed…2c0d Line {l1=0x1e, l2=»5303 EXEC UNPACK(F2,D1$,21,23)«, l3=0x1e}
0x2c0d…2c2d Line {l1=0x1e, l2=»5306 EXEC UNPACK(G0,D1$,24,26)«, l3=0x1e}
0x2c2d…2c4d Line {l1=0x1e, l2=»5309 EXEC UNPACK(G1,D1$,27,29)«, l3=0x1e}
0x2c4d…2c6d Line {l1=0x1e, l2=»5312 EXEC UNPACK(L6,D1$,30,32)«, l3=0x1e}
0x2c6d…2c8d Line {l1=0x1e, l2=»5315 EXEC UNPACK(F7,D1$,33,35)«, l3=0x1e}
0x2c8d…2cad Line {l1=0x1e, l2=»5318 EXEC UNPACK(F8,D1$,36,38)«, l3=0x1e}
0x2cad…2ccd Line {l1=0x1e, l2=»5321 EXEC UNPACK(I7,D1$,39,41)«, l3=0x1e}
0x2ccd…2ced Line {l1=0x1e, l2=»5324 EXEC UNPACK(I0,D1$,42,44)«, l3=0x1e}
0x2ced…2d0d Line {l1=0x1e, l2=»5327 EXEC UNPACK(H6,D1$,45,47)«, l3=0x1e}
0x2d0d…2d2d Line {l1=0x1e, l2=»5330 EXEC UNPACK(B6,D1$,48,50)«, l3=0x1e}
0x2d2d…2d4d Line {l1=0x1e, l2=»5333 EXEC UNPACK(B4,D1$,51,53)«, l3=0x1e}
0x2d4d…2d6d Line {l1=0x1e, l2=»5336 EXEC UNPACK(A5,D1$,54,56)«, l3=0x1e}
0x2d6d…2d8d Line {l1=0x1e, l2=»5339 EXEC UNPACK(B5,D1$,57,59)«, l3=0x1e}
0x2d8d…2dad Line {l1=0x1e, l2=»5342 EXEC UNPACK(B7,D1$,60,62)«, l3=0x1e}
0x2dad…2dcd Line {l1=0x1e, l2=»5345 EXEC UNPACK(B2,D1$,63,65)«, l3=0x1e}
0x2dcd…2ded Line {l1=0x1e, l2=»5348 EXEC UNPACK(A7,D1$,66,68)«, l3=0x1e}
0x2ded…2e0d Line {l1=0x1e, l2=»5351 EXEC UNPACK(B8,D1$,69,71)«, l3=0x1e}
0x2e0d…2e2d Line {l1=0x1e, l2=»5354 EXEC UNPACK(B9,D1$,72,74)«, l3=0x1e}
0x2e2d…2e4d Line {l1=0x1e, l2=»5357 EXEC UNPACK(C0,D1$,75,77)«, l3=0x1e}
0x2e4d…2e6d Line {l1=0x1e, l2=»5360 EXEC UNPACK(C1,D1$,78,80)«, l3=0x1e}
0x2e6d…2e8d Line {l1=0x1e, l2=»5363 EXEC UNPACK(A6,D1$,81,83)«, l3=0x1e}
0x2e8d…2ead Line {l1=0x1e, l2=»5366 EXEC UNPACK(B0,D1$,84,86)«, l3=0x1e}
0x2ead…2ecd Line {l1=0x1e, l2=»5369 EXEC UNPACK(C2,D1$,87,89)«, l3=0x1e}
0x2ecd…2eed Line {l1=0x1e, l2=»5372 EXEC UNPACK(C3,D1$,90,92)«, l3=0x1e}
0x2eed…2f0d Line {l1=0x1e, l2=»5375 EXEC UNPACK(C5,D1$,93,95)«, l3=0x1e}
0x2f0d…2f2d Line {l1=0x1e, l2=»5378 EXEC UNPACK(C4,D1$,96,98)«, l3=0x1e}
0x2f2d…2f4e Line {l1=0x1f, l2=»5381 EXEC UNPACK(B3,D1$,99,101)«, l3=0x1f}
0x2f4e…2f70 Line {l1=0x20, l2=»5384 EXEC UNPACK(E0,D1$,102,104)«, l3=0x20}
0x2f70…2f92 Line {l1=0x20, l2=»5387 EXEC UNPACK(E1,D1$,105,107)«, l3=0x20}
0x2f92…2fb4 Line {l1=0x20, l2=»5390 EXEC UNPACK(E2,D1$,108,110)«, l3=0x20}
0x2fb4…2fd6 Line {l1=0x20, l2=»5393 EXEC UNPACK(E3,D1$,111,113)«, l3=0x20}
0x2fd6…2ff8 Line {l1=0x20, l2=»5396 EXEC UNPACK(D7,D1$,114,116)«, l3=0x20}
0x2ff8…301a Line {l1=0x20, l2=»5399 EXEC UNPACK(D9,D1$,117,119)«, l3=0x20}
0x301a…3029 Line {l1=0x0d, l2=»5402 D8=48+B8«, l3=0x0d}
0x3029…3038 Line {l1=0x0d, l2=»5405 E8=D8+B9«, l3=0x0d}
0x3038…3047 Line {l1=0x0d, l2=»5408 F6=E8+C0«, l3=0x0d}
0x3047…3056 Line {l1=0x0d, l2=»5411 ENDPROC «, l3=0x0d}
0x3056…3070 Line {l1=0x18, l2=»7000 PROC TESTOMS(N0,N1)«, l3=0x18}
0x3070…3082 Line {l1=0x10, l2=»7005 N2=LEN(N0$)«, l3=0x10}
0x3082…308d Line {l1=0x09, l2=»7010 N3=4«, l3=0x09}
0x308d…30a2 Line {l1=0x13, l2=»7015 FOR N4=1 TO 70«, l3=0x13}
0x30a2…30c7 Line {l1=0x23, l2=»7020 IF ORD(N0$(N4))=255 THEN EXIT «, l3=0x23}
0x30c7…30e3 Line {l1=0x1a, l2=»7025 IF N0$(N4)<>" " THEN «, l3=0x1a}
0x30e3…30ff Line {l1=0x1a, l2=»7030 IF N0$(N4)<>"-" THEN «, l3=0x1a}
0x30ff…310b Line {l1=0x0a, l2=»7035 N5=N4«, l3=0x0a}
0x310b…311d Line {l1=0x10, l2=»7040 N1$(13)="+"«, l3=0x10}
0x311d…3129 Line {l1=0x0a, l2=»7045 ELSE «, l3=0x0a}
0x3129…3137 Line {l1=0x0c, l2=»7050 N5=N4+1«, l3=0x0c}
0x3137…3149 Line {l1=0x10, l2=»7055 N1$(13)="-"«, l3=0x10}
0x3149…3156 Line {l1=0x0b, l2=»7060 ENDIF «, l3=0x0b}
0x3156…3164 Line {l1=0x0c, l2=»7065 N6=1+N2«, l3=0x0c}
0x3164…3170 Line {l1=0x0a, l2=»7070 N4=70«, l3=0x0a}
0x3170…317b Line {l1=0x09, l2=»7075 N3=0«, l3=0x09}
0x317b…3188 Line {l1=0x0b, l2=»7080 ENDIF «, l3=0x0b}
0x3188…3196 Line {l1=0x0c, l2=»7085 NEXT N4«, l3=0x0c}
0x3196…31ad Line {l1=0x15, l2=»7090 IF N3 THEN EXIT «, l3=0x15}
0x31ad…31c8 Line {l1=0x19, l2=»7095 FOR N4=N5 TO N5+N2-1«, l3=0x19}
0x31c8…31e3 Line {l1=0x19, l2=»7100 IF N0$(N4)="." THEN «, l3=0x19}
0x31e3…31ef Line {l1=0x0a, l2=»7105 N6=N4«, l3=0x0a}
0x31ef…3200 Line {l1=0x0f, l2=»7110 N4=N5+N2-1«, l3=0x0f}
0x3200…320d Line {l1=0x0b, l2=»7115 ENDIF «, l3=0x0b}
0x320d…321b Line {l1=0x0c, l2=»7120 NEXT N4«, l3=0x0c}
0x321b…3236 Line {l1=0x19, l2=»7125 IF N6-N5>9 THEN N3=3«, l3=0x19}
0x3236…324d Line {l1=0x15, l2=»7130 IF N3 THEN EXIT «, l3=0x15}
0x324d…3267 Line {l1=0x18, l2=»7135 FOR N4=1 TO 9-N6+N5«, l3=0x18}
0x3267…3279 Line {l1=0x10, l2=»7140 N1$(N4)=" "«, l3=0x10}
0x3279…3287 Line {l1=0x0c, l2=»7145 NEXT N4«, l3=0x0c}
0x3287…329c Line {l1=0x13, l2=»7150 IF N6>N5 THEN «, l3=0x13}
0x329c…32b7 Line {l1=0x19, l2=»7155 FOR N4=10-N6+N5 TO 9«, l3=0x19}
0x32b7…32ed Line {l1=0x34, l2=»7160 IF N0$(N4+N6-10)<"0" OR N0$(N4+N6-10)>"9" THEN «, l3=0x34}
0x32ed…32f8 Line {l1=0x09, l2=»7165 N3=2«, l3=0x09}
0x32f8…3304 Line {l1=0x0a, l2=»7170 ELSE «, l3=0x0a}
0x3304…3320 Line {l1=0x1a, l2=»7175 N1$(N4)=N0$(N4+N6-10)«, l3=0x1a}
0x3320…332d Line {l1=0x0b, l2=»7180 ENDIF «, l3=0x0b}
0x332d…333b Line {l1=0x0c, l2=»7185 NEXT N4«, l3=0x0c}
0x333b…3348 Line {l1=0x0b, l2=»7190 ENDIF «, l3=0x0b}
0x3348…335f Line {l1=0x15, l2=»7195 IF N3 THEN EXIT «, l3=0x15}
0x335f…3371 Line {l1=0x10, l2=»7200 N1$(10)="."«, l3=0x10}
0x3371…3387 Line {l1=0x14, l2=»7205 FOR N4=11 TO 12«, l3=0x14}
0x3387…3398 Line {l1=0x0f, l2=»7210 CASE 1 OF «, l3=0x0f}
0x3398…33a3 Line {l1=0x09, l2=»7215 N3=2«, l3=0x09}
0x33a3…33da Line {l1=0x35, l2=»7220 WHEN N0$(N6+N4-10)=" " OR ORD(N0$(N6+N4-10))=255«, l3=0x35}
0x33da…33ec Line {l1=0x10, l2=»7225 N1$(N4)="0"«, l3=0x10}
0x33ec…3421 Line {l1=0x33, l2=»7230 WHEN N0$(N6+N4-10)<="9" AND N0$(N6+N4-10)=>"0"«, l3=0x33}
0x3421…343d Line {l1=0x1a, l2=»7235 N1$(N4)=N0$(N6+N4-10)«, l3=0x1a}
0x343d…344c Line {l1=0x0d, l2=»7240 ENDCASE «, l3=0x0d}
0x344c…345a Line {l1=0x0c, l2=»7245 NEXT N4«, l3=0x0c}
0x345a…348b Line {l1=0x2f, l2=»7250 IF N0$(N6+3)=>"5" AND N0$(N6+3)<="9" THEN «, l3=0x2f}
0x348b…34a6 Line {l1=0x19, l2=»7255 IF N1$(12)<"9" THEN «, l3=0x19}
0x34a6…34c8 Line {l1=0x20, l2=»7260 N1$(12)=CHR(ORD(N1$(12))+1)«, l3=0x20}
0x34c8…34d4 Line {l1=0x0a, l2=»7265 ELSE «, l3=0x0a}
0x34d4…34e6 Line {l1=0x10, l2=»7270 N1$(12)="0"«, l3=0x10}
0x34e6…3501 Line {l1=0x19, l2=»7275 IF N1$(11)<"9" THEN «, l3=0x19}
0x3501…3523 Line {l1=0x20, l2=»7280 N1$(11)=CHR(ORD(N1$(11))+1)«, l3=0x20}
0x3523…352f Line {l1=0x0a, l2=»7285 ELSE «, l3=0x0a}
0x352f…3541 Line {l1=0x10, l2=»7290 N1$(11)="0"«, l3=0x10}
0x3541…355d Line {l1=0x1a, l2=»7295 FOR N4=9 TO 1 STEP -1«, l3=0x1a}
0x355d…3574 Line {l1=0x15, l2=»7300 CASE N1$(N4) OF «, l3=0x15}
0x3574…3596 Line {l1=0x20, l2=»7305 N1$(N4)=CHR(ORD(N1$(N4))+1)«, l3=0x20}
0x3596…35a1 Line {l1=0x09, l2=»7310 N4=1«, l3=0x09}
0x35a1…35b0 Line {l1=0x0d, l2=»7315 WHEN "9"«, l3=0x0d}
0x35b0…35c8 Line {l1=0x16, l2=»7320 IF N4=1 THEN N3=1«, l3=0x16}
0x35c8…35da Line {l1=0x10, l2=»7325 N1$(N4)="0"«, l3=0x10}
0x35da…35e9 Line {l1=0x0d, l2=»7330 WHEN " "«, l3=0x0d}
0x35e9…35fb Line {l1=0x10, l2=»7335 N1$(N4)="1"«, l3=0x10}
0x35fb…3606 Line {l1=0x09, l2=»7340 N4=1«, l3=0x09}
0x3606…3615 Line {l1=0x0d, l2=»7345 ENDCASE «, l3=0x0d}
0x3615…3623 Line {l1=0x0c, l2=»7350 NEXT N4«, l3=0x0c}
0x3623…3630 Line {l1=0x0b, l2=»7355 ENDIF «, l3=0x0b}
0x3630…363d Line {l1=0x0b, l2=»7360 ENDIF «, l3=0x0b}
0x363d…364a Line {l1=0x0b, l2=»7365 ENDIF «, l3=0x0b}
0x364a…3659 Line {l1=0x0d, l2=»7370 ENDPROC «, l3=0x0d}
0x3659…3675 Line {l1=0x1a, l2=»7375 PROC TEKTAL(N7,N8,N9)«, l3=0x1a}
0x3675…3680 Line {l1=0x09, l2=»7380 O0=4«, l3=0x09}
0x3680…3694 Line {l1=0x12, l2=»7385 FOR N4=1 TO 9«, l3=0x12}
0x3694…36b0 Line {l1=0x1a, l2=»7390 IF N7$(N4)<>" " THEN «, l3=0x1a}
0x36b0…36bf Line {l1=0x0d, l2=»7395 O0=14-N4«, l3=0x0d}
0x36bf…36ca Line {l1=0x09, l2=»7400 N4=9«, l3=0x09}
0x36ca…36d7 Line {l1=0x0b, l2=»7405 ENDIF «, l3=0x0b}
0x36d7…36e5 Line {l1=0x0c, l2=»7410 NEXT N4«, l3=0x0c}
0x36e5…36f7 Line {l1=0x10, l2=»7415 N5=O0 DIV 3«, l3=0x10}
0x36f7…3702 Line {l1=0x09, l2=»7420 N8=0«, l3=0x09}
0x3702…3748 Line {l1=0x44, l2=»7425 N9=ORD(N7$(12))+ORD(N7$(11))*10+(ORD(N7$(9))-48)*100*(O0>4)-528«, l3=0x44}
0x3748…378f Line {l1=0x45, l2=»7430 N9=N9+(ORD(N7$(8))-48)*1000*(O0>5)+(ORD(N7$(7))-48)*10000*(O0>6)«, l3=0x45}
0x378f…37ba Line {l1=0x29, l2=»7435 N9=N9+(ORD(N7$(6))-48)*100000*(O0>7)«, l3=0x29}
0x37ba…37ce Line {l1=0x12, l2=»7440 IF O0>8 THEN «, l3=0x12}
0x37ce…3801 Line {l1=0x31, l2=»7445 N8=ORD(N7$(5))-48+(ORD(N7$(4))-48)*10*(O0>9)«, l3=0x31}
0x3801…3848 Line {l1=0x45, l2=»7450 N8=N8+(ORD(N7$(3))-48)*100*(O0>10)+(ORD(N7$(2))-48)*1000*(O0>11)«, l3=0x45}
0x3848…3873 Line {l1=0x29, l2=»7455 N8=N8+(ORD(N7$(1))-48)*10000*(O0>12)«, l3=0x29}
0x3873…3880 Line {l1=0x0b, l2=»7460 ENDIF «, l3=0x0b}
0x3880…388f Line {l1=0x0d, l2=»7465 ENDPROC «, l3=0x0d}
0x388f…38a3 Line {l1=0x12, l2=»7470 PROC NULU(N7)«, l3=0x12}
0x38a3…38b7 Line {l1=0x12, l2=»7475 FOR N4=1 TO 9«, l3=0x12}
0x38b7…38e9 Line {l1=0x30, l2=»7480 IF N7$(N4)<>" " AND N7$(N4)<>"0" THEN EXIT «, l3=0x30}
0x38e9…38fb Line {l1=0x10, l2=»7485 N7$(N4)=" "«, l3=0x10}
0x38fb…3909 Line {l1=0x0c, l2=»7490 NEXT N4«, l3=0x0c}
0x3909…3918 Line {l1=0x0d, l2=»7495 ENDPROC «, l3=0x0d}
0x3918…3934 Line {l1=0x1a, l2=»7500 PROC TALTEK(N8,N9,N7)«, l3=0x1a}
0x3934…3948 Line {l1=0x12, l2=»7505 FOR N4=1 TO 5«, l3=0x12}
0x3948…3979 Line {l1=0x2f, l2=»7510 N7$(N4)=CHR((N8 DIV 10**(5-N4)) MOD 10+48)«, l3=0x2f}
0x3979…3987 Line {l1=0x0c, l2=»7515 NEXT N4«, l3=0x0c}
0x3987…3992 Line {l1=0x09, l2=»7520 O1=1«, l3=0x09}
0x3992…39a7 Line {l1=0x13, l2=»7525 FOR N4=6 TO 12«, l3=0x13}
0x39a7…39bc Line {l1=0x13, l2=»7530 IF N4=10 THEN «, l3=0x13}
0x39bc…39d9 Line {l1=0x1b, l2=»7535 N4=11;O1=0;N7$(10)="."«, l3=0x1b}
0x39d9…39e6 Line {l1=0x0b, l2=»7540 ENDIF «, l3=0x0b}
0x39e6…3a1b Line {l1=0x33, l2=»7545 N7$(N4)=CHR((N9 DIV 10**(12-N4-O1)) MOD 10+48)«, l3=0x33}
0x3a1b…3a29 Line {l1=0x0c, l2=»7550 NEXT N4«, l3=0x0c}
0x3a29…3a3e Line {l1=0x13, l2=»7555 EXEC NULU(N7$)«, l3=0x13}
0x3a3e…3a4d Line {l1=0x0d, l2=»7560 ENDPROC «, l3=0x0d}
0x3a4d…3a6d Line {l1=0x1e, l2=»7565 PROC LANGPAK(O2,O3,O4,O5)«, l3=0x1e}
0x3a6d…3a8c Line {l1=0x1d, l2=»7570 IF O2$(13)="-" THEN N3=1«, l3=0x1d}
0x3a8c…3aa9 Line {l1=0x1b, l2=»7575 EXEC TEKTAL(O2$,O6,O7)«, l3=0x1b}
0x3aa9…3ab7 Line {l1=0x0c, l2=»7580 O8=O5-2«, l3=0x0c}
0x3ab7…3ad5 Line {l1=0x1c, l2=»7585 EXEC PACK(O7,O3$,O8,O5)«, l3=0x1c}
0x3ad5…3ae3 Line {l1=0x0c, l2=»7590 O8=O8-1«, l3=0x0c}
0x3ae3…3b01 Line {l1=0x1c, l2=»7595 EXEC PACK(O6,O3$,O4,O8)«, l3=0x1c}
0x3b01…3b10 Line {l1=0x0d, l2=»7600 ENDPROC «, l3=0x0d}
0x3b10…3b32 Line {l1=0x20, l2=»7605 PROC LANGUDPAK(O3,O2,O4,O5)«, l3=0x20}
0x3b32…3b40 Line {l1=0x0c, l2=»7610 O8=O5-2«, l3=0x0c}
0x3b40…3b60 Line {l1=0x1e, l2=»7615 EXEC UNPACK(O7,O2$,O8,O5)«, l3=0x1e}
0x3b60…3b6e Line {l1=0x0c, l2=»7620 O8=O8-1«, l3=0x0c}
0x3b6e…3b8e Line {l1=0x1e, l2=»7625 EXEC UNPACK(O6,O2$,O4,O8)«, l3=0x1e}
0x3b8e…3bab Line {l1=0x1b, l2=»7630 EXEC TALTEK(O6,O7,O3$)«, l3=0x1b}
0x3bab…3bba Line {l1=0x0d, l2=»7635 ENDPROC «, l3=0x0d}
0x3bba…3bd6 Line {l1=0x1a, l2=»7640 DIM O9$(20),FILE$(20)«, l3=0x1a}
0x3bd6…3bf2 Line {l1=0x1a, l2=»7645 O9$="VENDOR:VAREREG "«, l3=0x1a}
0x3bf2…3c07 Line {l1=0x13, l2=»7650 EXEC DIMS(O9$)«, l3=0x13}
0x3c07…3c2a Line {l1=0x21, l2=»7655 IF A9<>0 THEN EXEC FEJL(O9$)«, l3=0x21}
0x3c2a…3c4c Line {l1=0x20, l2=»7660 DIM P0$(C7),G5$(B0),G6$(B0)«, l3=0x20}
0x3c4c…3c68 Line {l1=0x1a, l2=»7665 EXEC IOPEN(P0$,O9$,0)«, l3=0x1a}
0x3c68…3c8c Line {l1=0x22, l2=»7670 IF A9<>0 THEN EXEC ERROR(P0$)«, l3=0x22}
0x3c8c…3cd0 Line {l1=0x42, l2=»7675 DIM P4$(152),P5$(152),P6$(30),P7$(10),P8$(51),P9$(20),Q5$(13)«, l3=0x42}
0x3cd0…3ce5 Line {l1=0x13, l2=»8980 PROC PRVAREOPL«, l3=0x13}
0x3ce5…3cf6 Line {l1=0x0f, l2=»8985 CURSOR 1,1«, l3=0x0f}
0x3cf6…3d14 Line {l1=0x1c, l2=»8990 EXEC UNPACK(Q1,P4$,1,3)«, l3=0x1c}
0x3d14…3d42 Line {l1=0x2c, l2=»8995 PRINT "1 VARENR ",Q1«, l3=0x2c}
0x3d42…3d53 Line {l1=0x0f, l2=»9000 CURSOR 1,2«, l3=0x0f}
0x3d53…3d67 Line {l1=0x12, l2=»9005 P6$=P4$(4,33)«, l3=0x12}
0x3d67…3d99 Line {l1=0x30, l2=»9010 PRINT "2 VARENAVN ",P6$«, l3=0x30}
0x3d99…3daa Line {l1=0x0f, l2=»9015 CURSOR 1,3«, l3=0x0f}
0x3daa…3dbf Line {l1=0x13, l2=»9020 P6$=P4$(34,63)«, l3=0x13}
0x3dbf…3dee Line {l1=0x2d, l2=»9025 PRINT "3 BETEGNELSE HOS LEVERANDØR ",P6$«, l3=0x2d}
0x3dee…3dff Line {l1=0x0f, l2=»9030 CURSOR 1,4«, l3=0x0f}
0x3dff…3e23 Line {l1=0x22, l2=»9035 EXEC LANGUDPAK(Q5$,P4$,64,67)«, l3=0x22}
0x3e23…3e52 Line {l1=0x2d, l2=»9040 PRINT "4 PRIS ",Q5$«, l3=0x2d}
0x3e52…3e76 Line {l1=0x22, l2=»9050 EXEC LANGUDPAK(Q5$,P4$,68,71)«, l3=0x22}
0x3e76…3e87 Line {l1=0x0f, l2=»9055 CURSOR 1,5«, l3=0x0f}
0x3e87…3eb6 Line {l1=0x2d, l2=»9060 PRINT "5 KOSTPRIS ",Q5$«, l3=0x2d}
0x3eb6…3ec7 Line {l1=0x0f, l2=»9070 CURSOR 1,6«, l3=0x0f}
0x3ec7…3ee7 Line {l1=0x1e, l2=»9075 EXEC UNPACK(Q1,P4$,72,73)«, l3=0x1e}
0x3ee7…3f15 Line {l1=0x2c, l2=»9080 PRINT "6 LEVERANDØRNR ",Q1«, l3=0x2c}
0x3f15…3f26 Line {l1=0x0f, l2=»9085 CURSOR 1,7«, l3=0x0f}
0x3f26…3f48 Line {l1=0x20, l2=»9090 EXEC UNPACK(Q1,P4$,128,129)«, l3=0x20}
0x3f48…3f76 Line {l1=0x2c, l2=»9095 PRINT "7 OPRINDELSESLAND ",Q1«, l3=0x2c}
0x3f76…3f87 Line {l1=0x0f, l2=»9100 CURSOR 1,8«, l3=0x0f}
0x3f87…3fab Line {l1=0x22, l2=»9105 EXEC LANGUDPAK(Q5$,P4$,75,78)«, l3=0x22}
0x3fab…3ff2 Line {l1=0x45, l2=»9110 PRINT "8 TOLDPOSITIONSNR ";Q5$(1:9);Q5$(11,12)«, l3=0x45}
0x3ff2…4003 Line {l1=0x0f, l2=»9115 CURSOR 1,9«, l3=0x0f}
0x4003…4023 Line {l1=0x1e, l2=»9120 EXEC UNPACK(Q1,P4$,79,80)«, l3=0x1e}
0x4023…4051 Line {l1=0x2c, l2=»9125 PRINT "9 PAKNINGSENHED ",Q1«, l3=0x2c}
0x4051…4063 Line {l1=0x10, l2=»9130 CURSOR 1,10«, l3=0x10}
0x4063…4083 Line {l1=0x1e, l2=»9135 EXEC UNPACK(Q1,P4$,81,83)«, l3=0x1e}
0x4083…40b1 Line {l1=0x2c, l2=»9140 PRINT "10 FYSISK LAGER ",Q1«, l3=0x2c}
0x40b1…40d1 Line {l1=0x1e, l2=»9145 EXEC UNPACK(Q3,P4$,84,86)«, l3=0x1e}
0x40d1…40e4 Line {l1=0x11, l2=»9150 CURSOR 40,10«, l3=0x11}
0x40e4…4112 Line {l1=0x2c, l2=»9155 PRINT " PRIMOLAGER ",Q3«, l3=0x2c}
0x4112…4125 Line {l1=0x11, l2=»9160 Q6=(Q3+Q1)/2«, l3=0x11}
0x4125…4137 Line {l1=0x10, l2=»9165 CURSOR 1,11«, l3=0x10}
0x4137…4157 Line {l1=0x1e, l2=»9170 EXEC UNPACK(Q1,P4$,87,89)«, l3=0x1e}
0x4157…4185 Line {l1=0x2c, l2=»9175 PRINT "11 MINIMUMSLAGER ",Q1«, l3=0x2c}
0x4185…4197 Line {l1=0x10, l2=»9180 CURSOR 1,12«, l3=0x10}
0x4197…41b7 Line {l1=0x1e, l2=»9185 EXEC UNPACK(Q1,P4$,90,92)«, l3=0x1e}
0x41b7…41e7 Line {l1=0x2e, l2=»9190 PRINT "12 RESERVERET AF FYSISK LAGER ",Q1«, l3=0x2e}
0x41e7…41f9 Line {l1=0x10, l2=»9195 CURSOR 1,13«, l3=0x10}
0x41f9…4219 Line {l1=0x1e, l2=»9200 EXEC UNPACK(Q1,P4$,93,95)«, l3=0x1e}
0x4219…4247 Line {l1=0x2c, l2=»9205 PRINT "13 I ORDRE ",Q1«, l3=0x2c}
0x4247…425a Line {l1=0x11, l2=»9210 CURSOR 30,13«, l3=0x11}
0x425a…427a Line {l1=0x1e, l2=»9215 EXEC UNPACK(Q1,P4$,96,98)«, l3=0x1e}
0x427a…42a2 Line {l1=0x26, l2=»9220 PRINT "14 HERAF RESERVERET ",Q1«, l3=0x26}
0x42a2…42b5 Line {l1=0x11, l2=»9225 CURSOR 58,13«, l3=0x11}
0x42b5…42d5 Line {l1=0x1e, l2=»9230 EXEC UNPACK(Q1,P4$,99,99)«, l3=0x1e}
0x42d5…4303 Line {l1=0x2c, l2=»9235 PRINT "15 FORV. LEV. UGE ",Q1«, l3=0x2c}
0x4303…4315 Line {l1=0x10, l2=»9240 CURSOR 1,14«, l3=0x10}
0x4315…4337 Line {l1=0x20, l2=»9245 EXEC UNPACK(Q1,P4$,100,102)«, l3=0x20}
0x4337…436b Line {l1=0x32, l2=»9250 PRINT "16 STØRRELSE AF SIDSTE BESTILLING ",Q1«, l3=0x32}
0x436b…437e Line {l1=0x11, l2=»9255 CURSOR 40,14«, l3=0x11}
0x437e…43a0 Line {l1=0x20, l2=»9260 EXEC UNPACK(Q1,P4$,103,105)«, l3=0x20}
0x43a0…43ca Line {l1=0x28, l2=»9265 PRINT "17 DATO FOR SIDSTE BEST ",Q1«, l3=0x28}
0x43ca…43dc Line {l1=0x10, l2=»9270 CURSOR 1,15«, l3=0x10}
0x43dc…43fe Line {l1=0x20, l2=»9275 EXEC UNPACK(Q1,P4$,106,108)«, l3=0x20}
0x43fe…4429 Line {l1=0x29, l2=»9280 PRINT "18 DATO FOR SIDSTE ORDRE ",Q1«, l3=0x29}
0x4429…443b Line {l1=0x10, l2=»9290 CURSOR 1,16«, l3=0x10}
0x443b…445d Line {l1=0x20, l2=»9295 EXEC UNPACK(Q1,P4$,109,111)«, l3=0x20}
0x445d…4484 Line {l1=0x25, l2=»9300 PRINT "19 ANTAL SOLGT I ÅR ",Q1«, l3=0x25}
0x4484…44a1 Line {l1=0x1b, l2=»9305 IF Q6<>0 THEN Q6=Q1/Q6«, l3=0x1b}
0x44a1…44b4 Line {l1=0x11, l2=»9310 CURSOR 40,16«, l3=0x11}
0x44b4…44d6 Line {l1=0x20, l2=»9315 EXEC UNPACK(Q1,P4$,112,114)«, l3=0x20}
0x44d6…44fe Line {l1=0x26, l2=»9320 PRINT "20 ANTAL SOLGT S. ÅR ",Q1«, l3=0x26}
0x44fe…4510 Line {l1=0x10, l2=»9325 CURSOR 1,17«, l3=0x10}
0x4510…4532 Line {l1=0x20, l2=»9330 EXEC UNPACK(Q7,P4$,115,117)«, l3=0x20}
0x4532…4558 Line {l1=0x24, l2=»9335 PRINT "21 OMSÆTNING I ÅR ",Q7«, l3=0x24}
0x4558…456b Line {l1=0x11, l2=»9340 CURSOR 40,17«, l3=0x11}
0x456b…458d Line {l1=0x20, l2=»9345 EXEC UNPACK(Q1,P4$,118,120)«, l3=0x20}
0x458d…45b4 Line {l1=0x25, l2=»9350 PRINT "22 OMSÆTNING S. ÅR ",Q1«, l3=0x25}
0x45b4…45c6 Line {l1=0x10, l2=»9355 CURSOR 1,18«, l3=0x10}
0x45c6…45e8 Line {l1=0x20, l2=»9360 EXEC UNPACK(Q1,P4$,121,123)«, l3=0x20}
0x45e8…4611 Line {l1=0x27, l2=»9365 PRINT "23 DÆK. BID. TIL DATO ",Q1«, l3=0x27}
0x4611…4630 Line {l1=0x1d, l2=»9370 IF Q7<>0 AND Q6<>0 THEN «, l3=0x1d}
0x4630…4642 Line {l1=0x10, l2=»9375 CURSOR 65,1«, l3=0x10}
0x4642…4663 Line {l1=0x1f, l2=»9380 PRINT "GODT TAL ";Q6*Q1/Q7«, l3=0x1f}
0x4663…4670 Line {l1=0x0b, l2=»9385 ENDIF «, l3=0x0b}
0x4670…4683 Line {l1=0x11, l2=»9390 CURSOR 40,18«, l3=0x11}
0x4683…46a5 Line {l1=0x20, l2=»9395 EXEC UNPACK(Q1,P4$,124,124)«, l3=0x20}
0x46a5…46cc Line {l1=0x25, l2=»9400 PRINT "24 DÆK. GRAD S. ÅR ",Q1«, l3=0x25}
0x46cc…46de Line {l1=0x10, l2=»9410 CURSOR 1,19«, l3=0x10}
0x46de…4700 Line {l1=0x20, l2=»9415 EXEC UNPACK(Q1,P4$,125,127)«, l3=0x20}
0x4700…4713 Line {l1=0x11, l2=»9420 Q1=Q1-500000«, l3=0x11}
0x4713…473f Line {l1=0x2a, l2=»9425 PRINT "25 ANDRE AFGANGE-TILGANGE ",Q1«, l3=0x2a}
0x473f…474e Line {l1=0x0d, l2=»9430 ENDPROC «, l3=0x0d}
0x474e…4763 Line {l1=0x13, l2=»9435 PROC ERROR(Q8)«, l3=0x13}
0x4763…4789 Line {l1=0x24, l2=»9440 PRINT "FEJL PAA FIL ";Q8$(1:20)«, l3=0x24}
0x4789…47a6 Line {l1=0x1b, l2=»9445 PRINT "FEJLSTATUS ",A9«, l3=0x1b}
0x47a6…47b8 Line {l1=0x10, l2=»9450 EXEC CLOSET«, l3=0x10}
0x47b8…47c7 Line {l1=0x0d, l2=»9455 ENDPROC «, l3=0x0d}
0x47c7…47d9 Line {l1=0x10, l2=»9460 PROC CLOSET«, l3=0x10}
0x47d9…47f0 Line {l1=0x15, l2=»9465 EXEC ICLOSE(P0$)«, l3=0x15}
0x47f0…4802 Line {l1=0x10, l2=»9470 IF A9 THEN «, l3=0x10}
0x4802…484b Line {l1=0x47, l2=»9475 PRINT "VAREREG LUKKET UREGLEMENTERET, SITUATIONEN MAASKE PENIBEL";«, l3=0x47}
0x484b…4864 Line {l1=0x17, l2=»9480 PRINT "STATUS ";A9«, l3=0x17}
0x4864…4871 Line {l1=0x0b, l2=»9485 ENDIF «, l3=0x0b}
0x4871…487d Line {l1=0x0a, l2=»9490 STOP «, l3=0x0a}
0x487d…488c Line {l1=0x0d, l2=»9495 ENDPROC «, l3=0x0d}
0x488c…48a0 Line {l1=0x12, l2=»9500 PROC FEJL(R0)«, l3=0x12}
0x48a0…48bb Line {l1=0x19, l2=»9505 IF STATUS(R0$) THEN «, l3=0x19}
0x48bb…48f1 Line {l1=0x34, l2=»9510 PRINT "FEJL I FILSYSTEMET, FEJLNR ";STATUS(R0$)«, l3=0x34}
0x48f1…490c Line {l1=0x19, l2=»9515 PRINT "PAA FIL ";R0$«, l3=0x19}
0x490c…4918 Line {l1=0x0a, l2=»9520 STOP «, l3=0x0a}
0x4918…4925 Line {l1=0x0b, l2=»9525 ENDIF «, l3=0x0b}
0x4925…4934 Line {l1=0x0d, l2=»9530 ENDPROC «, l3=0x0d}
0x4934…4947 Line {l1=0x11, l2=»9600 PROC FL(FLE)«, l3=0x11}
0x4947…4951 Line {l1=0x08, l2=»9605 A=0«, l3=0x08}
0x4951…4961 Line {l1=0x0e, l2=»9610 OUT 84,24«, l3=0x0e}
0x4961…4975 Line {l1=0x12, l2=»9615 OUT 85,FLE+64«, l3=0x12}
0x4975…4983 Line {l1=0x0c, l2=»9620 REPEAT «, l3=0x0c}
0x4983…4994 Line {l1=0x0f, l2=»9625 IN 86,64,A«, l3=0x0f}
0x4994…49a4 Line {l1=0x0e, l2=»9630 UNTIL A=0«, l3=0x0e}
0x49a4…49b3 Line {l1=0x0d, l2=»9635 OUT 86,1«, l3=0x0d}
0x49b3…49c2 Line {l1=0x0d, l2=»9640 OUT 86,0«, l3=0x0d}
0x49c2…49d1 Line {l1=0x0d, l2=»9645 ENDPROC «, l3=0x0d}
0x49d1…49df Line {l1=0x0c, l2=»9650 PROC FF«, l3=0x0c}
0x49df…49e9 Line {l1=0x08, l2=»9655 A=0«, l3=0x08}
0x49e9…49f7 Line {l1=0x0c, l2=»9660 REPEAT «, l3=0x0c}
0x49f7…4a08 Line {l1=0x0f, l2=»9665 IN 86,64,A«, l3=0x0f}
0x4a08…4a18 Line {l1=0x0e, l2=»9670 UNTIL A=0«, l3=0x0e}
0x4a18…4a29 Line {l1=0x0f, l2=»9675 OUT 85,192«, l3=0x0f}
0x4a29…4a39 Line {l1=0x0e, l2=»9680 OUT 85,64«, l3=0x0e}
0x4a39…4a48 Line {l1=0x0d, l2=»9685 ENDPROC «, l3=0x0d}
0x4a48…4a63 Line {l1=0x19, l2=»9689 FILE$="ISF:VAREREG "«, l3=0x19}
0x4a63…4a76 Line {l1=0x11, l2=»9690 OPEN FILE$,W«, l3=0x11}
0x4a76…4a93 Line {l1=0x1b, l2=»9695 EXEC PACK(0,P4$,1,152)«, l3=0x1b}
0x4a93…4ab3 Line {l1=0x1e, l2=»9700 EXEC NEXTREC(P0$,P4$,P5$)«, l3=0x1e}
0x4ab3…4ad8 Line {l1=0x23, l2=»9705 IF A9<>-1 THEN EXEC ERROR(P0$)«, l3=0x23}
0x4ad8…4ae3 Line {l1=0x09, l2=»9708 AV=0«, l3=0x09}
0x4ae3…4af1 Line {l1=0x0c, l2=»9710 REPEAT «, l3=0x0c}
0x4af1…4b0b Line {l1=0x18, l2=»9715 PUT FILE$:P4$(1,76)«, l3=0x18}
0x4b0b…4b30 Line {l1=0x23, l2=»9716 IF STATUS(FILE$)<>0 THEN STOP «, l3=0x23}
0x4b30…4b4c Line {l1=0x1a, l2=»9717 PUT FILE$:P4$(77,152)«, l3=0x1a}
0x4b4c…4b71 Line {l1=0x23, l2=»9718 IF STATUS(FILE$)<>0 THEN STOP «, l3=0x23}
0x4b71…4b8e Line {l1=0x1b, l2=»9720 EXEC UNPACK(Q,P4$,1,3)«, l3=0x1b}
0x4b8e…4b9c Line {l1=0x0c, l2=»9721 PRINT Q«, l3=0x0c}
0x4b9c…4baa Line {l1=0x0c, l2=»9725 AV=AV+1«, l3=0x0c}
0x4baa…4bca Line {l1=0x1e, l2=»9730 EXEC NEXTREC(P0$,P4$,P5$)«, l3=0x1e}
0x4bca…4bdc Line {l1=0x10, l2=»9735 UNTIL A9<>0«, l3=0x10}
0x4bdc…4c09 Line {l1=0x2b, l2=»9740 PRINT "DER ER UDSKREVET ";AV;" VARER "«, l3=0x2b}
0x4c09…4c1b Line {l1=0x10, l2=»9750 CLOSE FILE$«, l3=0x10}
0x4c1b…4c40 Line {l1=0x23, l2=»9755 IF A9<>-2 THEN EXEC ERROR(P0$)«, l3=0x23}
0x4c40…4c57 Line {l1=0x15, l2=»9760 EXEC ICLOSE(P0$)«, l3=0x15}
0x4c57…4c74 Line {l1=0x1b, l2=»9800 PROC PACK(L8,L9,M0,M1)«, l3=0x1b}
0x4c74…4c89 Line {l1=0x13, l2=»9805 IF M1<M0 THEN «, l3=0x13}
0x4c89…4ca8 Line {l1=0x1d, l2=»9810 PRINT "PARAMFEJL I PACK"«, l3=0x1d}
0x4ca8…4cb4 Line {l1=0x0a, l2=»9815 STOP «, l3=0x0a}
0x4cb4…4cc0 Line {l1=0x0a, l2=»9820 ELSE «, l3=0x0a}
0x4cc0…4ccc Line {l1=0x0a, l2=»9823 M2=L8«, l3=0x0a}
0x4ccc…4cd8 Line {l1=0x0a, l2=»9824 M3=M1«, l3=0x0a}
0x4cd8…4ce6 Line {l1=0x0c, l2=»9825 REPEAT «, l3=0x0c}
0x4ce6…4cfd Line {l1=0x15, l2=»9830 M4=M2 MOD 100+32«, l3=0x15}
0x4cfd…4d13 Line {l1=0x14, l2=»9835 L9$(M3)=CHR(M4)«, l3=0x14}
0x4d13…4d27 Line {l1=0x12, l2=»9840 M2=M2 DIV 100«, l3=0x12}
0x4d27…4d35 Line {l1=0x0c, l2=»9845 M3=M3-1«, l3=0x0c}
0x4d35…4d47 Line {l1=0x10, l2=»9850 UNTIL M3<M0«, l3=0x10}
0x4d47…4d5c Line {l1=0x13, l2=»9851 IF M2<>0 THEN «, l3=0x13}
0x4d5c…4d7a Line {l1=0x1c, l2=»9852 PRINT "TAL IKKE PAKKET"«, l3=0x1c}
0x4d7a…4d86 Line {l1=0x0a, l2=»9853 STOP «, l3=0x0a}
0x4d86…4d93 Line {l1=0x0b, l2=»9854 ENDIF «, l3=0x0b}
0x4d93…4da0 Line {l1=0x0b, l2=»9855 ENDIF «, l3=0x0b}
0x4da0…4daf Line {l1=0x0d, l2=»9860 ENDPROC «, l3=0x0d}
0x4daf…4dce Line {l1=0x1d, l2=»9865 PROC UNPACK(L8,L9,M0,M1)«, l3=0x1d}
0x4dce…4dd9 Line {l1=0x09, l2=»9870 L8=0«, l3=0x09}
0x4dd9…4dee Line {l1=0x13, l2=»9875 IF M1<M0 THEN «, l3=0x13}
0x4dee…4e0f Line {l1=0x1f, l2=»9880 PRINT "PARAMFEJL I UNPACK"«, l3=0x1f}
0x4e0f…4e1b Line {l1=0x0a, l2=»9885 STOP «, l3=0x0a}
0x4e1b…4e27 Line {l1=0x0a, l2=»9890 ELSE «, l3=0x0a}
0x4e27…4e33 Line {l1=0x0a, l2=»9893 M5=M0«, l3=0x0a}
0x4e33…4e41 Line {l1=0x0c, l2=»9895 REPEAT «, l3=0x0c}
0x4e41…4e61 Line {l1=0x1e, l2=»9900 L8=L8*100+ORD(L9$(M5))-32«, l3=0x1e}
0x4e61…4e6f Line {l1=0x0c, l2=»9905 M5=M5+1«, l3=0x0c}
0x4e6f…4e81 Line {l1=0x10, l2=»9910 UNTIL M5>M1«, l3=0x10}
0x4e81…4e8e Line {l1=0x0b, l2=»9915 ENDIF «, l3=0x0b}
0x4e8e…4e9d Line {l1=0x0d, l2=»9920 ENDPROC «, l3=0x0d}
0x4e9d…4ea0 00 00 00 ┆ ┆
0x4ea0…4ec0 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…]