|
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: 22752 (0x58e0)
Types: TextFile
Notes: Mikados_K
Names: »BREVE.K«
└─⟦e5337a0bc⟧ Bits:30008987 DDE SPC/1 COMAL programmer: BUD, GR85, LØN
└─⟦this⟧ »BREVE.K«
0100 DIM OVER$(3,27) 0110 OVER$(1)=" " 0120 OVER$(2)=" " 0130 OVER$(3)=" " 0140 REPEAT 0150 CLEAR 0160 PRINT "Overskrift" 0170 EDIT OVER$(1) 0180 EDIT OVER$(2) 0190 EDIT OVER$(3) 0200 I=0 0210 EDIT "Tilfreds 0 ",I 0220 UNTIL I=0 0230 DIM SYM$(57),KAP$(8) 0240 DIM UDFIL$(20) 0250 OUTPUT P 0260 FOR I=1 TO 9 0270 PRINT " " 0280 NEXT I 0281 PRINT TAB(7);OVER$(1) 0282 PRINT " " 0283 PRINT TAB(7);OVER$(2) 0284 PRINT 0285 PRINT TAB(7);OVER$(3) 0286 FOR I=1 TO 3 0287 PRINT " " 0288 NEXT I 0290 LINES=0 0300 SIDE=1 0310 PRINT TAB(36);"-";SIDE;"-" 0320 SIDE=SIDE+1 0330 PRINT " " 0340 PRINT " " 0350 PRINT " " 0360 FOR II=1 TO 18 0370 READ KAP$ 0380 UDFIL$="DDE:"+KAP$ 0390 EXEC WRITE 0392 PRINT " " 0393 PRINT " " 0394 PRINT " " 0395 LINES=LINES+3 0396 WHILE LINES>40 AND LINES<45 0397 PRINT " " 0398 LINES=LINES+1 0399 ENDWHILE 0400 NEXT II 0410 STOP 0420 PROC WRITE 0430 OPEN UDFIL$,R 0440 GET UDFIL$:SYM$ 0450 WHILE STATUS(UDFIL$)=0 0460 LINES=LINES+1 0470 IF SYM$="%P" OR LINES>45 THEN 0480 REPEAT 0490 PRINT " " 0500 LINES=LINES+1 0510 UNTIL LINES>60 0511 PRINT TAB(7);OVER$(1) 0512 PRINT " " 0513 PRINT TAB(7);OVER$(2) 0514 PRINT 0515 PRINT TAB(7);OVER$(3) 0516 FOR I=1 TO 3 0517 PRINT " " 0518 NEXT I 0520 PRINT TAB(36);"-";SIDE;"-" 0530 SIDE=SIDE+1 0540 PRINT " " 0550 PRINT " " 0560 PRINT " " 0570 LINES=1 0580 IF SYM$="%P" THEN GET UDFIL$:SYM$ 0590 ENDIF 0595 IF STATUS(UDFIL$)=0 THEN 0600 PRINT TAB(10);SYM$ 0610 GET UDFIL$:SYM$ 0615 ENDIF 0620 ENDWHILE 0625 IF LINES>1 THEN 0630 PRINT " " 0640 PRINT " " 0650 PRINT " " 0660 LINES=LINES+3 0665 ENDIF 0670 CLOSE UDFIL$ 0680 ENDPROC 0690 DATA "LØNDOK" 0700 DATA "LØNOPRET","LØNOVER" 0710 DATA "LØNINDH","LØNOPST","LØNARBG","LØNENTRE","LØNFEJL" 0720 DATA "LØNAFREG","LØNARTS","LØNBEREG","LØNLØNMO" 0730 DATA "LØNPAPIR","LØNVALG","LØNSIKK","LØNTÆLLE" 0740 DATA "LØNVIRK","LØNÅRSAF"
0x0000…0016 Line {l1=0x14, l2=»0100 DIM OVER$(3,27)«, l3=0x14}
0x0016…0043 Line {l1=0x2b, l2=»0110 OVER$(1)=" "«, l3=0x2b}
0x0043…0070 Line {l1=0x2b, l2=»0120 OVER$(2)=" "«, l3=0x2b}
0x0070…009d Line {l1=0x2b, l2=»0130 OVER$(3)=" "«, l3=0x2b}
0x009d…00ab Line {l1=0x0c, l2=»0140 REPEAT «, l3=0x0c}
0x00ab…00b8 Line {l1=0x0b, l2=»0150 CLEAR «, l3=0x0b}
0x00b8…00d1 Line {l1=0x17, l2=»0160 PRINT "Overskrift"«, l3=0x17}
0x00d1…00e5 Line {l1=0x12, l2=»0170 EDIT OVER$(1)«, l3=0x12}
0x00e5…00f9 Line {l1=0x12, l2=»0180 EDIT OVER$(2)«, l3=0x12}
0x00f9…010d Line {l1=0x12, l2=»0190 EDIT OVER$(3)«, l3=0x12}
0x010d…0117 Line {l1=0x08, l2=»0200 I=0«, l3=0x08}
0x0117…0132 Line {l1=0x19, l2=»0210 EDIT "Tilfreds 0 ",I«, l3=0x19}
0x0132…0142 Line {l1=0x0e, l2=»0220 UNTIL I=0«, l3=0x0e}
0x0142…015d Line {l1=0x19, l2=»0230 DIM SYM$(57),KAP$(8)«, l3=0x19}
0x015d…0172 Line {l1=0x13, l2=»0240 DIM UDFIL$(20)«, l3=0x13}
0x0172…0181 Line {l1=0x0d, l2=»0250 OUTPUT P«, l3=0x0d}
0x0181…0194 Line {l1=0x11, l2=»0260 FOR I=1 TO 9«, l3=0x11}
0x0194…01a4 Line {l1=0x0e, l2=»0270 PRINT " "«, l3=0x0e}
0x01a4…01b1 Line {l1=0x0b, l2=»0280 NEXT I«, l3=0x0b}
0x01b1…01cd Line {l1=0x1a, l2=»0281 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x01cd…01dd Line {l1=0x0e, l2=»0282 PRINT " "«, l3=0x0e}
0x01dd…01f9 Line {l1=0x1a, l2=»0283 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x01f9…0206 Line {l1=0x0b, l2=»0284 PRINT «, l3=0x0b}
0x0206…0222 Line {l1=0x1a, l2=»0285 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x0222…0235 Line {l1=0x11, l2=»0286 FOR I=1 TO 3«, l3=0x11}
0x0235…0245 Line {l1=0x0e, l2=»0287 PRINT " "«, l3=0x0e}
0x0245…0252 Line {l1=0x0b, l2=»0288 NEXT I«, l3=0x0b}
0x0252…0260 Line {l1=0x0c, l2=»0290 LINES=0«, l3=0x0c}
0x0260…026d Line {l1=0x0b, l2=»0300 SIDE=1«, l3=0x0b}
0x026d…028e Line {l1=0x1f, l2=»0310 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x028e…02a0 Line {l1=0x10, l2=»0320 SIDE=SIDE+1«, l3=0x10}
0x02a0…02b0 Line {l1=0x0e, l2=»0330 PRINT " "«, l3=0x0e}
0x02b0…02c0 Line {l1=0x0e, l2=»0340 PRINT " "«, l3=0x0e}
0x02c0…02d0 Line {l1=0x0e, l2=»0350 PRINT " "«, l3=0x0e}
0x02d0…02e5 Line {l1=0x13, l2=»0360 FOR II=1 TO 18«, l3=0x13}
0x02e5…02f5 Line {l1=0x0e, l2=»0370 READ KAP$«, l3=0x0e}
0x02f5…030e Line {l1=0x17, l2=»0380 UDFIL$="DDE:"+KAP$«, l3=0x17}
0x030e…031f Line {l1=0x0f, l2=»0390 EXEC WRITE«, l3=0x0f}
0x031f…032f Line {l1=0x0e, l2=»0392 PRINT " "«, l3=0x0e}
0x032f…033f Line {l1=0x0e, l2=»0393 PRINT " "«, l3=0x0e}
0x033f…034f Line {l1=0x0e, l2=»0394 PRINT " "«, l3=0x0e}
0x034f…0363 Line {l1=0x12, l2=»0395 LINES=LINES+3«, l3=0x12}
0x0363…0385 Line {l1=0x20, l2=»0396 WHILE LINES>40 AND LINES<45«, l3=0x20}
0x0385…0395 Line {l1=0x0e, l2=»0397 PRINT " "«, l3=0x0e}
0x0395…03a9 Line {l1=0x12, l2=»0398 LINES=LINES+1«, l3=0x12}
0x03a9…03b9 Line {l1=0x0e, l2=»0399 ENDWHILE «, l3=0x0e}
0x03b9…03c7 Line {l1=0x0c, l2=»0400 NEXT II«, l3=0x0c}
0x03c7…03d3 Line {l1=0x0a, l2=»0410 STOP «, l3=0x0a}
0x03d3…03e4 Line {l1=0x0f, l2=»0420 PROC WRITE«, l3=0x0f}
0x03e4…03f8 Line {l1=0x12, l2=»0430 OPEN UDFIL$,R«, l3=0x12}
0x03f8…040e Line {l1=0x14, l2=»0440 GET UDFIL$:SYM$«, l3=0x14}
0x040e…042b Line {l1=0x1b, l2=»0450 WHILE STATUS(UDFIL$)=0«, l3=0x1b}
0x042b…043f Line {l1=0x12, l2=»0460 LINES=LINES+1«, l3=0x12}
0x043f…0464 Line {l1=0x23, l2=»0470 IF SYM$="%P" OR LINES>45 THEN «, l3=0x23}
0x0464…0472 Line {l1=0x0c, l2=»0480 REPEAT «, l3=0x0c}
0x0472…0482 Line {l1=0x0e, l2=»0490 PRINT " "«, l3=0x0e}
0x0482…0496 Line {l1=0x12, l2=»0500 LINES=LINES+1«, l3=0x12}
0x0496…04ab Line {l1=0x13, l2=»0510 UNTIL LINES>60«, l3=0x13}
0x04ab…04c7 Line {l1=0x1a, l2=»0511 PRINT TAB(7);OVER$(1)«, l3=0x1a}
0x04c7…04d7 Line {l1=0x0e, l2=»0512 PRINT " "«, l3=0x0e}
0x04d7…04f3 Line {l1=0x1a, l2=»0513 PRINT TAB(7);OVER$(2)«, l3=0x1a}
0x04f3…0500 Line {l1=0x0b, l2=»0514 PRINT «, l3=0x0b}
0x0500…051c Line {l1=0x1a, l2=»0515 PRINT TAB(7);OVER$(3)«, l3=0x1a}
0x051c…052f Line {l1=0x11, l2=»0516 FOR I=1 TO 3«, l3=0x11}
0x052f…053f Line {l1=0x0e, l2=»0517 PRINT " "«, l3=0x0e}
0x053f…054c Line {l1=0x0b, l2=»0518 NEXT I«, l3=0x0b}
0x054c…056d Line {l1=0x1f, l2=»0520 PRINT TAB(36);"-";SIDE;"-"«, l3=0x1f}
0x056d…057f Line {l1=0x10, l2=»0530 SIDE=SIDE+1«, l3=0x10}
0x057f…058f Line {l1=0x0e, l2=»0540 PRINT " "«, l3=0x0e}
0x058f…059f Line {l1=0x0e, l2=»0550 PRINT " "«, l3=0x0e}
0x059f…05af Line {l1=0x0e, l2=»0560 PRINT " "«, l3=0x0e}
0x05af…05bd Line {l1=0x0c, l2=»0570 LINES=1«, l3=0x0c}
0x05bd…05e5 Line {l1=0x26, l2=»0580 IF SYM$="%P" THEN GET UDFIL$:SYM$«, l3=0x26}
0x05e5…05f2 Line {l1=0x0b, l2=»0590 ENDIF «, l3=0x0b}
0x05f2…0612 Line {l1=0x1e, l2=»0595 IF STATUS(UDFIL$)=0 THEN «, l3=0x1e}
0x0612…062b Line {l1=0x17, l2=»0600 PRINT TAB(10);SYM$«, l3=0x17}
0x062b…0641 Line {l1=0x14, l2=»0610 GET UDFIL$:SYM$«, l3=0x14}
0x0641…064e Line {l1=0x0b, l2=»0615 ENDIF «, l3=0x0b}
0x064e…065e Line {l1=0x0e, l2=»0620 ENDWHILE «, l3=0x0e}
0x065e…0675 Line {l1=0x15, l2=»0625 IF LINES>1 THEN «, l3=0x15}
0x0675…0685 Line {l1=0x0e, l2=»0630 PRINT " "«, l3=0x0e}
0x0685…0695 Line {l1=0x0e, l2=»0640 PRINT " "«, l3=0x0e}
0x0695…06a5 Line {l1=0x0e, l2=»0650 PRINT " "«, l3=0x0e}
0x06a5…06b9 Line {l1=0x12, l2=»0660 LINES=LINES+3«, l3=0x12}
0x06b9…06c6 Line {l1=0x0b, l2=»0665 ENDIF «, l3=0x0b}
0x06c6…06d9 Line {l1=0x11, l2=»0670 CLOSE UDFIL$«, l3=0x11}
0x06d9…06e8 Line {l1=0x0d, l2=»0680 ENDPROC «, l3=0x0d}
0x06e8…06fc Line {l1=0x12, l2=»0690 DATA "LØNDOK"«, l3=0x12}
0x06fc…071c Line {l1=0x1e, l2=»0700 DATA "LØNOPRET","LØNOVER"«, l3=0x1e}
0x071c…075a Line {l1=0x3c, l2=»0710 DATA "LØNINDH","LØNOPST","LØNARBG","LØNENTRE","LØNFEJL"«, l3=0x3c}
0x075a…0790 Line {l1=0x34, l2=»0720 DATA "LØNAFREG","LØNARTS","LØNBEREG","LØNLØNMO"«, l3=0x34}
0x0790…07c5 Line {l1=0x33, l2=»0730 DATA "LØNPAPIR","LØNVALG","LØNSIKK","LØNTÆLLE"«, l3=0x33}
0x07c5…07e5 Line {l1=0x1e, l2=»0740 DATA "LØNVIRK","LØNÅRSAF"«, l3=0x1e}
0x07e5…0800 00 00 20 22 53 4c 22 2c 22 73 6c 22 2c 22 53 6c 22 2c 22 73 4c 22 1d 09 30 34 31 ┆ "SL","sl","Sl","sL" 041┆
0x0800…0820 35 20 49 31 3d 49 09 0e 30 34 32 30 20 45 58 45 43 20 53 4c 45 54 0e 11 30 34 32 35 20 57 48 45 ┆5 I1=I 0420 EXEC SLET 0425 WHE┆
0x0820…0840 4e 20 22 52 22 2c 22 72 22 11 11 30 34 33 30 20 45 58 45 43 20 53 4c 55 54 50 4f 53 11 10 30 34 ┆N "R","r" 0430 EXEC SLUTPOS 04┆
0x0840…0860 33 35 20 43 55 52 53 4f 52 20 31 2c 32 33 10 0e 30 34 34 30 20 50 52 49 4e 54 20 42 4c 24 0e 0c ┆35 CURSOR 1,23 0440 PRINT BL$ ┆
0x0860…0880 30 34 34 35 20 52 45 50 45 41 54 20 0c 10 30 34 35 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1e ┆0445 REPEAT 0450 CURSOR 1,23 ┆
0x0880…08a0 30 34 35 35 20 49 4e 50 55 54 20 22 20 20 20 20 20 20 20 20 20 20 20 22 2c 4c 49 4e 45 24 1e 29 ┆0455 INPUT " ",LINE$ )┆
0x08a0…08c0 30 34 36 30 20 55 4e 54 49 4c 20 4c 45 4e 28 4c 49 4e 45 24 29 3e 30 20 41 4e 44 20 4c 45 4e 28 ┆0460 UNTIL LEN(LINE$)>0 AND LEN(┆
0x08c0…08e0 4c 49 4e 45 24 29 3c 36 37 29 12 30 34 36 35 20 49 46 20 49 31 3d 49 20 54 48 45 4e 20 12 20 30 ┆LINE$)<67) 0465 IF I1=I THEN 0┆
0x08e0…0900 34 37 30 20 49 46 20 4c 45 4e 28 4c 49 4e 45 24 29 3c 3d 4a 2d 4a 31 2b 31 20 54 48 45 4e 20 20 ┆470 IF LEN(LINE$)<=J-J1+1 THEN ┆
0x0900…0920 22 30 34 37 35 20 53 49 44 45 24 28 49 31 2c 4a 31 3a 4c 45 4e 28 4c 49 4e 45 24 29 29 3d 4c 49 ┆"0475 SIDE$(I1,J1:LEN(LINE$))=LI┆
0x0920…0940 4e 45 24 22 15 30 34 38 30 20 4a 31 3d 4a 31 2b 4c 45 4e 28 4c 49 4e 45 24 29 15 1e 30 34 38 35 ┆NE$" 0480 J1=J1+LEN(LINE$) 0485┆
0x0940…0960 20 49 46 20 4a 31 3c 3d 4a 20 54 48 45 4e 20 45 58 45 43 20 44 45 4c 45 54 45 1e 0a 30 34 39 30 ┆ IF J1<=J THEN EXEC DELETE 0490┆
0x0960…0980 20 45 4c 53 45 20 0a 28 30 34 39 35 20 53 49 44 45 24 28 49 31 2c 4a 31 3a 4a 2d 4a 31 2b 31 29 ┆ ELSE (0495 SIDE$(I1,J1:J-J1+1)┆
0x0980…09a0 3d 4c 49 4e 45 24 28 31 3a 4a 2d 4a 31 2b 31 29 28 23 30 35 30 30 20 4c 49 4e 45 24 3d 4c 49 4e ┆=LINE$(1:J-J1+1)(#0500 LINE$=LIN┆
0x09a0…09c0 45 24 28 4a 2d 4a 31 2b 32 2c 4c 45 4e 28 4c 49 4e 45 24 29 29 23 0b 30 35 30 35 20 4a 31 3d 4a ┆E$(J-J1+2,LEN(LINE$))# 0505 J1=J┆
0x09c0…09e0 2b 31 0b 10 30 35 31 30 20 45 58 45 43 20 49 4e 53 45 52 54 10 0b 30 35 31 35 20 45 4e 44 49 46 ┆+1 0510 EXEC INSERT 0515 ENDIF┆
0x09e0…0a00 20 0b 0a 30 35 32 30 20 45 4c 53 45 20 0a 1f 30 35 32 35 20 49 46 20 4c 45 4e 28 4c 49 4e 45 24 ┆ 0520 ELSE 0525 IF LEN(LINE$┆
0x0a00…0a20 29 3c 3d 36 36 2d 4a 31 20 54 48 45 4e 20 1f 22 30 35 33 30 20 53 49 44 45 24 28 49 31 2c 4a 31 ┆)<=66-J1 THEN "0530 SIDE$(I1,J1┆
0x0a20…0a40 3a 4c 45 4e 28 4c 49 4e 45 24 29 29 3d 4c 49 4e 45 24 22 15 30 35 33 35 20 4a 31 3d 4a 31 2b 4c ┆:LEN(LINE$))=LINE$" 0535 J1=J1+L┆
0x0a40…0a60 45 4e 28 4c 49 4e 45 24 29 15 13 30 35 34 30 20 49 46 20 4a 31 3e 36 36 20 54 48 45 4e 20 13 09 ┆EN(LINE$) 0540 IF J1>66 THEN ┆
0x0a60…0a80 30 35 34 35 20 4a 31 3d 31 09 0c 30 35 35 30 20 49 31 3d 49 31 2b 31 0c 0b 30 35 35 35 20 45 4e ┆0545 J1=1 0550 I1=I1+1 0555 EN┆
0x0a80…0aa0 44 49 46 20 0b 10 30 35 36 30 20 45 58 45 43 20 44 45 4c 45 54 45 10 0a 30 35 36 35 20 45 4c 53 ┆DIF 0560 EXEC DELETE 0565 ELS┆
0x0aa0…0ac0 45 20 0a 09 30 35 37 30 20 50 3d 36 37 09 2e 30 35 37 35 20 49 46 20 4a 31 3e 31 20 54 48 45 4e ┆E 0570 P=67 .0575 IF J1>1 THEN┆
0x0ac0…0ae0 20 4c 49 4e 45 24 3d 53 49 44 45 24 28 49 31 2c 31 2c 4a 31 2d 31 29 2b 4c 49 4e 45 24 2e 15 30 ┆ LINE$=SIDE$(I1,1,J1-1)+LINE$. 0┆
0x0ae0…0b00 35 38 30 20 45 58 45 43 20 46 4c 5b 4b 28 4c 49 4e 45 24 29 15 19 30 35 38 35 20 53 49 44 45 24 ┆580 EXEC FLÆK(LINE$) 0585 SIDE$┆
0x0b00…0b20 28 49 31 29 3d 53 50 4c 49 54 24 2b 42 4c 24 19 0c 30 35 39 30 20 49 31 3d 49 31 2b 31 0c 09 30 ┆(I1)=SPLIT$+BL$ 0590 I1=I1+1 0┆
0x0b20…0b40 35 39 35 20 4a 31 3d 31 09 12 30 36 30 30 20 49 46 20 49 31 3d 49 20 54 48 45 4e 20 12 1e 30 36 ┆595 J1=1 0600 IF I1=I THEN 06┆
0x0b40…0b60 30 35 20 49 46 20 4c 45 4e 28 4c 49 4e 45 24 29 3c 3d 4a 2d 4a 31 20 54 48 45 4e 20 1e 37 30 36 ┆05 IF LEN(LINE$)<=J-J1 THEN 706┆
0x0b60…0b80 31 30 20 49 46 20 4c 45 4e 28 4c 49 4e 45 24 29 3e 30 20 54 48 45 4e 20 53 49 44 45 24 28 49 31 ┆10 IF LEN(LINE$)>0 THEN SIDE$(I1┆
0x0b80…0ba0 2c 4a 31 3a 4c 45 4e 28 4c 49 4e 45 24 29 29 3d 4c 49 4e 45 24 37 15 30 36 31 35 20 4a 31 3d 4a ┆,J1:LEN(LINE$))=LINE$7 0615 J1=J┆
0x0ba0…0bc0 31 2b 4c 45 4e 28 4c 49 4e 45 24 29 15 10 30 36 32 30 20 45 58 45 43 20 44 45 4c 45 54 45 10 0a ┆1+LEN(LINE$) 0620 EXEC DELETE ┆
0x0bc0…0be0 30 36 32 35 20 45 4c 53 45 20 0a 28 30 36 33 30 20 53 49 44 45 24 28 49 31 2c 4a 31 3a 4a 2d 4a ┆0625 ELSE (0630 SIDE$(I1,J1:J-J┆
0x0be0…0c00 31 2b 31 29 3d 4c 49 4e 45 24 28 31 3a 4a 2d 4a 31 2b 31 29 28 23 30 36 33 35 20 4c 49 4e 45 24 ┆1+1)=LINE$(1:J-J1+1)(#0635 LINE$┆
0x0c00…0c20 3d 4c 49 4e 45 24 28 4a 2d 4a 31 2b 32 2c 4c 45 4e 28 4c 49 4e 45 24 29 29 23 0b 30 36 34 30 20 ┆=LINE$(J-J1+2,LEN(LINE$))# 0640 ┆
0x0c20…0c40 4a 31 3d 4a 2b 31 0b 10 30 36 34 35 20 45 58 45 43 20 49 4e 53 45 52 54 10 0b 30 36 35 30 20 45 ┆J1=J+1 0645 EXEC INSERT 0650 E┆
0x0c40…0c60 4e 44 49 46 20 0b 0a 30 36 35 35 20 45 4c 53 45 20 0a 14 30 36 36 30 20 53 49 44 45 24 28 49 31 ┆NDIF 0655 ELSE 0660 SIDE$(I1┆
0x0c60…0c80 29 3d 4c 49 4e 45 24 14 14 30 36 36 35 20 4a 31 3d 4c 45 4e 28 4c 49 4e 45 24 29 2b 31 14 10 30 ┆)=LINE$ 0665 J1=LEN(LINE$)+1 0┆
0x0c80…0ca0 36 37 30 20 45 58 45 43 20 44 45 4c 45 54 45 10 0b 30 36 37 35 20 45 4e 44 49 46 20 0b 0b 30 36 ┆670 EXEC DELETE 0675 ENDIF 06┆
0x0ca0…0cc0 38 30 20 45 4e 44 49 46 20 0b 0b 30 36 38 35 20 45 4e 44 49 46 20 0b 11 30 36 39 30 20 57 48 45 ┆80 ENDIF 0685 ENDIF 0690 WHE┆
0x0cc0…0ce0 4e 20 22 45 22 2c 22 65 22 11 13 30 36 39 35 20 4c 49 4e 45 24 3d 53 49 44 45 24 28 49 29 13 10 ┆N "E","e" 0695 LINE$=SIDE$(I) ┆
0x0ce0…0d00 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 0e 30 37 30 35 20 50 52 49 4e 54 20 42 4c 24 ┆0700 CURSOR 1,23 0705 PRINT BL$┆
0x0d00…0d20 0e 0c 30 37 31 30 20 52 45 50 45 41 54 20 0c 10 30 37 31 35 20 43 55 52 53 4f 52 20 31 2c 32 33 ┆ 0710 REPEAT 0715 CURSOR 1,23┆
0x0d20…0d40 10 1d 30 37 32 30 20 45 44 49 54 20 22 20 20 20 20 20 20 20 20 20 20 20 22 2c 4c 49 4e 45 24 1d ┆ 0720 EDIT " ",LINE$ ┆
0x0d40…0d60 29 30 37 32 35 20 55 4e 54 49 4c 20 4c 45 4e 28 4c 49 4e 45 24 29 3e 30 20 41 4e 44 20 4c 45 4e ┆)0725 UNTIL LEN(LINE$)>0 AND LEN┆
0x0d60…0d80 28 4c 49 4e 45 24 29 3c 36 37 29 38 30 37 32 37 20 49 46 20 53 49 44 45 24 28 49 2c 36 35 2c 36 ┆(LINE$)<67)80727 IF SIDE$(I,65,6┆
0x0d80…0da0 36 29 3d 22 23 23 22 20 4f 52 20 53 49 44 45 24 28 49 2c 36 35 2c 36 36 29 3d 22 40 40 22 20 54 ┆6)="##" OR SIDE$(I,65,66)="@@" T┆
0x0da0…0dc0 48 45 4e 20 38 30 30 37 32 38 20 4c 49 4e 45 24 3d 4c 49 4e 45 24 2b 42 4c 24 3b 4c 49 4e 45 24 ┆HEN 800728 LINE$=LINE$+BL$;LINE$┆
0x0dc0…0de0 28 36 35 2c 36 36 29 3d 53 49 44 45 24 28 49 2c 36 35 2c 36 36 29 30 0b 30 37 32 39 20 45 4e 44 ┆(65,66)=SIDE$(I,65,66)0 0729 END┆
0x0de0…0e00 49 46 20 0b 19 30 37 33 30 20 53 49 44 45 24 28 49 29 3d 4c 49 4e 45 24 28 31 2c 36 36 29 19 11 ┆IF 0730 SIDE$(I)=LINE$(1,66) ┆
0x0e00…0e20 30 37 33 35 20 57 48 45 4e 20 22 43 22 2c 22 63 22 11 08 30 37 34 30 20 56 3d 31 08 22 30 37 34 ┆0735 WHEN "C","c" 0740 V=1 "074┆
0x0e20…0e40 35 20 57 48 49 4c 45 20 53 49 44 45 24 28 49 2c 56 29 3d 22 20 22 20 41 4e 44 20 56 3c 36 36 22 ┆5 WHILE SIDE$(I,V)=" " AND V<66"┆
0x0e40…0e60 0a 30 37 35 30 20 56 3d 56 2b 31 0a 0e 30 37 35 35 20 45 4e 44 57 48 49 4c 45 20 0e 09 30 37 36 ┆ 0750 V=V+1 0755 ENDWHILE 076┆
0x0e60…0e80 30 20 48 3d 36 36 09 21 30 37 36 35 20 57 48 49 4c 45 20 53 49 44 45 24 28 49 2c 48 29 3d 22 20 ┆0 H=66 !0765 WHILE SIDE$(I,H)=" ┆
0x0e80…0ea0 22 20 41 4e 44 20 48 3e 31 21 0a 30 37 37 30 20 48 3d 48 2d 31 0a 0e 30 37 37 35 20 45 4e 44 57 ┆" AND H>1! 0770 H=H-1 0775 ENDW┆
0x0ea0…0ec0 48 49 4c 45 20 0e 12 30 37 38 30 20 49 46 20 48 3d 3e 56 20 54 48 45 4e 20 12 19 30 37 38 35 20 ┆HILE 0780 IF H=>V THEN 0785 ┆
0x0ec0…0ee0 53 53 3d 49 4e 54 28 28 36 35 2d 48 2b 56 29 2f 32 29 2b 31 19 0d 30 37 39 30 20 53 59 4d 24 3d ┆SS=INT((65-H+V)/2)+1 0790 SYM$=┆
0x0ee0…0f00 42 4c 24 0d 20 30 37 39 35 20 53 59 4d 24 28 53 53 3a 48 2d 56 2b 31 29 3d 53 49 44 45 24 28 49 ┆BL$ 0795 SYM$(SS:H-V+1)=SIDE$(I┆
0x0f00…0f20 2c 56 2c 48 29 20 12 30 38 30 30 20 53 49 44 45 24 28 49 29 3d 53 59 4d 24 12 0b 30 38 30 35 20 ┆,V,H) 0800 SIDE$(I)=SYM$ 0805 ┆
0x0f20…0f40 45 4e 44 49 46 20 0b 13 30 38 31 30 20 57 48 45 4e 20 22 53 54 22 2c 22 47 54 22 13 15 30 38 31 ┆ENDIF 0810 WHEN "ST","GT" 081┆
0x0f40…0f60 35 20 49 46 20 4c 41 53 54 3c 32 32 20 54 48 45 4e 20 15 0e 30 38 32 30 20 4c 49 4e 45 24 3d 42 ┆5 IF LAST<22 THEN 0820 LINE$=B┆
0x0f60…0f80 4c 24 0e 16 30 38 32 35 20 49 46 20 53 56 24 3d 22 53 54 22 20 54 48 45 4e 20 16 16 30 38 33 30 ┆L$ 0825 IF SV$="ST" THEN 0830┆
0x0f80…0fa0 20 4c 49 4e 45 24 28 36 35 2c 36 36 29 3d 22 23 23 22 16 0a 30 38 33 35 20 45 4c 53 45 20 0a 16 ┆ LINE$(65,66)="##" 0835 ELSE ┆
0x0fa0…0fc0 30 38 34 30 20 4c 49 4e 45 24 28 36 35 2c 36 36 29 3d 22 40 40 22 16 0b 30 38 34 35 20 45 4e 44 ┆0840 LINE$(65,66)="@@" 0845 END┆
0x0fc0…0fe0 49 46 20 0b 09 30 38 35 30 20 49 31 3d 49 09 10 30 38 35 35 20 45 58 45 43 20 49 4e 44 53 5b 54 ┆IF 0850 I1=I 0855 EXEC INDSÆT┆
0x0fe0…1000 10 0b 30 38 36 30 20 45 4e 44 49 46 20 0b 0e 30 38 36 35 20 57 48 45 4e 20 22 42 4c 22 0e 15 30 ┆ 0860 ENDIF 0865 WHEN "BL" 0┆
0x1000…1020 38 37 30 20 49 46 20 4c 41 53 54 3c 32 32 20 54 48 45 4e 20 15 0e 30 38 37 35 20 4c 49 4e 45 24 ┆870 IF LAST<22 THEN 0875 LINE$┆
0x1020…1040 3d 42 4c 24 0e 10 30 38 38 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 0e 30 38 38 35 20 50 52 49 ┆=BL$ 0880 CURSOR 1,23 0885 PRI┆
0x1040…1060 4e 54 20 42 4c 24 0e 0c 30 38 39 30 20 52 45 50 45 41 54 20 0c 10 30 38 39 35 20 43 55 52 53 4f ┆NT BL$ 0890 REPEAT 0895 CURSO┆
0x1060…1080 52 20 31 2c 32 33 10 1f 30 39 30 30 20 49 4e 50 55 54 20 22 46 61 6b 74 6f 72 20 31 20 20 20 22 ┆R 1,23 0900 INPUT "Faktor 1 "┆
0x1080…10a0 2c 53 50 4c 49 54 24 1f 16 30 39 30 35 20 53 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 ┆,SPLIT$ 0905 SPLIT$=SPLIT$+"+" ┆
0x10a0…10c0 21 30 39 31 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 ┆!0910 EXEC CALC(6,SPLIT$,TAH$,HJ┆
0x10c0…10e0 24 29 21 11 30 39 31 35 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 22 30 39 32 30 20 4c 49 4e 45 ┆$)! 0915 UNTIL FLAG=0 "0920 LINE┆
0x10e0…1100 24 28 32 2c 31 32 29 3d 48 4a 24 28 32 2c 31 32 29 3b 50 31 24 3d 48 4a 24 22 28 30 39 32 35 20 ┆$(2,12)=HJ$(2,12);P1$=HJ$"(0925 ┆
0x1100…1120 49 46 20 4c 49 4e 45 24 28 31 32 29 3d 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 24 28 31 32 29 3d ┆IF LINE$(12)="+" THEN LINE$(12)=┆
0x1120…1140 22 20 22 28 0c 30 39 33 30 20 52 45 50 45 41 54 20 0c 10 30 39 33 35 20 43 55 52 53 4f 52 20 31 ┆" "( 0930 REPEAT 0935 CURSOR 1┆
0x1140…1160 2c 32 33 10 1f 30 39 34 30 20 49 4e 50 55 54 20 22 46 61 6b 74 6f 72 20 32 20 20 20 22 2c 53 50 ┆,23 0940 INPUT "Faktor 2 ",SP┆
0x1160…1180 4c 49 54 24 1f 16 30 39 34 35 20 53 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 21 30 39 ┆LIT$ 0945 SPLIT$=SPLIT$+"+" !09┆
0x1180…11a0 35 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 ┆50 EXEC CALC(6,SPLIT$,TAH$,HJ$)!┆
0x11a0…11c0 11 30 39 35 35 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 1e 30 39 36 30 20 45 58 45 43 20 43 41 ┆ 0955 UNTIL FLAG=0 0960 EXEC CA┆
0x11c0…11e0 4c 43 28 34 2c 48 4a 24 2c 54 41 48 24 2c 48 4a 24 29 1e 12 30 39 36 35 20 49 46 20 53 49 3e 30 ┆LC(4,HJ$,TAH$,HJ$) 0965 IF SI>0┆
0x11e0…1200 20 54 48 45 4e 20 12 1d 30 39 37 30 20 45 58 45 43 20 43 41 4c 43 28 32 2c 48 4a 24 2c 50 31 24 ┆ THEN 0970 EXEC CALC(2,HJ$,P1$┆
0x1200…1220 2c 50 31 24 29 1d 1f 30 39 37 35 20 4c 49 4e 45 24 28 31 33 2c 32 34 29 3d 22 2a 22 2b 48 4a 24 ┆,P1$) 0975 LINE$(13,24)="*"+HJ$┆
0x1220…1240 28 32 2c 31 32 29 1f 28 30 39 38 30 20 49 46 20 4c 49 4e 45 24 28 32 34 29 3d 22 2b 22 20 54 48 ┆(2,12) (0980 IF LINE$(24)="+" TH┆
0x1240…1260 45 4e 20 4c 49 4e 45 24 28 32 34 29 3d 22 20 22 28 0c 30 39 38 35 20 52 45 50 45 41 54 20 0c 10 ┆EN LINE$(24)=" "( 0985 REPEAT ┆
0x1260…1280 30 39 39 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1f 30 39 39 35 20 49 4e 50 55 54 20 22 46 61 ┆0990 CURSOR 1,23 0995 INPUT "Fa┆
0x1280…12a0 6b 74 6f 72 20 33 20 20 20 22 2c 53 50 4c 49 54 24 1f 16 31 30 30 30 20 53 50 4c 49 54 24 3d 53 ┆ktor 3 ",SPLIT$ 1000 SPLIT$=S┆
0x12a0…12c0 50 4c 49 54 24 2b 22 2b 22 16 21 31 30 30 35 20 45 58 45 43 20 43 41 4c 43 28 36 2c 53 50 4c 49 ┆PLIT$+"+" !1005 EXEC CALC(6,SPLI┆
0x12c0…12e0 54 24 2c 54 41 48 24 2c 48 4a 24 29 21 11 31 30 31 30 20 55 4e 54 49 4c 20 46 4c 41 47 3d 30 11 ┆T$,TAH$,HJ$)! 1010 UNTIL FLAG=0 ┆
0x12e0…1300 1e 31 30 31 35 20 45 58 45 43 20 43 41 4c 43 28 34 2c 48 4a 24 2c 54 41 48 24 2c 48 4a 24 29 1e ┆ 1015 EXEC CALC(4,HJ$,TAH$,HJ$) ┆
0x1300…1320 12 31 30 32 30 20 49 46 20 53 49 3e 30 20 54 48 45 4e 20 12 1f 31 30 32 35 20 4c 49 4e 45 24 28 ┆ 1020 IF SI>0 THEN 1025 LINE$(┆
0x1320…1340 32 35 2c 33 36 29 3d 22 2a 22 2b 48 4a 24 28 32 2c 31 32 29 1f 1d 31 30 33 30 20 45 58 45 43 20 ┆25,36)="*"+HJ$(2,12) 1030 EXEC ┆
0x1340…1360 43 41 4c 43 28 32 2c 48 4a 24 2c 50 31 24 2c 50 31 24 29 1d 28 31 30 33 35 20 49 46 20 4c 49 4e ┆CALC(2,HJ$,P1$,P1$) (1035 IF LIN┆
0x1360…1380 45 24 28 33 36 29 3d 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 24 28 33 36 29 3d 22 20 22 28 0b 31 ┆E$(36)="+" THEN LINE$(36)=" "( 1┆
0x1380…13a0 30 34 30 20 45 4e 44 49 46 20 0b 0b 31 30 34 35 20 45 4e 44 49 46 20 0b 0c 31 30 35 30 20 52 45 ┆040 ENDIF 1045 ENDIF 1050 RE┆
0x13a0…13c0 50 45 41 54 20 0c 10 31 30 35 35 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1f 31 30 36 30 20 49 4e ┆PEAT 1055 CURSOR 1,23 1060 IN┆
0x13c0…13e0 50 55 54 20 22 50 72 69 73 66 61 6b 74 6f 72 20 22 2c 53 50 4c 49 54 24 1f 16 31 30 36 35 20 53 ┆PUT "Prisfaktor ",SPLIT$ 1065 S┆
0x13e0…1400 50 4c 49 54 24 3d 53 50 4c 49 54 24 2b 22 2b 22 16 21 31 30 37 30 20 45 58 45 43 20 43 41 4c 43 ┆PLIT$=SPLIT$+"+" !1070 EXEC CALC┆
0x1400…1420 28 36 2c 53 50 4c 49 54 24 2c 54 41 48 24 2c 48 4a 24 29 21 11 31 30 37 35 20 55 4e 54 49 4c 20 ┆(6,SPLIT$,TAH$,HJ$)! 1075 UNTIL ┆
0x1420…1440 46 4c 41 47 3d 30 11 24 31 30 38 30 20 4c 49 4e 45 24 28 33 37 2c 35 30 29 3d 22 61 22 2b 48 4a ┆FLAG=0 $1080 LINE$(37,50)="a"+HJ┆
0x1440…1460 24 28 32 2c 31 32 29 2b 22 4b 72 22 24 28 31 30 38 35 20 49 46 20 4c 49 4e 45 24 28 34 38 29 3d ┆$(2,12)+"Kr"$(1085 IF LINE$(48)=┆
0x1460…1480 22 2b 22 20 54 48 45 4e 20 4c 49 4e 45 24 28 34 38 29 3d 22 20 22 28 1d 31 30 39 30 20 45 58 45 ┆"+" THEN LINE$(48)=" "( 1090 EXE┆
0x1480…14a0 43 20 43 41 4c 43 28 32 2c 48 4a 24 2c 50 31 24 2c 50 31 24 29 1d 24 31 30 39 35 20 49 46 20 50 ┆C CALC(2,HJ$,P1$,P1$) $1095 IF P┆
0x14a0…14c0 31 24 28 31 32 29 3d 22 2b 22 20 54 48 45 4e 20 50 31 24 28 31 32 29 3d 22 20 22 24 23 31 31 30 ┆1$(12)="+" THEN P1$(12)=" "$#110┆
0x14c0…14e0 30 20 4c 49 4e 45 24 28 35 31 2c 36 36 29 3d 50 31 24 28 32 2c 31 32 29 2b 22 4b 72 20 25 25 22 ┆0 LINE$(51,66)=P1$(2,12)+"Kr %%"┆
0x14e0…1500 23 09 31 31 30 35 20 49 31 3d 49 09 10 31 31 31 30 20 45 58 45 43 20 49 4e 44 53 5b 54 10 0b 31 ┆# 1105 I1=I 1110 EXEC INDSÆT 1┆
0x1500…1520 31 31 35 20 45 4e 44 49 46 20 0b 0d 31 31 32 30 20 45 4e 44 43 41 53 45 20 0d 16 31 31 32 32 20 ┆115 ENDIF 1120 ENDCASE 1122 ┆
0x1520…1540 53 54 24 3d 54 41 48 24 3b 47 54 24 3d 54 41 48 24 16 0f 31 31 32 35 20 45 58 45 43 20 53 4b 52 ┆ST$=TAH$;GT$=TAH$ 1125 EXEC SKR┆
0x1540…1560 49 56 0f 0b 31 31 33 30 20 45 4e 44 49 46 20 0b 0b 31 31 33 35 20 45 4e 44 49 46 20 0b 1d 31 31 ┆IV 1130 ENDIF 1135 ENDIF 11┆
0x1560…1580 34 30 20 55 4e 54 49 4c 20 53 56 24 3d 22 46 22 20 4f 52 20 53 56 24 3d 22 66 22 1d 0d 31 31 34 ┆40 UNTIL SV$="F" OR SV$="f" 114┆
0x1580…15a0 35 20 45 4e 44 50 52 4f 43 20 0d 11 31 31 35 30 20 50 52 4f 43 20 46 49 4e 44 50 4f 53 11 0c 31 ┆5 ENDPROC 1150 PROC FINDPOS 1┆
0x15a0…15c0 31 35 35 20 52 45 50 45 41 54 20 0c 0a 31 31 36 30 20 49 3d 49 2b 31 0a 0f 31 31 36 35 20 43 55 ┆155 REPEAT 1160 I=I+1 1165 CU┆
0x15c0…15e0 52 53 4f 52 20 31 2c 49 0f 1d 31 31 37 30 20 49 4e 50 55 54 20 22 20 20 20 20 20 20 20 20 20 20 ┆RSOR 1,I 1170 INPUT " ┆
0x15e0…1600 22 2c 4c 49 4e 45 24 1d 1f 31 31 37 35 20 55 4e 54 49 4c 20 49 3d 32 32 20 4f 52 20 4c 45 4e 28 ┆",LINE$ 1175 UNTIL I=22 OR LEN(┆
0x1600…1620 4c 49 4e 45 24 29 3e 30 1f 11 31 31 38 30 20 4a 3d 4c 45 4e 28 4c 49 4e 45 24 29 11 16 31 31 38 ┆LINE$)>0 1180 J=LEN(LINE$) 118┆
0x1620…1640 35 20 49 46 20 4a 3e 36 36 20 54 48 45 4e 20 4a 3d 36 36 16 0d 31 31 39 30 20 45 4e 44 50 52 4f ┆5 IF J>66 THEN J=66 1190 ENDPRO┆
0x1640…1660 43 20 0d 0f 31 31 39 35 20 50 52 4f 43 20 53 4b 52 49 56 0f 0b 31 32 30 35 20 43 4c 45 41 52 20 ┆C 1195 PROC SKRIV 1205 CLEAR ┆
0x1660…1680 0b 12 31 32 31 30 20 46 4f 52 20 58 3d 31 20 54 4f 20 32 32 12 0f 31 32 31 35 20 43 55 52 53 4f ┆ 1210 FOR X=1 TO 22 1215 CURSO┆
0x1680…16a0 52 20 31 2c 58 0f 21 31 32 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 22 3a 4c ┆R 1,X !1220 PRINT USING "####":L┆
0x16a0…16c0 49 4e 45 4e 52 2b 58 3b 21 14 31 32 32 35 20 49 46 20 58 3e 4c 41 53 54 20 54 48 45 4e 20 14 0e ┆INENR+X;! 1225 IF X>LAST THEN ┆
0x16c0…16e0 31 32 33 30 20 50 52 49 4e 54 20 22 20 22 0e 0a 31 32 33 35 20 45 4c 53 45 20 0a 1c 31 32 34 30 ┆1230 PRINT " " 1235 ELSE 1240┆
0x16e0…1700 20 43 41 53 45 20 53 49 44 45 24 28 58 2c 36 35 2c 36 36 29 20 4f 46 20 1c 1d 31 32 34 35 20 50 ┆ CASE SIDE$(X,65,66) OF 1245 P┆
0x1700…1720 52 49 4e 54 20 22 20 20 20 20 20 20 20 22 3b 53 49 44 45 24 28 58 29 1d 0e 31 32 35 30 20 57 48 ┆RINT " ";SIDE$(X) 1250 WH┆
0x1720…1740 45 4e 20 22 23 23 22 0e 24 31 32 35 35 20 49 46 20 53 54 24 28 31 32 29 3d 22 2b 22 20 54 48 45 ┆EN "##" $1255 IF ST$(12)="+" THE┆
0x1740…1760 4e 20 53 54 24 28 31 32 29 3d 22 20 22 24 2b 31 32 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆N ST$(12)=" "$+1260 PRINT " ┆
0x1760…1780 20 20 22 3b 53 49 44 45 24 28 58 2c 31 2c 34 39 29 3b 53 54 24 3b 22 4b 72 22 2b 0d 31 32 36 35 ┆ ";SIDE$(X,1,49);ST$;"Kr"+ 1265┆
0x1780…17a0 20 53 54 24 3d 54 41 48 24 0d 0e 31 32 37 30 20 57 48 45 4e 20 22 40 40 22 0e 24 31 32 37 35 20 ┆ ST$=TAH$ 1270 WHEN "@@" $1275 ┆
0x17a0…17c0 49 46 20 47 54 24 28 31 32 29 3d 22 2b 22 20 54 48 45 4e 20 47 54 24 28 31 32 29 3d 22 20 22 24 ┆IF GT$(12)="+" THEN GT$(12)=" "$┆
0x17c0…17e0 2b 31 32 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 22 3b 53 49 44 45 24 28 58 2c 31 2c ┆+1280 PRINT " ";SIDE$(X,1,┆
0x17e0…17e5 34 39 29 3b 47 ┆49);G┆
0x17e5…48e0 […elided…]
0x48e0…4900 20 44 41 3d 54 31 28 37 29 0d 14 34 31 30 30 20 44 41 54 24 3d 22 20 20 20 20 20 20 20 20 22 14 ┆ DA=T1(7) 4100 DAT$=" " ┆
0x4900…4920 19 34 31 30 35 20 46 4f 52 20 4a 3d 38 20 54 4f 20 31 20 53 54 45 50 20 2d 31 19 17 34 31 31 30 ┆ 4105 FOR J=8 TO 1 STEP -1 4110┆
0x4920…4940 20 49 46 20 4a 20 4d 4f 44 20 33 3d 30 20 54 48 45 4e 20 17 10 34 31 31 35 20 44 41 54 24 28 4a ┆ IF J MOD 3=0 THEN 4115 DAT$(J┆
0x4940…4960 29 3d 22 2e 22 10 0a 34 31 32 30 20 45 4c 53 45 20 0a 1e 34 31 32 35 20 44 41 54 24 28 4a 29 3d ┆)="." 4120 ELSE 4125 DAT$(J)=┆
0x4960…4980 43 48 52 28 44 41 20 4d 4f 44 20 31 30 2b 34 38 29 1e 11 34 31 33 30 20 44 41 3d 44 41 20 44 49 ┆CHR(DA MOD 10+48) 4130 DA=DA DI┆
0x4980…49a0 56 20 31 30 11 0b 34 31 33 35 20 45 4e 44 49 46 20 0b 0b 34 31 34 30 20 4e 45 58 54 20 4a 0b 0d ┆V 10 4135 ENDIF 4140 NEXT J ┆
0x49a0…49c0 34 31 34 35 20 45 4e 44 50 52 4f 43 20 0d 0f 34 31 35 30 20 50 52 4f 43 20 4c 49 53 54 45 0f 17 ┆4145 ENDPROC 4150 PROC LISTE ┆
0x49c0…49e0 34 31 35 35 20 49 46 20 49 4e 44 4c 5b 53 54 3d 30 20 54 48 45 4e 20 17 11 34 31 36 30 20 45 58 ┆4155 IF INDLÆST=0 THEN 4160 EX┆
0x49e0…4a00 45 43 20 47 45 54 54 41 42 53 11 0b 34 31 36 35 20 45 4e 44 49 46 20 0b 0e 34 31 37 30 20 49 4e ┆EC GETTABS 4165 ENDIF 4170 IN┆
0x4a00…4a20 44 4c 5b 53 54 3d 31 0e 0c 34 31 37 35 20 52 45 50 45 41 54 20 0c 11 34 31 38 30 20 43 55 52 53 ┆DLÆST=1 4175 REPEAT 4180 CURS┆
0x4a20…4a40 4f 52 20 31 33 2c 31 37 11 34 34 31 38 35 20 50 52 49 4e 54 20 22 4f 72 64 6e 65 74 20 65 66 74 ┆OR 13,17 44185 PRINT "Ordnet eft┆
0x4a40…4a60 65 72 20 3a 20 20 20 20 20 20 28 31 3a 20 47 72 75 70 70 65 20 2c 20 32 3a 20 4e 72 29 22 34 11 ┆er : (1: Gruppe , 2: Nr)"4 ┆
0x4a60…4a80 34 31 39 30 20 43 55 52 53 4f 52 20 32 36 2c 31 37 11 0d 34 31 39 35 20 49 4e 50 55 54 20 41 24 ┆4190 CURSOR 26,17 4195 INPUT A$┆
0x4a80…4aa0 0d 14 34 32 30 30 20 45 58 45 43 20 4e 52 54 45 53 54 28 41 24 29 14 15 34 32 30 35 20 55 4e 54 ┆ 4200 EXEC NRTEST(A$) 4205 UNT┆
0x4aa0…4ac0 49 4c 20 50 3d 31 20 4f 52 20 50 3d 32 15 0c 34 32 31 30 20 4f 52 44 45 4e 3d 50 0c 0c 34 32 31 ┆IL P=1 OR P=2 4210 ORDEN=P 421┆
0x4ac0…4ae0 35 20 52 45 50 45 41 54 20 0c 0c 34 32 32 30 20 52 45 50 45 41 54 20 0c 11 34 32 32 35 20 43 55 ┆5 REPEAT 4220 REPEAT 4225 CU┆
0x4ae0…4b00 52 53 4f 52 20 31 33 2c 31 39 11 15 34 32 33 30 20 49 46 20 4f 52 44 45 4e 3d 31 20 54 48 45 4e ┆RSOR 13,19 4230 IF ORDEN=1 THEN┆
0x4b00…4b20 20 15 2a 34 32 33 35 20 50 52 49 4e 54 20 22 46 72 61 20 67 72 75 70 70 65 6e 72 20 3a 20 20 20 ┆ *4235 PRINT "Fra gruppenr : ┆
0x4b20…4b40 20 20 20 28 30 3a 20 41 6c 6c 65 29 22 2a 0a 34 32 34 30 20 45 4c 53 45 20 0a 2a 34 32 34 35 20 ┆ (0: Alle)"* 4240 ELSE *4245 ┆
0x4b40…4b60 50 52 49 4e 54 20 22 46 72 61 20 6b 6f 6e 74 6f 6e 72 20 20 3a 20 20 20 20 20 20 28 30 3a 20 41 ┆PRINT "Fra kontonr : (0: A┆
0x4b60…4b80 6c 6c 65 29 22 2a 0b 34 32 35 30 20 45 4e 44 49 46 20 0b 11 34 32 35 35 20 43 55 52 53 4f 52 20 ┆lle)"* 4250 ENDIF 4255 CURSOR ┆
0x4b80…4ba0 32 36 2c 31 39 11 0f 34 32 36 30 20 49 4e 50 55 54 20 4b 54 4e 24 0f 16 34 32 36 35 20 45 58 45 ┆26,19 4260 INPUT KTN$ 4265 EXE┆
0x4ba0…4bc0 43 20 4e 52 54 45 53 54 28 4b 54 4e 24 29 16 4a 34 32 37 30 20 55 4e 54 49 4c 20 50 3d 30 20 4f ┆C NRTEST(KTN$) J4270 UNTIL P=0 O┆
0x4bc0…4be0 52 20 28 50 3e 30 20 41 4e 44 20 50 3c 3d 4d 4b 47 52 20 41 4e 44 20 4f 52 44 45 4e 3d 31 29 20 ┆R (P>0 AND P<=MKGR AND ORDEN=1) ┆
0x4be0…4c00 4f 52 20 28 4b 54 41 4c 3d 44 54 41 4c 20 41 4e 44 20 4f 52 44 45 4e 3d 32 29 4a 15 34 32 37 35 ┆OR (KTAL=DTAL AND ORDEN=2)J 4275┆
0x4c00…4c20 20 49 46 20 4f 52 44 45 4e 3d 31 20 54 48 45 4e 20 15 11 34 32 38 30 20 49 46 20 50 3d 30 20 54 ┆ IF ORDEN=1 THEN 4280 IF P=0 T┆
0x4c20…4c40 48 45 4e 20 11 13 34 32 38 35 20 46 52 41 3d 31 3b 54 49 4c 3d 4d 4b 47 52 13 0a 34 32 39 30 20 ┆HEN 4285 FRA=1;TIL=MKGR 4290 ┆
0x4c40…4c60 45 4c 53 45 20 0a 0a 34 32 39 35 20 46 52 41 3d 50 0a 0b 34 33 30 30 20 45 4e 44 49 46 20 0b 0a ┆ELSE 4295 FRA=P 4300 ENDIF ┆
0x4c60…4c80 34 33 30 35 20 45 4c 53 45 20 0a 11 34 33 31 30 20 49 46 20 50 3d 30 20 54 48 45 4e 20 11 13 34 ┆4305 ELSE 4310 IF P=0 THEN 4┆
0x4c80…4ca0 33 31 35 20 46 52 41 3d 31 3b 54 49 4c 3d 41 44 45 42 13 0a 34 33 32 30 20 45 4c 53 45 20 0a 1c ┆315 FRA=1;TIL=ADEB 4320 ELSE ┆
0x4ca0…4cc0 34 33 32 35 20 49 46 20 44 54 41 42 28 41 44 45 42 2c 31 29 3c 50 20 54 48 45 4e 20 1c 0a 34 33 ┆4325 IF DTAB(ADEB,1)<P THEN 43┆
0x4cc0…4ce0 33 30 20 46 52 41 3d 30 0a 0a 34 33 33 35 20 45 4c 53 45 20 0a 28 34 33 34 30 20 45 58 45 43 20 ┆30 FRA=0 4335 ELSE (4340 EXEC ┆
0x4ce0…4d00 46 49 4e 44 50 4f 53 54 28 44 54 41 42 2c 4d 44 41 4e 54 41 4c 2c 50 2c 44 50 49 4c 33 29 28 14 ┆FINDPOST(DTAB,MDANTAL,P,DPIL3)( ┆
0x4d00…4d20 34 33 34 35 20 49 46 20 43 45 4b 53 3d 30 20 54 48 45 4e 20 14 0e 34 33 35 30 20 46 52 41 3d 44 ┆4345 IF CEKS=0 THEN 4350 FRA=D┆
0x4d20…4d40 50 49 4c 33 0e 0a 34 33 35 35 20 45 4c 53 45 20 0a 10 34 33 36 30 20 46 52 41 3d 44 50 49 4c 33 ┆PIL3 4355 ELSE 4360 FRA=DPIL3┆
0x4d40…4d60 2b 31 10 0b 34 33 36 35 20 45 4e 44 49 46 20 0b 0b 34 33 37 30 20 45 4e 44 49 46 20 0b 0b 34 33 ┆+1 4365 ENDIF 4370 ENDIF 43┆
0x4d60…4d80 37 35 20 45 4e 44 49 46 20 0b 0b 34 33 38 30 20 45 4e 44 49 46 20 0b 11 34 33 38 35 20 55 4e 54 ┆75 ENDIF 4380 ENDIF 4385 UNT┆
0x4d80…4da0 49 4c 20 46 52 41 3c 3e 30 11 11 34 33 39 30 20 49 46 20 50 3e 30 20 54 48 45 4e 20 11 0c 34 33 ┆IL FRA<>0 4390 IF P>0 THEN 43┆
0x4da0…4dc0 39 35 20 52 45 50 45 41 54 20 0c 0c 34 34 30 30 20 52 45 50 45 41 54 20 0c 11 34 34 30 35 20 43 ┆95 REPEAT 4400 REPEAT 4405 C┆
0x4dc0…4de0 55 52 53 4f 52 20 31 33 2c 32 31 11 15 34 34 31 30 20 49 46 20 4f 52 44 45 4e 3d 31 20 54 48 45 ┆URSOR 13,21 4410 IF ORDEN=1 THE┆
0x4de0…4e00 4e 20 15 20 34 34 31 35 20 49 4e 50 55 54 20 22 54 69 6c 20 67 72 75 70 70 65 6e 72 20 3a 22 2c ┆N 4415 INPUT "Til gruppenr :",┆
0x4e00…4e20 4b 54 4e 24 20 0a 34 34 32 30 20 45 4c 53 45 20 0a 20 34 34 32 35 20 49 4e 50 55 54 20 22 54 69 ┆KTN$ 4420 ELSE 4425 INPUT "Ti┆
0x4e20…4e40 6c 20 6b 6f 6e 74 6f 6e 72 20 20 3a 22 2c 4b 54 4e 24 20 0b 34 34 33 30 20 45 4e 44 49 46 20 0b ┆l kontonr :",KTN$ 4430 ENDIF ┆
0x4e40…4e60 16 34 34 33 35 20 45 58 45 43 20 4e 52 54 45 53 54 28 4b 54 4e 24 29 16 43 34 34 34 30 20 55 4e ┆ 4435 EXEC NRTEST(KTN$) C4440 UN┆
0x4e60…4e80 54 49 4c 20 28 50 3e 30 20 41 4e 44 20 50 3c 3d 4d 4b 47 52 20 41 4e 44 20 4f 52 44 45 4e 3d 31 ┆TIL (P>0 AND P<=MKGR AND ORDEN=1┆
0x4e80…4ea0 29 20 4f 52 20 28 4b 54 41 4c 3d 44 54 41 4c 20 41 4e 44 20 4f 52 44 45 4e 3d 32 29 43 15 34 34 ┆) OR (KTAL=DTAL AND ORDEN=2)C 44┆
0x4ea0…4ec0 34 35 20 49 46 20 4f 52 44 45 4e 3d 31 20 54 48 45 4e 20 15 0a 34 34 35 30 20 54 49 4c 3d 50 0a ┆45 IF ORDEN=1 THEN 4450 TIL=P ┆
0x4ec0…4ee0 0a 34 34 35 35 20 45 4c 53 45 20 0a 1c 34 34 36 30 20 49 46 20 44 54 41 42 28 41 44 45 42 2c 31 ┆ 4455 ELSE 4460 IF DTAB(ADEB,1┆
0x4ee0…4f00 29 3c 50 20 54 48 45 4e 20 1c 0d 34 34 36 35 20 54 49 4c 3d 41 44 45 42 0d 0a 34 34 37 30 20 45 ┆)<P THEN 4465 TIL=ADEB 4470 E┆
0x4f00…4f20 4c 53 45 20 0a 28 34 34 37 35 20 45 58 45 43 20 46 49 4e 44 50 4f 53 54 28 44 54 41 42 2c 4d 44 ┆LSE (4475 EXEC FINDPOST(DTAB,MD┆
0x4f20…4f40 41 4e 54 41 4c 2c 50 2c 44 50 49 4c 33 29 28 14 34 34 38 30 20 49 46 20 43 45 4b 53 3d 30 20 54 ┆ANTAL,P,DPIL3)( 4480 IF CEKS=0 T┆
0x4f40…4f60 48 45 4e 20 14 0e 34 34 38 35 20 54 49 4c 3d 44 50 49 4c 33 0e 0a 34 34 39 30 20 45 4c 53 45 20 ┆HEN 4485 TIL=DPIL3 4490 ELSE ┆
0x4f60…4f80 0a 10 34 34 39 35 20 54 49 4c 3d 44 50 49 4c 33 2b 31 10 0b 34 35 30 30 20 45 4e 44 49 46 20 0b ┆ 4495 TIL=DPIL3+1 4500 ENDIF ┆
0x4f80…4fa0 0b 34 35 30 35 20 45 4e 44 49 46 20 0b 0b 34 35 31 30 20 45 4e 44 49 46 20 0b 13 34 35 31 35 20 ┆ 4505 ENDIF 4510 ENDIF 4515 ┆
0x4fa0…4fc0 55 4e 54 49 4c 20 46 52 41 3c 3d 54 49 4c 13 0b 34 35 32 30 20 45 4e 44 49 46 20 0b 0b 34 35 32 ┆UNTIL FRA<=TIL 4520 ENDIF 452┆
0x4fc0…4fe0 35 20 43 4c 45 41 52 20 0b 0c 34 35 33 30 20 52 45 50 45 41 54 20 0c 11 34 35 33 35 20 43 55 52 ┆5 CLEAR 4530 REPEAT 4535 CUR┆
0x4fe0…5000 53 4f 52 20 31 38 2c 31 33 11 39 34 35 34 30 20 49 4e 50 55 54 20 22 4d 6f 6e 74 65 72 20 6c 69 ┆SOR 18,13 94540 INPUT "Monter li┆
0x5000…5020 73 74 65 72 20 74 69 6c 20 75 64 73 6b 72 69 66 74 20 6f 67 20 74 61 73 74 20 52 45 54 55 52 4e ┆ster til udskrift og tast RETURN┆
0x5020…5040 22 2c 41 24 39 16 34 35 34 35 20 55 4e 54 49 4c 20 4f 52 44 28 41 24 29 3d 32 35 35 16 0d 34 35 ┆",A$9 4545 UNTIL ORD(A$)=255 45┆
0x5040…5060 35 30 20 4f 55 54 50 55 54 20 50 0d 15 34 35 35 35 20 49 46 20 4f 52 44 45 4e 3d 31 20 54 48 45 ┆50 OUTPUT P 4555 IF ORDEN=1 THE┆
0x5060…5080 4e 20 15 15 34 35 36 30 20 46 4f 52 20 48 3d 46 52 41 20 54 4f 20 54 49 4c 15 15 34 35 36 35 20 ┆N 4560 FOR H=FRA TO TIL 4565 ┆
0x5080…50a0 48 4b 55 4e 44 45 3d 4b 41 52 52 41 59 28 48 29 15 0c 34 35 37 30 20 52 45 50 45 41 54 20 0c 1b ┆HKUNDE=KARRAY(H) 4570 REPEAT ┆
0x50a0…50c0 34 35 37 35 20 49 46 20 48 4b 55 4e 44 45 3d 30 20 54 48 45 4e 20 45 58 49 54 20 1b 2d 34 35 38 ┆4575 IF HKUNDE=0 THEN EXIT -458┆
0x50c0…50e0 30 20 45 58 45 43 20 46 49 4e 44 50 4f 53 54 28 44 54 41 42 2c 4d 44 41 4e 54 41 4c 2c 48 4b 55 ┆0 EXEC FINDPOST(DTAB,MDANTAL,HKU┆
0x50e0…5100 4e 44 45 2c 44 50 49 4c 33 29 2d 13 34 35 38 35 20 45 58 45 43 20 48 45 4e 54 44 50 4f 53 54 13 ┆NDE,DPIL3)- 4585 EXEC HENTDPOST ┆
0x5100…5120 0c 34 35 39 30 20 4c 49 4e 45 53 3d 30 0c 0d 34 35 39 35 20 53 49 44 45 4e 52 3d 31 0d 0c 34 36 ┆ 4590 LINES=0 4595 SIDENR=1 46┆
0x5120…5140 30 30 20 52 45 50 45 41 54 20 0c 22 34 36 30 35 20 49 46 20 4c 49 4e 45 53 3d 34 20 41 4e 44 20 ┆00 REPEAT "4605 IF LINES=4 AND ┆
0x5140…5160 53 56 31 24 3d 22 4a 22 20 54 48 45 4e 20 22 21 34 36 31 30 20 50 52 49 4e 54 20 54 41 42 28 53 ┆SV1$="J" THEN "!4610 PRINT TAB(S┆
0x5160…5180 4d 29 3b 22 2d 22 3b 53 49 44 45 4e 52 3b 22 2d 22 21 14 34 36 31 35 20 53 49 44 45 4e 52 3d 53 ┆M);"-";SIDENR;"-"! 4615 SIDENR=S┆
0x5180…51a0 49 44 45 4e 52 2b 31 14 0a 34 36 32 30 20 45 4c 53 45 20 0a 0e 34 36 32 35 20 50 52 49 4e 54 20 ┆IDENR+1 4620 ELSE 4625 PRINT ┆
0x51a0…51c0 22 20 22 0e 0b 34 36 33 30 20 45 4e 44 49 46 20 0b 12 34 36 33 35 20 4c 49 4e 45 53 3d 4c 49 4e ┆" " 4630 ENDIF 4635 LINES=LIN┆
0x51c0…51e0 45 53 2b 31 12 13 34 36 34 30 20 55 4e 54 49 4c 20 4c 49 4e 45 53 3d 31 30 13 0c 34 36 34 35 20 ┆ES+1 4640 UNTIL LINES=10 4645 ┆
0x51e0…5200 4c 49 4e 45 53 3d 39 0c 1d 34 36 35 30 20 50 52 49 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 44 45 ┆LINES=9 4650 PRINT TAB(VM+1);DE┆
0x5200…5220 42 4e 41 56 4e 24 1d 1d 34 36 35 35 20 50 52 49 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 44 45 42 ┆BNAVN$ 4655 PRINT TAB(VM+1);DEB┆
0x5220…5240 47 41 44 45 24 1d 26 34 36 36 30 20 50 52 49 4e 54 20 54 41 42 28 56 4d 29 3b 44 50 4f 53 54 4e ┆GADE$ &4660 PRINT TAB(VM);DPOSTN┆
0x5240…5260 52 3b 22 20 20 22 3b 44 45 42 42 59 24 26 28 34 36 36 35 20 49 46 20 44 45 42 4c 4b 24 3e 22 30 ┆R;" ";DEBBY$&(4665 IF DEBLK$>"0┆
0x5260…5280 22 20 41 4e 44 20 44 45 42 4c 4b 24 3c 3d 22 39 22 20 54 48 45 4e 20 28 2a 34 36 37 30 20 50 52 ┆" AND DEBLK$<="9" THEN (*4670 PR┆
0x5280…52a0 49 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 4c 41 4e 44 24 28 4f 52 44 28 44 45 42 4c 4b 24 29 2d ┆INT TAB(VM+1);LAND$(ORD(DEBLK$)-┆
0x52a0…52c0 34 38 29 2a 0a 34 36 37 35 20 45 4c 53 45 20 0a 0e 34 36 38 30 20 50 52 49 4e 54 20 22 20 22 0e ┆48)* 4675 ELSE 4680 PRINT " " ┆
0x52c0…52e0 0b 34 36 38 35 20 45 4e 44 49 46 20 0b 0e 34 36 39 30 20 50 52 49 4e 54 20 22 20 22 0e 0e 34 36 ┆ 4685 ENDIF 4690 PRINT " " 46┆
0x52e0…5300 39 35 20 50 52 49 4e 54 20 22 20 22 0e 12 34 37 30 30 20 4c 49 4e 45 53 3d 36 2b 4c 49 4e 45 53 ┆95 PRINT " " 4700 LINES=6+LINES┆
0x5300…5320 12 0f 34 37 30 35 20 45 58 45 43 20 57 52 49 54 45 0f 13 34 37 31 30 20 55 4e 54 49 4c 20 48 4b ┆ 4705 EXEC WRITE 4710 UNTIL HK┆
0x5320…5340 55 4e 44 45 3d 30 13 0b 34 37 31 35 20 4e 45 58 54 20 48 0b 0a 34 37 32 30 20 45 4c 53 45 20 0a ┆UNDE=0 4715 NEXT H 4720 ELSE ┆
0x5340…5360 19 34 37 32 35 20 46 4f 52 20 44 50 49 4c 33 3d 46 52 41 20 54 4f 20 54 49 4c 19 13 34 37 33 30 ┆ 4725 FOR DPIL3=FRA TO TIL 4730┆
0x5360…5380 20 45 58 45 43 20 48 45 4e 54 44 50 4f 53 54 13 0c 34 37 33 35 20 4c 49 4e 45 53 3d 30 0c 0d 34 ┆ EXEC HENTDPOST 4735 LINES=0 4┆
0x5380…53a0 37 34 30 20 53 49 44 45 4e 52 3d 31 0d 0c 34 37 34 35 20 52 45 50 45 41 54 20 0c 22 34 37 35 30 ┆740 SIDENR=1 4745 REPEAT "4750┆
0x53a0…53c0 20 49 46 20 53 56 31 24 3d 22 4a 22 20 41 4e 44 20 4c 49 4e 45 53 3d 34 20 54 48 45 4e 20 22 21 ┆ IF SV1$="J" AND LINES=4 THEN "!┆
0x53c0…53e0 34 37 35 35 20 50 52 49 4e 54 20 54 41 42 28 53 4d 29 3b 22 2d 22 3b 53 49 44 45 4e 52 3b 22 2d ┆4755 PRINT TAB(SM);"-";SIDENR;"-┆
0x53e0…5400 22 21 14 34 37 36 30 20 53 49 44 45 4e 52 3d 53 49 44 45 4e 52 2b 31 14 0a 34 37 36 35 20 45 4c ┆"! 4760 SIDENR=SIDENR+1 4765 EL┆
0x5400…5420 53 45 20 0a 0e 34 37 37 30 20 50 52 49 4e 54 20 22 20 22 0e 0b 34 37 37 35 20 45 4e 44 49 46 20 ┆SE 4770 PRINT " " 4775 ENDIF ┆
0x5420…5440 0b 12 34 37 38 30 20 4c 49 4e 45 53 3d 4c 49 4e 45 53 2b 31 12 13 34 37 38 35 20 55 4e 54 49 4c ┆ 4780 LINES=LINES+1 4785 UNTIL┆
0x5440…5460 20 4c 49 4e 45 53 3d 31 30 13 0c 34 37 39 30 20 4c 49 4e 45 53 3d 39 0c 1d 34 37 39 35 20 50 52 ┆ LINES=10 4790 LINES=9 4795 PR┆
0x5460…5480 49 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 44 45 42 4e 41 56 4e 24 1d 1d 34 38 30 30 20 50 52 49 ┆INT TAB(VM+1);DEBNAVN$ 4800 PRI┆
0x5480…54a0 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 44 45 42 47 41 44 45 24 1d 26 34 38 30 35 20 50 52 49 4e ┆NT TAB(VM+1);DEBGADE$ &4805 PRIN┆
0x54a0…54c0 54 20 54 41 42 28 56 4d 29 3b 44 50 4f 53 54 4e 52 3b 22 20 20 22 3b 44 45 42 42 59 24 26 28 34 ┆T TAB(VM);DPOSTNR;" ";DEBBY$&(4┆
0x54c0…54e0 38 31 30 20 49 46 20 44 45 42 4c 4b 24 3e 22 30 22 20 41 4e 44 20 44 45 42 4c 4b 24 3c 3d 22 39 ┆810 IF DEBLK$>"0" AND DEBLK$<="9┆
0x54e0…5500 22 20 54 48 45 4e 20 28 2a 34 38 31 35 20 50 52 49 4e 54 20 54 41 42 28 56 4d 2b 31 29 3b 4c 41 ┆" THEN (*4815 PRINT TAB(VM+1);LA┆
0x5500…5520 4e 44 24 28 4f 52 44 28 44 45 42 4c 4b 24 29 2d 34 38 29 2a 0a 34 38 32 30 20 45 4c 53 45 20 0a ┆ND$(ORD(DEBLK$)-48)* 4820 ELSE ┆
0x5520…5540 0e 34 38 32 35 20 50 52 49 4e 54 20 22 20 22 0e 0b 34 38 33 30 20 45 4e 44 49 46 20 0b 0e 34 38 ┆ 4825 PRINT " " 4830 ENDIF 48┆
0x5540…5560 33 35 20 50 52 49 4e 54 20 22 20 22 0e 0e 34 38 34 30 20 50 52 49 4e 54 20 22 20 22 0e 12 34 38 ┆35 PRINT " " 4840 PRINT " " 48┆
0x5560…5580 34 35 20 4c 49 4e 45 53 3d 36 2b 4c 49 4e 45 53 12 0f 34 38 35 30 20 45 58 45 43 20 57 52 49 54 ┆45 LINES=6+LINES 4850 EXEC WRIT┆
0x5580…55a0 45 0f 0f 34 38 35 35 20 4e 45 58 54 20 44 50 49 4c 33 0f 0b 34 38 36 30 20 45 4e 44 49 46 20 0b ┆E 4855 NEXT DPIL3 4860 ENDIF ┆
0x55a0…55c0 0d 34 38 36 35 20 4f 55 54 50 55 54 20 54 0d 0d 34 38 37 30 20 45 4e 44 50 52 4f 43 20 0d 12 34 ┆ 4865 OUTPUT T 4870 ENDPROC 4┆
0x55c0…55e0 38 37 35 20 50 52 4f 43 20 4c 4f 4f 4b 42 52 45 56 12 16 34 38 37 37 20 53 54 24 3d 54 41 48 24 ┆875 PROC LOOKBREV 4877 ST$=TAH$┆
0x55e0…5600 3b 47 54 24 3d 54 41 48 24 16 11 34 38 38 30 20 4d 41 58 4e 52 3d 42 52 45 56 4e 52 11 0d 34 38 ┆;GT$=TAH$ 4880 MAXNR=BREVNR 48┆
0x5600…5620 38 35 20 42 52 45 56 4e 52 3d 30 0d 0d 34 38 39 30 20 4c 49 4e 45 4e 52 3d 30 0d 17 34 38 39 35 ┆85 BREVNR=0 4890 LINENR=0 4895┆
0x5620…5640 20 57 48 49 4c 45 20 42 52 45 56 4e 52 3c 4d 41 58 4e 52 17 1b 34 39 30 30 20 45 58 45 43 20 43 ┆ WHILE BREVNR<MAXNR 4900 EXEC C┆
0x5640…5660 4f 4e 56 45 52 54 28 31 2b 42 52 45 56 4e 52 29 1b 15 34 39 30 35 20 46 49 4c 31 24 3d 55 44 46 ┆ONVERT(1+BREVNR) 4905 FIL1$=UDF┆
0x5660…5680 49 4c 24 2b 53 56 24 15 11 34 39 31 30 20 4f 50 45 4e 20 46 49 4c 31 24 2c 52 11 08 34 39 31 35 ┆IL$+SV$ 4910 OPEN FIL1$,R 4915┆
0x5680…56a0 20 4c 3d 31 08 17 34 39 32 30 20 47 45 54 20 46 49 4c 31 24 3a 53 49 44 45 24 28 4c 29 17 1e 34 ┆ L=1 4920 GET FIL1$:SIDE$(L) 4┆
0x56a0…56c0 39 32 35 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 46 49 4c 31 24 29 3d 30 20 44 4f 20 1e 0a 34 ┆925 WHILE STATUS(FIL1$)=0 DO 4┆
0x56c0…56e0 39 33 30 20 4c 3d 4c 2b 31 0a 17 34 39 33 35 20 47 45 54 20 46 49 4c 31 24 3a 53 49 44 45 24 28 ┆930 L=L+1 4935 GET FIL1$:SIDE$(┆
0x56e0…5700 4c 29 17 0e 34 39 34 30 20 45 4e 44 57 48 49 4c 45 20 0e 10 34 39 34 35 20 53 49 44 45 24 28 4c ┆L) 4940 ENDWHILE 4945 SIDE$(L┆
0x5700…5720 29 3d 22 22 10 0d 34 39 35 30 20 4c 41 53 54 3d 4c 2d 31 0d 10 34 39 35 35 20 43 4c 4f 53 45 20 ┆)="" 4950 LAST=L-1 4955 CLOSE ┆
0x5720…5740 46 49 4c 31 24 10 0f 34 39 36 30 20 45 58 45 43 20 53 4b 52 49 56 0f 10 34 39 36 35 20 45 58 45 ┆FIL1$ 4960 EXEC SKRIV 4965 EXE┆
0x5740…5760 43 20 54 49 4c 50 41 53 10 10 34 39 37 30 20 45 58 45 43 20 55 44 42 52 45 56 10 0e 34 39 37 35 ┆C TILPAS 4970 EXEC UDBREV 4975┆
0x5760…5780 20 45 4e 44 57 48 49 4c 45 20 0e 0d 34 39 38 30 20 45 4e 44 50 52 4f 43 20 0d 00 00 00 00 00 00 ┆ ENDWHILE 4980 ENDPROC ┆
0x5780…57a0 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 ┆ ┆
[…0xa…]