|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC850 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC850 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 10752 (0x2a00)
Names: »PANELOPR.DBF«
└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
└─⟦this⟧ »PANELOPR.DBF«
0x0000…0020 (0,) 02 09 00 00 00 00 51 00 4c 49 4e 49 45 00 00 00 00 00 00 43 50 b9 70 00 0d 00 00 00 00 00 00 00 ┆ Q LINIE CP p ┆
0x0020…0040 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 ┆ ┆
[…0xe…]
0x0200…0220 (1,) 00 00 00 00 00 00 00 00 00 20 40 20 30 2c 30 20 53 41 59 20 27 52 43 20 20 20 20 20 20 20 20 20 ┆ @ 0,0 SAY 'RC ┆
0x0220…0240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 47 49 53 54 45 52 2d 53 59 53 54 45 4d ┆ REGISTER-SYSTEM┆
0x0240…0260 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 32 2c 32 ┆' @ 2,2┆
0x0260…0280 35 20 53 41 59 20 43 48 52 28 31 33 33 29 2b 27 2a 2a 2a 20 20 44 20 45 20 4d 20 4f 20 20 20 20 ┆5 SAY CHR(133)+'*** D E M O ┆
0x0280…02a0 20 2a 2a 2a 27 2b 43 48 52 28 31 32 38 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ***'+CHR(128) ┆
0x02a0…02c0 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 34 2c 30 20 53 41 59 20 27 20 45 46 54 45 52 4e 41 ┆ @ 4,0 SAY ' EFTERNA┆
0x02c0…02e0 56 4e 20 20 20 27 2b 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VN '+XKEY ┆
0x02e0…0300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 ┆ @ ┆
0x0300…0320 35 2c 30 20 53 41 59 20 27 20 46 4f 52 4e 41 56 4e 20 20 20 20 20 27 20 20 20 20 20 20 20 20 20 ┆5,0 SAY ' FORNAVN ' ┆
0x0320…0340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0340…0360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 35 2c 31 33 20 47 45 54 20 20 46 4f 52 4e 41 ┆ @ 5,13 GET FORNA┆
0x0360…0380 56 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆VN ┆
0x0380…03a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 ┆ @┆
0x03a0…03c0 20 20 36 2c 30 20 53 41 59 20 27 20 54 4c 46 4e 52 20 20 20 20 20 20 20 27 20 20 20 20 20 20 20 ┆ 6,0 SAY ' TLFNR ' ┆
0x03c0…03e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e0…0400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 36 2c 31 33 20 47 45 54 20 20 54 4c 46 ┆ @ 6,13 GET TLF┆
0x0400…0420 (2,) 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR ┆
0x0420…0440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0440…0460 20 40 20 31 38 2c 30 20 53 41 59 20 27 46 75 6e 6b 74 69 6f 6e 73 2d 76 61 6c 67 20 4f 28 70 72 ┆ @ 18,0 SAY 'Funktions-valg O(pr┆
0x0460…0480 65 74 29 2c 20 52 28 65 74 29 2c 20 53 28 6c 65 74 29 2c 20 56 28 69 73 29 2c 20 48 28 6f 70 20 ┆et), R(et), S(let), V(is), H(op ┆
0x0480…04a0 74 69 6c 20 6d 65 6e 75 29 20 27 20 20 20 20 20 20 20 40 20 31 38 2c 36 33 20 20 47 45 54 20 58 ┆til menu) ' @ 18,63 GET X┆
0x04a0…04c0 46 55 4e 4b 20 50 49 43 54 20 27 21 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FUNK PICT '!' ┆
0x04c0…04e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04e0…0500 20 20 1a 40 20 32 30 2c 30 20 53 41 59 20 58 4d 53 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ @ 20,0 SAY XMSG ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0520…0540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1a 40 20 20 38 2c 31 33 20 47 45 54 20 ┆ @ 8,13 GET ┆
0x0540…0560 20 49 4e 49 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ INIT ┆
0x0560…0580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0580…05a0 20 20 20 20 2a 40 20 20 39 2c 30 20 53 41 59 20 27 20 41 43 54 49 4f 4e 20 20 20 20 20 20 27 20 ┆ *@ 9,0 SAY ' ACTION ' ┆
0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x05c0…05e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 40 20 20 39 2c 31 33 20 47 45 ┆ *@ 9,13 GE┆
0x05e0…0600 54 20 20 41 43 54 49 4f 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T ACTION ┆
0x0600…0620 (3,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0620…0640 20 20 20 20 20 20 2a 40 20 31 38 2c 30 20 53 41 59 20 27 46 75 6e 6b 74 69 6f 6e 73 2d 76 61 6c ┆ *@ 18,0 SAY 'Funktions-val┆
0x0640…0660 67 20 4f 28 70 72 65 74 29 2c 20 52 28 65 74 29 2c 20 53 28 6c 65 74 29 2c 20 56 28 69 73 29 2c ┆g O(pret), R(et), S(let), V(is),┆
0x0660…0680 20 48 28 6f 70 20 74 69 6c 20 6d 65 6e 75 29 20 27 20 20 20 20 20 20 2a 40 20 31 38 2c 36 33 20 ┆ H(op til menu) ' *@ 18,63 ┆
0x0680…06a0 20 47 45 54 20 58 46 55 4e 4b 20 50 49 43 54 20 27 21 27 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GET XFUNK PICT '!' ┆
0x06a0…06c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06c0…06e0 20 20 20 20 20 20 20 20 1a 40 20 32 30 2c 30 20 53 41 59 20 58 4d 53 47 20 20 20 20 20 20 20 20 ┆ @ 20,0 SAY XMSG ┆
0x06e0…0700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1a 20 20 20 20 20 53 ┆ S┆
0x0720…0740 54 4f 52 45 20 58 4b 45 59 4c 47 44 20 54 4f 20 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 ┆TORE XKEYLGD TO XKEY ┆
0x0740…0760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0760…0780 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 40 20 32 34 2c 30 20 53 41 59 20 27 20 20 20 20 ┆ * @ 24,0 SAY ' ┆
0x0780…07a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 27 20 20 20 20 ┆ ' ┆
0x07a0…07c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 ┆ * ┆
0x07c0…07e0 20 40 20 31 39 2c 35 20 53 41 59 20 26 58 50 52 4f 4d 54 31 20 20 20 20 20 20 20 20 20 20 20 20 ┆ @ 19,5 SAY &XPROMT1 ┆
0x07e0…0800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0800…0820 (4,) 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 ┆ * READ ┆
0x0820…0840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0840…0860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 ┆ * ┆
0x0860…0880 20 20 20 49 46 20 54 52 49 4d 28 58 4b 45 59 29 3d 27 20 27 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF TRIM(XKEY)=' ' ┆
0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08a0…08c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 26 58 4c 49 4e 31 38 20 20 ┆ * &XLIN18 ┆
0x08c0…08e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08e0…0900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆
0x0900…0920 20 20 20 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ ┆
0x0920…0940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0940…0960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 45 4c 53 45 20 20 20 20 20 20 ┆ * ELSE ┆
0x0960…0980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x09a0…09c0 20 2a 20 20 20 20 20 20 20 20 46 49 4e 44 20 26 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * FIND &XKEY ┆
0x09c0…09e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09e0…0a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 53 54 4f 52 45 ┆ * STORE┆
0x0a00…0a20 (5,) 20 23 20 54 4f 20 58 52 45 43 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ # TO XRECNR ┆
0x0a20…0a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a40…0a60 20 20 20 2a 20 20 20 20 20 20 20 20 49 46 20 58 52 45 43 4e 52 3d 30 20 20 20 20 20 20 20 20 20 ┆ * IF XRECNR=0 ┆
0x0a60…0a80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0aa0…0ac0 41 50 50 45 4e 44 20 42 4c 41 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆APPEND BLANK ┆
0x0ac0…0ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ae0…0b00 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 52 45 50 4c 41 43 45 20 26 58 4b 45 59 49 4e ┆ * REPLACE &XKEYIN┆
0x0b00…0b20 46 4f 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FO2 ┆
0x0b20…0b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 ┆ * ┆
0x0b40…0b60 20 20 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 47 45 50 41 4e 4f 50 52 20 20 20 20 20 20 20 20 ┆ SET FORMAT TO GEPANOPR ┆
0x0b60…0b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0b80…0ba0 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 ┆ * READ ┆
0x0ba0…0bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bc0…0be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 ┆ * ┆
0x0be0…0c00 20 20 20 20 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SET FORMAT TO ┆
0x0c00…0c20 (6,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 ┆ * STORE 1 TO ┆
0x0c40…0c60 58 41 4b 54 49 56 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XAKTIV ┆
0x0c60…0c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 ┆ * ┆
0x0c80…0ca0 20 20 20 45 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0cc0…0ce0 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 40 20 32 34 2c 30 20 53 41 ┆ * @ 24,0 SA┆
0x0ce0…0d00 59 20 27 2a 2a 2a 20 45 52 20 4f 50 52 45 54 54 45 54 20 2e 2e 2e 27 20 20 20 20 20 20 20 20 20 ┆Y '*** ER OPRETTET ...' ┆
0x0d00…0d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 ┆ * ┆
0x0d20…0d40 20 20 20 20 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ENDIF ┆
0x0d40…0d60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0d60…0d80 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 ┆ * ENDIF ┆
0x0d80…0da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0da0…0dc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆ * ┆
0x0dc0…0de0 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ENDIF ┆
0x0de0…0e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0e00…0e20 (7,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 49 46 20 58 46 55 4e 4b 3d 27 52 27 20 20 ┆ * IF XFUNK='R' ┆
0x0e20…0e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x0e60…0e80 2a 20 20 20 20 20 53 54 4f 52 45 20 58 4b 45 59 4c 47 44 20 54 4f 20 58 4b 45 59 20 20 20 20 20 ┆* STORE XKEYLGD TO XKEY ┆
0x0e80…0ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0ea0…0ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 40 20 31 39 2c 35 20 53 41 ┆ * @ 19,5 SA┆
0x0ec0…0ee0 59 20 26 58 50 52 4f 4d 54 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Y &XPROMT1 ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f00…0f20 20 20 2a 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * READ ┆
0x0f20…0f40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f40…0f60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 49 46 20 54 52 49 4d ┆ * IF TRIM┆
0x0f60…0f80 28 58 4b 45 59 29 3d 27 20 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(XKEY)=' ' ┆
0x0f80…0fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fa0…0fc0 20 20 20 20 2a 20 20 20 20 20 20 20 20 26 58 4c 49 4e 31 38 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * &XLIN18 ┆
0x0fc0…0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fe0…1000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 52 45 ┆ * RE┆
0x1000…1020 (8,) 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AD ┆
0x1020…1040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1040…1060 20 20 20 20 20 20 2a 20 20 20 20 20 45 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ELSE ┆
0x1060…1080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1080…10a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 ┆ * ┆
0x10a0…10c0 46 49 4e 44 20 26 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FIND &XKEY ┆
0x10c0…10e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x10e0…1100 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 58 52 45 43 ┆ * STORE # TO XREC┆
0x1100…1120 4e 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NR ┆
0x1120…1140 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 ┆ * ┆
0x1140…1160 20 20 49 46 20 58 52 45 43 4e 52 3d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ IF XRECNR=0 ┆
0x1160…1180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1180…11a0 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 40 20 32 34 2c 30 20 53 41 59 ┆ * @ 24,0 SAY┆
0x11a0…11c0 20 27 2a 2a 2a 20 46 49 4e 44 45 53 20 49 4b 4b 45 20 49 20 52 45 47 49 53 54 45 52 45 54 27 2b ┆ '*** FINDES IKKE I REGISTERET'+┆
0x11c0…11e0 43 48 52 28 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 ┆CHR(7) * ┆
0x11e0…1200 20 20 20 20 45 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE ┆
0x1200…1220 (9,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1220…1240 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 46 4f 52 4d ┆ * SET FORM┆
0x1240…1260 41 54 20 54 4f 20 47 45 50 41 4e 4f 50 52 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AT TO GEPANOPR ┆
0x1260…1280 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 ┆ * ┆
0x1280…12a0 20 20 20 20 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ READ ┆
0x12a0…12c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x12c0…12e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 46 4f ┆ * SET FO┆
0x12e0…1300 52 4d 41 54 20 54 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RMAT TO ┆
0x1300…1320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆ *┆
0x1320…1340 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 31 20 54 4f 20 58 41 4b 54 49 56 20 20 20 20 ┆ STORE 1 TO XAKTIV ┆
0x1340…1360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 45 4e 44 49 46 20 20 ┆ * ENDIF ┆
0x1380…13a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x13c0…13e0 20 2a 20 20 20 20 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ENDIF ┆
0x13e0…1400 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1400…1420 (10,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 45 4e 44 49 46 20 20 20 20 20 20 ┆ * ENDIF ┆
0x1420…1440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x1460…1480 20 20 20 2a 20 20 49 46 20 58 46 55 4e 4b 3d 27 56 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * IF XFUNK='V' ┆
0x1480…14a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x14a0…14c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 53 54 4f 52 45 20 ┆ * STORE ┆
0x14c0…14e0 58 4b 45 59 4c 47 44 20 54 4f 20 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆XKEYLGD TO XKEY ┆
0x14e0…1500 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1500…1520 20 20 20 20 20 2a 20 20 20 20 20 40 20 31 39 2c 35 20 53 41 59 20 26 58 50 52 4f 4d 54 31 20 20 ┆ * @ 19,5 SAY &XPROMT1 ┆
0x1520…1540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1540…1560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 52 45 41 44 ┆ * READ┆
0x1560…1580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x15a0…15c0 20 20 20 20 20 20 20 2a 20 20 20 20 20 49 46 20 54 52 49 4d 28 58 4b 45 59 29 3d 27 20 27 20 20 ┆ * IF TRIM(XKEY)=' ' ┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x15e0…1600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 ┆ * ┆
0x1600…1620 (11,) 20 26 58 4c 49 4e 31 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ &XLIN18 ┆
0x1620…1640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1640…1660 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 52 45 41 44 20 20 20 20 20 20 20 20 20 20 ┆ * READ ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1680…16a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 ┆ * ┆
0x16a0…16c0 45 4c 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ELSE ┆
0x16c0…16e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x16e0…1700 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 46 49 4e 44 20 26 58 4b 45 59 20 20 ┆ * FIND &XKEY ┆
0x1700…1720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1720…1740 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 ┆ * ┆
0x1740…1760 20 20 20 20 20 53 54 4f 52 45 20 23 20 54 4f 20 58 52 45 43 4e 52 20 20 20 20 20 20 20 20 20 20 ┆ STORE # TO XRECNR ┆
0x1760…1780 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1780…17a0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 49 46 20 58 52 45 43 4e 52 3d ┆ * IF XRECNR=┆
0x17a0…17c0 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 ┆
0x17c0…17e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆ * ┆
0x17e0…1800 20 20 20 20 20 20 20 20 20 20 40 20 32 34 2c 30 20 53 41 59 20 27 2a 2a 2a 20 46 49 4e 44 45 53 ┆ @ 24,0 SAY '*** FINDES┆
0x1800…1820 (12,) 20 49 4b 4b 45 20 49 20 52 45 47 49 53 54 45 52 45 54 27 2b 43 48 52 28 37 29 20 20 20 20 20 20 ┆ IKKE I REGISTERET'+CHR(7) ┆
0x1820…1840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 45 4c 53 45 20 20 20 20 ┆ * ELSE ┆
0x1840…1860 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x1880…18a0 2a 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 47 45 50 41 4e 56 ┆* SET FORMAT TO GEPANV┆
0x18a0…18c0 49 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IS ┆
0x18c0…18e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 52 45 41 ┆ * REA┆
0x18e0…1900 44 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆D ┆
0x1900…1920 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1920…1940 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 20 20 20 20 ┆ * SET FORMAT TO ┆
0x1940…1960 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1960…1980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 45 4e 44 49 ┆ * ENDI┆
0x1980…19a0 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆F ┆
0x19a0…19c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x19c0…19e0 20 20 20 20 2a 20 20 20 20 20 45 4e 44 49 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ENDIF ┆
0x19e0…1a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1a00…1a20 (13,) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 45 4e 44 49 46 20 20 20 ┆ * ENDIF ┆
0x1a20…1a40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
[…0x1…]
0x1a60…1a80 20 20 20 20 20 20 2a 20 20 49 46 20 58 46 55 4e 4b 3d 27 53 27 20 20 20 20 20 20 20 20 20 20 20 ┆ * IF XFUNK='S' ┆
0x1a80…1aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1aa0…1ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 40 20 32 ┆ * @ 2┆
[…truncated at 200 lines…]