|
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 - download
Length: 10752 (0x2a00)
Types: dBASE-II
Names: »PANELOPR.DBF«
└─⟦9c8e44efc⟧ Bits:30005957 Std. Rammesystem
└─⟦this⟧ »PANELOPR.DBF«
| LINIE |
|---|
| 0,0 SAY 'RC REGISTER-SYSTEM' |
| 2,25 SAY CHR(133)+'*** D E M O ***'+CHR(128) |
| 4,0 SAY ' EFTERNAVN '+XKEY |
| 5,0 SAY ' FORNAVN ' |
| 5,13 GET FORNAVN |
| 6,0 SAY ' TLFNR ' |
| 6,13 GET TLFNR |
| 18,0 SAY 'Funktions-valg O(pret), R(et), S(let), V(is), H(op til menu) ' |
| 18,63 GET XFUNK PICT '!' |
0x0000…0209 Header {
0x0000…0209 version = 0x02 // 0x0 @0x0
0x0000…0209 nrec = 0x0009 // 0x1 @0x1
0x0000…0209 month = 0x00 // 0x3 @0x3
0x0000…0209 day = 0x00 // 0x4 @0x4
0x0000…0209 year = 0x00 // 0x5 @0x5
0x0000…0209 recsz = 0x0051 // 0x6 @0x6
0x0000…0209 flddef = [ // 0x8 @0x8
0x0000…0209 [0x0]: FldDef {fname=»LINIE «, ftype=»C«, flen=0x50, fadr=0x70b9, fdec=0x00}
0x0000…0209 ]
0x0000…0209 }
0x0209…04e2 [
0x0209…04e2 [0x0]: Rec {status=» «, LINIE=»@ 0,0 SAY 'RC REGISTER-SYSTEM' «}
0x0209…04e2 [0x1]: Rec {status=» «, LINIE=»@ 2,25 SAY CHR(133)+'*** D E M O ***'+CHR(128) «}
0x0209…04e2 [0x2]: Rec {status=» «, LINIE=»@ 4,0 SAY ' EFTERNAVN '+XKEY «}
0x0209…04e2 [0x3]: Rec {status=» «, LINIE=»@ 5,0 SAY ' FORNAVN ' «}
0x0209…04e2 [0x4]: Rec {status=» «, LINIE=»@ 5,13 GET FORNAVN «}
0x0209…04e2 [0x5]: Rec {status=» «, LINIE=»@ 6,0 SAY ' TLFNR ' «}
0x0209…04e2 [0x6]: Rec {status=» «, LINIE=»@ 6,13 GET TLFNR «}
0x0209…04e2 [0x7]: Rec {status=» «, LINIE=»@ 18,0 SAY 'Funktions-valg O(pret), R(et), S(let), V(is), H(op til menu) ' «}
0x0209…04e2 [0x8]: Rec {status=» «, LINIE=»@ 18,63 GET XFUNK PICT '!' «}
0x0209…04e2 ]
0x04e2…0500 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 20 20 20 20 20 20 20 20 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 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 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 20 20 20 20 20 20 20 20 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 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 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 20 20 20 20 20 20 20 20 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 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 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 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 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┆
0x1ac0…1ae0 30 2c 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 ┆0,0 ┆
0x1ae0…1b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1b00…1b20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 53 54 4f 52 45 20 58 4b 45 59 4c 47 44 20 54 4f 20 58 ┆ * STORE XKEYLGD TO X┆
0x1b20…1b40 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 20 20 20 20 20 20 20 ┆KEY ┆
0x1b40…1b60 20 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 40 ┆ * @┆
0x1b60…1b80 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 20 20 ┆ 19,5 SAY &XPROMT1 ┆
0x1b80…1ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ba0…1bc0 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 20 20 ┆ * READ ┆
0x1bc0…1be0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1be0…1c00 20 20 20 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 ┆ * ┆
0x1c00…1c20 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 20 20 ┆ IF TRIM(XKEY)=' ' ┆
0x1c20…1c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c40…1c60 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 20 20 ┆ * &XLIN18 ┆
0x1c60…1c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1c80…1ca0 20 20 20 20 20 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 ┆ * ┆
0x1ca0…1cc0 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 20 20 ┆ READ ┆
0x1cc0…1ce0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ce0…1d00 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 20 20 ┆ * ELSE ┆
0x1d00…1d20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d20…1d40 20 20 20 20 20 20 20 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 ┆ *┆
0x1d40…1d60 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 20 20 ┆ FIND &XKEY ┆
0x1d60…1d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1d80…1da0 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 20 23 ┆ * STORE #┆
0x1da0…1dc0 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 20 20 ┆ TO XRECNR ┆
0x1dc0…1de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1de0…1e00 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 20 20 ┆ * IF XRECNR=0 ┆
0x1e00…1e20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1e20…1e40 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 40 20 ┆ * @ ┆
0x1e40…1e60 32 34 2c 30 20 53 41 59 20 27 2a 2a 2a 20 46 49 4e 44 45 53 20 49 4b 4b 45 20 49 20 52 45 47 49 ┆24,0 SAY '*** FINDES IKKE I REGI┆
0x1e60…1e80 53 54 45 52 45 54 27 2b 43 48 52 28 37 29 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆STERET'+CHR(7) ┆
0x1e80…1ea0 20 20 20 2a 20 20 20 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 ┆
0x1ea0…1ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1ec0…1ee0 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 ┆ * ┆
0x1ee0…1f00 53 45 54 20 46 4f 52 4d 41 54 20 54 4f 20 47 45 50 41 4e 56 49 53 20 20 20 20 20 20 20 20 20 20 ┆SET FORMAT TO GEPANVIS ┆
0x1f00…1f20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x1f20…1f40 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 4e 27 20 54 4f 20 58 46 ┆ * STORE 'N' TO XF┆
0x1f40…1f60 55 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆UNK ┆
0x1f60…1f80 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 ┆ * ┆
0x1f80…1fa0 20 20 53 54 4f 52 45 20 27 2e 2e 53 4c 45 54 4e 49 4e 47 20 75 64 66 7c 72 65 73 2c 20 68 76 69 ┆ STORE '..SLETNING udføres, hvi┆
0x1fa0…1fc0 73 20 64 75 20 74 61 73 74 65 72 20 4a 20 66 6f 72 20 4a 41 20 27 20 54 4f 20 58 4d 53 47 20 20 ┆s du taster J for JA ' TO XMSG ┆
0x1fc0…1fe0 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 ┆
0x1fe0…2000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2000…2020 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 ┆ * ┆
0x2020…2040 20 20 20 20 49 46 20 40 28 21 28 58 46 55 4e 4b 29 2c 27 4a 27 29 3e 30 20 20 20 20 20 20 20 20 ┆ IF @(!(XFUNK),'J')>0 ┆
0x2040…2060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2060…2080 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4c 45 54 45 20 46 ┆ * DELETE F┆
0x2080…20a0 4f 52 20 26 58 4b 45 59 49 4e 46 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR &XKEYINFO ┆
0x20a0…20c0 20 20 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 ┆ * ┆
0x20c0…20e0 20 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 ┆ ENDIF ┆
0x20e0…2100 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2100…2120 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 41 ┆ * SET FORMA┆
0x2120…2140 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 20 20 20 ┆T TO ┆
0x2140…2160 20 20 20 20 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 ┆ * ┆
0x2160…2180 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 20 20 20 ┆ STORE 1 TO XAKTIV ┆
0x2180…21a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x21a0…21c0 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 54 4f 52 45 20 27 ┆ * STORE '┆
0x21c0…21e0 20 27 20 54 4f 20 58 4d 53 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ' TO XMSG ┆
0x21e0…2200 20 20 20 20 20 20 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 ┆ * ┆
0x2200…2220 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 27 53 27 20 54 4f 20 58 46 55 4e 4b 20 20 20 20 ┆ STORE 'S' TO XFUNK ┆
0x2220…2240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2240…2260 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 20 ┆ * ENDIF ┆
0x2260…2280 20 20 20 20 20 20 20 20 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…]
0x22a0…22c0 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 20 ┆* ENDIF ┆
0x22c0…22e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x22e0…2300 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 20 ┆ * ENDIF ┆
0x2300…2320 20 20 20 20 20 20 20 20 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…]
0x2340…2360 20 20 2a 20 20 49 46 20 58 46 55 4e 4b 3d 27 42 27 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * IF XFUNK='B' ┆
0x2360…2380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2380…23a0 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 47 4f 54 4f 20 54 4f ┆ * GOTO TO┆
0x23a0…23c0 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆P ┆
0x23c0…23e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x23e0…2400 20 20 20 20 2a 20 20 20 20 20 53 54 4f 52 45 20 27 2b 27 20 54 4f 20 58 46 55 4e 4b 20 20 20 20 ┆ * STORE '+' TO XFUNK ┆
0x2400…2420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2420…2440 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 44 4f 20 57 48 ┆ * DO WH┆
0x2440…2460 49 4c 45 20 58 46 55 4e 4b 3d 27 2b 27 20 2e 4f 52 2e 20 58 46 55 4e 4b 3d 27 2d 27 20 20 20 20 ┆ILE XFUNK='+' .OR. XFUNK='-' ┆
0x2460…2480 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2480…24a0 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 40 20 31 39 2c 35 20 53 41 59 20 27 42 4c 41 44 52 ┆ * @ 19,5 SAY 'BLADR┆
0x24a0…24c0 49 4e 47 20 66 72 65 6d 20 2b 2c 20 74 69 6c 62 61 67 65 20 2d 2c 20 61 6e 64 65 74 20 3d 20 73 ┆ING frem +, tilbage -, andet = s┆
0x24c0…24e0 6c 75 74 20 20 20 27 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 ┆lut ' * ┆
0x24e0…2500 52 45 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 ┆READ ┆
0x2500…2520 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2520…2540 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 49 46 20 58 46 55 4e 4b 3d 27 2b 27 20 20 20 ┆ * IF XFUNK='+' ┆
0x2540…2560 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2560…2580 20 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 ┆ * ┆
0x2580…25a0 20 20 20 20 20 53 4b 49 50 20 2b 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SKIP +1 ┆
0x25a0…25c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x25c0…25e0 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 20 20 20 20 20 ┆ * ELSE ┆
0x25e0…2600 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2600…2620 20 20 20 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 ┆ * ┆
0x2620…2640 20 20 20 20 20 20 20 53 4b 49 50 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SKIP -1 ┆
0x2640…2660 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2660…2680 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 20 20 20 20 ┆ * ENDIF ┆
0x2680…26a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x26a0…26c0 20 20 20 20 20 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 ┆ * ┆
0x26c0…26e0 20 20 20 20 20 20 53 54 4f 52 45 20 26 46 45 4c 54 4e 41 56 4e 20 54 4f 20 58 4b 45 59 20 20 20 ┆ STORE &FELTNAVN TO XKEY ┆
0x26e0…2700 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2700…2720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 53 45 54 20 46 4f 52 4d 41 ┆ * SET FORMA┆
0x2720…2740 54 20 54 4f 20 47 45 50 41 4e 56 49 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T TO GEPANVIS ┆
0x2740…2760 20 20 20 20 20 20 20 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 ┆ *┆
0x2760…2780 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 ┆
0x2780…27a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x27a0…27c0 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 45 54 20 46 4f 52 ┆ * SET FOR┆
0x27c0…27e0 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 20 ┆MAT TO ┆
0x27e0…2800 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2800…2820 20 2a 20 20 20 20 20 45 4e 44 44 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ENDDO ┆
0x2820…2840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2840…2860 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 ┆
0x2860…2880 20 20 20 20 20 20 20 20 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…]
0x28a0…28c0 20 20 20 2a 45 4e 44 44 4f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *ENDDO ┆
0x28c0…28e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28e0…2900 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 52 45 54 55 52 4e 20 20 20 20 20 ┆ *RETURN ┆
0x2900…2920 20 20 20 20 20 20 20 20 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…]
0x2940…2960 20 20 20 20 20 1a 20 20 46 49 4e 44 20 26 58 4b 45 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FIND &XKEY ┆
0x2960…2980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2980…29a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 54 4f 52 45 20 23 ┆ STORE #┆
0x29a0…29c0 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 20 20 ┆ TO XRECNR ┆
0x29c0…29e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x29e0…2a00 20 20 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 20 20 ┆ IF XRECNR=0 ┆