DataMuseum.dk

top - metrics - download

    Length: 1664 (0x680)
    Names: »NØRG!RDT.CML«

└─⟦722609cef⟧ Bits:30009789/_.ft.Ibm2.50006616.imd Mogens Pelles Zilog 80,000 / EOS projekt
    └─⟦this⟧ »NØRG!RDT.CML« 

Default Hex Dump

0x000…020 32 35 32 30 20 49 46 20 54 5b 4c 53 49 44 45 23 3e 3d 33 32 20 54 48 45 4e 20 0d 34 38 39 30 20   ┆2520 IF TÆLSIDE#>=32 THEN  4890 ┆
0x020…040 20 20 50 52 4f 43 20 4e 59 53 49 44 45 4c 50 0d 34 38 39 35 20 20 20 20 20 50 52 49 4e 54 20 22   ┆  PROC NYSIDELP 4895     PRINT "┆
0x040…060 4e 5c 52 47 41 41 52 44 53 20 48 5c 4a 53 4b 4f 4c 45 2c 20 20 38 38 35 30 20 20 42 4a 45 52 52   ┆NØRGAARDS HØJSKOLE,  8850  BJERR┆
0x060…080 49 4e 47 42 52 4f 22 0d 34 38 39 36 20 20 20 20 20 50 52 49 4e 54 20 22 54 4c 46 2e 20 30 36 20   ┆INGBRO" 4896     PRINT "TLF. 06 ┆
0x080…0a0 2d 20 36 38 20 32 33 20 30 30 20 20 47 49 52 4f 3a 20 20 37 20 30 35 20 38 33 20 33 30 22 0d 34   ┆- 68 23 00  GIRO:  7 05 83 30" 4┆
0x0a0…0c0 39 30 30 20 20 20 20 20 53 49 44 45 23 3a 2b 31 0d 34 39 31 30 20 20 20 20 20 46 4f 52 20 41 3a   ┆900     SIDE#:+1 4910     FOR A:┆
0x0c0…0e0 3d 31 20 54 4f 20 31 30 30 30 20 44 4f 20 0d 34 39 32 30 20 20 20 20 20 4e 45 58 54 20 41 0d 34   ┆=1 TO 1000 DO  4920     NEXT A 4┆
0x0e0…100 39 33 30 20 20 20 20 20 45 58 45 43 20 44 4f 42 42 45 4c 54 53 54 52 45 47 0d 34 39 34 30 20 20   ┆930     EXEC DOBBELTSTREG 4940  ┆
0x100…120 20 20 20 50 52 49 4e 54 20 0d 34 39 35 30 20 20 20 20 20 50 52 49 4e 54 20 0d 34 39 36 30 20 20   ┆   PRINT  4950     PRINT  4960  ┆
0x120…140 20 20 20 50 52 49 4e 54 20 53 54 4f 52 24 3b 22 45 4c 45 56 53 50 45 43 49 46 49 4b 41 54 49 4f   ┆   PRINT STOR$;"ELEVSPECIFIKATIO┆
0x140…160 4e 22 3b 54 41 42 28 32 35 29 3b 22 45 4c 45 56 4b 4f 4e 54 4f 3a 20 22 3b 45 4c 45 56 28 41 23   ┆N";TAB(25);"ELEVKONTO: ";ELEV(A#┆
0x160…180 29 0d 34 39 37 30 20 20 20 20 20 43 50 52 24 3a 3d 53 54 52 24 28 43 50 52 29 0d 34 39 38 30 20   ┆) 4970     CPR$:=STR$(CPR) 4980 ┆
0x180…1a0 20 20 20 20 49 46 20 4c 45 4e 28 43 50 52 24 29 3d 35 20 54 48 45 4e 20 43 50 52 24 3a 3d 22 30   ┆    IF LEN(CPR$)=5 THEN CPR$:="0┆
0x1a0…1c0 22 2b 43 50 52 24 0d 34 39 39 30 20 20 20 20 20 49 46 20 4c 45 4e 28 43 50 52 24 29 3d 39 20 54   ┆"+CPR$ 4990     IF LEN(CPR$)=9 T┆
0x1c0…1e0 48 45 4e 20 43 50 52 24 3a 3d 22 30 22 2b 43 50 52 24 0d 35 30 30 30 20 20 20 20 20 50 52 49 4e   ┆HEN CPR$:="0"+CPR$ 5000     PRIN┆
0x1e0…200 54 20 41 4c 4d 24 0d 35 30 30 35 20 20 20 20 20 50 52 49 4e 54 20 0d 35 30 30 36 20 20 20 20 20   ┆T ALM$ 5005     PRINT  5006     ┆
0x200…220 50 52 49 4e 54 20 0d 35 30 31 30 20 20 20 20 20 50 52 49 4e 54 20 54 41 42 28 37 29 3b 4e 41 56   ┆PRINT  5010     PRINT TAB(7);NAV┆
0x220…240 4e 24 28 31 29 3b 54 41 42 28 36 36 29 3b 22 44 45 4e 3a 20 22 3b 0d 35 30 32 30 20 20 20 20 20   ┆N$(1);TAB(66);"DEN: "; 5020     ┆
0x240…260 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 2d 23 23 2d 23 23 22 3a 20 44 44 23 28 31 29 2c 44   ┆PRINT USING "##-##-##": DD#(1),D┆
0x260…280 44 23 28 32 29 2c 44 44 23 28 33 29 0d 35 30 33 30 20 20 20 20 20 50 52 49 4e 54 20 54 41 42 28   ┆D#(2),DD#(3) 5030     PRINT TAB(┆
0x280…2a0 37 29 3b 4e 41 56 4e 24 28 32 29 3b 54 41 42 28 36 36 29 3b 22 53 49 44 45 3a 20 20 22 3b 53 49   ┆7);NAVN$(2);TAB(66);"SIDE:  ";SI┆
0x2a0…2c0 44 45 23 0d 35 30 34 30 20 20 20 20 20 49 46 20 4e 41 56 4e 24 28 33 29 3d 22 22 20 54 48 45 4e   ┆DE# 5040     IF NAVN$(3)="" THEN┆
0x2c0…2e0 20 4e 41 56 4e 24 28 33 29 3a 3d 22 20 22 0d 35 30 35 30 20 20 20 20 20 49 46 20 4e 41 56 4e 24   ┆ NAVN$(3):=" " 5050     IF NAVN$┆
0x2e0…300 28 34 29 3d 22 22 20 54 48 45 4e 20 4e 41 56 4e 24 28 34 29 3a 3d 22 20 22 0d 35 30 36 30 20 20   ┆(4)="" THEN NAVN$(4):=" " 5060  ┆
0x300…320 20 20 20 50 52 49 4e 54 20 54 41 42 28 37 29 3b 4e 41 56 4e 24 28 33 29 3b 54 41 42 28 33 32 29   ┆   PRINT TAB(7);NAVN$(3);TAB(32)┆
0x320…340 3b 22 45 4c 45 56 20 20 3a 20 22 3b 45 4c 45 56 4e 41 56 4e 24 0d 35 30 37 30 20 20 20 20 20 50   ┆;"ELEV  : ";ELEVNAVN$ 5070     P┆
0x340…360 52 49 4e 54 20 54 41 42 28 37 29 3b 4e 41 56 4e 24 28 34 29 3b 54 41 42 28 33 32 29 3b 22 43 50   ┆RINT TAB(7);NAVN$(4);TAB(32);"CP┆
0x360…380 52 2d 4e 52 3a 20 22 3b 0d 35 30 38 30 20 20 20 20 20 49 46 20 4c 45 4e 28 43 50 52 24 29 3d 36   ┆R-NR: "; 5080     IF LEN(CPR$)=6┆
0x380…3a0 20 54 48 45 4e 20 0d 35 30 39 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 50 52 24 28 31 3a 32   ┆ THEN  5090       PRINT CPR$(1:2┆
0x3a0…3c0 29 3b 22 2e 22 3b 43 50 52 24 28 33 3a 34 29 3b 22 2e 22 3b 43 50 52 24 28 35 3a 36 29 0d 35 31   ┆);".";CPR$(3:4);".";CPR$(5:6) 51┆
0x3c0…3e0 30 30 20 20 20 20 20 45 4c 49 46 20 4c 45 4e 28 43 50 52 24 29 3d 31 30 20 54 48 45 4e 20 0d 35   ┆00     ELIF LEN(CPR$)=10 THEN  5┆
0x3e0…400 31 31 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 43 50 52 24 28 31 3a 32 29 3b 22 2e 22 3b 43 50   ┆110       PRINT CPR$(1:2);".";CP┆
0x400…420 52 24 28 33 3a 34 29 3b 22 2e 22 3b 43 50 52 24 28 35 3a 36 29 3b 22 2e 22 3b 43 50 52 24 28 37   ┆R$(3:4);".";CPR$(5:6);".";CPR$(7┆
0x420…440 3a 31 30 29 0d 35 31 32 30 20 20 20 20 20 45 4c 53 45 20 0d 35 31 33 30 20 20 20 20 20 20 20 50   ┆:10) 5120     ELSE  5130       P┆
0x440…460 52 49 4e 54 20 0d 35 31 34 30 20 20 20 20 20 45 4e 44 49 46 20 0d 35 31 34 31 20 20 20 20 20 50   ┆RINT  5140     ENDIF  5141     P┆
0x460…480 52 49 4e 54 20 0d 35 31 35 30 20 20 20 20 20 50 52 49 4e 54 20 0d 35 31 36 30 20 20 20 20 20 45   ┆RINT  5150     PRINT  5160     E┆
0x480…4a0 58 45 43 20 44 4f 42 42 45 4c 54 53 54 52 45 47 0d 35 31 37 30 20 20 20 20 20 50 52 49 4e 54 20   ┆XEC DOBBELTSTREG 5170     PRINT ┆
0x4a0…4c0 0d 35 31 38 30 20 20 20 20 20 50 52 49 4e 54 20 0d 35 31 39 30 20 20 20 20 20 45 58 45 43 20 4f   ┆ 5180     PRINT  5190     EXEC O┆
0x4c0…4e0 56 45 52 53 4b 52 49 46 54 4b 4f 4e 54 4f 0d 35 32 30 30 20 20 20 20 20 45 58 45 43 20 45 4e 4b   ┆VERSKRIFTKONTO 5200     EXEC ENK┆
0x4e0…500 45 4c 54 53 54 52 45 47 0d 35 32 31 30 20 20 20 20 20 50 52 49 4e 54 20 0d 35 32 32 30 20 20 20   ┆ELTSTREG 5210     PRINT  5220   ┆
0x500…520 20 20 50 52 49 4e 54 20 0d 35 32 33 30 20 20 20 20 20 49 46 20 56 49 44 23 3d 46 41 4c 53 45 20   ┆  PRINT  5230     IF VID#=FALSE ┆
0x520…540 54 48 45 4e 20 0d 35 32 34 30 20 20 20 20 20 20 20 50 52 49 4e 54 20 54 41 42 28 32 30 29 3b 22   ┆THEN  5240       PRINT TAB(20);"┆
0x540…560 53 41 4c 44 4f 20 46 52 41 20 46 4f 52 49 47 45 20 53 49 44 45 22 3b 0d 35 32 35 30 20 20 20 20   ┆SALDO FRA FORIGE SIDE"; 5250    ┆
0x560…580 20 20 20 49 46 20 53 41 4c 44 4f 3c 30 20 54 48 45 4e 20 0d 35 32 36 30 20 20 20 20 20 20 20 20   ┆   IF SALDO<0 THEN  5260        ┆
0x580…5a0 20 50 52 49 4e 54 20 54 41 42 28 36 38 29 3b 0d 35 32 37 30 20 20 20 20 20 20 20 45 4c 53 45 20   ┆ PRINT TAB(68); 5270       ELSE ┆
0x5a0…5c0 0d 35 32 38 30 20 20 20 20 20 20 20 20 20 50 52 49 4e 54 20 54 41 42 28 35 32 29 3b 0d 35 32 39   ┆ 5280         PRINT TAB(52); 529┆
0x5c0…5e0 30 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 35 33 30 30 20 20 20 20 20 20 20 50 52 49 4e 54 20   ┆0       ENDIF  5300       PRINT ┆
0x5e0…600 55 53 49 4e 47 20 42 55 46 24 3a 20 53 41 4c 44 4f 0d 35 33 31 30 20 20 20 20 20 20 20 50 52 49   ┆USING BUF$: SALDO 5310       PRI┆
0x600…620 4e 54 20 0d 35 33 32 30 20 20 20 20 20 45 4e 44 49 46 20 0d 35 33 33 30 20 20 20 20 20 54 5b 4c   ┆NT  5320     ENDIF  5330     TÆL┆
0x620…640 53 49 44 45 23 3a 3d 30 0d 35 33 34 30 20 20 20 45 4e 44 50 52 4f 43 20 4e 59 53 49 44 45 4c 50   ┆SIDE#:=0 5340   ENDPROC NYSIDELP┆
0x640…660 0d 20 20 20 20 20 20 20 45 4e 44 49 46 20 0d 35 33 30 30 20 20 20 20 20 20 20 50 52 49 4e 54 20   ┆        ENDIF  5300       PRINT ┆
0x660…680 55 53 49 4e 47 20 42 55 46 24 3a 20 53 41 4c 44 4f 0d 35 33 31 30 20 20 20 20 20 20 20 50 52 41   ┆USING BUF$: SALDO 5310       PRA┆