|
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 - metrics - downloadIndex: 5 A B C D E F G H I J K L M O P R S T U V
Length: 327680 (0x50000)
Description: Bits:30003895/4xCOMAL3b.imd 4 * COMAL - SPC/1 - Disketter til bogen
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| 10 | K | ABC_SORT | ⟦8b725b189⟧ Mikados TextFile, Mikados_K |
| 4 | K | ADDITION | ⟦1b3592dd4⟧ Mikados TextFile, Mikados_K |
| 1 | K | AFRUND | ⟦2037cc818⟧ Mikados TextFile, Mikados_K |
| 6 | K | AKTIER | ⟦ca09841cf⟧ Mikados TextFile, Mikados_K |
| 7 | K | ANALYSE | ⟦c1e8d91dc⟧ Mikados TextFile, Mikados_K |
| 6 | K | ANDENGR3 | ⟦9aba268f9⟧ Mikados TextFile, Mikados_K |
| 4 | K | ANNUITET | ⟦47cfe3467⟧ Mikados TextFile, Mikados_K |
| 10 | K | BINOMIAL | ⟦45aae84df⟧ Mikados TextFile, Mikados_K |
| 6 | K | BINÆR_1 | ⟦140266485⟧ Mikados TextFile, Mikados_K |
| 10 | K | BLINK | ⟦0196d33dc⟧ Mikados TextFile, Mikados_K |
| 10 | K | BRIDGEJU | ⟦d84bed68a⟧ Mikados TextFile, Mikados_K |
| 10 | K | BØDE | ⟦7e803731b⟧ Mikados TextFile, Mikados_K |
| 10 | K | COSHYP | ⟦efca6f0d9⟧ Mikados TextFile, Mikados_K |
| 4 | K | CPRNUMRE | ⟦b7088b0cc⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO_2 | ⟦30bc51aa2⟧ Mikados TextFile, Mikados_K |
| 7 | K | DEMO_3 | ⟦dd49a6ded⟧ Mikados TextFile, Mikados_K |
| 6 | K | DEMO_EOF | ⟦57b80b21d⟧ Mikados TextFile, Mikados_K |
| 10 | K | DEMO_RAN | ⟦7c861e0c0⟧ Mikados TextFile, Mikados_K |
| 10 | K | EKSEOF | ⟦266cc621e⟧ Mikados TextFile, Mikados_K |
| 10 | K | EKSORD2 | ⟦dbe6fa6af⟧ Mikados TextFile, Mikados_K |
| 2 | K | EKS_ORD2 | ⟦a25f542d7⟧ Mikados TextFile, Mikados_K |
| 10 | K | EUROPA | ⟦28fd772c3⟧ Mikados TextFile, Mikados_K |
| 2 | K | FAHRENHE | ⟦fb67a3022⟧ Mikados TextFile, Mikados_K |
| 10 | K | FEJLPRG1 | ⟦75df631b7⟧ Mikados TextFile, Mikados_K |
| 4 | K | FIBONACC | ⟦2d23ceb31⟧ Mikados TextFile, Mikados_K |
| 8 | K | FLYBILLE | ⟦c704de0f1⟧ Mikados TextFile, Mikados_K |
| 2 | K | FUNKTION | ⟦a664bcdc9⟧ Mikados TextFile, Mikados_K |
| 4 | K | GAFFEL_F | ⟦0c78c69ea⟧ Mikados TextFile, Mikados_K |
| 3 | K | GRØNNE | ⟦bcb371f0a⟧ Mikados TextFile, Mikados_K |
| 6 | K | GULD | ⟦9a82eea77⟧ Mikados TextFile, Mikados_K |
| 3 | K | HANS | ⟦6a9097712⟧ Mikados TextFile, Mikados_K |
| 2 | K | HAVREN | ⟦fbb2121be⟧ Mikados TextFile, Mikados_K |
| 1 | K | HIGHSCOR | ⟦2301fd25a⟧ Mikados TextFile, Mikados_K |
| 10 | K | HJERTER_ | ⟦7707a2bf9⟧ Mikados TextFile, Mikados_K |
| 10 | K | HJERTTXT | ⟦c9d5cfda6⟧ Mikados TextFile, Mikados_K |
| 10 | K | IDEALVÆG | ⟦cce7d3190⟧ Mikados TextFile, Mikados_K |
| 10 | K | INFOSCR | ⟦c505110ad⟧ Mikados TextFile, Mikados_K |
| 4 | K | INVERS | ⟦ade7dddb0⟧ Mikados TextFile, Mikados_K |
| 10 | K | JOURNALN | ⟦6ba1583e1⟧ Mikados TextFile, Mikados_K |
| 10 | K | JULEBREV | ⟦1245ee304⟧ Mikados TextFile, Mikados_K |
| 10 | K | JYLLAND | ⟦04ff88ae7⟧ Mikados TextFile, Mikados_K |
| 4 | K | KASSE | ⟦4efda9ec0⟧ Mikados TextFile, Mikados_K |
| 5 | K | KEGLE | ⟦fd7eb55cd⟧ Mikados TextFile, Mikados_K |
| 10 | K | KLØRTXT | ⟦38b2eed3a⟧ Mikados TextFile, Mikados_K |
| 10 | K | KLØR_TES | ⟦32ff0ab9e⟧ Mikados TextFile, Mikados_K |
| 1 | K | KOPI_DIR | ⟦b15a41727⟧ Mikados TextFile, Mikados_K |
| 8 | K | KOPI_SEK | ⟦c9711f34c⟧ Mikados TextFile, Mikados_K |
| 10 | K | KRONEFOR | ⟦2f41a31a5⟧ Mikados TextFile, Mikados_K |
| 6 | K | KUGLE | ⟦90ffeeeba⟧ Mikados TextFile, Mikados_K |
| 2 | K | KVADRATT | ⟦daabeb5d2⟧ Mikados TextFile, Mikados_K |
| 10 | K | LOG10 | ⟦cda05bdf0⟧ Mikados TextFile, Mikados_K |
| 3 | K | MINIMUM | ⟦4ac2701c7⟧ Mikados TextFile, Mikados_K |
| 10 | K | MORSE1 | ⟦22311303f⟧ Mikados TextFile, Mikados_K |
| 10 | K | MORSE2 | ⟦f304b8f4f⟧ Mikados TextFile, Mikados_K |
| 3 | K | MÅNED2 | ⟦51ced1dc9⟧ Mikados TextFile, Mikados_K |
| 3 | K | MÅNED3 | ⟦cb8c984b8⟧ Mikados TextFile, Mikados_K |
| 6 | K | MÅNED_NA | ⟦a4ffc2a31⟧ Mikados TextFile, Mikados_K |
| 10 | K | MØNTKAST | ⟦326513f5d⟧ Mikados TextFile, Mikados_K |
| 10 | K | OMBYT | ⟦34e9dc421⟧ Mikados TextFile, Mikados_K |
| 6 | K | OPLYSNIN | ⟦3a41fbf19⟧ Mikados TextFile, Mikados_K |
| 1 | K | PH | ⟦64ab02967⟧ Mikados TextFile, Mikados_K |
| 5 | K | POLYGON | ⟦4ff153ab8⟧ Mikados TextFile, Mikados_K |
| 3 | K | POSTTAK1 | ⟦f3f8b1a2d⟧ Mikados TextFile, Mikados_K |
| 4 | K | POSTTAK3 | ⟦be6f4c69e⟧ Mikados TextFile, Mikados_K |
| 3 | K | PRIMTAL | ⟦0485f0ca7⟧ Mikados TextFile, Mikados_K |
| 10 | K | PYTHAGOR | ⟦3b3552362⟧ Mikados TextFile, Mikados_K |
| 5 | K | PÅSKEDAG | ⟦33fe221f1⟧ Mikados TextFile, Mikados_K |
| 10 | K | RAMMETXT | ⟦394c75809⟧ Mikados TextFile, Mikados_K |
| 10 | K | REGNEOPG | ⟦e22167579⟧ Mikados TextFile, Mikados_K |
| 4 | K | REJSEFIL | ⟦6bd981da4⟧ Mikados TextFile, Mikados_K |
| 3 | K | RENTEF2 | ⟦edcb1dcd6⟧ Mikados TextFile, Mikados_K |
| 5 | K | RESTSKAT | ⟦ee746d52e⟧ Mikados TextFile, Mikados_K |
| 4 | K | RET_LINI | ⟦456b80fea⟧ Mikados TextFile, Mikados_K |
| 10 | K | REVERS | ⟦cb975857b⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUDERTXT | ⟦fa6b5cb03⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUDER_TE | ⟦bcbafabf6⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUMFANG | ⟦64200d6f8⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUMFANG1 | ⟦7fbc9ff8e⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUMFANG2 | ⟦30df1b2cf⟧ Mikados TextFile, Mikados_K |
| 10 | K | RUMFANG4 | ⟦c013d9c2a⟧ Mikados TextFile, Mikados_K |
| 4 | K | SALGSPR1 | ⟦1f1c1026d⟧ Mikados TextFile, Mikados_K |
| 6 | K | SALGSPR3 | ⟦5b210aead⟧ Mikados TextFile, Mikados_K |
| 5 | K | SAMRENTE | ⟦b638dbf5e⟧ Mikados TextFile, Mikados_K |
| 10 | K | SIMPSON | ⟦c1f893c99⟧ Mikados TextFile, Mikados_K |
| 10 | K | SKOLEB2 | ⟦f2e828fa3⟧ Mikados TextFile, Mikados_K |
| 3 | K | SKOLEBØG | ⟦4628bd096⟧ Mikados TextFile, Mikados_K |
| 10 | K | SLUTSK1 | ⟦1a46e7e02⟧ Mikados TextFile, Mikados_K |
| 10 | K | SPAR_TES | ⟦a07d2c37a⟧ Mikados TextFile, Mikados_K |
| 7 | K | SPIL2_KO | ⟦0147167b4⟧ Mikados TextFile, Mikados_K |
| 10 | K | STRENGLÆ | ⟦3092ce2b1⟧ Mikados TextFile, Mikados_K |
| 10 | K | STRENGVA | ⟦71c9b32c3⟧ Mikados TextFile, Mikados_K |
| 4 | K | SUM_BRØ1 | ⟦9f9c11da4⟧ Mikados TextFile, Mikados_K |
| 5 | K | SUM_BRØ2 | ⟦bbedd6ddc⟧ Mikados TextFile, Mikados_K |
| 5 | K | SYPIGETI | ⟦3da81696e⟧ Mikados TextFile, Mikados_K |
| 10 | K | SYSTIME | ⟦6d4038eaf⟧ Mikados TextFile, Mikados_K |
| 4 | K | SØJLESUM | ⟦f9aed6fa0⟧ Mikados TextFile, Mikados_K |
| 7 | K | TELEFONN | ⟦8a4285cf4⟧ Mikados TextFile, Mikados_K |
| 2 | K | TERNING2 | ⟦0e1325527⟧ Mikados TextFile, Mikados_K |
| 2 | K | TREKANT2 | ⟦7b9d73685⟧ Mikados TextFile, Mikados_K |
| 6 | K | TREKANT8 | ⟦878e8d65a⟧ Mikados TextFile, Mikados_K |
| 10 | K | TRETTEN | ⟦d47870fd2⟧ Mikados TextFile, Mikados_K |
| 3 | K | UDSPRING | ⟦1009f8840⟧ Mikados TextFile, Mikados_K |
| 10 | K | UR | ⟦6718bd9da⟧ Mikados TextFile, Mikados_K |
| 5 | K | VARENUMM | ⟦2b6014478⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0045,0c (0x045c00)}, plart=»MIK «, pldto=»1981.06.12«, plbtg=»DDE «, pluda=» «}
0x00030…00040 1f 00 02 10 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x00040…00060 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 ┆ ┆
[…0x5…]
0x00100…00200 (0, 0, 2) DirSect {
0x00100…00200 dent = [ // 0x100 @0x0
0x00100…00200 [0x00]: DirEnt {name=»MØNTKAST«, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x004100)}}
0x00100…00200 [0x01]: DirEnt {name=»BRIDGEJU«, typ=»K«, seg=»A«, seg0={DA 003c,01 (0x03c100)}}
0x00100…00200 [0x02]: DirEnt {name=»TERNING2«, typ=»K«, seg=»A«, seg0={DA 003c,0b (0x03cb00)}}
0x00100…00200 [0x03]: DirEnt {name=»GRØNNE «, typ=»K«, seg=»A«, seg0={DA 003c,0d (0x03cd00)}}
0x00100…00200 [0x04]: DirEnt {name=»AKTIER «, typ=»K«, seg=»A«, seg0={DA 003d,00 (0x03d000)}}
0x00100…00200 [0x05]:
0x00100…00200 [0x06]:
0x00100…00200 [0x07]:
0x00100…00200 [0x08]:
0x00100…00200 [0x09]:
0x00100…00200 [0x0a]:
0x00100…00200 [0x0b]:
0x00100…00200 [0x0c]:
0x00100…00200 [0x0d]:
0x00100…00200 [0x0e]:
0x00100…00200 [0x0f]:
0x00100…00200 [0x10]:
0x00100…00200 [0x11]:
0x00100…00200 [0x12]:
0x00100…00200 ]
0x00100…00200 }
0x00200…00300 (0, 0, 3) EmptyDirSect
0x00300…00400 (0, 0, 4) DirSect {
0x00300…00400 dent = [ // 0x300 @0x0
0x00300…00400 [0x00]: DirEnt {name=»REVERS «, typ=»K«, seg=»A«, seg0={DA 0004,0b (0x004b00)}}
0x00300…00400 [0x01]: DirEnt {name=»BLINK «, typ=»K«, seg=»A«, seg0={DA 0005,05 (0x005500)}}
0x00300…00400 [0x02]: DirEnt {name=»BØDE «, typ=»K«, seg=»A«, seg0={DA 0005,0f (0x005f00)}}
0x00300…00400 [0x03]: DirEnt {name=»DEMO_RAN«, typ=»K«, seg=»A«, seg0={DA 0006,09 (0x006900)}}
0x00300…00400 [0x04]: DirEnt {name=»FLYBILLE«, typ=»K«, seg=»A«, seg0={DA 0008,07 (0x008700)}}
0x00300…00400 [0x05]: DirEnt {name=»FIBONACC«, typ=»K«, seg=»A«, seg0={DA 0009,07 (0x009700)}}
0x00300…00400 [0x06]: DirEnt {name=»REGNEOPG«, typ=»K«, seg=»A«, seg0={DA 003d,06 (0x03d600)}}
0x00300…00400 [0x07]: DirEnt {name=»INFOSCR «, typ=»K«, seg=»A«, seg0={DA 003e,0a (0x03ea00)}}
0x00300…00400 [0x08]:
0x00300…00400 [0x09]:
0x00300…00400 [0x0a]:
0x00300…00400 [0x0b]:
0x00300…00400 [0x0c]:
0x00300…00400 [0x0d]:
0x00300…00400 [0x0e]:
0x00300…00400 [0x0f]:
0x00300…00400 [0x10]:
0x00300…00400 [0x11]:
0x00300…00400 [0x12]:
0x00300…00400 ]
0x00300…00400 }
0x00400…00500 (0, 0, 5) EmptyDirSect
0x00500…00600 (0, 0, 6) DirSect {
0x00500…00600 dent = [ // 0x500 @0x0
0x00500…00600 [0x00]: DirEnt {name=»RUDER_TE«, typ=»K«, seg=»A«, seg0={DA 0009,0f (0x009f00)}}
0x00500…00600 [0x01]: DirEnt {name=»RUMFANG1«, typ=»K«, seg=»A«, seg0={DA 000c,07 (0x00c700)}}
0x00500…00600 [0x02]: DirEnt {name=»SYPIGETI«, typ=»K«, seg=»A«, seg0={DA 000d,0b (0x00db00)}}
0x00500…00600 [0x03]: DirEnt {name=»EKS_ORD2«, typ=»K«, seg=»A«, seg0={DA 000e,00 (0x00e000)}}
0x00500…00600 [0x04]: DirEnt {name=»EKSORD2 «, typ=»K«, seg=»A«, seg0={DA 003f,04 (0x03f400)}}
0x00500…00600 [0x05]: DirEnt {name=»KLØR_TES«, typ=»K«, seg=»A«, seg0={DA 003f,0e (0x03fe00)}}
0x00500…00600 [0x06]: DirEnt {name=»PÅSKEDAG«, typ=»K«, seg=»A«, seg0={DA 0042,06 (0x042600)}}
0x00500…00600 [0x07]:
0x00500…00600 [0x08]:
0x00500…00600 [0x09]:
0x00500…00600 [0x0a]:
0x00500…00600 [0x0b]:
0x00500…00600 [0x0c]:
0x00500…00600 [0x0d]:
0x00500…00600 [0x0e]:
0x00500…00600 [0x0f]:
0x00500…00600 [0x10]:
0x00500…00600 [0x11]:
0x00500…00600 [0x12]:
0x00500…00600 ]
0x00500…00600 }
0x00600…00700 (0, 0, 7) EmptyDirSect
0x00700…00800 (0, 0, 8) DirSect {
0x00700…00800 dent = [ // 0x700 @0x0
0x00700…00800 [0x00]: DirEnt {name=»MINIMUM «, typ=»K«, seg=»A«, seg0={DA 000e,02 (0x00e200)}}
0x00700…00800 [0x01]: DirEnt {name=»SØJLESUM«, typ=»K«, seg=»A«, seg0={DA 000e,05 (0x00e500)}}
0x00700…00800 [0x02]: DirEnt {name=»RUMFANG «, typ=»K«, seg=»A«, seg0={DA 0042,0b (0x042b00)}}
0x00700…00800 [0x03]: DirEnt {name=»KEGLE «, typ=»K«, seg=»A«, seg0={DA 0043,0f (0x043f00)}}
0x00700…00800 [0x04]:
0x00700…00800 [0x05]:
0x00700…00800 [0x06]:
0x00700…00800 [0x07]:
0x00700…00800 [0x08]:
0x00700…00800 [0x09]:
0x00700…00800 [0x0a]:
0x00700…00800 [0x0b]:
0x00700…00800 [0x0c]:
0x00700…00800 [0x0d]:
0x00700…00800 [0x0e]:
0x00700…00800 [0x0f]:
0x00700…00800 [0x10]:
0x00700…00800 [0x11]:
0x00700…00800 [0x12]:
0x00700…00800 ]
0x00700…00800 }
0x00800…00900 (0, 0, 9) EmptyDirSect
0x00900…00a00 (0, 0, 10) DirSect {
0x00900…00a00 dent = [ // 0x900 @0x0
0x00900…00a00 [0x00]: DirEnt {name=»SUM_BRØ1«, typ=»K«, seg=»A«, seg0={DA 000e,09 (0x00e900)}}
0x00900…00a00 [0x01]: DirEnt {name=»REJSEFIL«, typ=»K«, seg=»A«, seg0={DA 000e,0d (0x00ed00)}}
0x00900…00a00 [0x02]: DirEnt {name=»RENTEF2 «, typ=»K«, seg=»A«, seg0={DA 000f,01 (0x00f100)}}
0x00900…00a00 [0x03]: DirEnt {name=»PH «, typ=»K«, seg=»A«, seg0={DA 000f,04 (0x00f400)}}
0x00900…00a00 [0x04]: DirEnt {name=»GAFFEL_F«, typ=»K«, seg=»A«, seg0={DA 0044,04 (0x044400)}}
0x00900…00a00 [0x05]: DirEnt {name=»OMBYT «, typ=»K«, seg=»A«, seg0={DA 0044,08 (0x044800)}}
0x00900…00a00 [0x06]: DirEnt {name=»STRENGVA«, typ=»K«, seg=»A«, seg0={DA 0045,02 (0x045200)}}
0x00900…00a00 [0x07]:
0x00900…00a00 [0x08]:
0x00900…00a00 [0x09]:
0x00900…00a00 [0x0a]:
0x00900…00a00 [0x0b]:
0x00900…00a00 [0x0c]:
0x00900…00a00 [0x0d]:
0x00900…00a00 [0x0e]:
0x00900…00a00 [0x0f]:
0x00900…00a00 [0x10]:
0x00900…00a00 [0x11]:
0x00900…00a00 [0x12]:
0x00900…00a00 ]
0x00900…00a00 }
0x00a00…00b00 (0, 0, 11) EmptyDirSect
[…0x2…]
0x00d00…00e00 (0, 0, 14) DirSect {
0x00d00…00e00 dent = [ // 0xd00 @0x0
0x00d00…00e00 [0x00]: DirEnt {name=»SIMPSON «, typ=»K«, seg=»A«, seg0={DA 000f,06 (0x00f600)}}
0x00d00…00e00 [0x01]: DirEnt {name=»KLØRTXT «, typ=»K«, seg=»A«, seg0={DA 0010,00 (0x010000)}}
0x00d00…00e00 [0x02]: DirEnt {name=»GULD «, typ=»K«, seg=»A«, seg0={DA 0010,0a (0x010a00)}}
0x00d00…00e00 [0x03]: DirEnt {name=»SALGSPR3«, typ=»K«, seg=»A«, seg0={DA 0011,00 (0x011000)}}
0x00d00…00e00 [0x04]: DirEnt {name=»EUROPA «, typ=»K«, seg=»A«, seg0={DA 0011,0c (0x011c00)}}
0x00d00…00e00 [0x05]:
0x00d00…00e00 [0x06]:
0x00d00…00e00 [0x07]:
0x00d00…00e00 [0x08]:
0x00d00…00e00 [0x09]:
0x00d00…00e00 [0x0a]:
0x00d00…00e00 [0x0b]:
0x00d00…00e00 [0x0c]:
0x00d00…00e00 [0x0d]:
0x00d00…00e00 [0x0e]:
0x00d00…00e00 [0x0f]:
0x00d00…00e00 [0x10]:
0x00d00…00e00 [0x11]:
0x00d00…00e00 [0x12]:
0x00d00…00e00 ]
0x00d00…00e00 }
0x00e00…00f00 (0, 0, 15) EmptyDirSect
0x00f00…01000 (0, 0, 16) DirSect {
0x00f00…01000 dent = [ // 0xf00 @0x0
0x00f00…01000 [0x00]: DirEnt {name=»SYSTIME «, typ=»K«, seg=»A«, seg0={DA 0013,00 (0x013000)}}
0x00f00…01000 [0x01]: DirEnt {name=»RUMFANG4«, typ=»K«, seg=»A«, seg0={DA 0013,0a (0x013a00)}}
0x00f00…01000 [0x02]: DirEnt {name=»HJERTER_«, typ=»K«, seg=»A«, seg0={DA 0015,08 (0x015800)}}
0x00f00…01000 [0x03]:
0x00f00…01000 [0x04]:
0x00f00…01000 [0x05]:
0x00f00…01000 [0x06]:
0x00f00…01000 [0x07]:
0x00f00…01000 [0x08]:
0x00f00…01000 [0x09]:
0x00f00…01000 [0x0a]:
0x00f00…01000 [0x0b]:
0x00f00…01000 [0x0c]:
0x00f00…01000 [0x0d]:
0x00f00…01000 [0x0e]:
0x00f00…01000 [0x0f]:
0x00f00…01000 [0x10]:
0x00f00…01000 [0x11]:
0x00f00…01000 [0x12]:
0x00f00…01000 ]
0x00f00…01000 }
0x01000…01100 (0, 1, 1) EmptyDirSect
0x01100…01200 (0, 1, 2) DirSect {
0x01100…01200 dent = [ // 0x1100 @0x0
0x01100…01200 [0x00]: DirEnt {name=»FEJLPRG1«, typ=»K«, seg=»A«, seg0={DA 0018,00 (0x018000)}}
0x01100…01200 [0x01]: DirEnt {name=»POSTTAK3«, typ=»K«, seg=»A«, seg0={DA 0018,0a (0x018a00)}}
0x01100…01200 [0x02]:
0x01100…01200 [0x03]:
0x01100…01200 [0x04]:
0x01100…01200 [0x05]:
0x01100…01200 [0x06]:
0x01100…01200 [0x07]:
0x01100…01200 [0x08]:
0x01100…01200 [0x09]:
0x01100…01200 [0x0a]:
0x01100…01200 [0x0b]:
0x01100…01200 [0x0c]:
0x01100…01200 [0x0d]:
0x01100…01200 [0x0e]:
0x01100…01200 [0x0f]:
0x01100…01200 [0x10]:
0x01100…01200 [0x11]:
0x01100…01200 [0x12]:
0x01100…01200 ]
0x01100…01200 }
0x01200…01300 (0, 1, 3) EmptyDirSect
0x01300…01400 (0, 1, 4) DirSect {
0x01300…01400 dent = [ // 0x1300 @0x0
0x01300…01400 [0x00]: DirEnt {name=»TELEFONN«, typ=»K«, seg=»A«, seg0={DA 0018,0e (0x018e00)}}
0x01300…01400 [0x01]: DirEnt {name=»FAHRENHE«, typ=»K«, seg=»A«, seg0={DA 0019,05 (0x019500)}}
0x01300…01400 [0x02]:
0x01300…01400 [0x03]:
0x01300…01400 [0x04]:
0x01300…01400 [0x05]:
0x01300…01400 [0x06]:
0x01300…01400 [0x07]:
0x01300…01400 [0x08]:
0x01300…01400 [0x09]:
0x01300…01400 [0x0a]:
0x01300…01400 [0x0b]:
0x01300…01400 [0x0c]:
0x01300…01400 [0x0d]:
0x01300…01400 [0x0e]:
0x01300…01400 [0x0f]:
0x01300…01400 [0x10]:
0x01300…01400 [0x11]:
0x01300…01400 [0x12]:
0x01300…01400 ]
0x01300…01400 }
0x01400…01500 (0, 1, 5) EmptyDirSect
0x01500…01600 (0, 1, 6) DirSect {
0x01500…01600 dent = [ // 0x1500 @0x0
0x01500…01600 [0x00]: DirEnt {name=»KRONEFOR«, typ=»K«, seg=»A«, seg0={DA 0019,07 (0x019700)}}
0x01500…01600 [0x01]: DirEnt {name=»SPIL2_KO«, typ=»K«, seg=»A«, seg0={DA 001a,01 (0x01a100)}}
0x01500…01600 [0x02]: DirEnt {name=»RAMMETXT«, typ=»K«, seg=»A«, seg0={DA 001a,0f (0x01af00)}}
0x01500…01600 [0x03]:
0x01500…01600 [0x04]:
0x01500…01600 [0x05]:
0x01500…01600 [0x06]:
0x01500…01600 [0x07]:
0x01500…01600 [0x08]:
0x01500…01600 [0x09]:
0x01500…01600 [0x0a]:
0x01500…01600 [0x0b]:
0x01500…01600 [0x0c]:
0x01500…01600 [0x0d]:
0x01500…01600 [0x0e]:
0x01500…01600 [0x0f]:
0x01500…01600 [0x10]:
0x01500…01600 [0x11]:
0x01500…01600 [0x12]:
0x01500…01600 ]
0x01500…01600 }
0x01600…01700 (0, 1, 7) EmptyDirSect
[…0x2…]
0x01900…01a00 (0, 1, 10) DirSect {
0x01900…01a00 dent = [ // 0x1900 @0x0
0x01900…01a00 [0x00]: DirEnt {name=»SKOLEB2 «, typ=»K«, seg=»A«, seg0={DA 001b,09 (0x01b900)}}
0x01900…01a00 [0x01]: DirEnt {name=»FUNKTION«, typ=»K«, seg=»A«, seg0={DA 001c,0d (0x01cd00)}}
0x01900…01a00 [0x02]:
0x01900…01a00 [0x03]:
0x01900…01a00 [0x04]:
0x01900…01a00 [0x05]:
0x01900…01a00 [0x06]:
0x01900…01a00 [0x07]:
0x01900…01a00 [0x08]:
0x01900…01a00 [0x09]:
0x01900…01a00 [0x0a]:
0x01900…01a00 [0x0b]:
0x01900…01a00 [0x0c]:
0x01900…01a00 [0x0d]:
0x01900…01a00 [0x0e]:
0x01900…01a00 [0x0f]:
0x01900…01a00 [0x10]:
0x01900…01a00 [0x11]:
0x01900…01a00 [0x12]:
0x01900…01a00 ]
0x01900…01a00 }
0x01a00…01b00 (0, 1, 11) EmptyDirSect
0x01b00…01c00 (0, 1, 12) DirSect {
0x01b00…01c00 dent = [ // 0x1b00 @0x0
0x01b00…01c00 [0x00]: DirEnt {name=»JOURNALN«, typ=»K«, seg=»A«, seg0={DA 001c,0f (0x01cf00)}}
0x01b00…01c00 [0x01]: DirEnt {name=»BINOMIAL«, typ=»K«, seg=»A«, seg0={DA 001d,09 (0x01d900)}}
0x01b00…01c00 [0x02]: DirEnt {name=»EKSEOF «, typ=»K«, seg=»A«, seg0={DA 001e,03 (0x01e300)}}
0x01b00…01c00 [0x03]: DirEnt {name=»SLUTSK1 «, typ=»K«, seg=»A«, seg0={DA 001e,0d (0x01ed00)}}
0x01b00…01c00 [0x04]:
0x01b00…01c00 [0x05]:
0x01b00…01c00 [0x06]:
0x01b00…01c00 [0x07]:
0x01b00…01c00 [0x08]:
0x01b00…01c00 [0x09]:
0x01b00…01c00 [0x0a]:
0x01b00…01c00 [0x0b]:
0x01b00…01c00 [0x0c]:
0x01b00…01c00 [0x0d]:
0x01b00…01c00 [0x0e]:
0x01b00…01c00 [0x0f]:
0x01b00…01c00 [0x10]:
0x01b00…01c00 [0x11]:
0x01b00…01c00 [0x12]:
0x01b00…01c00 ]
0x01b00…01c00 }
0x01c00…01d00 (0, 1, 13) EmptyDirSect
0x01d00…01e00 (0, 1, 14) DirSect {
0x01d00…01e00 dent = [ // 0x1d00 @0x0
0x01d00…01e00 [0x00]: DirEnt {name=»PYTHAGOR«, typ=»K«, seg=»A«, seg0={DA 0020,0b (0x020b00)}}
0x01d00…01e00 [0x01]: DirEnt {name=»TREKANT2«, typ=»K«, seg=»A«, seg0={DA 0021,05 (0x021500)}}
0x01d00…01e00 [0x02]: DirEnt {name=»OPLYSNIN«, typ=»K«, seg=»A«, seg0={DA 0021,07 (0x021700)}}
0x01d00…01e00 [0x03]: DirEnt {name=»RET_LINI«, typ=»K«, seg=»A«, seg0={DA 0021,0d (0x021d00)}}
0x01d00…01e00 [0x04]:
0x01d00…01e00 [0x05]:
0x01d00…01e00 [0x06]:
0x01d00…01e00 [0x07]:
0x01d00…01e00 [0x08]:
0x01d00…01e00 [0x09]:
0x01d00…01e00 [0x0a]:
0x01d00…01e00 [0x0b]:
0x01d00…01e00 [0x0c]:
0x01d00…01e00 [0x0d]:
0x01d00…01e00 [0x0e]:
0x01d00…01e00 [0x0f]:
0x01d00…01e00 [0x10]:
0x01d00…01e00 [0x11]:
0x01d00…01e00 [0x12]:
0x01d00…01e00 ]
0x01d00…01e00 }
0x01e00…01f00 (0, 1, 15) EmptyDirSect
0x01f00…02000 (0, 1, 16) DirSect {
0x01f00…02000 dent = [ // 0x1f00 @0x0
0x01f00…02000 [0x00]: DirEnt {name=»MÅNED_NA«, typ=»K«, seg=»A«, seg0={DA 0022,05 (0x022500)}}
0x01f00…02000 [0x01]: DirEnt {name=»UR «, typ=»K«, seg=»A«, seg0={DA 0022,0b (0x022b00)}}
0x01f00…02000 [0x02]: DirEnt {name=»HIGHSCOR«, typ=»K«, seg=»A«, seg0={DA 0023,05 (0x023500)}}
0x01f00…02000 [0x03]:
0x01f00…02000 [0x04]:
0x01f00…02000 [0x05]:
0x01f00…02000 [0x06]:
0x01f00…02000 [0x07]:
0x01f00…02000 [0x08]:
0x01f00…02000 [0x09]:
0x01f00…02000 [0x0a]:
0x01f00…02000 [0x0b]:
0x01f00…02000 [0x0c]:
0x01f00…02000 [0x0d]:
0x01f00…02000 [0x0e]:
0x01f00…02000 [0x0f]:
0x01f00…02000 [0x10]:
0x01f00…02000 [0x11]:
0x01f00…02000 [0x12]:
0x01f00…02000 ]
0x01f00…02000 }
0x02000…02100 (1, 0, 1) EmptyDirSect
0x02100…02200 (1, 0, 2) DirSect {
0x02100…02200 dent = [ // 0x2100 @0x0
0x02100…02200 [0x00]: DirEnt {name=»LOG10 «, typ=»K«, seg=»A«, seg0={DA 0023,06 (0x023600)}}
0x02100…02200 [0x01]: DirEnt {name=»STRENGLÆ«, typ=»K«, seg=»A«, seg0={DA 0024,00 (0x024000)}}
0x02100…02200 [0x02]: DirEnt {name=»CPRNUMRE«, typ=»K«, seg=»A«, seg0={DA 0024,0a (0x024a00)}}
0x02100…02200 [0x03]:
0x02100…02200 [0x04]:
0x02100…02200 [0x05]:
0x02100…02200 [0x06]:
0x02100…02200 [0x07]:
0x02100…02200 [0x08]:
0x02100…02200 [0x09]:
0x02100…02200 [0x0a]:
0x02100…02200 [0x0b]:
0x02100…02200 [0x0c]:
0x02100…02200 [0x0d]:
0x02100…02200 [0x0e]:
0x02100…02200 [0x0f]:
0x02100…02200 [0x10]:
0x02100…02200 [0x11]:
0x02100…02200 [0x12]:
0x02100…02200 ]
0x02100…02200 }
0x02200…02300 (1, 0, 3) EmptyDirSect
[…0x2…]
0x02500…02600 (1, 0, 6) DirSect {
0x02500…02600 dent = [ // 0x2500 @0x0
0x02500…02600 [0x00]: DirEnt {name=»RUDERTXT«, typ=»K«, seg=»A«, seg0={DA 0024,0e (0x024e00)}}
0x02500…02600 [0x01]:
0x02500…02600 [0x02]:
0x02500…02600 [0x03]:
0x02500…02600 [0x04]:
0x02500…02600 [0x05]:
0x02500…02600 [0x06]:
0x02500…02600 [0x07]:
0x02500…02600 [0x08]:
0x02500…02600 [0x09]:
0x02500…02600 [0x0a]:
0x02500…02600 [0x0b]:
0x02500…02600 [0x0c]:
0x02500…02600 [0x0d]:
0x02500…02600 [0x0e]:
0x02500…02600 [0x0f]:
0x02500…02600 [0x10]:
0x02500…02600 [0x11]:
0x02500…02600 [0x12]:
0x02500…02600 ]
0x02500…02600 }
0x02600…02700 (1, 0, 7) EmptyDirSect
0x02700…02800 (1, 0, 8) DirSect {
0x02700…02800 dent = [ // 0x2700 @0x0
0x02700…02800 [0x00]: DirEnt {name=»KUGLE «, typ=»K«, seg=»A«, seg0={DA 0025,08 (0x025800)}}
0x02700…02800 [0x01]:
0x02700…02800 [0x02]:
0x02700…02800 [0x03]:
0x02700…02800 [0x04]:
0x02700…02800 [0x05]:
0x02700…02800 [0x06]:
0x02700…02800 [0x07]:
0x02700…02800 [0x08]:
0x02700…02800 [0x09]:
0x02700…02800 [0x0a]:
0x02700…02800 [0x0b]:
0x02700…02800 [0x0c]:
0x02700…02800 [0x0d]:
0x02700…02800 [0x0e]:
0x02700…02800 [0x0f]:
0x02700…02800 [0x10]:
0x02700…02800 [0x11]:
0x02700…02800 [0x12]:
0x02700…02800 ]
0x02700…02800 }
0x02800…02900 (1, 0, 9) EmptyDirSect
0x02900…02a00 (1, 0, 10) DirSect {
0x02900…02a00 dent = [ // 0x2900 @0x0
0x02900…02a00 [0x00]: DirEnt {name=»KASSE «, typ=»K«, seg=»A«, seg0={DA 0025,0e (0x025e00)}}
0x02900…02a00 [0x01]:
0x02900…02a00 [0x02]:
0x02900…02a00 [0x03]:
0x02900…02a00 [0x04]:
0x02900…02a00 [0x05]:
0x02900…02a00 [0x06]:
0x02900…02a00 [0x07]:
0x02900…02a00 [0x08]:
0x02900…02a00 [0x09]:
0x02900…02a00 [0x0a]:
0x02900…02a00 [0x0b]:
0x02900…02a00 [0x0c]:
0x02900…02a00 [0x0d]:
0x02900…02a00 [0x0e]:
0x02900…02a00 [0x0f]:
0x02900…02a00 [0x10]:
0x02900…02a00 [0x11]:
0x02900…02a00 [0x12]:
0x02900…02a00 ]
0x02900…02a00 }
0x02a00…02b00 (1, 0, 11) EmptyDirSect
0x02b00…02c00 (1, 0, 12) DirSect {
0x02b00…02c00 dent = [ // 0x2b00 @0x0
0x02b00…02c00 [0x00]: DirEnt {name=»TRETTEN «, typ=»K«, seg=»A«, seg0={DA 0026,06 (0x026600)}}
0x02b00…02c00 [0x01]: DirEnt {name=»ANDENGR3«, typ=»K«, seg=»A«, seg0={DA 0027,00 (0x027000)}}
0x02b00…02c00 [0x02]: DirEnt {name=»RESTSKAT«, typ=»K«, seg=»A«, seg0={DA 0027,0c (0x027c00)}}
0x02b00…02c00 [0x03]:
0x02b00…02c00 [0x04]:
0x02b00…02c00 [0x05]:
0x02b00…02c00 [0x06]:
0x02b00…02c00 [0x07]:
0x02b00…02c00 [0x08]:
0x02b00…02c00 [0x09]:
0x02b00…02c00 [0x0a]:
0x02b00…02c00 [0x0b]:
0x02b00…02c00 [0x0c]:
0x02b00…02c00 [0x0d]:
0x02b00…02c00 [0x0e]:
0x02b00…02c00 [0x0f]:
0x02b00…02c00 [0x10]:
0x02b00…02c00 [0x11]:
0x02b00…02c00 [0x12]:
0x02b00…02c00 ]
0x02b00…02c00 }
0x02c00…02d00 (1, 0, 13) EmptyDirSect
0x02d00…02e00 (1, 0, 14) DirSect {
0x02d00…02e00 dent = [ // 0x2d00 @0x0
0x02d00…02e00 [0x00]: DirEnt {name=»MORSE1 «, typ=»K«, seg=»A«, seg0={DA 0028,01 (0x028100)}}
0x02d00…02e00 [0x01]: DirEnt {name=»HANS «, typ=»K«, seg=»A«, seg0={DA 0029,05 (0x029500)}}
0x02d00…02e00 [0x02]: DirEnt {name=»HAVREN «, typ=»K«, seg=»A«, seg0={DA 0029,08 (0x029800)}}
0x02d00…02e00 [0x03]: DirEnt {name=»AFRUND «, typ=»K«, seg=»A«, seg0={DA 0029,0c (0x029c00)}}
0x02d00…02e00 [0x04]: DirEnt {name=»PRIMTAL «, typ=»K«, seg=»A«, seg0={DA 0029,0e (0x029e00)}}
0x02d00…02e00 [0x05]:
0x02d00…02e00 [0x06]:
0x02d00…02e00 [0x07]:
0x02d00…02e00 [0x08]:
0x02d00…02e00 [0x09]:
0x02d00…02e00 [0x0a]:
0x02d00…02e00 [0x0b]:
0x02d00…02e00 [0x0c]:
0x02d00…02e00 [0x0d]:
0x02d00…02e00 [0x0e]:
0x02d00…02e00 [0x0f]:
0x02d00…02e00 [0x10]:
0x02d00…02e00 [0x11]:
0x02d00…02e00 [0x12]:
0x02d00…02e00 ]
0x02d00…02e00 }
0x02e00…02f00 (1, 0, 15) EmptyDirSect
0x02f00…03000 (1, 0, 16) DirSect {
0x02f00…03000 dent = [ // 0x2f00 @0x0
0x02f00…03000 [0x00]: DirEnt {name=»DEMO_2 «, typ=»K«, seg=»A«, seg0={DA 002a,04 (0x02a400)}}
0x02f00…03000 [0x01]: DirEnt {name=»SAMRENTE«, typ=»K«, seg=»A«, seg0={DA 002b,08 (0x02b800)}}
0x02f00…03000 [0x02]: DirEnt {name=»INVERS «, typ=»K«, seg=»A«, seg0={DA 002c,02 (0x02c200)}}
0x02f00…03000 [0x03]: DirEnt {name=»IDEALVÆG«, typ=»K«, seg=»A«, seg0={DA 002c,06 (0x02c600)}}
0x02f00…03000 [0x04]: DirEnt {name=»SKOLEBØG«, typ=»K«, seg=»A«, seg0={DA 002d,0a (0x02da00)}}
0x02f00…03000 [0x05]:
0x02f00…03000 [0x06]:
0x02f00…03000 [0x07]:
0x02f00…03000 [0x08]:
0x02f00…03000 [0x09]:
0x02f00…03000 [0x0a]:
0x02f00…03000 [0x0b]:
0x02f00…03000 [0x0c]:
0x02f00…03000 [0x0d]:
0x02f00…03000 [0x0e]:
0x02f00…03000 [0x0f]:
0x02f00…03000 [0x10]:
0x02f00…03000 [0x11]:
0x02f00…03000 [0x12]:
0x02f00…03000 ]
0x02f00…03000 }
0x03000…03100 (1, 1, 1) EmptyDirSect
0x03100…03200 (1, 1, 2) DirSect {
0x03100…03200 dent = [ // 0x3100 @0x0
0x03100…03200 [0x00]: DirEnt {name=»SALGSPR1«, typ=»K«, seg=»A«, seg0={DA 002e,00 (0x02e000)}}
0x03100…03200 [0x01]: DirEnt {name=»TREKANT8«, typ=»K«, seg=»A«, seg0={DA 002e,04 (0x02e400)}}
0x03100…03200 [0x02]: DirEnt {name=»UDSPRING«, typ=»K«, seg=»A«, seg0={DA 002e,0a (0x02ea00)}}
0x03100…03200 [0x03]: DirEnt {name=»ADDITION«, typ=»K«, seg=»A«, seg0={DA 002f,00 (0x02f000)}}
0x03100…03200 [0x04]: DirEnt {name=»MÅNED2 «, typ=»K«, seg=»A«, seg0={DA 002f,04 (0x02f400)}}
0x03100…03200 [0x05]: DirEnt {name=»ANALYSE «, typ=»K«, seg=»A«, seg0={DA 002f,07 (0x02f700)}}
0x03100…03200 [0x06]:
0x03100…03200 [0x07]:
0x03100…03200 [0x08]:
0x03100…03200 [0x09]:
0x03100…03200 [0x0a]:
0x03100…03200 [0x0b]:
0x03100…03200 [0x0c]:
0x03100…03200 [0x0d]:
0x03100…03200 [0x0e]:
0x03100…03200 [0x0f]:
0x03100…03200 [0x10]:
0x03100…03200 [0x11]:
0x03100…03200 [0x12]:
0x03100…03200 ]
0x03100…03200 }
0x03200…03300 (1, 1, 3) EmptyDirSect
0x03300…03400 (1, 1, 4) DirSect {
0x03300…03400 dent = [ // 0x3300 @0x0
0x03300…03400 [0x00]: DirEnt {name=»ABC_SORT«, typ=»K«, seg=»A«, seg0={DA 002f,0e (0x02fe00)}}
0x03300…03400 [0x01]: DirEnt {name=»KOPI_DIR«, typ=»K«, seg=»A«, seg0={DA 0030,08 (0x030800)}}
0x03300…03400 [0x02]: DirEnt {name=»RUMFANG2«, typ=»K«, seg=»A«, seg0={DA 0030,09 (0x030900)}}
0x03300…03400 [0x03]: DirEnt {name=»HJERTTXT«, typ=»K«, seg=»A«, seg0={DA 0031,0d (0x031d00)}}
0x03300…03400 [0x04]:
0x03300…03400 [0x05]:
0x03300…03400 [0x06]:
0x03300…03400 [0x07]:
0x03300…03400 [0x08]:
0x03300…03400 [0x09]:
0x03300…03400 [0x0a]:
0x03300…03400 [0x0b]:
0x03300…03400 [0x0c]:
0x03300…03400 [0x0d]:
0x03300…03400 [0x0e]:
0x03300…03400 [0x0f]:
0x03300…03400 [0x10]:
0x03300…03400 [0x11]:
0x03300…03400 [0x12]:
0x03300…03400 ]
0x03300…03400 }
0x03400…03500 (1, 1, 5) EmptyDirSect
0x03500…03600 (1, 1, 6) DirSect {
0x03500…03600 dent = [ // 0x3500 @0x0
0x03500…03600 [0x00]: DirEnt {name=»POSTTAK1«, typ=»K«, seg=»A«, seg0={DA 0032,07 (0x032700)}}
0x03500…03600 [0x01]:
0x03500…03600 [0x02]:
0x03500…03600 [0x03]:
0x03500…03600 [0x04]:
0x03500…03600 [0x05]:
0x03500…03600 [0x06]:
0x03500…03600 [0x07]:
0x03500…03600 [0x08]:
0x03500…03600 [0x09]:
0x03500…03600 [0x0a]:
0x03500…03600 [0x0b]:
0x03500…03600 [0x0c]:
0x03500…03600 [0x0d]:
0x03500…03600 [0x0e]:
0x03500…03600 [0x0f]:
0x03500…03600 [0x10]:
0x03500…03600 [0x11]:
0x03500…03600 [0x12]:
0x03500…03600 ]
0x03500…03600 }
0x03600…03700 (1, 1, 7) EmptyDirSect
0x03700…03800 (1, 1, 8) DirSect {
0x03700…03800 dent = [ // 0x3700 @0x0
0x03700…03800 [0x00]: DirEnt {name=»SUM_BRØ2«, typ=»K«, seg=»A«, seg0={DA 0032,0a (0x032a00)}}
0x03700…03800 [0x01]: DirEnt {name=»SPAR_TES«, typ=»K«, seg=»A«, seg0={DA 0032,0f (0x032f00)}}
0x03700…03800 [0x02]:
0x03700…03800 [0x03]:
0x03700…03800 [0x04]:
0x03700…03800 [0x05]:
0x03700…03800 [0x06]:
0x03700…03800 [0x07]:
0x03700…03800 [0x08]:
0x03700…03800 [0x09]:
0x03700…03800 [0x0a]:
0x03700…03800 [0x0b]:
0x03700…03800 [0x0c]:
0x03700…03800 [0x0d]:
0x03700…03800 [0x0e]:
0x03700…03800 [0x0f]:
0x03700…03800 [0x10]:
0x03700…03800 [0x11]:
0x03700…03800 [0x12]:
0x03700…03800 ]
0x03700…03800 }
0x03800…03900 (1, 1, 9) EmptyDirSect
0x03900…03a00 (1, 1, 10) DirSect {
0x03900…03a00 dent = [ // 0x3900 @0x0
0x03900…03a00 [0x00]: DirEnt {name=»DEMO_EOF«, typ=»K«, seg=»A«, seg0={DA 0035,07 (0x035700)}}
0x03900…03a00 [0x01]: DirEnt {name=»COSHYP «, typ=»K«, seg=»A«, seg0={DA 0035,0d (0x035d00)}}
0x03900…03a00 [0x02]: DirEnt {name=»BINÆR_1 «, typ=»K«, seg=»A«, seg0={DA 0036,07 (0x036700)}}
0x03900…03a00 [0x03]:
0x03900…03a00 [0x04]:
0x03900…03a00 [0x05]:
0x03900…03a00 [0x06]:
0x03900…03a00 [0x07]:
0x03900…03a00 [0x08]:
0x03900…03a00 [0x09]:
0x03900…03a00 [0x0a]:
0x03900…03a00 [0x0b]:
0x03900…03a00 [0x0c]:
0x03900…03a00 [0x0d]:
0x03900…03a00 [0x0e]:
0x03900…03a00 [0x0f]:
0x03900…03a00 [0x10]:
0x03900…03a00 [0x11]:
0x03900…03a00 [0x12]:
0x03900…03a00 ]
0x03900…03a00 }
0x03a00…03b00 (1, 1, 11) EmptyDirSect
0x03b00…03c00 (1, 1, 12) DirSect {
0x03b00…03c00 dent = [ // 0x3b00 @0x0
0x03b00…03c00 [0x00]: DirEnt {name=»KOPI_SEK«, typ=»K«, seg=»A«, seg0={DA 0036,0d (0x036d00)}}
0x03b00…03c00 [0x01]: DirEnt {name=»MORSE2 «, typ=»K«, seg=»A«, seg0={DA 0037,05 (0x037500)}}
0x03b00…03c00 [0x02]: DirEnt {name=»JYLLAND «, typ=»K«, seg=»A«, seg0={DA 0038,09 (0x038900)}}
0x03b00…03c00 [0x03]:
0x03b00…03c00 [0x04]:
0x03b00…03c00 [0x05]:
0x03b00…03c00 [0x06]:
0x03b00…03c00 [0x07]:
0x03b00…03c00 [0x08]:
0x03b00…03c00 [0x09]:
0x03b00…03c00 [0x0a]:
0x03b00…03c00 [0x0b]:
0x03b00…03c00 [0x0c]:
0x03b00…03c00 [0x0d]:
0x03b00…03c00 [0x0e]:
0x03b00…03c00 [0x0f]:
0x03b00…03c00 [0x10]:
0x03b00…03c00 [0x11]:
0x03b00…03c00 [0x12]:
0x03b00…03c00 ]
0x03b00…03c00 }
0x03c00…03d00 (1, 1, 13) EmptyDirSect
0x03d00…03e00 (1, 1, 14) DirSect {
0x03d00…03e00 dent = [ // 0x3d00 @0x0
0x03d00…03e00 [0x00]: DirEnt {name=»DEMO_3 «, typ=»K«, seg=»A«, seg0={DA 0039,0d (0x039d00)}}
0x03d00…03e00 [0x01]: DirEnt {name=»ANNUITET«, typ=»K«, seg=»A«, seg0={DA 003a,04 (0x03a400)}}
0x03d00…03e00 [0x02]:
0x03d00…03e00 [0x03]:
0x03d00…03e00 [0x04]:
0x03d00…03e00 [0x05]:
0x03d00…03e00 [0x06]:
0x03d00…03e00 [0x07]:
0x03d00…03e00 [0x08]:
0x03d00…03e00 [0x09]:
0x03d00…03e00 [0x0a]:
0x03d00…03e00 [0x0b]:
0x03d00…03e00 [0x0c]:
0x03d00…03e00 [0x0d]:
0x03d00…03e00 [0x0e]:
0x03d00…03e00 [0x0f]:
0x03d00…03e00 [0x10]:
0x03d00…03e00 [0x11]:
0x03d00…03e00 [0x12]:
0x03d00…03e00 ]
0x03d00…03e00 }
0x03e00…03f00 (1, 1, 15) EmptyDirSect
0x03f00…04000 (1, 1, 16) DirSect {
0x03f00…04000 dent = [ // 0x3f00 @0x0
0x03f00…04000 [0x00]: DirEnt {name=»JULEBREV«, typ=»K«, seg=»A«, seg0={DA 003a,08 (0x03a800)}}
0x03f00…04000 [0x01]: DirEnt {name=»VARENUMM«, typ=»K«, seg=»A«, seg0={DA 003b,02 (0x03b200)}}
0x03f00…04000 [0x02]: DirEnt {name=»KVADRATT«, typ=»K«, seg=»A«, seg0={DA 003b,07 (0x03b700)}}
0x03f00…04000 [0x03]: DirEnt {name=»MÅNED3 «, typ=»K«, seg=»A«, seg0={DA 003b,09 (0x03b900)}}
0x03f00…04000 [0x04]: DirEnt {name=»POLYGON «, typ=»K«, seg=»A«, seg0={DA 003b,0c (0x03bc00)}}
0x03f00…04000 [0x05]:
0x03f00…04000 [0x06]:
0x03f00…04000 [0x07]:
0x03f00…04000 [0x08]:
0x03f00…04000 [0x09]:
0x03f00…04000 [0x0a]:
0x03f00…04000 [0x0b]:
0x03f00…04000 [0x0c]:
0x03f00…04000 [0x0d]:
0x03f00…04000 [0x0e]:
0x03f00…04000 [0x0f]:
0x03f00…04000 [0x10]:
0x03f00…04000 [0x11]:
0x03f00…04000 [0x12]:
0x03f00…04000 ]
0x03f00…04000 }
0x04000…04100 (2, 0, 1) EmptyDirSect
0x04100…04120 (2, 0, 2) ExtentHdr {name=»MØNTKAST«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,0b (0x004b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04120…04140 38 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6d 7c 6e 74 ┆80010 // ------------------ mønt┆
0x04140…04160 6b 61 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 38 0b 30 30 32 30 20 ┆kast --------------------8 0020 ┆
0x04160…04180 43 4c 45 41 52 20 0b 0f 30 30 33 30 20 52 4e 44 53 45 45 44 3a 3d 34 0f 1c 30 30 33 35 20 49 4e ┆CLEAR 0030 RNDSEED:=4 0035 IN┆
0x04180…041a0 54 45 47 45 52 20 50 4c 41 54 2c 4b 52 4f 4e 45 2c 4b 41 53 54 1c 15 30 30 34 30 20 50 4c 41 54 ┆TEGER PLAT,KRONE,KAST 0040 PLAT┆
0x041a0…041c0 3a 3d 30 3b 4b 52 4f 4e 45 3a 3d 30 15 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 2b 30 30 35 30 20 ┆:=0;KRONE:=0 0045 PRINT +0050 ┆
0x041c0…041e0 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 20 61 66 20 6b 61 73 74 3a 20 20 22 ┆INPUT "Indtast antal af kast: "┆
0x041e0…04200 3a 41 4e 54 41 4c 2b 1a 30 30 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 ┆:ANTAL+ 0060 FOR I:=1 TO ANTAL D┆
0x04200…04220 (2, 0, 3) 4f 20 1a 1c 30 30 37 30 20 4b 41 53 54 3a 3d 49 4e 54 28 52 4e 44 28 30 2c 31 29 2b 30 2e 35 29 ┆O 0070 KAST:=INT(RND(0,1)+0.5)┆
0x04220…04240 1c 10 30 30 38 30 20 50 52 49 4e 54 20 4b 41 53 54 3b 10 14 30 30 39 30 20 49 46 20 4b 41 53 54 ┆ 0080 PRINT KAST; 0090 IF KAST┆
0x04240…04260 3d 30 20 54 48 45 4e 20 14 11 30 31 30 30 20 50 4c 41 54 3a 3d 50 4c 41 54 2b 31 11 0a 30 31 31 ┆=0 THEN 0100 PLAT:=PLAT+1 011┆
0x04260…04280 30 20 45 4c 53 45 20 0a 13 30 31 32 30 20 4b 52 4f 4e 45 3a 3d 4b 52 4f 4e 45 2b 31 13 0b 30 31 ┆0 ELSE 0120 KRONE:=KRONE+1 01┆
0x04280…042a0 33 30 20 45 4e 44 49 46 20 0b 0b 30 31 34 30 20 4e 45 58 54 20 49 0b 0b 30 31 35 30 20 50 52 49 ┆30 ENDIF 0140 NEXT I 0150 PRI┆
0x042a0…042c0 4e 54 20 0b 22 30 31 36 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 20 6b 61 73 74 3a 20 20 20 20 ┆NT "0160 PRINT "Antal kast: ┆
0x042c0…042e0 22 3b 41 4e 54 41 4c 22 21 30 31 37 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 20 70 6c 61 74 3a ┆";ANTAL"!0170 PRINT "Antal plat:┆
0x042e0…04300 20 20 20 20 22 3b 50 4c 41 54 21 22 30 31 38 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 20 6b 72 ┆ ";PLAT!"0180 PRINT "Antal kr┆
0x04300…04320 (2, 0, 4) 6f 6e 65 3a 20 20 20 22 3b 4b 52 4f 4e 45 22 17 30 32 30 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f ┆one: ";KRONE" 0200 PROC RND(LO┆
0x04320…04340 57 2c 48 49 47 48 29 17 1a 30 32 31 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 ┆W,HIGH) 0210 RNDX:=RNDSEED+3.14┆
0x04340…04360 31 35 39 1a 1c 30 32 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 ┆159 0220 RNDX:=EXP(5.0*LN(RNDX)┆
0x04360…04380 29 1c 1c 30 32 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c ┆) 0230 RNDSEED:=RNDX-INT(RNDX) ┆
0x04380…043a0 20 30 32 34 30 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f ┆ 0240 RND:=RNDSEED*(HIGH-LOW)+LO┆
0x043a0…043c0 57 20 10 30 32 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 63 63 63 63 63 63 ┆W 0250 ENDPROC RND cccccccccc┆
0x043c0…043e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x04400…04500 (2, 0, 5) 0x63[0x100]
[…0x6…]
0x04b00…04b20 (2, 0, 12) ExtentHdr {name=»REVERS «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,05 (0x005500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04b20…04b40 3e 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆>0010 // -----------------------┆
0x04b40…04b60 2d 20 52 65 76 65 72 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3e ┆- Revers ---------------------->┆
0x04b60…04b80 08 30 30 32 30 20 2f 2f 20 08 1c 30 30 33 30 20 50 52 4f 43 20 52 45 56 45 52 53 28 52 45 46 20 ┆ 0020 // 0030 PROC REVERS(REF ┆
0x04b80…04ba0 50 52 54 58 54 24 29 1c 1d 30 30 34 30 20 4c 3a 3d 4c 45 4e 28 50 52 54 58 54 24 29 3b 4b 4f 50 ┆PRTXT$) 0040 L:=LEN(PRTXT$);KOP┆
0x04ba0…04bc0 49 24 3a 3d 22 22 1d 16 30 30 36 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 4c 20 44 4f 20 16 20 ┆I$:="" 0060 FOR J:=1 TO L DO ┆
0x04bc0…04be0 30 30 37 30 20 4b 4f 50 49 24 28 4a 3a 31 29 3a 3d 50 52 54 58 54 24 28 4c 2b 31 2d 4a 3a 31 29 ┆0070 KOPI$(J:1):=PRTXT$(L+1-J:1)┆
0x04be0…04c00 20 0b 30 30 38 30 20 4e 45 58 54 20 4a 0b 12 30 30 39 30 20 50 52 54 58 54 24 3a 3d 4b 4f 50 49 ┆ 0080 NEXT J 0090 PRTXT$:=KOPI┆
0x04c00…04c20 (2, 0, 13) 24 12 13 30 31 30 30 20 45 4e 44 50 52 4f 43 20 52 45 56 45 52 53 13 08 30 31 31 30 20 2f 2f 20 ┆$ 0100 ENDPROC REVERS 0110 // ┆
0x04c20…04c40 08 0b 30 31 32 30 20 43 4c 45 41 52 20 0b 21 30 31 33 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f ┆ 0120 CLEAR !0130 DIM TEKST$ O┆
0x04c40…04c60 46 20 34 30 2c 4b 4f 50 49 24 20 4f 46 20 34 30 21 0b 30 31 33 35 20 50 52 49 4e 54 20 0b 3d 30 ┆F 40,KOPI$ OF 40! 0135 PRINT =0┆
0x04c60…04c80 31 34 30 20 49 4e 50 55 54 20 22 48 76 6f 72 20 6d 61 6e 67 65 20 74 65 6b 73 74 65 72 20 7c 6e ┆140 INPUT "Hvor mange tekster øn┆
0x04c80…04ca0 73 6b 65 73 20 73 6b 72 65 76 65 74 20 62 61 67 66 72 61 3a 20 22 3a 41 4e 54 41 4c 3d 1a 30 31 ┆skes skrevet bagfra: ":ANTAL= 01┆
0x04ca0…04cc0 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 37 30 31 36 30 20 49 ┆50 FOR I:=1 TO ANTAL DO 70160 I┆
0x04cc0…04ce0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 65 6b 73 74 65 6e 3a 20 20 20 28 6d 61 78 20 34 30 ┆NPUT "Indtast teksten: (max 40┆
0x04ce0…04d00 20 74 65 67 6e 29 3a 20 20 22 3a 54 45 4b 53 54 24 37 2e 30 31 37 30 20 50 52 49 4e 54 20 22 44 ┆ tegn): ":TEKST$7.0170 PRINT "D┆
0x04d00…04d20 (2, 0, 14) 65 6e 20 69 6e 64 74 61 73 74 65 64 65 20 74 65 6b 73 74 20 65 72 3a 20 20 22 3b 54 45 4b 53 54 ┆en indtastede tekst er: ";TEKST┆
0x04d20…04d40 24 2e 18 30 31 38 30 20 45 58 45 43 20 52 45 56 45 52 53 28 54 45 4b 53 54 24 29 18 2e 30 31 39 ┆$. 0180 EXEC REVERS(TEKST$) .019┆
0x04d40…04d60 30 20 50 52 49 4e 54 20 22 44 65 6e 20 6f 6d 76 65 6e 64 74 65 20 74 65 6b 73 74 20 65 72 3a 20 ┆0 PRINT "Den omvendte tekst er: ┆
0x04d60…04d80 20 20 20 22 3b 54 45 4b 53 54 24 2e 0b 30 32 30 30 20 4e 45 58 54 20 49 0b 00 00 63 63 63 63 63 ┆ ";TEKST$. 0200 NEXT I ccccc┆
0x04d80…04da0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x04e00…04f00 (2, 0, 15) 0x63[0x100]
[…0x6…]
0x05500…05520 (2, 1, 6) ExtentHdr {name=»BLINK «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,0f (0x005f00)}, f99=41 05 00 fe 00 00 00 00 00 00 ┆A ┆}
0x05520…05540 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆A0010 // ---------------------- ┆
0x05540…05560 62 6c 69 6e 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆blink --------------------------┆
0x05560…05580 2d 2d 41 08 30 30 32 30 20 2f 2f 20 08 27 30 30 33 30 20 50 52 4f 43 20 42 4c 49 4e 4b 28 50 52 ┆--A 0020 // '0030 PROC BLINK(PR┆
0x05580…055a0 54 58 54 24 2c 58 2c 59 2c 47 41 4e 47 45 2c 50 52 54 49 44 29 27 0f 30 30 34 30 20 42 4c 41 4e ┆TXT$,X,Y,GANGE,PRTID)' 0040 BLAN┆
0x055a0…055c0 4b 24 3a 3d 22 22 0f 20 30 30 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 50 52 54 ┆K$:="" 0050 FOR I:=1 TO LEN(PRT┆
0x055c0…055e0 58 54 24 29 20 44 4f 20 20 17 30 30 36 30 20 42 4c 41 4e 4b 24 3a 3d 42 4c 41 4e 4b 24 2b 22 20 ┆XT$) DO 0060 BLANK$:=BLANK$+" ┆
0x055e0…05600 22 17 0b 30 30 37 30 20 4e 45 58 54 20 49 0b 1a 30 30 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆" 0070 NEXT I 0080 FOR I:=1 TO┆
0x05600…05620 (2, 1, 7) 20 47 41 4e 47 45 20 44 4f 20 1a 0f 30 30 39 30 20 43 55 52 53 4f 52 20 58 2c 59 0f 11 30 31 30 ┆ GANGE DO 0090 CURSOR X,Y 010┆
0x05620…05640 30 20 50 52 49 4e 54 20 42 4c 41 4e 4b 24 11 18 30 31 31 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f ┆0 PRINT BLANK$ 0110 FOR J:=1 TO┆
0x05640…05660 20 31 30 30 20 44 4f 20 18 0b 30 31 32 30 20 4e 45 58 54 20 4a 0b 0f 30 31 33 30 20 43 55 52 53 ┆ 100 DO 0120 NEXT J 0130 CURS┆
0x05660…05680 4f 52 20 58 2c 59 0f 11 30 31 34 30 20 50 52 49 4e 54 20 50 52 54 58 54 24 11 1c 30 31 35 30 20 ┆OR X,Y 0140 PRINT PRTXT$ 0150 ┆
0x05680…056a0 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 50 52 54 49 44 2a 37 20 44 4f 20 1c 0b 30 31 36 30 20 4e 45 ┆FOR J:=1 TO PRTID*7 DO 0160 NE┆
0x056a0…056c0 58 54 20 4a 0b 0b 30 31 37 30 20 4e 45 58 54 20 49 0b 12 30 31 38 30 20 45 4e 44 50 52 4f 43 20 ┆XT J 0170 NEXT I 0180 ENDPROC ┆
0x056c0…056e0 42 4c 49 4e 4b 12 08 30 31 39 30 20 2f 2f 20 08 0b 30 32 30 30 20 43 4c 45 41 52 20 0b 22 30 32 ┆BLINK 0190 // 0200 CLEAR "02┆
0x056e0…05700 31 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f 46 20 34 30 2c 42 4c 41 4e 4b 24 20 4f 46 20 34 30 ┆10 DIM TEKST$ OF 40,BLANK$ OF 40┆
0x05700…05720 (2, 1, 8) 22 36 30 32 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 74 20 20 ┆"60220 INPUT "Indtast en tekst ┆
0x05720…05740 28 6d 61 78 20 34 30 20 74 65 67 6e 29 3a 20 20 22 3a 54 45 4b 53 54 24 36 3c 30 32 33 30 20 49 ┆(max 40 tegn): ":TEKST$6<0230 I┆
0x05740…05760 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 69 64 20 70 72 2e 20 62 6c 69 6e 6b 20 28 20 69 20 ┆NPUT "Indtast tid pr. blink ( i ┆
0x05760…05780 31 2f 31 30 2d 73 65 6b 75 6e 64 65 72 29 3a 20 20 22 3a 54 49 44 3c 23 30 32 34 30 20 45 58 45 ┆1/10-sekunder): ":TID<#0240 EXE┆
0x05780…057a0 43 20 42 4c 49 4e 4b 28 54 45 4b 53 54 24 2c 33 30 2c 38 2c 31 30 2c 54 49 44 29 23 00 00 63 63 ┆C BLINK(TEKST$,30,8,10,TID)# cc┆
0x057a0…057c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x05800…05900 (2, 1, 9) 0x63[0x100]
[…0x6…]
0x05f00…05f20 (2, 1, 16) ExtentHdr {name=»BØDE «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0006,09 (0x006900)}, f99=41 05 00 fe 00 5c 44 45 20 20 ┆A ØDE ┆}
0x05f20…05f40 46 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆F0010 // -----------------------┆
0x05f40…05f60 2d 2d 2d 20 66 61 72 74 62 7c 64 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- fartbøde -------------------┆
0x05f60…05f80 2d 2d 2d 2d 2d 2d 2d 46 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 14 30 30 33 30 20 44 49 4d 20 46 ┆-------F 0020 CLEAR 0030 DIM F┆
0x05f80…05fa0 4f 52 4d 24 20 4f 46 20 36 30 14 31 30 30 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆ORM$ OF 60 10040 INPUT "Indtast ┆
0x05fa0…05fc0 68 61 73 74 69 67 68 65 64 73 67 72 7b 6e 73 65 6e 3a 20 20 20 22 3a 47 52 5b 4e 53 45 31 21 30 ┆hastighedsgrænsen: ":GRÆNSE1!0┆
0x05fc0…05fe0 30 35 30 20 47 52 5b 4e 53 45 3a 3d 28 47 52 5b 4e 53 45 2b 35 29 20 44 49 56 20 31 30 2a 31 30 ┆050 GRÆNSE:=(GRÆNSE+5) DIV 10*10┆
0x05fe0…06000 21 44 30 30 36 30 20 46 4f 52 4d 24 3a 3d 22 20 20 20 20 20 23 23 23 23 23 20 2d 23 23 23 23 23 ┆!D0060 FORM$:=" ##### -#####┆
0x06000…06020 (3, 0, 1) 20 20 20 20 20 20 20 23 23 23 23 2e 23 20 2d 23 23 23 23 2e 23 20 20 20 20 20 20 20 20 20 20 20 ┆ ####.# -####.# ┆
0x06020…06040 23 23 23 23 23 22 44 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 38 30 20 50 52 49 4e 54 20 ┆#####"D 0070 CLEAR 0080 PRINT ┆
0x06040…06060 0b 46 30 30 39 30 20 50 52 49 4e 54 20 22 42 7c 64 65 73 74 7c 72 72 65 6c 73 65 20 76 65 64 20 ┆ F0090 PRINT "Bødestørrelse ved ┆
0x06060…06080 6f 76 65 72 73 6b 72 69 64 65 6c 73 65 20 61 66 20 68 61 73 74 69 67 68 65 64 73 67 72 7b 6e 73 ┆overskridelse af hastighedsgræns┆
0x06080…060a0 65 6e 3a 20 20 20 22 3b 46 25 30 31 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 ┆en: ";F%0100 PRINT USING "####┆
0x060a0…060c0 2e 23 20 6b 6d 2f 74 22 3a 47 52 5b 4e 53 45 25 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 4b 30 31 ┆.# km/t":GRÆNSE% 0110 PRINT K01┆
0x060c0…060e0 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 48 61 73 74 69 67 68 65 64 20 20 20 20 20 20 ┆20 PRINT " Hastighed ┆
0x060e0…06100 20 20 20 20 4f 76 65 72 73 6b 72 69 64 65 6c 73 65 20 69 20 25 20 20 20 20 20 20 20 42 7c 64 65 ┆ Overskridelse i % Bøde┆
0x06100…06120 (3, 0, 2) 20 69 20 6b 72 2e 20 20 22 4b 0b 30 31 33 30 20 50 52 49 4e 54 20 0b 3b 30 31 34 30 20 50 52 49 ┆ i kr. "K 0130 PRINT ;0140 PRI┆
0x06120…06140 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 24 3a 47 52 5b 4e 53 45 2c 47 52 5b 4e 53 45 2b 32 30 2c ┆NT USING FORM$:GRÆNSE,GRÆNSE+20,┆
0x06140…06160 30 2c 32 30 2f 47 52 5b 4e 53 45 2a 31 30 30 2c 32 35 30 3b 0e 30 31 35 30 20 42 5c 44 45 3a 3d ┆0,20/GRÆNSE*100,250; 0150 BØDE:=┆
0x06160…06180 32 35 30 0e 2e 30 31 36 30 20 46 4f 52 20 49 3a 3d 47 52 5b 4e 53 45 2b 32 30 20 54 4f 20 32 2a ┆250 .0160 FOR I:=GRÆNSE+20 TO 2*┆
0x06180…061a0 47 52 5b 4e 53 45 2d 35 20 53 54 45 50 20 35 20 44 4f 20 2e 26 30 31 37 30 20 49 46 20 49 20 4d ┆GRÆNSE-5 STEP 5 DO .&0170 IF I M┆
0x061a0…061c0 4f 44 20 31 30 3d 30 20 54 48 45 4e 20 42 5c 44 45 3a 3d 42 5c 44 45 2b 31 35 30 26 26 30 31 38 ┆OD 10=0 THEN BØDE:=BØDE+150&&018┆
0x061c0…061e0 30 20 49 46 20 49 20 4d 4f 44 20 31 30 3d 35 20 54 48 45 4e 20 42 5c 44 45 3a 3d 42 5c 44 45 2b ┆0 IF I MOD 10=5 THEN BØDE:=BØDE+┆
0x061e0…06200 31 32 35 26 20 30 31 39 30 20 50 43 54 31 3a 3d 28 49 2d 47 52 5b 4e 53 45 29 2f 47 52 5b 4e 53 ┆125& 0190 PCT1:=(I-GRÆNSE)/GRÆNS┆
0x06200…06220 (3, 0, 3) 45 2a 31 30 30 20 22 30 32 30 30 20 50 43 54 32 3a 3d 28 49 2b 35 2d 47 52 5b 4e 53 45 29 2f 47 ┆E*100 "0200 PCT2:=(I+5-GRÆNSE)/G┆
0x06220…06240 52 5b 4e 53 45 2a 31 30 30 22 2b 30 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d ┆RÆNSE*100"+0210 PRINT USING FORM┆
0x06240…06260 24 3a 49 2c 49 2b 35 2c 50 43 54 31 2c 50 43 54 32 2c 42 5c 44 45 2b 0b 30 32 32 30 20 4e 45 58 ┆$:I,I+5,PCT1,PCT2,BØDE+ 0220 NEX┆
0x06260…06280 54 20 49 0b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆T I cccccccccccccccccccccccccc┆
0x06280…062a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x06300…06400 (3, 0, 4) 0x63[0x100]
[…0x5…]
0x06900…06920 (3, 0, 10) ExtentHdr {name=»DEMO_RAN«, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0007,03 (0x007300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,03 (0x007300)}, f99=41 05 00 fe 00 5c 44 45 20 20 ┆A ØDE ┆}
0x06920…06940 47 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G0100 // -----------------------┆
0x06940…06960 20 64 65 6d 6f 5f 52 41 4e 44 4f 4d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ demo_RANDOM -------------------┆
0x06960…06980 2d 2d 2d 2d 2d 2d 2d 2d 47 1e 30 31 31 30 20 2f 2f 20 44 69 72 65 6b 74 65 20 28 72 61 6e 64 6f ┆--------G 0110 // Direkte (rando┆
0x06980…069a0 6d 29 20 66 69 6c 65 72 1e 45 30 31 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 ┆m) filer E0120 // Programmet er ┆
0x069a0…069c0 62 65 72 65 67 6e 65 74 20 74 69 6c 20 61 74 20 6f 70 72 65 74 74 65 20 6f 67 20 76 65 64 6c 69 ┆beregnet til at oprette og vedli┆
0x069c0…069e0 67 65 68 6f 6c 64 65 20 65 74 20 6b 61 73 2d 45 40 30 31 33 30 20 2f 2f 20 73 65 74 74 65 62 7d ┆geholde et kas-E@0130 // settebå┆
0x069e0…06a00 6e 64 6b 61 72 74 6f 74 65 6b 2e 20 44 65 74 20 65 72 20 73 7d 6c 65 64 65 73 20 6d 75 6c 69 67 ┆ndkartotek. Det er således mulig┆
0x06a00…06a20 (3, 0, 11) 74 20 61 74 20 73 6c 65 74 74 65 20 62 7d 6e 64 2c 40 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 37 ┆t at slette bånd,@ 0140 PRINT 7┆
0x06a20…06a40 30 31 35 30 20 2f 2f 20 45 74 20 62 7d 6e 64 20 73 6c 65 74 74 65 73 20 76 65 64 20 61 74 20 73 ┆0150 // Et bånd slettes ved at s┆
0x06a40…06a60 7b 74 74 65 20 62 7d 6e 64 6c 7b 6e 67 64 65 6e 20 74 69 6c 20 30 2e 37 47 30 31 36 30 20 2f 2f ┆ætte båndlængden til 0.7G0160 //┆
0x06a60…06a80 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x06a80…06aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x06aa0…06ac0 47 45 30 31 37 30 20 44 49 4d 20 53 49 44 45 41 24 20 4f 46 20 37 30 2c 53 49 44 45 42 24 20 4f ┆GE0170 DIM SIDEA$ OF 70,SIDEB$ O┆
0x06ac0…06ae0 46 20 37 30 2c 54 4f 4d 24 20 4f 46 20 37 30 2c 46 49 4c 4e 41 56 4e 24 20 4f 46 20 31 36 2c 53 ┆F 70,TOM$ OF 70,FILNAVN$ OF 16,S┆
0x06ae0…06b00 56 24 20 4f 46 20 31 45 4c 30 31 38 30 20 49 4e 54 45 47 45 52 20 5c 4e 53 4b 45 2c 54 59 50 45 ┆V$ OF 1EL0180 INTEGER ØNSKE,TYPE┆
0x06b00…06b20 (3, 0, 12) 2c 4c 5b 4e 47 44 45 2c 53 54 5c 4a 2c 49 2c 4a 2c 42 5d 4e 44 4e 55 4d 4d 45 52 2c 50 4f 53 54 ┆,LÆNGDE,STØJ,I,J,BÅNDNUMMER,POST┆
0x06b20…06b40 41 4e 54 41 4c 2c 50 4f 53 54 53 54 5c 52 52 45 4c 53 45 2c 4c 4c 1a 30 31 39 30 20 49 4e 54 45 ┆ANTAL,POSTSTØRRELSE,LL 0190 INTE┆
0x06b40…06b60 47 45 52 20 46 5c 52 53 54 45 2c 53 49 44 53 54 45 1a 30 30 32 30 30 20 54 4f 4d 24 3a 3d 22 20 ┆GER FØRSTE,SIDSTE 00200 TOM$:=" ┆
0x06b60…06b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x06b80…06ba0 20 20 22 30 14 30 32 31 30 20 54 4f 4d 24 3a 3d 54 4f 4d 24 2b 54 4f 4d 24 14 47 30 32 32 30 20 ┆ "0 0210 TOM$:=TOM$+TOM$ G0220 ┆
0x06ba0…06bc0 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x06bc0…06be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x06be0…06c00 2d 2d 47 0c 30 32 33 30 20 52 45 50 45 41 54 20 0c 0e 30 32 34 30 20 45 58 45 43 20 56 41 4c 47 ┆--G 0230 REPEAT 0240 EXEC VALG┆
0x06c00…06c20 (3, 0, 13) 0e 12 30 32 35 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 36 12 47 30 32 36 30 20 2f 2f 20 2d 2d ┆ 0250 UNTIL ØNSKE=6 G0260 // --┆
0x06c20…06c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x06c40…06c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0e 30 ┆-----------------------------G 0┆
0x06c60…06c80 32 37 30 20 50 52 4f 43 20 56 41 4c 47 0e 0b 30 32 38 30 20 43 4c 45 41 52 20 0b 10 30 32 39 30 ┆270 PROC VALG 0280 CLEAR 0290┆
0x06c80…06ca0 20 43 55 52 53 4f 52 20 32 30 2c 31 10 25 30 33 30 30 20 50 52 49 4e 54 20 22 42 20 5d 20 4e 20 ┆ CURSOR 20,1 %0300 PRINT "B Å N ┆
0x06ca0…06cc0 44 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 20 22 25 10 30 33 31 30 20 43 55 52 53 4f 52 ┆D K A R T O T E K "% 0310 CURSOR┆
0x06cc0…06ce0 20 32 30 2c 32 10 25 30 33 32 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 20,2 %0320 PRINT "-------------┆
0x06ce0…06d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 25 10 30 33 33 30 20 43 55 52 53 4f 52 20 32 30 2c 34 10 35 ┆-----------"% 0330 CURSOR 20,4 5┆
0x06d00…06d20 (3, 0, 14) 30 33 34 30 20 50 52 49 4e 54 20 22 50 72 6f 67 72 61 6d 6d 65 74 20 62 79 64 65 72 20 70 7d 20 ┆0340 PRINT "Programmet byder på ┆
0x06d20…06d40 66 7c 6c 67 65 6e 64 65 20 6d 75 6c 69 67 68 65 64 65 72 3a 22 35 10 30 33 35 30 20 43 55 52 53 ┆følgende muligheder:"5 0350 CURS┆
0x06d40…06d60 4f 52 20 32 30 2c 35 10 34 30 33 36 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OR 20,5 40360 PRINT "-----------┆
0x06d60…06d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 34 10 30 ┆----------------------------"4 0┆
0x06d80…06da0 33 37 30 20 43 55 52 53 4f 52 20 32 30 2c 37 10 2c 30 33 38 30 20 50 52 49 4e 54 20 22 31 2e 20 ┆370 CURSOR 20,7 ,0380 PRINT "1. ┆
0x06da0…06dc0 20 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6e 79 74 20 6b 61 72 74 6f 74 65 6b 22 2c 10 30 ┆ Oprettelse af nyt kartotek", 0┆
0x06dc0…06de0 33 39 30 20 43 55 52 53 4f 52 20 32 30 2c 39 10 25 30 34 30 30 20 50 52 49 4e 54 20 22 32 2e 20 ┆390 CURSOR 20,9 %0400 PRINT "2. ┆
0x06de0…06e00 20 20 53 6b 72 69 76 65 20 69 20 6b 61 72 74 6f 74 65 6b 65 74 22 25 11 30 34 31 30 20 43 55 52 ┆ Skrive i kartoteket"% 0410 CUR┆
0x06e00…06e20 (3, 0, 15) 53 4f 52 20 32 30 2c 31 31 11 24 30 34 32 30 20 50 52 49 4e 54 20 22 33 2e 20 20 20 52 65 74 74 ┆SOR 20,11 $0420 PRINT "3. Rett┆
0x06e20…06e40 65 20 69 20 6b 61 72 74 6f 74 65 6b 65 74 22 24 11 30 34 33 30 20 43 55 52 53 4f 52 20 32 30 2c ┆e i kartoteket"$ 0430 CURSOR 20,┆
0x06e40…06e60 31 33 11 23 30 34 34 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 4c 7b 73 65 20 69 20 6b 61 72 74 ┆13 #0440 PRINT "4. Læse i kart┆
0x06e60…06e80 6f 74 65 6b 65 74 22 23 11 30 34 35 30 20 43 55 52 53 4f 52 20 32 30 2c 31 35 11 32 30 34 36 30 ┆oteket"# 0450 CURSOR 20,15 20460┆
0x06e80…06ea0 20 50 52 49 4e 54 20 22 35 2e 20 20 20 55 64 73 6b 72 69 76 65 20 6b 61 72 74 6f 74 65 6b 65 74 ┆ PRINT "5. Udskrive kartoteket┆
0x06ea0…06ec0 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 22 32 11 30 34 37 30 20 43 55 52 53 4f 52 20 32 30 2c 31 ┆ på printeren"2 0470 CURSOR 20,1┆
0x06ec0…06ee0 37 11 29 30 34 38 30 20 50 52 49 4e 54 20 22 36 2e 20 20 20 41 66 73 6c 75 74 74 65 20 70 72 6f ┆7 )0480 PRINT "6. Afslutte pro┆
0x06ee0…06f00 67 72 61 6d 6b 7c 72 73 6c 65 6e 22 29 0c 30 34 39 30 20 52 45 50 45 41 54 20 0c 11 30 35 30 30 ┆gramkørslen") 0490 REPEAT 0500┆
0x06f00…06f20 (3, 0, 16) 20 43 55 52 53 4f 52 20 32 30 2c 32 31 11 3c 30 35 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆ CURSOR 20,21 <0510 INPUT "Indta┆
0x06f20…06f40 73 74 20 6e 75 6d 6d 65 72 65 74 20 70 7d 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 6d 75 6c 69 67 ┆st nummeret på den ønskede mulig┆
0x06f40…06f60 68 65 64 3a 22 3a 5c 4e 53 4b 45 3c 20 30 35 32 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 3e 31 ┆hed:":ØNSKE< 0520 UNTIL ØNSKE=>1┆
0x06f60…06f80 20 41 4e 44 20 5c 4e 53 4b 45 3c 3d 36 20 13 30 35 33 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f ┆ AND ØNSKE<=6 0530 CASE ØNSKE O┆
0x06f80…06fa0 46 20 13 0b 30 35 34 30 20 57 48 45 4e 20 31 0b 0f 30 35 35 30 20 45 58 45 43 20 4f 50 52 45 54 ┆F 0540 WHEN 1 0550 EXEC OPRET┆
0x06fa0…06fc0 0f 0d 30 35 36 30 20 57 48 45 4e 20 32 2c 33 0d 12 30 35 37 30 20 45 58 45 43 20 49 4e 44 53 4b ┆ 0560 WHEN 2,3 0570 EXEC INDSK┆
0x06fc0…06fe0 52 49 56 12 0d 30 35 38 30 20 57 48 45 4e 20 34 2c 35 0d 0d 30 35 39 30 20 45 58 45 43 20 4c 5b ┆RIV 0580 WHEN 4,5 0590 EXEC LÆ┆
0x06fe0…07000 53 0d 0b 30 36 30 30 20 57 48 45 4e 20 36 0b 11 30 36 31 30 20 43 55 52 53 4f 52 20 32 30 2c 32 ┆S 0600 WHEN 6 0610 CURSOR 20,2┆
0x07000…07020 (3, 1, 1) 34 11 28 30 36 32 30 20 50 52 49 4e 54 20 22 50 72 6f 67 72 61 6d 6d 65 74 20 65 72 20 6e 75 20 ┆4 (0620 PRINT "Programmet er nu ┆
0x07020…07040 61 66 73 6c 75 74 74 65 74 2e 22 28 0d 30 36 33 30 20 45 4e 44 43 41 53 45 20 0d 11 30 36 34 30 ┆afsluttet."( 0630 ENDCASE 0640┆
0x07040…07060 20 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 42 30 36 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC VALG B0650 // ---------┆
0x07060…07080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07080…070a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 42 0f 30 36 36 30 20 50 52 4f 43 20 4f 50 52 ┆-----------------B 0660 PROC OPR┆
0x070a0…070c0 45 54 0f 0b 30 36 37 30 20 43 4c 45 41 52 20 0b 10 30 36 38 30 20 43 55 52 53 4f 52 20 31 30 2c ┆ET 0670 CLEAR 0680 CURSOR 10,┆
0x070c0…070e0 35 10 44 30 36 39 30 20 50 52 49 4e 54 20 22 20 4f 20 50 20 52 20 45 20 54 20 54 20 45 20 4c 20 ┆5 D0690 PRINT " O P R E T T E L ┆
0x070e0…07100 53 20 45 20 20 20 41 20 46 20 20 20 20 42 20 5d 20 4e 20 44 20 4b 20 41 20 52 20 54 20 4f 20 54 ┆S E A F B Å N D K A R T O T┆
0x07100…07120 (3, 1, 2) 20 45 20 4b 20 2e 22 44 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 30 2c 36 10 44 30 37 31 30 20 ┆ E K ."D 0700 CURSOR 10,6 D0710 ┆
0x07120…07140 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PRINT "-------------------------┆
0x07140…07160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 44 ┆------------------------------"D┆
0x07160…07180 10 30 37 32 30 20 43 55 52 53 4f 52 20 31 30 2c 39 10 2b 30 37 33 30 20 50 52 49 4e 54 20 22 48 ┆ 0720 CURSOR 10,9 +0730 PRINT "H┆
0x07180…071a0 76 61 64 20 73 6b 61 6c 20 6b 61 72 74 6f 74 65 6b 65 74 20 68 65 64 64 65 3f 20 20 22 2c 2b 24 ┆vad skal kartoteket hedde? ",+$┆
0x071a0…071c0 30 37 34 30 20 49 4e 50 55 54 20 22 28 6d 61 78 20 37 20 74 65 67 6e 29 3a 20 22 3a 46 49 4c 4e ┆0740 INPUT "(max 7 tegn): ":FILN┆
0x071c0…071e0 41 56 4e 24 24 22 30 37 35 30 20 46 49 4c 4e 41 56 4e 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b ┆AVN$$"0750 FILNAVN$:="SYSTIME:"+┆
0x071e0…07200 46 49 4c 4e 41 56 4e 24 22 11 30 37 36 30 20 43 55 52 53 4f 52 20 31 30 2c 31 31 11 37 30 37 37 ┆FILNAVN$" 0760 CURSOR 10,11 7077┆
0x07200…07220 (3, 1, 3) 30 20 50 52 49 4e 54 20 22 48 76 6f 72 20 6d 61 6e 67 65 20 62 7d 6e 64 20 73 6b 61 6c 20 64 65 ┆0 PRINT "Hvor mange bånd skal de┆
0x07220…07240 72 20 76 7b 72 65 20 70 6c 61 64 73 20 74 69 6c 3f 20 22 2c 37 14 30 37 38 30 20 49 4e 50 55 54 ┆r være plads til? ",7 0780 INPUT┆
0x07240…07260 20 50 4f 53 54 41 4e 54 41 4c 14 31 30 37 39 30 20 50 4f 53 54 53 54 5c 52 52 45 4c 53 45 3a 3d ┆ POSTANTAL 10790 POSTSTØRRELSE:=┆
0x07260…07280 33 2a 38 2b 32 2a 37 32 20 2f 2f 20 33 20 74 61 6c 20 2b 20 32 20 74 65 6b 73 74 65 72 31 2c 30 ┆3*8+2*72 // 3 tal + 2 tekster1,0┆
0x07280…072a0 38 30 30 20 43 52 45 41 54 45 20 46 49 4c 4e 41 56 4e 24 2c 50 4f 53 54 41 4e 54 41 4c 2c 50 4f ┆800 CREATE FILNAVN$,POSTANTAL,PO┆
0x072a0…072c0 53 54 53 54 5c 52 52 45 4c 53 45 2c 19 30 38 31 30 20 54 59 50 45 3a 3d 31 3b 53 54 5c 4a 3a 3d ┆STSTØRRELSE, 0810 TYPE:=1;STØJ:=┆
0x072c0…072e0 31 3b 4c 3a 3d 30 19 14 30 38 32 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 57 14 1e 30 38 ┆1;L:=0 0820 OPEN FILNAVN$,W 08┆
0x072e0…07300 33 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 50 4f 53 54 41 4e 54 41 4c 20 44 4f 20 1e 29 30 38 ┆30 FOR I:=1 TO POSTANTAL DO )08┆
0x07300…07320 (3, 1, 4) ExtentHdr {name=»DEMO_RAN«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0007,0d (0x007d00)}, prevext={DA 0006,09 (0x006900)}, nextfile={DA 0007,0d (0x007d00)}, f99=41 05 00 20 00 5c 44 45 20 20 ┆A ØDE ┆}
0x07320…07340 34 30 20 50 55 54 20 46 49 4c 4e 41 56 4e 24 2c 49 3a 4c 2c 54 59 50 45 2c 53 54 5c 4a 2c 54 4f ┆40 PUT FILNAVN$,I:L,TYPE,STØJ,TO┆
0x07340…07360 4d 24 2c 54 4f 4d 24 29 0b 30 38 35 30 20 4e 45 58 54 20 49 0b 13 30 38 36 30 20 43 4c 4f 53 45 ┆M$,TOM$) 0850 NEXT I 0860 CLOSE┆
0x07360…07380 20 46 49 4c 4e 41 56 4e 24 13 11 30 38 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 35 11 4b 30 38 ┆ FILNAVN$ 0870 CURSOR 10,15 K08┆
0x07380…073a0 38 30 20 50 52 49 4e 54 20 22 4b 61 72 74 6f 74 65 6b 65 74 3a 20 27 22 3b 46 49 4c 4e 41 56 4e ┆80 PRINT "Kartoteket: '";FILNAVN┆
0x073a0…073c0 24 28 39 3a 4c 45 4e 28 46 49 4c 4e 41 56 4e 24 29 2d 38 29 3b 22 27 20 65 72 20 6e 75 20 6f 70 ┆$(9:LEN(FILNAVN$)-8);"' er nu op┆
0x073c0…073e0 72 65 74 74 65 74 20 22 3b 4b 2d 30 38 39 30 20 50 52 49 4e 54 20 22 6d 65 64 20 70 6c 61 64 73 ┆rettet ";K-0890 PRINT "med plads┆
0x073e0…07400 20 74 69 6c 20 22 3b 50 4f 53 54 41 4e 54 41 4c 3b 22 20 62 7d 6e 64 22 2d 11 30 39 30 30 20 43 ┆ til ";POSTANTAL;" bånd"- 0900 C┆
0x07400…07420 (3, 1, 5) 55 52 53 4f 52 20 31 30 2c 31 37 11 2d 30 39 31 30 20 50 52 49 4e 54 20 22 50 6f 73 74 73 74 7c ┆URSOR 10,17 -0910 PRINT "Poststø┆
0x07420…07440 72 72 65 6c 73 65 6e 20 65 72 20 22 3b 50 4f 53 54 53 54 5c 52 52 45 4c 53 45 2d 11 30 39 32 30 ┆rrelsen er ";POSTSTØRRELSE- 0920┆
0x07440…07460 20 43 55 52 53 4f 52 20 36 38 2c 32 33 11 19 30 39 33 30 20 49 4e 50 55 54 20 22 20 52 65 74 75 ┆ CURSOR 68,23 0930 INPUT " Retu┆
0x07460…07480 72 6e 21 22 3a 53 56 24 19 12 30 39 34 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 49 30 39 ┆rn!":SV$ 0940 ENDPROC OPRET I09┆
0x07480…074a0 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆50 // --------------------------┆
0x074a0…074c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x074c0…074e0 2d 2d 2d 2d 2d 2d 2d 49 12 30 39 36 30 20 50 52 4f 43 20 49 4e 44 53 4b 52 49 56 12 0b 30 39 37 ┆-------I 0960 PROC INDSKRIV 097┆
0x074e0…07500 30 20 43 4c 45 41 52 20 0b 10 30 39 38 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 3f 30 39 39 30 ┆0 CLEAR 0980 CURSOR 10,3 ?0990┆
0x07500…07520 (3, 1, 6) 20 50 52 49 4e 54 20 22 49 20 4e 20 44 20 54 20 41 20 53 20 54 20 4e 20 49 20 4e 20 47 20 20 20 ┆ PRINT "I N D T A S T N I N G ┆
0x07520…07540 20 54 20 49 20 4c 20 20 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 20 2e 22 3f 10 31 30 30 ┆ T I L K A R T O T E K ."? 100┆
0x07540…07560 30 20 43 55 52 53 4f 52 20 31 30 2c 35 10 2b 31 30 31 30 20 49 4e 50 55 54 20 22 4b 61 72 74 6f ┆0 CURSOR 10,5 +1010 INPUT "Karto┆
0x07560…07580 74 65 6b 65 74 73 20 6e 61 76 6e 3a 20 20 20 20 22 3a 46 49 4c 4e 41 56 4e 24 2b 22 31 30 32 30 ┆tekets navn: ":FILNAVN$+"1020┆
0x07580…075a0 20 46 49 4c 4e 41 56 4e 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 4e 41 56 4e 24 22 14 ┆ FILNAVN$:="SYSTIME:"+FILNAVN$" ┆
0x075a0…075c0 31 30 33 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 57 14 0c 31 30 34 30 20 52 45 50 45 41 ┆1030 OPEN FILNAVN$,W 1040 REPEA┆
0x075c0…075e0 54 20 0c 10 31 30 35 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 2d 31 30 36 30 20 49 4e 50 55 54 ┆T 1050 CURSOR 1,10 -1060 INPUT┆
0x075e0…07600 20 22 42 7d 6e 64 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 22 3a 42 5d 4e 44 4e 55 4d ┆ "Båndnummer: ":BÅNDNUM┆
0x07600…07620 (3, 1, 7) 4d 45 52 2d 36 31 30 37 30 20 47 45 54 20 46 49 4c 4e 41 56 4e 24 2c 42 5d 4e 44 4e 55 4d 4d 45 ┆MER-61070 GET FILNAVN$,BÅNDNUMME┆
0x07620…07640 52 3a 4c 2c 54 59 50 45 2c 53 54 5c 4a 2c 53 49 44 45 41 24 2c 53 49 44 45 42 24 36 0b 31 30 38 ┆R:L,TYPE,STØJ,SIDEA$,SIDEB$6 108┆
0x07640…07660 30 20 50 52 49 4e 54 20 0b 2a 31 30 39 30 20 50 52 49 4e 54 20 22 42 7d 6e 64 6c 7b 6e 67 64 65 ┆0 PRINT *1090 PRINT "Båndlængde┆
0x07660…07680 3a 20 20 20 22 3b 4c 3b 22 20 20 20 20 20 20 20 20 20 20 22 2a 0b 31 31 30 30 20 50 52 49 4e 54 ┆: ";L;" "* 1100 PRINT┆
0x07680…076a0 20 0b 40 31 31 31 30 20 50 52 49 4e 54 20 22 42 7d 6e 64 74 79 70 65 3a 20 20 20 20 31 3a 20 20 ┆ @1110 PRINT "Båndtype: 1: ┆
0x076a0…076c0 4e 4f 52 4d 41 4c 20 20 20 32 3a 20 20 43 48 52 4f 4d 20 20 20 33 3a 20 20 46 45 2d 43 52 20 20 ┆NORMAL 2: CHROM 3: FE-CR ┆
0x076c0…076e0 20 22 3b 40 1f 31 31 32 30 20 50 52 49 4e 54 20 22 34 3a 20 4d 45 54 41 4c 20 20 20 3a 20 22 3b ┆ ";@ 1120 PRINT "4: METAL : ";┆
0x076e0…07700 54 59 50 45 1f 0b 31 31 33 30 20 50 52 49 4e 54 20 0b 26 31 31 34 30 20 50 52 49 4e 54 20 22 53 ┆TYPE 1130 PRINT &1140 PRINT "S┆
0x07700…07720 (3, 1, 8) 74 7c 6a 72 65 64 75 6b 74 69 6f 6e 73 73 79 73 74 65 6d 3a 20 20 20 22 3b 26 41 31 31 35 30 20 ┆tøjreduktionssystem: ";&A1150 ┆
0x07720…07740 50 52 49 4e 54 20 22 20 20 20 31 3a 20 20 4e 4f 52 4d 41 4c 20 20 20 32 3a 20 20 44 4f 4c 42 59 ┆PRINT " 1: NORMAL 2: DOLBY┆
0x07740…07760 20 42 20 20 20 33 3a 20 20 44 4f 4c 42 59 20 43 20 20 20 3a 20 20 22 3b 53 54 5c 4a 41 0b 31 31 ┆ B 3: DOLBY C : ";STØJA 11┆
0x07760…07780 36 30 20 50 52 49 4e 54 20 0b 1d 31 31 37 30 20 50 52 49 4e 54 20 22 53 69 64 65 20 41 3a 20 22 ┆60 PRINT 1170 PRINT "Side A: "┆
0x07780…077a0 3b 53 49 44 45 41 24 3b 1d 23 31 31 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 30 2d 4c 45 ┆;SIDEA$; #1180 FOR I:=1 TO 70-LE┆
0x077a0…077c0 4e 28 53 49 44 45 41 24 29 20 44 4f 20 23 0f 31 31 39 30 20 50 52 49 4e 54 20 22 20 22 3b 0f 0b ┆N(SIDEA$) DO # 1190 PRINT " "; ┆
0x077c0…077e0 31 32 30 30 20 4e 45 58 54 20 49 0b 0b 31 32 31 30 20 50 52 49 4e 54 20 0b 0b 31 32 32 30 20 50 ┆1200 NEXT I 1210 PRINT 1220 P┆
0x077e0…07800 52 49 4e 54 20 0b 1d 31 32 33 30 20 50 52 49 4e 54 20 22 53 69 64 65 20 42 3a 20 22 3b 53 49 44 ┆RINT 1230 PRINT "Side B: ";SID┆
0x07800…07820 (3, 1, 9) 45 42 24 3b 1d 23 31 32 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 37 30 2d 4c 45 4e 28 53 49 ┆EB$; #1240 FOR I:=1 TO 70-LEN(SI┆
0x07820…07840 44 45 42 24 29 20 44 4f 20 23 0f 31 32 35 30 20 50 52 49 4e 54 20 22 20 22 3b 0f 0b 31 32 36 30 ┆DEB$) DO # 1250 PRINT " "; 1260┆
0x07840…07860 20 4e 45 58 54 20 49 0b 0b 31 32 37 30 20 50 52 49 4e 54 20 0b 0c 31 32 38 30 20 52 45 50 45 41 ┆ NEXT I 1270 PRINT 1280 REPEA┆
0x07860…07880 54 20 0c 11 31 32 39 30 20 43 55 52 53 4f 52 20 31 35 2c 31 32 11 12 31 33 30 30 20 49 4e 50 55 ┆T 1290 CURSOR 15,12 1300 INPU┆
0x07880…078a0 54 20 22 3c 5a 3e 22 3a 4c 12 11 31 33 31 30 20 43 55 52 53 4f 52 20 36 34 2c 31 34 11 15 31 33 ┆T "<Z>":L 1310 CURSOR 64,14 13┆
0x078a0…078c0 32 30 20 49 4e 50 55 54 20 22 3c 5a 3e 22 3a 54 59 50 45 15 11 31 33 33 30 20 43 55 52 53 4f 52 ┆20 INPUT "<Z>":TYPE 1330 CURSOR┆
0x078c0…078e0 20 37 32 2c 31 36 11 15 31 33 34 30 20 49 4e 50 55 54 20 22 3c 5a 3e 22 3a 53 54 5c 4a 15 10 31 ┆ 72,16 1340 INPUT "<Z>":STØJ 1┆
0x078e0…07900 33 35 30 20 43 55 52 53 4f 52 20 39 2c 31 38 10 17 31 33 36 30 20 49 4e 50 55 54 20 22 3c 5a 3e ┆350 CURSOR 9,18 1360 INPUT "<Z>┆
0x07900…07920 (3, 1, 10) 22 3a 53 49 44 45 41 24 17 10 31 33 37 30 20 43 55 52 53 4f 52 20 39 2c 32 30 10 17 31 33 38 30 ┆":SIDEA$ 1370 CURSOR 9,20 1380┆
0x07920…07940 20 49 4e 50 55 54 20 22 3c 5a 3e 22 3a 53 49 44 45 42 24 17 0c 31 33 39 30 20 52 45 50 45 41 54 ┆ INPUT "<Z>":SIDEB$ 1390 REPEAT┆
0x07940…07960 20 0c 10 31 34 30 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 2c 31 34 31 30 20 50 52 49 4e 54 20 ┆ 1400 CURSOR 1,22 ,1410 PRINT ┆
0x07960…07980 22 54 61 73 74 20 27 72 27 2c 20 68 76 69 73 20 64 75 20 76 69 6c 20 72 65 74 74 65 2c 20 20 22 ┆"Tast 'r', hvis du vil rette, "┆
0x07980…079a0 3b 2c 32 31 34 32 30 20 49 4e 50 55 54 20 22 27 52 65 74 75 72 6e 27 2c 20 68 76 69 73 20 64 75 ┆;,21420 INPUT "'Return', hvis du┆
0x079a0…079c0 20 76 69 6c 20 66 6f 72 74 73 7b 74 74 65 3a 20 22 3a 53 56 24 32 16 31 34 33 30 20 55 4e 54 49 ┆ vil fortsætte: ":SV$2 1430 UNTI┆
0x079c0…079e0 4c 20 53 56 24 20 49 4e 20 22 52 72 22 16 11 31 34 34 30 20 55 4e 54 49 4c 20 53 56 24 3d 22 22 ┆L SV$ IN "Rr" 1440 UNTIL SV$=""┆
0x079e0…07a00 11 36 31 34 35 30 20 50 55 54 20 46 49 4c 4e 41 56 4e 24 2c 42 5d 4e 44 4e 55 4d 4d 45 52 3a 4c ┆ 61450 PUT FILNAVN$,BÅNDNUMMER:L┆
0x07a00…07a20 (3, 1, 11) 2c 54 59 50 45 2c 53 54 5c 4a 2c 53 49 44 45 41 24 2c 53 49 44 45 42 24 36 0c 31 34 36 30 20 52 ┆,TYPE,STØJ,SIDEA$,SIDEB$6 1460 R┆
0x07a20…07a40 45 50 45 41 54 20 0c 10 31 34 37 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 3c 31 34 38 30 20 49 ┆EPEAT 1470 CURSOR 1,23 <1480 I┆
0x07a40…07a60 4e 50 55 54 20 22 53 6b 61 6c 20 64 65 72 20 66 6c 65 72 65 20 62 7d 6e 64 20 69 20 6b 61 72 74 ┆NPUT "Skal der flere bånd i kart┆
0x07a60…07a80 6f 74 65 6b 65 74 3f 20 20 20 28 6a 2f 6e 29 20 20 22 3a 53 56 24 3c 18 31 34 39 30 20 55 4e 54 ┆oteket? (j/n) ":SV$< 1490 UNT┆
0x07a80…07aa0 49 4c 20 53 56 24 20 49 4e 20 22 4a 6a 4e 6e 22 18 10 31 35 30 30 20 43 55 52 53 4f 52 20 31 2c ┆IL SV$ IN "JjNn" 1500 CURSOR 1,┆
0x07aa0…07ac0 32 32 10 0f 31 35 31 30 20 50 52 49 4e 54 20 54 4f 4d 24 0f 10 31 35 32 30 20 43 55 52 53 4f 52 ┆22 1510 PRINT TOM$ 1520 CURSOR┆
0x07ac0…07ae0 20 31 2c 32 33 10 0f 31 35 33 30 20 50 52 49 4e 54 20 54 4f 4d 24 0f 16 31 35 34 30 20 55 4e 54 ┆ 1,23 1530 PRINT TOM$ 1540 UNT┆
0x07ae0…07b00 49 4c 20 53 56 24 20 49 4e 20 22 4e 6e 22 16 13 31 35 35 30 20 43 4c 4f 53 45 20 46 49 4c 4e 41 ┆IL SV$ IN "Nn" 1550 CLOSE FILNA┆
0x07b00…07b20 (3, 1, 12) 56 4e 24 13 15 31 35 36 30 20 45 4e 44 50 52 4f 43 20 49 4e 44 53 4b 52 49 56 15 4c 31 35 37 30 ┆VN$ 1560 ENDPROC INDSKRIV L1570┆
0x07b20…07b40 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x07b40…07b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x07b60…07b80 2d 2d 2d 2d 2d 2d 2d 2d 4c 0d 31 35 38 30 20 50 52 4f 43 20 4c 5b 53 0d 0b 31 35 39 30 20 43 4c ┆--------L 1580 PROC LÆS 1590 CL┆
0x07b80…07ba0 45 41 52 20 0b 10 31 36 30 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 36 31 36 31 30 20 50 52 49 ┆EAR 1600 CURSOR 10,3 61610 PRI┆
0x07ba0…07bc0 4e 54 20 22 55 20 44 20 4c 20 5b 20 53 20 4e 20 49 20 4e 20 47 20 20 20 41 20 46 20 20 4b 20 41 ┆NT "U D L Æ S N I N G A F K A┆
0x07bc0…07be0 20 52 20 54 20 4f 20 54 20 45 20 4b 20 22 36 10 31 36 32 30 20 43 55 52 53 4f 52 20 31 30 2c 35 ┆ R T O T E K "6 1620 CURSOR 10,5┆
0x07be0…07c00 10 2b 31 36 33 30 20 49 4e 50 55 54 20 22 4b 61 72 74 6f 74 65 6b 65 74 73 20 6e 61 76 6e 3a 20 ┆ +1630 INPUT "Kartotekets navn: ┆
0x07c00…07c20 (3, 1, 13) 20 20 20 22 3a 46 49 4c 4e 41 56 4e 24 2b 22 31 36 34 30 20 46 49 4c 4e 41 56 4e 24 3a 3d 22 53 ┆ ":FILNAVN$+"1640 FILNAVN$:="S┆
0x07c20…07c40 59 53 54 49 4d 45 3a 22 2b 46 49 4c 4e 41 56 4e 24 22 14 31 36 35 30 20 4f 50 45 4e 20 46 49 4c ┆YSTIME:"+FILNAVN$" 1650 OPEN FIL┆
0x07c40…07c60 4e 41 56 4e 24 2c 57 14 11 31 36 36 30 20 43 55 52 53 4f 52 20 31 30 2c 31 30 11 36 31 36 37 30 ┆NAVN$,W 1660 CURSOR 10,10 61670┆
0x07c60…07c80 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 62 7d 6e 64 6e 75 6d 6d 65 72 65 74 20 70 7d 20 ┆ PRINT "Indtast båndnummeret på ┆
0x07c80…07ca0 66 7c 72 73 74 65 20 6f 67 20 73 69 64 73 74 65 20 22 36 11 31 36 38 30 20 43 55 52 53 4f 52 20 ┆første og sidste "6 1680 CURSOR ┆
0x07ca0…07cc0 31 30 2c 31 31 11 33 31 36 39 30 20 49 4e 50 55 54 20 22 62 7d 6e 64 2c 20 64 65 72 20 7c 6e 73 ┆10,11 31690 INPUT "bånd, der øns┆
0x07cc0…07ce0 6b 65 73 20 6c 7b 73 74 3a 20 20 22 3a 46 5c 52 53 54 45 2c 53 49 44 53 54 45 33 15 31 37 30 30 ┆kes læst: ":FØRSTE,SIDSTE3 1700┆
0x07ce0…07d00 20 49 46 20 5c 4e 53 4b 45 3d 35 20 54 48 45 4e 20 15 16 31 37 31 30 20 53 45 4c 45 43 54 20 4f ┆ IF ØNSKE=5 THEN 1710 SELECT O┆
0x07d00…07d20 (3, 1, 14) ExtentHdr {name=»DEMO_RAN«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0007,03 (0x007300)}, nextfile={DA 0008,07 (0x008700)}, f99=41 05 00 20 00 5c 44 45 20 20 ┆A ØDE ┆}
0x07d20…07d40 55 54 50 55 54 20 22 50 22 16 1b 31 37 32 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 ┆UTPUT "P" 1720 IF STATUS("P")=1┆
0x07d40…07d60 20 54 48 45 4e 20 1b 11 31 37 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 36 31 37 34 30 20 ┆ THEN 1730 CURSOR 10,12 61740 ┆
0x07d60…07d80 50 52 49 4e 54 20 22 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 20 61 ┆PRINT "Printeren er reserveret a┆
0x07d80…07da0 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 20 22 36 11 31 37 35 30 20 43 55 52 53 4f 52 20 31 ┆f anden bruger, "6 1750 CURSOR 1┆
0x07da0…07dc0 30 2c 31 33 11 40 31 37 36 30 20 49 4e 50 55 54 20 22 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 ┆0,13 @1760 INPUT "skal der vente┆
0x07dc0…07de0 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 ┆s på at den bliver ledig? (j/n)┆
0x07de0…07e00 20 22 3a 53 56 24 40 11 31 37 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 0f 31 37 38 30 20 ┆ ":SV$@ 1770 CURSOR 10,12 1780 ┆
0x07e00…07e20 (3, 1, 15) 50 52 49 4e 54 20 54 4f 4d 24 0f 11 31 37 39 30 20 43 55 52 53 4f 52 20 31 30 2c 31 33 11 0f 31 ┆PRINT TOM$ 1790 CURSOR 10,13 1┆
0x07e20…07e40 38 30 30 20 50 52 49 4e 54 20 54 4f 4d 24 0f 20 31 38 31 30 20 49 46 20 53 56 24 3d 22 4a 22 20 ┆800 PRINT TOM$ 1810 IF SV$="J" ┆
0x07e40…07e60 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 45 4e 20 20 11 31 38 32 30 20 43 55 52 53 4f 52 20 31 30 ┆OR SV$="j" THEN 1820 CURSOR 10┆
0x07e60…07e80 2c 31 32 11 39 31 38 33 30 20 50 52 49 4e 54 20 22 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 ┆,12 91830 PRINT "Der ventes på a┆
0x07e80…07ea0 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 2e 22 39 2d ┆t printeren bliver ledig....."9-┆
0x07ea0…07ec0 31 38 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 ┆1840 WHILE STATUS("P")=1 DO SELE┆
0x07ec0…07ee0 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0a 31 38 35 30 20 45 4c 53 45 20 0a 2a 31 38 36 30 20 ┆CT OUTPUT "P"- 1850 ELSE *1860 ┆
0x07ee0…07f00 5c 4e 53 4b 45 3a 3d 34 20 2f 2f 20 5c 4e 53 4b 45 20 3d 20 55 64 73 6b 72 69 66 74 20 70 7d 20 ┆ØNSKE:=4 // ØNSKE = Udskrift på ┆
0x07f00…07f20 (3, 1, 16) 73 6b 7b 72 6d 2a 0b 31 38 37 30 20 45 4e 44 49 46 20 0b 0b 31 38 38 30 20 45 4e 44 49 46 20 0b ┆skærm* 1870 ENDIF 1880 ENDIF ┆
0x07f20…07f40 0b 31 38 39 30 20 45 4e 44 49 46 20 0b 3d 31 39 30 30 20 49 46 20 5c 4e 53 4b 45 3d 35 20 54 48 ┆ 1890 ENDIF =1900 IF ØNSKE=5 TH┆
0x07f40…07f60 45 4e 20 50 52 49 4e 54 20 22 55 64 73 6b 72 69 66 74 20 66 72 61 20 27 22 2c 46 49 4c 4e 41 56 ┆EN PRINT "Udskrift fra '",FILNAV┆
0x07f60…07f80 4e 24 28 39 3a 38 29 2c 22 27 22 3d 0b 31 39 31 30 20 50 52 49 4e 54 20 0b 0b 31 39 32 30 20 50 ┆N$(9:8),"'"= 1910 PRINT 1920 P┆
0x07f80…07fa0 52 49 4e 54 20 0b 29 31 39 33 30 20 46 4f 52 20 42 5d 4e 44 4e 55 4d 4d 45 52 3a 3d 46 5c 52 53 ┆RINT )1930 FOR BÅNDNUMMER:=FØRS┆
0x07fa0…07fc0 54 45 20 54 4f 20 53 49 44 53 54 45 20 44 4f 20 29 36 31 39 34 30 20 47 45 54 20 46 49 4c 4e 41 ┆TE TO SIDSTE DO )61940 GET FILNA┆
0x07fc0…07fe0 56 4e 24 2c 42 5d 4e 44 4e 55 4d 4d 45 52 3a 4c 2c 54 59 50 45 2c 53 54 5c 4a 2c 53 49 44 45 41 ┆VN$,BÅNDNUMMER:L,TYPE,STØJ,SIDEA┆
0x07fe0…08000 24 2c 53 49 44 45 42 24 36 11 31 39 35 30 20 49 46 20 4c 3e 30 20 54 48 45 4e 20 11 21 31 39 36 ┆$,SIDEB$6 1950 IF L>0 THEN !196┆
0x08000…08020 (4, 0, 1) 30 20 50 52 49 4e 54 20 22 42 7d 6e 64 20 6e 72 2e 20 22 2c 42 5d 4e 44 4e 55 4d 4d 45 52 21 2b ┆0 PRINT "Bånd nr. ",BÅNDNUMMER!+┆
0x08020…08040 31 39 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 7d 6e 64 6c 7b 6e 67 64 65 3a 20 20 23 ┆1970 PRINT USING "Båndlængde: #┆
0x08040…08060 23 23 23 20 20 20 20 22 3a 4c 3b 2b 1a 31 39 38 30 20 50 52 49 4e 54 20 22 42 7d 6e 64 74 79 70 ┆### ":L;+ 1980 PRINT "Båndtyp┆
0x08060…08080 65 3a 20 20 20 22 3b 1a 12 31 39 39 30 20 43 41 53 45 20 54 59 50 45 20 4f 46 20 12 0b 32 30 30 ┆e: "; 1990 CASE TYPE OF 200┆
0x08080…080a0 30 20 57 48 45 4e 20 31 0b 19 32 30 31 30 20 50 52 49 4e 54 20 22 4e 4f 52 4d 41 4c 20 20 20 20 ┆0 WHEN 1 2010 PRINT "NORMAL ┆
0x080a0…080c0 20 22 3b 19 0b 32 30 32 30 20 57 48 45 4e 20 32 0b 19 32 30 33 30 20 50 52 49 4e 54 20 22 43 48 ┆ "; 2020 WHEN 2 2030 PRINT "CH┆
0x080c0…080e0 52 4f 4d 20 20 20 20 20 20 22 3b 19 0b 32 30 34 30 20 57 48 45 4e 20 33 0b 19 32 30 35 30 20 50 ┆ROM "; 2040 WHEN 3 2050 P┆
0x080e0…08100 52 49 4e 54 20 22 46 45 2d 43 52 20 20 20 20 20 20 22 3b 19 0b 32 30 36 30 20 57 48 45 4e 20 34 ┆RINT "FE-CR "; 2060 WHEN 4┆
0x08100…08120 (4, 0, 2) 0b 19 32 30 37 30 20 50 52 49 4e 54 20 22 4d 45 54 41 4c 20 20 20 20 20 20 22 3b 19 0f 32 30 38 ┆ 2070 PRINT "METAL "; 208┆
0x08120…08140 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0d 32 30 39 30 20 45 4e 44 43 41 53 45 20 0d 25 32 31 30 ┆0 OTHERWISE 2090 ENDCASE %210┆
0x08140…08160 30 20 50 52 49 4e 54 20 22 53 74 7c 6a 72 65 64 75 6b 74 69 6f 6e 73 73 79 73 74 65 6d 3a 20 20 ┆0 PRINT "Støjreduktionssystem: ┆
0x08160…08180 22 3b 25 12 32 31 31 30 20 43 41 53 45 20 53 54 5c 4a 20 4f 46 20 12 0b 32 31 32 30 20 57 48 45 ┆";% 2110 CASE STØJ OF 2120 WHE┆
0x08180…081a0 4e 20 31 0b 13 32 31 33 30 20 50 52 49 4e 54 20 22 4e 4f 52 4d 41 4c 22 13 0b 32 31 34 30 20 57 ┆N 1 2130 PRINT "NORMAL" 2140 W┆
0x081a0…081c0 48 45 4e 20 32 0b 14 32 31 35 30 20 50 52 49 4e 54 20 22 44 4f 4c 42 59 20 42 22 14 0b 32 31 36 ┆HEN 2 2150 PRINT "DOLBY B" 216┆
0x081c0…081e0 30 20 57 48 45 4e 20 33 0b 14 32 31 37 30 20 50 52 49 4e 54 20 22 44 4f 4c 42 59 20 43 22 14 0f ┆0 WHEN 3 2170 PRINT "DOLBY C" ┆
0x081e0…08200 32 31 38 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 32 31 39 30 20 50 52 49 4e 54 20 0b 0d 32 32 ┆2180 OTHERWISE 2190 PRINT 22┆
0x08200…08220 (4, 0, 3) 30 30 20 45 4e 44 43 41 53 45 20 0d 1d 32 32 31 30 20 50 52 49 4e 54 20 22 53 69 64 65 20 41 3a ┆00 ENDCASE 2210 PRINT "Side A:┆
0x08220…08240 20 20 22 3b 53 49 44 45 41 24 1d 1d 32 32 32 30 20 50 52 49 4e 54 20 22 53 69 64 65 20 42 3a 20 ┆ ";SIDEA$ 2220 PRINT "Side B: ┆
0x08240…08260 20 22 3b 53 49 44 45 42 24 1d 0b 32 32 33 30 20 50 52 49 4e 54 20 0b 0b 32 32 34 30 20 45 4e 44 ┆ ";SIDEB$ 2230 PRINT 2240 END┆
0x08260…08280 49 46 20 0b 14 32 32 35 30 20 4e 45 58 54 20 42 5d 4e 44 4e 55 4d 4d 45 52 14 13 32 32 36 30 20 ┆IF 2250 NEXT BÅNDNUMMER 2260 ┆
0x08280…082a0 43 4c 4f 53 45 20 46 49 4c 4e 41 56 4e 24 13 0b 32 32 37 30 20 50 52 49 4e 54 20 0b 16 32 32 38 ┆CLOSE FILNAVN$ 2270 PRINT 228┆
0x082a0…082c0 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 0b 32 32 39 30 20 50 52 49 4e 54 20 ┆0 SELECT OUTPUT "T" 2290 PRINT ┆
0x082c0…082e0 0b 11 32 33 30 30 20 43 55 52 53 4f 52 20 36 35 2c 32 34 11 18 32 33 31 30 20 49 4e 50 55 54 20 ┆ 2300 CURSOR 65,24 2310 INPUT ┆
0x082e0…08300 22 52 65 74 75 72 6e 21 22 3a 53 56 24 18 10 32 33 32 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 ┆"Return!":SV$ 2320 ENDPROC LÆS ┆
0x08300…08320 (4, 0, 4) 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x08320…08340 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x08400…08500 (4, 0, 5) 0x63[0x100]
[…0x2…]
0x08700…08720 (4, 0, 8) ExtentHdr {name=»FLYBILLE«, typ=»K«, seg=»A«, next=0x01, basis=0x0008, nextext={DA 0008,0f (0x008f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,0f (0x008f00)}, f99=41 05 00 fe 00 5c 44 45 20 20 ┆A ØDE ┆}
0x08720…08740 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆
0x08740…08760 20 66 6c 79 62 69 6c 6c 65 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ flybillet ---------------------┆
0x08760…08780 2d 2d 2d 42 48 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 ┆---BH0020 // Programmet udregner┆
0x08780…087a0 20 66 6c 79 70 72 69 73 65 72 20 6d 65 64 20 74 72 65 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 72 ┆ flypriser med tre forskellige r┆
0x087a0…087c0 61 62 61 74 73 79 73 74 65 6d 65 72 2e 48 32 30 30 33 30 20 2f 2f 20 4e 6f 72 6d 61 6c 70 72 69 ┆abatsystemer.H20030 // Normalpri┆
0x087c0…087e0 73 3a 20 43 6f 6d 70 75 74 65 72 74 6f 77 6e 20 74 75 72 2f 72 65 74 75 72 20 39 30 30 20 6b 72 ┆s: Computertown tur/retur 900 kr┆
0x087e0…08800 2e 32 3f 30 30 34 30 20 2f 2f 20 52 61 62 61 74 70 72 69 73 20 76 65 64 20 67 72 75 70 70 65 72 ┆.2?0040 // Rabatpris ved grupper┆
0x08800…08820 (4, 0, 9) 20 6f 76 65 72 20 31 30 20 70 65 72 73 6f 6e 65 72 3a 20 20 38 30 25 20 61 66 20 62 69 6c 6c 65 ┆ over 10 personer: 80% af bille┆
0x08820…08840 74 2e 3f 4d 30 30 35 30 20 2f 2f 20 46 61 6d 69 6c 69 65 70 72 69 73 3a 20 56 6f 6b 73 65 6e 3a ┆t.?M0050 // Familiepris: Voksen:┆
0x08840…08860 20 31 30 30 20 25 2c 20 7b 67 74 65 66 7b 6c 6c 65 3a 20 35 30 20 25 2c 20 65 66 74 65 72 66 7c ┆ 100 %, ægtefælle: 50 %, efterfø┆
0x08860…08880 6c 67 65 6e 64 65 20 62 7c 72 6e 3a 20 31 30 20 25 4d 4d 30 30 36 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆lgende børn: 10 %MM0060 // -----┆
0x08880…088a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x088c0…088e0 4d 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0f 30 30 38 30 20 43 55 52 53 4f 52 20 35 2c 35 0f 37 ┆M 0070 CLEAR 0080 CURSOR 5,5 7┆
0x088e0…08900 30 30 39 30 20 50 52 49 4e 54 20 22 20 46 20 4c 20 59 20 42 20 49 20 4c 20 4c 20 45 20 54 20 3a ┆0090 PRINT " F L Y B I L L E T :┆
0x08900…08920 (4, 0, 10) 20 4b 20 5c 20 42 20 45 20 4e 20 48 20 41 20 56 20 4e 20 20 20 22 3b 37 28 30 30 39 35 20 50 52 ┆ K Ø B E N H A V N ";7(0095 PR┆
0x08920…08940 49 4e 54 20 22 2d 20 43 20 4f 20 4d 20 50 20 55 20 54 20 45 20 52 20 54 20 4f 20 57 20 4e 20 2e ┆INT "- C O M P U T E R T O W N .┆
0x08940…08960 22 28 37 30 31 30 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆"(70100 PRINT "_________________┆
0x08960…08980 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 3b 37 28 30 31 30 35 ┆________________________";7(0105┆
0x08980…089a0 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ PRINT "________________________┆
0x089a0…089c0 5f 5f 5f 22 28 0f 30 31 31 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 48 30 31 32 30 20 49 4e 50 55 ┆___"( 0110 CURSOR 1,9 H0120 INPU┆
0x089c0…089e0 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 70 61 73 73 61 67 65 72 65 ┆T "Indtast antallet af passagere┆
0x089e0…08a00 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 4e 54 41 4c 48 ┆r: ":ANTALH┆
0x08a00…08a20 (4, 0, 11) 10 30 31 33 30 20 43 55 52 53 4f 52 20 31 2c 31 31 10 4a 30 31 34 30 20 49 4e 50 55 54 20 22 49 ┆ 0130 CURSOR 1,11 J0140 INPUT "I┆
0x08a20…08a40 6e 64 74 61 73 74 20 66 61 6d 69 6c 69 65 66 6f 72 68 6f 6c 64 3a 20 28 48 76 69 73 20 66 61 6d ┆ndtast familieforhold: (Hvis fam┆
0x08a40…08a60 69 6c 69 65 3a 20 31 2c 20 65 6c 6c 65 72 73 20 30 29 20 20 22 3a 46 41 4d 49 4c 49 45 4a 36 30 ┆ilie: 1, ellers 0) ":FAMILIEJ60┆
0x08a60…08a80 31 35 30 20 49 46 20 41 4e 54 41 4c 3c 3d 31 30 20 41 4e 44 20 46 41 4d 49 4c 49 45 3d 30 20 54 ┆150 IF ANTAL<=10 AND FAMILIE=0 T┆
0x08a80…08aa0 48 45 4e 20 45 58 45 43 20 45 4e 4b 45 4c 54 42 49 4c 4c 45 54 36 35 30 31 36 30 20 49 46 20 41 ┆HEN EXEC ENKELTBILLET650160 IF A┆
0x08aa0…08ac0 4e 54 41 4c 3e 31 30 20 41 4e 44 20 46 41 4d 49 4c 49 45 3d 30 20 54 48 45 4e 20 45 58 45 43 20 ┆NTAL>10 AND FAMILIE=0 THEN EXEC ┆
0x08ac0…08ae0 47 52 55 50 50 45 42 49 4c 4c 45 54 35 34 30 31 37 30 20 49 46 20 41 4e 54 41 4c 3e 31 20 41 4e ┆GRUPPEBILLET540170 IF ANTAL>1 AN┆
0x08ae0…08b00 44 20 46 41 4d 49 4c 49 45 3d 31 20 54 48 45 4e 20 45 58 45 43 20 46 41 4d 49 4c 45 42 49 4c 4c ┆D FAMILIE=1 THEN EXEC FAMILEBILL┆
0x08b00…08b20 (4, 0, 12) 45 54 34 4d 30 31 38 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ET4M0180 // --------------------┆
0x08b20…08b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08b40…08b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 16 30 31 39 30 20 50 52 4f 43 20 45 4e 4b ┆-----------------M 0190 PROC ENK┆
0x08b60…08b80 45 4c 54 42 49 4c 4c 45 54 16 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 4d 30 32 31 30 20 50 52 49 ┆ELTBILLET 0200 PRINT M0210 PRI┆
0x08b80…08ba0 4e 54 20 22 44 65 72 20 73 6b 61 6c 20 62 65 74 61 6c 65 73 20 39 30 30 20 6b 72 2e 20 74 75 72 ┆NT "Der skal betales 900 kr. tur┆
0x08ba0…08bc0 2f 72 65 74 75 72 20 43 6f 6d 70 75 74 65 72 74 6f 77 6e 20 66 6f 72 20 68 76 65 72 20 62 69 6c ┆/retur Computertown for hver bil┆
0x08bc0…08be0 6c 65 74 2e 22 4d 33 30 32 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 49 61 6c 74 3a 20 20 ┆let."M30220 PRINT USING "Ialt: ┆
0x08be0…08c00 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 39 30 30 2a 41 4e 54 41 4c 33 19 30 32 33 30 ┆ #######.## kr.":900*ANTAL3 0230┆
0x08c00…08c20 (4, 0, 13) 20 45 4e 44 50 52 4f 43 20 45 4e 4b 45 4c 54 42 49 4c 4c 45 54 19 4d 30 32 34 30 20 2f 2f 20 2d ┆ ENDPROC ENKELTBILLET M0240 // -┆
0x08c20…08c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x08c60…08c80 2d 2d 2d 2d 4d 16 30 32 35 30 20 50 52 4f 43 20 47 52 55 50 50 45 42 49 4c 4c 45 54 16 0b 30 32 ┆----M 0250 PROC GRUPPEBILLET 02┆
0x08c80…08ca0 36 30 20 50 52 49 4e 54 20 0b 12 30 32 37 30 20 50 52 49 53 3a 3d 39 30 30 2a 30 2e 38 12 37 30 ┆60 PRINT 0270 PRIS:=900*0.8 70┆
0x08ca0…08cc0 32 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 44 65 72 20 73 6b 61 6c 20 62 65 74 61 6c 65 ┆280 PRINT USING "Der skal betale┆
0x08cc0…08ce0 73 20 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 52 49 53 3b 37 34 30 32 38 31 20 50 52 49 ┆s ######.## kr.":PRIS;740281 PRI┆
0x08ce0…08d00 4e 54 20 22 20 74 75 72 2f 72 65 74 75 72 20 43 6f 6d 70 75 74 65 72 74 6f 77 6e 20 66 6f 72 20 ┆NT " tur/retur Computertown for ┆
0x08d00…08d20 (4, 0, 14) 68 76 65 72 20 62 69 6c 6c 65 74 22 34 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 32 30 33 30 30 20 ┆hver billet"4 0290 PRINT 20300 ┆
0x08d20…08d40 50 52 49 4e 54 20 55 53 49 4e 47 20 22 49 61 6c 74 3a 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 ┆PRINT USING "Ialt: #######.## kr┆
0x08d40…08d60 2e 22 3a 50 52 49 53 2a 41 4e 54 41 4c 32 19 30 33 31 30 20 45 4e 44 50 52 4f 43 20 47 52 55 50 ┆.":PRIS*ANTAL2 0310 ENDPROC GRUP┆
0x08d60…08d80 50 45 42 49 4c 4c 45 54 19 4d 30 33 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PEBILLET M0320 // --------------┆
0x08d80…08da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x08da0…08dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 16 30 33 33 30 20 50 52 ┆-----------------------M 0330 PR┆
0x08dc0…08de0 4f 43 20 46 41 4d 49 4c 45 42 49 4c 4c 45 54 16 0b 30 33 34 30 20 50 52 49 4e 54 20 0b 4a 30 33 ┆OC FAMILEBILLET 0340 PRINT J03┆
0x08de0…08e00 35 30 20 49 46 20 41 4e 54 41 4c 3e 31 34 20 54 48 45 4e 20 50 52 49 4e 54 20 22 46 61 6d 69 6c ┆50 IF ANTAL>14 THEN PRINT "Famil┆
0x08e00…08e20 (4, 0, 15) 69 65 6e 20 73 6b 61 6c 20 6f 76 65 72 76 65 6a 65 20 61 74 20 6c 65 6a 65 20 73 69 74 20 65 67 ┆ien skal overveje at leje sit eg┆
0x08e20…08e40 65 74 20 66 6c 79 2e 22 4a 0b 30 33 36 30 20 50 52 49 4e 54 20 0b 28 30 33 37 30 20 50 52 49 53 ┆et fly."J 0360 PRINT (0370 PRIS┆
0x08e40…08e60 3a 3d 39 30 30 2b 39 30 30 2a 30 2e 35 2b 28 41 4e 54 41 4c 2d 32 29 2a 39 30 30 2a 30 2e 31 28 ┆:=900+900*0.5+(ANTAL-2)*900*0.1(┆
0x08e60…08e80 3f 30 33 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 6f 6b 73 65 6e 3a 20 20 20 20 20 20 ┆?0380 PRINT USING "Voksen: ┆
0x08e80…08ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 39 30 30 ┆ #######.## kr.":900┆
0x08ea0…08ec0 3f 43 30 33 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 5b 67 74 65 66 7b 6c 6c 65 3a 20 20 ┆?C0390 PRINT USING "Ægtefælle: ┆
0x08ec0…08ee0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 39 30 ┆ #######.## kr.":90┆
0x08ee0…08f00 30 2a 30 2e 35 43 15 30 34 30 30 20 49 46 20 41 4e 54 41 4c 3e 32 20 54 48 45 4e 20 15 44 30 34 ┆0*0.5C 0400 IF ANTAL>2 THEN D04┆
0x08f00…08f20 (4, 0, 16) ExtentHdr {name=»FLYBILLE«, typ=»K«, seg=»B«, next=0x01, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0008,07 (0x008700)}, nextfile={DA 0009,07 (0x009700)}, f99=41 05 00 20 00 5c 44 45 20 20 ┆A ØDE ┆}
0x08f20…08f40 30 31 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 48 76 65 72 74 20 62 61 72 6e 20 73 6b 61 6c 20 ┆01 PRINT USING "Hvert barn skal ┆
0x08f40…08f60 62 65 74 61 6c 65 3a 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 39 30 30 2a 30 ┆betale: #######.## kr. ":900*0┆
0x08f60…08f80 2e 31 44 0b 30 34 30 32 20 45 4e 44 49 46 20 0b 0b 30 34 31 30 20 50 52 49 4e 54 20 0b 4d 30 34 ┆.1D 0402 ENDIF 0410 PRINT M04┆
0x08f80…08fa0 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 46 61 6d 69 6c 65 6e 20 73 6b 61 6c 20 62 65 74 ┆20 PRINT USING "Familen skal bet┆
0x08fa0…08fc0 61 6c 65 3a 23 23 23 23 23 23 2e 23 23 20 74 75 72 2f 72 65 74 75 72 20 43 6f 6d 70 75 74 65 72 ┆ale:######.## tur/retur Computer┆
0x08fc0…08fe0 74 6f 77 6e 2e 22 3a 50 52 49 53 4d 19 30 34 33 30 20 45 4e 44 50 52 4f 43 20 46 41 4d 49 4c 45 ┆town.":PRISM 0430 ENDPROC FAMILE┆
0x08fe0…09000 42 49 4c 4c 45 54 19 00 00 2f 20 52 61 62 61 74 70 72 69 73 20 76 65 64 20 67 72 75 70 70 65 72 ┆BILLET / Rabatpris ved grupper┆
0x09000…09100 (4, 1, 1) 0x63[0x100]
[…0x6…]
0x09700…09720 (4, 1, 8) ExtentHdr {name=»FIBONACC«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 0009,0b (0x009b00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,0b (0x009b00)}, f99=41 05 00 fe 00 5c 44 45 20 20 ┆A ØDE ┆}
0x09720…09740 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 66 69 62 ┆?0010 // ------------------- fib┆
0x09740…09760 6f 6e 61 63 63 69 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆onacci -------------------------┆
0x09760…09780 3f 41 30 30 32 30 20 2f 2f 20 4d 61 6e 20 73 6b 61 6c 20 69 6e 64 74 61 73 74 20 64 65 20 74 6f ┆?A0020 // Man skal indtast de to┆
0x09780…097a0 20 66 7c 72 73 74 65 20 74 61 6c 20 73 61 6d 74 20 61 6e 74 61 6c 20 61 66 20 65 6c 65 6d 65 6e ┆ første tal samt antal af elemen┆
0x097a0…097c0 74 65 72 41 11 30 30 33 30 20 2f 2f 20 69 20 72 7b 6b 6b 65 6e 2e 11 43 30 30 34 30 20 2f 2f 20 ┆terA 0030 // i rækken. C0040 // ┆
0x097c0…097e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x097e0…09800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 3b 30 30 34 ┆---------------------------C;004┆
0x09800…09820 (4, 1, 9) 35 20 49 4e 54 45 47 45 52 20 54 41 4c 31 2c 54 41 4c 32 2c 4e 5b 53 54 45 54 41 4c 2c 46 4f 52 ┆5 INTEGER TAL1,TAL2,NÆSTETAL,FOR┆
0x09820…09840 54 41 4c 2c 53 55 4d 2c 46 4f 52 52 49 47 45 54 41 4c 2c 4e 2c 4d 41 58 3b 0b 30 30 35 30 20 43 ┆TAL,SUM,FORRIGETAL,N,MAX; 0050 C┆
0x09840…09860 4c 45 41 52 20 0b 08 30 30 36 30 20 2f 2f 20 08 10 30 30 37 30 20 43 55 52 53 4f 52 20 32 32 2c ┆LEAR 0060 // 0070 CURSOR 22,┆
0x09860…09880 32 10 36 30 30 38 30 20 50 52 49 4e 54 20 22 46 20 49 20 42 20 4f 20 4e 20 4e 20 41 20 43 20 43 ┆2 60080 PRINT "F I B O N N A C C┆
0x09880…098a0 20 49 20 20 2d 20 20 54 20 41 20 4c 20 52 20 5b 20 4b 20 4b 20 45 20 2e 22 36 10 30 30 39 30 20 ┆ I - T A L R Æ K K E ."6 0090 ┆
0x098a0…098c0 43 55 52 53 4f 52 20 32 32 2c 33 10 35 30 31 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆CURSOR 22,3 50100 PRINT "-------┆
0x098c0…098e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x098e0…09900 2d 22 35 0f 30 31 31 30 20 43 55 52 53 4f 52 20 36 2c 35 0f 3b 30 31 32 30 20 50 52 49 4e 54 20 ┆-"5 0110 CURSOR 6,5 ;0120 PRINT ┆
0x09900…09920 (4, 1, 10) 22 49 6e 64 74 61 73 74 20 64 65 74 20 66 7c 72 73 74 65 20 74 61 6c 3a 20 20 20 20 20 20 20 20 ┆"Indtast det første tal: ┆
0x09920…09940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 3b 0f 30 31 33 30 20 49 4e 50 55 54 20 54 41 4c ┆ ";; 0130 INPUT TAL┆
0x09940…09960 31 0f 0f 30 31 34 30 20 43 55 52 53 4f 52 20 36 2c 37 0f 3b 30 31 35 30 20 50 52 49 4e 54 20 22 ┆1 0140 CURSOR 6,7 ;0150 PRINT "┆
0x09960…09980 49 6e 64 74 61 73 74 20 64 65 74 20 61 6e 64 65 74 20 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 ┆Indtast det andet tal: ┆
0x09980…099a0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 3b 0f 30 31 36 30 20 49 4e 50 55 54 20 54 41 4c 32 ┆ ";; 0160 INPUT TAL2┆
0x099a0…099c0 0f 0c 30 31 37 30 20 52 45 50 45 41 54 20 0c 0f 30 31 38 30 20 43 55 52 53 4f 52 20 36 2c 39 0f ┆ 0170 REPEAT 0180 CURSOR 6,9 ┆
0x099c0…099e0 3b 30 31 39 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 6d 61 78 69 6d 75 6d 20 61 66 20 ┆;0190 PRINT "Indtast maximum af ┆
0x099e0…09a00 65 6c 65 6d 65 6e 74 65 72 20 20 28 6d 69 6e 2e 20 34 29 3a 20 20 20 20 20 20 22 3b 3b 0e 30 32 ┆elementer (min. 4): ";; 02┆
0x09a00…09a20 (4, 1, 11) 30 30 20 49 4e 50 55 54 20 4d 41 58 0e 10 30 32 31 30 20 55 4e 54 49 4c 20 4d 41 58 3e 33 10 43 ┆00 INPUT MAX 0210 UNTIL MAX>3 C┆
0x09a20…09a40 30 32 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0220 // ------------------------┆
0x09a40…09a60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x09a60…09a80 2d 2d 2d 43 10 30 32 33 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 15 30 32 34 30 20 46 4f 52 52 ┆---C 0230 CURSOR 1,12 0240 FORR┆
0x09a80…09aa0 49 47 45 54 41 4c 3a 3d 54 41 4c 32 15 18 30 32 35 30 20 4e 5b 53 54 45 54 41 4c 3a 3d 54 41 4c ┆IGETAL:=TAL2 0250 NÆSTETAL:=TAL┆
0x09aa0…09ac0 31 2b 54 41 4c 32 18 1e 30 32 36 30 20 50 52 49 4e 54 20 54 41 4c 31 2c 54 41 4c 32 2c 4e 5b 53 ┆1+TAL2 0260 PRINT TAL1,TAL2,NÆS┆
0x09ac0…09ae0 54 45 54 41 4c 2c 1e 1c 30 32 37 30 20 53 55 4d 3a 3d 54 41 4c 31 2b 54 41 4c 32 2b 4e 5b 53 54 ┆TETAL, 0270 SUM:=TAL1+TAL2+NÆST┆
0x09ae0…09b00 45 54 41 4c 1c 09 30 32 38 30 20 4e 3a 3d 33 09 0c 30 32 39 30 20 52 45 50 45 41 54 20 0c 15 30 ┆ETAL 0280 N:=3 0290 REPEAT 0┆
0x09b00…09b20 (4, 1, 12) ExtentHdr {name=»FIBONACC«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0009,07 (0x009700)}, nextfile={DA 0009,0f (0x009f00)}, f99=41 05 00 20 00 5c 44 45 20 20 ┆A ØDE ┆}
0x09b20…09b40 33 30 30 20 46 4f 52 54 41 4c 3a 3d 4e 5b 53 54 45 54 41 4c 15 22 30 33 31 30 20 4e 5b 53 54 45 ┆300 FORTAL:=NÆSTETAL "0310 NÆSTE┆
0x09b40…09b60 54 41 4c 3a 3d 4e 5b 53 54 45 54 41 4c 2b 46 4f 52 52 49 47 45 54 41 4c 22 14 30 33 32 30 20 50 ┆TAL:=NÆSTETAL+FORRIGETAL" 0320 P┆
0x09b60…09b80 52 49 4e 54 20 4e 5b 53 54 45 54 41 4c 2c 14 16 30 33 33 30 20 53 55 4d 3a 3d 53 55 4d 2b 4e 5b ┆RINT NÆSTETAL, 0330 SUM:=SUM+NÆ┆
0x09b80…09ba0 53 54 45 54 41 4c 16 17 30 33 34 30 20 46 4f 52 52 49 47 45 54 41 4c 3a 3d 46 4f 52 54 41 4c 17 ┆STETAL 0340 FORRIGETAL:=FORTAL ┆
0x09ba0…09bc0 0b 30 33 35 30 20 4e 3a 3d 4e 2b 31 0b 10 30 33 36 30 20 55 4e 54 49 4c 20 4e 3d 4d 41 58 10 0b ┆ 0350 N:=N+1 0360 UNTIL N=MAX ┆
0x09bc0…09be0 30 33 37 30 20 50 52 49 4e 54 20 0b 2c 30 33 38 30 20 50 52 49 4e 54 20 22 53 75 6d 6d 65 6e 20 ┆0370 PRINT ,0380 PRINT "Summen ┆
0x09be0…09c00 61 66 20 64 69 73 73 65 20 74 61 6c 20 65 72 3a 20 20 20 20 22 3b 53 55 4d 2c 00 00 0b 30 30 35 ┆af disse tal er: ";SUM, 005┆
0x09c00…09d00 (4, 1, 13) 0x63[0x100]
[…0x2…]
0x09f00…09f20 (4, 1, 16) ExtentHdr {name=»RUDER_TE«, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 000a,09 (0x00a900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000a,09 (0x00a900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x09f20…09f40 44 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0100 // -----------------------┆
0x09f40…09f60 20 72 75 64 65 72 2d 74 65 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ruder-test --------------------┆
0x09f60…09f80 2d 2d 2d 2d 2d 44 08 30 31 31 30 20 2f 2f 20 08 45 30 31 32 30 20 44 49 4d 20 54 41 4c 24 20 4f ┆-----D 0110 // E0120 DIM TAL$ O┆
0x09f80…09fa0 46 20 33 2c 53 56 24 20 4f 46 20 32 2c 4e 41 56 4e 24 20 4f 46 20 32 30 2c 54 52 55 24 28 31 30 ┆F 3,SV$ OF 2,NAVN$ OF 20,TRU$(10┆
0x09fa0…09fc0 29 20 4f 46 20 31 2c 53 50 5c 52 24 28 34 30 29 20 4f 46 20 38 30 45 29 30 31 33 30 20 44 49 4d ┆) OF 1,SPØR$(40) OF 80E)0130 DIM┆
0x09fc0…09fe0 20 52 45 54 55 52 24 20 4f 46 20 32 2c 46 41 24 20 4f 46 20 31 2c 46 24 28 31 30 29 20 4f 46 20 ┆ RETUR$ OF 2,FA$ OF 1,F$(10) OF ┆
0x09fe0…0a000 31 29 48 30 31 34 30 20 44 49 4d 20 54 45 53 54 4e 41 56 4e 31 24 20 4f 46 20 34 30 2c 54 45 53 ┆1)H0140 DIM TESTNAVN1$ OF 40,TES┆
0x0a000…0a020 (5, 0, 1) 54 4e 41 56 4e 32 24 20 4f 46 20 34 30 2c 51 55 45 53 54 46 49 4c 24 20 4f 46 20 31 37 2c 54 58 ┆TNAVN2$ OF 40,QUESTFIL$ OF 17,TX┆
0x0a020…0a040 54 46 49 4c 24 20 4f 46 20 31 37 48 2c 30 31 35 30 20 49 4e 54 45 47 45 52 20 53 55 4d 2c 54 41 ┆TFIL$ OF 17H,0150 INTEGER SUM,TA┆
0x0a040…0a060 4c 4e 52 2c 4d 2c 4e 55 4d 4d 45 52 2c 41 2c 4a 2c 49 2c 53 50 52 49 4e 47 2c 29 30 31 36 30 20 ┆LNR,M,NUMMER,A,J,I,SPRING,)0160 ┆
0x0a060…0a080 54 45 53 54 4e 41 56 4e 31 24 3a 3d 22 52 20 55 20 44 20 45 20 52 20 2d 20 54 20 45 20 53 20 54 ┆TESTNAVN1$:="R U D E R - T E S T┆
0x0a080…0a0a0 20 2e 20 22 29 2a 30 31 37 30 20 54 45 53 54 4e 41 56 4e 32 24 3a 3d 22 20 20 52 20 75 20 64 20 ┆ . ")*0170 TESTNAVN2$:=" R u d ┆
0x0a0a0…0a0c0 65 20 72 20 2d 20 74 20 65 20 73 20 74 20 20 22 2a 20 30 31 38 30 20 54 58 54 46 49 4c 24 3a 3d ┆e r - t e s t "* 0180 TXTFIL$:=┆
0x0a0c0…0a0e0 22 53 59 53 54 49 4d 45 3a 52 55 44 45 52 54 58 54 22 20 4a 30 31 39 30 20 2f 2f 20 2d 2d 2d 2d ┆"SYSTIME:RUDERTXT" J0190 // ----┆
0x0a0e0…0a100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a100…0a120 (5, 0, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f ┆------------------------------J ┆
0x0a120…0a140 30 32 30 30 20 45 58 45 43 20 48 4f 56 45 44 0f 12 30 32 31 30 20 45 58 45 43 20 46 4f 52 53 49 ┆0200 EXEC HOVED 0210 EXEC FORSI┆
0x0a140…0a160 44 45 4e 12 0e 30 32 32 30 20 45 58 45 43 20 56 41 4c 47 0e 4a 30 32 33 30 20 2f 2f 20 2d 2d 2d ┆DEN 0220 EXEC VALG J0230 // ---┆
0x0a160…0a180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a180…0a1a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a ┆-------------------------------J┆
0x0a1a0…0a1c0 0f 30 32 34 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 32 35 30 20 43 4c 45 41 52 20 0b 10 30 ┆ 0240 PROC HOVED 0250 CLEAR 0┆
0x0a1c0…0a1e0 32 36 30 20 43 55 52 53 4f 52 20 31 33 2c 34 10 35 30 32 37 30 20 50 52 49 4e 54 20 22 20 56 20 ┆260 CURSOR 13,4 50270 PRINT " V ┆
0x0a1e0…0a200 45 20 4c 20 4b 20 4f 20 4d 20 4d 20 45 20 4e 20 20 20 54 20 49 20 4c 20 20 20 22 3b 54 45 53 54 ┆E L K O M M E N T I L ";TEST┆
0x0a200…0a220 (5, 0, 3) 4e 41 56 4e 31 24 35 10 30 32 38 30 20 43 55 52 53 4f 52 20 31 33 2c 35 10 43 30 32 39 30 20 50 ┆NAVN1$5 0280 CURSOR 13,5 C0290 P┆
0x0a220…0a240 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RINT "--------------------------┆
0x0a240…0a260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 43 10 30 ┆----------------------------"C 0┆
0x0a260…0a280 33 30 30 20 43 55 52 53 4f 52 20 31 35 2c 38 10 2a 30 33 31 30 20 49 4e 50 55 54 20 22 53 6b 72 ┆300 CURSOR 15,8 *0310 INPUT "Skr┆
0x0a280…0a2a0 69 76 20 64 69 74 20 6e 61 76 6e 20 68 65 72 3a 20 20 20 20 22 3a 4e 41 56 4e 24 2a 11 30 33 32 ┆iv dit navn her: ":NAVN$* 032┆
0x0a2a0…0a2c0 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 12 30 33 33 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 ┆0 CURSOR 20,12 0330 ENDPROC HOV┆
0x0a2c0…0a2e0 45 44 12 4a 30 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ED J0340 // --------------------┆
0x0a2e0…0a300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a300…0a320 (5, 0, 4) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 30 33 35 30 20 50 52 4f 43 20 56 41 4c 47 0e 1f ┆--------------J 0350 PROC VALG ┆
0x0a320…0a340 30 33 36 30 20 53 55 4d 3a 3d 30 3b 4d 3a 3d 31 3b 41 3a 3d 30 3b 4e 55 4d 4d 45 52 3a 3d 30 1f ┆0360 SUM:=0;M:=1;A:=0;NUMMER:=0 ┆
0x0a340…0a360 0b 30 33 37 30 20 43 4c 45 41 52 20 0b 11 30 33 38 30 20 43 55 52 53 4f 52 20 33 30 2c 31 32 11 ┆ 0370 CLEAR 0380 CURSOR 30,12 ┆
0x0a360…0a380 1e 30 33 39 30 20 50 52 49 4e 54 20 22 20 4c 69 67 65 20 65 74 20 7c 6a 65 62 6c 69 6b 21 22 1e ┆ 0390 PRINT " Lige et øjeblik!" ┆
0x0a380…0a3a0 10 30 34 30 30 20 45 58 45 43 20 46 49 4c 4c 5b 53 10 10 30 34 31 30 20 45 58 45 43 20 46 52 5d ┆ 0400 EXEC FILLÆS 0410 EXEC FRÅ┆
0x0a3a0…0a3c0 47 41 4e 10 0b 30 34 32 30 20 43 4c 45 41 52 20 0b 10 30 34 33 30 20 43 55 52 53 4f 52 20 31 30 ┆GAN 0420 CLEAR 0430 CURSOR 10┆
0x0a3c0…0a3e0 2c 33 10 3b 30 34 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 66 7d 65 74 20 22 3b 53 55 ┆,3 ;0440 PRINT "Du har fået ";SU┆
0x0a3e0…0a400 4d 3b 22 20 72 69 67 74 69 67 65 20 73 76 61 72 20 61 66 20 31 30 20 6d 75 6c 69 67 65 2e 22 3b ┆M;" rigtige svar af 10 mulige.";┆
0x0a400…0a420 (5, 0, 5) 10 30 34 35 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 30 30 34 36 30 20 50 52 49 4e 54 20 22 44 ┆ 0450 CURSOR 10,8 00460 PRINT "D┆
0x0a420…0a440 75 20 6b 61 6e 20 76 7b 6c 67 65 20 6d 65 6c 6c 65 6d 20 74 72 65 20 6d 75 6c 69 67 68 65 64 65 ┆u kan vælge mellem tre mulighede┆
0x0a440…0a460 72 3a 22 30 11 30 34 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 4b 30 34 38 30 20 50 52 49 ┆r:"0 0470 CURSOR 10,12 K0480 PRI┆
0x0a460…0a480 4e 54 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 62 65 64 72 65 20 64 ┆NT "1. Ønsker du at forbedre d┆
0x0a480…0a4a0 69 74 20 72 65 73 75 6c 74 61 74 20 76 65 64 20 61 74 20 62 65 67 79 6e 64 65 20 66 6f 72 66 72 ┆it resultat ved at begynde forfr┆
0x0a4a0…0a4c0 61 3f 22 4b 11 30 34 39 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 46 30 35 30 30 20 50 52 49 ┆a?"K 0490 CURSOR 10,14 F0500 PRI┆
0x0a4c0…0a4e0 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 ┆NT "2. Ønsker du dit resultat ┆
0x0a4e0…0a500 73 61 6d 6d 65 6e 6c 69 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 20 22 46 11 ┆sammenlignet med det rigtige "F ┆
0x0a500…0a520 (5, 0, 6) 30 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 35 11 28 30 35 32 30 20 50 52 49 4e 54 20 22 20 ┆0510 CURSOR 10,15 (0520 PRINT " ┆
0x0a520…0a540 20 20 20 20 53 6b 72 65 76 65 74 20 75 64 20 70 7d 20 70 72 69 6e 74 65 72 3f 22 28 11 30 35 33 ┆ Skrevet ud på printer?"( 053┆
0x0a540…0a560 30 20 43 55 52 53 4f 52 20 31 30 2c 31 37 11 45 30 35 34 30 20 50 52 49 4e 54 20 22 33 2e 20 20 ┆0 CURSOR 10,17 E0540 PRINT "3. ┆
0x0a560…0a580 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 6d 6d 65 6e 6c 69 ┆ Ønsker du dit resultat sammenli┆
0x0a580…0a5a0 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 22 45 11 30 35 35 30 20 43 55 52 53 ┆gnet med det rigtige"E 0550 CURS┆
0x0a5a0…0a5c0 4f 52 20 31 30 2c 31 38 11 28 30 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 53 6b 72 65 76 ┆OR 10,18 (0560 PRINT " Skrev┆
0x0a5c0…0a5e0 65 74 20 75 64 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 28 0b 30 35 37 30 20 50 52 49 4e 54 20 0b ┆et ud på skærmen?"( 0570 PRINT ┆
0x0a5e0…0a600 0b 30 35 38 30 20 50 52 49 4e 54 20 0b 11 30 35 39 30 20 43 55 52 53 4f 52 20 31 30 2c 32 31 11 ┆ 0580 PRINT 0590 CURSOR 10,21 ┆
0x0a600…0a620 (5, 0, 7) 2b 30 36 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 74 ┆+0600 INPUT "Skriv det ønskede t┆
0x0a620…0a640 61 6c 3a 20 20 22 3a 54 41 4c 4e 52 2b 0c 30 36 31 30 20 52 45 50 45 41 54 20 0c 11 30 36 32 30 ┆al: ":TALNR+ 0610 REPEAT 0620┆
0x0a640…0a660 20 43 55 52 53 4f 52 20 33 33 2c 32 31 11 15 30 36 33 30 20 49 46 20 54 41 4c 4e 52 3d 31 20 54 ┆ CURSOR 33,21 0630 IF TALNR=1 T┆
0x0a660…0a680 48 45 4e 20 15 0e 30 36 34 30 20 45 58 45 43 20 56 41 4c 47 0e 0b 30 36 35 30 20 43 4c 45 41 52 ┆HEN 0640 EXEC VALG 0650 CLEAR┆
0x0a680…0a6a0 20 0b 0b 30 36 36 30 20 50 52 49 4e 54 20 0b 0a 30 36 37 30 20 45 4c 53 45 20 0a 15 30 36 38 30 ┆ 0660 PRINT 0670 ELSE 0680┆
0x0a6a0…0a6c0 20 49 46 20 54 41 4c 4e 52 3d 32 20 54 48 45 4e 20 15 0e 30 36 39 30 20 53 50 52 49 4e 47 3a 3d ┆ IF TALNR=2 THEN 0690 SPRING:=┆
0x0a6c0…0a6e0 30 0e 14 30 37 30 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 52 45 53 14 0f 30 37 31 30 20 45 58 ┆0 0700 EXEC PRINTERRES 0710 EX┆
0x0a6e0…0a700 45 43 20 53 4b 52 49 56 0f 16 30 37 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 ┆EC SKRIV 0720 SELECT OUTPUT "T"┆
0x0a700…0a720 (5, 0, 8) 16 12 30 37 33 30 20 45 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0a 30 37 34 30 20 45 4c 53 45 20 ┆ 0730 EXEC ELECTION 0740 ELSE ┆
0x0a720…0a740 0a 15 30 37 35 30 20 49 46 20 54 41 4c 4e 52 3d 33 20 54 48 45 4e 20 15 0e 30 37 36 30 20 53 50 ┆ 0750 IF TALNR=3 THEN 0760 SP┆
0x0a740…0a760 52 49 4e 47 3a 3d 31 0e 0f 30 37 37 30 20 45 58 45 43 20 53 4b 52 49 56 0f 12 30 37 38 30 20 45 ┆RING:=1 0770 EXEC SKRIV 0780 E┆
0x0a760…0a780 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0b 30 37 39 30 20 45 4e 44 49 46 20 0b 0b 30 38 30 30 20 ┆XEC ELECTION 0790 ENDIF 0800 ┆
0x0a780…0a7a0 45 4e 44 49 46 20 0b 0b 30 38 31 30 20 45 4e 44 49 46 20 0b 28 30 38 32 30 20 55 4e 54 49 4c 20 ┆ENDIF 0810 ENDIF (0820 UNTIL ┆
0x0a7a0…0a7c0 54 41 4c 4e 52 3d 30 20 4f 52 20 54 41 4c 4e 52 3d 31 20 4f 52 20 54 41 4c 4e 52 3d 32 28 11 30 ┆TALNR=0 OR TALNR=1 OR TALNR=2( 0┆
0x0a7c0…0a7e0 38 33 30 20 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 48 30 38 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆830 ENDPROC VALG H0840 // ------┆
0x0a7e0…0a800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0a800…0a820 (5, 0, 9) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0f 30 38 35 30 ┆--------------------------H 0850┆
0x0a820…0a840 20 50 52 4f 43 20 53 4b 52 49 56 0f 1c 30 38 36 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 ┆ PROC SKRIV 0860 IF SPRING=1 TH┆
0x0a840…0a860 45 4e 20 43 4c 45 41 52 20 1c 0b 30 38 36 38 20 50 52 49 4e 54 20 0b 20 30 38 36 39 20 49 46 20 ┆EN CLEAR 0868 PRINT 0869 IF ┆
0x0a860…0a880 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 31 20 46 30 38 37 30 20 50 ┆SPRING=1 THEN CURSOR 1,1 F0870 P┆
0x0a880…0a8a0 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RINT " **********┆
0x0a8a0…0a8c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 ┆*******************************"┆
0x0a8c0…0a8e0 46 3d 30 38 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 ┆F=0880 PRINT " * ┆
0x0a8e0…0a900 20 20 20 20 20 20 20 20 22 3b 54 45 53 54 4e 41 56 4e 32 24 3b 22 20 20 20 20 20 20 20 2a 22 3d ┆ ";TESTNAVN2$;" *"=┆
0x0a900…0a920 (5, 0, 10) ExtentHdr {name=»RUDER_TE«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 000b,03 (0x00b300)}, prevext={DA 0009,0f (0x009f00)}, nextfile={DA 000b,03 (0x00b300)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0a920…0a940 46 30 38 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a ┆F0890 PRINT " ***┆
0x0a940…0a960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0a960…0a980 2a 2a 2a 2a 2a 2a 22 46 3c 30 39 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 ┆******"F<0900 PRINT " ┆
0x0a980…0a9a0 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4e 41 56 4e 24 3b 54 41 42 28 35 37 ┆ * ";NAVN$;TAB(57┆
0x0a9a0…0a9c0 29 3b 22 2a 22 3c 46 30 39 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆);"*"<F0910 PRINT " ┆
0x0a9c0…0a9e0 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *****************************┆
0x0a9e0…0aa00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 46 20 30 39 32 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 ┆************"F 0920 IF SPRING=1 ┆
0x0aa00…0aa20 (5, 0, 11) 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 37 20 0b 30 39 33 30 20 50 52 49 4e 54 20 0b 46 30 39 ┆THEN CURSOR 1,7 0930 PRINT F09┆
0x0aa20…0aa40 34 30 20 50 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 22 3b 54 41 42 28 33 35 29 ┆40 PRINT "Spørgsmål nr.";TAB(35)┆
0x0aa40…0aa60 3b 22 44 69 74 20 62 75 64 3a 22 3b 54 41 42 28 35 30 29 3b 22 52 69 67 74 69 67 65 20 66 61 63 ┆;"Dit bud:";TAB(50);"Rigtige fac┆
0x0aa60…0aa80 69 74 3a 22 46 4d 30 39 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆it:"FM0950 PRINT "--------------┆
0x0aa80…0aaa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0aaa0…0aac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 30 39 36 30 20 50 52 49 4e 54 20 ┆------------------"M 0960 PRINT ┆
0x0aac0…0aae0 0b 17 30 39 37 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 30 39 38 30 20 ┆ 0970 FOR A:=1 TO 10 DO 0980 ┆
0x0aae0…0ab00 49 46 20 54 52 55 24 28 41 29 3c 3e 46 24 28 41 29 20 54 48 45 4e 20 1c 49 30 39 39 30 20 50 52 ┆IF TRU$(A)<>F$(A) THEN I0990 PR┆
0x0ab00…0ab20 (5, 0, 12) 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 ┆INT "Spørgsmål nr. ";A;TAB(38);T┆
0x0ab20…0ab40 52 55 24 28 41 29 3b 54 41 42 28 35 37 29 3b 46 24 28 41 29 2c 22 20 20 20 20 20 20 20 20 2a 2a ┆RU$(A);TAB(57);F$(A)," **┆
0x0ab40…0ab60 2a 22 49 0a 31 30 30 30 20 45 4c 53 45 20 0a 3b 31 30 31 30 20 50 52 49 4e 54 20 22 53 70 7c 72 ┆*"I 1000 ELSE ;1010 PRINT "Spør┆
0x0ab60…0ab80 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 28 41 29 3b 54 41 ┆gsmål nr. ";A;TAB(38);TRU$(A);TA┆
0x0ab80…0aba0 42 28 35 37 29 3b 46 24 28 41 29 3b 0b 31 30 32 30 20 45 4e 44 49 46 20 0b 0b 31 30 33 30 20 4e ┆B(57);F$(A); 1020 ENDIF 1030 N┆
0x0aba0…0abc0 45 58 54 20 41 0b 0b 31 30 34 30 20 50 52 49 4e 54 20 0b 4d 31 30 35 30 20 50 52 49 4e 54 20 22 ┆EXT A 1040 PRINT M1050 PRINT "┆
0x0abc0…0abe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0ac00…0ac20 (5, 0, 13) 22 4d 0b 31 30 36 30 20 50 52 49 4e 54 20 0b 16 31 30 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 ┆"M 1060 PRINT 1070 IF SPRING=1┆
0x0ac20…0ac40 20 54 48 45 4e 20 16 11 31 30 38 30 20 43 55 52 53 4f 52 20 36 37 2c 32 34 11 1c 31 30 39 30 20 ┆ THEN 1080 CURSOR 67,24 1090 ┆
0x0ac40…0ac60 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 20 22 3a 52 45 54 55 52 24 1c 0b 31 31 30 30 20 45 4e ┆INPUT "Return! ":RETUR$ 1100 EN┆
0x0ac60…0ac80 44 49 46 20 0b 12 31 31 31 30 20 45 4e 44 50 52 4f 43 20 53 4b 52 49 56 12 46 31 31 32 30 20 2f ┆DIF 1110 ENDPROC SKRIV F1120 /┆
0x0ac80…0aca0 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x0aca0…0acc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0acc0…0ace0 46 10 31 31 33 30 20 50 52 4f 43 20 46 49 4c 4c 5b 53 10 13 31 31 34 30 20 4f 50 45 4e 20 54 58 ┆F 1130 PROC FILLÆS 1140 OPEN TX┆
0x0ace0…0ad00 54 46 49 4c 24 2c 52 13 17 31 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 ┆TFIL$,R 1150 FOR I:=1 TO 10 DO ┆
0x0ad00…0ad20 (5, 0, 14) 17 16 31 31 36 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 21 31 31 37 30 20 47 ┆ 1160 FOR J:=1 TO 4 DO !1170 G┆
0x0ad20…0ad40 45 54 20 54 58 54 46 49 4c 24 3a 53 50 5c 52 24 28 28 49 2d 31 29 2a 34 2b 4a 29 21 0b 31 31 38 ┆ET TXTFIL$:SPØR$((I-1)*4+J)! 118┆
0x0ad40…0ad60 30 20 4e 45 58 54 20 4a 0b 16 31 31 39 30 20 47 45 54 20 54 58 54 46 49 4c 24 3a 46 24 28 49 29 ┆0 NEXT J 1190 GET TXTFIL$:F$(I)┆
0x0ad60…0ad80 16 0b 31 32 30 30 20 4e 45 58 54 20 49 0b 12 31 32 31 30 20 43 4c 4f 53 45 20 54 58 54 46 49 4c ┆ 1200 NEXT I 1210 CLOSE TXTFIL┆
0x0ad80…0ada0 24 12 13 31 32 32 30 20 45 4e 44 50 52 4f 43 20 46 49 4c 4c 5b 53 13 4a 31 32 33 30 20 2f 2f 20 ┆$ 1220 ENDPROC FILLÆS J1230 // ┆
0x0ada0…0adc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x0ade0…0ae00 2d 2d 4a 12 31 32 34 30 20 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 12 0c 31 32 35 30 20 52 45 50 ┆--J 1240 PROC ELECTION 1250 REP┆
0x0ae00…0ae20 (5, 0, 15) 45 41 54 20 0c 10 31 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 0b 31 32 37 30 20 43 4c 45 ┆EAT 1260 CURSOR 1,22 1270 CLE┆
0x0ae20…0ae40 41 52 20 0b 10 31 32 38 30 20 43 55 52 53 4f 52 20 31 30 2c 37 10 42 31 32 39 30 20 50 52 49 4e ┆AR 1280 CURSOR 10,7 B1290 PRIN┆
0x0ae40…0ae60 54 20 22 44 75 20 66 7d 72 20 6e 75 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 20 61 74 20 76 7b 6c ┆T "Du får nu mulighed for at væl┆
0x0ae60…0ae80 67 65 20 6d 65 6c 6c 65 6d 20 66 7c 6c 67 65 6e 64 65 20 74 69 6e 67 2e 22 42 0b 31 33 30 30 20 ┆ge mellem følgende ting."B 1300 ┆
0x0ae80…0aea0 50 52 49 4e 54 20 0b 11 31 33 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 2e 31 33 32 30 20 ┆PRINT 1310 CURSOR 10,12 .1320 ┆
0x0aea0…0aec0 50 52 49 4e 54 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 62 65 67 79 6e 64 65 ┆PRINT "1. Ønsker du at begynde┆
0x0aec0…0aee0 20 66 6f 72 66 72 61 3f 22 2e 11 31 33 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 41 31 33 ┆ forfra?". 1330 CURSOR 10,14 A13┆
0x0aee0…0af00 34 30 20 50 52 49 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 ┆40 PRINT "2. Ønsker du at se a┆
0x0af00…0af20 (5, 0, 16) 6c 6c 65 20 73 70 7c 72 67 73 6d 7d 6c 65 6e 65 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 3f 22 41 ┆lle spørgsmålene på printeren?"A┆
0x0af20…0af40 11 31 33 35 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3f 31 33 36 30 20 50 52 49 4e 54 20 22 ┆ 1350 CURSOR 10,16 ?1360 PRINT "┆
0x0af40…0af60 33 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 73 70 7c 72 67 73 ┆3. Ønsker du at se alle spørgs┆
0x0af60…0af80 6d 7d 6c 65 6e 65 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 3f 11 31 33 37 30 20 43 55 52 53 4f 52 ┆målene på skærmen?"? 1370 CURSOR┆
0x0af80…0afa0 20 31 30 2c 31 38 11 29 31 33 38 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 5c 6e 73 6b 65 72 20 ┆ 10,18 )1380 PRINT "4. Ønsker ┆
0x0afa0…0afc0 64 75 20 61 74 20 73 6c 75 74 74 65 20 6e 75 3f 22 29 11 31 33 39 30 20 43 55 52 53 4f 52 20 31 ┆du at slutte nu?") 1390 CURSOR 1┆
0x0afc0…0afe0 30 2c 32 32 11 2d 31 34 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b ┆0,22 -1400 INPUT "Skriv det ønsk┆
0x0afe0…0b000 65 64 65 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 53 56 24 2d 19 31 34 31 30 20 43 41 53 45 20 4f ┆ede nummer: ":SV$- 1410 CASE O┆
0x0b000…0b020 (5, 1, 1) 52 44 28 53 56 24 28 31 29 29 20 4f 46 20 19 0c 31 34 32 30 20 57 48 45 4e 20 34 39 0c 0e 31 34 ┆RD(SV$(1)) OF 1420 WHEN 49 14┆
0x0b020…0b040 33 30 20 45 58 45 43 20 56 41 4c 47 0e 0c 31 34 34 30 20 57 48 45 4e 20 35 30 0c 11 31 34 35 30 ┆30 EXEC VALG 1440 WHEN 50 1450┆
0x0b040…0b060 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 0c 31 34 36 30 20 57 48 45 4e 20 35 31 0c 0f 31 34 37 ┆ EXEC PRINTER 1460 WHEN 51 147┆
0x0b060…0b080 30 20 45 58 45 43 20 53 4b 5b 52 4d 0f 0c 31 34 38 30 20 57 48 45 4e 20 35 32 0c 0e 31 34 39 30 ┆0 EXEC SKÆRM 1480 WHEN 52 1490┆
0x0b080…0b0a0 20 45 58 45 43 20 53 4c 55 54 0e 0d 31 35 30 30 20 45 4e 44 43 41 53 45 20 0d 0c 31 35 31 30 20 ┆ EXEC SLUT 1500 ENDCASE 1510 ┆
0x0b0a0…0b0c0 55 4e 54 49 4c 20 30 0c 15 31 35 32 30 20 45 4e 44 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 15 43 ┆UNTIL 0 1520 ENDPROC ELECTION C┆
0x0b0c0…0b0e0 31 35 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆1530 // ------------------------┆
0x0b0e0…0b100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b100…0b120 (5, 1, 2) 2d 2d 2d 43 0e 31 35 34 30 20 50 52 4f 43 20 53 4c 55 54 0e 10 31 35 35 30 20 43 55 52 53 4f 52 ┆---C 1540 PROC SLUT 1550 CURSOR┆
0x0b120…0b140 20 31 2c 32 34 10 37 31 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 53 7d 20 67 7d ┆ 1,24 71560 PRINT " Så gå┆
0x0b140…0b160 72 20 76 69 20 76 69 64 65 72 65 20 74 69 6c 20 6e 7b 73 74 65 20 61 66 73 6e 69 74 2e 22 37 09 ┆r vi videre til næste afsnit."7 ┆
0x0b160…0b180 31 35 37 30 20 45 4e 44 20 09 11 31 35 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 42 31 35 ┆1570 END 1580 ENDPROC SLUT B15┆
0x0b180…0b1a0 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆90 // --------------------------┆
0x0b1a0…0b1c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b1c0…0b1e0 42 0f 31 36 30 30 20 50 52 4f 43 20 53 4b 5b 52 4d 0f 0e 31 36 31 30 20 53 50 52 49 4e 47 3a 3d ┆B 1600 PROC SKÆRM 1610 SPRING:=┆
0x0b1e0…0b200 31 0e 0d 31 36 32 30 20 45 58 45 43 20 4c 5b 53 0d 12 31 36 33 30 20 45 4e 44 50 52 4f 43 20 53 ┆1 1620 EXEC LÆS 1630 ENDPROC S┆
0x0b200…0b220 (5, 1, 3) 4b 5b 52 4d 12 43 31 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆KÆRM C1640 // ------------------┆
0x0b220…0b240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b240…0b260 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0d 31 36 35 30 20 50 52 4f 43 20 4c 5b 53 0d 17 31 36 36 30 20 46 ┆---------C 1650 PROC LÆS 1660 F┆
0x0b260…0b280 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 31 36 37 30 20 49 46 20 53 50 52 49 4e ┆OR A:=1 TO 10 DO 1670 IF SPRIN┆
0x0b280…0b2a0 47 3d 31 20 54 48 45 4e 20 43 4c 45 41 52 20 1c 09 31 36 38 30 20 4b 3a 3d 38 09 16 31 36 39 30 ┆G=1 THEN CLEAR 1680 K:=8 1690┆
0x0b2a0…0b2c0 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 31 37 30 30 20 49 46 20 53 50 52 49 ┆ FOR J:=1 TO 4 DO #1700 IF SPRI┆
0x0b2c0…0b2e0 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 32 2c 4b 2b 4a 23 23 31 37 31 30 20 50 52 ┆NG=1 THEN CURSOR 12,K+J##1710 PR┆
0x0b2e0…0b300 49 4e 54 20 54 41 42 28 31 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 11 31 37 ┆INT TAB(12);SPØR$((A-1)*4+J)# 17┆
0x0b300…0b320 (5, 1, 4) ExtentHdr {name=»RUDER_TE«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 000b,0d (0x00bd00)}, prevext={DA 000a,09 (0x00a900)}, nextfile={DA 000b,0d (0x00bd00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0b320…0b340 32 30 20 49 46 20 4a 3d 31 20 54 48 45 4e 20 11 0b 31 37 33 30 20 4b 3a 3d 4b 2b 34 0b 0b 31 37 ┆20 IF J=1 THEN 1730 K:=K+4 17┆
0x0b340…0b360 34 30 20 45 4e 44 49 46 20 0b 0b 31 37 35 30 20 4e 45 58 54 20 4a 0b 0b 31 37 36 30 20 50 52 49 ┆40 ENDIF 1750 NEXT J 1760 PRI┆
0x0b360…0b380 4e 54 20 0b 16 31 37 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 16 11 31 37 38 ┆NT 1770 IF SPRING=1 THEN 178┆
0x0b380…0b3a0 30 20 43 55 52 53 4f 52 20 37 30 2c 32 30 11 1b 31 37 39 30 20 49 4e 50 55 54 20 22 52 65 74 75 ┆0 CURSOR 70,20 1790 INPUT "Retu┆
0x0b3a0…0b3c0 72 6e 21 22 3a 52 45 54 55 52 24 1b 0b 31 38 30 30 20 45 4e 44 49 46 20 0b 0b 31 38 31 30 20 4e ┆rn!":RETUR$ 1800 ENDIF 1810 N┆
0x0b3c0…0b3e0 45 58 54 20 41 0b 10 31 38 32 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 46 31 38 33 30 20 2f 2f ┆EXT A 1820 ENDPROC LÆS F1830 //┆
0x0b3e0…0b400 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x0b400…0b420 (5, 1, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 ┆-------------------------------F┆
0x0b420…0b440 14 31 38 34 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 14 16 31 38 35 30 20 53 45 4c 45 ┆ 1840 PROC PRINTERRES 1850 SELE┆
0x0b440…0b460 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b 31 38 36 30 20 49 46 20 53 54 41 54 55 53 28 22 50 ┆CT OUTPUT "P" 1860 IF STATUS("P┆
0x0b460…0b480 22 29 3d 31 20 54 48 45 4e 20 1b 10 31 38 37 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 38 31 38 ┆")=1 THEN 1870 CURSOR 1,23 818┆
0x0b480…0b4a0 38 30 20 50 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 ┆80 PRINT "<Z>Printeren er reserv┆
0x0b4a0…0b4c0 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 38 43 31 38 39 30 20 49 4e 50 ┆eret af anden bruger,"8C1890 INP┆
0x0b4c0…0b4e0 55 54 20 22 3c 53 3e 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e ┆UT "<S>skal der ventes på at den┆
0x0b4e0…0b500 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 56 24 43 20 31 39 30 ┆ bliver ledig? (j/n) ":SV$C 190┆
0x0b500…0b520 (5, 1, 6) 30 20 49 46 20 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 45 4e 20 20 10 31 ┆0 IF SV$="J" OR SV$="j" THEN 1┆
0x0b520…0b540 39 31 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 10 31 39 32 30 20 50 52 49 4e 54 20 22 3c 5a 3e ┆910 CURSOR 1,23 1920 PRINT "<Z>┆
0x0b540…0b560 22 10 3e 31 39 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 ┆" >1930 PRINT "<S>Der ventes på ┆
0x0b560…0b580 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 2e 2e 2e ┆at printeren bliver ledig.......┆
0x0b580…0b5a0 22 3e 2d 31 39 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 ┆">-1940 WHILE STATUS("P")=1 DO S┆
0x0b5a0…0b5c0 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 31 39 35 30 20 45 4e 44 49 46 20 0b 0b 31 ┆ELECT OUTPUT "P"- 1950 ENDIF 1┆
0x0b5c0…0b5e0 39 36 30 20 45 4e 44 49 46 20 0b 17 31 39 37 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 ┆960 ENDIF 1970 ENDPROC PRINTER┆
0x0b5e0…0b600 52 45 53 17 11 31 39 38 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 14 31 39 39 30 20 45 58 45 ┆RES 1980 PROC PRINTER 1990 EXE┆
0x0b600…0b620 (5, 1, 7) 43 20 50 52 49 4e 54 45 52 52 45 53 14 0e 32 30 30 30 20 53 50 52 49 4e 47 3a 3d 30 0e 0d 32 30 ┆C PRINTERRES 2000 SPRING:=0 20┆
0x0b620…0b640 31 30 20 45 58 45 43 20 4c 5b 53 0d 16 32 30 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 ┆10 EXEC LÆS 2020 SELECT OUTPUT ┆
0x0b640…0b660 22 54 22 16 14 32 30 33 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 43 32 30 34 30 20 ┆"T" 2030 ENDPROC PRINTER C2040 ┆
0x0b660…0b680 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x0b680…0b6a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 10 ┆------------------------------C ┆
0x0b6a0…0b6c0 32 30 35 30 20 50 52 4f 43 20 46 52 5d 47 41 4e 10 17 32 30 36 30 20 46 4f 52 20 41 3a 3d 31 20 ┆2050 PROC FRÅGAN 2060 FOR A:=1 ┆
0x0b6c0…0b6e0 54 4f 20 31 30 20 44 4f 20 17 0b 32 30 37 30 20 43 4c 45 41 52 20 0b 16 32 30 38 30 20 46 4f 52 ┆TO 10 DO 2070 CLEAR 2080 FOR┆
0x0b6e0…0b700 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 32 30 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 ┆ J:=1 TO 4 DO #2090 PRINT TAB(1┆
0x0b700…0b720 (5, 1, 8) 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 12 32 31 30 30 20 43 55 52 53 4f 52 ┆2);SPØR$((A-1)*4+J)# 2100 CURSOR┆
0x0b720…0b740 20 31 32 2c 4a 2b 34 12 0b 32 31 31 30 20 4e 45 58 54 20 4a 0b 10 32 31 32 30 20 45 58 45 43 20 ┆ 12,J+4 2110 NEXT J 2120 EXEC ┆
0x0b740…0b760 52 45 53 54 45 4e 10 0b 32 31 33 30 20 4e 45 58 54 20 41 0b 13 32 31 34 30 20 45 4e 44 50 52 4f ┆RESTEN 2130 NEXT A 2140 ENDPRO┆
0x0b760…0b780 43 20 46 52 5d 47 41 4e 13 4b 32 31 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C FRÅGAN K2150 // --------------┆
0x0b780…0b7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b7a0…0b7c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 10 32 31 36 30 20 50 52 4f 43 ┆---------------------K 2160 PROC┆
0x0b7c0…0b7e0 20 52 45 53 54 45 4e 10 11 32 31 37 30 20 43 55 52 53 4f 52 20 31 32 2c 31 36 11 3a 32 31 38 30 ┆ RESTEN 2170 CURSOR 12,16 :2180┆
0x0b7e0…0b800 20 50 52 49 4e 54 20 22 45 72 20 64 65 74 20 73 70 7c 72 67 73 6d 7d 6c 20 41 2c 42 20 65 6c 6c ┆ PRINT "Er det spørgsmål A,B ell┆
0x0b800…0b820 (5, 1, 9) 65 72 20 43 2c 20 64 65 72 20 65 72 20 72 69 67 74 69 67 74 3f 22 3a 11 32 31 39 30 20 43 55 52 ┆er C, der er rigtigt?": 2190 CUR┆
0x0b820…0b840 53 4f 52 20 31 32 2c 31 38 11 30 32 32 30 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 41 2c 20 42 ┆SOR 12,18 02200 INPUT "Tast A, B┆
0x0b840…0b860 20 65 6c 6c 65 72 20 43 3a 20 20 20 20 20 20 20 20 20 22 3a 54 52 55 24 28 41 29 30 2b 32 32 31 ┆ eller C: ":TRU$(A)0+221┆
0x0b860…0b880 30 20 49 46 20 22 61 22 3c 3d 54 52 55 24 28 41 29 20 41 4e 44 20 22 7d 22 3d 3e 54 52 55 24 28 ┆0 IF "a"<=TRU$(A) AND "å"=>TRU$(┆
0x0b880…0b8a0 41 29 20 54 48 45 4e 20 2b 23 32 32 32 30 20 54 52 55 24 28 41 29 3a 3d 43 48 52 24 28 4f 52 44 ┆A) THEN +#2220 TRU$(A):=CHR$(ORD┆
0x0b8a0…0b8c0 28 54 52 55 24 28 41 29 29 2d 33 32 29 23 0b 32 32 33 30 20 45 4e 44 49 46 20 0b 29 32 32 34 30 ┆(TRU$(A))-32)# 2230 ENDIF )2240┆
0x0b8c0…0b8e0 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 ┆ IF TRU$(A)=F$(A) THEN PRINT CHR┆
0x0b8e0…0b900 24 28 34 32 29 29 25 32 32 35 30 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 ┆$(42))%2250 IF TRU$(A)=F$(A) THE┆
0x0b900…0b920 (5, 1, 10) 4e 20 53 55 4d 3a 3d 53 55 4d 2b 31 25 13 32 32 36 30 20 45 4e 44 50 52 4f 43 20 52 45 53 54 45 ┆N SUM:=SUM+1% 2260 ENDPROC RESTE┆
0x0b920…0b940 4e 13 4d 32 32 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆N M2270 // ---------------------┆
0x0b940…0b960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0b960…0b980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 08 32 32 38 30 20 2f 2f 20 08 08 32 32 39 30 ┆----------------M 2280 // 2290┆
0x0b980…0b9a0 20 2f 2f 20 08 08 32 33 30 30 20 2f 2f 20 08 12 32 33 31 30 20 50 52 4f 43 20 46 4f 52 53 49 44 ┆ // 2300 // 2310 PROC FORSID┆
0x0b9a0…0b9c0 45 4e 12 0b 32 33 32 30 20 43 4c 45 41 52 20 0b 0f 32 33 33 30 20 43 55 52 53 4f 52 20 35 2c 32 ┆EN 2320 CLEAR 2330 CURSOR 5,2┆
0x0b9c0…0b9e0 0f 11 32 33 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 33 35 30 20 46 4f 52 20 58 3a ┆ 2340 PRINT "<S>*" 2350 FOR X:┆
0x0b9e0…0ba00 3d 36 20 54 4f 20 37 34 20 44 4f 20 17 11 32 33 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 ┆=6 TO 74 DO 2360 PRINT "<S>-" ┆
0x0ba00…0ba20 (5, 1, 11) 0b 32 33 37 30 20 4e 45 58 54 20 58 0b 11 32 33 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 ┆ 2370 NEXT X 2380 PRINT "<S>*" ┆
0x0ba20…0ba40 10 32 33 39 30 20 43 55 52 53 4f 52 20 31 30 2c 35 10 11 32 34 30 30 20 50 52 49 4e 54 20 22 3c ┆ 2390 CURSOR 10,5 2400 PRINT "<┆
0x0ba40…0ba60 53 3e 2a 22 11 18 32 34 31 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 4f 20 18 11 ┆S>*" 2410 FOR X:=11 TO 69 DO ┆
0x0ba60…0ba80 32 34 32 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 34 33 30 20 4e 45 58 54 20 58 0b 11 ┆2420 PRINT "<S>-" 2430 NEXT X ┆
0x0ba80…0baa0 32 34 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 34 35 30 20 43 55 52 53 4f 52 20 35 ┆2440 PRINT "<S>*" 2450 CURSOR 5┆
0x0baa0…0bac0 2c 31 35 10 11 32 34 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 34 37 30 20 46 4f 52 ┆,15 2460 PRINT "<S>*" 2470 FOR┆
0x0bac0…0bae0 20 58 3a 3d 36 20 54 4f 20 37 34 20 44 4f 20 17 11 32 34 38 30 20 50 52 49 4e 54 20 22 3c 53 3e ┆ X:=6 TO 74 DO 2480 PRINT "<S>┆
0x0bae0…0bb00 2d 22 11 0b 32 34 39 30 20 4e 45 58 54 20 58 0b 11 32 35 30 30 20 50 52 49 4e 54 20 22 3c 53 3e ┆-" 2490 NEXT X 2500 PRINT "<S>┆
0x0bb00…0bb20 (5, 1, 12) 2a 22 11 11 32 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 11 32 35 32 30 20 50 52 49 4e ┆*" 2510 CURSOR 10,12 2520 PRIN┆
0x0bb20…0bb40 54 20 22 3c 53 3e 2a 22 11 18 32 35 33 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 ┆T "<S>*" 2530 FOR X:=11 TO 69 D┆
0x0bb40…0bb60 4f 20 18 11 32 35 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 35 35 30 20 4e 45 58 54 ┆O 2540 PRINT "<S>-" 2550 NEXT┆
0x0bb60…0bb80 20 58 0b 11 32 35 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 35 37 30 20 46 4f 52 20 ┆ X 2560 PRINT "<S>*" 2570 FOR ┆
0x0bb80…0bba0 59 3a 3d 36 20 54 4f 20 31 31 20 44 4f 20 17 10 32 35 38 30 20 43 55 52 53 4f 52 20 31 30 2c 59 ┆Y:=6 TO 11 DO 2580 CURSOR 10,Y┆
0x0bba0…0bbc0 10 0e 32 35 39 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 30 30 20 4e 45 58 54 20 59 0b 1f 32 ┆ 2590 PRINT "!" 2600 NEXT Y 2┆
0x0bbc0…0bbe0 36 31 30 20 46 4f 52 20 59 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 0f ┆610 FOR Y:=14 TO 3 STEP -1 DO ┆
0x0bbe0…0bc00 32 36 32 30 20 43 55 52 53 4f 52 20 35 2c 59 0f 0e 32 36 33 30 20 50 52 49 4e 54 20 22 21 22 0e ┆2620 CURSOR 5,Y 2630 PRINT "!" ┆
0x0bc00…0bc20 (5, 1, 13) 0b 32 36 34 30 20 4e 45 58 54 20 59 0b 17 32 36 35 30 20 46 4f 52 20 59 3a 3d 36 20 54 4f 20 31 ┆ 2640 NEXT Y 2650 FOR Y:=6 TO 1┆
0x0bc20…0bc40 31 20 44 4f 20 17 10 32 36 36 30 20 43 55 52 53 4f 52 20 37 30 2c 59 10 0e 32 36 37 30 20 50 52 ┆1 DO 2660 CURSOR 70,Y 2670 PR┆
0x0bc40…0bc60 49 4e 54 20 22 21 22 0e 0b 32 36 38 30 20 4e 45 58 54 20 59 0b 1f 32 36 39 30 20 46 4f 52 20 59 ┆INT "!" 2680 NEXT Y 2690 FOR Y┆
0x0bc60…0bc80 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 32 37 30 30 20 43 55 52 53 ┆:=14 TO 3 STEP -1 DO 2700 CURS┆
0x0bc80…0bca0 4f 52 20 37 35 2c 59 10 0e 32 37 31 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 37 32 30 20 4e 45 ┆OR 75,Y 2710 PRINT "!" 2720 NE┆
0x0bca0…0bcc0 58 54 20 59 0b 10 32 37 33 30 20 43 55 52 53 4f 52 20 32 35 2c 39 10 15 32 37 34 30 20 50 52 49 ┆XT Y 2730 CURSOR 25,9 2740 PRI┆
0x0bcc0…0bce0 4e 54 20 54 45 53 54 4e 41 56 4e 31 24 15 10 32 37 35 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 ┆NT TESTNAVN1$ 2750 CURSOR 5,20 ┆
0x0bce0…0bd00 43 32 37 36 30 20 50 52 49 4e 54 20 22 50 7d 20 64 65 20 6e 7b 73 74 65 20 73 69 64 65 72 20 76 ┆C2760 PRINT "På de næste sider v┆
0x0bd00…0bd20 (5, 1, 14) ExtentHdr {name=»RUDER_TE«, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000b,03 (0x00b300)}, nextfile={DA 000c,07 (0x00c700)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x0bd20…0bd40 69 6c 20 64 75 20 66 7d 20 31 30 20 73 70 7c 72 67 73 6d 7d 6c 20 6d 65 64 20 74 72 65 20 73 76 ┆il du få 10 spørgsmål med tre sv┆
0x0bd40…0bd60 61 72 2e 22 43 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 20 50 52 49 ┆ar."C 2770 CURSOR 5,21 J2780 PRI┆
0x0bd60…0bd80 4e 54 20 22 4b 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 74 69 67 74 ┆NT "Kun et af svarene er rigtigt┆
0x0bd80…0bda0 2c 73 7d 20 64 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 2c 20 42 20 ┆,så du skal enten indtaste A, B ┆
0x0bda0…0bdc0 22 3b 4a 15 32 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 38 30 30 20 ┆";J 2790 PRINT "eller C." 2800 ┆
0x0bdc0…0bde0 43 55 52 53 4f 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e ┆CURSOR 70,23 2810 INPUT "Return┆
0x0bde0…0be00 21 22 3a 53 56 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 15 00 00 ┆!":SV$ 2820 ENDPROC FORSIDEN ┆
0x0be00…0be20 (5, 1, 15) 65 20 73 76 61 72 2e 22 43 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 ┆e svar."C 2770 CURSOR 5,21 J2780┆
0x0be20…0be40 20 50 52 49 4e 54 20 22 4b 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 ┆ PRINT "Kun et af svarene er rig┆
0x0be40…0be60 74 69 67 74 2c 73 7d 20 64 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 ┆tigt,så du skal enten indtaste A┆
0x0be60…0be80 2c 20 42 20 22 3b 4a 15 32 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 ┆, B ";J 2790 PRINT "eller C." 2┆
0x0be80…0bea0 38 30 30 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 ┆800 CURSOR 70,23 2810 INPUT "Re┆
0x0bea0…0bec0 74 75 72 6e 21 22 3a 53 56 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 ┆turn!":SV$ 2820 ENDPROC FORSIDE┆
0x0bec0…0bee0 4e 15 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆N cccccccccccccccccccccccccccc┆
0x0bee0…0bf00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x0bf00…0c000 (5, 1, 16) 0x63[0x100]
[…0x7…]
0x0c700…0c720 (6, 0, 8) ExtentHdr {name=»RUMFANG1«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 000d,01 (0x00d100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000d,01 (0x00d100)}, f99=41 0c 00 fe 00 00 00 00 00 00 ┆A ┆}
0x0c720…0c740 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x0c740…0c760 2d 20 72 75 6d 66 61 6e 67 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang1 ---------------------┆
0x0c760…0c780 2d 2d 2d 2d 2d 2d 45 41 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------EA0020 // Udregner forskel┆
0x0c780…0c7a0 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 2f 6d 75 6c 74 69 66 6f 72 67 72 65 6e 65 74 20 49 46 ┆lige rumfang v/multiforgrenet IF┆
0x0c7a0…0c7c0 2d 73 7b 74 6e 69 6e 67 2e 41 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 32 30 30 34 30 20 50 52 49 ┆-sætning.A 0030 CLEAR 20040 PRI┆
0x0c7c0…0c7e0 4e 54 20 22 44 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 ┆NT "Dette program udskriver rumf┆
0x0c7e0…0c800 61 6e 67 65 74 20 61 66 3a 22 32 32 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆anget af:"220050 PRINT "--------┆
0x0c800…0c820 (6, 0, 9) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 32 0b ┆-----------------------------"2 ┆
0x0c820…0c840 30 30 36 30 20 50 52 49 4e 54 20 0b 16 30 30 37 30 20 50 52 49 4e 54 20 22 31 2e 20 4b 61 73 73 ┆0060 PRINT 0070 PRINT "1. Kass┆
0x0c840…0c860 65 2e 22 16 19 30 30 38 30 20 50 52 49 4e 54 20 22 32 2e 20 50 79 72 61 6d 69 64 65 2e 22 19 1d ┆e." 0080 PRINT "2. Pyramide." ┆
0x0c860…0c880 30 30 39 30 20 50 52 49 4e 54 20 22 33 2e 20 50 79 72 61 6d 69 64 65 73 74 75 62 2e 22 1d 19 30 ┆0090 PRINT "3. Pyramidestub." 0┆
0x0c880…0c8a0 31 30 30 20 50 52 49 4e 54 20 22 34 2e 20 43 79 6c 69 6e 64 65 72 2e 22 19 16 30 31 31 30 20 50 ┆100 PRINT "4. Cylinder." 0110 P┆
0x0c8a0…0c8c0 52 49 4e 54 20 22 35 2e 20 4b 65 67 6c 65 2e 22 16 1a 30 31 32 30 20 50 52 49 4e 54 20 22 36 2e ┆RINT "5. Kegle." 0120 PRINT "6.┆
0x0c8c0…0c8e0 20 4b 65 67 6c 65 73 74 75 62 2e 22 1a 16 30 31 33 30 20 50 52 49 4e 54 20 22 37 2e 20 4b 75 67 ┆ Keglestub." 0130 PRINT "7. Kug┆
0x0c8e0…0c900 6c 65 2e 22 16 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 0b ┆le." 0140 PRINT 0150 PRINT ┆
0x0c900…0c920 (6, 0, 10) 30 31 36 30 20 50 52 49 4e 54 20 0b 0b 30 31 37 30 20 50 52 49 4e 54 20 0b 35 30 31 38 30 20 50 ┆0160 PRINT 0170 PRINT 50180 P┆
0x0c920…0c940 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 ┆RINT "Indtast det ønskede nummer┆
0x0c940…0c960 20 66 6f 72 20 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 31 39 30 20 49 4e 50 55 54 20 5c 4e 53 4b ┆ for rumfang:";5 0190 INPUT ØNSK┆
0x0c960…0c980 45 10 47 30 32 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E G0200 // ---------------------┆
0x0c980…0c9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x0c9a0…0c9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 32 31 30 20 50 52 49 4e 54 20 0b 15 30 32 32 30 20 49 46 ┆----------G 0210 PRINT 0220 IF┆
0x0c9c0…0c9e0 20 5c 4e 53 4b 45 3d 31 20 54 48 45 4e 20 15 36 30 32 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆ ØNSKE=1 THEN 60230 INPUT "Indt┆
0x0c9e0…0ca00 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆ast længde: ":┆
0x0ca00…0ca20 (6, 0, 11) 4c 5b 4e 47 44 45 36 36 30 32 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 ┆LÆNGDE660240 INPUT "Indtast bred┆
0x0ca20…0ca40 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 36 35 ┆de: ":BREDDE65┆
0x0ca40…0ca60 30 32 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆0250 INPUT "Indtast højde: ┆
0x0ca60…0ca80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 0b 30 32 36 30 20 50 52 49 4e ┆ ":HØJDE5 0260 PRIN┆
0x0ca80…0caa0 54 20 0b 43 30 32 37 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 ┆T C0270 PRINT "Rumfanget af kas┆
0x0caa0…0cac0 73 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 4c 5b 4e 47 44 45 2a 42 52 45 44 44 ┆sen: ",LÆNGDE*BREDD┆
0x0cac0…0cae0 45 2a 48 5c 4a 44 45 43 0a 30 32 38 30 20 45 4c 53 45 20 0a 15 30 32 38 35 20 49 46 20 5c 4e 53 ┆E*HØJDEC 0280 ELSE 0285 IF ØNS┆
0x0cae0…0cb00 4b 45 3d 32 20 54 48 45 4e 20 15 36 30 32 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆KE=2 THEN 60290 INPUT "Indtast ┆
0x0cb00…0cb20 (6, 0, 12) 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 ┆længde: ":LÆNG┆
0x0cb20…0cb40 44 45 36 36 30 33 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 ┆DE660300 INPUT "Indtast bredde: ┆
0x0cb40…0cb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 36 35 30 33 31 30 ┆ ":BREDDE650310┆
0x0cb60…0cb80 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 ┆ INPUT "Indtast højde: ┆
0x0cb80…0cba0 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 0b 30 33 32 30 20 50 52 49 4e 54 20 0b 25 ┆ ":HØJDE5 0320 PRINT %┆
0x0cba0…0cbc0 30 33 33 30 20 52 55 4d 46 41 4e 47 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a ┆0330 RUMFANG:=(LÆNGDE*BREDDE*HØJ┆
0x0cbc0…0cbe0 44 45 29 2f 33 25 37 30 33 34 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 ┆DE)/3%70340 PRINT "Rumfanget af ┆
0x0cbe0…0cc00 64 65 6e 6e 65 20 70 79 72 61 6d 69 64 65 3a 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 37 0a ┆denne pyramide: ",RUMFANG7 ┆
0x0cc00…0cc20 (6, 0, 13) 30 33 35 30 20 45 4c 53 45 20 0a 15 30 33 35 35 20 49 46 20 5c 4e 53 4b 45 3d 33 20 54 48 45 4e ┆0350 ELSE 0355 IF ØNSKE=3 THEN┆
0x0cc20…0cc40 20 15 32 30 33 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 ┆ 20360 INPUT "Indtast længden i┆
0x0cc40…0cc60 20 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 22 3a 4c 31 32 32 30 33 37 30 20 49 4e 50 55 ┆ bundfladen: ":L1220370 INPU┆
0x0cc60…0cc80 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e 3a ┆T "Indtast bredden i bundfladen:┆
0x0cc80…0cca0 20 20 20 20 20 22 3a 42 31 32 32 30 33 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c ┆ ":B1220380 INPUT "Indtast l┆
0x0cca0…0ccc0 7b 6e 67 64 65 6e 20 69 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 22 3a 4c 32 32 32 30 ┆ængden i øverste flade: ":L2220┆
0x0ccc0…0cce0 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 7c 76 65 ┆390 INPUT "Indtast bredden i øve┆
0x0cce0…0cd00 72 73 74 65 20 66 6c 61 64 65 3a 20 20 22 3a 42 32 32 35 30 34 30 30 20 49 4e 50 55 54 20 22 49 ┆rste flade: ":B2250400 INPUT "I┆
0x0cd00…0cd20 (6, 0, 14) 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 ┆ndtast pyramidestubbens højde: ┆
0x0cd20…0cd40 20 22 3a 48 5c 4a 44 45 35 36 30 34 31 30 20 52 55 4d 46 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 ┆ ":HØJDE560410 RUMFANG:=(HØJDE/3┆
0x0cd40…0cd60 29 2a 28 4c 31 2a 42 31 2b 4c 32 2a 42 32 2b 53 51 52 28 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 ┆)*(L1*B1+L2*B2+SQR(L1*B1*L2*B2))┆
0x0cd60…0cd80 36 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 37 30 34 33 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 ┆6 0420 PRINT 70430 PRINT "Rumfa┆
0x0cd80…0cda0 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 70 79 72 61 6d 69 64 65 73 74 75 62 3a 20 20 22 2c 52 ┆nget af denne pyramidestub: ",R┆
0x0cda0…0cdc0 55 4d 46 41 4e 47 37 0a 30 34 34 30 20 45 4c 53 45 20 0a 15 30 34 34 35 20 49 46 20 5c 4e 53 4b ┆UMFANG7 0440 ELSE 0445 IF ØNSK┆
0x0cdc0…0cde0 45 3d 34 20 54 48 45 4e 20 15 36 30 34 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 ┆E=4 THEN 60450 INPUT "Indtast c┆
0x0cde0…0ce00 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 ┆ylinderens radius: ":RADIU┆
0x0ce00…0ce20 (6, 0, 15) 53 36 35 30 34 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 ┆S650460 INPUT "Indtast cylindere┆
0x0ce20…0ce40 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 28 30 34 37 30 20 52 ┆ns højde: ":HØJDE5(0470 R┆
0x0ce40…0ce60 55 4d 46 41 4e 47 3a 3d 28 33 2e 31 34 2a 52 41 44 49 55 53 2a 52 41 44 49 55 53 2a 48 5c 4a 44 ┆UMFANG:=(3.14*RADIUS*RADIUS*HØJD┆
0x0ce60…0ce80 45 29 28 37 30 34 38 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e ┆E)(70480 PRINT "Rumfanget af den┆
0x0ce80…0cea0 6e 65 20 63 79 6c 69 6e 64 65 72 3a 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 37 0a 30 34 39 ┆ne cylinder: ",RUMFANG7 049┆
0x0cea0…0cec0 30 20 45 4c 53 45 20 0a 15 30 34 39 35 20 49 46 20 5c 4e 53 4b 45 3d 35 20 54 48 45 4e 20 15 36 ┆0 ELSE 0495 IF ØNSKE=5 THEN 6┆
0x0cec0…0cee0 30 35 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 69 ┆0500 INPUT "Indtast keglens radi┆
0x0cee0…0cf00 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 36 35 30 35 31 30 20 49 4e 50 ┆us: ":RADIUS650510 INP┆
0x0cf00…0cf20 (6, 0, 16) 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆UT "Indtast keglens højde: ┆
0x0cf20…0cf40 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 26 30 35 32 30 20 52 55 4d 46 41 4e 47 3a 3d 28 33 2e ┆ ":HØJDE5&0520 RUMFANG:=(3.┆
0x0cf40…0cf60 31 34 2a 52 41 44 49 55 53 2a 2a 32 2a 48 5c 4a 44 45 29 2f 33 26 37 30 35 33 30 20 50 52 49 4e ┆14*RADIUS**2*HØJDE)/3&70530 PRIN┆
0x0cf60…0cf80 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 6b 65 67 6c 65 3a 20 20 20 20 ┆T "Rumfanget af denne kegle: ┆
0x0cf80…0cfa0 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 37 0a 30 35 34 30 20 45 4c 53 45 20 0a 39 30 35 35 30 ┆ ",RUMFANG7 0540 ELSE 90550┆
0x0cfa0…0cfc0 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 6e 65 ┆ INPUT "Indtast keglestubbens ne┆
0x0cfc0…0cfe0 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 22 3a 52 31 39 15 30 35 35 35 20 49 46 20 5c ┆derste radius: ":R19 0555 IF Ø┆
0x0cfe0…0d000 4e 53 4b 45 3d 36 20 54 48 45 4e 20 15 39 30 35 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆NSKE=6 THEN 90560 INPUT "Indtas┆
0x0d000…0d020 (6, 1, 1) 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 ┆t keglestubbens øverste radius: ┆
0x0d020…0d040 20 20 20 22 3a 52 32 39 3c 30 35 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 ┆ ":R29<0570 INPUT "Indtast keg┆
0x0d040…0d060 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆lestubbens højde: ":┆
0x0d060…0d080 48 5c 4a 44 45 3c 30 30 35 38 30 20 52 55 4d 46 41 4e 47 3a 3d 28 33 2e 31 34 2a 48 5c 4a 44 45 ┆HØJDE<00580 RUMFANG:=(3.14*HØJDE┆
0x0d080…0d0a0 29 2f 33 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 2b 52 31 2a 52 32 29 30 3e 30 35 39 30 20 50 52 ┆)/3*(R1**2+R2**2+R1*R2)0>0590 PR┆
0x0d0a0…0d0c0 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 6b 65 67 6c 65 73 74 75 ┆INT "Rumfanget af denne keglestu┆
0x0d0c0…0d0e0 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 3e 0a 30 36 30 30 20 45 4c ┆b: ",RUMFANG> 0600 EL┆
0x0d0e0…0d100 53 45 20 0a 15 30 36 30 35 20 49 46 20 5c 4e 53 4b 45 3d 37 20 54 48 45 4e 20 15 3d 30 36 31 30 ┆SE 0605 IF ØNSKE=7 THEN =0610┆
0x0d100…0d120 (6, 1, 2) ExtentHdr {name=»RUMFANG1«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000c,07 (0x00c700)}, nextfile={DA 000d,0b (0x00db00)}, f99=41 0c 00 20 00 00 00 00 00 00 ┆A ┆}
0x0d120…0d140 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 ┆ INPUT "Indtast kuglens radius: ┆
0x0d140…0d160 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3d 22 30 36 32 30 20 ┆ ":RADIUS="0620 ┆
0x0d160…0d180 52 55 4d 46 41 4e 47 3a 3d 28 34 2a 33 2e 31 34 2a 52 41 44 49 55 53 2a 2a 33 29 2f 33 22 3e 30 ┆RUMFANG:=(4*3.14*RADIUS**3)/3">0┆
0x0d180…0d1a0 36 33 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 6b 75 ┆630 PRINT "Rumfanget af denne ku┆
0x0d1a0…0d1c0 67 6c 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 3e 0a 30 ┆gle: ",RUMFANG> 0┆
0x0d1c0…0d1e0 36 34 30 20 45 4c 53 45 20 0a 10 30 36 35 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 38 30 36 36 ┆640 ELSE 0650 CURSOR 1,21 8066┆
0x0d1e0…0d200 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 74 61 73 74 65 74 20 65 74 20 66 6f 72 6b 65 72 ┆0 PRINT "Du har tastet et forker┆
0x0d200…0d220 (6, 1, 3) 74 20 6e 75 6d 6d 65 72 2e 20 50 72 7c 76 20 69 67 65 6e 2e 22 38 0b 30 36 37 30 20 45 4e 44 49 ┆t nummer. Prøv igen."8 0670 ENDI┆
0x0d220…0d240 46 20 0b 0b 30 36 37 31 20 45 4e 44 49 46 20 0b 0b 30 36 37 32 20 45 4e 44 49 46 20 0b 0b 30 36 ┆F 0671 ENDIF 0672 ENDIF 06┆
0x0d240…0d260 37 33 20 45 4e 44 49 46 20 0b 0b 30 36 37 34 20 45 4e 44 49 46 20 0b 0b 30 36 37 35 20 45 4e 44 ┆73 ENDIF 0674 ENDIF 0675 END┆
0x0d260…0d280 49 46 20 0b 0b 30 36 37 36 20 45 4e 44 49 46 20 0b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆IF 0676 ENDIF ccccccccccccc┆
0x0d280…0d2a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x0d300…0d400 (6, 1, 4) 0x63[0x100]
[…0x7…]
0x0db00…0db20 (6, 1, 12) ExtentHdr {name=»SYPIGETI«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,00 (0x00e000)}, f99=41 0c 00 fe 00 59 50 49 47 45 ┆A YPIGE┆}
0x0db20…0db40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x0db40…0db60 20 73 79 70 69 67 65 74 69 70 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ sypigetips --------------------┆
0x0db60…0db80 2d 40 25 30 30 31 35 20 49 4e 54 45 47 45 52 20 4b 41 4d 50 2c 52 5b 4b 2c 56 31 2c 56 32 2c 56 ┆-@%0015 INTEGER KAMP,RÆK,V1,V2,V┆
0x0db80…0dba0 33 2c 41 4e 54 52 5b 4b 25 13 30 30 32 30 20 44 49 4d 20 53 56 41 52 24 20 4f 46 20 33 13 15 30 ┆3,ANTRÆK% 0020 DIM SVAR$ OF 3 0┆
0x0dba0…0dbc0 30 32 35 20 52 4e 44 53 45 45 44 3a 3d 33 2e 31 32 33 31 33 15 08 30 30 33 30 20 2f 2f 20 08 13 ┆025 RNDSEED:=3.12313 0030 // ┆
0x0dbc0…0dbe0 30 30 34 30 20 50 52 4f 43 20 54 49 50 53 52 5b 4b 4b 45 13 3f 30 30 35 30 20 49 4e 50 55 54 20 ┆0040 PROC TIPSRÆKKE ?0050 INPUT ┆
0x0dbe0…0dc00 22 5c 6e 73 6b 65 73 20 74 65 67 6e 65 6e 65 20 74 69 6c 64 65 6c 74 20 66 6f 72 73 6b 65 6c 6c ┆"Ønskes tegnene tildelt forskell┆
0x0dc00…0dc20 (6, 1, 13) 69 67 20 76 7b 67 74 3a 20 20 20 20 20 22 3a 53 56 41 52 24 3f 1c 30 30 36 30 20 49 46 20 53 56 ┆ig vægt: ":SVAR$? 0060 IF SV┆
0x0dc20…0dc40 41 52 24 20 49 4e 20 22 6e 65 6a 22 20 54 48 45 4e 20 1c 16 30 30 37 30 20 56 31 3a 3d 31 3b 56 ┆AR$ IN "nej" THEN 0070 V1:=1;V┆
0x0dc40…0dc60 32 3a 3d 31 3b 56 33 3a 3d 31 16 0a 30 30 38 30 20 45 4c 53 45 20 0a 30 30 30 39 30 20 49 4e 50 ┆2:=1;V3:=1 0080 ELSE 00090 INP┆
0x0dc60…0dc80 55 54 20 22 49 6e 64 74 61 73 74 20 76 7b 67 74 65 6e 20 61 66 20 31 2c 32 2c 58 3a 20 20 22 3a ┆UT "Indtast vægten af 1,2,X: ":┆
0x0dc80…0dca0 56 31 2c 56 32 2c 56 33 30 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 0b 30 31 31 30 20 45 4e 44 49 ┆V1,V2,V30 0100 PRINT 0110 ENDI┆
0x0dca0…0dcc0 46 20 0b 12 30 31 32 30 20 53 55 4d 3a 3d 56 31 2b 56 32 2b 56 33 12 14 30 31 34 30 20 54 49 50 ┆F 0120 SUM:=V1+V2+V3 0140 TIP┆
0x0dcc0…0dce0 3a 3d 52 4e 44 28 31 2c 53 55 4d 29 14 17 30 31 35 30 20 49 46 20 54 49 50 3e 56 31 2b 56 32 20 ┆:=RND(1,SUM) 0150 IF TIP>V1+V2 ┆
0x0dce0…0dd00 54 48 45 4e 20 17 33 30 31 36 30 20 50 52 49 4e 54 20 22 58 20 69 20 6b 61 6d 70 20 6e 72 2e 20 ┆THEN 30160 PRINT "X i kamp nr. ┆
0x0dd00…0dd20 (6, 1, 14) 22 3b 4b 41 4d 50 3b 22 69 20 22 3b 52 5b 4b 3b 22 2e 20 72 7b 6b 6b 65 2e 22 33 0a 30 31 37 30 ┆";KAMP;"i ";RÆK;". række."3 0170┆
0x0dd20…0dd40 20 45 4c 53 45 20 0a 14 30 31 37 35 20 49 46 20 54 49 50 3e 56 31 20 54 48 45 4e 20 14 33 30 31 ┆ ELSE 0175 IF TIP>V1 THEN 301┆
0x0dd40…0dd60 38 30 20 50 52 49 4e 54 20 22 32 20 69 20 6b 61 6d 70 20 6e 72 2e 20 22 3b 4b 41 4d 50 3b 22 69 ┆80 PRINT "2 i kamp nr. ";KAMP;"i┆
0x0dd60…0dd80 20 22 3b 52 5b 4b 3b 22 2e 20 72 7b 6b 6b 65 2e 22 33 0a 30 31 39 30 20 45 4c 53 45 20 0a 33 30 ┆ ";RÆK;". række."3 0190 ELSE 30┆
0x0dd80…0dda0 32 30 30 20 50 52 49 4e 54 20 22 31 20 69 20 6b 61 6d 70 20 6e 72 2e 20 22 3b 4b 41 4d 50 3b 22 ┆200 PRINT "1 i kamp nr. ";KAMP;"┆
0x0dda0…0ddc0 69 20 22 3b 52 5b 4b 3b 22 2e 20 72 7b 6b 6b 65 2e 22 33 0b 30 32 31 30 20 45 4e 44 49 46 20 0b ┆i ";RÆK;". række."3 0210 ENDIF ┆
0x0ddc0…0dde0 0b 30 32 31 35 20 45 4e 44 49 46 20 0b 16 30 32 32 30 20 45 4e 44 50 52 4f 43 20 54 49 50 53 52 ┆ 0215 ENDIF 0220 ENDPROC TIPSR┆
0x0dde0…0de00 5b 4b 4b 45 16 08 30 32 33 30 20 2f 2f 20 08 14 30 32 34 30 20 2f 2f 20 48 6f 76 65 64 70 72 6f ┆ÆKKE 0230 // 0240 // Hovedpro┆
0x0de00…0de20 (6, 1, 15) 67 72 61 6d 14 0b 30 32 35 30 20 43 4c 45 41 52 20 0b 0f 30 32 36 30 20 43 55 52 53 4f 52 20 31 ┆gram 0250 CLEAR 0260 CURSOR 1┆
0x0de20…0de40 2c 33 0f 22 30 32 37 30 20 50 52 49 4e 54 20 22 53 20 79 20 70 20 69 20 67 20 65 20 74 20 69 20 ┆,3 "0270 PRINT "S y p i g e t i ┆
0x0de40…0de60 70 20 73 20 2e 22 22 0f 30 32 38 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 22 30 32 39 30 20 50 52 ┆p s ."" 0280 CURSOR 1,4 "0290 PR┆
0x0de60…0de80 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 22 0f 30 33 30 ┆INT "---------------------"" 030┆
0x0de80…0dea0 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 27 30 33 31 30 20 49 4e 50 55 54 20 22 41 6e 74 61 6c 20 ┆0 CURSOR 1,6 '0310 INPUT "Antal ┆
0x0dea0…0dec0 72 7b 6b 6b 65 72 3a 20 20 20 20 20 20 22 3a 41 4e 54 52 5b 4b 27 0b 30 33 32 30 20 50 52 49 4e ┆rækker: ":ANTRÆK' 0320 PRIN┆
0x0dec0…0dee0 54 20 0b 1d 30 33 33 30 20 46 4f 52 20 52 5b 4b 3a 3d 31 20 54 4f 20 41 4e 54 52 5b 4b 20 44 4f ┆T 0330 FOR RÆK:=1 TO ANTRÆK DO┆
0x0dee0…0df00 20 1d 1a 30 33 34 30 20 46 4f 52 20 4b 41 4d 50 3a 3d 31 20 54 4f 20 31 33 20 44 4f 20 1a 13 30 ┆ 0340 FOR KAMP:=1 TO 13 DO 0┆
0x0df00…0df20 (6, 1, 16) 33 35 30 20 45 58 45 43 20 54 49 50 53 52 5b 4b 4b 45 13 0b 30 33 36 30 20 50 52 49 4e 54 20 0b ┆350 EXEC TIPSRÆKKE 0360 PRINT ┆
0x0df20…0df40 0e 30 33 37 30 20 4e 45 58 54 20 4b 41 4d 50 0e 0d 30 33 38 30 20 4e 45 58 54 20 52 5b 4b 0d 08 ┆ 0370 NEXT KAMP 0380 NEXT RÆK ┆
0x0df40…0df60 30 33 39 30 20 2f 2f 20 08 17 34 30 30 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 49 47 48 ┆0390 // 4000 PROC RND(LOW,HIGH┆
0x0df60…0df80 29 17 1a 34 30 31 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c 34 ┆) 4010 RNDX:=RNDSEED+3.14159 4┆
0x0df80…0dfa0 30 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 30 2e 35 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 34 30 33 ┆020 RNDX:=EXP(0.5*LN(RNDX)) 403┆
0x0dfa0…0dfc0 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 29 34 30 34 30 20 ┆0 RNDSEED:=RNDX-INT(RNDX) )4040 ┆
0x0dfc0…0dfe0 52 4e 44 3a 3d 49 4e 54 28 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 2b ┆RND:=INT(RNDSEED*(HIGH-LOW)+LOW+┆
0x0dfe0…0e000 30 2e 35 29 29 10 34 30 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 63 63 63 ┆0.5)) 4050 ENDPROC RND ccccccc┆
0x0e000…0e020 (7, 0, 1) ExtentHdr {name=»EKS_ORD2«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,02 (0x00e200)}, f99=41 0c 00 fe 00 59 50 49 47 45 ┆A YPIGE┆}
0x0e020…0e040 3a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆:0010 // -----------------------┆
0x0e040…0e060 2d 20 65 6b 73 5f 4f 52 44 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 0e 30 30 31 ┆- eks_ORD2 ----------------: 001┆
0x0e060…0e080 35 20 49 4e 54 45 47 45 52 20 41 0e 3a 30 30 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 41 ┆5 INTEGER A :0020 // Udskriver A┆
0x0e080…0e0a0 53 43 49 49 2d 76 7b 72 64 69 65 6e 20 61 66 20 68 76 65 72 74 20 74 65 67 6e 20 69 20 65 6e 20 ┆SCII-værdien af hvert tegn i en ┆
0x0e0a0…0e0c0 73 74 72 65 6e 67 2e 3a 15 30 30 33 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f 46 20 32 39 15 0b ┆streng.: 0030 DIM TEKST$ OF 29 ┆
0x0e0c0…0e0e0 30 30 34 30 20 43 4c 45 41 52 20 0b 0f 30 30 35 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 2e 30 30 ┆0040 CLEAR 0050 CURSOR 1,6 .00┆
0x0e0e0…0e100 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 74 65 6b 73 74 3a 20 20 20 20 20 28 68 7c ┆60 PRINT "Indtast tekst: (hø┆
0x0e100…0e120 (7, 0, 2) 6a 73 74 20 32 39 29 20 20 20 22 3b 2e 11 30 30 37 30 20 49 4e 50 55 54 20 54 45 4b 53 54 24 11 ┆jst 29) ";. 0070 INPUT TEKST$ ┆
0x0e120…0e140 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 20 30 30 39 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 4c ┆ 0080 PRINT 0090 FOR A:=1 TO L┆
0x0e140…0e160 45 4e 28 54 45 4b 53 54 24 29 20 44 4f 20 20 45 30 31 30 30 20 50 52 49 4e 54 20 22 54 65 67 6e ┆EN(TEKST$) DO E0100 PRINT "Tegn┆
0x0e160…0e180 20 6e 72 3a 20 20 22 3b 41 3b 22 20 20 20 22 3b 54 45 4b 53 54 24 28 41 3a 31 29 3b 22 20 20 68 ┆ nr: ";A;" ";TEKST$(A:1);" h┆
0x0e180…0e1a0 61 72 20 41 53 43 49 49 2d 76 7b 72 64 69 65 6e 3a 20 20 22 3b 45 1b 30 31 30 35 20 50 52 49 4e ┆ar ASCII-værdien: ";E 0105 PRIN┆
0x0e1a0…0e1c0 54 20 4f 52 44 28 54 45 4b 53 54 24 28 41 3a 31 29 29 1b 0b 30 31 31 30 20 4e 45 58 54 20 41 0b ┆T ORD(TEKST$(A:1)) 0110 NEXT A ┆
0x0e1c0…0e1e0 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x0e1e0…0e200 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x0e200…0e220 (7, 0, 3) ExtentHdr {name=»MINIMUM «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,05 (0x00e500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0e220…0e240 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x0e240…0e260 2d 2d 20 6d 69 6e 69 6d 75 6d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- minimum ---------------------┆
0x0e260…0e280 2d 2d 41 08 30 30 32 30 20 2f 2f 20 08 17 30 30 33 30 20 50 52 4f 43 20 4d 49 4e 28 41 31 2c 42 ┆--A 0020 // 0030 PROC MIN(A1,B┆
0x0e280…0e2a0 31 2c 43 31 29 17 13 30 30 34 30 20 49 46 20 41 31 3c 42 31 20 54 48 45 4e 20 13 13 30 30 35 30 ┆1,C1) 0040 IF A1<B1 THEN 0050┆
0x0e2a0…0e2c0 20 49 46 20 41 31 3c 43 31 20 54 48 45 4e 20 13 0c 30 30 36 30 20 4d 49 4e 3a 3d 41 31 0c 0a 30 ┆ IF A1<C1 THEN 0060 MIN:=A1 0┆
0x0e2c0…0e2e0 30 37 30 20 45 4c 53 45 20 0a 0c 30 30 38 30 20 4d 49 4e 3a 3d 43 31 0c 0b 30 30 39 30 20 45 4e ┆070 ELSE 0080 MIN:=C1 0090 EN┆
0x0e2e0…0e300 44 49 46 20 0b 0a 30 31 30 30 20 45 4c 53 45 20 0a 13 30 31 31 30 20 49 46 20 42 31 3c 43 31 20 ┆DIF 0100 ELSE 0110 IF B1<C1 ┆
0x0e300…0e320 (7, 0, 4) 54 48 45 4e 20 13 0c 30 31 32 30 20 4d 49 4e 3a 3d 42 31 0c 0a 30 31 33 30 20 45 4c 53 45 20 0a ┆THEN 0120 MIN:=B1 0130 ELSE ┆
0x0e320…0e340 0c 30 31 34 30 20 4d 49 4e 3a 3d 43 31 0c 0b 30 31 35 30 20 45 4e 44 49 46 20 0b 0b 30 31 36 30 ┆ 0140 MIN:=C1 0150 ENDIF 0160┆
0x0e340…0e360 20 45 4e 44 49 46 20 0b 10 30 31 37 30 20 45 4e 44 50 52 4f 43 20 4d 49 4e 10 08 30 31 38 30 20 ┆ ENDIF 0170 ENDPROC MIN 0180 ┆
0x0e360…0e380 2f 2f 20 08 0b 30 31 39 30 20 43 4c 45 41 52 20 0b 0b 30 31 39 35 20 50 52 49 4e 54 20 0b 27 30 ┆// 0190 CLEAR 0195 PRINT '0┆
0x0e380…0e3a0 32 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 74 72 65 20 74 61 6c 3a 20 20 20 20 22 ┆200 INPUT "Indtast tre tal: "┆
0x0e3a0…0e3c0 3a 41 2c 42 2c 43 27 37 30 32 31 30 20 50 52 49 4e 54 20 22 44 65 74 20 6d 69 6e 64 73 74 65 20 ┆:A,B,C'70210 PRINT "Det mindste ┆
0x0e3c0…0e3e0 61 66 20 64 65 20 74 72 65 20 74 61 6c 20 65 72 3a 20 20 22 3b 4d 49 4e 28 41 2c 42 2c 43 29 37 ┆af de tre tal er: ";MIN(A,B,C)7┆
0x0e3e0…0e400 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x0e400…0e500 (7, 0, 5) 0x63[0x100]
0x0e500…0e520 (7, 0, 6) ExtentHdr {name=»SØJLESUM«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,09 (0x00e900)}, f99=41 0e 00 fe 00 00 00 00 00 00 ┆A ┆}
0x0e520…0e540 3d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆=0010 // -----------------------┆
0x0e540…0e560 20 53 7c 6a 6c 65 73 75 6d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 08 ┆ Søjlesum --------------------= ┆
0x0e560…0e580 30 30 32 30 20 2f 2f 20 08 13 30 30 33 30 20 50 52 4f 43 20 41 46 52 55 4e 44 28 58 29 13 1f 30 ┆0020 // 0030 PROC AFRUND(X) 0┆
0x0e580…0e5a0 30 34 30 20 41 46 52 55 4e 44 3a 3d 49 4e 54 28 58 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 1f 13 ┆040 AFRUND:=INT(X*100+0.5)/100 ┆
0x0e5a0…0e5c0 30 30 35 30 20 45 4e 44 50 52 4f 43 20 41 46 52 55 4e 44 13 08 30 30 36 30 20 2f 2f 20 08 3a 30 ┆0050 ENDPROC AFRUND 0060 // :0┆
0x0e5c0…0e5e0 30 37 30 20 50 52 4f 43 20 53 5c 4a 4c 45 53 55 4d 4d 45 52 28 52 45 46 20 4d 41 54 52 49 58 28 ┆070 PROC SØJLESUMMER(REF MATRIX(┆
0x0e5e0…0e600 2c 29 2c 52 5b 4b 4b 45 2c 53 5c 4a 4c 45 2c 52 45 46 20 53 55 4d 28 29 29 3a 08 30 30 38 30 20 ┆,),RÆKKE,SØJLE,REF SUM()): 0080 ┆
0x0e600…0e620 (7, 0, 7) 2f 2f 20 08 1a 30 30 39 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 53 5c 4a 4c 45 20 44 4f 20 1a ┆// 0090 FOR I:=1 TO SØJLE DO ┆
0x0e620…0e640 1a 30 31 30 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 52 5b 4b 4b 45 20 44 4f 20 1a 27 30 31 31 ┆ 0100 FOR J:=1 TO RÆKKE DO '011┆
0x0e640…0e660 30 20 53 55 4d 28 49 29 3a 3d 53 55 4d 28 49 29 2b 41 46 52 55 4e 44 28 4d 41 54 52 49 58 28 4a ┆0 SUM(I):=SUM(I)+AFRUND(MATRIX(J┆
0x0e660…0e680 2c 49 29 29 27 0b 30 31 32 30 20 4e 45 58 54 20 4a 0b 0b 30 31 33 30 20 4e 45 58 54 20 49 0b 18 ┆,I))' 0120 NEXT J 0130 NEXT I ┆
0x0e680…0e6a0 30 31 34 30 20 45 4e 44 50 52 4f 43 20 53 5c 4a 4c 45 53 55 4d 4d 45 52 18 08 30 31 35 30 20 2f ┆0140 ENDPROC SØJLESUMMER 0150 /┆
0x0e6a0…0e6c0 2f 20 08 0b 30 31 36 30 20 43 4c 45 41 52 20 0b 0b 30 31 36 34 20 50 52 49 4e 54 20 0b 0b 30 31 ┆/ 0160 CLEAR 0164 PRINT 01┆
0x0e6c0…0e6e0 36 35 20 50 52 49 4e 54 20 0b 20 30 31 37 30 20 44 49 4d 20 54 41 4c 53 5b 54 28 35 2c 33 29 2c ┆65 PRINT 0170 DIM TALSÆT(5,3),┆
0x0e6e0…0e700 53 5c 4a 4c 45 53 55 4d 28 33 29 20 16 30 31 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 ┆SØJLESUM(3) 0180 FOR I:=1 TO 5 ┆
0x0e700…0e720 (7, 0, 8) 44 4f 20 16 16 30 31 39 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 33 20 44 4f 20 16 15 30 32 30 ┆DO 0190 FOR J:=1 TO 3 DO 020┆
0x0e720…0e740 30 20 52 45 41 44 20 54 41 4c 53 5b 54 28 49 2c 4a 29 15 0b 30 32 31 30 20 4e 45 58 54 20 4a 0b ┆0 READ TALSÆT(I,J) 0210 NEXT J ┆
0x0e740…0e760 0b 30 32 32 30 20 4e 45 58 54 20 49 0b 2a 30 32 33 30 20 45 58 45 43 20 53 5c 4a 4c 45 53 55 4d ┆ 0220 NEXT I *0230 EXEC SØJLESUM┆
0x0e760…0e780 4d 45 52 28 54 41 4c 53 5b 54 2c 35 2c 33 2c 53 5c 4a 4c 45 53 55 4d 29 2a 08 30 32 34 30 20 2f ┆MER(TALSÆT,5,3,SØJLESUM)* 0240 /┆
0x0e780…0e7a0 2f 20 08 16 30 32 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 33 20 44 4f 20 16 20 30 32 36 30 ┆/ 0250 FOR I:=1 TO 3 DO 0260┆
0x0e7a0…0e7c0 20 50 52 49 4e 54 20 43 48 52 24 28 53 5c 4a 4c 45 53 55 4d 28 49 29 2c 38 2c 32 29 20 0b 30 32 ┆ PRINT CHR$(SØJLESUM(I),8,2) 02┆
0x0e7c0…0e7e0 37 30 20 4e 45 58 54 20 49 0b 08 30 32 38 30 20 2f 2f 20 08 1e 30 32 39 30 20 44 41 54 41 20 31 ┆70 NEXT I 0280 // 0290 DATA 1┆
0x0e7e0…0e800 32 2e 33 34 35 2c 31 32 2e 34 2c 38 2e 38 38 37 39 39 39 1e 1d 30 33 30 30 20 44 41 54 41 20 32 ┆2.345,12.4,8.887999 0300 DATA 2┆
0x0e800…0e820 (7, 0, 9) 2e 35 35 31 2c 34 35 2e 33 34 37 2c 32 33 2e 31 32 31 1d 1e 30 33 31 30 20 44 41 54 41 20 38 39 ┆.551,45.347,23.121 0310 DATA 89┆
0x0e820…0e840 2e 38 39 39 2c 33 34 2e 37 32 35 2c 37 36 2e 31 32 33 1e 1e 30 33 32 30 20 44 41 54 41 20 34 35 ┆.899,34.725,76.123 0320 DATA 45┆
0x0e840…0e860 2e 33 35 38 2c 36 33 2e 37 33 36 2c 38 36 2e 38 35 33 1e 1e 30 33 33 30 20 44 41 54 41 20 33 38 ┆.358,63.736,86.853 0330 DATA 38┆
0x0e860…0e880 2e 34 38 32 2c 34 38 2e 33 39 35 2c 32 36 2e 34 32 38 1e 00 00 63 63 63 63 63 63 63 63 63 63 63 ┆.482,48.395,26.428 ccccccccccc┆
0x0e880…0e8a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x0e900…0e920 (7, 0, 10) ExtentHdr {name=»SUM_BRØ1«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000e,0d (0x00ed00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0e920…0e940 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 75 ┆?0010 // -------------------- su┆
0x0e940…0e960 6d 5f 62 72 7c 6b 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆m_brøk_1 -----------------------┆
0x0e960…0e980 3f 08 30 30 32 30 20 2f 2f 20 08 12 30 30 33 30 20 50 52 4f 43 20 53 46 44 28 4e 2c 4d 29 12 12 ┆? 0020 // 0030 PROC SFD(N,M) ┆
0x0e980…0e9a0 30 30 34 30 20 57 48 49 4c 45 20 4d 3e 30 20 44 4f 20 12 12 30 30 35 30 20 52 45 53 54 3a 3d 4e ┆0040 WHILE M>0 DO 0050 REST:=N┆
0x0e9a0…0e9c0 20 4d 4f 44 20 4d 12 11 30 30 36 30 20 4e 3a 3d 4d 3b 4d 3a 3d 52 45 53 54 11 0e 30 30 37 30 20 ┆ MOD M 0060 N:=M;M:=REST 0070 ┆
0x0e9c0…0e9e0 45 4e 44 57 48 49 4c 45 20 0e 0b 30 30 38 30 20 53 46 44 3a 3d 4e 0b 10 30 30 39 30 20 45 4e 44 ┆ENDWHILE 0080 SFD:=N 0090 END┆
0x0e9e0…0ea00 50 52 4f 43 20 53 46 44 10 08 30 31 30 30 20 2f 2f 20 08 28 30 31 31 30 20 50 52 4f 43 20 46 4f ┆PROC SFD 0100 // (0110 PROC FO┆
0x0ea00…0ea20 (7, 0, 11) 52 4b 4f 52 54 28 52 45 46 20 54 5b 4c 4c 45 52 2c 52 45 46 20 4e 5b 56 4e 45 52 29 28 1f 30 31 ┆RKORT(REF TÆLLER,REF NÆVNER)( 01┆
0x0ea20…0ea40 32 30 20 46 41 4b 54 4f 52 3a 3d 53 46 44 28 54 5b 4c 4c 45 52 2c 4e 5b 56 4e 45 52 29 1f 1a 30 ┆20 FAKTOR:=SFD(TÆLLER,NÆVNER) 0┆
0x0ea40…0ea60 31 33 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2f 46 41 4b 54 4f 52 1a 1a 30 31 34 30 20 ┆130 TÆLLER:=TÆLLER/FAKTOR 0140 ┆
0x0ea60…0ea80 4e 5b 56 4e 45 52 3a 3d 4e 5b 56 4e 45 52 2f 46 41 4b 54 4f 52 1a 14 30 31 35 30 20 45 4e 44 50 ┆NÆVNER:=NÆVNER/FAKTOR 0150 ENDP┆
0x0ea80…0eaa0 52 4f 43 20 46 4f 52 4b 4f 52 54 14 08 30 31 36 30 20 2f 2f 20 08 0b 30 31 37 30 20 43 4c 45 41 ┆ROC FORKORT 0160 // 0170 CLEA┆
0x0eaa0…0eac0 52 20 0b 43 30 31 37 31 20 49 4e 54 45 47 45 52 20 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f ┆R C0171 INTEGER DIVIDEND,DIVISO┆
0x0eac0…0eae0 52 2c 44 49 56 49 44 45 4e 44 31 2c 44 49 56 49 44 45 4e 44 32 2c 44 49 56 49 53 4f 52 31 2c 44 ┆R,DIVIDEND1,DIVIDEND2,DIVISOR1,D┆
0x0eae0…0eb00 49 56 49 53 4f 52 32 43 0b 30 31 37 35 20 50 52 49 4e 54 20 0b 48 30 31 38 30 20 49 4e 50 55 54 ┆IVISOR2C 0175 PRINT H0180 INPUT┆
0x0eb00…0eb20 (7, 0, 12) 20 22 49 6e 64 74 61 73 74 20 66 7c 72 73 74 65 20 62 72 7c 6b 73 20 74 7b 6c 6c 65 72 20 6f 67 ┆ "Indtast første brøks tæller og┆
0x0eb20…0eb40 20 6e 7b 76 6e 65 72 3a 20 20 22 3a 44 49 56 49 44 45 4e 44 31 2c 44 49 56 49 53 4f 52 31 48 48 ┆ nævner: ":DIVIDEND1,DIVISOR1HH┆
0x0eb40…0eb60 30 31 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 64 65 6e 20 62 72 7c 6b 73 20 ┆0190 INPUT "Indtast anden brøks ┆
0x0eb60…0eb80 74 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 20 20 22 3a 44 49 56 49 44 45 4e 44 32 2c ┆tæller og nævner: ":DIVIDEND2,┆
0x0eb80…0eba0 44 49 56 49 53 4f 52 32 48 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 46 30 32 31 30 20 50 52 49 4e ┆DIVISOR2H 0200 PRINT F0210 PRIN┆
0x0eba0…0ebc0 54 20 44 49 56 49 44 45 4e 44 31 3b 22 2f 20 22 3b 44 49 56 49 53 4f 52 31 3b 22 2b 20 22 3b 44 ┆T DIVIDEND1;"/ ";DIVISOR1;"+ ";D┆
0x0ebc0…0ebe0 49 56 49 44 45 4e 44 32 3b 22 2f 20 22 3b 44 49 56 49 53 4f 52 32 3b 22 20 3d 20 22 3b 46 34 30 ┆IVIDEND2;"/ ";DIVISOR2;" = ";F40┆
0x0ebe0…0ec00 32 32 30 20 44 49 56 49 44 45 4e 44 3a 3d 44 49 56 49 44 45 4e 44 31 2a 44 49 56 49 53 4f 52 32 ┆220 DIVIDEND:=DIVIDEND1*DIVISOR2┆
0x0ec00…0ec20 (7, 0, 13) 2b 44 49 56 49 44 45 4e 44 32 2a 44 49 56 49 53 4f 52 31 34 1f 30 32 33 30 20 44 49 56 49 53 4f ┆+DIVIDEND2*DIVISOR14 0230 DIVISO┆
0x0ec20…0ec40 52 3a 3d 44 49 56 49 53 4f 52 31 2a 44 49 56 49 53 4f 52 32 1f 08 30 32 34 30 20 2f 2f 20 08 23 ┆R:=DIVISOR1*DIVISOR2 0240 // #┆
0x0ec40…0ec60 30 32 35 30 20 45 58 45 43 20 46 4f 52 4b 4f 52 54 28 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 ┆0250 EXEC FORKORT(DIVIDEND,DIVIS┆
0x0ec60…0ec80 4f 52 29 23 08 30 32 36 30 20 2f 2f 20 08 17 30 32 37 30 20 49 46 20 44 49 56 49 53 4f 52 3d 31 ┆OR)# 0260 // 0270 IF DIVISOR=1┆
0x0ec80…0eca0 20 54 48 45 4e 20 17 13 30 32 38 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 13 0a 30 32 39 ┆ THEN 0280 PRINT DIVIDEND 029┆
0x0eca0…0ecc0 30 20 45 4c 53 45 20 0a 20 30 33 30 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 3b 22 2f 20 ┆0 ELSE 0300 PRINT DIVIDEND;"/ ┆
0x0ecc0…0ece0 22 3b 44 49 56 49 53 4f 52 20 0b 30 33 31 30 20 45 4e 44 49 46 20 0b 19 3d 35 34 38 20 2f 2f 20 ┆";DIVISOR 0310 ENDIF =548 // ┆
0x0ece0…0ed00 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 29 19 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆DIVIDEND,DIVISOR) cccccccccccc┆
0x0ed00…0ed20 (7, 0, 14) ExtentHdr {name=»REJSEFIL«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,01 (0x00f100)}, f99=41 0e 00 ff 00 00 00 00 00 00 ┆A ┆}
0x0ed20…0ed40 11 4c 6f 6e 64 6f 6e 00 02 23 30 00 00 00 00 84 00 06 11 10 50 61 72 69 73 00 02 00 00 00 00 00 ┆ London #0 Paris ┆
0x0ed40…0ed60 00 84 00 0c 10 0f 4f 73 6c 6f 00 01 20 00 00 00 00 00 84 00 05 0f 14 53 74 6f 63 6b 68 6f 6c 6d ┆ Oslo Stockholm┆
0x0ed60…0ed80 00 01 40 00 00 00 00 00 84 00 07 14 11 4d 61 64 72 69 64 00 03 00 00 00 00 00 00 84 00 08 11 16 ┆ @ Madrid ┆
0x0ed80…0eda0 48 65 6c 73 69 6e 67 66 6f 72 73 00 01 60 00 00 00 00 00 84 00 0e 16 0e 52 6f 6d 00 03 00 00 00 ┆Helsingfors ` Rom ┆
0x0eda0…0edc0 00 00 00 84 00 0f 0e 11 4d 6f 73 6b 76 61 00 02 60 00 00 00 00 00 84 00 08 11 0f 42 65 72 6e 00 ┆ Moskva ` Bern ┆
0x0edc0…0ede0 01 64 00 00 00 00 00 84 00 05 0f 14 41 6d 73 74 65 72 64 61 6d 00 07 00 00 00 00 00 00 83 00 04 ┆ d Amsterdam ┆
0x0ede0…0ee00 14 14 42 72 75 78 65 6c 6c 65 73 00 09 00 00 00 00 00 00 83 00 05 14 13 4c 69 73 73 61 62 6f 6e ┆ Bruxelles Lissabon┆
0x0ee00…0ee20 (7, 0, 15) 00 03 40 00 00 00 00 00 84 00 06 13 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ @ cccccccccccccccccc┆
0x0ee20…0ee40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x0ef00…0f000 (7, 0, 16) 0x63[0x100]
[…0x1…]
0x0f100…0f120 (7, 1, 2) ExtentHdr {name=»RENTEF2 «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,04 (0x00f400)}, f99=41 0e 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x0f120…0f140 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 72 ┆D0010 // --------------------- r┆
0x0f140…0f160 65 6e 74 65 66 6f 64 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆entefod_2 ----------------------┆
0x0f160…0f180 2d 2d 2d 2d 2d 44 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 45 30 30 33 30 20 49 4e 50 55 54 20 22 ┆-----D 0020 CLEAR E0030 INPUT "┆
0x0f180…0f1a0 49 6e 64 74 61 73 74 20 62 65 67 79 6e 64 65 6c 73 65 73 6b 61 70 69 74 61 6c 3a 20 20 20 20 20 ┆Indtast begyndelseskapital: ┆
0x0f1a0…0f1c0 20 20 20 20 20 20 20 20 20 20 22 3a 42 45 47 59 4e 44 4b 41 50 49 54 41 4c 45 43 30 30 34 30 20 ┆ ":BEGYNDKAPITALEC0040 ┆
0x0f1c0…0f1e0 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 6c 75 74 6b 61 70 69 74 61 6c 3a 20 20 20 20 20 ┆INPUT "Indtast slutkapital: ┆
0x0f1e0…0f200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 4c 55 54 4b 41 50 49 54 41 4c 43 40 ┆ ":SLUTKAPITALC@┆
0x0f200…0f220 (7, 1, 3) 30 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 20 61 66 20 74 65 72 ┆0050 INPUT "Indtast antal af ter┆
0x0f220…0f240 6d 69 6e 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 45 52 4d 49 4e 45 52 ┆miner: ":TERMINER┆
0x0f240…0f260 40 3c 30 30 36 30 20 52 45 4e 54 45 46 4f 44 3a 3d 28 28 53 4c 55 54 4b 41 50 49 54 41 4c 2f 42 ┆@<0060 RENTEFOD:=((SLUTKAPITAL/B┆
0x0f260…0f280 45 47 59 4e 44 4b 41 50 49 54 41 4c 29 2a 2a 28 31 2f 54 45 52 4d 49 4e 45 52 29 29 2d 31 3c 0b ┆EGYNDKAPITAL)**(1/TERMINER))-1< ┆
0x0f280…0f2a0 30 30 37 30 20 50 52 49 4e 54 20 0b 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 4d 30 30 39 30 20 50 ┆0070 PRINT 0080 PRINT M0090 P┆
0x0f2a0…0f2c0 52 49 4e 54 20 55 53 49 4e 47 20 22 42 65 67 79 6e 64 65 6c 73 65 73 6b 61 70 69 74 61 6c 3a 20 ┆RINT USING "Begyndelseskapital: ┆
0x0f2c0…0f2e0 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 42 45 47 59 4e 44 ┆ ##############.## kr. ":BEGYND┆
0x0f2e0…0f300 4b 41 50 49 54 41 4c 4d 4b 30 31 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 6c 75 74 6b ┆KAPITALMK0100 PRINT USING "Slutk┆
0x0f300…0f320 (7, 1, 4) 61 70 69 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e ┆apital: ##############.┆
0x0f320…0f340 23 23 20 6b 72 2e 20 22 3a 53 4c 55 54 4b 41 50 49 54 41 4c 4b 48 30 31 31 30 20 50 52 49 4e 54 ┆## kr. ":SLUTKAPITALKH0110 PRINT┆
0x0f340…0f360 20 55 53 49 4e 47 20 22 41 6e 74 61 6c 20 74 65 72 6d 69 6e 65 72 3a 20 20 20 20 20 20 20 20 20 ┆ USING "Antal terminer: ┆
0x0f360…0f380 20 20 20 20 20 20 20 20 23 23 23 23 20 20 20 20 20 20 20 20 22 3a 54 45 52 4d 49 4e 45 52 48 0b ┆ #### ":TERMINERH ┆
0x0f380…0f3a0 30 31 32 30 20 50 52 49 4e 54 20 0b 4c 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 ┆0120 PRINT L0130 PRINT USING "R┆
0x0f3a0…0f3c0 65 6e 74 65 66 6f 64 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆entefod: ┆
0x0f3c0…0f3e0 23 23 23 2e 23 20 25 20 20 20 20 22 3a 52 45 4e 54 45 46 4f 44 2a 31 30 30 4c 00 00 63 63 63 63 ┆###.# % ":RENTEFOD*100L cccc┆
0x0f3e0…0f400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x0f400…0f420 (7, 1, 5) ExtentHdr {name=»PH «, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 000f,05 (0x00f500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,05 (0x00f500)}, f99=41 0e 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x0f420…0f440 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x0f440…0f460 20 70 48 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ pH ----------------------------┆
0x0f460…0f480 2d 2d 41 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 49 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆--A 0020 CLEAR I0030 INPUT "Ind┆
0x0f480…0f4a0 74 61 73 74 20 62 72 69 6e 74 69 6f 6e 73 6b 6f 6e 63 65 6e 74 72 61 74 69 6f 6e 65 6e 3a 20 20 ┆tast brintionskoncentrationen: ┆
0x0f4a0…0f4c0 20 20 28 20 30 20 3c 6b 6f 6e 63 3c 20 31 20 29 3a 20 20 20 22 3a 4b 4f 4e 43 49 2f 30 30 34 30 ┆ ( 0 <konc< 1 ): ":KONCI/0040┆
0x0f4c0…0f4e0 20 50 52 49 4e 54 20 22 42 72 69 6e 74 69 6f 6e 73 6b 6f 6e 63 65 6e 74 72 61 74 69 6f 6e 3a 20 ┆ PRINT "Brintionskoncentration: ┆
0x0f4e0…0f500 20 20 20 20 20 22 3b 4b 4f 4e 43 2f 33 30 30 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 70 ┆ ";KONC/30050 PRINT USING "p┆
0x0f500…0f520 (7, 1, 6) ExtentHdr {name=»PH «, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 000f,04 (0x00f400)}, nextfile={DA 000f,06 (0x00f600)}, f99=41 0e 00 20 00 45 4e 54 45 46 ┆A ENTEF┆}
0x0f520…0f540 48 3a 20 20 23 23 23 2e 23 23 22 3a 28 2d 4c 4f 47 28 4b 4f 4e 43 29 2f 4c 4f 47 28 31 30 29 29 ┆H: ###.##":(-LOG(KONC)/LOG(10))┆
0x0f540…0f560 33 00 00 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆3 ----------------------------┆
0x0f560…0f580 2d 2d 41 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 49 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆--A 0020 CLEAR I0030 INPUT "Ind┆
0x0f580…0f5a0 74 61 73 74 20 62 72 69 6e 74 69 6f 6e 73 6b 6f 6e 63 65 6e 74 72 61 74 69 6f 6e 65 6e 3a 20 20 ┆tast brintionskoncentrationen: ┆
0x0f5a0…0f5c0 20 20 28 20 30 20 3c 6b 6f 6e 63 3c 20 31 20 29 3a 20 20 20 22 3a 4b 4f 4e 43 49 2f 30 30 34 30 ┆ ( 0 <konc< 1 ): ":KONCI/0040┆
0x0f5c0…0f5e0 20 50 52 49 4e 54 20 22 42 72 69 6e 74 69 6f 6e 73 6b 6f 6e 63 65 6e 74 72 61 74 69 6f 6e 3a 20 ┆ PRINT "Brintionskoncentration: ┆
0x0f5e0…0f600 20 20 20 20 20 22 3b 4b 4f 4e 43 2f 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ";KONC/ ┆
0x0f600…0f620 (7, 1, 7) ExtentHdr {name=»SIMPSON «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,00 (0x010000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x0f620…0f640 48 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0010 // -----------------------┆
0x0f640…0f660 2d 2d 2d 20 73 69 6d 70 73 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- simpson --------------------┆
0x0f660…0f680 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 49 30 30 32 30 20 2f 2f 20 53 69 6d 70 73 6f 6e 74 69 6c 6e 7b 72 ┆---------HI0020 // Simpsontilnær┆
0x0f680…0f6a0 6d 65 6c 73 65 20 74 69 6c 20 65 74 20 69 6e 74 65 72 76 61 6c 20 76 65 64 20 66 6f 72 74 73 61 ┆melse til et interval ved fortsa┆
0x0f6a0…0f6c0 74 20 69 6e 74 65 72 76 61 6c 68 61 6c 76 65 72 69 6e 67 2c 49 2b 30 30 33 30 20 2f 2f 20 49 6e ┆t intervalhalvering,I+0030 // In┆
0x0f6c0…0f6e0 74 65 67 72 61 6e 64 65 6e 20 73 6b 61 6c 20 61 6e 67 69 76 65 73 20 69 20 6c 69 6e 69 65 20 35 ┆tegranden skal angives i linie 5┆
0x0f6e0…0f700 30 2b 10 30 30 34 30 20 50 52 4f 43 20 46 4e 46 28 58 29 10 10 30 30 35 30 20 46 4e 46 3a 3d 45 ┆0+ 0040 PROC FNF(X) 0050 FNF:=E┆
0x0f700…0f720 (7, 1, 8) 58 50 28 58 29 10 10 30 30 36 30 20 45 4e 44 50 52 4f 43 20 46 4e 46 10 08 30 30 37 30 20 2f 2f ┆XP(X) 0060 ENDPROC FNF 0070 //┆
0x0f720…0f740 20 08 0b 30 30 38 30 20 43 4c 45 41 52 20 0b 3a 30 30 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆ 0080 CLEAR :0090 INPUT "Indt┆
0x0f740…0f760 61 73 74 20 76 65 6e 73 74 72 65 20 6f 67 20 68 7c 6a 72 65 20 69 6e 74 65 72 76 61 6c 70 75 6e ┆ast venstre og højre intervalpun┆
0x0f760…0f780 6b 74 3a 20 20 22 3a 41 2c 42 3a 45 30 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆kt: ":A,B:E0100 INPUT "Indtast ┆
0x0f780…0f7a0 61 6e 74 61 6c 20 69 6e 74 65 72 76 61 6c 68 61 6c 76 65 72 69 6e 67 65 72 3a 20 20 20 20 20 20 ┆antal intervalhalveringer: ┆
0x0f7a0…0f7c0 20 22 3a 41 4e 54 41 4c 48 41 4c 56 45 52 49 4e 47 45 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 2b ┆ ":ANTALHALVERINGE 0110 PRINT +┆
0x0f7c0…0f7e0 30 31 32 30 20 50 52 49 4e 54 20 22 48 7c 6a 72 65 20 69 6e 74 65 72 76 61 6c 65 6e 64 65 70 75 ┆0120 PRINT "Højre intervalendepu┆
0x0f7e0…0f800 6e 6b 74 3a 20 20 20 20 22 3b 41 2b 0b 30 31 33 30 20 50 52 49 4e 54 20 0b 2b 30 31 34 30 20 50 ┆nkt: ";A+ 0130 PRINT +0140 P┆
0x0f800…0f820 (7, 1, 9) 52 49 4e 54 20 22 56 65 6e 73 74 72 65 20 69 6e 74 65 72 76 61 6c 65 6e 64 65 70 75 6e 6b 74 3a ┆RINT "Venstre intervalendepunkt:┆
0x0f820…0f840 20 20 22 3b 42 2b 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 41 30 31 36 30 20 50 52 49 4e 54 20 22 ┆ ";B+ 0150 PRINT A0160 PRINT "┆
0x0f840…0f860 44 65 72 20 62 65 6e 79 74 74 65 73 20 22 3b 41 4e 54 41 4c 48 41 4c 56 45 52 49 4e 47 3b 22 20 ┆Der benyttes ";ANTALHALVERING;" ┆
0x0f860…0f880 69 6e 74 65 72 76 61 6c 68 61 6c 76 65 72 69 6e 67 65 72 2e 22 41 0b 30 31 37 30 20 50 52 49 4e ┆intervalhalveringer."A 0170 PRIN┆
0x0f880…0f8a0 54 20 0b 0b 30 31 38 30 20 50 52 49 4e 54 20 0b 38 30 31 39 30 20 50 52 49 4e 54 20 22 49 6e 74 ┆T 0180 PRINT 80190 PRINT "Int┆
0x0f8a0…0f8c0 65 72 76 61 6c 61 6e 74 61 6c 20 20 20 20 20 20 20 20 20 20 20 20 53 69 6d 70 73 6f 6e 74 69 6c ┆ervalantal Simpsontil┆
0x0f8c0…0f8e0 6e 7b 72 6d 65 6c 73 65 22 38 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 23 30 32 31 30 20 46 4f 52 ┆nærmelse"8 0200 PRINT #0210 FOR┆
0x0f8e0…0f900 20 4a 3a 3d 30 20 54 4f 20 41 4e 54 41 4c 48 41 4c 56 45 52 49 4e 47 20 44 4f 20 23 14 30 32 32 ┆ J:=0 TO ANTALHALVERING DO # 022┆
0x0f900…0f920 (7, 1, 10) 30 20 53 55 4d 31 3a 3d 30 3b 53 55 4d 32 3a 3d 30 14 12 30 32 33 30 20 48 3a 3d 28 42 2d 41 29 ┆0 SUM1:=0;SUM2:=0 0230 H:=(B-A)┆
0x0f920…0f940 2f 32 2a 2a 4a 12 1b 30 32 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 2a 2a 4a 2d 31 20 44 ┆/2**J 0240 FOR I:=1 TO 2**J-1 D┆
0x0f940…0f960 4f 20 1b 1a 30 32 35 30 20 53 55 4d 31 3a 3d 53 55 4d 31 2b 46 4e 46 28 41 2b 48 2a 49 29 1a 0b ┆O 0250 SUM1:=SUM1+FNF(A+H*I) ┆
0x0f960…0f980 30 32 36 30 20 4e 45 58 54 20 49 0b 19 30 32 37 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 32 2a ┆0260 NEXT I 0270 FOR I:=1 TO 2*┆
0x0f980…0f9a0 2a 4a 20 44 4f 20 19 22 30 32 38 30 20 53 55 4d 32 3a 3d 53 55 4d 32 2b 46 4e 46 28 41 2b 28 32 ┆*J DO "0280 SUM2:=SUM2+FNF(A+(2┆
0x0f9a0…0f9c0 2a 49 2d 31 29 2a 48 2f 32 29 22 0b 30 32 39 30 20 4e 45 58 54 20 49 0b 10 30 32 39 35 20 53 55 ┆*I-1)*H/2)" 0290 NEXT I 0295 SU┆
0x0f9c0…0f9e0 4d 3a 3d 46 4e 46 28 41 29 10 28 30 33 30 30 20 53 55 4d 3a 3d 28 53 55 4d 2b 46 4e 46 28 42 29 ┆M:=FNF(A) (0300 SUM:=(SUM+FNF(B)┆
0x0f9e0…0fa00 2b 34 2a 53 55 4d 32 2b 32 2a 53 55 4d 31 29 2a 48 2f 36 28 45 30 33 31 30 20 50 52 49 4e 54 20 ┆+4*SUM2+2*SUM1)*H/6(E0310 PRINT ┆
0x0fa00…0fa20 (7, 1, 11) 55 53 49 4e 47 20 22 20 20 20 20 23 23 23 23 23 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 ┆USING " ##### ###┆
0x0fa20…0fa40 23 23 23 23 23 23 23 23 2e 23 23 23 23 23 23 23 22 3a 32 2a 2a 4a 2c 53 55 4d 45 0b 30 33 32 30 ┆########.#######":2**J,SUME 0320┆
0x0fa40…0fa60 20 4e 45 58 54 20 4a 0b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ NEXT J cccccccccccccccccccccc┆
0x0fa60…0fa80 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x0fb00…0fc00 (7, 1, 12) 0x63[0x100]
[…0x4…]
0x10000…10020 (8, 0, 1) ExtentHdr {name=»KLØRTXT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0010,0a (0x010a00)}, f99=41 10 00 ff 00 00 00 00 00 00 ┆A ┆}
0x10020…10040 20 31 2e 20 20 20 48 76 6f 72 20 73 6b 65 72 20 64 61 74 61 62 65 68 61 6e 64 6c 69 6e 67 65 6e ┆ 1. Hvor sker databehandlingen┆
0x10040…10060 3f 20 11 41 2e 20 20 20 49 20 74 61 73 74 61 74 75 72 65 74 11 15 42 2e 20 20 20 49 20 63 65 6e ┆? A. I tastaturet B. I cen┆
0x10060…10080 74 72 61 6c 65 6e 68 65 64 65 6e 15 18 43 2e 20 20 20 49 20 64 69 73 6b 65 74 74 65 73 74 61 74 ┆tralenheden C. I diskettestat┆
0x10080…100a0 69 6f 6e 65 6e 18 01 42 01 37 32 2e 20 20 20 48 76 69 6c 6b 65 6e 20 74 61 73 74 20 62 65 6e 79 ┆ionen B 72. Hvilken tast beny┆
0x100a0…100c0 74 74 65 73 20 74 69 6c 20 61 74 20 73 6c 65 74 74 65 20 73 6b 7b 72 6d 62 69 6c 6c 65 64 65 74 ┆ttes til at slette skærmbilledet┆
0x100c0…100e0 3f 37 0a 41 2e 20 20 20 43 4c 45 41 52 0a 0a 42 2e 20 20 20 53 48 49 46 54 0a 10 43 2e 20 20 20 ┆?7 A. CLEAR B. SHIFT C. ┆
0x100e0…10100 46 69 6e 64 65 73 20 69 6b 6b 65 10 01 43 01 3f 33 2e 20 20 20 48 76 69 6c 6b 65 6e 20 74 61 73 ┆Findes ikke C ?3. Hvilken tas┆
0x10100…10120 (8, 0, 2) 74 20 66 7d 72 20 64 61 74 61 6d 61 74 65 6e 20 74 69 6c 20 61 74 20 6f 70 66 61 74 74 65 20 65 ┆t får datamaten til at opfatte e┆
0x10120…10140 6e 20 70 72 6f 67 72 61 6d 6c 69 6e 69 65 3f 3f 0a 41 2e 20 20 20 53 48 49 46 54 0a 0b 42 2e 20 ┆n programlinie?? A. SHIFT B. ┆
0x10140…10160 20 20 45 53 43 41 50 45 0b 0b 43 2e 20 20 20 52 45 54 55 52 4e 0b 01 43 01 2c 34 2e 20 20 20 49 ┆ ESCAPE C. RETURN C ,4. I┆
0x10160…10180 20 64 65 74 20 62 69 6e 7b 72 65 20 74 61 6c 73 79 73 74 65 6d 20 73 76 61 72 65 72 20 31 20 4b ┆ det binære talsystem svarer 1 K┆
0x10180…101a0 42 20 74 69 6c 3a 2c 0e 41 2e 20 20 20 31 30 30 30 20 74 65 67 6e 0e 0e 42 2e 20 20 20 31 30 32 ┆B til:, A. 1000 tegn B. 102┆
0x101a0…101c0 34 20 74 65 67 6e 0e 0e 43 2e 20 20 20 20 32 35 36 20 74 65 67 6e 0e 01 42 01 2d 35 2e 20 20 20 ┆4 tegn C. 256 tegn B -5. ┆
0x101c0…101e0 53 79 73 74 65 6d 6b 6f 6d 6d 61 6e 64 6f 20 74 69 6c 20 6b 7c 72 73 65 6c 20 61 66 20 65 74 20 ┆Systemkommando til kørsel af et ┆
0x101e0…10200 70 72 6f 67 72 61 6d 3a 2d 08 41 2e 20 20 20 4e 45 57 08 08 42 2e 20 20 20 52 55 4e 08 09 43 2e ┆program:- A. NEW B. RUN C.┆
0x10200…10220 (8, 0, 3) 20 20 20 41 55 54 4f 09 01 42 01 32 36 2e 20 20 20 53 79 73 74 65 6d 6b 6f 6d 6d 61 6e 64 6f 20 ┆ AUTO B 26. Systemkommando ┆
0x10220…10240 74 69 6c 20 75 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 65 74 20 70 72 6f 67 72 61 6d 3a 32 09 ┆til udskrivning af et program:2 ┆
0x10240…10260 41 2e 20 20 20 4c 49 53 54 09 09 42 2e 20 20 20 45 44 49 54 09 08 43 2e 20 20 20 44 45 4c 08 01 ┆A. LIST B. EDIT C. DEL ┆
0x10260…10280 41 01 2e 37 2e 20 20 20 53 79 73 74 65 6d 6b 6f 6d 6d 61 6e 64 6f 20 74 69 6c 20 66 6a 65 72 6e ┆A .7. Systemkommando til fjern┆
0x10280…102a0 65 6c 73 65 20 61 66 20 65 6e 20 6c 69 6e 69 65 3a 2e 09 41 2e 20 20 20 45 44 49 54 09 08 42 2e ┆else af en linie:. A. EDIT B.┆
0x102a0…102c0 20 20 20 44 45 4c 08 08 43 2e 20 20 20 4e 45 57 08 01 42 01 32 38 2e 20 20 20 48 76 61 64 20 62 ┆ DEL C. NEW B 28. Hvad b┆
0x102c0…102e0 65 76 69 72 6b 65 72 20 73 79 73 74 65 6d 6b 6f 6d 6d 61 6e 64 6f 65 6e 3a 20 20 45 44 49 54 20 ┆evirker systemkommandoen: EDIT ┆
0x102e0…10300 36 30 2c 38 30 20 3f 32 1f 41 2e 20 20 20 4c 69 6e 69 65 72 6e 65 20 36 30 20 2d 20 38 30 20 75 ┆60,80 ?2 A. Linierne 60 - 80 u┆
0x10300…10320 (8, 0, 4) 64 73 6b 72 69 76 65 73 1f 1f 42 2e 20 20 20 4c 69 6e 69 65 72 6e 65 20 36 30 20 2d 20 38 30 20 ┆dskrives B. Linierne 60 - 80 ┆
0x10320…10340 65 64 69 74 65 72 65 73 20 1f 1d 43 2e 20 20 20 4c 69 6e 69 65 72 6e 65 20 36 30 20 2d 20 38 30 ┆editeres C. Linierne 60 - 80┆
0x10340…10360 20 73 6c 65 74 74 65 73 1d 01 42 01 3b 39 2e 20 20 20 5c 6e 73 6b 65 72 20 6d 61 6e 20 61 74 20 ┆ slettes B ;9. Ønsker man at ┆
0x10360…10380 67 65 6d 6d 65 20 65 74 20 70 72 6f 67 72 61 6d 20 70 7d 20 64 69 73 6b 65 74 74 65 6e 2c 20 62 ┆gemme et program på disketten, b┆
0x10380…103a0 65 6e 79 74 74 65 73 3a 3b 09 41 2e 20 20 20 47 45 54 20 09 08 42 2e 20 20 20 50 55 54 08 0b 43 ┆enyttes:; A. GET B. PUT C┆
0x103a0…103c0 2e 20 20 20 4d 45 52 47 45 20 0b 02 42 20 02 37 31 30 2e 20 20 48 76 69 6c 6b 65 6e 20 6b 6f 6d ┆. MERGE B 710. Hvilken kom┆
0x103c0…103e0 6d 61 6e 64 6f 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 61 74 20 67 65 6d 6d 65 20 65 74 20 70 ┆mando benyttes til at gemme et p┆
0x103e0…10400 72 6f 67 72 61 6d 3f 37 15 41 2e 20 20 20 47 45 54 20 53 59 53 54 49 4d 45 3a 48 41 4e 53 15 15 ┆rogram?7 A. GET SYSTIME:HANS ┆
0x10400…10420 (8, 0, 5) 42 2e 20 20 20 50 55 54 20 53 59 53 54 49 4d 45 3a 48 41 4e 53 15 17 43 2e 20 20 20 50 55 54 20 ┆B. PUT SYSTIME:HANS C. PUT ┆
0x10420…10440 22 53 59 53 54 49 4d 45 3a 48 41 4e 53 22 17 01 42 01 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆"SYSTIME:HANS" B cccccccccccc┆
0x10440…10460 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x10500…10600 (8, 0, 6) 0x63[0x100]
[…0x4…]
0x10a00…10a20 (8, 0, 11) ExtentHdr {name=»GULD «, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0011,00 (0x011000)}, f99=41 10 00 fe 00 55 4c 44 20 20 ┆A ULD ┆}
0x10a20…10a40 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x10a40…10a60 2d 2d 2d 20 67 75 6c 64 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- guld -----------------------┆
0x10a60…10a80 2d 2d 2d 2d 2d 44 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 42 30 30 33 30 20 49 4e 50 55 54 20 22 ┆-----D 0020 CLEAR B0030 INPUT "┆
0x10a80…10aa0 49 6e 64 74 61 73 74 20 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆Indtast nummer: ┆
0x10aa0…10ac0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 55 4d 4d 45 52 42 40 30 30 34 30 20 49 4e 50 ┆ ":NUMMERB@0040 INP┆
0x10ac0…10ae0 55 54 20 22 49 6e 64 74 61 73 74 20 70 6f 69 6e 74 73 20 69 20 68 65 73 74 3a 20 20 20 20 20 20 ┆UT "Indtast points i hest: ┆
0x10ae0…10b00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 45 53 54 40 41 30 30 35 30 20 49 ┆ ":HEST@A0050 I┆
0x10b00…10b20 (8, 0, 12) 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 6f 69 6e 74 73 20 69 20 62 61 72 72 65 3a 20 20 20 ┆NPUT "Indtast points i barre: ┆
0x10b20…10b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 41 52 52 45 41 3f 30 30 36 ┆ ":BARREA?006┆
0x10b40…10b60 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 6f 69 6e 74 73 20 69 20 62 6f 6d 3a 20 20 ┆0 INPUT "Indtast points i bom: ┆
0x10b60…10b80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 4f 4d 3f 40 30 30 ┆ ":BOM?@00┆
0x10b80…10ba0 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 6f 69 6e 74 73 20 69 20 67 75 6c 76 3a ┆70 INPUT "Indtast points i gulv:┆
0x10ba0…10bc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 47 55 4c 56 40 0b ┆ ":GULV@ ┆
0x10bc0…10be0 30 30 38 30 20 43 4c 45 41 52 20 0b 0f 30 30 39 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 43 30 31 ┆0080 CLEAR 0090 CURSOR 1,5 C01┆
0x10be0…10c00 30 30 20 50 52 49 4e 54 20 22 44 41 4e 4d 41 52 4b 53 4d 45 53 54 45 52 53 4b 41 42 45 52 4e 45 ┆00 PRINT "DANMARKSMESTERSKABERNE┆
0x10c00…10c20 (8, 0, 13) 20 49 20 49 44 52 5b 54 53 47 59 4d 4e 41 53 54 49 4b 20 46 4f 52 20 4b 56 49 4e 44 45 52 3a 20 ┆ I IDRÆTSGYMNASTIK FOR KVINDER: ┆
0x10c20…10c40 22 43 43 30 31 31 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆"CC0110 PRINT "-----------------┆
0x10c40…10c60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10c60…10c80 2d 2d 2d 2d 2d 22 43 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 36 30 31 33 30 20 50 52 49 4e 54 20 ┆-----"C 0120 PRINT 60130 PRINT ┆
0x10c80…10ca0 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 ┆USING "Nummer: ##┆
0x10ca0…10cc0 23 23 22 3a 4e 55 4d 4d 45 52 3b 36 2c 30 31 34 30 20 49 46 20 4e 55 4d 4d 45 52 3d 31 20 54 48 ┆##":NUMMER;6,0140 IF NUMMER=1 TH┆
0x10cc0…10ce0 45 4e 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 47 20 55 20 4c 20 44 20 22 2c 2c 30 31 35 30 20 ┆EN PRINT " G U L D ",,0150 ┆
0x10ce0…10d00 49 46 20 4e 55 4d 4d 45 52 3d 32 20 54 48 45 4e 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 53 20 ┆IF NUMMER=2 THEN PRINT " S ┆
0x10d00…10d20 (8, 0, 14) 5c 20 4c 20 56 20 22 2c 30 30 31 36 30 20 49 46 20 4e 55 4d 4d 45 52 3d 33 20 54 48 45 4e 20 50 ┆Ø L V ",00160 IF NUMMER=3 THEN P┆
0x10d20…10d40 52 49 4e 54 20 22 20 20 20 20 20 20 42 20 52 20 4f 20 4e 20 5a 20 45 20 22 30 0b 30 31 37 30 20 ┆RINT " B R O N Z E "0 0170 ┆
0x10d40…10d60 50 52 49 4e 54 20 0b 35 30 31 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 48 65 73 74 3a 20 ┆PRINT 50180 PRINT USING "Hest: ┆
0x10d60…10d80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 23 22 3a 48 45 53 54 35 36 30 ┆ ###.###":HEST560┆
0x10d80…10da0 31 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 61 72 72 65 3a 20 20 20 20 20 20 20 20 20 ┆190 PRINT USING "Barre: ┆
0x10da0…10dc0 20 20 20 20 20 20 20 23 23 23 2e 23 23 23 22 3a 42 41 52 52 45 36 34 30 32 30 30 20 50 52 49 4e ┆ ###.###":BARRE640200 PRIN┆
0x10dc0…10de0 54 20 55 53 49 4e 47 20 22 42 6f 6d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 ┆T USING "Bom: #┆
0x10de0…10e00 23 23 2e 23 23 23 22 3a 42 4f 4d 34 35 30 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 47 ┆##.###":BOM450210 PRINT USING "G┆
0x10e00…10e20 (8, 0, 15) 75 6c 76 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 23 22 3a 47 55 ┆ulv: ###.###":GU┆
0x10e20…10e40 4c 56 35 44 30 32 32 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆LV5D0220 PRINT "----------------┆
0x10e40…10e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x10e60…10e80 2d 2d 2d 2d 2d 2d 2d 22 44 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆-------"D ccccccccccccccccccccc┆
0x10e80…10ea0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x10f00…11000 (8, 0, 16) 0x63[0x100]
0x11000…11020 (8, 1, 1) ExtentHdr {name=»SALGSPR3«, typ=»K«, seg=»A«, next=0x01, basis=0x0006, nextext={DA 0011,06 (0x011600)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0011,06 (0x011600)}, f99=41 10 00 fe 00 55 4c 44 20 20 ┆A ULD ┆}
0x11020…11040 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 61 ┆E0010 // -------------------- sa┆
0x11040…11060 6c 67 73 70 72 69 73 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆lgspris3 -----------------------┆
0x11060…11080 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 ┆------ED0020 // Programmet udreg┆
0x11080…110a0 6e 65 72 20 73 61 6c 67 73 70 72 69 73 20 76 2f 70 72 6f 63 65 64 75 72 65 72 20 6d 65 64 20 74 ┆ner salgspris v/procedurer med t┆
0x110a0…110c0 6f 20 70 61 72 61 6d 65 74 72 65 2e 44 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0e 30 30 34 30 20 ┆o parametre.D 0030 CLEAR 0040 ┆
0x110c0…110e0 4e 55 4d 4d 45 52 3a 3d 30 0e 45 30 30 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NUMMER:=0 E0050 // -------------┆
0x110e0…11100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11100…11120 (8, 1, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 45 48 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e ┆----------------EH0060 INPUT "In┆
0x11120…11140 64 74 61 73 74 20 6b 7c 62 73 70 72 69 73 20 6f 67 20 66 6f 72 74 6a 65 6e 65 73 74 65 20 69 20 ┆dtast købspris og fortjeneste i ┆
0x11140…11160 25 3a 20 20 20 20 20 20 20 20 22 3a 4b 5c 42 53 50 52 49 53 31 2c 50 43 54 31 48 48 30 30 37 30 ┆%: ":KØBSPRIS1,PCT1HH0070┆
0x11160…11180 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 7c 62 73 70 72 69 73 20 6f 67 20 66 6f 72 74 ┆ INPUT "Indtast købspris og fort┆
0x11180…111a0 6a 65 6e 65 73 74 65 20 69 20 25 3a 20 20 20 20 20 20 20 20 22 3a 4b 5c 42 53 50 52 49 53 32 2c ┆jeneste i %: ":KØBSPRIS2,┆
0x111a0…111c0 50 43 54 32 48 48 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 7c 62 73 70 72 ┆PCT2HH0080 INPUT "Indtast købspr┆
0x111c0…111e0 69 73 20 6f 67 20 66 6f 72 74 6a 65 6e 65 73 74 65 20 69 20 25 3a 20 20 20 20 20 20 20 20 22 3a ┆is og fortjeneste i %: ":┆
0x111e0…11200 4b 5c 42 53 50 52 49 53 33 2c 50 43 54 33 48 45 30 30 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆KØBSPRIS3,PCT3HE0090 // --------┆
0x11200…11220 (8, 1, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11220…11240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 45 49 30 31 30 30 20 50 52 49 4e ┆---------------------EI0100 PRIN┆
0x11240…11260 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T "-----------------------------┆
0x11260…11280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ┆-------------------------------"┆
0x11280…112a0 49 45 30 31 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆IE0110 // ----------------------┆
0x112a0…112c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x112c0…112e0 2d 2d 2d 2d 2d 2d 2d 45 25 30 31 32 30 20 45 58 45 43 20 46 4f 52 54 4a 45 4e 45 53 54 45 28 50 ┆-------E%0120 EXEC FORTJENESTE(P┆
0x112e0…11300 43 54 31 2c 4b 5c 42 53 50 52 49 53 31 29 25 25 30 31 33 30 20 45 58 45 43 20 46 4f 52 54 4a 45 ┆CT1,KØBSPRIS1)%%0130 EXEC FORTJE┆
0x11300…11320 (8, 1, 4) 4e 45 53 54 45 28 50 43 54 32 2c 4b 5c 42 53 50 52 49 53 32 29 25 25 30 31 34 30 20 45 58 45 43 ┆NESTE(PCT2,KØBSPRIS2)%%0140 EXEC┆
0x11320…11340 20 46 4f 52 54 4a 45 4e 45 53 54 45 28 50 43 54 33 2c 4b 5c 42 53 50 52 49 53 33 29 25 45 30 31 ┆ FORTJENESTE(PCT3,KØBSPRIS3)%E01┆
0x11340…11360 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆50 // --------------------------┆
0x11360…11380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11380…113a0 2d 2d 2d 45 23 30 31 36 30 20 50 52 4f 43 20 46 4f 52 54 4a 45 4e 45 53 54 45 28 50 43 54 2c 4b ┆---E#0160 PROC FORTJENESTE(PCT,K┆
0x113a0…113c0 5c 42 53 50 52 49 53 29 23 25 30 31 37 30 20 53 41 4c 47 53 50 52 49 3a 3d 4b 5c 42 53 50 52 49 ┆ØBSPRIS)#%0170 SALGSPRI:=KØBSPRI┆
0x113c0…113e0 53 2a 28 31 30 30 2b 50 43 54 29 2f 31 30 30 25 12 30 31 38 30 20 45 58 45 43 20 55 44 53 4b 52 ┆S*(100+PCT)/100% 0180 EXEC UDSKR┆
0x113e0…11400 49 46 54 12 18 30 31 39 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 54 4a 45 4e 45 53 54 45 18 45 30 ┆IFT 0190 ENDPROC FORTJENESTE E0┆
0x11400…11420 (8, 1, 5) 32 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆200 // -------------------------┆
0x11420…11440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11440…11460 2d 2d 2d 2d 45 12 30 32 31 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 32 32 30 20 50 ┆----E 0210 PROC UDSKRIFT 0220 P┆
0x11460…11480 52 49 4e 54 20 0b 15 30 32 33 30 20 4e 55 4d 4d 45 52 3a 3d 4e 55 4d 4d 45 52 2b 31 15 4b 30 32 ┆RINT 0230 NUMMER:=NUMMER+1 K02┆
0x11480…114a0 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e 75 6d 6d 65 72 20 20 23 23 23 20 20 20 20 20 ┆40 PRINT USING "Nummer ### ┆
0x114a0…114c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x114c0…114e0 20 22 3a 4e 55 4d 4d 45 52 4b 4d 30 32 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 7c 62 ┆ ":NUMMERKM0250 PRINT USING "Køb┆
0x114e0…11500 73 70 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 ┆spris: #########┆
0x11500…11520 (8, 1, 6) 2e 23 23 20 6b 72 2e 20 20 20 20 20 20 20 22 3a 4b 5c 42 53 50 52 49 53 4d 48 30 32 36 30 20 50 ┆.## kr. ":KØBSPRISMH0260 P┆
0x11520…11540 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 7c 62 73 70 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 ┆RINT USING "Købspris: ┆
0x11540…11560 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 25 20 20 20 20 20 20 20 20 20 22 3a 50 ┆ ####.## % ":P┆
0x11560…11580 43 54 48 4d 30 32 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 61 6c 67 73 70 72 69 73 3a ┆CTHM0270 PRINT USING "Salgspris:┆
0x11580…115a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e ┆ #########.## kr.┆
0x115a0…115c0 20 20 20 20 20 20 20 22 3a 53 41 4c 47 53 50 52 49 4d 49 30 32 38 30 20 50 52 49 4e 54 20 22 2d ┆ ":SALGSPRIMI0280 PRINT "-┆
0x115c0…115e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x115e0…11600 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 49 15 30 32 ┆---------------------------"I 02┆
0x11600…11620 (8, 1, 7) ExtentHdr {name=»SALGSPR3«, typ=»K«, seg=»B«, next=0x01, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0011,00 (0x011000)}, nextfile={DA 0011,0c (0x011c00)}, f99=41 10 00 20 00 55 4c 44 20 20 ┆A ULD ┆}
0x11620…11640 39 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 00 00 00 2d 2d 2d 2d 2d 2d 20 73 61 ┆90 ENDPROC UDSKRIFT ------ sa┆
0x11640…11660 6c 67 73 70 72 69 73 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆lgspris3 -----------------------┆
0x11660…11680 2d 2d 2d 2d 2d 2d 45 44 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 ┆------ED0020 // Programmet udreg┆
0x11680…116a0 6e 65 72 20 73 61 6c 67 73 70 72 69 73 20 76 2f 70 72 6f 63 65 64 75 72 65 72 20 6d 65 64 20 74 ┆ner salgspris v/procedurer med t┆
0x116a0…116c0 6f 20 70 61 72 61 6d 65 74 72 65 2e 44 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 0e 30 30 34 30 20 ┆o parametre.D 0030 CLEAR 0040 ┆
0x116c0…116e0 4e 55 4d 4d 45 52 3a 3d 30 0e 45 30 30 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NUMMER:=0 E0050 // -------------┆
0x116e0…11700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11700…11800 (8, 1, 8) 0x63[0x100]
[…0x4…]
0x11c00…11c20 (8, 1, 13) ExtentHdr {name=»EUROPA «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0012,06 (0x012600)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0012,06 (0x012600)}, f99=41 10 00 fe 00 55 4c 44 20 20 ┆A ULD ┆}
0x11c20…11c40 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G0010 // -----------------------┆
0x11c40…11c60 2d 2d 20 65 75 72 6f 70 61 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- europa ----------------------┆
0x11c60…11c80 2d 2d 2d 2d 2d 2d 2d 2d 47 08 30 30 32 30 20 2f 2f 20 08 10 30 30 33 30 20 41 4e 54 42 59 45 52 ┆--------G 0020 // 0030 ANTBYER┆
0x11c80…11ca0 3a 3d 32 32 10 34 30 30 34 30 20 44 49 4d 20 42 59 24 28 41 4e 54 42 59 45 52 29 20 4f 46 20 31 ┆:=22 40040 DIM BY$(ANTBYER) OF 1┆
0x11ca0…11cc0 35 2c 42 59 4e 41 56 4e 24 20 4f 46 20 31 35 2c 53 56 41 52 24 20 4f 46 20 33 34 25 30 30 34 35 ┆5,BYNAVN$ OF 15,SVAR$ OF 34%0045┆
0x11cc0…11ce0 20 49 4e 54 45 47 45 52 20 41 46 53 54 41 4e 44 28 41 4e 54 42 59 45 52 2c 41 4e 54 42 59 45 52 ┆ INTEGER AFSTAND(ANTBYER,ANTBYER┆
0x11ce0…11d00 29 25 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 20 43 55 52 53 4f 52 20 31 30 2c 35 ┆)% 0050 CLEAR 0060 CURSOR 10,5┆
0x11d00…11d20 (8, 1, 14) 10 48 30 30 37 30 20 50 52 49 4e 54 20 22 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 72 20 ┆ H0070 PRINT "Programmet finder ┆
0x11d20…11d40 61 66 73 74 61 6e 64 65 6e 20 6d 65 6c 6c 65 6d 20 32 32 20 73 74 6f 72 65 20 62 79 65 72 20 69 ┆afstanden mellem 22 store byer i┆
0x11d40…11d60 20 45 75 72 6f 70 61 2e 20 22 48 10 30 30 38 30 20 43 55 52 53 4f 52 20 31 30 2c 36 10 48 30 30 ┆ Europa. "H 0080 CURSOR 10,6 H00┆
0x11d60…11d80 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆90 PRINT "----------------------┆
0x11d80…11da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11da0…11dc0 2d 2d 2d 2d 2d 22 48 11 30 31 30 30 20 43 55 52 53 4f 52 20 31 38 2c 31 30 11 35 30 31 31 30 20 ┆-----"H 0100 CURSOR 18,10 50110 ┆
0x11dc0…11de0 50 52 49 4e 54 20 22 46 7c 6c 67 65 6e 64 65 20 62 79 65 72 20 65 72 20 6d 65 64 20 69 20 61 66 ┆PRINT "Følgende byer er med i af┆
0x11de0…11e00 73 74 61 6e 64 73 74 61 62 65 6c 6c 65 6e 3a 22 35 11 30 31 32 30 20 43 55 52 53 4f 52 20 31 38 ┆standstabellen:"5 0120 CURSOR 18┆
0x11e00…11e20 (8, 1, 15) 2c 31 31 11 35 30 31 33 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆,11 50130 PRINT "---------------┆
0x11e20…11e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 35 10 30 31 34 30 ┆-------------------------"5 0140┆
0x11e40…11e60 20 43 55 52 53 4f 52 20 35 2c 31 35 10 48 30 31 35 30 20 50 52 49 4e 54 20 22 41 6d 73 74 65 72 ┆ CURSOR 5,15 H0150 PRINT "Amster┆
0x11e60…11e80 64 61 6d 20 2d 20 41 74 68 65 6e 20 2d 20 42 65 6f 67 72 61 64 20 2d 20 42 65 72 6c 69 6e 20 2d ┆dam - Athen - Beograd - Berlin -┆
0x11e80…11ea0 20 42 65 72 6e 20 2d 20 42 72 75 78 65 6c 6c 65 73 20 2d 20 22 3b 48 15 30 31 35 35 20 50 52 49 ┆ Bern - Bruxelles - ";H 0155 PRI┆
0x11ea0…11ec0 4e 54 20 22 42 75 6b 61 72 65 73 74 22 15 10 30 31 36 30 20 43 55 52 53 4f 52 20 35 2c 31 37 10 ┆NT "Bukarest" 0160 CURSOR 5,17 ┆
0x11ec0…11ee0 4d 30 31 37 30 20 50 52 49 4e 54 20 22 42 75 64 61 70 65 73 74 20 2d 20 48 65 6c 73 69 6e 6b 69 ┆M0170 PRINT "Budapest - Helsinki┆
0x11ee0…11f00 20 2d 20 4b 7c 62 65 6e 68 61 76 6e 20 2d 20 4c 69 73 73 61 62 6f 6e 20 2d 20 4c 6f 6e 64 6f 6e ┆ - København - Lissabon - London┆
0x11f00…11f20 (8, 1, 16) 20 2d 20 4c 75 78 65 6d 62 6f 75 72 67 22 4d 10 30 31 38 30 20 43 55 52 53 4f 52 20 35 2c 31 39 ┆ - Luxembourg"M 0180 CURSOR 5,19┆
0x11f20…11f40 10 4d 30 31 39 30 20 50 52 49 4e 54 20 22 4d 61 64 72 69 64 20 2d 20 4f 73 6c 6f 20 2d 20 50 61 ┆ M0190 PRINT "Madrid - Oslo - Pa┆
0x11f40…11f60 72 69 73 20 2d 20 50 72 61 67 20 2d 20 52 6f 6d 20 2d 20 53 6f 66 69 61 20 2d 20 53 74 6f 6b 68 ┆ris - Prag - Rom - Sofia - Stokh┆
0x11f60…11f80 6f 6c 6d 20 2d 20 57 61 72 73 7a 61 77 22 3b 4d 16 30 31 39 35 20 50 52 49 4e 54 20 22 61 20 2d ┆olm - Warszaw";M 0195 PRINT "a -┆
0x11f80…11fa0 20 57 69 65 6e 2e 22 16 10 30 32 30 30 20 43 55 52 53 4f 52 20 31 2c 32 34 10 4d 30 32 33 30 20 ┆ Wien." 0200 CURSOR 1,24 M0230 ┆
0x11fa0…11fc0 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x11fc0…11fe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x11fe0…12000 2d 2d 2d 2d 2d 2d 2d 2d 4d 0d 30 32 34 30 20 52 45 53 54 4f 52 45 20 0d 27 30 32 34 31 20 46 4f ┆--------M 0240 RESTORE '0241 FO┆
0x12000…12020 (9, 0, 1) 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 42 59 45 52 20 44 4f 20 52 45 41 44 20 42 59 24 28 49 29 ┆R I:=1 TO ANTBYER DO READ BY$(I)┆
0x12020…12040 27 1c 30 32 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 42 59 45 52 20 44 4f 20 1c 16 ┆' 0250 FOR I:=1 TO ANTBYER DO ┆
0x12040…12060 30 32 36 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 49 20 44 4f 20 16 16 30 32 37 30 20 52 45 41 ┆0260 FOR J:=1 TO I DO 0270 REA┆
0x12060…12080 44 20 41 46 53 54 41 4e 44 28 49 2c 4a 29 16 1f 30 32 38 30 20 41 46 53 54 41 4e 44 28 4a 2c 49 ┆D AFSTAND(I,J) 0280 AFSTAND(J,I┆
0x12080…120a0 29 3a 3d 41 46 53 54 41 4e 44 28 49 2c 4a 29 1f 0b 30 32 39 30 20 4e 45 58 54 20 4a 0b 0b 30 33 ┆):=AFSTAND(I,J) 0290 NEXT J 03┆
0x120a0…120c0 30 30 20 4e 45 58 54 20 49 0b 4b 30 33 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆00 NEXT I K0310 // -------------┆
0x120c0…120e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x120e0…12100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 0b 30 33 32 30 20 43 4c 45 ┆----------------------K 0320 CLE┆
0x12100…12120 (9, 0, 2) 41 52 20 0b 0c 30 33 33 30 20 52 45 50 45 41 54 20 0c 0c 30 33 33 35 20 52 45 50 45 41 54 20 0c ┆AR 0330 REPEAT 0335 REPEAT ┆
0x12120…12140 0c 30 33 34 30 20 52 45 50 45 41 54 20 0c 0b 30 33 35 30 20 43 4c 45 41 52 20 0b 10 30 33 36 30 ┆ 0340 REPEAT 0350 CLEAR 0360┆
0x12140…12160 20 43 55 52 53 4f 52 20 31 38 2c 36 10 34 30 33 37 30 20 50 52 49 4e 54 20 22 41 66 73 74 61 6e ┆ CURSOR 18,6 40370 PRINT "Afstan┆
0x12160…12180 64 73 74 61 62 65 6c 20 6d 65 6c 6c 65 6d 20 32 32 20 62 79 65 72 20 69 20 45 75 72 6f 70 61 2e ┆dstabel mellem 22 byer i Europa.┆
0x12180…121a0 20 22 34 10 30 33 38 30 20 43 55 52 53 4f 52 20 31 38 2c 37 10 34 30 33 39 30 20 50 52 49 4e 54 ┆ "4 0380 CURSOR 18,7 40390 PRINT┆
0x121a0…121c0 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "------------------------------┆
0x121c0…121e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 34 10 30 34 30 30 20 43 55 52 53 4f 52 20 31 38 2c 39 10 3a 30 34 ┆---------"4 0400 CURSOR 18,9 :04┆
0x121e0…12200 31 30 20 49 4e 50 55 54 20 22 46 72 61 20 68 76 69 6c 6b 65 6e 20 62 79 3a 20 20 20 20 20 20 20 ┆10 INPUT "Fra hvilken by: ┆
0x12200…12220 (9, 0, 3) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 59 4e 41 56 4e 24 3a 10 30 34 32 30 20 45 ┆ ":BYNAVN$: 0420 E┆
0x12220…12240 58 45 43 20 46 49 4e 44 42 59 10 13 30 34 33 30 20 55 4e 54 49 4c 20 42 59 46 55 4e 44 45 54 13 ┆XEC FINDBY 0430 UNTIL BYFUNDET ┆
0x12240…12260 10 30 34 34 30 20 46 52 41 42 59 3a 3d 42 59 4e 52 10 11 30 34 36 30 20 43 55 52 53 4f 52 20 31 ┆ 0440 FRABY:=BYNR 0460 CURSOR 1┆
0x12260…12280 38 2c 31 31 11 3a 30 34 37 30 20 49 4e 50 55 54 20 22 54 69 6c 20 68 76 69 6c 6b 65 6e 20 62 79 ┆8,11 :0470 INPUT "Til hvilken by┆
0x12280…122a0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 59 4e 41 56 4e 24 ┆: ":BYNAVN$┆
0x122a0…122c0 3a 10 30 34 38 30 20 45 58 45 43 20 46 49 4e 44 42 59 10 13 30 35 30 30 20 55 4e 54 49 4c 20 42 ┆: 0480 EXEC FINDBY 0500 UNTIL B┆
0x122c0…122e0 59 46 55 4e 44 45 54 13 10 30 35 31 30 20 54 49 4c 42 59 3a 3d 42 59 4e 52 10 11 30 35 32 30 20 ┆YFUNDET 0510 TILBY:=BYNR 0520 ┆
0x122e0…12300 43 55 52 53 4f 52 20 31 37 2c 31 34 11 3d 30 35 33 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a ┆CURSOR 17,14 =0530 PRINT "******┆
0x12300…12320 (9, 0, 4) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x12320…12340 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 3d 45 30 35 34 30 20 50 52 49 4e 54 20 54 41 42 28 31 37 29 3b ┆**********"=E0540 PRINT TAB(17);┆
0x12340…12360 22 2a 22 3b 54 41 42 28 33 30 29 3b 22 41 66 73 74 61 6e 64 65 6e 20 65 72 3a 20 22 3b 41 46 53 ┆"*";TAB(30);"Afstanden er: ";AFS┆
0x12360…12380 54 41 4e 44 28 46 52 41 42 59 2c 54 49 4c 42 59 29 3b 45 1d 30 35 35 30 20 50 52 49 4e 54 20 22 ┆TAND(FRABY,TILBY);E 0550 PRINT "┆
0x12380…123a0 20 6b 6d 2e 22 3b 54 41 42 28 36 34 29 3b 22 2a 22 1d 11 30 35 36 30 20 43 55 52 53 4f 52 20 31 ┆ km.";TAB(64);"*" 0560 CURSOR 1┆
0x123a0…123c0 37 2c 31 36 11 3d 30 35 37 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆7,16 =0570 PRINT "**************┆
0x123c0…123e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x123e0…12400 2a 2a 22 3d 11 30 35 39 30 20 43 55 52 53 4f 52 20 31 38 2c 32 32 11 2d 30 36 30 30 20 49 4e 50 ┆**"= 0590 CURSOR 18,22 -0600 INP┆
0x12400…12420 (9, 0, 5) 55 54 20 22 56 69 6c 20 64 75 20 70 72 7c 76 65 20 69 67 65 6e 20 28 6a 2f 6e 29 20 20 20 22 3a ┆UT "Vil du prøve igen (j/n) ":┆
0x12420…12440 53 56 41 52 24 2d 18 30 36 33 30 20 55 4e 54 49 4c 20 53 56 41 52 24 20 49 4e 20 22 4e 6e 22 18 ┆SVAR$- 0630 UNTIL SVAR$ IN "Nn" ┆
0x12440…12460 11 30 36 34 30 20 43 55 52 53 4f 52 20 31 38 2c 32 32 11 25 30 36 35 30 20 50 52 49 4e 54 20 22 ┆ 0640 CURSOR 18,22 %0650 PRINT "┆
0x12460…12480 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 64 61 67 2e 22 25 47 30 36 36 30 20 ┆Så slutter vi for i dag."%G0660 ┆
0x12480…124a0 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x124a0…124c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x124c0…124e0 2d 2d 47 10 30 36 37 30 20 50 52 4f 43 20 46 49 4e 44 42 59 10 0c 30 36 39 30 20 42 59 4e 52 3a ┆--G 0670 PROC FINDBY 0690 BYNR:┆
0x124e0…12500 3d 30 0c 0c 30 37 30 30 20 52 45 50 45 41 54 20 0c 11 30 37 31 30 20 42 59 4e 52 3a 3d 42 59 4e ┆=0 0700 REPEAT 0710 BYNR:=BYN┆
0x12500…12520 (9, 0, 6) 52 2b 31 11 2c 30 37 33 30 20 55 4e 54 49 4c 20 42 59 4e 52 3d 41 4e 54 42 59 45 52 20 4f 52 20 ┆R+1 ,0730 UNTIL BYNR=ANTBYER OR ┆
0x12520…12540 42 59 24 28 42 59 4e 52 29 3d 42 59 4e 41 56 4e 24 2c 35 30 37 34 30 20 42 59 46 55 4e 44 45 54 ┆BY$(BYNR)=BYNAVN$,50740 BYFUNDET┆
0x12540…12560 3a 3d 28 42 59 4e 41 56 4e 24 3d 42 59 24 28 42 59 4e 52 29 29 20 2f 2f 20 6c 6f 67 69 73 6b 20 ┆:=(BYNAVN$=BY$(BYNR)) // logisk ┆
0x12560…12580 76 61 72 69 61 62 65 6c 35 1a 30 37 35 30 20 49 46 20 4e 4f 54 20 42 59 46 55 4e 44 45 54 20 54 ┆variabel5 0750 IF NOT BYFUNDET T┆
0x12580…125a0 48 45 4e 20 1a 0b 30 37 36 30 20 43 4c 45 41 52 20 0b 3a 30 37 37 30 20 50 52 49 4e 54 20 22 44 ┆HEN 0760 CLEAR :0770 PRINT "D┆
0x125a0…125c0 65 6e 6e 65 20 62 79 20 68 7c 72 65 72 20 69 6b 6b 65 20 6d 65 64 20 74 69 6c 20 64 65 20 32 32 ┆enne by hører ikke med til de 22┆
0x125c0…125e0 20 76 69 73 74 65 20 62 79 65 72 2e 22 3a 1f 30 37 39 30 20 46 4f 52 20 42 59 4e 52 3a 3d 31 20 ┆ viste byer.": 0790 FOR BYNR:=1 ┆
0x125e0…12600 54 4f 20 41 4e 54 42 59 45 52 20 44 4f 20 1f 14 30 38 31 30 20 50 52 49 4e 54 20 42 59 24 28 42 ┆TO ANTBYER DO 0810 PRINT BY$(B┆
0x12600…12620 (9, 0, 7) ExtentHdr {name=»EUROPA «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0011,0c (0x011c00)}, nextfile={DA 0013,00 (0x013000)}, f99=41 10 00 20 00 55 4c 44 20 20 ┆A ULD ┆}
0x12620…12640 59 4e 52 29 14 0e 30 38 32 30 20 4e 45 58 54 20 42 59 4e 52 0e 11 30 38 33 30 20 43 55 52 53 4f ┆YNR) 0820 NEXT BYNR 0830 CURSO┆
0x12640…12660 52 20 36 38 2c 32 31 11 1a 30 38 34 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 56 ┆R 68,21 0840 INPUT "Return!":SV┆
0x12660…12680 41 52 24 1a 0b 30 38 36 30 20 45 4e 44 49 46 20 0b 13 30 38 37 30 20 45 4e 44 50 52 4f 43 20 46 ┆AR$ 0860 ENDIF 0870 ENDPROC F┆
0x12680…126a0 49 4e 44 42 59 13 36 30 38 38 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INDBY 60880 // -----------------┆
0x126a0…126c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 36 43 30 ┆-----------------------------6C0┆
0x126c0…126e0 39 30 30 20 44 41 54 41 20 22 41 6d 73 74 65 72 64 61 6d 22 2c 22 41 74 68 65 6e 22 2c 22 42 65 ┆900 DATA "Amsterdam","Athen","Be┆
0x126e0…12700 6f 67 72 61 64 22 2c 22 42 65 72 6c 69 6e 22 2c 22 42 65 72 6e 22 2c 22 42 72 75 78 65 6c 6c 65 ┆ograd","Berlin","Bern","Bruxelle┆
0x12700…12720 (9, 0, 8) 73 22 43 41 30 39 31 30 20 44 41 54 41 20 22 42 75 6b 61 72 65 73 74 22 2c 22 42 75 64 61 70 65 ┆s"CA0910 DATA "Bukarest","Budape┆
0x12720…12740 73 74 22 2c 22 48 65 6c 73 69 6e 6b 69 22 2c 22 4b 7c 62 65 6e 68 61 76 6e 22 2c 22 4c 69 73 73 ┆st","Helsinki","København","Liss┆
0x12740…12760 61 62 6f 6e 22 41 44 30 39 32 30 20 44 41 54 41 20 22 4c 6f 6e 64 6f 6e 22 2c 22 4c 75 78 65 6d ┆abon"AD0920 DATA "London","Luxem┆
0x12760…12780 62 6f 75 72 67 22 2c 22 4d 61 64 72 69 64 22 2c 22 4f 73 6c 6f 22 2c 22 50 61 72 69 73 22 2c 22 ┆bourg","Madrid","Oslo","Paris","┆
0x12780…127a0 50 72 61 67 22 2c 22 52 6f 6d 22 44 2f 30 39 33 30 20 44 41 54 41 20 22 53 6f 66 69 61 22 2c 22 ┆Prag","Rom"D/0930 DATA "Sofia","┆
0x127a0…127c0 53 74 6f 63 6b 68 6f 6c 6d 22 2c 22 57 61 72 73 7a 61 77 61 22 2c 22 57 69 65 6e 22 2f 47 30 39 ┆Stockholm","Warszawa","Wien"/G09┆
0x127c0…127e0 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆40 // --------------------------┆
0x127e0…12800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x12800…12820 (9, 0, 9) 2d 2d 2d 2d 2d 47 0b 30 39 36 30 20 44 41 54 41 20 30 0b 10 30 39 37 30 20 44 41 54 41 20 33 30 ┆-----G 0960 DATA 0 0970 DATA 30┆
0x12820…12840 32 37 2c 30 10 15 30 39 38 30 20 44 41 54 41 20 31 38 32 33 2c 31 31 37 34 2c 30 15 19 30 39 39 ┆27,0 0980 DATA 1823,1174,0 099┆
0x12840…12860 30 20 44 41 54 41 20 36 36 39 2c 32 35 30 36 2c 31 33 33 32 2c 30 19 1d 31 30 30 30 20 44 41 54 ┆0 DATA 669,2506,1332,0 1000 DAT┆
0x12860…12880 41 20 38 31 31 2c 32 35 37 36 2c 31 34 30 32 2c 39 37 37 2c 30 1d 21 31 30 31 30 20 44 41 54 41 ┆A 811,2576,1402,977,0 !1010 DATA┆
0x12880…128a0 20 32 32 30 2c 32 39 37 38 2c 31 38 30 34 2c 37 38 31 2c 36 34 32 2c 30 21 28 31 30 32 30 20 44 ┆ 220,2978,1804,781,642,0!(1020 D┆
0x128a0…128c0 41 54 41 20 32 33 37 30 2c 31 32 35 34 2c 37 33 32 2c 31 37 34 39 2c 31 39 37 37 2c 32 32 39 35 ┆ATA 2370,1254,732,1749,1977,2295┆
0x128c0…128e0 2c 30 28 2b 31 30 33 30 20 44 41 54 41 20 31 33 39 35 2c 31 36 30 32 2c 34 32 38 2c 39 30 34 2c ┆,0(+1030 DATA 1395,1602,428,904,┆
0x128e0…12900 31 31 36 37 2c 31 35 30 30 2c 38 39 35 2c 30 2b 33 31 30 34 30 20 44 41 54 41 20 31 38 30 33 2c ┆1167,1500,895,0+31040 DATA 1803,┆
0x12900…12920 (9, 0, 10) 33 39 33 32 2c 32 35 37 33 2c 31 34 35 39 2c 32 32 36 39 2c 31 39 36 32 2c 33 32 30 38 2c 32 33 ┆3932,2573,1459,2269,1962,3208,23┆
0x12920…12940 35 32 2c 30 33 36 31 30 35 30 20 44 41 54 41 20 38 38 36 2c 33 32 34 33 2c 32 30 36 39 2c 37 33 ┆52,0361050 DATA 886,3243,2069,73┆
0x12940…12960 37 2c 31 33 38 30 2c 31 30 33 30 2c 32 33 30 37 2c 31 36 34 31 2c 31 30 33 35 2c 30 36 3d 31 30 ┆7,1380,1030,2307,1641,1035,06=10┆
0x12960…12980 36 30 20 44 41 54 41 20 32 33 31 38 2c 34 32 32 38 2c 33 33 35 34 2c 33 31 34 38 2c 32 31 37 32 ┆60 DATA 2318,4228,3354,3148,2172┆
0x12980…129a0 2c 32 30 39 38 2c 34 30 37 33 2c 33 33 31 34 2c 34 30 37 34 2c 33 35 31 30 2c 30 3d 3f 31 30 37 ┆,2098,4073,3314,4074,3510,0=?107┆
0x129a0…129c0 30 20 44 41 54 41 20 35 33 30 2c 33 32 39 36 2c 32 31 31 37 2c 31 31 31 34 2c 39 35 31 2c 33 37 ┆0 DATA 530,3296,2117,1114,951,37┆
0x129c0…129e0 31 2c 32 36 36 36 2c 31 37 35 32 2c 32 33 35 37 2c 31 33 30 32 2c 32 32 36 30 2c 30 3f 42 31 30 ┆1,2666,1752,2357,1302,2260,0?B10┆
0x129e0…12a00 38 30 20 44 41 54 41 20 33 39 31 2c 32 37 35 34 2c 31 35 38 30 2c 37 37 33 2c 34 32 34 2c 32 32 ┆80 DATA 391,2754,1580,773,424,22┆
0x12a00…12a20 (9, 0, 11) 30 2c 32 30 37 39 2c 31 32 31 31 2c 32 30 31 31 2c 31 31 30 34 2c 32 32 31 38 2c 35 38 37 2c 30 ┆0,2079,1211,2011,1104,2218,587,0┆
0x12a20…12a40 42 3f 31 30 39 30 20 44 41 54 41 20 31 37 38 31 2c 33 38 38 39 2c 32 37 31 35 2c 32 35 30 39 2c ┆B?1090 DATA 1781,3889,2715,2509,┆
0x12a40…12a60 31 35 33 33 2c 31 35 36 31 2c 33 34 37 35 2c 32 36 37 35 2c 33 35 33 32 2c 32 38 37 31 2c 36 33 ┆1533,1561,3475,2675,3532,2871,63┆
0x12a60…12a80 39 3f 15 31 30 39 35 20 44 41 54 41 20 31 37 31 38 2c 31 37 36 37 2c 30 15 43 31 31 30 30 20 44 ┆9? 1095 DATA 1718,1767,0 C1100 D┆
0x12a80…12aa0 41 54 41 20 31 33 37 30 2c 33 34 39 39 2c 32 33 32 30 2c 31 30 32 36 2c 31 38 33 36 2c 31 35 32 ┆ATA 1370,3499,2320,1026,1836,152┆
0x12aa0…12ac0 39 2c 32 37 37 35 2c 31 39 31 39 2c 39 30 37 2c 36 30 32 2c 33 36 34 31 2c 31 39 30 34 43 15 31 ┆9,2775,1919,907,602,3641,1904C 1┆
0x12ac0…12ae0 31 30 35 20 44 41 54 41 20 31 35 37 38 2c 33 30 39 39 2c 30 15 41 31 31 31 30 20 44 41 54 41 20 ┆105 DATA 1578,3099,0 A1110 DATA ┆
0x12ae0…12b00 35 31 37 2c 33 31 31 35 2c 31 39 34 31 2c 31 30 37 33 2c 35 35 35 2c 32 39 37 2c 32 36 35 38 2c ┆517,3115,1941,1073,555,297,2658,┆
0x12b00…12b20 (9, 0, 12) 31 35 32 37 2c 32 32 36 33 2c 31 33 32 37 2c 31 38 30 31 2c 34 34 39 41 19 31 31 31 35 20 44 41 ┆1527,2263,1327,1801,449A 1115 DA┆
0x12b20…12b40 54 41 20 33 34 38 2c 31 32 36 34 2c 31 38 33 30 2c 30 19 3f 31 31 33 30 20 44 41 54 41 20 39 31 ┆TA 348,1264,1830,0 ?1130 DATA 91┆
0x12b40…12b60 32 2c 32 31 37 30 2c 39 39 36 2c 33 33 37 2c 37 36 39 2c 39 31 33 2c 31 34 30 38 2c 35 36 38 2c ┆2,2170,996,337,769,913,1408,568,┆
0x12b60…12b80 31 38 30 30 2c 31 30 33 39 2c 32 39 32 36 2c 31 32 35 37 3f 1e 31 31 34 30 20 44 41 54 41 20 37 ┆1800,1039,2926,1257? 1140 DATA 7┆
0x12b80…12ba0 34 31 2c 32 33 33 30 2c 31 33 36 37 2c 31 30 37 31 2c 30 1e 3f 31 31 35 30 20 44 41 54 41 20 31 ┆41,2330,1367,1071,0 ?1150 DATA 1┆
0x12ba0…12bc0 36 36 31 2c 32 35 30 38 2c 31 33 33 34 2c 31 35 32 35 2c 39 30 37 2c 31 34 39 32 2c 32 30 35 30 ┆661,2508,1334,1525,907,1492,2050┆
0x12bc0…12be0 2c 31 32 39 34 2c 33 31 34 38 2c 32 32 33 30 2c 32 36 37 31 3f 29 31 31 36 30 20 44 41 54 41 20 ┆,1294,3148,2230,2671?)1160 DATA ┆
0x12be0…12c00 31 38 39 38 2c 31 32 37 34 2c 32 30 33 32 2c 32 37 31 35 2c 31 34 31 33 2c 31 33 30 30 2c 30 29 ┆1898,1274,2032,2715,1413,1300,0)┆
0x12c00…12c20 (9, 0, 13) 41 31 31 37 30 20 44 41 54 41 20 32 32 33 30 2c 38 34 37 2c 34 30 39 2c 31 37 30 33 2c 31 38 31 ┆A1170 DATA 2230,847,409,1703,181┆
0x12c20…12c40 31 2c 32 31 39 33 2c 34 30 37 2c 38 31 30 2c 33 31 36 32 2c 32 32 36 31 2c 33 37 33 30 2c 32 35 ┆1,2193,407,810,3162,2261,3730,25┆
0x12c40…12c60 36 34 41 29 31 31 38 30 20 44 41 54 41 20 31 39 33 39 2c 33 31 35 32 2c 32 37 32 39 2c 32 33 33 ┆64A)1180 DATA 1939,3152,2729,233┆
0x12c60…12c80 35 2c 31 33 36 32 2c 31 37 32 37 2c 30 29 43 31 31 39 30 20 44 41 54 41 20 31 34 32 30 2c 33 35 ┆5,1362,1727,0)C1190 DATA 1420,35┆
0x12c80…12ca0 34 39 2c 32 33 37 30 2c 31 30 37 36 2c 31 38 38 36 2c 31 35 37 39 2c 32 38 32 35 2c 31 39 36 39 ┆49,2370,1076,1886,1579,2825,1969┆
0x12ca0…12cc0 2c 33 38 33 2c 36 35 32 2c 32 36 39 31 2c 31 39 35 34 43 2d 31 32 30 30 20 44 41 54 41 20 31 36 ┆,383,652,2691,1954C-1200 DATA 16┆
0x12cc0…12ce0 32 38 2c 33 31 34 39 2c 35 34 39 2c 31 38 38 30 2c 31 34 31 37 2c 32 37 36 34 2c 32 37 37 39 2c ┆28,3149,549,1880,1417,2764,2779,┆
0x12ce0…12d00 30 2d 43 31 32 31 30 20 44 41 54 41 20 31 32 31 36 2c 32 32 37 38 2c 31 30 39 39 2c 35 38 39 2c ┆0-C1210 DATA 1216,2278,1099,589,┆
0x12d00…12d20 (9, 0, 14) 31 34 32 35 2c 31 32 39 39 2c 31 34 38 37 2c 36 39 38 2c 32 30 34 38 2c 31 31 34 37 2c 33 34 33 ┆1425,1299,1487,698,2048,1147,343┆
0x12d20…12d40 38 2c 31 36 37 30 43 32 31 32 32 30 20 44 41 54 41 20 31 33 34 33 2c 32 38 39 36 2c 31 36 31 35 ┆8,1670C21220 DATA 1343,2896,1615┆
0x12d40…12d60 2c 31 36 32 37 2c 36 31 32 2c 31 38 37 32 2c 31 35 30 38 2c 31 36 36 35 2c 30 32 41 31 32 33 30 ┆,1627,612,1872,1508,1665,02A1230┆
0x12d60…12d80 20 44 41 54 41 20 31 31 33 39 2c 31 38 35 38 2c 36 38 34 2c 36 34 38 2c 38 36 35 2c 31 31 30 37 ┆ DATA 1139,1858,684,648,865,1107┆
0x12d80…12da0 2c 31 31 30 36 2c 32 35 36 2c 32 31 30 32 2c 31 33 38 35 2c 33 30 37 38 2c 31 35 38 32 41 35 31 ┆,1106,256,2102,1385,3078,1582A51┆
0x12da0…12dc0 32 34 30 20 44 41 54 41 20 39 35 35 2c 32 34 33 39 2c 31 36 36 39 2c 31 32 37 31 2c 33 31 32 2c ┆240 DATA 955,2439,1669,1271,312,┆
0x12dc0…12de0 31 31 35 30 2c 31 30 36 30 2c 31 37 31 39 2c 37 31 38 2c 30 35 00 00 63 63 63 63 63 63 63 63 63 ┆1150,1060,1719,718,05 ccccccccc┆
0x12de0…12e00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x12e00…12f00 (9, 0, 15) 0x63[0x100]
[…0x1…]
0x13000…13020 (9, 1, 1) ExtentHdr {name=»SYSTIME «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0013,0a (0x013a00)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x13020…13040 34 00 01 44 41 54 41 4c 5b 52 45 00 4c 65 69 66 20 50 65 68 72 73 73 6f 6e 00 34 20 2a 20 43 4f ┆4 DATALÆRE Leif Pehrsson 4 * CO┆
0x13040…13060 4d 41 4c 00 66 6f 72 6c 61 67 65 74 20 73 79 73 74 69 6d 65 00 34 3f 00 02 44 41 54 41 4c 5b 52 ┆MAL forlaget systime 4? DATALÆR┆
0x13060…13080 45 00 42 6a 61 72 6e 65 20 41 61 67 61 72 64 00 44 61 74 61 6c 7b 72 65 20 6d 65 64 20 4d 69 6b ┆E Bjarne Aagard Datalære med Mik┆
0x13080…130a0 72 6f 64 61 00 66 6f 72 6c 61 67 65 74 20 73 79 73 74 69 6d 65 00 3f 00 00 00 00 00 00 00 00 00 ┆roda forlaget systime ? ┆
0x130a0…130c0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x2…]
0x13100…13200 (9, 1, 2) 0x63[0x100]
[…0x8…]
0x13a00…13a20 (9, 1, 11) ExtentHdr {name=»RUMFANG4«, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0014,04 (0x014400)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0014,04 (0x014400)}, f99=41 13 00 fe 00 00 00 00 00 00 ┆A ┆}
0x13a20…13a40 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x13a40…13a60 2d 20 72 75 6d 66 61 6e 67 34 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang4 ---------------------┆
0x13a60…13a80 2d 2d 2d 2d 2d 2d 45 45 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------EE0020 // Udregner forskel┆
0x13a80…13aa0 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 65 64 20 62 65 6e 79 74 74 65 6c 73 65 20 61 66 20 43 ┆lige rumfang ved benyttelse af C┆
0x13aa0…13ac0 41 53 45 20 2d 20 45 4e 44 43 41 53 45 45 21 30 30 33 30 20 2f 2f 20 73 61 6d 74 20 70 72 6f 63 ┆ASE - ENDCASEE!0030 // samt proc┆
0x13ac0…13ae0 65 64 75 72 65 2d 73 7b 74 6e 69 6e 67 65 72 2e 21 11 30 30 34 30 20 44 49 4d 20 53 56 24 20 4f ┆edure-sætninger.! 0040 DIM SV$ O┆
0x13ae0…13b00 46 20 33 11 0c 30 30 35 30 20 52 45 50 45 41 54 20 0c 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 10 ┆F 3 0050 REPEAT 0060 CLEAR ┆
0x13b00…13b20 (9, 1, 12) 30 30 37 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 32 30 30 38 30 20 50 52 49 4e 54 20 22 44 65 ┆0070 CURSOR 10,3 20080 PRINT "De┆
0x13b20…13b40 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 20 ┆tte program udskriver rumfanget ┆
0x13b40…13b60 61 66 3a 22 32 10 30 30 39 30 20 43 55 52 53 4f 52 20 31 30 2c 34 10 32 30 31 30 30 20 50 52 49 ┆af:"2 0090 CURSOR 10,4 20100 PRI┆
0x13b60…13b80 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NT "----------------------------┆
0x13b80…13ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 32 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 10 30 31 32 30 20 43 55 ┆---------"2 0110 PRINT 0120 CU┆
0x13ba0…13bc0 52 53 4f 52 20 31 30 2c 36 10 3d 30 31 33 30 20 50 52 49 4e 54 20 22 4b 61 73 73 65 2e 2e 2e 2e ┆RSOR 10,6 =0130 PRINT "Kasse....┆
0x13bc0…13be0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆................................┆
0x13be0…13c00 2e 54 61 73 74 20 31 22 3d 10 30 31 34 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 3d 30 31 35 30 ┆.Tast 1"= 0140 CURSOR 10,8 =0150┆
0x13c00…13c20 (9, 1, 13) 20 50 52 49 4e 54 20 22 50 79 72 61 6d 69 64 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ PRINT "Pyramide................┆
0x13c20…13c40 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3d 11 30 31 36 30 20 ┆..................Tast 2"= 0160 ┆
0x13c40…13c60 43 55 52 53 4f 52 20 31 30 2c 31 30 11 3d 30 31 37 30 20 50 52 49 4e 54 20 22 50 79 72 61 6d 69 ┆CURSOR 10,10 =0170 PRINT "Pyrami┆
0x13c60…13c80 64 65 73 74 75 62 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆destub..........................┆
0x13c80…13ca0 2e 2e 2e 2e 54 61 73 74 20 33 22 3d 11 30 31 38 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 3d ┆....Tast 3"= 0180 CURSOR 10,12 =┆
0x13ca0…13cc0 30 31 39 30 20 50 52 49 4e 54 20 22 43 79 6c 69 6e 64 65 72 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆0190 PRINT "Cylinder............┆
0x13cc0…13ce0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3d 11 30 ┆......................Tast 4"= 0┆
0x13ce0…13d00 32 30 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 3d 30 32 31 30 20 50 52 49 4e 54 20 22 4b 65 ┆200 CURSOR 10,14 =0210 PRINT "Ke┆
0x13d00…13d20 (9, 1, 14) 67 6c 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆gle.............................┆
0x13d20…13d40 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 35 22 3d 11 30 32 32 30 20 43 55 52 53 4f 52 20 31 30 2c ┆........Tast 5"= 0220 CURSOR 10,┆
0x13d40…13d60 31 36 11 3d 30 32 33 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 73 74 75 62 2e 2e 2e 2e 2e 2e 2e ┆16 =0230 PRINT "Keglestub.......┆
0x13d60…13d80 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 36 ┆..........................Tast 6┆
0x13d80…13da0 22 3d 11 30 32 34 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 3d 30 32 35 30 20 50 52 49 4e 54 ┆"= 0240 CURSOR 10,18 =0250 PRINT┆
0x13da0…13dc0 20 22 4b 75 67 6c 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ "Kugle.........................┆
0x13dc0…13de0 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 37 22 3d 11 30 32 36 30 20 43 55 52 53 4f 52 ┆............Tast 7"= 0260 CURSOR┆
0x13de0…13e00 20 31 30 2c 32 30 11 3d 30 32 37 30 20 50 52 49 4e 54 20 22 53 74 6f 70 2e 2e 2e 2e 2e 2e 2e 2e ┆ 10,20 =0270 PRINT "Stop........┆
0x13e00…13e20 (9, 1, 15) 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 ┆..............................Ta┆
0x13e20…13e40 73 74 20 38 22 3d 11 30 32 38 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 0b 30 32 39 30 20 50 ┆st 8"= 0280 CURSOR 10,16 0290 P┆
0x13e40…13e60 52 49 4e 54 20 0b 0b 30 33 30 30 20 50 52 49 4e 54 20 0b 11 30 33 31 30 20 43 55 52 53 4f 52 20 ┆RINT 0300 PRINT 0310 CURSOR ┆
0x13e60…13e80 31 30 2c 32 32 11 35 30 33 32 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c ┆10,22 50320 PRINT "Indtast det ø┆
0x13e80…13ea0 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 33 ┆nskede nummer for rumfang:";5 03┆
0x13ea0…13ec0 33 30 20 49 4e 50 55 54 20 5c 4e 53 4b 45 10 47 30 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆30 INPUT ØNSKE G0340 // --------┆
0x13ec0…13ee0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x13ee0…13f00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 33 35 30 20 50 52 ┆-----------------------G 0350 PR┆
0x13f00…13f20 (9, 1, 16) 49 4e 54 20 0b 13 30 33 36 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 33 37 30 20 ┆INT 0360 CASE ØNSKE OF 0370 ┆
0x13f20…13f40 57 48 45 4e 20 31 0b 0f 30 33 38 30 20 45 58 45 43 20 4b 41 53 53 45 0f 0b 30 33 39 30 20 57 48 ┆WHEN 1 0380 EXEC KASSE 0390 WH┆
0x13f40…13f60 45 4e 20 32 0b 12 30 34 30 30 20 45 58 45 43 20 50 59 52 41 4d 49 44 45 12 0b 30 34 31 30 20 57 ┆EN 2 0400 EXEC PYRAMIDE 0410 W┆
0x13f60…13f80 48 45 4e 20 33 0b 16 30 34 32 30 20 45 58 45 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 16 0b 30 ┆HEN 3 0420 EXEC PYRAMIDESTUB 0┆
0x13f80…13fa0 34 33 30 20 57 48 45 4e 20 34 0b 12 30 34 34 30 20 45 58 45 43 20 43 59 4c 49 4e 44 45 52 12 0b ┆430 WHEN 4 0440 EXEC CYLINDER ┆
0x13fa0…13fc0 30 34 35 30 20 57 48 45 4e 20 35 0b 0f 30 34 36 30 20 45 58 45 43 20 4b 45 47 4c 45 0f 0b 30 34 ┆0450 WHEN 5 0460 EXEC KEGLE 04┆
0x13fc0…13fe0 37 30 20 57 48 45 4e 20 36 0b 13 30 34 38 30 20 45 58 45 43 20 4b 45 47 4c 45 53 54 55 42 13 0b ┆70 WHEN 6 0480 EXEC KEGLESTUB ┆
0x13fe0…14000 30 34 39 30 20 57 48 45 4e 20 37 0b 0f 30 35 30 30 20 45 58 45 43 20 4b 55 47 4c 45 0f 11 30 35 ┆0490 WHEN 7 0500 EXEC KUGLE 05┆
0x14000…14020 (10, 0, 1) 31 30 20 43 55 52 53 4f 52 20 37 30 2c 32 32 11 0b 30 35 32 30 20 57 48 45 4e 20 38 0b 0e 30 35 ┆10 CURSOR 70,22 0520 WHEN 8 05┆
0x14020…14040 33 30 20 45 58 45 43 20 53 4c 55 54 0e 0f 30 35 34 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0b 30 ┆30 EXEC SLUT 0540 OTHERWISE 0┆
0x14040…14060 35 35 30 20 43 4c 45 41 52 20 0b 11 30 35 36 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 2e 30 ┆550 CLEAR 0560 CURSOR 20,12 .0┆
0x14060…14080 35 37 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 74 61 73 74 65 74 20 66 6f 72 6b 65 72 74 ┆570 PRINT "Du har tastet forkert┆
0x14080…140a0 2e 20 50 72 7c 76 20 69 67 65 6e 2e 22 2e 0d 30 35 38 30 20 45 4e 44 43 41 53 45 20 0d 11 30 35 ┆. Prøv igen.". 0580 ENDCASE 05┆
0x140a0…140c0 39 30 20 43 55 52 53 4f 52 20 36 38 2c 32 33 11 15 30 36 30 30 20 50 52 49 4e 54 20 22 52 65 74 ┆90 CURSOR 68,23 0600 PRINT "Ret┆
0x140c0…140e0 75 72 6e 21 22 3b 15 0e 30 36 31 30 20 49 4e 50 55 54 20 53 56 24 0e 12 30 36 32 30 20 55 4e 54 ┆urn!"; 0610 INPUT SV$ 0620 UNT┆
0x140e0…14100 49 4c 20 5c 4e 53 4b 45 3d 38 12 4c 30 36 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆IL ØNSKE=8 L0630 // ------------┆
0x14100…14120 (10, 0, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14120…14140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0f 30 36 34 30 20 50 ┆------------------------L 0640 P┆
0x14140…14160 52 4f 43 20 4b 41 53 53 45 0f 0b 30 36 35 30 20 43 4c 45 41 52 20 0b 0f 30 36 36 30 20 43 55 52 ┆ROC KASSE 0650 CLEAR 0660 CUR┆
0x14160…14180 53 4f 52 20 31 2c 36 0f 33 30 36 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 ┆SOR 1,6 30670 PRINT " ┆
0x14180…141a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 41 20 53 20 53 20 45 20 2e 20 22 33 4d 30 36 ┆ K A S S E . "3M06┆
0x141a0…141c0 38 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆80 PRINT "______________________┆
0x141c0…141e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x141e0…14200 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 30 36 39 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3f 30 ┆__________"M 0690 CURSOR 1,10 ?0┆
0x14200…14220 (10, 0, 3) 37 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 ┆700 INPUT "Indtast længde: ┆
0x14220…14240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 3f 0b ┆ ":LÆNGDE? ┆
0x14240…14260 30 37 31 30 20 50 52 49 4e 54 20 0b 3f 30 37 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆0710 PRINT ?0720 INPUT "Indtast┆
0x14260…14280 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ bredde: ┆
0x14280…142a0 20 20 20 20 22 3a 42 52 45 44 44 45 3f 0b 30 37 33 30 20 50 52 49 4e 54 20 0b 3e 30 37 34 30 20 ┆ ":BREDDE? 0730 PRINT >0740 ┆
0x142a0…142c0 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 ┆INPUT "Indtast højde: ┆
0x142c0…142e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3e 0b 30 37 35 30 20 ┆ ":HØJDE> 0750 ┆
0x142e0…14300 50 52 49 4e 54 20 0b 0b 30 37 36 30 20 50 52 49 4e 54 20 0b 21 30 37 37 30 20 52 55 4d 46 41 4e ┆PRINT 0760 PRINT !0770 RUMFAN┆
0x14300…14320 (10, 0, 4) 47 3a 3d 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 21 40 30 37 38 30 20 50 52 49 ┆G:=LÆNGDE*BREDDE*HØJDE!@0780 PRI┆
0x14320…14340 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 20 20 20 20 20 20 ┆NT "Rumfanget af kassen: ┆
0x14340…14360 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 40 12 30 37 39 30 20 45 ┆ ";RUMFANG@ 0790 E┆
0x14360…14380 4e 44 50 52 4f 43 20 4b 41 53 53 45 12 4a 30 38 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NDPROC KASSE J0800 // ----------┆
0x14380…143a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x143a0…143c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 30 38 31 30 20 50 ┆------------------------J 0810 P┆
0x143c0…143e0 52 4f 43 20 50 59 52 41 4d 49 44 45 12 0b 30 38 32 30 20 43 4c 45 41 52 20 0b 0f 30 38 33 30 20 ┆ROC PYRAMIDE 0820 CLEAR 0830 ┆
0x143e0…14400 43 55 52 53 4f 52 20 31 2c 35 0f 39 30 38 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 ┆CURSOR 1,5 90840 PRINT " ┆
0x14400…14420 (10, 0, 5) ExtentHdr {name=»RUMFANG4«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0014,0e (0x014e00)}, prevext={DA 0013,0a (0x013a00)}, nextfile={DA 0014,0e (0x014e00)}, f99=41 13 00 20 00 00 00 00 00 00 ┆A ┆}
0x14420…14440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 20 41 20 4d 20 49 20 44 ┆ P Y R A M I D┆
0x14440…14460 20 45 20 2e 22 39 4d 30 38 35 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ E ."9M0850 PRINT "_____________┆
0x14460…14480 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x14480…144a0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 30 38 36 30 20 43 55 52 53 4f ┆___________________"M 0860 CURSO┆
0x144a0…144c0 52 20 31 2c 31 30 10 45 30 38 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 ┆R 1,10 E0870 INPUT "Indtast læng┆
0x144c0…144e0 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆de: ┆
0x144e0…14500 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 45 0b 30 38 38 30 20 50 52 49 4e 54 20 0b 45 30 38 39 30 ┆ ":LÆNGDEE 0880 PRINT E0890┆
0x14500…14520 (10, 0, 6) 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 20 20 20 20 ┆ INPUT "Indtast bredde: ┆
0x14520…14540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 ┆ ":BREDD┆
0x14540…14560 45 45 0b 30 39 30 30 20 50 52 49 4e 54 20 0b 44 30 39 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆EE 0900 PRINT D0910 INPUT "Indt┆
0x14560…14580 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ast højde: ┆
0x14580…145a0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 44 32 30 39 32 30 20 52 55 4d 46 41 ┆ ":HØJDED20920 RUMFA┆
0x145a0…145c0 4e 47 3a 3d 49 4e 54 28 31 2f 33 2a 48 5c 4a 44 45 2a 42 52 45 44 44 45 2a 4c 5b 4e 47 44 45 2a ┆NG:=INT(1/3*HØJDE*BREDDE*LÆNGDE*┆
0x145c0…145e0 31 30 30 29 2f 31 30 30 32 0b 30 39 33 30 20 50 52 49 4e 54 20 0b 46 30 39 34 30 20 50 52 49 4e ┆100)/1002 0930 PRINT F0940 PRIN┆
0x145e0…14600 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 20 6d 65 64 20 ┆T "Rumfanget af en pyramide med ┆
0x14600…14620 (10, 0, 7) 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 46 15 30 ┆de ønskede mål: ";RUMFANGF 0┆
0x14620…14640 39 35 30 20 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 15 4a 30 39 36 30 20 2f 2f 20 2d 2d ┆950 ENDPROC PYRAMIDE J0960 // --┆
0x14640…14660 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x14680…146a0 4a 16 30 39 37 30 20 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 16 0b 30 39 38 30 20 43 ┆J 0970 PROC PYRAMIDESTUB 0980 C┆
0x146a0…146c0 4c 45 41 52 20 0b 0f 30 39 39 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 41 31 30 30 30 20 50 52 49 ┆LEAR 0990 CURSOR 1,5 A1000 PRI┆
0x146c0…146e0 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 20 59 20 52 ┆NT " P Y R┆
0x146e0…14700 20 41 20 4d 20 49 20 44 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 22 41 4d 31 30 31 30 20 ┆ A M I D E S T U B . "AM1010 ┆
0x14700…14720 (10, 0, 8) 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆
0x14720…14740 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x14740…14760 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 30 32 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3b 31 30 33 30 ┆_______"M 1020 CURSOR 1,10 ;1030┆
0x14760…14780 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 62 75 6e 64 66 6c ┆ INPUT "Indtast længden i bundfl┆
0x14780…147a0 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 31 3b 0b 31 30 34 30 20 50 52 ┆aden: ":L1; 1040 PR┆
0x147a0…147c0 49 4e 54 20 0b 3b 31 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 ┆INT ;1050 INPUT "Indtast bredde┆
0x147c0…147e0 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 ┆n i bundfladen: ":B┆
0x147e0…14800 31 3b 0b 31 30 36 30 20 50 52 49 4e 54 20 0b 3b 31 30 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆1; 1060 PRINT ;1070 INPUT "Indt┆
0x14800…14820 (10, 0, 9) 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a ┆ast længden i den øverste flade:┆
0x14820…14840 20 20 20 20 20 20 20 22 3a 4c 32 3b 0b 31 30 38 30 20 50 52 49 4e 54 20 0b 3b 31 30 39 30 20 49 ┆ ":L2; 1080 PRINT ;1090 I┆
0x14840…14860 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 69 20 64 65 6e 20 7c 76 65 72 ┆NPUT "Indtast bredden i den øver┆
0x14860…14880 73 74 65 20 66 6c 61 64 65 3a 20 20 20 20 20 20 20 22 3a 42 32 3b 0b 31 31 30 30 20 50 52 49 4e ┆ste flade: ":B2; 1100 PRIN┆
0x14880…148a0 54 20 0b 3e 31 31 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 ┆T >1110 INPUT "Indtast pyramide┆
0x148a0…148c0 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a ┆stubbens højde: ":HØJ┆
0x148c0…148e0 44 45 3e 36 31 31 32 30 20 52 55 4d 46 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 29 2a 28 4c 31 2a ┆DE>61120 RUMFANG:=(HØJDE/3)*(L1*┆
0x148e0…14900 42 31 2b 4c 32 2a 42 32 2b 53 51 52 28 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 36 0b 31 31 33 30 ┆B1+L2*B2+SQR(L1*B1*L2*B2))6 1130┆
0x14900…14920 (10, 0, 10) 20 50 52 49 4e 54 20 0b 0b 31 31 34 30 20 50 52 49 4e 54 20 0b 4d 31 31 35 30 20 50 52 49 4e 54 ┆ PRINT 1140 PRINT M1150 PRINT┆
0x14920…14940 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 70 79 72 61 6d 69 64 65 73 74 75 62 20 6d ┆ "Rumfanget af en pyramidestub m┆
0x14940…14960 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d ┆ed de ønskede mål: ";RUM┆
0x14960…14980 46 41 4e 4d 19 31 31 36 30 20 45 4e 44 50 52 4f 43 20 50 59 52 41 4d 49 44 45 53 54 55 42 19 4a ┆FANM 1160 ENDPROC PYRAMIDESTUB J┆
0x14980…149a0 31 31 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆1170 // ------------------------┆
0x149a0…149c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x149c0…149e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 31 31 38 30 20 50 52 4f 43 20 43 59 4c 49 4e 44 45 52 12 0b ┆----------J 1180 PROC CYLINDER ┆
0x149e0…14a00 31 31 39 30 20 43 4c 45 41 52 20 0b 0f 31 32 30 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 36 31 32 ┆1190 CLEAR 1200 CURSOR 1,5 612┆
0x14a00…14a20 (10, 0, 11) 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆10 PRINT " ┆
0x14a20…14a40 43 20 59 20 4c 20 49 20 4e 20 44 20 45 20 52 20 2e 20 20 22 36 4d 31 32 32 30 20 50 52 49 4e 54 ┆C Y L I N D E R . "6M1220 PRINT┆
0x14a40…14a60 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ "______________________________┆
0x14a60…14a80 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x14a80…14aa0 5f 5f 22 4d 10 31 32 33 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e 31 32 34 30 20 49 4e 50 55 ┆__"M 1230 CURSOR 1,10 >1240 INPU┆
0x14aa0…14ac0 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 72 61 64 69 75 73 3a 20 20 ┆T "Indtast cylinderens radius: ┆
0x14ac0…14ae0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b 31 32 35 30 20 50 52 49 4e ┆ ":RADIUS> 1250 PRIN┆
0x14ae0…14b00 54 20 0b 3d 31 32 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 ┆T =1260 INPUT "Indtast cylinder┆
0x14b00…14b20 (10, 0, 12) 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 ┆ens højde: ":HØJD┆
0x14b20…14b40 45 3d 32 31 32 37 30 20 52 55 4d 46 41 4e 47 3a 3d 49 4e 54 28 33 2e 31 34 31 35 39 2a 48 5c 4a ┆E=21270 RUMFANG:=INT(3.14159*HØJ┆
0x14b40…14b60 44 45 2a 52 41 44 49 55 53 2a 2a 32 2a 31 30 30 29 2f 31 30 30 32 0b 31 32 38 30 20 50 52 49 4e ┆DE*RADIUS**2*100)/1002 1280 PRIN┆
0x14b60…14b80 54 20 0b 0b 31 32 39 30 20 50 52 49 4e 54 20 0b 43 31 33 30 30 20 50 52 49 4e 54 20 22 43 79 6c ┆T 1290 PRINT C1300 PRINT "Cyl┆
0x14b80…14ba0 69 6e 64 65 72 65 6e 73 20 72 75 6d 66 61 6e 67 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 ┆inderens rumfang med de ønskede ┆
0x14ba0…14bc0 6d 7d 6c 3a 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 43 15 31 33 31 30 20 45 4e 44 50 52 ┆mål: ";RUMFANGC 1310 ENDPR┆
0x14bc0…14be0 4f 43 20 43 59 4c 49 4e 44 45 52 15 4a 31 33 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC CYLINDER J1320 // -----------┆
0x14be0…14c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14c00…14c20 (10, 0, 13) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 31 33 33 30 20 50 52 ┆-----------------------J 1330 PR┆
0x14c20…14c40 4f 43 20 4b 45 47 4c 45 0f 0b 31 33 34 30 20 43 4c 45 41 52 20 0b 0f 31 33 35 30 20 43 55 52 53 ┆OC KEGLE 1340 CLEAR 1350 CURS┆
0x14c40…14c60 4f 52 20 31 2c 35 0f 35 31 33 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆OR 1,5 51360 PRINT " ┆
0x14c60…14c80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 45 20 47 20 4c 20 45 20 2e 20 22 35 4d 31 ┆ K E G L E . "5M1┆
0x14c80…14ca0 33 37 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆370 PRINT "_____________________┆
0x14ca0…14cc0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x14cc0…14ce0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 33 38 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 3e ┆___________"M 1380 CURSOR 1,10 >┆
0x14ce0…14d00 31 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 69 ┆1390 INPUT "Indtast keglens radi┆
0x14d00…14d20 (10, 0, 14) 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3e 0b ┆us: ":RADIUS> ┆
0x14d20…14d40 31 34 30 30 20 50 52 49 4e 54 20 0b 3d 31 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆1400 PRINT =1410 INPUT "Indtast┆
0x14d40…14d60 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ keglens højde: ┆
0x14d60…14d80 20 20 20 22 3a 48 5c 4a 44 45 3d 21 31 34 32 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 48 5c ┆ ":HØJDE=!1420 RUMFANG:=1/3*HØ┆
0x14d80…14da0 4a 44 45 2a 52 41 44 49 55 53 2a 2a 32 21 0b 31 34 33 30 20 50 52 49 4e 54 20 0b 0b 31 34 34 30 ┆JDE*RADIUS**2! 1430 PRINT 1440┆
0x14da0…14dc0 20 50 52 49 4e 54 20 0b 3f 31 34 35 30 20 50 52 49 4e 54 20 22 4b 65 67 6c 65 6e 73 20 72 75 6d ┆ PRINT ?1450 PRINT "Keglens rum┆
0x14dc0…14de0 66 61 6e 67 20 6d 65 64 20 64 65 20 7c 6e 73 6b 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 20 22 ┆fang med de ønskede mål: "┆
0x14de0…14e00 3b 52 55 4d 46 41 4e 47 3f 12 31 34 36 30 20 45 4e 44 50 52 4f 43 20 4b 45 47 4c 45 12 4a 31 34 ┆;RUMFANG? 1460 ENDPROC KEGLE J14┆
0x14e00…14e20 (10, 0, 15) ExtentHdr {name=»RUMFANG4«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0014,04 (0x014400)}, nextfile={DA 0015,08 (0x015800)}, f99=41 13 00 20 00 00 00 00 00 00 ┆A ┆}
0x14e20…14e40 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆70 // --------------------------┆
0x14e40…14e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x14e60…14e80 2d 2d 2d 2d 2d 2d 2d 2d 4a 13 31 34 38 30 20 50 52 4f 43 20 4b 45 47 4c 45 53 54 55 42 13 0b 31 ┆--------J 1480 PROC KEGLESTUB 1┆
0x14e80…14ea0 34 39 30 20 43 4c 45 41 52 20 0b 0f 31 35 30 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 3c 31 35 31 ┆490 CLEAR 1500 CURSOR 1,5 <151┆
0x14ea0…14ec0 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 PRINT " ┆
0x14ec0…14ee0 4b 20 45 20 47 20 4c 20 45 20 53 20 54 20 55 20 42 20 2e 20 20 20 20 20 22 3c 4d 31 35 32 30 20 ┆K E G L E S T U B . "<M1520 ┆
0x14ee0…14f00 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆PRINT "_________________________┆
0x14f00…14f20 (10, 0, 16) 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x14f20…14f40 5f 5f 5f 5f 5f 5f 5f 22 4d 0b 31 35 33 30 20 50 52 49 4e 54 20 0b 10 31 35 34 30 20 43 55 52 53 ┆_______"M 1530 PRINT 1540 CURS┆
0x14f40…14f60 4f 52 20 31 2c 31 30 10 3c 31 35 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 ┆OR 1,10 <1550 INPUT "Indtast keg┆
0x14f60…14f80 6c 65 73 74 75 62 62 65 6e 73 20 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 20 ┆lestubbens nederste radius: ┆
0x14f80…14fa0 20 22 3a 52 31 3c 0b 31 35 36 30 20 50 52 49 4e 54 20 0b 3c 31 35 37 30 20 49 4e 50 55 54 20 22 ┆ ":R1< 1560 PRINT <1570 INPUT "┆
0x14fa0…14fc0 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 74 65 20 72 61 ┆Indtast keglestubbens øverste ra┆
0x14fc0…14fe0 64 69 75 73 3a 20 20 20 20 20 20 20 22 3a 52 32 3c 0b 31 35 38 30 20 50 52 49 4e 54 20 0b 3f 31 ┆dius: ":R2< 1580 PRINT ?1┆
0x14fe0…15000 35 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 ┆590 INPUT "Indtast keglestubbens┆
0x15000…15020 (10, 1, 1) 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3f 0b ┆ højde: ":HØJDE? ┆
0x15020…15040 31 36 30 30 20 50 52 49 4e 54 20 0b 33 31 36 31 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 33 ┆1600 PRINT 31610 RUMFANG:=1/3*3┆
0x15040…15060 2e 31 34 31 35 39 2a 48 5c 4a 44 45 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 2b 52 31 2a 52 32 29 ┆.14159*HØJDE*(R1**2+R2**2+R1*R2)┆
0x15060…15080 33 0b 31 36 32 30 20 50 52 49 4e 54 20 0b 48 31 36 33 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 ┆3 1620 PRINT H1630 PRINT "Rumfa┆
0x15080…150a0 6e 67 65 74 20 61 66 20 65 6e 20 6b 65 67 6c 65 73 74 75 62 20 6d 65 64 20 64 65 20 7c 6e 73 6b ┆nget af en keglestub med de ønsk┆
0x150a0…150c0 65 64 65 20 6d 7d 6c 3a 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 48 16 31 36 34 30 20 45 4e ┆ede mål: ";RUMFANGH 1640 EN┆
0x150c0…150e0 44 50 52 4f 43 20 4b 45 47 4c 45 53 54 55 42 16 49 31 36 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆DPROC KEGLESTUB I1650 // -------┆
0x150e0…15100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15100…15120 (10, 1, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 31 36 36 30 ┆--------------------------I 1660┆
0x15120…15140 20 50 52 4f 43 20 4b 55 47 4c 45 0f 0b 31 36 37 30 20 43 4c 45 41 52 20 0b 0f 31 36 38 30 20 43 ┆ PROC KUGLE 1670 CLEAR 1680 C┆
0x15140…15160 55 52 53 4f 52 20 31 2c 35 0f 37 31 36 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 ┆URSOR 1,5 71690 PRINT " ┆
0x15160…15180 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 55 20 47 20 4c 20 45 20 2e 20 20 20 20 ┆ K U G L E . ┆
0x15180…151a0 20 22 37 4d 31 37 30 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ "7M1700 PRINT "________________┆
0x151a0…151c0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x151c0…151e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 10 31 37 31 30 20 43 55 52 53 4f 52 20 31 ┆________________"M 1710 CURSOR 1┆
0x151e0…15200 2c 31 30 10 3f 31 37 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c 65 6e 73 ┆,10 ?1720 INPUT "Indtast kuglens┆
0x15200…15220 (10, 1, 3) 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 ┆ radius: ":RA┆
0x15220…15240 44 49 55 53 3f 23 31 37 33 30 20 52 55 4d 46 41 4e 47 3a 3d 34 2f 33 2a 33 2e 31 34 31 35 39 2a ┆DIUS?#1730 RUMFANG:=4/3*3.14159*┆
0x15240…15260 52 41 44 49 55 53 2a 2a 33 23 10 31 37 34 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 35 31 37 35 ┆RADIUS**3# 1740 CURSOR 1,16 5175┆
0x15260…15280 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 65 6e 20 6b 75 67 6c 65 2c 20 ┆0 PRINT "Rumfanget af en kugle, ┆
0x15280…152a0 68 76 6f 72 20 72 61 64 69 75 73 20 65 72 3a 20 22 3b 35 2c 31 37 35 35 20 50 52 49 4e 54 20 52 ┆hvor radius er: ";5,1755 PRINT R┆
0x152a0…152c0 41 44 49 55 53 3b 22 20 3d 20 22 3b 49 4e 54 28 52 55 4d 46 41 4e 47 2a 31 30 30 29 2f 31 30 30 ┆ADIUS;" = ";INT(RUMFANG*100)/100┆
0x152c0…152e0 2c 12 31 37 36 30 20 45 4e 44 50 52 4f 43 20 4b 55 47 4c 45 12 4a 31 37 37 30 20 2f 2f 20 2d 2d ┆, 1760 ENDPROC KUGLE J1770 // --┆
0x152e0…15300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x15320…15340 4a 0e 31 37 38 30 20 50 52 4f 43 20 53 4c 55 54 0e 0b 31 37 39 30 20 43 4c 45 41 52 20 0b 11 31 ┆J 1780 PROC SLUT 1790 CLEAR 1┆
0x15340…15360 38 30 30 20 43 55 52 53 4f 52 20 31 35 2c 31 32 11 38 31 38 31 30 20 50 52 49 4e 54 20 22 44 65 ┆800 CURSOR 15,12 81810 PRINT "De┆
0x15360…15380 74 20 76 61 72 20 73 7d 20 65 6e 20 64 65 6c 20 6e 79 65 20 72 75 6d 66 61 6e 67 2e 20 54 61 6b ┆t var så en del nye rumfang. Tak┆
0x15380…153a0 20 66 6f 72 20 6e 75 2e 20 22 38 10 31 38 32 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 09 31 38 ┆ for nu. "8 1820 CURSOR 1,21 18┆
0x153a0…153c0 33 30 20 45 4e 44 20 09 11 31 38 34 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 00 00 63 63 63 ┆30 END 1840 ENDPROC SLUT ccc┆
0x153c0…153e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x15400…15500 (10, 1, 5) 0x63[0x100]
[…0x3…]
0x15800…15820 (10, 1, 9) ExtentHdr {name=»HJERTER_«, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 0016,02 (0x016200)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0016,02 (0x016200)}, f99=41 13 00 fe 00 4a 45 52 54 45 ┆A JERTE┆}
0x15820…15840 46 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆F0100 // -----------------------┆
0x15840…15860 20 68 6a 65 72 74 65 72 2d 74 65 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ hjerter-test ------------------┆
0x15860…15880 2d 2d 2d 2d 2d 2d 2d 46 08 30 31 31 30 20 2f 2f 20 08 45 30 31 32 30 20 44 49 4d 20 54 41 4c 24 ┆-------F 0110 // E0120 DIM TAL$┆
0x15880…158a0 20 4f 46 20 33 2c 53 56 24 20 4f 46 20 32 2c 4e 41 56 4e 24 20 4f 46 20 32 30 2c 54 52 55 24 28 ┆ OF 3,SV$ OF 2,NAVN$ OF 20,TRU$(┆
0x158a0…158c0 31 30 29 20 4f 46 20 31 2c 53 50 5c 52 24 28 34 30 29 20 4f 46 20 38 30 45 29 30 31 33 30 20 44 ┆10) OF 1,SPØR$(40) OF 80E)0130 D┆
0x158c0…158e0 49 4d 20 52 45 54 55 52 24 20 4f 46 20 32 2c 46 41 24 20 4f 46 20 31 2c 46 24 28 31 30 29 20 4f ┆IM RETUR$ OF 2,FA$ OF 1,F$(10) O┆
0x158e0…15900 46 20 31 29 48 30 31 34 30 20 44 49 4d 20 54 45 53 54 4e 41 56 4e 31 24 20 4f 46 20 34 30 2c 54 ┆F 1)H0140 DIM TESTNAVN1$ OF 40,T┆
0x15900…15920 (10, 1, 10) 45 53 54 4e 41 56 4e 32 24 20 4f 46 20 34 30 2c 51 55 45 53 54 46 49 4c 24 20 4f 46 20 31 37 2c ┆ESTNAVN2$ OF 40,QUESTFIL$ OF 17,┆
0x15920…15940 54 58 54 46 49 4c 24 20 4f 46 20 31 37 48 2c 30 31 35 30 20 49 4e 54 45 47 45 52 20 53 55 4d 2c ┆TXTFIL$ OF 17H,0150 INTEGER SUM,┆
0x15940…15960 54 41 4c 4e 52 2c 4d 2c 4e 55 4d 4d 45 52 2c 41 2c 4a 2c 49 2c 53 50 52 49 4e 47 2c 2d 30 31 36 ┆TALNR,M,NUMMER,A,J,I,SPRING,-016┆
0x15960…15980 30 20 54 45 53 54 4e 41 56 4e 31 24 3a 3d 22 48 20 4a 20 45 20 52 20 54 20 45 20 52 20 2d 20 54 ┆0 TESTNAVN1$:="H J E R T E R - T┆
0x15980…159a0 20 45 20 53 20 54 20 2e 20 22 2d 2a 30 31 37 30 20 54 45 53 54 4e 41 56 4e 32 24 3a 3d 22 48 20 ┆ E S T . "-*0170 TESTNAVN2$:="H ┆
0x159a0…159c0 6a 20 65 20 72 20 74 20 65 20 72 20 2d 20 74 20 65 20 73 20 74 22 2a 20 30 31 38 30 20 54 58 54 ┆j e r t e r - t e s t"* 0180 TXT┆
0x159c0…159e0 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 48 4a 45 52 54 54 58 54 22 20 4a 30 31 39 30 20 2f ┆FIL$:="SYSTIME:HJERTTXT" J0190 /┆
0x159e0…15a00 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x15a00…15a20 (10, 1, 11) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15a20…15a40 2d 2d 2d 2d 4a 0f 30 32 30 30 20 45 58 45 43 20 48 4f 56 45 44 0f 12 30 32 31 30 20 45 58 45 43 ┆----J 0200 EXEC HOVED 0210 EXEC┆
0x15a40…15a60 20 46 4f 52 53 49 44 45 4e 12 0e 30 32 32 30 20 45 58 45 43 20 56 41 4c 47 0e 4a 30 32 33 30 20 ┆ FORSIDEN 0220 EXEC VALG J0230 ┆
0x15a60…15a80 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x15a80…15aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15aa0…15ac0 2d 2d 2d 2d 2d 4a 0f 30 32 34 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 32 35 30 20 43 4c 45 ┆-----J 0240 PROC HOVED 0250 CLE┆
0x15ac0…15ae0 41 52 20 0b 10 30 32 36 30 20 43 55 52 53 4f 52 20 31 33 2c 34 10 35 30 32 37 30 20 50 52 49 4e ┆AR 0260 CURSOR 13,4 50270 PRIN┆
0x15ae0…15b00 54 20 22 20 56 20 45 20 4c 20 4b 20 4f 20 4d 20 4d 20 45 20 4e 20 20 20 54 20 49 20 4c 20 20 20 ┆T " V E L K O M M E N T I L ┆
0x15b00…15b20 (10, 1, 12) 22 3b 54 45 53 54 4e 41 56 4e 31 24 35 10 30 32 38 30 20 43 55 52 53 4f 52 20 31 33 2c 35 10 43 ┆";TESTNAVN1$5 0280 CURSOR 13,5 C┆
0x15b20…15b40 30 32 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0290 PRINT "--------------------┆
0x15b40…15b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15b60…15b80 2d 2d 22 43 10 30 33 30 30 20 43 55 52 53 4f 52 20 31 35 2c 38 10 2a 30 33 31 30 20 49 4e 50 55 ┆--"C 0300 CURSOR 15,8 *0310 INPU┆
0x15b80…15ba0 54 20 22 53 6b 72 69 76 20 64 69 74 20 6e 61 76 6e 20 68 65 72 3a 20 20 20 20 22 3a 4e 41 56 4e ┆T "Skriv dit navn her: ":NAVN┆
0x15ba0…15bc0 24 2a 11 30 33 32 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 12 30 33 33 30 20 45 4e 44 50 52 ┆$* 0320 CURSOR 20,12 0330 ENDPR┆
0x15bc0…15be0 4f 43 20 48 4f 56 45 44 12 4a 30 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC HOVED J0340 // --------------┆
0x15be0…15c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x15c00…15c20 (10, 1, 13) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 30 33 35 30 20 50 52 4f 43 20 ┆--------------------J 0350 PROC ┆
0x15c20…15c40 56 41 4c 47 0e 1f 30 33 36 30 20 53 55 4d 3a 3d 30 3b 4d 3a 3d 31 3b 41 3a 3d 30 3b 4e 55 4d 4d ┆VALG 0360 SUM:=0;M:=1;A:=0;NUMM┆
0x15c40…15c60 45 52 3a 3d 30 1f 0b 30 33 37 30 20 43 4c 45 41 52 20 0b 11 30 33 38 30 20 43 55 52 53 4f 52 20 ┆ER:=0 0370 CLEAR 0380 CURSOR ┆
0x15c60…15c80 33 30 2c 31 32 11 1e 30 33 39 30 20 50 52 49 4e 54 20 22 20 4c 69 67 65 20 65 74 20 7c 6a 65 62 ┆30,12 0390 PRINT " Lige et øjeb┆
0x15c80…15ca0 6c 69 6b 21 22 1e 10 30 34 30 30 20 45 58 45 43 20 46 49 4c 4c 5b 53 10 10 30 34 31 30 20 45 58 ┆lik!" 0400 EXEC FILLÆS 0410 EX┆
0x15ca0…15cc0 45 43 20 46 52 5d 47 41 4e 10 0b 30 34 32 30 20 43 4c 45 41 52 20 0b 10 30 34 33 30 20 43 55 52 ┆EC FRÅGAN 0420 CLEAR 0430 CUR┆
0x15cc0…15ce0 53 4f 52 20 31 30 2c 33 10 3b 30 34 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 66 7d 65 ┆SOR 10,3 ;0440 PRINT "Du har fåe┆
0x15ce0…15d00 74 20 22 3b 53 55 4d 3b 22 20 72 69 67 74 69 67 65 20 73 76 61 72 20 61 66 20 31 30 20 6d 75 6c ┆t ";SUM;" rigtige svar af 10 mul┆
0x15d00…15d20 (10, 1, 14) 69 67 65 2e 22 3b 10 30 34 35 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 30 30 34 36 30 20 50 52 ┆ige."; 0450 CURSOR 10,8 00460 PR┆
0x15d20…15d40 49 4e 54 20 22 44 75 20 6b 61 6e 20 76 7b 6c 67 65 20 6d 65 6c 6c 65 6d 20 74 72 65 20 6d 75 6c ┆INT "Du kan vælge mellem tre mul┆
0x15d40…15d60 69 67 68 65 64 65 72 3a 22 30 11 30 34 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 4b 30 34 ┆igheder:"0 0470 CURSOR 10,12 K04┆
0x15d60…15d80 38 30 20 50 52 49 4e 54 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 62 ┆80 PRINT "1. Ønsker du at forb┆
0x15d80…15da0 65 64 72 65 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 76 65 64 20 61 74 20 62 65 67 79 6e 64 65 ┆edre dit resultat ved at begynde┆
0x15da0…15dc0 20 66 6f 72 66 72 61 3f 22 4b 11 30 34 39 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 46 30 35 ┆ forfra?"K 0490 CURSOR 10,14 F05┆
0x15dc0…15de0 30 30 20 50 52 49 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 ┆00 PRINT "2. Ønsker du dit res┆
0x15de0…15e00 75 6c 74 61 74 20 73 61 6d 6d 65 6e 6c 69 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 ┆ultat sammenlignet med det rigti┆
0x15e00…15e20 (10, 1, 15) 67 65 20 22 46 11 30 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 35 11 28 30 35 32 30 20 50 52 ┆ge "F 0510 CURSOR 10,15 (0520 PR┆
0x15e20…15e40 49 4e 54 20 22 20 20 20 20 20 53 6b 72 65 76 65 74 20 75 64 20 70 7d 20 70 72 69 6e 74 65 72 3f ┆INT " Skrevet ud på printer?┆
0x15e40…15e60 22 28 11 30 35 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 37 11 45 30 35 34 30 20 50 52 49 4e 54 ┆"( 0530 CURSOR 10,17 E0540 PRINT┆
0x15e60…15e80 20 22 33 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 ┆ "3. Ønsker du dit resultat sa┆
0x15e80…15ea0 6d 6d 65 6e 6c 69 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 22 45 11 30 35 35 ┆mmenlignet med det rigtige"E 055┆
0x15ea0…15ec0 30 20 43 55 52 53 4f 52 20 31 30 2c 31 38 11 28 30 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆0 CURSOR 10,18 (0560 PRINT " ┆
0x15ec0…15ee0 20 53 6b 72 65 76 65 74 20 75 64 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 28 0b 30 35 37 30 20 50 ┆ Skrevet ud på skærmen?"( 0570 P┆
0x15ee0…15f00 52 49 4e 54 20 0b 0b 30 35 38 30 20 50 52 49 4e 54 20 0b 11 30 35 39 30 20 43 55 52 53 4f 52 20 ┆RINT 0580 PRINT 0590 CURSOR ┆
0x15f00…15f20 (10, 1, 16) 31 30 2c 32 31 11 2b 30 36 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 ┆10,21 +0600 INPUT "Skriv det øns┆
0x15f20…15f40 6b 65 64 65 20 74 61 6c 3a 20 20 22 3a 54 41 4c 4e 52 2b 0c 30 36 31 30 20 52 45 50 45 41 54 20 ┆kede tal: ":TALNR+ 0610 REPEAT ┆
0x15f40…15f60 0c 11 30 36 32 30 20 43 55 52 53 4f 52 20 33 33 2c 32 31 11 15 30 36 33 30 20 49 46 20 54 41 4c ┆ 0620 CURSOR 33,21 0630 IF TAL┆
0x15f60…15f80 4e 52 3d 31 20 54 48 45 4e 20 15 0e 30 36 34 30 20 45 58 45 43 20 56 41 4c 47 0e 0b 30 36 35 30 ┆NR=1 THEN 0640 EXEC VALG 0650┆
0x15f80…15fa0 20 43 4c 45 41 52 20 0b 0b 30 36 36 30 20 50 52 49 4e 54 20 0b 0a 30 36 37 30 20 45 4c 53 45 20 ┆ CLEAR 0660 PRINT 0670 ELSE ┆
0x15fa0…15fc0 0a 15 30 36 38 30 20 49 46 20 54 41 4c 4e 52 3d 32 20 54 48 45 4e 20 15 0e 30 36 39 30 20 53 50 ┆ 0680 IF TALNR=2 THEN 0690 SP┆
0x15fc0…15fe0 52 49 4e 47 3a 3d 30 0e 14 30 37 30 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 52 45 53 14 0f 30 ┆RING:=0 0700 EXEC PRINTERRES 0┆
0x15fe0…16000 37 31 30 20 45 58 45 43 20 53 4b 52 49 56 0f 16 30 37 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 ┆710 EXEC SKRIV 0720 SELECT OUTP┆
0x16000…16020 (11, 0, 1) 55 54 20 22 54 22 16 12 30 37 33 30 20 45 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0a 30 37 34 30 ┆UT "T" 0730 EXEC ELECTION 0740┆
0x16020…16040 20 45 4c 53 45 20 0a 15 30 37 35 30 20 49 46 20 54 41 4c 4e 52 3d 33 20 54 48 45 4e 20 15 0e 30 ┆ ELSE 0750 IF TALNR=3 THEN 0┆
0x16040…16060 37 36 30 20 53 50 52 49 4e 47 3a 3d 31 0e 0f 30 37 37 30 20 45 58 45 43 20 53 4b 52 49 56 0f 12 ┆760 SPRING:=1 0770 EXEC SKRIV ┆
0x16060…16080 30 37 38 30 20 45 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0b 30 37 39 30 20 45 4e 44 49 46 20 0b ┆0780 EXEC ELECTION 0790 ENDIF ┆
0x16080…160a0 0b 30 38 30 30 20 45 4e 44 49 46 20 0b 0b 30 38 31 30 20 45 4e 44 49 46 20 0b 28 30 38 32 30 20 ┆ 0800 ENDIF 0810 ENDIF (0820 ┆
0x160a0…160c0 55 4e 54 49 4c 20 54 41 4c 4e 52 3d 30 20 4f 52 20 54 41 4c 4e 52 3d 31 20 4f 52 20 54 41 4c 4e ┆UNTIL TALNR=0 OR TALNR=1 OR TALN┆
0x160c0…160e0 52 3d 32 28 11 30 38 33 30 20 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 48 30 38 34 30 20 2f 2f 20 ┆R=2( 0830 ENDPROC VALG H0840 // ┆
0x160e0…16100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x16120…16140 48 0f 30 38 35 30 20 50 52 4f 43 20 53 4b 52 49 56 0f 1c 30 38 36 30 20 49 46 20 53 50 52 49 4e ┆H 0850 PROC SKRIV 0860 IF SPRIN┆
0x16140…16160 47 3d 31 20 54 48 45 4e 20 43 4c 45 41 52 20 1c 0b 30 38 36 38 20 50 52 49 4e 54 20 0b 20 30 38 ┆G=1 THEN CLEAR 0868 PRINT 08┆
0x16160…16180 36 39 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 31 20 46 ┆69 IF SPRING=1 THEN CURSOR 1,1 F┆
0x16180…161a0 30 38 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a ┆0870 PRINT " ****┆
0x161a0…161c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x161c0…161e0 2a 2a 2a 2a 2a 22 46 3d 30 38 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆*****"F=0880 PRINT " ┆
0x161e0…16200 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 22 3b 54 45 53 54 4e 41 56 4e 32 24 3b 22 20 20 20 20 ┆ * ";TESTNAVN2$;" ┆
0x16200…16220 (11, 0, 3) ExtentHdr {name=»HJERTER_«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0016,0c (0x016c00)}, prevext={DA 0015,08 (0x015800)}, nextfile={DA 0016,0c (0x016c00)}, f99=41 13 00 20 00 4a 45 52 54 45 ┆A JERTE┆}
0x16220…16240 20 20 20 2a 22 3d 46 30 38 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ *"=F0890 PRINT " ┆
0x16240…16260 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ *****************************┆
0x16260…16280 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 46 3c 30 39 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆************"F<0900 PRINT " ┆
0x16280…162a0 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4e 41 56 4e 24 3b ┆ * ";NAVN$;┆
0x162a0…162c0 54 41 42 28 35 37 29 3b 22 2a 22 3c 46 30 39 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 ┆TAB(57);"*"<F0910 PRINT " ┆
0x162c0…162e0 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ ***********************┆
0x162e0…16300 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 46 20 30 39 32 30 20 49 46 20 53 50 52 ┆******************"F 0920 IF SPR┆
0x16300…16320 (11, 0, 4) 49 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 37 20 0b 30 39 33 30 20 50 52 49 4e ┆ING=1 THEN CURSOR 1,7 0930 PRIN┆
0x16320…16340 54 20 0b 46 30 39 34 30 20 50 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 22 3b 54 ┆T F0940 PRINT "Spørgsmål nr.";T┆
0x16340…16360 41 42 28 33 35 29 3b 22 44 69 74 20 62 75 64 3a 22 3b 54 41 42 28 35 30 29 3b 22 52 69 67 74 69 ┆AB(35);"Dit bud:";TAB(50);"Rigti┆
0x16360…16380 67 65 20 66 61 63 69 74 3a 22 46 4d 30 39 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆ge facit:"FM0950 PRINT "--------┆
0x16380…163a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x163a0…163c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 30 39 36 30 20 ┆------------------------"M 0960 ┆
0x163c0…163e0 50 52 49 4e 54 20 0b 17 30 39 37 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 ┆PRINT 0970 FOR A:=1 TO 10 DO ┆
0x163e0…16400 1c 30 39 38 30 20 49 46 20 54 52 55 24 28 41 29 3c 3e 46 24 28 41 29 20 54 48 45 4e 20 1c 49 30 ┆ 0980 IF TRU$(A)<>F$(A) THEN I0┆
0x16400…16420 (11, 0, 5) 39 39 30 20 50 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 ┆990 PRINT "Spørgsmål nr. ";A;TAB┆
0x16420…16440 28 33 38 29 3b 54 52 55 24 28 41 29 3b 54 41 42 28 35 37 29 3b 46 24 28 41 29 2c 22 20 20 20 20 ┆(38);TRU$(A);TAB(57);F$(A)," ┆
0x16440…16460 20 20 20 20 2a 2a 2a 22 49 0a 31 30 30 30 20 45 4c 53 45 20 0a 3b 31 30 31 30 20 50 52 49 4e 54 ┆ ***"I 1000 ELSE ;1010 PRINT┆
0x16460…16480 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 ┆ "Spørgsmål nr. ";A;TAB(38);TRU$┆
0x16480…164a0 28 41 29 3b 54 41 42 28 35 37 29 3b 46 24 28 41 29 3b 0b 31 30 32 30 20 45 4e 44 49 46 20 0b 0b ┆(A);TAB(57);F$(A); 1020 ENDIF ┆
0x164a0…164c0 31 30 33 30 20 4e 45 58 54 20 41 0b 0b 31 30 34 30 20 50 52 49 4e 54 20 0b 4d 31 30 35 30 20 50 ┆1030 NEXT A 1040 PRINT M1050 P┆
0x164c0…164e0 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RINT "--------------------------┆
0x164e0…16500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16500…16520 (11, 0, 6) 2d 2d 2d 2d 2d 2d 22 4d 0b 31 30 36 30 20 50 52 49 4e 54 20 0b 16 31 30 37 30 20 49 46 20 53 50 ┆------"M 1060 PRINT 1070 IF SP┆
0x16520…16540 52 49 4e 47 3d 31 20 54 48 45 4e 20 16 11 31 30 38 30 20 43 55 52 53 4f 52 20 36 37 2c 32 34 11 ┆RING=1 THEN 1080 CURSOR 67,24 ┆
0x16540…16560 1c 31 30 39 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 20 22 3a 52 45 54 55 52 24 1c 0b 31 ┆ 1090 INPUT "Return! ":RETUR$ 1┆
0x16560…16580 31 30 30 20 45 4e 44 49 46 20 0b 12 31 31 31 30 20 45 4e 44 50 52 4f 43 20 53 4b 52 49 56 12 46 ┆100 ENDIF 1110 ENDPROC SKRIV F┆
0x16580…165a0 31 31 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆1120 // ------------------------┆
0x165a0…165c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x165c0…165e0 2d 2d 2d 2d 2d 2d 46 10 31 31 33 30 20 50 52 4f 43 20 46 49 4c 4c 5b 53 10 13 31 31 34 30 20 4f ┆------F 1130 PROC FILLÆS 1140 O┆
0x165e0…16600 50 45 4e 20 54 58 54 46 49 4c 24 2c 52 13 17 31 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 ┆PEN TXTFIL$,R 1150 FOR I:=1 TO ┆
0x16600…16620 (11, 0, 7) 31 30 20 44 4f 20 17 16 31 31 36 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 21 ┆10 DO 1160 FOR J:=1 TO 4 DO !┆
0x16620…16640 31 31 37 30 20 47 45 54 20 54 58 54 46 49 4c 24 3a 53 50 5c 52 24 28 28 49 2d 31 29 2a 34 2b 4a ┆1170 GET TXTFIL$:SPØR$((I-1)*4+J┆
0x16640…16660 29 21 0b 31 31 38 30 20 4e 45 58 54 20 4a 0b 16 31 31 39 30 20 47 45 54 20 54 58 54 46 49 4c 24 ┆)! 1180 NEXT J 1190 GET TXTFIL$┆
0x16660…16680 3a 46 24 28 49 29 16 0b 31 32 30 30 20 4e 45 58 54 20 49 0b 12 31 32 31 30 20 43 4c 4f 53 45 20 ┆:F$(I) 1200 NEXT I 1210 CLOSE ┆
0x16680…166a0 54 58 54 46 49 4c 24 12 13 31 32 32 30 20 45 4e 44 50 52 4f 43 20 46 49 4c 4c 5b 53 13 4a 31 32 ┆TXTFIL$ 1220 ENDPROC FILLÆS J12┆
0x166a0…166c0 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆30 // --------------------------┆
0x166c0…166e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x166e0…16700 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 31 32 34 30 20 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 12 0c 31 32 ┆--------J 1240 PROC ELECTION 12┆
0x16700…16720 (11, 0, 8) 35 30 20 52 45 50 45 41 54 20 0c 10 31 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 0b 31 32 ┆50 REPEAT 1260 CURSOR 1,22 12┆
0x16720…16740 37 30 20 43 4c 45 41 52 20 0b 10 31 32 38 30 20 43 55 52 53 4f 52 20 31 30 2c 37 10 42 31 32 39 ┆70 CLEAR 1280 CURSOR 10,7 B129┆
0x16740…16760 30 20 50 52 49 4e 54 20 22 44 75 20 66 7d 72 20 6e 75 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 20 ┆0 PRINT "Du får nu mulighed for ┆
0x16760…16780 61 74 20 76 7b 6c 67 65 20 6d 65 6c 6c 65 6d 20 66 7c 6c 67 65 6e 64 65 20 74 69 6e 67 2e 22 42 ┆at vælge mellem følgende ting."B┆
0x16780…167a0 0b 31 33 30 30 20 50 52 49 4e 54 20 0b 11 31 33 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 ┆ 1300 PRINT 1310 CURSOR 10,12 ┆
0x167a0…167c0 2e 31 33 32 30 20 50 52 49 4e 54 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 62 ┆.1320 PRINT "1. Ønsker du at b┆
0x167c0…167e0 65 67 79 6e 64 65 20 66 6f 72 66 72 61 3f 22 2e 11 31 33 33 30 20 43 55 52 53 4f 52 20 31 30 2c ┆egynde forfra?". 1330 CURSOR 10,┆
0x167e0…16800 31 34 11 41 31 33 34 30 20 50 52 49 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 ┆14 A1340 PRINT "2. Ønsker du a┆
0x16800…16820 (11, 0, 9) 74 20 73 65 20 61 6c 6c 65 20 73 70 7c 72 67 73 6d 7d 6c 65 6e 65 20 70 7d 20 70 72 69 6e 74 65 ┆t se alle spørgsmålene på printe┆
0x16820…16840 72 65 6e 3f 22 41 11 31 33 35 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3f 31 33 36 30 20 50 ┆ren?"A 1350 CURSOR 10,16 ?1360 P┆
0x16840…16860 52 49 4e 54 20 22 33 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 ┆RINT "3. Ønsker du at se alle ┆
0x16860…16880 73 70 7c 72 67 73 6d 7d 6c 65 6e 65 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 3f 11 31 33 37 30 20 ┆spørgsmålene på skærmen?"? 1370 ┆
0x16880…168a0 43 55 52 53 4f 52 20 31 30 2c 31 38 11 29 31 33 38 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 5c ┆CURSOR 10,18 )1380 PRINT "4. Ø┆
0x168a0…168c0 6e 73 6b 65 72 20 64 75 20 61 74 20 73 6c 75 74 74 65 20 6e 75 3f 22 29 11 31 33 39 30 20 43 55 ┆nsker du at slutte nu?") 1390 CU┆
0x168c0…168e0 52 53 4f 52 20 31 30 2c 32 32 11 2d 31 34 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 ┆RSOR 10,22 -1400 INPUT "Skriv de┆
0x168e0…16900 74 20 7c 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 53 56 24 2d 19 31 34 31 30 20 ┆t ønskede nummer: ":SV$- 1410 ┆
0x16900…16920 (11, 0, 10) 43 41 53 45 20 4f 52 44 28 53 56 24 28 31 29 29 20 4f 46 20 19 0c 31 34 32 30 20 57 48 45 4e 20 ┆CASE ORD(SV$(1)) OF 1420 WHEN ┆
0x16920…16940 34 39 0c 0e 31 34 33 30 20 45 58 45 43 20 56 41 4c 47 0e 0c 31 34 34 30 20 57 48 45 4e 20 35 30 ┆49 1430 EXEC VALG 1440 WHEN 50┆
0x16940…16960 0c 11 31 34 35 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 0c 31 34 36 30 20 57 48 45 4e 20 35 ┆ 1450 EXEC PRINTER 1460 WHEN 5┆
0x16960…16980 31 0c 0f 31 34 37 30 20 45 58 45 43 20 53 4b 5b 52 4d 0f 0c 31 34 38 30 20 57 48 45 4e 20 35 32 ┆1 1470 EXEC SKÆRM 1480 WHEN 52┆
0x16980…169a0 0c 0e 31 34 39 30 20 45 58 45 43 20 53 4c 55 54 0e 0d 31 35 30 30 20 45 4e 44 43 41 53 45 20 0d ┆ 1490 EXEC SLUT 1500 ENDCASE ┆
0x169a0…169c0 0c 31 35 31 30 20 55 4e 54 49 4c 20 30 0c 15 31 35 32 30 20 45 4e 44 50 52 4f 43 20 45 4c 45 43 ┆ 1510 UNTIL 0 1520 ENDPROC ELEC┆
0x169c0…169e0 54 49 4f 4e 15 43 31 35 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TION C1530 // ------------------┆
0x169e0…16a00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16a00…16a20 (11, 0, 11) 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0e 31 35 34 30 20 50 52 4f 43 20 53 4c 55 54 0e 10 31 35 35 30 20 ┆---------C 1540 PROC SLUT 1550 ┆
0x16a20…16a40 43 55 52 53 4f 52 20 31 2c 32 34 10 37 31 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 ┆CURSOR 1,24 71560 PRINT " ┆
0x16a40…16a60 20 53 7d 20 67 7d 72 20 76 69 20 76 69 64 65 72 65 20 74 69 6c 20 6e 7b 73 74 65 20 61 66 73 6e ┆ Så går vi videre til næste afsn┆
0x16a60…16a80 69 74 2e 22 37 09 31 35 37 30 20 45 4e 44 20 09 11 31 35 38 30 20 45 4e 44 50 52 4f 43 20 53 4c ┆it."7 1570 END 1580 ENDPROC SL┆
0x16a80…16aa0 55 54 11 42 31 35 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆UT B1590 // --------------------┆
0x16aa0…16ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16ac0…16ae0 2d 2d 2d 2d 2d 2d 42 0f 31 36 30 30 20 50 52 4f 43 20 53 4b 5b 52 4d 0f 0e 31 36 31 30 20 53 50 ┆------B 1600 PROC SKÆRM 1610 SP┆
0x16ae0…16b00 52 49 4e 47 3a 3d 31 0e 0d 31 36 32 30 20 45 58 45 43 20 4c 5b 53 0d 12 31 36 33 30 20 45 4e 44 ┆RING:=1 1620 EXEC LÆS 1630 END┆
0x16b00…16b20 (11, 0, 12) 50 52 4f 43 20 53 4b 5b 52 4d 12 43 31 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PROC SKÆRM C1640 // ------------┆
0x16b20…16b40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16b40…16b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0d 31 36 35 30 20 50 52 4f 43 20 4c 5b 53 0d 17 ┆---------------C 1650 PROC LÆS ┆
0x16b60…16b80 31 36 36 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 31 36 37 30 20 49 46 ┆1660 FOR A:=1 TO 10 DO 1670 IF┆
0x16b80…16ba0 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 4c 45 41 52 20 1c 09 31 36 38 30 20 4b 3a 3d 38 ┆ SPRING=1 THEN CLEAR 1680 K:=8┆
0x16ba0…16bc0 09 16 31 36 39 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 31 37 30 30 20 49 ┆ 1690 FOR J:=1 TO 4 DO #1700 I┆
0x16bc0…16be0 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 32 2c 4b 2b 4a 23 23 31 ┆F SPRING=1 THEN CURSOR 12,K+J##1┆
0x16be0…16c00 37 31 30 20 50 52 49 4e 54 20 54 41 42 28 31 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b ┆710 PRINT TAB(12);SPØR$((A-1)*4+┆
0x16c00…16c20 (11, 0, 13) ExtentHdr {name=»HJERTER_«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0017,06 (0x017600)}, prevext={DA 0016,02 (0x016200)}, nextfile={DA 0017,06 (0x017600)}, f99=41 13 00 20 00 4a 45 52 54 45 ┆A JERTE┆}
0x16c20…16c40 4a 29 23 11 31 37 32 30 20 49 46 20 4a 3d 31 20 54 48 45 4e 20 11 0b 31 37 33 30 20 4b 3a 3d 4b ┆J)# 1720 IF J=1 THEN 1730 K:=K┆
0x16c40…16c60 2b 34 0b 0b 31 37 34 30 20 45 4e 44 49 46 20 0b 0b 31 37 35 30 20 4e 45 58 54 20 4a 0b 0b 31 37 ┆+4 1740 ENDIF 1750 NEXT J 17┆
0x16c60…16c80 36 30 20 50 52 49 4e 54 20 0b 16 31 37 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e ┆60 PRINT 1770 IF SPRING=1 THEN┆
0x16c80…16ca0 20 16 11 31 37 38 30 20 43 55 52 53 4f 52 20 37 30 2c 32 30 11 1b 31 37 39 30 20 49 4e 50 55 54 ┆ 1780 CURSOR 70,20 1790 INPUT┆
0x16ca0…16cc0 20 22 52 65 74 75 72 6e 21 22 3a 52 45 54 55 52 24 1b 0b 31 38 30 30 20 45 4e 44 49 46 20 0b 0b ┆ "Return!":RETUR$ 1800 ENDIF ┆
0x16cc0…16ce0 31 38 31 30 20 4e 45 58 54 20 41 0b 10 31 38 32 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 46 31 ┆1810 NEXT A 1820 ENDPROC LÆS F1┆
0x16ce0…16d00 38 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆830 // -------------------------┆
0x16d00…16d20 (11, 0, 14) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16d20…16d40 2d 2d 2d 2d 2d 46 14 31 38 34 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 14 16 31 38 35 ┆-----F 1840 PROC PRINTERRES 185┆
0x16d40…16d60 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b 31 38 36 30 20 49 46 20 53 54 41 ┆0 SELECT OUTPUT "P" 1860 IF STA┆
0x16d60…16d80 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 10 31 38 37 30 20 43 55 52 53 4f 52 20 31 2c ┆TUS("P")=1 THEN 1870 CURSOR 1,┆
0x16d80…16da0 32 33 10 38 31 38 38 30 20 50 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 ┆23 81880 PRINT "<Z>Printeren er ┆
0x16da0…16dc0 72 65 73 65 72 76 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 38 43 31 38 ┆reserveret af anden bruger,"8C18┆
0x16dc0…16de0 39 30 20 49 4e 50 55 54 20 22 3c 53 3e 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 ┆90 INPUT "<S>skal der ventes på ┆
0x16de0…16e00 61 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 56 ┆at den bliver ledig? (j/n) ":SV┆
0x16e00…16e20 (11, 0, 15) 24 43 20 31 39 30 30 20 49 46 20 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 ┆$C 1900 IF SV$="J" OR SV$="j" TH┆
0x16e20…16e40 45 4e 20 20 10 31 39 31 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 10 31 39 32 30 20 50 52 49 4e ┆EN 1910 CURSOR 1,23 1920 PRIN┆
0x16e40…16e60 54 20 22 3c 5a 3e 22 10 3e 31 39 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 44 65 72 20 76 65 6e 74 ┆T "<Z>" >1930 PRINT "<S>Der vent┆
0x16e60…16e80 65 73 20 70 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e ┆es på at printeren bliver ledig.┆
0x16e80…16ea0 2e 2e 2e 2e 2e 2e 22 3e 2d 31 39 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d ┆......">-1940 WHILE STATUS("P")=┆
0x16ea0…16ec0 31 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 31 39 35 30 20 45 4e 44 ┆1 DO SELECT OUTPUT "P"- 1950 END┆
0x16ec0…16ee0 49 46 20 0b 0b 31 39 36 30 20 45 4e 44 49 46 20 0b 17 31 39 37 30 20 45 4e 44 50 52 4f 43 20 50 ┆IF 1960 ENDIF 1970 ENDPROC P┆
0x16ee0…16f00 52 49 4e 54 45 52 52 45 53 17 11 31 39 38 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 14 31 39 ┆RINTERRES 1980 PROC PRINTER 19┆
0x16f00…16f20 (11, 0, 16) 39 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 52 45 53 14 0e 32 30 30 30 20 53 50 52 49 4e 47 3a ┆90 EXEC PRINTERRES 2000 SPRING:┆
0x16f20…16f40 3d 30 0e 0d 32 30 31 30 20 45 58 45 43 20 4c 5b 53 0d 16 32 30 32 30 20 53 45 4c 45 43 54 20 4f ┆=0 2010 EXEC LÆS 2020 SELECT O┆
0x16f40…16f60 55 54 50 55 54 20 22 54 22 16 14 32 30 33 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 ┆UTPUT "T" 2030 ENDPROC PRINTER ┆
0x16f60…16f80 43 32 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C2040 // -----------------------┆
0x16f80…16fa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x16fa0…16fc0 2d 2d 2d 2d 43 10 32 30 35 30 20 50 52 4f 43 20 46 52 5d 47 41 4e 10 17 32 30 36 30 20 46 4f 52 ┆----C 2050 PROC FRÅGAN 2060 FOR┆
0x16fc0…16fe0 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 0b 32 30 37 30 20 43 4c 45 41 52 20 0b 16 32 30 ┆ A:=1 TO 10 DO 2070 CLEAR 20┆
0x16fe0…17000 38 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 32 30 39 30 20 50 52 49 4e 54 ┆80 FOR J:=1 TO 4 DO #2090 PRINT┆
0x17000…17020 (11, 1, 1) 20 54 41 42 28 31 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 12 32 31 30 30 20 ┆ TAB(12);SPØR$((A-1)*4+J)# 2100 ┆
0x17020…17040 43 55 52 53 4f 52 20 31 32 2c 4a 2b 34 12 0b 32 31 31 30 20 4e 45 58 54 20 4a 0b 10 32 31 32 30 ┆CURSOR 12,J+4 2110 NEXT J 2120┆
0x17040…17060 20 45 58 45 43 20 52 45 53 54 45 4e 10 0b 32 31 33 30 20 4e 45 58 54 20 41 0b 13 32 31 34 30 20 ┆ EXEC RESTEN 2130 NEXT A 2140 ┆
0x17060…17080 45 4e 44 50 52 4f 43 20 46 52 5d 47 41 4e 13 4b 32 31 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ENDPROC FRÅGAN K2150 // --------┆
0x17080…170a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x170a0…170c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 10 32 31 36 ┆---------------------------K 216┆
0x170c0…170e0 30 20 50 52 4f 43 20 52 45 53 54 45 4e 10 11 32 31 37 30 20 43 55 52 53 4f 52 20 31 32 2c 31 36 ┆0 PROC RESTEN 2170 CURSOR 12,16┆
0x170e0…17100 11 3a 32 31 38 30 20 50 52 49 4e 54 20 22 45 72 20 64 65 74 20 73 70 7c 72 67 73 6d 7d 6c 20 41 ┆ :2180 PRINT "Er det spørgsmål A┆
0x17100…17120 (11, 1, 2) 2c 42 20 65 6c 6c 65 72 20 43 2c 20 64 65 72 20 65 72 20 72 69 67 74 69 67 74 3f 22 3a 11 32 31 ┆,B eller C, der er rigtigt?": 21┆
0x17120…17140 39 30 20 43 55 52 53 4f 52 20 31 32 2c 31 38 11 30 32 32 30 30 20 49 4e 50 55 54 20 22 54 61 73 ┆90 CURSOR 12,18 02200 INPUT "Tas┆
0x17140…17160 74 20 41 2c 20 42 20 65 6c 6c 65 72 20 43 3a 20 20 20 20 20 20 20 20 20 22 3a 54 52 55 24 28 41 ┆t A, B eller C: ":TRU$(A┆
0x17160…17180 29 30 2b 32 32 31 30 20 49 46 20 22 61 22 3c 3d 54 52 55 24 28 41 29 20 41 4e 44 20 22 7d 22 3d ┆)0+2210 IF "a"<=TRU$(A) AND "å"=┆
0x17180…171a0 3e 54 52 55 24 28 41 29 20 54 48 45 4e 20 2b 23 32 32 32 30 20 54 52 55 24 28 41 29 3a 3d 43 48 ┆>TRU$(A) THEN +#2220 TRU$(A):=CH┆
0x171a0…171c0 52 24 28 4f 52 44 28 54 52 55 24 28 41 29 29 2d 33 32 29 23 0b 32 32 33 30 20 45 4e 44 49 46 20 ┆R$(ORD(TRU$(A))-32)# 2230 ENDIF ┆
0x171c0…171e0 0b 29 32 32 34 30 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 50 52 49 ┆ )2240 IF TRU$(A)=F$(A) THEN PRI┆
0x171e0…17200 4e 54 20 43 48 52 24 28 34 32 29 29 25 32 32 35 30 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 ┆NT CHR$(42))%2250 IF TRU$(A)=F$(┆
0x17200…17220 (11, 1, 3) 41 29 20 54 48 45 4e 20 53 55 4d 3a 3d 53 55 4d 2b 31 25 13 32 32 36 30 20 45 4e 44 50 52 4f 43 ┆A) THEN SUM:=SUM+1% 2260 ENDPROC┆
0x17220…17240 20 52 45 53 54 45 4e 13 4d 32 32 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ RESTEN M2270 // ---------------┆
0x17240…17260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x17260…17280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 08 32 32 38 30 20 2f 2f 20 ┆----------------------M 2280 // ┆
0x17280…172a0 08 08 32 32 39 30 20 2f 2f 20 08 08 32 33 30 30 20 2f 2f 20 08 12 32 33 31 30 20 50 52 4f 43 20 ┆ 2290 // 2300 // 2310 PROC ┆
0x172a0…172c0 46 4f 52 53 49 44 45 4e 12 0b 32 33 32 30 20 43 4c 45 41 52 20 0b 0f 32 33 33 30 20 43 55 52 53 ┆FORSIDEN 2320 CLEAR 2330 CURS┆
0x172c0…172e0 4f 52 20 35 2c 32 0f 11 32 33 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 33 35 30 20 ┆OR 5,2 2340 PRINT "<S>*" 2350 ┆
0x172e0…17300 46 4f 52 20 58 3a 3d 36 20 54 4f 20 37 34 20 44 4f 20 17 11 32 33 36 30 20 50 52 49 4e 54 20 22 ┆FOR X:=6 TO 74 DO 2360 PRINT "┆
0x17300…17320 (11, 1, 4) 3c 53 3e 2d 22 11 0b 32 33 37 30 20 4e 45 58 54 20 58 0b 11 32 33 38 30 20 50 52 49 4e 54 20 22 ┆<S>-" 2370 NEXT X 2380 PRINT "┆
0x17320…17340 3c 53 3e 2a 22 11 10 32 33 39 30 20 43 55 52 53 4f 52 20 31 30 2c 35 10 11 32 34 30 30 20 50 52 ┆<S>*" 2390 CURSOR 10,5 2400 PR┆
0x17340…17360 49 4e 54 20 22 3c 53 3e 2a 22 11 18 32 34 31 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 ┆INT "<S>*" 2410 FOR X:=11 TO 69┆
0x17360…17380 20 44 4f 20 18 11 32 34 32 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 34 33 30 20 4e 45 ┆ DO 2420 PRINT "<S>-" 2430 NE┆
0x17380…173a0 58 54 20 58 0b 11 32 34 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 34 35 30 20 43 55 ┆XT X 2440 PRINT "<S>*" 2450 CU┆
0x173a0…173c0 52 53 4f 52 20 35 2c 31 35 10 11 32 34 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 34 ┆RSOR 5,15 2460 PRINT "<S>*" 24┆
0x173c0…173e0 37 30 20 46 4f 52 20 58 3a 3d 36 20 54 4f 20 37 34 20 44 4f 20 17 11 32 34 38 30 20 50 52 49 4e ┆70 FOR X:=6 TO 74 DO 2480 PRIN┆
0x173e0…17400 54 20 22 3c 53 3e 2d 22 11 0b 32 34 39 30 20 4e 45 58 54 20 58 0b 11 32 35 30 30 20 50 52 49 4e ┆T "<S>-" 2490 NEXT X 2500 PRIN┆
0x17400…17420 (11, 1, 5) 54 20 22 3c 53 3e 2a 22 11 11 32 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 11 32 35 32 ┆T "<S>*" 2510 CURSOR 10,12 252┆
0x17420…17440 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 18 32 35 33 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 ┆0 PRINT "<S>*" 2530 FOR X:=11 T┆
0x17440…17460 4f 20 36 39 20 44 4f 20 18 11 32 35 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 35 35 ┆O 69 DO 2540 PRINT "<S>-" 255┆
0x17460…17480 30 20 4e 45 58 54 20 58 0b 11 32 35 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 35 37 ┆0 NEXT X 2560 PRINT "<S>*" 257┆
0x17480…174a0 30 20 46 4f 52 20 59 3a 3d 36 20 54 4f 20 31 31 20 44 4f 20 17 10 32 35 38 30 20 43 55 52 53 4f ┆0 FOR Y:=6 TO 11 DO 2580 CURSO┆
0x174a0…174c0 52 20 31 30 2c 59 10 0e 32 35 39 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 30 30 20 4e 45 58 ┆R 10,Y 2590 PRINT "!" 2600 NEX┆
0x174c0…174e0 54 20 59 0b 1f 32 36 31 30 20 46 4f 52 20 59 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 ┆T Y 2610 FOR Y:=14 TO 3 STEP -1┆
0x174e0…17500 20 44 4f 20 1f 0f 32 36 32 30 20 43 55 52 53 4f 52 20 35 2c 59 0f 0e 32 36 33 30 20 50 52 49 4e ┆ DO 2620 CURSOR 5,Y 2630 PRIN┆
0x17500…17520 (11, 1, 6) 54 20 22 21 22 0e 0b 32 36 34 30 20 4e 45 58 54 20 59 0b 17 32 36 35 30 20 46 4f 52 20 59 3a 3d ┆T "!" 2640 NEXT Y 2650 FOR Y:=┆
0x17520…17540 36 20 54 4f 20 31 31 20 44 4f 20 17 10 32 36 36 30 20 43 55 52 53 4f 52 20 37 30 2c 59 10 0e 32 ┆6 TO 11 DO 2660 CURSOR 70,Y 2┆
0x17540…17560 36 37 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 38 30 20 4e 45 58 54 20 59 0b 1f 32 36 39 30 ┆670 PRINT "!" 2680 NEXT Y 2690┆
0x17560…17580 20 46 4f 52 20 59 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 32 37 30 ┆ FOR Y:=14 TO 3 STEP -1 DO 270┆
0x17580…175a0 30 20 43 55 52 53 4f 52 20 37 35 2c 59 10 0e 32 37 31 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 ┆0 CURSOR 75,Y 2710 PRINT "!" 2┆
0x175a0…175c0 37 32 30 20 4e 45 58 54 20 59 0b 10 32 37 33 30 20 43 55 52 53 4f 52 20 32 35 2c 39 10 15 32 37 ┆720 NEXT Y 2730 CURSOR 25,9 27┆
0x175c0…175e0 34 30 20 50 52 49 4e 54 20 54 45 53 54 4e 41 56 4e 31 24 15 10 32 37 35 30 20 43 55 52 53 4f 52 ┆40 PRINT TESTNAVN1$ 2750 CURSOR┆
0x175e0…17600 20 35 2c 32 30 10 43 32 37 36 30 20 50 52 49 4e 54 20 22 50 7d 20 64 65 20 6e 7b 73 74 65 20 73 ┆ 5,20 C2760 PRINT "På de næste s┆
0x17600…17620 (11, 1, 7) ExtentHdr {name=»HJERTER_«, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0016,0c (0x016c00)}, nextfile={DA 0018,00 (0x018000)}, f99=41 13 00 20 00 4a 45 52 54 45 ┆A JERTE┆}
0x17620…17640 69 64 65 72 20 76 69 6c 20 64 75 20 66 7d 20 31 30 20 73 70 7c 72 67 73 6d 7d 6c 20 6d 65 64 20 ┆ider vil du få 10 spørgsmål med ┆
0x17640…17660 74 72 65 20 73 76 61 72 2e 22 43 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 ┆tre svar."C 2770 CURSOR 5,21 J27┆
0x17660…17680 38 30 20 50 52 49 4e 54 20 22 4b 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 ┆80 PRINT "Kun et af svarene er r┆
0x17680…176a0 69 67 74 69 67 74 2c 73 7d 20 64 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 ┆igtigt,så du skal enten indtaste┆
0x176a0…176c0 20 41 2c 20 42 20 22 3b 4a 15 32 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 ┆ A, B ";J 2790 PRINT "eller C." ┆
0x176c0…176e0 11 32 38 30 30 20 43 55 52 53 4f 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 ┆ 2800 CURSOR 70,23 2810 INPUT "┆
0x176e0…17700 52 65 74 75 72 6e 21 22 3a 53 56 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 ┆Return!":SV$ 2820 ENDPROC FORSI┆
0x17700…17720 (11, 1, 8) 44 45 4e 15 00 00 06 c6 05 bc 10 10 8c 00 b7 08 a5 8b 2c 02 9b be 4e cb 84 a1 f4 d5 85 2a d5 85 ┆DEN , N * ┆
0x17720…17740 2b c6 15 00 cc 81 da c6 81 da a5 8a d6 14 d2 17 c6 81 da a6 04 3a 31 3a 54 18 d2 17 c6 81 da 00 ┆+ :1:T ┆
0x17740…17760 01 d2 05 d5 85 2e a6 0d 22 4f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 32 ce 0a d5 85 34 ┆ . "Oplysninger" . 2 4┆
0x17760…17780 c6 15 a5 8a fb 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 35 c6 15 a5 8b 2c 18 d2 13 9e 00 c6 15 ca ┆ 5 , ┆
0x17780…177a0 81 ae 04 d2 0d 9e 00 c6 15 d2 16 9e 00 d5 85 38 c6 15 a5 8b 2c cd 56 d5 85 39 c6 15 a5 8b 2c 00 ┆ 8 , V 9 , ┆
0x177a0…177c0 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 3c c6 81 85 be 28 c4 a1 15 d5 85 3d c6 15 c6 81 85 28 d2 13 ┆ < ( = ( ┆
0x177c0…177e0 9e 00 c6 15 d2 16 9e 00 b9 21 d5 85 3f c6 15 c6 81 85 00 d2 13 9e 00 c6 15 a5 18 28 c6 81 85 be ┆ ! ? ( ┆
0x177e0…17800 95 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 40 c6 15 a5 8b 3b 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 ┆ @ ; ┆
0x17800…17820 (11, 1, 9) 42 c6 15 01 d2 06 d5 85 43 a6 0d 22 4f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 46 d5 85 ┆B C "Oplysninger" . F ┆
0x17820…17840 4a c6 15 00 cc 81 da c6 81 da a6 02 24 24 02 d2 17 c6 81 da a5 8b 25 03 d2 17 c6 81 da a6 0c 50 ┆J $$ % P┆
0x17840…17860 41 52 41 4d 3a 50 31 3a 31 3a 54 0f d2 17 c6 81 da 00 01 d2 05 d5 85 4c a6 16 22 54 65 72 6d 69 ┆ARAM:P1:1:T L "Termi┆
0x17860…17880 6e 61 6c 20 6f 70 6c 79 73 6e 69 6e 67 65 72 22 cd 00 2e d5 85 50 c6 15 a5 8a fb 00 d2 13 9e 00 ┆nal oplysninger" . P ┆
0x17880…178a0 c6 15 d2 16 9e 00 d5 85 51 c6 15 a5 8b 2c 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 53 c6 15 a5 18 ┆ Q , S ┆
0x178a0…178c0 28 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 54 c6 15 a5 8b 3b 00 d2 13 9e 00 c6 15 d2 16 9e 00 d5 85 ┆( T ; ┆
0x178c0…178e0 56 c6 15 01 d2 06 d5 85 57 a6 16 22 54 65 72 6d 69 6e 61 6c 20 6f 70 6c 79 73 6e 69 6e 67 65 72 ┆V W "Terminal oplysninger┆
0x178e0…17900 22 cd 00 2e d5 85 5b d5 85 5d d8 93 a1 08 d5 85 5e c7 90 01 9e 26 d5 85 5f d8 a1 f0 d5 85 61 b3 ┆" . Æ Å ^ & _ a ┆
0x17900…17920 (11, 1, 10) 06 a5 40 00 00 20 00 00 00 00 00 00 00 00 06 c6 05 bc 10 10 8c 00 b7 08 a1 2f d5 85 62 d5 85 63 ┆ @ / b c┆
0x17920…17940 a7 45 a1 1b d5 85 64 d5 85 65 a7 46 01 c5 a1 0a d5 85 66 a7 46 01 95 cd 00 11 d5 85 67 b9 07 d5 ┆ E d e F f F g ┆
0x17940…17960 85 69 18 cd 00 11 d5 85 6a d5 85 6c 55 c6 05 bc 10 10 8b a1 e4 d5 85 6d d5 85 6e 01 14 d2 1d d5 ┆ i j lU m n ┆
0x17960…17980 85 6f cd 00 2b d5 85 70 a7 45 93 a1 ec d5 85 71 d5 85 73 e9 a6 27 3c 5a 3e 20 20 20 20 20 56 65 ┆ o + p E q s '<Z> Ve┆
0x17980…179a0 6e 74 20 20 2d 20 20 61 72 62 65 6a 64 73 74 65 6b 73 74 65 6e 20 66 6c 79 74 74 65 73 00 d2 13 ┆nt - arbejdsteksten flyttes ┆
0x179a0…179c0 9e 00 e9 0d 00 d2 11 9e 00 e9 d2 04 9e 00 d5 85 7f 18 cd 00 11 d5 85 80 a5 89 78 a5 87 f2 cd 56 ┆ x V┆
0x179c0…179e0 d5 85 81 9e 22 0c cb a1 31 d5 85 82 d5 85 83 a5 88 1a a5 87 f2 00 d2 13 9e 00 a5 88 1a d2 16 9e ┆ " 1 ┆
0x179e0…17a00 00 d5 85 84 a7 47 01 82 ab 47 d5 85 85 a5 89 78 a5 87 f2 cd 56 d5 85 86 b9 ee d5 85 87 b9 0a d5 ┆ G G x V ┆
0x17a00…17a20 (11, 1, 11) 85 89 a7 46 01 95 cd 00 11 d5 85 8b 00 00 00 00 ce 04 a1 4a d5 85 8c d5 85 8d 04 ab 8b 26 d5 85 ┆ F J & ┆
0x17a20…17a40 8f e9 a6 2b 3c 5a 3e 20 20 20 20 20 56 65 6e 74 20 20 2d 20 20 74 65 6b 73 74 65 6e 20 73 6b 72 ┆ +<Z> Vent - teksten skr┆
0x17a40…17a60 69 76 65 73 20 70 7d 20 73 6b 72 69 76 65 72 00 d2 13 9e 00 e9 d2 16 9e 00 d5 85 97 b9 e6 d5 85 ┆ives på skriver ┆
0x17a60…17a80 9a d5 85 9c e9 a6 2c 3c 5a 3e 46 6f 72 73 7b 74 20 72 65 64 69 67 65 72 69 6e 67 20 20 20 2d 20 ┆ ,<Z>Forsæt redigering - ┆
0x17a80…17aa0 20 20 74 72 79 6b 20 70 7d 20 52 45 54 55 52 4e 20 3a 20 00 d2 13 9e 00 e9 d2 04 9e 00 d5 85 a4 ┆ tryk på RETURN : ┆
0x17aa0…17ac0 a5 8b 25 a6 00 aa 01 d5 85 a5 a5 8b 25 01 00 00 00 00 cd 00 18 a1 03 d5 85 a5 d5 85 a6 00 ab 45 ┆ % % E┆
0x17ac0…17ae0 d5 85 a7 01 ab 8b 26 d5 85 a8 a7 47 18 c9 a1 54 d5 85 a9 d5 85 aa 01 ab 45 d5 85 ab a7 47 01 82 ┆ & G T E G ┆
0x17ae0…17b00 ab 46 d5 85 ac a7 47 cd 00 10 d5 85 ad a7 46 01 82 00 18 88 ab 44 18 00 18 88 cc 81 da a7 44 ca ┆ F G F D D ┆
0x17b00…17b20 (11, 1, 12) 81 da c8 a1 1a d5 85 ae a5 4a a7 44 01 18 88 01 95 a4 28 a6 00 aa 4f a7 44 01 82 ab 44 b9 ea d5 ┆ J D ( O D D ┆
0x17b20…17b40 85 af b9 56 d5 85 b1 d5 85 b2 a7 47 ab 49 18 01 82 cc 81 da a7 49 ca 81 da c4 a1 2e d5 85 b3 d5 ┆ V G I I . ┆
0x17b40…17b60 85 b4 a5 88 1a a5 87 f2 cd 56 d5 85 b5 a5 89 78 a5 87 f2 00 d2 13 9e 00 a5 89 78 d2 16 9e 00 d5 ┆ V x x ┆
0x17b60…17b80 85 b6 a7 49 01 95 ab 49 b9 e8 d5 85 b7 18 cd 00 10 d5 85 b8 00 ab 47 d5 85 b9 d5 85 ba 01 00 18 ┆ I I G ┆
0x17b80…17ba0 88 ab 42 d5 85 bb 01 00 4f 88 ab 41 d5 85 bc d5 85 bd b9 d6 d5 85 bf 56 c6 05 bc 10 10 8b a1 5e ┆ B O A V ^┆
0x17ba0…17bc0 d5 85 c0 d5 85 c1 a6 0a 57 57 20 20 20 20 20 20 2a 31 a6 01 20 c6 81 7e d2 1e d5 85 c3 a6 30 20 ┆ WW *1 ü 0 ┆
0x17bc0…17be0 76 65 64 20 72 65 74 75 72 6e 65 72 69 6e 67 20 74 69 6c 20 6f 76 65 72 6f 72 64 6e 65 74 20 6b ┆ved returnering til overordnet k┆
0x17be0…17c00 6f 6d 6d 61 6e 64 6f 20 6e 69 76 65 61 75 2e cd 00 2e d5 85 cb 03 ab 8b 26 d5 85 cc b9 d8 d5 85 ┆ommando niveau. . & ┆
0x17c00…17c20 (11, 1, 13) ce 52 c6 05 bc 10 10 8b a1 09 d5 85 cf 00 ab 8b 26 b9 da d5 85 d1 4d c6 05 bc 10 10 8b a1 dc d5 ┆ R & M ┆
0x17c20…17c40 85 d2 d5 85 d3 02 ab 8b 26 d5 85 d4 eb 01 01 28 88 01 95 82 be 2a c3 a1 de d5 85 d5 d5 85 d6 eb ┆ & ( * ┆
0x17c40…17c60 01 01 28 88 01 95 82 20 bf d5 85 d7 c6 15 a6 07 57 57 50 41 52 41 4d 01 01 d2 05 d5 85 d8 9e 22 ┆ ( WWPARAM "┆
0x17c60…17c80 05 c3 a1 20 d5 85 d9 d5 85 da c7 90 01 9e 26 d5 85 db c6 15 a6 07 57 57 50 41 52 41 4d 01 01 d2 ┆ & WWPARAM ┆
0x17c80…17ca0 05 d5 85 dc d5 85 de 9e 22 00 c3 a1 e0 d5 85 df d5 85 e0 c6 15 c6 81 af 50 d2 12 9e 00 c6 15 d2 ┆ " P ┆
0x17ca0…17cc0 15 9e 00 d5 85 e1 a6 06 43 48 41 49 4e 3a c6 81 af d2 1b 01 c3 a1 4f d5 85 e2 d5 85 e3 c6 81 af ┆ CHAIN: O ┆
0x17cc0…17ce0 c6 81 da 07 0a d2 19 c6 81 da a6 01 20 c6 81 7e d2 1e d5 85 e5 a6 29 20 76 65 64 20 72 65 74 75 ┆ ü ) ved retu┆
0x17ce0…17d00 72 6e 65 72 69 6e 67 20 74 69 6c 20 61 6e 76 65 6e 64 65 6c 73 65 73 20 70 72 6f 67 72 61 6d 2e ┆rnering til anvendelses program.┆
0x17d00…17d20 (11, 1, 14) cd 00 2e d5 85 ed d5 85 ee c6 15 01 00 d2 0a a1 e2 b9 6d d5 85 f0 d5 85 f1 9e 22 cc 81 7f d5 85 ┆ . m " ┆
0x17d20…17d40 f2 cd 00 16 d5 85 f4 e9 a6 13 41 64 76 61 72 73 65 6c 20 2d 20 46 65 6a 6c 20 6e 72 2e 00 d2 13 ┆ Advarsel - Fejl nr. ┆
0x17d40…17d60 9e 00 e9 ca 81 7f 00 d2 0d 9e 00 e9 a6 17 20 76 65 64 20 7d 62 6e 69 6e 67 20 61 66 20 57 57 50 ┆ ved åbning af WWP┆
0x17d60…17d80 41 52 41 4d 2e 00 d2 13 9e 00 e9 d2 16 9e 00 d5 85 ff cd 00 16 d5 86 00 c7 2c 01 9e 26 d5 86 01 ┆ARAM. , & ┆
0x17d80…17da0 d5 86 03 c6 15 01 d2 06 d5 86 05 d5 86 06 b9 07 d5 86 08 01 ab 8b 26 d5 86 0a d5 86 0b c6 15 01 ┆ & ┆
0x17da0…17dc0 d2 06 ad 00 0a 00 0f 00 11 00 13 00 1c 00 23 00 9d 00 22 01 20 02 27 02 84 02 bd 02 bd 03 fb 03 ┆ # " ' ┆
0x17dc0…17de0 46 07 db 04 a6 05 95 07 04 04 00 00 2f 00 ec 07 01 01 40 0e 68 0e 62 15 b0 15 10 1a 48 1b fe 07 ┆F / @ h b H ┆
0x17de0…17e00 2a 1f 1c 1d 98 26 9c 1f 4e 21 c8 23 1c 00 06 0e 85 ff cd 00 16 d5 86 00 c7 2c 01 9e 26 d5 86 01 ┆* & N! # , & ┆
0x17e00…17e20 (11, 1, 15) d5 86 03 c6 15 01 d2 06 d5 86 05 d5 86 06 b9 07 d5 86 08 01 ab 8b 26 d5 86 0a d5 86 0b c6 15 01 ┆ & ┆
0x17e20…17e40 d5 81 19 dd dc c5 a1 08 d5 81 1a dc cc 01 b9 06 d5 81 1c dd cc 01 d5 81 1d ad 01 05 00 00 0c 00 ┆ ┆
0x17e40…17e60 07 00 22 00 0d 01 d5 81 21 dd dc c5 a1 08 d5 81 22 dd cc 01 b9 06 d5 81 24 dc cc 01 d5 81 25 ad ┆ " ! " $ % ┆
0x17e60…17e80 01 05 00 00 0c 00 07 00 22 00 0e 01 d5 81 30 d9 be 01 82 cc 03 d8 cc 04 da db c8 a1 0f d5 81 31 ┆ " 0 1┆
0x17e80…17ea0 d9 da 82 20 bf da 01 82 cc 03 b9 f6 d5 81 32 d9 00 82 d8 bf d5 81 34 ad 00 ad 22 00 04 00 04 00 ┆ 2 4 " ┆
0x17ea0…17ec0 09 00 36 00 0f 01 d5 81 3b d8 00 18 88 cc 02 01 00 18 88 cc 03 d9 da c4 a1 19 d5 81 3c a5 88 1a ┆ 6 ; < ┆
0x17ec0…17ee0 a5 4a d9 01 18 88 01 95 a4 28 cd 56 d9 01 95 cc 02 b9 f6 d5 81 3d a7 47 d8 95 ab 47 d5 81 3e ad ┆ J ( V = G G > ┆
0x17ee0…17f00 00 01 2d 00 04 00 02 00 09 00 44 00 10 01 d5 81 44 d8 00 18 88 cc 02 d5 81 45 a7 45 a7 46 01 d8 ┆ - D D E E F ┆
0x17f00…17f20 (11, 1, 16) 94 8b 84 a1 18 d5 81 46 d5 81 47 a7 46 01 95 00 18 88 cc 02 d5 81 48 01 ab 46 d5 81 49 d5 81 4a ┆ F G F H F I J┆
0x17f20…17f40 a7 47 d9 82 ab 47 d5 81 4b 01 00 18 88 cc 03 d9 00 18 88 cc 04 da db c8 a1 23 d5 81 4c a5 88 1a ┆ G G K # L ┆
0x17f40…17f60 a5 4a da 01 18 88 01 95 a4 28 00 d2 13 9e 00 a5 88 1a d2 16 9e 00 da 01 82 cc 03 b9 f6 d5 81 4d ┆ J ( M┆
0x17f60…17f80 ad 00 2d 00 06 00 02 00 08 00 7c 00 11 01 d5 81 54 d8 00 c3 a1 07 d5 81 55 00 12 9e 04 d5 81 56 ┆ - ø T U V┆
0x17f80…17fa0 a7 45 93 a1 f2 d5 81 58 d5 81 59 18 d8 95 01 82 00 18 88 cc 02 d5 81 5a a5 89 78 a5 4a d9 01 18 ┆ E X Y Z x J ┆
0x17fa0…17fc0 88 01 95 a4 28 cd 56 d5 81 5b 9e 22 0c cb d9 18 c9 84 a1 25 d5 81 5c d5 81 5d d9 01 82 00 18 88 ┆ ( V Æ " % Ø Å ┆
0x17fc0…17fe0 cc 02 d5 81 5e a5 89 78 a5 4a d9 01 18 88 01 95 a4 28 cd 56 d5 81 5f b9 f6 d5 81 60 9e 22 0c c3 ┆ ^ x J ( V _ ` " ┆
0x17fe0…18000 a1 3f d5 81 62 d5 81 63 01 ab 45 d5 81 64 d9 ab 46 d5 81 65 a7 46 00 18 88 cc 02 18 00 18 88 63 ┆ ? b c E d F e F c┆
0x18000…18020 (12, 0, 1) ExtentHdr {name=»FEJLPRG1«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,0a (0x018a00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x18020…18040 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 75 ┆?0010 // -------------------- su┆
0x18040…18060 6d 5f 62 72 7c 6b 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆m_brøk_2 -----------------------┆
0x18060…18080 3f 08 30 30 32 30 20 2f 2f 20 08 12 30 30 33 30 20 50 52 4f 43 20 53 46 44 28 4e 2c 4d 29 12 12 ┆? 0020 // 0030 PROC SFD(N,M) ┆
0x18080…180a0 30 30 34 30 20 57 48 49 4c 45 20 4d 3e 30 20 44 4f 20 12 12 30 30 35 30 20 52 45 53 54 3a 3d 4e ┆0040 WHILE M>0 DO 0050 REST:=N┆
0x180a0…180c0 20 4d 4f 44 20 4d 12 11 30 30 36 30 20 4e 3a 3d 4d 3b 4d 3a 3d 52 45 53 54 11 0e 30 30 37 30 20 ┆ MOD M 0060 N:=M;M:=REST 0070 ┆
0x180c0…180e0 45 4e 44 57 48 49 4c 45 20 0e 0b 30 30 38 30 20 53 46 44 3a 3d 4e 0b 10 30 30 39 30 20 45 4e 44 ┆ENDWHILE 0080 SFD:=N 0090 END┆
0x180e0…18100 50 52 4f 43 20 53 46 44 10 08 30 31 30 30 20 2f 2f 20 08 28 30 31 31 30 20 50 52 4f 43 20 46 4f ┆PROC SFD 0100 // (0110 PROC FO┆
0x18100…18120 (12, 0, 2) 52 4b 4f 52 54 28 52 45 46 20 54 5b 4c 4c 45 52 2c 52 45 46 20 4e 5b 56 4e 45 52 29 28 1f 30 31 ┆RKORT(REF TÆLLER,REF NÆVNER)( 01┆
0x18120…18140 32 30 20 46 41 4b 54 4f 52 3a 3d 53 46 44 28 54 5b 4c 4c 45 52 2c 4e 5b 56 4e 45 52 29 1f 1a 30 ┆20 FAKTOR:=SFD(TÆLLER,NÆVNER) 0┆
0x18140…18160 31 33 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2f 46 41 4b 54 4f 52 1a 1a 30 31 34 30 20 ┆130 TÆLLER:=TÆLLER/FAKTOR 0140 ┆
0x18160…18180 4e 5b 56 4e 45 52 3a 3d 4e 5b 56 4e 45 52 2f 46 41 4b 54 4f 52 1a 14 30 31 35 30 20 45 4e 44 50 ┆NÆVNER:=NÆVNER/FAKTOR 0150 ENDP┆
0x18180…181a0 52 4f 43 20 46 4f 52 4b 4f 52 54 14 08 30 31 36 30 20 2f 2f 20 08 0b 30 31 37 30 20 43 4c 45 41 ┆ROC FORKORT 0160 // 0170 CLEA┆
0x181a0…181c0 52 20 0b 48 30 31 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 72 73 74 65 20 62 ┆R H0180 INPUT "Indtast første b┆
0x181c0…181e0 72 7c 6b 73 20 74 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 20 22 3a 44 49 56 49 44 45 ┆røks tæller og nævner: ":DIVIDE┆
0x181e0…18200 4e 44 31 2c 44 49 56 49 53 4f 52 31 48 48 30 31 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 ┆ND1,DIVISOR1HH0190 INPUT "Indtas┆
0x18200…18220 (12, 0, 3) 74 20 61 6e 64 65 6e 20 62 72 7c 6b 73 20 74 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 ┆t anden brøks tæller og nævner: ┆
0x18220…18240 20 20 22 3a 44 49 56 49 44 45 4e 44 32 2c 44 49 56 49 53 4f 52 32 48 0b 30 32 30 30 20 50 52 49 ┆ ":DIVIDEND2,DIVISOR2H 0200 PRI┆
0x18240…18260 4e 54 20 0b 45 30 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 28 23 23 23 23 23 23 23 2e ┆NT E0210 PRINT USING "(#######.┆
0x18260…18280 23 23 20 29 2f 28 23 23 23 23 23 23 23 2e 23 23 20 29 20 2b 20 22 3a 44 49 56 49 44 45 4e 44 31 ┆## )/(#######.## ) + ":DIVIDEND1┆
0x18280…182a0 2c 44 49 56 49 53 4f 52 31 3b 45 45 30 32 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 28 23 ┆,DIVISOR1;EE0220 PRINT USING "(#┆
0x182a0…182c0 23 23 23 23 23 23 2e 23 23 20 29 2f 28 23 23 23 23 23 23 23 2e 23 23 20 29 20 3d 20 22 3a 44 49 ┆######.## )/(#######.## ) = ":DI┆
0x182c0…182e0 56 49 44 45 4e 44 32 2c 44 49 56 49 53 4f 52 32 3b 45 34 30 32 33 30 20 44 49 56 49 44 45 4e 44 ┆VIDEND2,DIVISOR2;E40230 DIVIDEND┆
0x182e0…18300 3a 3d 44 49 56 49 44 45 4e 44 31 2a 44 49 56 49 53 4f 52 32 2b 44 49 56 49 44 45 4e 44 32 2a 44 ┆:=DIVIDEND1*DIVISOR2+DIVIDEND2*D┆
0x18300…18320 (12, 0, 4) 49 56 49 53 4f 52 31 34 1f 30 32 34 30 20 44 49 56 49 53 4f 52 3a 3d 44 49 56 49 53 4f 52 31 2a ┆IVISOR14 0240 DIVISOR:=DIVISOR1*┆
0x18320…18340 44 49 56 49 53 4f 52 32 1f 23 30 32 35 30 20 46 4f 52 54 45 47 4e 3a 3d 53 47 4e 28 44 49 56 49 ┆DIVISOR2 #0250 FORTEGN:=SGN(DIVI┆
0x18340…18360 44 45 4e 44 2a 44 49 56 49 53 4f 52 29 23 1c 30 32 36 30 20 44 49 56 49 44 45 4e 44 3a 3d 41 42 ┆DEND*DIVISOR)# 0260 DIVIDEND:=AB┆
0x18360…18380 53 28 44 49 56 49 44 45 4e 44 29 1c 1a 30 32 37 30 20 44 49 56 49 53 4f 52 3a 3d 41 42 53 28 44 ┆S(DIVIDEND) 0270 DIVISOR:=ABS(D┆
0x18380…183a0 49 56 49 53 4f 52 29 1a 23 30 32 38 30 20 45 58 45 43 20 46 4f 52 4b 4f 52 54 28 44 49 56 49 44 ┆IVISOR) #0280 EXEC FORKORT(DIVID┆
0x183a0…183c0 45 4e 44 2c 44 49 56 49 53 4f 52 29 23 08 30 32 39 30 20 2f 2f 20 08 1e 30 33 30 30 20 49 46 20 ┆END,DIVISOR)# 0290 // 0300 IF ┆
0x183c0…183e0 46 4f 52 54 45 47 4e 3d 30 20 54 48 45 4e 20 50 52 49 4e 54 20 30 1e 22 30 33 31 30 20 49 46 20 ┆FORTEGN=0 THEN PRINT 0 "0310 IF ┆
0x183e0…18400 46 4f 52 54 45 47 4e 3d 2d 31 20 54 48 45 4e 20 50 52 49 4e 54 20 22 2d 22 2c 22 18 30 33 32 30 ┆FORTEGN=-1 THEN PRINT "-"," 0320┆
0x18400…18420 (12, 0, 5) 20 49 46 20 46 4f 52 54 45 47 4e 3c 3e 30 20 54 48 45 4e 20 18 17 30 33 33 30 20 49 46 20 44 49 ┆ IF FORTEGN<>0 THEN 0330 IF DI┆
0x18420…18440 56 49 53 4f 52 3d 31 20 54 48 45 4e 20 17 13 30 33 34 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 ┆VISOR=1 THEN 0340 PRINT DIVIDE┆
0x18440…18460 4e 44 13 0a 30 33 35 30 20 45 4c 53 45 20 0a 0b 30 33 36 30 20 50 52 49 4e 54 20 0b 0b 30 33 37 ┆ND 0350 ELSE 0360 PRINT 037┆
0x18460…18480 30 20 45 4e 44 49 46 20 0b 0b 30 33 38 30 20 45 4e 44 49 46 20 0b 10 38 34 34 37 20 2f 2f 20 3e ┆0 ENDIF 0380 ENDIF 8447 // >┆
0x18480…184a0 30 20 54 48 45 4e 20 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆0 THEN cccccccccccccccccccccc┆
0x184a0…184c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x18500…18600 (12, 0, 6) 0x63[0x100]
[…0x4…]
0x18a00…18a20 (12, 0, 11) ExtentHdr {name=»POSTTAK3«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0018,0e (0x018e00)}, f99=41 18 00 fe 00 00 00 00 00 00 ┆A ┆}
0x18a20…18a40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆@0010 // ---------------------- ┆
0x18a40…18a60 70 6f 73 74 74 61 6b 73 74 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆posttakst3 ---------------------┆
0x18a60…18a80 2d 40 44 30 30 32 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 70 6f 73 74 74 61 6b 73 74 65 72 ┆-@D0020 // Udskriver posttakster┆
0x18a80…18aa0 20 28 69 6e 64 65 6e 6c 61 6e 64 73 29 20 76 65 64 20 43 41 53 45 20 2d 20 57 48 45 4e 20 2d 20 ┆ (indenlands) ved CASE - WHEN - ┆
0x18aa0…18ac0 45 4e 44 43 41 53 45 44 17 30 30 32 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 ┆ENDCASED 0025 INTEGER TRUE,FALSE┆
0x18ac0…18ae0 17 15 30 30 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c ┆ 0026 TRUE:=1;FALSE:=0 0030 CL┆
0x18ae0…18b00 45 41 52 20 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 41 30 30 35 30 20 50 52 49 4e ┆EAR 0040 CURSOR 1,3 A0050 PRIN┆
0x18b00…18b20 (12, 0, 12) 54 20 22 50 6f 73 74 74 61 6b 73 74 65 72 20 74 69 6c 20 69 6e 64 6c 61 6e 64 65 74 20 67 7b 6c ┆T "Posttakster til indlandet gæl┆
0x18b20…18b40 64 65 6e 64 65 20 66 72 61 20 31 37 2e 20 6d 61 6a 20 31 39 38 33 2e 22 41 42 30 30 36 30 20 50 ┆dende fra 17. maj 1983."AB0060 P┆
0x18b40…18b60 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RINT "--------------------------┆
0x18b60…18b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 42 0b 30 30 ┆---------------------------"B 00┆
0x18b80…18ba0 37 30 20 50 52 49 4e 54 20 0b 3d 30 30 38 30 20 49 4e 50 55 54 20 22 42 72 65 76 65 74 73 20 76 ┆70 PRINT =0080 INPUT "Brevets v┆
0x18ba0…18bc0 7b 67 74 20 28 69 6b 6b 65 20 6f 76 65 72 20 31 30 30 30 20 67 29 3a 20 20 20 20 20 20 20 20 20 ┆ægt (ikke over 1000 g): ┆
0x18bc0…18be0 20 20 22 3a 56 5b 47 54 3d 0b 30 30 39 30 20 50 52 49 4e 54 20 0b 40 30 31 30 30 20 2f 2f 20 2d ┆ ":VÆGT= 0090 PRINT @0100 // -┆
0x18be0…18c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x18c00…18c20 (12, 0, 13) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 12 30 31 31 30 20 43 41 ┆-----------------------@ 0110 CA┆
0x18c20…18c40 53 45 20 54 52 55 45 20 4f 46 20 12 12 30 31 32 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 32 30 12 ┆SE TRUE OF 0120 WHEN VÆGT<=20 ┆
0x18c40…18c60 0f 30 31 33 30 20 50 4f 52 54 4f 3a 3d 32 35 30 0f 13 30 31 34 30 20 57 48 45 4e 20 56 5b 47 54 ┆ 0130 PORTO:=250 0140 WHEN VÆGT┆
0x18c60…18c80 3c 3d 31 30 30 13 0f 30 31 35 30 20 50 4f 52 54 4f 3a 3d 33 35 30 0f 13 30 31 36 30 20 57 48 45 ┆<=100 0150 PORTO:=350 0160 WHE┆
0x18c80…18ca0 4e 20 56 5b 47 54 3c 3d 32 35 30 13 0f 30 31 37 30 20 50 4f 52 54 4f 3a 3d 35 30 30 0f 13 30 31 ┆N VÆGT<=250 0170 PORTO:=500 01┆
0x18ca0…18cc0 38 30 20 57 48 45 4e 20 56 5b 47 54 3c 3d 35 30 30 13 0f 30 31 39 30 20 50 4f 52 54 4f 3a 3d 38 ┆80 WHEN VÆGT<=500 0190 PORTO:=8┆
0x18cc0…18ce0 30 30 0f 0f 30 32 30 30 20 4f 54 48 45 52 57 49 53 45 20 0f 10 30 32 31 30 20 50 4f 52 54 4f 3a ┆00 0200 OTHERWISE 0210 PORTO:┆
0x18ce0…18d00 3d 31 32 30 30 10 0d 30 32 32 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 32 33 30 20 50 52 49 4e 54 ┆=1200 0220 ENDCASE 0230 PRINT┆
0x18d00…18d20 (12, 0, 14) 20 0b 48 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 65 76 65 74 73 20 76 7b 67 ┆ H0240 PRINT USING "Brevets væg┆
0x18d20…18d40 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 ┆t: #####┆
0x18d40…18d60 20 20 67 2e 20 22 3a 56 5b 47 54 48 0b 30 32 35 30 20 50 52 49 4e 54 20 0b 4d 30 32 36 30 20 50 ┆ g. ":VÆGTH 0250 PRINT M0260 P┆
0x18d60…18d80 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RINT USING "Porto: ┆
0x18d80…18da0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 6b 72 2e 22 3a 50 4f ┆ ####.## kr.":PO┆
0x18da0…18dc0 52 54 4f 2f 31 30 30 4d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆RTO/100M cccccccccccccccccccccc┆
0x18dc0…18de0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x18e00…18e20 (12, 0, 15) ExtentHdr {name=»TELEFONN«, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,05 (0x019500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x18e20…18e40 48 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0010 // -----------------------┆
0x18e40…18e60 2d 2d 2d 2d 20 74 65 6c 65 66 6f 6e 6e 72 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆---- telefonnr -----------------┆
0x18e60…18e80 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 4b 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 ┆---------HK0020 // Programmet fi┆
0x18e80…18ea0 6e 64 65 72 20 65 72 20 74 65 6c 65 66 6f 6e 6e 75 6d 6d 65 72 70 7d 20 65 6e 20 70 65 72 73 6f ┆nder er telefonnummerpå en perso┆
0x18ea0…18ec0 6e 2c 20 68 76 69 73 20 6e 61 76 6e 20 6f 67 20 74 6c 66 6e 72 2e 4b 21 30 30 33 30 20 2f 2f 20 ┆n, hvis navn og tlfnr.K!0030 // ┆
0x18ec0…18ee0 6c 69 67 67 65 72 20 69 20 66 69 6c 65 6e 20 27 74 65 6c 65 66 6f 6e 27 22 21 44 30 30 34 30 20 ┆ligger i filen 'telefon'"!D0040 ┆
0x18ee0…18f00 2f 2f 20 48 76 69 73 20 64 75 20 7c 6e 73 6b 65 72 20 61 74 20 6b 65 6e 64 65 20 69 6e 64 68 6f ┆// Hvis du ønsker at kende indho┆
0x18f00…18f20 (12, 0, 16) 6c 64 65 74 20 61 66 20 66 69 6c 65 6e 2c 20 62 65 6e 79 74 20 6c 69 6e 69 65 20 31 35 30 2e 44 ┆ldet af filen, benyt linie 150.D┆
0x18f20…18f40 08 30 30 35 30 20 2f 2f 20 08 38 30 30 36 30 20 44 49 4d 20 4c 49 53 54 45 28 31 30 29 2c 50 45 ┆ 0050 // 80060 DIM LISTE(10),PE┆
0x18f40…18f60 52 53 4f 4e 24 28 31 30 29 20 4f 46 20 33 30 2c 53 24 20 4f 46 20 31 2c 4e 41 56 4e 24 20 4f 46 ┆RSON$(10) OF 30,S$ OF 1,NAVN$ OF┆
0x18f60…18f80 20 33 30 38 17 30 30 36 31 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 ┆ 308 0061 INTEGER TRUE,FALSE 00┆
0x18f80…18fa0 36 32 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 08 30 30 37 30 20 2f 2f 20 08 0c 30 ┆62 TRUE:=1;FALSE:=0 0070 // 0┆
0x18fa0…18fc0 30 38 30 20 52 45 50 45 41 54 20 0c 0b 30 30 39 30 20 43 4c 45 41 52 20 0b 0f 30 31 30 30 20 43 ┆080 REPEAT 0090 CLEAR 0100 C┆
0x18fc0…18fe0 55 52 53 4f 52 20 31 2c 36 0f 2e 30 31 31 30 20 49 4e 50 55 54 20 22 48 76 69 6c 6b 65 74 20 6e ┆URSOR 1,6 .0110 INPUT "Hvilket n┆
0x18fe0…19000 61 76 6e 20 73 7c 67 65 72 20 64 75 3f 20 20 20 20 20 22 3a 4e 41 56 4e 24 2e 12 30 31 32 30 20 ┆avn søger du? ":NAVN$. 0120 ┆
0x19000…19020 (12, 1, 1) 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 12 1d 30 31 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d ┆FUNDET:=FALSE 0130 OPEN "SYSTIM┆
0x19020…19040 45 3a 54 45 4c 45 46 4f 4e 22 2c 52 1d 17 30 31 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 ┆E:TELEFON",R 0140 FOR I:=1 TO 1┆
0x19040…19060 30 20 44 4f 20 17 2e 30 31 35 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 54 45 4c 45 46 4f 4e ┆0 DO .0150 GET "SYSTIME:TELEFON┆
0x19060…19080 22 3a 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 2e 21 30 31 36 30 20 2f 2f 20 50 ┆":LISTE(I),PERSON$(I).!0160 // P┆
0x19080…190a0 52 49 4e 54 20 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 21 1e 30 31 37 30 20 49 ┆RINT LISTE(I),PERSON$(I)! 0170 I┆
0x190a0…190c0 46 20 50 45 52 53 4f 4e 24 28 49 29 3d 4e 41 56 4e 24 20 54 48 45 4e 20 1e 10 30 31 38 30 20 43 ┆F PERSON$(I)=NAVN$ THEN 0180 C┆
0x190c0…190e0 55 52 53 4f 52 20 31 2c 31 30 10 11 30 31 39 30 20 50 52 49 4e 54 20 4e 41 56 4e 24 3b 11 36 30 ┆URSOR 1,10 0190 PRINT NAVN$; 60┆
0x190e0…19100 31 39 31 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 68 61 72 20 74 65 6c 65 66 6f 6e 6e 75 6d ┆191 PRINT USING " har telefonnum┆
0x19100…19120 (12, 1, 2) 6d 65 72 3a 23 23 23 23 23 23 23 22 3a 4c 49 53 54 45 28 49 29 36 11 30 32 30 30 20 46 55 4e 44 ┆mer:#######":LISTE(I)6 0200 FUND┆
0x19120…19140 45 54 3a 3d 54 52 55 45 11 0b 30 32 31 30 20 45 4e 44 49 46 20 0b 0b 30 32 32 30 20 4e 45 58 54 ┆ET:=TRUE 0210 ENDIF 0220 NEXT┆
0x19140…19160 20 49 0b 1c 30 32 33 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 54 45 4c 45 46 4f 4e 22 ┆ I 0230 CLOSE "SYSTIME:TELEFON"┆
0x19160…19180 1c 27 30 32 34 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 4e 20 45 58 45 43 20 46 ┆ '0240 IF NOT FUNDET THEN EXEC F┆
0x19180…191a0 45 4a 4c 53 4b 52 49 46 54 27 08 30 32 35 30 20 2f 2f 20 08 10 30 32 37 30 20 43 55 52 53 4f 52 ┆EJLSKRIFT' 0250 // 0270 CURSOR┆
0x191a0…191c0 20 31 2c 32 32 10 34 30 32 38 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 73 20 66 6c 65 72 65 20 ┆ 1,22 40280 INPUT "Ønskes flere ┆
0x191c0…191e0 74 65 6c 65 66 6f 6e 6e 75 6d 72 65 3f 20 20 20 28 6a 2f 6e 29 20 20 22 3a 53 24 34 1b 30 33 31 ┆telefonnumre? (j/n) ":S$4 031┆
0x191e0…19200 30 20 55 4e 54 49 4c 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 08 30 33 32 30 20 2f ┆0 UNTIL S$="N" OR S$="n" 0320 /┆
0x19200…19220 (12, 1, 3) 2f 20 08 14 30 33 33 30 20 50 52 4f 43 20 46 45 4a 4c 53 4b 52 49 46 54 14 10 30 33 34 30 20 43 ┆/ 0330 PROC FEJLSKRIFT 0340 C┆
0x19220…19240 55 52 53 4f 52 20 31 2c 31 30 10 42 30 33 35 30 20 50 52 49 4e 54 20 4e 41 56 4e 24 3b 22 20 68 ┆URSOR 1,10 B0350 PRINT NAVN$;" h┆
0x19240…19260 61 72 20 69 6b 6b 65 20 6e 6f 67 65 74 20 74 65 6c 65 66 6f 6e 6e 75 6d 6d 65 72 20 69 20 76 6f ┆ar ikke noget telefonnummer i vo┆
0x19260…19280 72 65 73 20 6b 61 72 74 6f 74 65 6b 2e 22 42 17 30 33 36 30 20 45 4e 44 50 52 4f 43 20 46 45 4a ┆res kartotek."B 0360 ENDPROC FEJ┆
0x19280…192a0 4c 53 4b 52 49 46 54 17 00 00 2f 20 50 52 4f 43 20 46 45 4a 4c 53 4b 52 49 46 54 17 00 00 63 63 ┆LSKRIFT / PROC FEJLSKRIFT cc┆
0x192a0…192c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x19300…19400 (12, 1, 4) 0x63[0x100]
[…0x1…]
0x19500…19520 (12, 1, 6) ExtentHdr {name=»FAHRENHE«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0019,07 (0x019700)}, f99=41 19 00 fe 00 00 00 00 00 00 ┆A ┆}
0x19520…19540 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G0010 // -----------------------┆
0x19540…19560 2d 2d 2d 20 66 61 68 72 65 6e 68 65 69 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- fahrenheit -----------------┆
0x19560…19580 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 32 30 30 33 30 20 49 4e 50 55 ┆--------G 0020 CLEAR 20030 INPU┆
0x19580…195a0 54 20 22 49 6e 64 74 61 73 74 20 66 61 68 72 65 6e 68 65 69 74 3a 20 20 20 20 20 20 20 22 3a 46 ┆T "Indtast fahrenheit: ":F┆
0x195a0…195c0 41 48 52 45 4e 48 45 49 54 32 21 30 30 34 30 20 43 45 4c 53 49 55 53 3a 3d 28 46 41 48 52 45 4e ┆AHRENHEIT2!0040 CELSIUS:=(FAHREN┆
0x195c0…195e0 48 45 49 54 2d 33 32 29 2f 31 2e 38 21 18 30 30 35 30 20 52 45 41 4d 55 52 3a 3d 43 45 4c 53 49 ┆HEIT-32)/1.8! 0050 REAMUR:=CELSI┆
0x195e0…19600 55 53 2a 30 2e 38 18 0b 30 30 36 30 20 50 52 49 4e 54 20 0b 45 30 30 37 30 20 50 52 49 4e 54 20 ┆US*0.8 0060 PRINT E0070 PRINT ┆
0x19600…19620 (12, 1, 7) 55 53 49 4e 47 20 22 46 61 68 72 65 6e 68 65 69 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆USING "Fahrenheit: ┆
0x19620…19640 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 22 3a 46 41 48 52 45 4e 48 45 49 54 45 42 30 30 38 30 ┆####.## ":FAHRENHEITEB0080┆
0x19640…19660 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 43 65 6c 73 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 ┆ PRINT USING "Celsius: ┆
0x19660…19680 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 22 3a 43 45 4c 53 49 55 53 42 41 ┆ ####.## ":CELSIUSBA┆
0x19680…196a0 30 30 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 65 61 6d 75 72 3a 20 20 20 20 20 20 20 ┆0090 PRINT USING "Reamur: ┆
0x196a0…196c0 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 22 3a 52 45 41 4d 55 ┆ ####.## ":REAMU┆
0x196c0…196e0 52 41 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆RA cccccccccccccccccccccccccccc┆
0x196e0…19700 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x19700…19720 (12, 1, 8) ExtentHdr {name=»KRONEFOR«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001a,01 (0x01a100)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x19720…19740 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x19740…19760 2d 20 6b 72 6f 6e 65 66 6f 72 6d 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- kroneformat ------------------┆
0x19760…19780 2d 2d 2d 2d 2d 2d 45 08 30 30 32 30 20 2f 2f 20 08 28 30 30 33 30 20 50 52 4f 43 20 54 52 45 43 ┆------E 0020 // (0030 PROC TREC┆
0x19780…197a0 49 46 46 45 52 28 50 52 54 41 4c 2c 52 45 46 20 50 52 53 54 52 45 4e 47 24 29 28 16 30 30 35 30 ┆IFFER(PRTAL,REF PRSTRENG$)( 0050┆
0x197a0…197c0 20 49 46 20 50 52 54 41 4c 3d 3e 30 20 54 48 45 4e 20 16 11 30 30 36 30 20 46 4f 52 54 45 47 4e ┆ IF PRTAL=>0 THEN 0060 FORTEGN┆
0x197c0…197e0 24 3a 3d 22 22 11 0a 30 30 37 30 20 45 4c 53 45 20 0a 12 30 30 38 30 20 46 4f 52 54 45 47 4e 24 ┆$:="" 0070 ELSE 0080 FORTEGN$┆
0x197e0…19800 3a 3d 22 2d 22 12 0b 30 30 39 30 20 45 4e 44 49 46 20 0b 08 30 31 30 30 20 2f 2f 20 08 16 30 31 ┆:="-" 0090 ENDIF 0100 // 01┆
0x19800…19820 (12, 1, 9) 31 30 20 50 52 54 41 4c 3a 3d 41 42 53 28 50 52 54 41 4c 29 16 22 30 31 32 30 20 50 52 54 41 4c ┆10 PRTAL:=ABS(PRTAL) "0120 PRTAL┆
0x19820…19840 3a 3d 49 4e 54 28 50 52 54 41 4c 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 22 21 30 31 33 30 20 44 ┆:=INT(PRTAL*100+0.5)/100"!0130 D┆
0x19840…19860 45 43 49 4d 41 4c 44 45 4c 3a 3d 50 52 54 41 4c 2d 49 4e 54 28 50 52 54 41 4c 29 21 25 30 31 34 ┆ECIMALDEL:=PRTAL-INT(PRTAL)!%014┆
0x19860…19880 30 20 44 45 43 49 4d 41 4c 24 3a 3d 43 48 52 24 28 44 45 43 49 4d 41 4c 44 45 4c 2a 31 30 30 2c ┆0 DECIMAL$:=CHR$(DECIMALDEL*100,┆
0x19880…198a0 32 29 25 2d 30 31 35 30 20 49 46 20 44 45 43 49 4d 41 4c 24 28 31 29 3d 22 20 22 20 54 48 45 4e ┆2)%-0150 IF DECIMAL$(1)=" " THEN┆
0x198a0…198c0 20 44 45 43 49 4d 41 4c 24 28 31 29 3a 3d 22 30 22 2d 1e 30 31 36 30 20 48 45 4c 24 3a 3d 43 48 ┆ DECIMAL$(1):="0"- 0160 HEL$:=CH┆
0x198c0…198e0 52 24 28 49 4e 54 28 50 52 54 41 4c 29 2c 31 31 29 1e 11 30 31 37 30 20 4c 3a 3d 4c 45 4e 28 48 ┆R$(INT(PRTAL),11) 0170 L:=LEN(H┆
0x198e0…19900 45 4c 24 29 11 1a 30 31 38 30 20 49 46 20 48 45 4c 24 28 39 29 3c 3e 22 20 22 20 54 48 45 4e 20 ┆EL$) 0180 IF HEL$(9)<>" " THEN ┆
0x19900…19920 (12, 1, 10) 1a 1d 30 31 39 30 20 48 45 4c 24 28 4c 2d 31 3a 33 29 3a 3d 48 45 4c 24 28 4c 2d 32 3a 33 29 1d ┆ 0190 HEL$(L-1:3):=HEL$(L-2:3) ┆
0x19920…19940 13 30 32 30 30 20 48 45 4c 24 28 4c 2d 32 29 3a 3d 22 20 22 13 0b 30 32 31 30 20 45 4e 44 49 46 ┆ 0200 HEL$(L-2):=" " 0210 ENDIF┆
0x19940…19960 20 0b 1a 30 32 32 30 20 49 46 20 48 45 4c 24 28 36 29 3c 3e 22 20 22 20 54 48 45 4e 20 1a 1d 30 ┆ 0220 IF HEL$(6)<>" " THEN 0┆
0x19960…19980 32 33 30 20 48 45 4c 24 28 4c 2d 34 3a 37 29 3a 3d 48 45 4c 24 28 4c 2d 35 3a 37 29 1d 13 30 32 ┆230 HEL$(L-4:7):=HEL$(L-5:7) 02┆
0x19980…199a0 34 30 20 48 45 4c 24 28 4c 2d 35 29 3a 3d 22 20 22 13 0b 30 32 35 30 20 45 4e 44 49 46 20 0b 1a ┆40 HEL$(L-5):=" " 0250 ENDIF ┆
0x199a0…199c0 30 32 36 30 20 49 46 20 48 45 4c 24 28 33 29 3c 3e 22 20 22 20 54 48 45 4e 20 1a 1f 30 32 37 30 ┆0260 IF HEL$(3)<>" " THEN 0270┆
0x199c0…199e0 20 48 45 4c 24 28 4c 2d 37 3a 31 31 29 3a 3d 48 45 4c 24 28 4c 2d 38 3a 31 31 29 1f 13 30 32 38 ┆ HEL$(L-7:11):=HEL$(L-8:11) 028┆
0x199e0…19a00 30 20 48 45 4c 24 28 4c 2d 38 29 3a 3d 22 20 22 13 0b 30 32 39 30 20 45 4e 44 49 46 20 0b 26 30 ┆0 HEL$(L-8):=" " 0290 ENDIF &0┆
0x19a00…19a20 (12, 1, 11) 33 30 30 20 49 46 20 28 31 3d 30 29 20 41 4e 44 20 28 48 45 4c 24 28 32 29 3c 3e 22 20 22 29 20 ┆300 IF (1=0) AND (HEL$(2)<>" ") ┆
0x19a20…19a40 54 48 45 4e 20 26 21 30 33 31 30 20 48 45 4c 24 28 4c 2d 31 30 3a 31 35 29 3a 3d 48 45 4c 24 28 ┆THEN &!0310 HEL$(L-10:15):=HEL$(┆
0x19a40…19a60 4c 2d 31 31 3a 31 35 29 21 14 30 33 32 30 20 48 45 4c 24 28 4c 2d 31 31 29 3a 3d 22 20 22 14 0b ┆L-11:15)! 0320 HEL$(L-11):=" " ┆
0x19a60…19a80 30 33 33 30 20 45 4e 44 49 46 20 0b 08 30 33 34 30 20 2f 2f 20 08 2a 30 33 35 30 20 50 52 53 54 ┆0330 ENDIF 0340 // *0350 PRST┆
0x19a80…19aa0 52 45 4e 47 24 3a 3d 46 4f 52 54 45 47 4e 24 2b 48 45 4c 24 2b 22 2e 22 2b 44 45 43 49 4d 41 4c ┆RENG$:=FORTEGN$+HEL$+"."+DECIMAL┆
0x19aa0…19ac0 24 2a 08 30 33 36 30 20 2f 2f 20 08 16 30 33 37 30 20 45 4e 44 50 52 4f 43 20 54 52 45 43 49 46 ┆$* 0360 // 0370 ENDPROC TRECIF┆
0x19ac0…19ae0 46 45 52 16 08 30 33 38 30 20 2f 2f 20 08 0b 30 33 39 30 20 43 4c 45 41 52 20 0b 11 30 34 30 30 ┆FER 0380 // 0390 CLEAR 0400┆
0x19ae0…19b00 20 44 49 4d 20 53 24 20 4f 46 20 32 31 11 2f 30 34 30 35 20 44 49 4d 20 46 4f 52 54 45 47 4e 24 ┆ DIM S$ OF 21 /0405 DIM FORTEGN$┆
0x19b00…19b20 (12, 1, 12) 20 4f 46 20 31 2c 48 45 4c 24 20 4f 46 20 31 37 2c 44 45 43 49 4d 41 4c 24 20 4f 46 20 32 2f 0b ┆ OF 1,HEL$ OF 17,DECIMAL$ OF 2/ ┆
0x19b20…19b40 30 34 30 36 20 50 52 49 4e 54 20 0b 27 30 34 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆0406 PRINT '0410 INPUT "Indtast┆
0x19b40…19b60 20 65 74 20 62 65 6c 7c 62 3a 20 20 20 22 3a 42 45 4c 5c 42 27 1d 30 34 32 30 20 45 58 45 43 20 ┆ et beløb: ":BELØB' 0420 EXEC ┆
0x19b60…19b80 54 52 45 43 49 46 46 45 52 28 42 45 4c 5c 42 2c 53 24 29 1d 10 30 34 33 30 20 50 52 49 4e 54 20 ┆TRECIFFER(BELØB,S$) 0430 PRINT ┆
0x19b80…19ba0 42 45 4c 5c 42 10 0b 30 34 34 30 20 50 52 49 4e 54 20 0b 0d 30 34 35 30 20 50 52 49 4e 54 20 53 ┆BELØB 0440 PRINT 0450 PRINT S┆
0x19ba0…19bc0 24 0d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆$ cccccccccccccccccccccccccccc┆
0x19bc0…19be0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x19c00…19d00 (12, 1, 13) 0x63[0x100]
[…0x4…]
0x1a100…1a120 (13, 0, 2) ExtentHdr {name=»SPIL2_KO«, typ=»K«, seg=»A«, next=0x01, basis=0x0007, nextext={DA 001a,08 (0x01a800)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001a,08 (0x01a800)}, f99=41 1a 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1a120…1a140 4c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆L0010 // -----------------------┆
0x1a140…1a160 2d 20 73 70 69 6c 6b 6f 72 74 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- spilkort_2 -------------------┆
0x1a160…1a180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 29 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 ┆-------------L)0020 // Programme┆
0x1a180…1a1a0 74 20 75 64 73 6b 72 69 76 65 72 20 34 20 2a 20 31 33 20 6b 6f 72 74 2e 29 08 30 30 33 30 20 2f ┆t udskriver 4 * 13 kort.) 0030 /┆
0x1a1a0…1a1c0 2f 20 08 14 30 30 33 35 20 52 4e 44 53 45 45 44 3a 3d 33 2e 34 32 31 33 14 41 30 30 34 30 20 44 ┆/ 0035 RNDSEED:=3.4213 A0040 D┆
0x1a1c0…1a1e0 49 4d 20 46 41 52 56 45 24 28 34 29 20 4f 46 20 37 2c 42 52 55 47 54 24 20 4f 46 20 33 35 30 2c ┆IM FARVE$(4) OF 7,BRUGT$ OF 350,┆
0x1a1e0…1a200 4b 4f 52 54 24 28 31 33 29 20 4f 46 20 31 30 2c 43 41 52 44 24 20 4f 46 20 32 30 41 35 30 30 35 ┆KORT$(13) OF 10,CARD$ OF 20A5005┆
0x1a200…1a220 (13, 0, 3) 30 20 44 49 4d 20 53 50 49 4c 4c 45 52 24 28 35 32 29 20 4f 46 20 32 30 2c 43 4f 55 4c 45 55 52 ┆0 DIM SPILLER$(52) OF 20,COULEUR┆
0x1a220…1a240 24 20 4f 46 20 31 30 2c 53 56 41 52 24 20 4f 46 20 31 35 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 ┆$ OF 10,SVAR$ OF 15 0060 // 00┆
0x1a240…1a260 37 30 20 43 4c 45 41 52 20 0b 11 30 30 38 30 20 43 55 52 53 4f 52 20 33 31 2c 31 32 11 1d 30 30 ┆70 CLEAR 0080 CURSOR 31,12 00┆
0x1a260…1a280 39 30 20 50 52 49 4e 54 20 22 4c 69 67 65 20 65 74 20 7c 6a 65 62 6c 69 6b 21 22 1d 08 30 31 30 ┆90 PRINT "Lige et øjeblik!" 010┆
0x1a280…1a2a0 30 20 2f 2f 20 08 0f 30 31 31 30 20 42 52 55 47 54 24 3a 3d 22 22 0f 16 30 31 32 30 20 46 4f 52 ┆0 // 0110 BRUGT$:="" 0120 FOR┆
0x1a2a0…1a2c0 20 49 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 12 30 31 33 30 20 52 45 41 44 20 43 4f 55 4c 45 55 ┆ I:=1 TO 4 DO 0130 READ COULEU┆
0x1a2c0…1a2e0 52 24 12 18 30 31 34 30 20 46 41 52 56 45 24 28 49 29 3a 3d 43 4f 55 4c 45 55 52 24 18 0b 30 31 ┆R$ 0140 FARVE$(I):=COULEUR$ 01┆
0x1a2e0…1a300 35 30 20 4e 45 58 54 20 49 0b 08 30 31 36 30 20 2f 2f 20 08 17 30 31 37 30 20 46 4f 52 20 41 3a ┆50 NEXT I 0160 // 0170 FOR A:┆
0x1a300…1a320 (13, 0, 4) 3d 31 20 54 4f 20 31 33 20 44 4f 20 17 12 30 31 38 30 20 52 45 41 44 20 4b 4f 52 54 24 28 41 29 ┆=1 TO 13 DO 0180 READ KORT$(A)┆
0x1a320…1a340 12 0b 30 31 39 30 20 4e 45 58 54 20 41 0b 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 1a 30 32 31 30 ┆ 0190 NEXT A 0200 PRINT 0210┆
0x1a340…1a360 20 46 4f 52 20 54 49 52 45 3a 3d 31 20 54 4f 20 35 32 20 44 4f 20 1a 12 30 32 32 30 20 45 58 45 ┆ FOR TIRE:=1 TO 52 DO 0220 EXE┆
0x1a360…1a380 43 20 46 49 4e 44 4b 4f 52 54 12 1a 30 32 33 30 20 53 50 49 4c 4c 45 52 24 28 54 49 52 45 29 3a ┆C FINDKORT 0230 SPILLER$(TIRE):┆
0x1a380…1a3a0 3d 43 41 52 44 24 1a 0e 30 32 34 30 20 4e 45 58 54 20 54 49 52 45 0e 08 30 32 35 30 20 2f 2f 20 ┆=CARD$ 0240 NEXT TIRE 0250 // ┆
0x1a3a0…1a3c0 08 08 30 32 36 30 20 2f 2f 20 08 12 30 32 37 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 08 ┆ 0260 // 0270 EXEC UDSKRIFT ┆
0x1a3c0…1a3e0 30 32 38 30 20 2f 2f 20 08 12 30 32 39 30 20 50 52 4f 43 20 46 49 4e 44 4b 4f 52 54 12 0c 30 33 ┆0280 // 0290 PROC FINDKORT 03┆
0x1a3e0…1a400 30 30 20 52 45 50 45 41 54 20 0c 1c 30 33 31 30 20 43 41 52 44 24 3a 3d 46 41 52 56 45 24 28 52 ┆00 REPEAT 0310 CARD$:=FARVE$(R┆
0x1a400…1a420 (13, 0, 5) 4e 44 28 31 2c 34 29 29 1c 26 30 33 32 30 20 43 41 52 44 24 3a 3d 43 41 52 44 24 2b 22 20 22 2b ┆ND(1,4)) &0320 CARD$:=CARD$+" "+┆
0x1a420…1a440 4b 4f 52 54 24 28 52 4e 44 28 31 2c 31 33 29 29 26 1e 30 33 33 30 20 55 4e 54 49 4c 20 4e 4f 54 ┆KORT$(RND(1,13))& 0330 UNTIL NOT┆
0x1a440…1a460 20 43 41 52 44 24 20 49 4e 20 42 52 55 47 54 24 1e 19 30 33 34 30 20 42 52 55 47 54 24 3a 3d 42 ┆ CARD$ IN BRUGT$ 0340 BRUGT$:=B┆
0x1a460…1a480 52 55 47 54 24 2b 43 41 52 44 24 19 15 30 33 35 30 20 45 4e 44 50 52 4f 43 20 46 49 4e 44 4b 4f ┆RUGT$+CARD$ 0350 ENDPROC FINDKO┆
0x1a480…1a4a0 52 54 15 08 30 33 36 30 20 2f 2f 20 08 12 30 33 37 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 ┆RT 0360 // 0370 PROC UDSKRIFT┆
0x1a4a0…1a4c0 12 0e 30 33 38 30 20 5a 3a 3d 35 3b 50 3a 3d 31 0e 0b 30 33 39 30 20 43 4c 45 41 52 20 0b 0f 30 ┆ 0380 Z:=5;P:=1 0390 CLEAR 0┆
0x1a4c0…1a4e0 34 30 30 20 43 55 52 53 4f 52 20 32 2c 32 0f 17 30 34 31 30 20 50 52 49 4e 54 20 22 20 4e 20 4f ┆400 CURSOR 2,2 0410 PRINT " N O┆
0x1a4e0…1a500 20 52 20 44 20 2e 22 17 10 30 34 32 30 20 43 55 52 53 4f 52 20 32 32 2c 32 10 15 30 34 33 30 20 ┆ R D ." 0420 CURSOR 22,2 0430 ┆
0x1a500…1a520 (13, 0, 6) 50 52 49 4e 54 20 22 20 5c 20 53 20 54 20 2e 22 15 10 30 34 34 30 20 43 55 52 53 4f 52 20 34 32 ┆PRINT " Ø S T ." 0440 CURSOR 42┆
0x1a520…1a540 2c 32 10 15 30 34 35 30 20 50 52 49 4e 54 20 22 20 53 20 59 20 44 20 2e 22 15 10 30 34 36 30 20 ┆,2 0450 PRINT " S Y D ." 0460 ┆
0x1a540…1a560 43 55 52 53 4f 52 20 36 32 2c 32 10 17 30 34 37 30 20 50 52 49 4e 54 20 22 20 56 20 45 20 53 20 ┆CURSOR 62,2 0470 PRINT " V E S ┆
0x1a560…1a580 54 20 2e 22 17 4d 30 34 38 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T ." M0480 PRINT "--------------┆
0x1a580…1a5a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1a5a0…1a5c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3b 4d 1d 30 34 38 35 20 50 52 49 4e 54 20 ┆-----------------";M 0485 PRINT ┆
0x1a5c0…1a5e0 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 17 30 34 39 30 20 46 4f 52 20 58 3a 3d ┆"----------------" 0490 FOR X:=┆
0x1a5e0…1a600 31 20 54 4f 20 35 32 20 44 4f 20 17 34 30 35 30 30 20 43 55 52 53 4f 52 20 28 28 28 28 58 2d 31 ┆1 TO 52 DO 40500 CURSOR ((((X-1┆
0x1a600…1a620 (13, 0, 7) 29 20 44 49 56 20 31 33 29 2a 32 30 29 2b 33 29 2c 28 28 58 2d 31 29 20 4d 4f 44 20 31 33 2b 38 ┆) DIV 13)*20)+3),((X-1) MOD 13+8┆
0x1a620…1a640 29 34 1b 30 35 31 30 20 50 52 49 4e 54 20 53 50 49 4c 4c 45 52 24 28 58 29 3b 22 20 20 22 1b 0b ┆)4 0510 PRINT SPILLER$(X);" " ┆
0x1a640…1a660 30 35 32 30 20 4e 45 58 54 20 58 0b 15 30 35 33 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 ┆0520 NEXT X 0530 ENDPROC UDSKRI┆
0x1a660…1a680 46 54 15 08 30 35 34 30 20 2f 2f 20 08 29 30 35 35 30 20 44 41 54 41 20 22 6b 6c 7c 72 22 2c 22 ┆FT 0540 // )0550 DATA "klør","┆
0x1a680…1a6a0 72 75 64 65 72 22 2c 22 68 6a 65 72 74 65 72 22 2c 22 73 70 61 72 22 29 42 30 35 36 30 20 44 41 ┆ruder","hjerter","spar")B0560 DA┆
0x1a6a0…1a6c0 54 41 20 22 65 73 22 2c 22 32 22 2c 22 33 22 2c 22 34 22 2c 22 35 22 2c 22 36 22 2c 22 37 22 2c ┆TA "es","2","3","4","5","6","7",┆
0x1a6c0…1a6e0 22 38 22 2c 22 39 22 2c 22 31 30 22 2c 22 6b 6e 7b 67 74 22 2c 22 64 61 6d 65 22 42 11 30 35 36 ┆"8","9","10","knægt","dame"B 056┆
0x1a6e0…1a700 35 20 44 41 54 41 20 22 6b 6f 6e 67 65 22 11 08 30 35 37 30 20 2f 2f 20 08 11 30 35 39 30 20 43 ┆5 DATA "konge" 0570 // 0590 C┆
0x1a700…1a720 (13, 0, 8) 55 52 53 4f 52 20 37 30 2c 32 33 11 1a 30 36 30 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 ┆URSOR 70,23 0600 INPUT "Return!┆
0x1a720…1a740 22 3a 53 56 41 52 24 1a 10 30 36 33 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 48 30 36 34 30 20 ┆":SVAR$ 0630 CURSOR 1,22 H0640 ┆
0x1a740…1a760 50 52 49 4e 54 20 22 50 72 7c 76 20 61 74 20 6f 6d 66 6f 72 6d 65 20 70 72 6f 67 72 61 6d 6d 65 ┆PRINT "Prøv at omforme programme┆
0x1a760…1a780 74 2c 20 73 7d 6c 65 64 65 73 20 61 74 20 6b 6f 72 74 65 6e 65 20 65 72 20 73 6f 72 74 65 72 65 ┆t, således at kortene er sortere┆
0x1a780…1a7a0 74 2e 22 48 09 30 36 34 35 20 45 4e 44 20 09 05 30 36 35 30 20 05 17 30 36 36 30 20 50 52 4f 43 ┆t."H 0645 END 0650 0660 PROC┆
0x1a7a0…1a7c0 20 52 4e 44 28 4c 4f 57 2c 48 49 47 48 29 17 1a 30 36 37 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 ┆ RND(LOW,HIGH) 0670 RNDX:=RNDSE┆
0x1a7c0…1a7e0 45 44 2b 33 2e 31 34 31 35 39 1a 1c 30 36 38 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c ┆ED+3.14159 0680 RNDX:=EXP(5.0*L┆
0x1a7e0…1a800 4e 28 52 4e 44 58 29 29 1c 1c 30 36 39 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 ┆N(RNDX)) 0690 RNDSEED:=RNDX-INT┆
0x1a800…1a820 (13, 0, 9) ExtentHdr {name=»SPIL2_KO«, typ=»K«, seg=»B«, next=0x01, basis=0x0007, nextext={DA 0000,00 (0x000000)}, prevext={DA 001a,01 (0x01a100)}, nextfile={DA 001a,0f (0x01af00)}, f99=41 1a 00 20 00 00 00 00 00 00 ┆A ┆}
0x1a820…1a840 28 52 4e 44 58 29 1c 20 30 37 30 30 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d ┆(RNDX) 0700 RND:=RNDSEED*(HIGH-┆
0x1a840…1a860 4c 4f 57 29 2b 4c 4f 57 20 10 30 37 31 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 2d 2d 2d ┆LOW)+LOW 0710 ENDPROC RND ---┆
0x1a860…1a880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 29 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 ┆-------------L)0020 // Programme┆
0x1a880…1a8a0 74 20 75 64 73 6b 72 69 76 65 72 20 34 20 2a 20 31 33 20 6b 6f 72 74 2e 29 08 30 30 33 30 20 2f ┆t udskriver 4 * 13 kort.) 0030 /┆
0x1a8a0…1a8c0 2f 20 08 14 30 30 33 35 20 52 4e 44 53 45 45 44 3a 3d 33 2e 34 32 31 33 14 41 30 30 34 30 20 44 ┆/ 0035 RNDSEED:=3.4213 A0040 D┆
0x1a8c0…1a8e0 49 4d 20 46 41 52 56 45 24 28 34 29 20 4f 46 20 37 2c 42 52 55 47 54 24 20 4f 46 20 33 35 30 2c ┆IM FARVE$(4) OF 7,BRUGT$ OF 350,┆
0x1a8e0…1a900 4b 4f 52 54 24 28 31 33 29 20 4f 46 20 31 30 2c 43 41 52 44 24 20 4f 46 20 32 30 41 35 30 30 35 ┆KORT$(13) OF 10,CARD$ OF 20A5005┆
0x1a900…1aa00 (13, 0, 10) 0x63[0x100]
[…0x5…]
0x1af00…1af20 (13, 0, 16) ExtentHdr {name=»RAMMETXT«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001b,09 (0x01b900)}, f99=41 1a 00 ff 00 41 4d 4d 45 54 ┆A AMMET┆}
0x1af20…1af40 01 20 01 01 20 01 01 20 01 01 20 01 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ . ┆
0x1af40…1af60 20 20 20 20 20 20 20 42 65 72 65 67 6e 69 6e 67 20 61 66 20 72 75 6d 66 61 6e 67 2e 3b 20 20 20 ┆ Beregning af rumfang.; ┆
0x1af60…1af80 20 20 20 20 20 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ----------------------┆
0x1af80…1afa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 01 20 01 01 20 01 01 ┆------------------------; ┆
0x1afa0…1afc0 20 01 3f 20 20 20 20 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆ ? @@@@@@@@@@@@@@@@@@@@┆
0x1afc0…1afe0 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@┆
0x1afe0…1b000 40 40 3f 3f 20 20 20 20 20 20 20 20 20 40 20 20 6c 7b 6e 67 64 65 3a 20 20 20 20 40 20 20 62 72 ┆@@?? @ længde: @ br┆
0x1b000…1b020 (13, 1, 1) 65 64 64 65 3a 20 20 20 40 20 20 68 7c 6a 64 65 3a 20 20 20 20 40 20 20 72 75 6d 66 61 6e 67 3a ┆edde: @ højde: @ rumfang:┆
0x1b020…1b040 20 20 40 3f 3f 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 20 ┆ @?? @ @ ┆
0x1b040…1b060 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 ┆ @ @ ┆
0x1b060…1b080 20 20 20 40 3f 3f 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 ┆ @?? @ @ ┆
0x1b080…1b0a0 20 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 ┆ @ @ ┆
0x1b0a0…1b0c0 20 20 20 20 40 3f 3f 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 20 40 20 ┆ @?? @ @ ┆
0x1b0c0…1b0e0 20 20 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 20 20 20 20 20 40 20 20 20 20 20 20 20 ┆ @ @ ┆
0x1b0e0…1b100 20 20 20 20 20 40 3f 3f 20 20 20 20 20 20 20 20 20 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆ @?? @@@@@@@@@@@@@@@┆
0x1b100…1b120 (13, 1, 2) 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 40 ┆@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@┆
0x1b120…1b140 40 40 40 40 40 40 40 3f 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆@@@@@@@? cccccccccccccccccccccc┆
0x1b140…1b160 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x1b200…1b300 (13, 1, 3) 0x63[0x100]
[…0x6…]
0x1b900…1b920 (13, 1, 10) ExtentHdr {name=»SKOLEB2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 001c,03 (0x01c300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,03 (0x01c300)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x1b920…1b940 4d 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0100 // -----------------------┆
0x1b940…1b960 2d 2d 20 53 6b 6f 6c 65 62 6f 67 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- Skolebog_2 ------------------┆
0x1b960…1b980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 38 30 31 31 30 20 2f 2f 20 64 65 6e 2e 20 41 50 50 ┆--------------M80110 // den. APP┆
0x1b980…1b9a0 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 66 6f 72 20 64 65 6e 6e 65 20 43 6f 6d 61 6c 2d ┆END findes ikke for denne Comal-┆
0x1b9a0…1b9c0 76 65 72 73 69 6f 6e 2e 38 21 30 31 32 30 20 2f 2f 20 42 65 6e 79 74 20 65 76 74 2e 20 66 69 6c ┆version.8!0120 // Benyt evt. fil┆
0x1b9c0…1b9e0 65 20 27 73 79 73 74 69 6d 65 27 21 08 30 31 33 30 20 2f 2f 20 08 4a 30 31 34 30 20 44 49 4d 20 ┆e 'systime'! 0130 // J0140 DIM ┆
0x1b9e0…1ba00 46 41 47 24 20 4f 46 20 32 30 2c 46 4f 52 46 41 54 54 45 52 24 20 4f 46 20 32 30 2c 54 49 54 45 ┆FAG$ OF 20,FORFATTER$ OF 20,TITE┆
0x1ba00…1ba20 (13, 1, 11) 4c 24 20 4f 46 20 32 30 2c 46 49 4c 24 20 4f 46 20 31 36 2c 46 4f 52 4c 41 47 24 20 4f 46 20 32 ┆L$ OF 20,FIL$ OF 16,FORLAG$ OF 2┆
0x1ba20…1ba40 30 4a 10 30 31 35 30 20 44 49 4d 20 53 24 20 4f 46 20 31 10 19 30 31 36 30 20 49 4e 54 45 47 45 ┆0J 0150 DIM S$ OF 1 0160 INTEGE┆
0x1ba40…1ba60 52 20 4e 55 4d 4d 45 52 2c 5c 4e 53 4b 45 19 08 30 31 37 30 20 2f 2f 20 08 0c 30 31 38 30 20 52 ┆R NUMMER,ØNSKE 0170 // 0180 R┆
0x1ba60…1ba80 45 50 45 41 54 20 0c 0e 30 31 39 30 20 45 58 45 43 20 56 41 4c 47 0e 12 30 32 30 30 20 55 4e 54 ┆EPEAT 0190 EXEC VALG 0200 UNT┆
0x1ba80…1baa0 49 4c 20 5c 4e 53 4b 45 3d 34 12 08 30 32 31 30 20 2f 2f 20 08 0e 30 32 32 30 20 50 52 4f 43 20 ┆IL ØNSKE=4 0210 // 0220 PROC ┆
0x1baa0…1bac0 56 41 4c 47 0e 0b 30 32 33 30 20 43 4c 45 41 52 20 0b 0f 30 32 34 30 20 43 55 52 53 4f 52 20 31 ┆VALG 0230 CLEAR 0240 CURSOR 1┆
0x1bac0…1bae0 2c 33 0f 29 30 32 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 42 20 4f 20 47 20 4b 20 41 20 52 ┆,3 )0250 PRINT " B O G K A R┆
0x1bae0…1bb00 20 54 20 4f 20 54 20 45 20 4b 20 2e 22 29 3a 30 32 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆ T O T E K ."):0260 PRINT " ┆
0x1bb00…1bb20 (13, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1bb20…1bb40 2d 2d 2d 2d 2d 2d 2d 2d 22 3a 3a 30 32 37 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 44 75 20 68 ┆--------"::0270 PRINT " Du h┆
0x1bb40…1bb60 61 72 20 66 7c 6c 67 65 6e 64 65 20 6d 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 61 74 20 76 7b ┆ar følgende muligheder for at væ┆
0x1bb60…1bb80 6c 67 65 3a 22 3a 3a 30 32 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d ┆lge:"::0280 PRINT " --------┆
0x1bb80…1bba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1bba0…1bbc0 22 3a 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 3a 30 33 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 ┆": 0290 PRINT :0300 PRINT " ┆
0x1bbc0…1bbe0 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ Oprettelse af kartotek.........┆
0x1bbe0…1bc00 2e 2e 2e 54 61 73 74 20 31 22 3a 0b 30 33 31 30 20 50 52 49 4e 54 20 0b 3a 30 33 32 30 20 50 52 ┆...Tast 1": 0310 PRINT :0320 PR┆
0x1bc00…1bc20 (13, 1, 13) 49 4e 54 20 22 20 20 20 20 20 54 69 6c 66 7c 6a 65 6c 73 65 20 69 20 6b 61 72 74 6f 74 65 6b 2e ┆INT " Tilføjelse i kartotek.┆
0x1bc20…1bc40 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3a 0b 30 33 33 30 20 50 52 49 4e 54 20 ┆............Tast 2": 0330 PRINT ┆
0x1bc40…1bc60 0b 3a 30 33 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 55 64 6c 7b 73 6e 69 6e 67 65 6e 20 61 ┆ :0340 PRINT " Udlæsningen a┆
0x1bc60…1bc80 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 33 22 3a 0b 30 33 ┆f kartotek...........Tast 3": 03┆
0x1bc80…1bca0 35 30 20 50 52 49 4e 54 20 0b 3a 30 33 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 5c 6e 73 6b ┆50 PRINT :0360 PRINT " Ønsk┆
0x1bca0…1bcc0 65 72 20 64 75 20 61 74 20 73 6c 75 74 74 65 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 ┆er du at slutte...............Ta┆
0x1bcc0…1bce0 73 74 20 34 22 3a 0c 30 33 37 30 20 52 45 50 45 41 54 20 0c 10 30 33 38 30 20 43 55 52 53 4f 52 ┆st 4": 0370 REPEAT 0380 CURSOR┆
0x1bce0…1bd00 20 36 2c 32 30 10 22 30 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 ┆ 6,20 "0390 INPUT "Indtast ønske┆
0x1bd00…1bd20 (13, 1, 14) 3a 20 22 3a 5c 4e 53 4b 45 22 33 30 34 30 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 31 20 4f 52 ┆: ":ØNSKE"30400 UNTIL ØNSKE=1 OR┆
0x1bd20…1bd40 20 5c 4e 53 4b 45 3d 32 20 4f 52 20 5c 4e 53 4b 45 3d 33 20 4f 52 20 5c 4e 53 4b 45 3d 34 33 13 ┆ ØNSKE=2 OR ØNSKE=3 OR ØNSKE=43 ┆
0x1bd40…1bd60 30 34 31 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 34 32 30 20 57 48 45 4e 20 31 ┆0410 CASE ØNSKE OF 0420 WHEN 1┆
0x1bd60…1bd80 0b 0f 30 34 33 30 20 45 58 45 43 20 4f 50 52 45 54 0f 0b 30 34 34 30 20 57 48 45 4e 20 32 0b 10 ┆ 0430 EXEC OPRET 0440 WHEN 2 ┆
0x1bd80…1bda0 30 34 35 30 20 45 58 45 43 20 54 49 4c 46 5c 4a 10 0b 30 34 36 30 20 57 48 45 4e 20 33 0b 12 30 ┆0450 EXEC TILFØJ 0460 WHEN 3 0┆
0x1bda0…1bdc0 34 37 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 0f 30 34 38 30 20 4f 54 48 45 52 57 49 53 ┆470 EXEC UDSKRIFT 0480 OTHERWIS┆
0x1bdc0…1bde0 45 20 0f 10 30 34 39 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 24 30 35 30 30 20 50 52 49 4e 54 ┆E 0490 CURSOR 5,22 $0500 PRINT┆
0x1bde0…1be00 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 64 61 67 2e 22 24 0d 30 35 31 30 ┆ "Så slutter vi for idag."$ 0510┆
0x1be00…1be20 (13, 1, 15) 20 45 4e 44 43 41 53 45 20 0d 11 30 35 32 30 20 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 08 30 35 ┆ ENDCASE 0520 ENDPROC VALG 05┆
0x1be20…1be40 33 30 20 2f 2f 20 08 0f 30 35 34 30 20 50 52 4f 43 20 4f 50 52 45 54 0f 0b 30 35 35 30 20 43 4c ┆30 // 0540 PROC OPRET 0550 CL┆
0x1be40…1be60 45 41 52 20 0b 0f 30 35 36 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 30 30 35 37 30 20 49 4e 50 55 ┆EAR 0560 CURSOR 1,6 00570 INPU┆
0x1be60…1be80 54 20 22 4e 61 76 6e 20 70 7d 20 66 69 6c 65 6e 20 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Navn på filen : ┆
0x1be80…1bea0 20 22 3a 46 49 4c 24 30 24 30 35 38 30 20 4e 55 4d 4d 45 52 3a 3d 30 3b 46 49 4c 24 3a 3d 22 53 ┆ ":FIL$0$0580 NUMMER:=0;FIL$:="S┆
0x1bea0…1bec0 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 24 10 30 35 39 30 20 43 52 45 41 54 45 20 46 49 4c 24 10 ┆YSTIME:"+FIL$$ 0590 CREATE FIL$ ┆
0x1bec0…1bee0 10 30 36 30 30 20 4f 50 45 4e 20 46 49 4c 24 2c 57 10 0c 30 36 31 30 20 52 45 50 45 41 54 20 0c ┆ 0600 OPEN FIL$,W 0610 REPEAT ┆
0x1bee0…1bf00 0b 30 36 32 30 20 43 4c 45 41 52 20 0b 0f 30 36 33 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 27 30 ┆ 0620 CLEAR 0630 CURSOR 1,4 '0┆
0x1bf00…1bf20 (13, 1, 16) 36 34 30 20 50 52 49 4e 54 20 22 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6e 79 74 20 6b 61 72 ┆640 PRINT "Oprettelse af nyt kar┆
0x1bf20…1bf40 74 6f 74 65 6b 22 27 48 30 36 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆totek"'H0650 PRINT "------------┆
0x1bf40…1bf60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1bf60…1bf80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 48 15 30 36 36 30 20 4e 55 4d 4d 45 52 3a 3d 4e ┆---------------"H 0660 NUMMER:=N┆
0x1bf80…1bfa0 55 4d 4d 45 52 2b 31 15 0f 30 36 37 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 24 30 36 38 30 20 50 ┆UMMER+1 0670 CURSOR 1,8 $0680 P┆
0x1bfa0…1bfc0 52 49 4e 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 22 3b 4e 55 4d 4d 45 52 24 0b ┆RINT "Nummer: ";NUMMER$ ┆
0x1bfc0…1bfe0 30 36 39 30 20 50 52 49 4e 54 20 0b 33 30 37 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆0690 PRINT 30700 INPUT "Indtast┆
0x1bfe0…1c000 20 66 61 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 41 47 24 ┆ fag: ":FAG$┆
0x1c000…1c020 (14, 0, 1) 33 39 30 37 31 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 20 66 6f 72 66 61 74 74 65 72 3a ┆390710 INPUT "indtast forfatter:┆
0x1c020…1c040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 4f 52 46 41 54 54 45 52 24 39 35 30 37 32 ┆ ":FORFATTER$95072┆
0x1c040…1c060 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 20 74 69 74 65 6c 3a 20 20 20 20 20 20 20 20 20 ┆0 INPUT "indtast titel: ┆
0x1c060…1c080 20 20 20 20 20 20 20 20 20 20 22 3a 54 49 54 45 4c 24 35 36 30 37 33 30 20 49 4e 50 55 54 20 22 ┆ ":TITEL$560730 INPUT "┆
0x1c080…1c0a0 69 6e 64 74 61 73 74 20 66 6f 72 6c 61 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆indtast forlag: ┆
0x1c0a0…1c0c0 20 22 3a 46 4f 52 4c 41 47 24 36 33 30 37 34 30 20 50 55 54 20 46 49 4c 24 3a 4e 55 4d 4d 45 52 ┆ ":FORLAG$630740 PUT FIL$:NUMMER┆
0x1c0c0…1c0e0 2c 46 41 47 24 2c 46 4f 52 46 41 54 54 45 52 24 2c 54 49 54 45 4c 24 2c 46 4f 52 4c 41 47 24 33 ┆,FAG$,FORFATTER$,TITEL$,FORLAG$3┆
0x1c0e0…1c100 0c 30 37 35 30 20 52 45 50 45 41 54 20 0c 10 30 37 36 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 ┆ 0750 REPEAT 0760 CURSOR 1,22 ┆
0x1c100…1c120 (14, 0, 2) 2d 30 37 37 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 74 73 7b ┆-0770 INPUT "Ønsker du at fortsæ┆
0x1c120…1c140 74 74 65 3f 20 20 6a 2f 6e 20 22 3a 53 24 2d 2f 30 37 38 30 20 55 4e 54 49 4c 20 53 24 3d 22 4a ┆tte? j/n ":S$-/0780 UNTIL S$="J┆
0x1c140…1c160 22 20 4f 52 20 53 24 3d 22 6a 22 20 4f 52 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 2f ┆" OR S$="j" OR S$="N" OR S$="n"/┆
0x1c160…1c180 1b 30 37 39 30 20 55 4e 54 49 4c 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 11 30 38 ┆ 0790 UNTIL S$="N" OR S$="n" 08┆
0x1c180…1c1a0 30 30 20 45 4e 44 46 49 4c 45 20 46 49 4c 24 11 0f 30 38 31 30 20 43 4c 4f 53 45 20 46 49 4c 24 ┆00 ENDFILE FIL$ 0810 CLOSE FIL$┆
0x1c1a0…1c1c0 0f 12 30 38 32 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 08 30 38 33 30 20 2f 2f 20 08 08 ┆ 0820 ENDPROC OPRET 0830 // ┆
0x1c1c0…1c1e0 30 38 34 30 20 2f 2f 20 08 12 30 38 35 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 38 ┆0840 // 0850 PROC UDSKRIFT 08┆
0x1c1e0…1c200 36 30 20 43 4c 45 41 52 20 0b 30 30 38 37 30 20 49 4e 50 55 54 20 22 46 69 6c 65 6e 73 20 6e 61 ┆60 CLEAR 00870 INPUT "Filens na┆
0x1c200…1c220 (14, 0, 3) 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 49 4c 24 30 0b 30 38 38 ┆vn: ":FIL$0 088┆
0x1c220…1c240 30 20 50 52 49 4e 54 20 0b 1a 30 38 39 30 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b ┆0 PRINT 0890 FIL$:="SYSTIME:"+┆
0x1c240…1c260 46 49 4c 24 1a 10 30 39 30 30 20 4f 50 45 4e 20 46 49 4c 24 2c 52 10 4b 30 39 31 30 20 50 52 49 ┆FIL$ 0900 OPEN FIL$,R K0910 PRI┆
0x1c260…1c280 4e 54 20 22 4e 72 3a 20 20 46 61 67 3a 20 20 20 20 20 20 20 46 6f 72 66 61 74 74 65 72 3a 20 20 ┆NT "Nr: Fag: Forfatter: ┆
0x1c280…1c2a0 20 20 20 20 20 20 20 20 20 20 54 69 74 65 6c 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Titel: ┆
0x1c2a0…1c2c0 20 22 3b 4b 13 30 39 32 30 20 50 52 49 4e 54 20 22 46 6f 72 6c 61 67 22 13 4b 30 39 33 30 20 50 ┆ ";K 0920 PRINT "Forlag" K0930 P┆
0x1c2c0…1c2e0 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆RINT "__________________________┆
0x1c2e0…1c300 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1c300…1c320 (14, 0, 4) ExtentHdr {name=»SKOLEB2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 001b,09 (0x01b900)}, nextfile={DA 001c,0d (0x01cd00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x1c320…1c340 5f 5f 5f 22 3b 4b 1f 30 39 34 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆___";K 0940 PRINT "_____________┆
0x1c340…1c360 5f 5f 5f 5f 5f 22 1f 0b 30 39 35 30 20 50 52 49 4e 54 20 0b 33 30 39 36 30 20 47 45 54 20 46 49 ┆_____" 0950 PRINT 30960 GET FI┆
0x1c360…1c380 4c 24 3a 4e 55 4d 4d 45 52 2c 46 41 47 24 2c 46 4f 52 46 41 54 54 45 52 24 2c 54 49 54 45 4c 24 ┆L$:NUMMER,FAG$,FORFATTER$,TITEL$┆
0x1c380…1c3a0 2c 46 4f 52 4c 41 47 24 33 1c 30 39 37 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 46 49 4c ┆,FORLAG$3 0970 WHILE NOT EOF(FIL┆
0x1c3a0…1c3c0 24 29 20 44 4f 20 1c 47 30 39 38 30 20 50 52 49 4e 54 20 4e 55 4d 4d 45 52 3b 22 20 20 20 22 3b ┆$) DO G0980 PRINT NUMMER;" ";┆
0x1c3c0…1c3e0 46 41 47 24 3b 54 41 42 28 31 37 29 3b 46 4f 52 46 41 54 54 45 52 24 3b 54 41 42 28 33 39 29 3b ┆FAG$;TAB(17);FORFATTER$;TAB(39);┆
0x1c3e0…1c400 54 49 54 45 4c 24 3b 54 41 42 28 36 32 29 3b 47 12 30 39 39 30 20 50 52 49 4e 54 20 46 4f 52 4c ┆TITEL$;TAB(62);G 0990 PRINT FORL┆
0x1c400…1c420 (14, 0, 5) 41 47 24 12 33 30 39 39 35 20 47 45 54 20 46 49 4c 24 3a 4e 55 4d 4d 45 52 2c 46 41 47 24 2c 46 ┆AG$ 30995 GET FIL$:NUMMER,FAG$,F┆
0x1c420…1c440 4f 52 46 41 54 54 45 52 24 2c 54 49 54 45 4c 24 2c 46 4f 52 4c 41 47 24 33 0e 31 30 30 30 20 45 ┆ORFATTER$,TITEL$,FORLAG$3 1000 E┆
0x1c440…1c460 4e 44 57 48 49 4c 45 20 0e 0f 31 30 32 30 20 43 4c 4f 53 45 20 46 49 4c 24 0f 11 31 30 33 30 20 ┆NDWHILE 1020 CLOSE FIL$ 1030 ┆
0x1c460…1c480 43 55 52 53 4f 52 20 36 35 2c 32 32 11 1c 31 30 34 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 ┆CURSOR 65,22 1040 INPUT "Tast r┆
0x1c480…1c4a0 65 74 75 72 6e 20 22 3a 53 24 1c 15 31 30 35 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 ┆eturn ":S$ 1050 ENDPROC UDSKRIF┆
0x1c4a0…1c4c0 54 15 08 31 30 36 30 20 2f 2f 20 08 10 31 30 37 30 20 50 52 4f 43 20 54 49 4c 46 5c 4a 10 0b 31 ┆T 1060 // 1070 PROC TILFØJ 1┆
0x1c4c0…1c4e0 30 38 30 20 43 4c 45 41 52 20 0b 11 31 30 39 30 20 43 55 52 53 4f 52 20 32 35 2c 31 32 11 37 31 ┆080 CLEAR 1090 CURSOR 25,12 71┆
0x1c4e0…1c500 31 30 30 20 50 52 49 4e 54 20 22 41 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d ┆100 PRINT "APPEND findes ikke på┆
0x1c500…1c520 (14, 0, 6) 20 64 65 6e 6e 65 20 43 6f 6d 61 6c 2d 76 65 72 73 69 6f 6e 2e 22 37 11 31 31 31 30 20 43 55 52 ┆ denne Comal-version."7 1110 CUR┆
0x1c520…1c540 53 4f 52 20 36 35 2c 32 32 11 17 31 31 32 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a ┆SOR 65,22 1120 INPUT "Return!":┆
0x1c540…1c560 53 24 17 13 31 31 33 30 20 45 4e 44 50 52 4f 43 20 54 49 4c 46 5c 4a 13 15 31 31 34 30 20 50 52 ┆S$ 1130 ENDPROC TILFØJ 1140 PR┆
0x1c560…1c580 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 4b 31 31 35 30 20 2f 2f 20 45 4f 46 20 66 69 6e 64 ┆OC EOF(FNAVN$) K1150 // EOF find┆
0x1c580…1c5a0 65 73 20 69 6b 6b 65 20 69 20 44 44 45 2d 43 4f 4d 41 4c 38 30 20 69 20 73 74 65 64 65 74 20 62 ┆es ikke i DDE-COMAL80 i stedet b┆
0x1c5a0…1c5c0 65 6e 79 74 74 65 73 20 73 74 61 6e 64 61 72 64 20 66 75 6e 6b 74 69 6f 6e 65 6e 4b 46 31 31 36 ┆enyttes standard funktionenKF116┆
0x1c5c0…1c5e0 30 20 2f 2f 20 53 54 41 54 55 53 28 66 69 6c 6e 61 76 6e 29 2c 20 73 6f 6d 20 72 65 74 75 72 6e ┆0 // STATUS(filnavn), som return┆
0x1c5e0…1c600 65 72 65 72 20 6d 65 64 20 76 7b 72 64 69 65 6e 20 31 39 20 76 65 64 20 45 4e 44 2d 4f 46 2d 46 ┆erer med værdien 19 ved END-OF-F┆
0x1c600…1c620 (14, 0, 7) 49 4c 45 46 1d 31 31 37 30 20 45 4f 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e 24 29 3d 31 ┆ILEF 1170 EOF:=(STATUS(FNAVN$)=1┆
0x1c620…1c640 39 29 1d 10 31 31 38 30 20 45 4e 44 50 52 4f 43 20 45 4f 46 10 09 31 31 39 30 20 2f 2f 20 24 09 ┆9) 1180 ENDPROC EOF 1190 // $ ┆
0x1c640…1c660 17 31 32 30 30 20 2f 2f 20 35 22 22 35 22 22 35 22 22 35 22 22 35 22 22 17 16 31 32 31 30 20 2f ┆ 1200 // 5""5""5""5""5"" 1210 /┆
0x1c660…1c680 2f 20 22 22 35 22 22 35 22 22 35 22 22 35 22 22 16 0b 31 32 32 30 20 2f 2f 20 67 3a 22 0b 14 31 ┆/ ""5""5""5""5"" 1220 // g:" 1┆
0x1c680…1c6a0 32 33 30 20 2f 2f 20 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 14 00 00 63 63 63 63 63 63 63 63 63 63 ┆230 // ___________" cccccccccc┆
0x1c6a0…1c6c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x1c700…1c800 (14, 0, 8) 0x63[0x100]
[…0x5…]
0x1cd00…1cd20 (14, 0, 14) ExtentHdr {name=»FUNKTION«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001c,0f (0x01cf00)}, f99=41 1c 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1cd20…1cd40 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G0010 // -----------------------┆
0x1cd40…1cd60 2d 2d 2d 2d 20 66 75 6e 6b 74 69 6f 6e 5f 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆---- funktion_g ----------------┆
0x1cd60…1cd80 2d 2d 2d 2d 2d 2d 2d 2d 47 08 30 30 32 30 20 2f 2f 20 08 0e 30 30 33 30 20 50 52 4f 43 20 47 28 ┆--------G 0020 // 0030 PROC G(┆
0x1cd80…1cda0 58 29 0e 12 30 30 34 30 20 49 46 20 58 3d 3e 30 20 54 48 45 4e 20 12 10 30 30 35 30 20 47 3a 3d ┆X) 0040 IF X=>0 THEN 0050 G:=┆
0x1cda0…1cdc0 28 58 2d 34 29 2a 2a 32 10 0a 30 30 36 30 20 45 4c 53 45 20 0a 0c 30 30 37 30 20 47 3a 3d 58 2b ┆(X-4)**2 0060 ELSE 0070 G:=X+┆
0x1cdc0…1cde0 31 36 0c 0b 30 30 38 30 20 45 4e 44 49 46 20 0b 0e 30 30 39 30 20 45 4e 44 50 52 4f 43 20 47 0e ┆16 0080 ENDIF 0090 ENDPROC G ┆
0x1cde0…1ce00 08 30 31 30 30 20 2f 2f 20 08 0b 30 31 31 30 20 43 4c 45 41 52 20 0b 1f 30 31 32 30 20 50 52 49 ┆ 0100 // 0110 CLEAR 0120 PRI┆
0x1ce00…1ce20 (14, 0, 15) 4e 54 20 22 20 20 78 20 20 20 20 20 20 20 20 20 67 28 78 29 20 20 22 1f 0b 30 31 33 30 20 50 52 ┆NT " x g(x) " 0130 PR┆
0x1ce20…1ce40 49 4e 54 20 0b 18 30 31 34 30 20 46 4f 52 20 49 3a 3d 2d 31 36 20 54 4f 20 38 20 44 4f 20 18 2a ┆INT 0140 FOR I:=-16 TO 8 DO *┆
0x1ce40…1ce60 30 31 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 20 20 20 23 23 23 23 23 23 2e ┆0150 PRINT USING "#### ######.┆
0x1ce60…1ce80 23 23 22 3a 49 2c 47 28 49 29 2a 0b 30 31 36 30 20 4e 45 58 54 20 49 0b 00 00 63 63 63 63 63 63 ┆##":I,G(I)* 0160 NEXT I cccccc┆
0x1ce80…1cea0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x1cf00…1cf20 (14, 0, 16) ExtentHdr {name=»JOURNALN«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001d,09 (0x01d900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x1cf20…1cf40 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆G0010 // ---------------------- ┆
0x1cf40…1cf60 6a 6f 75 72 6e 61 6c 6e 72 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆journalnr ----------------------┆
0x1cf60…1cf80 2d 2d 2d 2d 2d 2d 2d 2d 47 46 30 30 32 30 20 2f 2f 20 45 74 20 6c 6f 76 6c 69 67 74 20 6a 6f 75 ┆--------GF0020 // Et lovligt jou┆
0x1cf80…1cfa0 72 6e 61 6c 6e 75 6d 6d 65 72 20 62 65 73 74 7d 72 20 61 66 20 65 74 20 73 74 6f 72 74 20 62 6f ┆rnalnummer består af et stort bo┆
0x1cfa0…1cfc0 67 73 74 61 76 2c 20 65 6e 20 62 69 6e 64 65 2d 46 46 30 30 33 30 20 2f 2f 20 73 74 72 65 67 2c ┆gstav, en binde-FF0030 // streg,┆
0x1cfc0…1cfe0 20 74 6f 20 63 69 66 72 65 2c 20 65 6e 20 62 69 6e 64 65 73 74 72 65 67 20 6f 67 20 74 72 65 20 ┆ to cifre, en bindestreg og tre ┆
0x1cfe0…1d000 63 69 66 72 65 2e 20 42 6c 61 6e 6b 74 65 67 6e 20 65 72 20 69 6b 6b 65 46 26 30 30 34 30 20 2f ┆cifre. Blanktegn er ikkeF&0040 /┆
0x1d000…1d020 (14, 1, 1) 2f 20 74 69 6c 6c 61 64 74 2c 20 6d 65 6e 20 6e 6f 6b 20 66 7c 72 20 6f 67 20 65 66 74 65 72 2e ┆/ tilladt, men nok før og efter.┆
0x1d020…1d040 26 48 30 30 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆&H0050 // ----------------------┆
0x1d040…1d060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d060…1d080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 1d 30 30 35 35 20 49 4e 54 45 47 45 52 20 46 41 4c 53 45 2c 54 ┆----------H 0055 INTEGER FALSE,T┆
0x1d080…1d0a0 52 55 45 2c 43 48 45 43 4b 1d 15 30 30 35 36 20 46 41 4c 53 45 3a 3d 30 3b 54 52 55 45 3a 3d 31 ┆RUE,CHECK 0056 FALSE:=0;TRUE:=1┆
0x1d0a0…1d0c0 15 23 30 30 36 30 20 50 52 4f 43 20 46 4e 4a 4f 55 52 4e 41 4c 4e 52 5f 4f 4b 28 50 52 4e 55 4d ┆ #0060 PROC FNJOURNALNR_OK(PRNUM┆
0x1d0c0…1d0e0 4d 45 52 24 29 23 10 30 30 37 30 20 43 48 45 43 4b 3a 3d 54 52 55 45 10 21 30 30 38 30 20 57 48 ┆MER$)# 0070 CHECK:=TRUE !0080 WH┆
0x1d0e0…1d100 49 4c 45 20 50 52 4e 55 4d 4d 45 52 24 28 31 3a 31 29 3d 22 20 22 20 44 4f 20 21 2d 30 30 39 30 ┆ILE PRNUMMER$(1:1)=" " DO !-0090┆
0x1d100…1d120 (14, 1, 2) 20 50 52 4e 55 4d 4d 45 52 24 3a 3d 50 52 4e 55 4d 4d 45 52 24 28 32 3a 4c 45 4e 28 50 52 4e 55 ┆ PRNUMMER$:=PRNUMMER$(2:LEN(PRNU┆
0x1d120…1d140 4d 4d 45 52 24 29 2d 31 29 2d 0e 30 31 30 30 20 45 4e 44 57 48 49 4c 45 20 0e 1e 30 31 31 30 20 ┆MMER$)-1)- 0100 ENDWHILE 0110 ┆
0x1d140…1d160 49 46 20 4c 45 4e 28 50 52 4e 55 4d 4d 45 52 24 29 3c 38 20 54 48 45 4e 20 1e 11 30 31 32 30 20 ┆IF LEN(PRNUMMER$)<8 THEN 0120 ┆
0x1d160…1d180 43 48 45 43 4b 3a 3d 46 41 4c 53 45 11 0a 30 31 33 30 20 45 4c 53 45 20 0a 4a 30 31 34 30 20 49 ┆CHECK:=FALSE 0130 ELSE J0140 I┆
0x1d180…1d1a0 46 20 4f 52 44 28 50 52 4e 55 4d 4d 45 52 24 28 31 3a 31 29 29 3c 36 35 20 4f 52 20 4f 52 44 28 ┆F ORD(PRNUMMER$(1:1))<65 OR ORD(┆
0x1d1a0…1d1c0 50 52 4e 55 4d 4d 45 52 24 28 31 3a 31 29 29 3e 39 33 20 54 48 45 4e 20 43 48 45 43 4b 3a 3d 46 ┆PRNUMMER$(1:1))>93 THEN CHECK:=F┆
0x1d1c0…1d1e0 41 4c 53 45 4a 2d 30 31 35 30 20 49 46 20 50 52 4e 55 4d 4d 45 52 24 28 32 3a 31 29 3c 3e 22 2d ┆ALSEJ-0150 IF PRNUMMER$(2:1)<>"-┆
0x1d1e0…1d200 22 20 54 48 45 4e 20 43 48 45 43 4b 3a 3d 46 41 4c 53 45 2d 16 30 31 36 30 20 46 4f 52 20 49 3a ┆" THEN CHECK:=FALSE- 0160 FOR I:┆
0x1d200…1d220 (14, 1, 3) 3d 33 20 54 4f 20 34 20 44 4f 20 16 3c 30 31 37 30 20 49 46 20 4e 4f 54 20 50 52 4e 55 4d 4d 45 ┆=3 TO 4 DO <0170 IF NOT PRNUMME┆
0x1d220…1d240 52 24 28 49 3a 31 29 20 49 4e 20 22 30 31 32 33 34 35 36 37 38 39 22 20 54 48 45 4e 20 43 48 45 ┆R$(I:1) IN "0123456789" THEN CHE┆
0x1d240…1d260 43 4b 3a 3d 46 41 4c 53 45 3c 0b 30 31 38 30 20 4e 45 58 54 20 49 0b 2d 30 31 39 30 20 49 46 20 ┆CK:=FALSE< 0180 NEXT I -0190 IF ┆
0x1d260…1d280 50 52 4e 55 4d 4d 45 52 24 28 35 3a 31 29 3c 3e 22 2d 22 20 54 48 45 4e 20 43 48 45 43 4b 3a 3d ┆PRNUMMER$(5:1)<>"-" THEN CHECK:=┆
0x1d280…1d2a0 46 41 4c 53 45 2d 16 30 32 30 30 20 46 4f 52 20 49 3a 3d 36 20 54 4f 20 38 20 44 4f 20 16 3c 30 ┆FALSE- 0200 FOR I:=6 TO 8 DO <0┆
0x1d2a0…1d2c0 32 31 30 20 49 46 20 4e 4f 54 20 50 52 4e 55 4d 4d 45 52 24 28 49 3a 31 29 20 49 4e 20 22 30 31 ┆210 IF NOT PRNUMMER$(I:1) IN "01┆
0x1d2c0…1d2e0 32 33 34 35 36 37 38 39 22 20 54 48 45 4e 20 43 48 45 43 4b 3a 3d 46 41 4c 53 45 3c 0b 30 32 32 ┆23456789" THEN CHECK:=FALSE< 022┆
0x1d2e0…1d300 30 20 4e 45 58 54 20 49 0b 23 30 32 33 30 20 46 4f 52 20 49 3a 3d 39 20 54 4f 20 4c 45 4e 28 50 ┆0 NEXT I #0230 FOR I:=9 TO LEN(P┆
0x1d300…1d320 (14, 1, 4) 52 4e 55 4d 4d 45 52 24 29 20 44 4f 20 23 2d 30 32 34 30 20 49 46 20 50 52 4e 55 4d 4d 45 52 24 ┆RNUMMER$) DO #-0240 IF PRNUMMER$┆
0x1d320…1d340 28 49 3a 31 29 3c 3e 22 20 22 20 54 48 45 4e 20 43 48 45 43 4b 3a 3d 46 41 4c 53 45 2d 0b 30 32 ┆(I:1)<>" " THEN CHECK:=FALSE- 02┆
0x1d340…1d360 35 30 20 4e 45 58 54 20 49 0b 0b 30 32 36 30 20 45 4e 44 49 46 20 0b 1a 30 32 37 30 20 46 4e 4a ┆50 NEXT I 0260 ENDIF 0270 FNJ┆
0x1d360…1d380 4f 55 52 4e 41 4c 4e 52 5f 4f 4b 3a 3d 43 48 45 43 4b 1a 1b 30 32 38 30 20 45 4e 44 50 52 4f 43 ┆OURNALNR_OK:=CHECK 0280 ENDPROC┆
0x1d380…1d3a0 20 46 4e 4a 4f 55 52 4e 41 4c 4e 52 5f 4f 4b 1b 43 30 32 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆ FNJOURNALNR_OK C0290 // -------┆
0x1d3a0…1d3c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d3c0…1d3e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0b 30 33 30 30 20 43 4c 45 41 52 ┆--------------------C 0300 CLEAR┆
0x1d3e0…1d400 20 0b 12 30 33 31 30 20 44 49 4d 20 4e 52 24 20 4f 46 20 32 30 12 0b 30 33 31 35 20 50 52 49 4e ┆ 0310 DIM NR$ OF 20 0315 PRIN┆
0x1d400…1d420 (14, 1, 5) 54 20 0b 2a 30 33 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6a 6f 75 72 6e 61 6c 6e ┆T *0320 INPUT "Indtast journaln┆
0x1d420…1d440 75 6d 6d 65 72 3a 20 20 20 22 3a 4e 52 24 2a 21 30 33 33 30 20 49 46 20 46 4e 4a 4f 55 52 4e 41 ┆ummer: ":NR$*!0330 IF FNJOURNA┆
0x1d440…1d460 4c 4e 52 5f 4f 4b 28 4e 52 24 29 20 54 48 45 4e 20 21 30 30 33 34 30 20 50 52 49 4e 54 20 22 4a ┆LNR_OK(NR$) THEN !00340 PRINT "J┆
0x1d460…1d480 6f 75 72 6e 61 6c 6e 75 6d 6d 65 72 65 74 20 22 3b 4e 52 24 2c 22 20 65 72 20 69 20 6f 72 64 65 ┆ournalnummeret ";NR$," er i orde┆
0x1d480…1d4a0 6e 2e 22 30 0a 30 33 35 30 20 45 4c 53 45 20 0a 33 30 33 36 30 20 50 52 49 4e 54 20 4e 52 24 2c ┆n."0 0350 ELSE 30360 PRINT NR$,┆
0x1d4a0…1d4c0 22 20 65 72 20 69 6b 6b 65 20 65 74 20 6b 6f 72 72 65 6b 74 20 6a 6f 75 72 6e 61 6c 6e 75 6d 6d ┆" er ikke et korrekt journalnumm┆
0x1d4c0…1d4e0 65 72 2e 22 33 0b 30 33 37 30 20 45 4e 44 49 46 20 0b 41 30 33 38 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆er."3 0370 ENDIF A0380 // -----┆
0x1d4e0…1d500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1d500…1d520 (14, 1, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 41 00 00 63 63 63 63 63 63 63 63 63 ┆--------------------A ccccccccc┆
0x1d520…1d540 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x1d600…1d700 (14, 1, 7) 0x63[0x100]
[…0x2…]
0x1d900…1d920 (14, 1, 10) ExtentHdr {name=»BINOMIAL«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001e,03 (0x01e300)}, f99=41 1d 00 fe 00 00 00 00 00 00 ┆A ┆}
0x1d920…1d940 34 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 62 69 6e 6f ┆40010 // ------------------ bino┆
0x1d940…1d960 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 34 36 30 30 32 30 20 2f 2f 20 50 ┆ --------------------460020 // P┆
0x1d960…1d980 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 72 20 62 69 6e 6f 6d 69 61 6c 6b 6f 65 66 66 69 63 ┆rogrammet finder binomialkoeffic┆
0x1d980…1d9a0 69 65 6e 74 65 6e 20 4b 28 6e 2c 72 29 36 08 30 30 33 30 20 2f 2f 20 08 10 30 30 33 34 20 49 4e ┆ienten K(n,r)6 0030 // 0034 IN┆
0x1d9a0…1d9c0 54 45 47 45 52 20 4e 2c 52 10 10 30 30 33 35 20 44 49 4d 20 53 24 20 4f 46 20 31 10 0c 30 30 34 ┆TEGER N,R 0035 DIM S$ OF 1 004┆
0x1d9c0…1d9e0 30 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 35 35 20 43 55 52 ┆0 REPEAT 0050 CLEAR 0055 CUR┆
0x1d9e0…1da00 53 4f 52 20 31 2c 31 30 10 2a 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6e 20 ┆SOR 1,10 *0060 INPUT "Indtast n ┆
0x1da00…1da20 (14, 1, 11) 6f 67 20 72 20 69 20 4b 28 6e 2c 72 29 3a 20 22 3a 4e 2c 52 2a 30 30 30 37 30 20 50 52 49 4e 54 ┆og r i K(n,r): ":N,R*00070 PRINT┆
0x1da20…1da40 20 22 4b 28 20 22 3b 4e 3b 22 2c 22 3b 52 3b 22 29 20 3d 20 22 3b 43 48 52 24 28 46 4e 4b 28 4e ┆ "K( ";N;",";R;") = ";CHR$(FNK(N┆
0x1da40…1da60 2c 52 29 2c 34 29 30 08 30 30 38 30 20 2f 2f 20 08 11 30 31 30 30 20 43 55 52 53 4f 52 20 31 30 ┆,R),4)0 0080 // 0100 CURSOR 10┆
0x1da60…1da80 2c 32 30 11 2f 30 31 31 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f ┆,20 /0110 INPUT "Ønsker du at fo┆
0x1da80…1daa0 72 74 73 7b 74 74 65 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 24 2f 1b 30 31 34 30 20 55 4e 54 49 4c ┆rtsætte? (j/n) ":S$/ 0140 UNTIL┆
0x1daa0…1dac0 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 08 30 31 35 30 20 2f 2f 20 08 16 30 31 36 ┆ S$="N" OR S$="n" 0150 // 016┆
0x1dac0…1dae0 30 20 50 52 4f 43 20 46 4e 4b 28 50 52 4e 2c 50 52 52 29 16 41 30 31 37 30 20 49 46 20 49 4e 54 ┆0 PROC FNK(PRN,PRR) A0170 IF INT┆
0x1dae0…1db00 28 50 52 4e 29 3c 3e 41 42 53 28 50 52 4e 29 20 4f 52 20 49 4e 54 28 50 52 52 29 3c 3e 41 42 53 ┆(PRN)<>ABS(PRN) OR INT(PRR)<>ABS┆
0x1db00…1db20 (14, 1, 12) 28 50 52 52 29 20 4f 52 20 50 52 4e 3c 50 52 52 20 54 48 45 4e 20 41 23 30 31 38 30 20 50 52 49 ┆(PRR) OR PRN<PRR THEN A#0180 PRI┆
0x1db20…1db40 4e 54 20 22 2a 2a 2a 20 46 65 6a 6c 20 69 20 69 6e 64 64 61 74 61 20 2a 2a 2a 22 23 0a 30 31 39 ┆NT "*** Fejl i inddata ***"# 019┆
0x1db40…1db60 30 20 53 54 4f 50 20 0a 0b 30 32 30 30 20 45 4e 44 49 46 20 0b 13 30 32 31 30 20 49 46 20 50 52 ┆0 STOP 0200 ENDIF 0210 IF PR┆
0x1db60…1db80 52 3d 30 20 54 48 45 4e 20 13 0b 30 32 32 30 20 46 4e 4b 3a 3d 31 0b 0a 30 32 33 30 20 45 4c 53 ┆R=0 THEN 0220 FNK:=1 0230 ELS┆
0x1db80…1dba0 45 20 0a 36 30 32 34 30 20 49 46 20 50 52 52 3e 50 52 4e 2f 32 20 54 48 45 4e 20 50 52 52 3a 3d ┆E 60240 IF PRR>PRN/2 THEN PRR:=┆
0x1dba0…1dbc0 50 52 4e 2d 50 52 52 20 2f 2f 20 4b 28 6e 2c 72 29 3d 4b 28 6e 2c 6e 2d 72 29 36 0b 30 32 35 30 ┆PRN-PRR // K(n,r)=K(n,n-r)6 0250┆
0x1dbc0…1dbe0 20 46 41 4b 3a 3d 31 0b 1a 30 32 36 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 50 52 52 2d 31 20 ┆ FAK:=1 0260 FOR I:=0 TO PRR-1 ┆
0x1dbe0…1dc00 44 4f 20 1a 3d 30 32 37 30 20 46 41 4b 3a 3d 46 41 4b 2a 28 50 52 4e 2d 49 29 2f 28 50 52 52 2d ┆DO =0270 FAK:=FAK*(PRN-I)/(PRR-┆
0x1dc00…1dc20 (14, 1, 13) 49 29 20 2f 2f 20 45 78 3a 20 4b 28 31 30 2c 34 29 3d 31 30 2f 34 2a 39 2f 33 2a 38 2f 32 2a 37 ┆I) // Ex: K(10,4)=10/4*9/3*8/2*7┆
0x1dc20…1dc40 2f 31 3d 0b 30 32 38 30 20 4e 45 58 54 20 49 0b 38 30 32 39 30 20 46 4e 4b 3a 3d 49 4e 54 28 46 ┆/1= 0280 NEXT I 80290 FNK:=INT(F┆
0x1dc40…1dc60 41 4b 2b 30 2e 35 29 20 2f 2f 20 41 66 72 75 6e 64 20 66 6f 72 20 65 6e 20 73 69 6b 6b 65 72 68 ┆AK+0.5) // Afrund for en sikkerh┆
0x1dc60…1dc80 65 64 73 20 73 6b 79 6c 64 38 0b 30 33 30 30 20 45 4e 44 49 46 20 0b 10 30 33 31 30 20 45 4e 44 ┆eds skyld8 0300 ENDIF 0310 END┆
0x1dc80…1dca0 50 52 4f 43 20 46 4e 4b 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆PROC FNK ccccccccccccccccccccc┆
0x1dca0…1dcc0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x1dd00…1de00 (14, 1, 14) 0x63[0x100]
[…0x5…]
0x1e300…1e320 (15, 0, 4) ExtentHdr {name=»EKSEOF «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001e,0d (0x01ed00)}, f99=41 1d 00 ff 00 4b 53 45 4f 46 ┆A KSEOF┆}
0x1e320…1e340 05 4c 61 72 73 00 05 06 48 61 6e 6e 65 00 06 06 41 6c 69 63 65 00 06 0c 4a 65 61 6e 2d 50 69 65 ┆ Lars Hanne Alice Jean-Pie┆
0x1e340…1e360 72 72 65 00 0c 09 4a 65 61 6e 65 74 74 65 00 09 09 46 72 61 6e 63 6f 69 73 00 09 04 4f 6c 65 00 ┆rre Jeanette Francois Ole ┆
0x1e360…1e380 04 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 ┆ ┆
0x1e380…1e3a0 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 ┆ ┆
[…0x3…]
0x1e400…1e500 (15, 0, 5) 0x63[0x100]
[…0x8…]
0x1ed00…1ed20 (15, 0, 14) ExtentHdr {name=»SLUTSK1 «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 001f,07 (0x01f700)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 001f,07 (0x01f700)}, f99=41 1d 00 fe 00 4b 53 45 4f 46 ┆A KSEOF┆}
0x1ed20…1ed40 48 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0100 // -----------------------┆
0x1ed40…1ed60 2d 20 73 6c 75 74 73 6b 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- slutskat ---------------------┆
0x1ed60…1ed80 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 08 30 31 31 30 20 2f 2f 20 08 08 30 31 32 30 20 2f 2f 20 08 0e 30 ┆---------H 0110 // 0120 // 0┆
0x1ed80…1eda0 31 33 30 20 45 58 45 43 20 4d 45 4e 55 0e 49 30 31 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆130 EXEC MENU I0140 // ---------┆
0x1eda0…1edc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1edc0…1ede0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0e 30 31 35 30 20 50 ┆------------------------I 0150 P┆
0x1ede0…1ee00 52 4f 43 20 4d 45 4e 55 0e 15 30 31 36 30 20 44 49 4d 20 5c 4e 53 4b 45 24 20 4f 46 20 31 30 15 ┆ROC MENU 0160 DIM ØNSKE$ OF 10 ┆
0x1ee00…1ee20 (15, 0, 15) 0b 30 31 37 30 20 43 4c 45 41 52 20 0b 0f 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 43 30 ┆ 0170 CLEAR 0180 CURSOR 1,3 C0┆
0x1ee20…1ee40 31 39 30 20 50 52 49 4e 54 20 22 20 42 20 45 20 52 20 45 20 47 20 4e 20 49 20 4e 20 47 20 20 20 ┆190 PRINT " B E R E G N I N G ┆
0x1ee40…1ee60 41 20 46 20 20 20 52 20 45 20 53 20 54 20 53 20 4b 20 41 20 54 20 20 20 31 20 39 20 38 20 32 20 ┆A F R E S T S K A T 1 9 8 2 ┆
0x1ee60…1ee80 2e 22 43 43 30 32 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆."CC0200 PRINT "----------------┆
0x1ee80…1eea0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1eea0…1eec0 2d 2d 2d 2d 2d 2d 22 43 0f 30 32 31 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 15 30 32 32 30 20 50 ┆------"C 0210 CURSOR 1,9 0220 P┆
0x1eec0…1eee0 52 49 4e 54 20 22 20 66 20 6f 20 72 20 3a 22 15 10 30 32 33 30 20 43 55 52 53 4f 52 20 31 2c 31 ┆RINT " f o r :" 0230 CURSOR 1,1┆
0x1eee0…1ef00 31 10 19 30 32 34 30 20 50 52 49 4e 54 20 22 48 61 6e 73 20 48 61 6e 73 65 6e 2e 22 19 10 30 32 ┆1 0240 PRINT "Hans Hansen." 02┆
0x1ef00…1ef20 (15, 0, 16) 35 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 19 30 32 36 30 20 50 52 49 4e 54 20 22 56 65 73 74 ┆50 CURSOR 1,12 0260 PRINT "Vest┆
0x1ef20…1ef40 65 72 76 65 6a 20 39 2c 22 19 10 30 32 37 30 20 43 55 52 53 4f 52 20 31 2c 31 33 10 1a 30 32 38 ┆ervej 9," 0270 CURSOR 1,13 028┆
0x1ef40…1ef60 30 20 50 52 49 4e 54 20 22 39 38 37 36 20 5c 73 74 65 72 62 79 2e 22 1a 10 30 32 39 30 20 43 55 ┆0 PRINT "9876 Østerby." 0290 CU┆
0x1ef60…1ef80 52 53 4f 52 20 31 2c 31 36 10 4c 30 33 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 ┆RSOR 1,16 L0300 INPUT "Indtast s┆
0x1ef80…1efa0 6b 61 74 74 65 70 6c 69 67 74 69 67 20 69 6e 64 6b 6f 6d 73 74 3a 20 20 20 20 20 20 20 20 20 20 ┆kattepligtig indkomst: ┆
0x1efa0…1efc0 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 4b 49 4e 44 4b 4f 4d 53 54 4c 10 30 33 31 30 20 43 55 ┆ ":SKINDKOMSTL 0310 CU┆
0x1efc0…1efe0 52 53 4f 52 20 31 2c 31 38 10 4a 30 33 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 ┆RSOR 1,18 J0320 INPUT "Indtast s┆
0x1efe0…1f000 6b 61 74 74 65 70 6c 69 67 74 69 67 20 66 6f 72 6d 75 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆kattepligtig formue: ┆
0x1f000…1f020 (15, 1, 1) 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 4b 46 4f 52 4d 55 45 4a 10 30 33 33 30 20 43 55 52 53 ┆ ":SKFORMUEJ 0330 CURS┆
0x1f020…1f040 4f 52 20 31 2c 32 30 10 45 30 33 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 63 74 ┆OR 1,20 E0340 INPUT "Indtast pct┆
0x1f040…1f060 2e 20 66 6f 72 20 61 6d 74 73 6b 6f 6d 6d 75 6e 65 73 6b 61 74 3a 20 20 20 20 20 20 20 20 20 20 ┆. for amtskommuneskat: ┆
0x1f060…1f080 20 20 20 20 20 20 20 20 20 22 3a 41 4d 54 45 10 30 33 35 30 20 43 55 52 53 4f 52 20 31 2c 32 32 ┆ ":AMTE 0350 CURSOR 1,22┆
0x1f080…1f0a0 10 49 30 33 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 63 74 2e 20 66 6f 72 20 6b ┆ I0360 INPUT "Indtast pct. for k┆
0x1f0a0…1f0c0 6f 6d 6d 75 6e 65 73 6b 61 74 74 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ommuneskatten: ┆
0x1f0c0…1f0e0 20 20 22 3a 4b 4f 4d 4d 55 4e 45 49 10 30 33 37 30 20 43 55 52 53 4f 52 20 31 2c 32 34 10 47 30 ┆ ":KOMMUNEI 0370 CURSOR 1,24 G0┆
0x1f0e0…1f100 33 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 63 74 2e 20 66 6f 72 20 6b 69 72 6b ┆380 INPUT "Indtast pct. for kirk┆
0x1f100…1f120 (15, 1, 2) 65 73 6b 61 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆eskat: "┆
0x1f120…1f140 3a 4b 49 52 4b 45 47 15 30 33 39 30 20 45 58 45 43 20 50 52 53 54 41 54 53 53 4b 41 54 15 15 30 ┆:KIRKEG 0390 EXEC PRSTATSSKAT 0┆
0x1f140…1f160 34 30 30 20 45 58 45 43 20 4b 4f 4d 4d 55 4e 45 53 4b 41 54 15 17 30 34 31 30 20 45 58 45 43 20 ┆400 EXEC KOMMUNESKAT 0410 EXEC ┆
0x1f160…1f180 50 45 52 53 4f 4e 46 52 41 44 52 41 47 17 16 30 34 32 30 20 45 58 45 43 20 50 52 46 4f 52 4d 55 ┆PERSONFRADRAG 0420 EXEC PRFORMU┆
0x1f180…1f1a0 45 53 4b 41 54 16 12 30 34 33 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 16 30 34 33 31 20 ┆ESKAT 0430 EXEC UDSKRIFT 0431 ┆
0x1f1a0…1f1c0 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 11 30 34 34 30 20 43 55 52 53 4f 52 20 37 ┆SELECT OUTPUT "T" 0440 CURSOR 7┆
0x1f1c0…1f1e0 30 2c 32 34 11 1b 30 34 35 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 5c 4e 53 4b 45 ┆0,24 0450 INPUT "Return!":ØNSKE┆
0x1f1e0…1f200 24 1b 11 30 34 36 30 20 45 58 45 43 20 46 4f 52 53 4b 45 4c 11 11 30 34 37 30 20 45 4e 44 50 52 ┆$ 0460 EXEC FORSKEL 0470 ENDPR┆
0x1f200…1f220 (15, 1, 3) 4f 43 20 4d 45 4e 55 11 47 30 34 38 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC MENU G0480 // ---------------┆
0x1f220…1f240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f240…1f260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 15 30 34 39 30 20 50 52 4f 43 20 50 52 53 54 ┆----------------G 0490 PROC PRST┆
0x1f260…1f280 41 54 53 53 4b 41 54 15 21 30 35 30 30 20 49 46 20 53 4b 49 4e 44 4b 4f 4d 53 54 3c 3d 39 35 35 ┆ATSSKAT !0500 IF SKINDKOMST<=955┆
0x1f280…1f2a0 30 30 2e 30 20 54 48 45 4e 20 21 23 30 35 31 30 20 53 54 41 54 53 53 4b 41 54 3a 3d 53 4b 49 4e ┆00.0 THEN !#0510 STATSSKAT:=SKIN┆
0x1f2a0…1f2c0 44 4b 4f 4d 53 54 2a 31 38 2e 39 2f 31 30 30 23 0a 30 35 32 30 20 45 4c 53 45 20 0a 22 30 35 33 ┆DKOMST*18.9/100# 0520 ELSE "053┆
0x1f2c0…1f2e0 30 20 49 46 20 53 4b 49 4e 44 4b 4f 4d 53 54 3c 3d 31 36 34 31 30 30 2e 30 20 54 48 45 4e 20 22 ┆0 IF SKINDKOMST<=164100.0 THEN "┆
0x1f2e0…1f300 35 30 35 34 30 20 53 54 41 54 53 53 4b 41 54 3a 3d 31 38 30 34 39 2e 35 2b 28 53 4b 49 4e 44 4b ┆50540 STATSSKAT:=18049.5+(SKINDK┆
0x1f300…1f320 (15, 1, 4) 4f 4d 53 54 2d 39 35 35 30 30 2e 30 29 2a 33 33 2e 33 2f 31 30 30 35 0a 30 35 35 30 20 45 4c 53 ┆OMST-95500.0)*33.3/1005 0550 ELS┆
0x1f320…1f340 45 20 0a 36 30 35 36 30 20 53 54 41 54 53 53 4b 41 54 3a 3d 34 30 38 39 33 2e 33 2b 28 53 4b 49 ┆E 60560 STATSSKAT:=40893.3+(SKI┆
0x1f340…1f360 4e 44 4b 4f 4d 53 54 2d 31 36 34 31 30 30 2e 30 29 2a 34 34 2e 31 2f 31 30 30 36 0b 30 35 37 30 ┆NDKOMST-164100.0)*44.1/1006 0570┆
0x1f360…1f380 20 45 4e 44 49 46 20 0b 0b 30 35 38 30 20 45 4e 44 49 46 20 0b 18 30 35 39 30 20 45 4e 44 50 52 ┆ ENDIF 0580 ENDIF 0590 ENDPR┆
0x1f380…1f3a0 4f 43 20 50 52 53 54 41 54 53 53 4b 41 54 18 47 30 36 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆OC PRSTATSSKAT G0600 // --------┆
0x1f3a0…1f3c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f3c0…1f3e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 15 30 36 31 30 20 50 52 ┆-----------------------G 0610 PR┆
0x1f3e0…1f400 4f 43 20 4b 4f 4d 4d 55 4e 45 53 4b 41 54 15 21 30 36 32 30 20 53 41 4d 4c 45 54 50 43 54 3a 3d ┆OC KOMMUNESKAT !0620 SAMLETPCT:=┆
0x1f400…1f420 (15, 1, 5) 41 4d 54 2b 4b 4f 4d 4d 55 4e 45 2b 4b 49 52 4b 45 21 2c 30 36 33 30 20 4b 4f 4d 4d 55 4e 45 53 ┆AMT+KOMMUNE+KIRKE!,0630 KOMMUNES┆
0x1f420…1f440 4b 41 54 4d 56 3a 3d 53 4b 49 4e 44 4b 4f 4d 53 54 2a 53 41 4d 4c 45 54 50 43 54 2f 31 30 30 2c ┆KATMV:=SKINDKOMST*SAMLETPCT/100,┆
0x1f440…1f460 18 30 36 34 30 20 45 4e 44 50 52 4f 43 20 4b 4f 4d 4d 55 4e 45 53 4b 41 54 18 48 30 36 35 30 20 ┆ 0640 ENDPROC KOMMUNESKAT H0650 ┆
0x1f460…1f480 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x1f480…1f4a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f4a0…1f4c0 2d 2d 2d 48 17 30 36 36 30 20 50 52 4f 43 20 50 45 52 53 4f 4e 46 52 41 44 52 41 47 17 0b 30 36 ┆---H 0660 PROC PERSONFRADRAG 06┆
0x1f4c0…1f4e0 37 30 20 43 4c 45 41 52 20 0b 0f 30 36 38 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 4a 30 36 39 30 ┆70 CLEAR 0680 CURSOR 1,6 J0690┆
0x1f4e0…1f500 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 50 20 45 20 52 20 53 20 4f 20 4e 20 ┆ PRINT " P E R S O N ┆
0x1f500…1f520 (15, 1, 6) 46 20 52 20 41 20 44 20 52 20 41 20 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆F R A D R A G ┆
0x1f520…1f540 20 20 20 20 20 22 4a 0f 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 49 30 37 31 30 20 50 52 ┆ "J 0700 CURSOR 1,8 I0710 PR┆
0x1f540…1f560 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INT "---------------------------┆
0x1f560…1f580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f580…1f5a0 2d 22 49 10 30 37 32 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 4c 30 37 33 30 20 49 4e 50 55 54 ┆-"I 0720 CURSOR 1,12 L0730 INPUT┆
0x1f5a0…1f5c0 20 22 49 6e 64 74 61 73 74 20 65 67 65 74 20 70 65 72 73 6f 6e 66 72 61 64 72 61 67 3a 20 20 20 ┆ "Indtast eget personfradrag: ┆
0x1f5c0…1f5e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 45 47 45 54 46 52 41 44 52 ┆ ":EGETFRADR┆
0x1f5e0…1f600 41 47 4c 10 30 37 34 30 20 43 55 52 53 4f 52 20 31 2c 31 34 10 4d 30 37 35 30 20 49 4e 50 55 54 ┆AGL 0740 CURSOR 1,14 M0750 INPUT┆
0x1f600…1f620 (15, 1, 7) 20 22 49 6e 64 74 61 73 74 20 6f 76 65 72 66 7c 72 74 20 70 65 72 73 6f 6e 66 72 61 64 72 61 67 ┆ "Indtast overført personfradrag┆
0x1f620…1f640 20 66 6f 72 20 7b 67 74 65 66 7b 6c 6c 65 3a 20 20 20 20 20 20 22 3a 5b 47 54 45 46 46 52 41 44 ┆ for ægtefælle: ":ÆGTEFFRAD┆
0x1f640…1f660 52 41 47 4d 10 30 37 36 30 20 43 55 52 53 4f 52 20 31 2c 31 36 10 43 30 37 37 30 20 50 52 49 4e ┆RAGM 0760 CURSOR 1,16 C0770 PRIN┆
0x1f660…1f680 54 20 22 50 65 72 73 6f 6e 66 72 61 64 72 61 67 20 75 64 72 65 67 6e 65 73 2e 20 20 20 20 20 20 ┆T "Personfradrag udregnes. ┆
0x1f680…1f6a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 2c 30 37 38 30 ┆ "C,0780┆
0x1f6a0…1f6c0 20 53 41 4d 4c 45 54 46 52 41 44 52 41 47 3a 3d 45 47 45 54 46 52 41 44 52 41 47 2b 5b 47 54 45 ┆ SAMLETFRADRAG:=EGETFRADRAG+ÆGTE┆
0x1f6c0…1f6e0 46 46 52 41 44 52 41 47 2c 40 30 37 39 30 20 53 4b 41 54 41 46 46 52 41 44 52 41 47 3a 3d 53 41 ┆FFRADRAG,@0790 SKATAFFRADRAG:=SA┆
0x1f6e0…1f700 4d 4c 45 54 46 52 41 44 52 41 47 2a 28 31 38 2e 39 2b 28 41 4d 54 2b 4b 4f 4d 4d 55 4e 45 2b 4b ┆MLETFRADRAG*(18.9+(AMT+KOMMUNE+K┆
0x1f700…1f720 (15, 1, 8) ExtentHdr {name=»SLUTSK1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0020,01 (0x020100)}, prevext={DA 001e,0d (0x01ed00)}, nextfile={DA 0020,01 (0x020100)}, f99=41 1d 00 20 00 4b 53 45 4f 46 ┆A KSEOF┆}
0x1f720…1f740 49 52 4b 45 29 29 2f 31 30 30 40 1a 30 38 30 30 20 45 4e 44 50 52 4f 43 20 50 45 52 53 4f 4e 46 ┆IRKE))/100@ 0800 ENDPROC PERSONF┆
0x1f740…1f760 52 41 44 52 41 47 1a 4c 30 38 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RADRAG L0810 // ----------------┆
0x1f760…1f780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f780…1f7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 16 30 38 32 30 20 50 52 4f 43 20 ┆--------------------L 0820 PROC ┆
0x1f7a0…1f7c0 50 52 46 4f 52 4d 55 45 53 4b 41 54 16 20 30 38 33 30 20 49 46 20 53 4b 46 4f 52 4d 55 45 3e 31 ┆PRFORMUESKAT 0830 IF SKFORMUE>1┆
0x1f7c0…1f7e0 30 38 33 30 30 30 2e 30 20 54 48 45 4e 20 20 2d 30 38 34 30 20 46 4f 52 4d 55 45 53 4b 41 54 3a ┆083000.0 THEN -0840 FORMUESKAT:┆
0x1f7e0…1f800 3d 28 53 4b 46 4f 52 4d 55 45 2d 31 30 38 33 30 30 30 2e 30 29 2a 32 32 2f 31 30 30 30 2d 0a 30 ┆=(SKFORMUE-1083000.0)*22/1000- 0┆
0x1f800…1f820 (15, 1, 9) 38 35 30 20 45 4c 53 45 20 0a 12 30 38 36 30 20 46 4f 52 4d 55 45 53 4b 41 54 3a 3d 30 12 0b 30 ┆850 ELSE 0860 FORMUESKAT:=0 0┆
0x1f820…1f840 38 37 30 20 45 4e 44 49 46 20 0b 19 30 38 38 30 20 45 4e 44 50 52 4f 43 20 50 52 46 4f 52 4d 55 ┆870 ENDIF 0880 ENDPROC PRFORMU┆
0x1f840…1f860 45 53 4b 41 54 19 49 30 38 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ESKAT I0890 // -----------------┆
0x1f860…1f880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1f880…1f8a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 12 30 39 30 30 20 50 52 4f 43 20 55 44 53 4b ┆----------------I 0900 PROC UDSK┆
0x1f8a0…1f8c0 52 49 46 54 12 0b 30 39 31 30 20 43 4c 45 41 52 20 0b 10 30 39 32 30 20 43 55 52 53 4f 52 20 35 ┆RIFT 0910 CLEAR 0920 CURSOR 5┆
0x1f8c0…1f8e0 2c 31 32 10 4a 30 39 33 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 75 64 73 6b 72 ┆,12 J0930 INPUT "Ønsker du udskr┆
0x1f8e0…1f900 69 66 74 20 70 7d 20 73 6b 7b 72 6d 20 65 6c 6c 65 72 20 70 72 69 6e 74 65 72 3f 20 20 20 73 2f ┆ift på skærm eller printer? s/┆
0x1f900…1f920 (15, 1, 10) 70 20 20 20 20 20 20 22 3a 5c 4e 53 4b 45 24 4a 23 30 39 34 30 20 49 46 20 5c 4e 53 4b 45 24 20 ┆p ":ØNSKE$J#0940 IF ØNSKE$ ┆
0x1f920…1f940 49 4e 20 22 70 70 72 69 6e 74 65 72 6a 22 20 54 48 45 4e 20 23 14 30 39 35 30 20 45 58 45 43 20 ┆IN "pprinterj" THEN # 0950 EXEC ┆
0x1f940…1f960 50 52 49 4e 54 45 52 52 45 53 14 0b 30 39 36 30 20 45 4e 44 49 46 20 0b 0b 30 39 37 30 20 43 4c ┆PRINTERRES 0960 ENDIF 0970 CL┆
0x1f960…1f980 45 41 52 20 0b 3d 30 39 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆EAR =0980 PRINT " ┆
0x1f980…1f9a0 53 20 4c 20 55 20 54 20 53 20 4b 20 41 20 54 20 20 46 20 4f 20 52 20 20 20 31 20 39 20 38 20 32 ┆S L U T S K A T F O R 1 9 8 2┆
0x1f9a0…1f9c0 20 2e 22 3d 4d 30 39 39 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆ ."=M0990 PRINT "_______________┆
0x1f9c0…1f9e0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x1f9e0…1fa00 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 4d 0f 31 30 30 30 20 43 55 52 53 4f 52 20 ┆_________________"M 1000 CURSOR ┆
0x1fa00…1fa20 (15, 1, 11) 31 2c 33 0f 19 31 30 31 30 20 50 52 49 4e 54 20 22 48 61 6e 73 20 48 61 6e 73 65 6e 2c 22 19 19 ┆1,3 1010 PRINT "Hans Hansen," ┆
0x1fa20…1fa40 31 30 32 30 20 50 52 49 4e 54 20 22 56 65 73 74 65 72 76 65 6a 20 36 2c 22 19 1a 31 30 33 30 20 ┆1020 PRINT "Vestervej 6," 1030 ┆
0x1fa40…1fa60 50 52 49 4e 54 20 22 39 38 37 36 20 5c 73 74 65 72 62 79 2e 22 1a 4d 31 30 34 30 20 50 52 49 4e ┆PRINT "9876 Østerby." M1040 PRIN┆
0x1fa60…1fa80 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T "-----------------------------┆
0x1fa80…1faa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1faa0…1fac0 2d 2d 2d 22 4d 0f 31 30 35 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 2a 31 30 36 30 20 50 52 49 4e ┆---"M 1050 CURSOR 1,9 *1060 PRIN┆
0x1fac0…1fae0 54 20 22 53 6b 61 74 74 65 70 6c 69 67 74 69 67 20 69 6e 64 6b 6f 6d 73 74 3a 20 20 20 20 20 22 ┆T "Skattepligtig indkomst: "┆
0x1fae0…1fb00 3b 2a 2e 31 30 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 2e 23 23 ┆;*.1070 PRINT USING " #######.##┆
0x1fb00…1fb20 (15, 1, 12) 20 6b 72 2e 20 22 3a 53 4b 49 4e 44 4b 4f 4d 53 54 2e 29 31 30 38 30 20 50 52 49 4e 54 20 22 53 ┆ kr. ":SKINDKOMST.)1080 PRINT "S┆
0x1fb20…1fb40 6b 61 74 74 65 70 6c 69 67 74 69 67 20 66 6f 72 6d 75 65 3a 20 20 20 20 20 20 22 3b 29 2d 31 30 ┆kattepligtig formue: ";)-10┆
0x1fb40…1fb60 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e ┆90 PRINT USING " ########.## kr.┆
0x1fb60…1fb80 20 22 3a 53 4b 46 4f 52 4d 55 45 2d 4d 31 31 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆ ":SKFORMUE-M1100 PRINT "-------┆
0x1fb80…1fba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fba0…1fbc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 31 31 31 30 ┆-------------------------"M 1110┆
0x1fbc0…1fbe0 20 50 52 49 4e 54 20 0b 29 31 31 32 30 20 50 52 49 4e 54 20 22 53 74 61 74 73 73 6b 61 74 3a 20 ┆ PRINT )1120 PRINT "Statsskat: ┆
0x1fbe0…1fc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 29 2e 31 31 33 30 20 50 52 49 4e 54 20 55 ┆ ";).1130 PRINT U┆
0x1fc00…1fc20 (15, 1, 13) 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 53 54 41 54 53 53 4b ┆SING " ########.## kr. ":STATSSK┆
0x1fc20…1fc40 41 54 2e 29 31 31 34 30 20 50 52 49 4e 54 20 22 41 6d 74 73 2d 2c 6b 6f 6d 6d 75 6e 65 2d 20 26 ┆AT.)1140 PRINT "Amts-,kommune- &┆
0x1fc40…1fc60 20 6b 69 72 6b 65 73 6b 61 74 3a 22 3b 29 32 31 31 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆ kirkeskat:";)21150 PRINT USING ┆
0x1fc60…1fc80 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 4b 4f 4d 4d 55 4e 45 53 4b 41 54 4d ┆" ########.## kr. ":KOMMUNESKATM┆
0x1fc80…1fca0 56 32 29 31 31 36 30 20 50 52 49 4e 54 20 22 46 6f 72 6d 75 65 73 6b 61 74 3a 20 20 20 20 20 20 ┆V2)1160 PRINT "Formueskat: ┆
0x1fca0…1fcc0 20 20 20 20 20 20 20 20 20 20 22 3b 29 2f 31 31 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 ┆ ";)/1170 PRINT USING "┆
0x1fcc0…1fce0 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 46 4f 52 4d 55 45 53 4b 41 54 2f 2d 31 ┆ ########.## kr. ":FORMUESKAT/-1┆
0x1fce0…1fd00 31 38 30 20 49 41 4c 54 3a 3d 53 54 41 54 53 53 4b 41 54 2b 4b 4f 4d 4d 55 4e 45 53 4b 41 54 4d ┆180 IALT:=STATSSKAT+KOMMUNESKATM┆
0x1fd00…1fd20 (15, 1, 14) 56 2b 46 4f 52 4d 55 45 53 4b 41 54 2d 4d 31 31 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d ┆V+FORMUESKAT-M1190 PRINT "------┆
0x1fd20…1fd40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fd40…1fd60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 29 31 32 30 ┆--------------------------"M)120┆
0x1fd60…1fd80 30 20 50 52 49 4e 54 20 22 53 6b 61 74 20 69 61 6c 74 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 PRINT "Skat ialt: ┆
0x1fd80…1fda0 20 20 20 20 22 3b 29 29 31 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 23 23 23 23 ┆ ";))1210 PRINT USING " #####┆
0x1fda0…1fdc0 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 49 41 4c 54 29 29 31 32 32 30 20 50 52 49 4e 54 20 22 53 ┆###.## kr. ":IALT))1220 PRINT "S┆
0x1fdc0…1fde0 6b 61 74 20 61 66 20 70 65 72 73 6f 6e 66 72 61 64 72 61 67 3a 20 20 20 20 20 22 3b 29 32 31 32 ┆kat af personfradrag: ";)212┆
0x1fde0…1fe00 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e ┆30 PRINT USING " ########.## kr.┆
0x1fe00…1fe20 (15, 1, 15) 20 22 3a 53 4b 41 54 41 46 46 52 41 44 52 41 47 32 24 31 32 34 30 20 45 4e 44 45 4c 49 47 53 4b ┆ ":SKATAFFRADRAG2$1240 ENDELIGSK┆
0x1fe20…1fe40 41 54 3a 3d 49 41 4c 54 2d 53 4b 41 54 41 46 46 52 41 44 52 41 47 24 4d 31 32 35 30 20 50 52 49 ┆AT:=IALT-SKATAFFRADRAG$M1250 PRI┆
0x1fe40…1fe60 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NT "----------------------------┆
0x1fe60…1fe80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1fe80…1fea0 2d 2d 2d 2d 22 4d 29 31 32 36 30 20 50 52 49 4e 54 20 22 53 6c 75 74 73 6b 61 74 20 66 6f 72 20 ┆----"M)1260 PRINT "Slutskat for ┆
0x1fea0…1fec0 31 39 38 32 3a 20 20 20 20 20 20 20 20 20 22 3b 29 30 31 32 37 30 20 50 52 49 4e 54 20 55 53 49 ┆1982: ";)01270 PRINT USI┆
0x1fec0…1fee0 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 45 4e 44 45 4c 49 47 53 4b ┆NG " ########.## kr. ":ENDELIGSK┆
0x1fee0…1ff00 41 54 30 4d 31 32 38 30 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆AT0M1280 PRINT "================┆
0x1ff00…1ff20 (15, 1, 16) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x1ff20…1ff40 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 4d 15 31 32 39 30 20 45 4e 44 50 52 4f 43 20 ┆================"M 1290 ENDPROC ┆
0x1ff40…1ff60 55 44 53 4b 52 49 46 54 15 4d 31 33 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆UDSKRIFT M1300 // --------------┆
0x1ff60…1ff80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x1ff80…1ffa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 11 31 33 31 30 20 50 52 ┆-----------------------M 1310 PR┆
0x1ffa0…1ffc0 4f 43 20 46 4f 52 53 4b 45 4c 11 16 31 33 31 35 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 ┆OC FORSKEL 1315 SELECT OUTPUT "┆
0x1ffc0…1ffe0 54 22 16 0b 31 33 32 30 20 43 4c 45 41 52 20 0b 0f 31 33 34 30 20 43 55 52 53 4f 52 20 31 2c 33 ┆T" 1320 CLEAR 1340 CURSOR 1,3┆
0x1ffe0…20000 0f 4d 31 33 35 30 20 50 52 49 4e 54 20 22 20 53 20 6b 20 61 20 6c 20 20 20 64 20 75 20 20 20 68 ┆ M1350 PRINT " S k a l d u h┆
0x20000…20020 (16, 0, 1) 20 61 20 76 20 65 20 20 20 70 20 65 20 6e 20 67 20 65 20 20 20 74 20 69 20 6c 20 62 20 61 20 67 ┆ a v e p e n g e t i l b a g┆
0x20020…20040 20 65 20 20 20 65 20 6c 20 6c 20 65 20 72 22 4d 4d 31 33 36 30 20 50 52 49 4e 54 20 22 20 73 20 ┆ e e l l e r"MM1360 PRINT " s ┆
0x20040…20060 6b 20 61 20 6c 20 20 20 64 20 75 20 20 20 62 20 65 20 74 20 61 20 6c 20 65 20 3f 20 20 20 20 20 ┆k a l d u b e t a l e ? ┆
0x20060…20080 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 4d 4d ┆ "MM┆
0x20080…200a0 31 33 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆1370 PRINT "--------------------┆
0x200a0…200c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x200c0…200e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0f 31 33 38 30 20 43 55 52 53 4f 52 20 31 2c 38 0f 4c ┆------------"M 1380 CURSOR 1,8 L┆
0x200e0…20100 31 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 6e 20 73 61 6d 6c 65 64 65 20 ┆1390 INPUT "Indtast den samlede ┆
0x20100…20120 (16, 0, 2) ExtentHdr {name=»SLUTSK1 «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 001f,07 (0x01f700)}, nextfile={DA 0020,0b (0x020b00)}, f99=41 1d 00 20 00 4b 53 45 4f 46 ┆A KSEOF┆}
0x20120…20140 62 65 74 61 6c 74 65 20 73 6b 61 74 20 66 6f 72 20 31 39 38 32 3a 20 20 20 20 20 20 20 20 20 20 ┆betalte skat for 1982: ┆
0x20140…20160 20 20 20 20 20 20 22 3a 53 4b 41 54 4c 10 31 34 31 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 4d ┆ ":SKATL 1410 CURSOR 1,10 M┆
0x20160…20180 31 34 32 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 75 64 73 6b 72 69 66 74 20 70 ┆1420 INPUT "Ønsker du udskrift p┆
0x20180…201a0 7d 20 73 6b 7b 72 6d 20 65 6c 6c 65 72 20 70 72 69 6e 74 65 72 3f 20 20 20 73 2f 70 20 20 20 20 ┆å skærm eller printer? s/p ┆
0x201a0…201c0 20 20 20 20 20 22 3a 5c 4e 53 4b 45 24 4d 22 31 34 33 30 20 49 46 20 5c 4e 53 4b 45 24 20 49 4e ┆ ":ØNSKE$M"1430 IF ØNSKE$ IN┆
0x201c0…201e0 20 22 70 70 72 69 6e 74 65 72 22 20 54 48 45 4e 20 22 14 31 34 34 30 20 45 58 45 43 20 50 52 49 ┆ "pprinter" THEN " 1440 EXEC PRI┆
0x201e0…20200 4e 54 45 52 52 45 53 14 0a 31 34 35 30 20 45 4c 53 45 20 0a 0b 31 34 36 30 20 43 4c 45 41 52 20 ┆NTERRES 1450 ELSE 1460 CLEAR ┆
0x20200…20220 (16, 0, 3) 0b 0b 31 34 37 30 20 45 4e 44 49 46 20 0b 21 31 34 38 30 20 44 49 46 46 45 52 45 4e 43 45 3a 3d ┆ 1470 ENDIF !1480 DIFFERENCE:=┆
0x20220…20240 53 4b 41 54 2d 45 4e 44 45 4c 49 47 53 4b 41 54 21 0f 31 34 39 30 20 43 55 52 53 4f 52 20 31 2c ┆SKAT-ENDELIGSKAT! 1490 CURSOR 1,┆
0x20240…20260 35 0f 31 31 35 30 30 20 50 52 49 4e 54 20 22 53 61 6d 6c 65 64 65 20 62 65 74 61 6c 74 65 20 70 ┆5 11500 PRINT "Samlede betalte p┆
0x20260…20280 65 72 73 6f 6e 6c 69 67 65 20 73 6b 61 74 74 65 72 3a 22 3b 31 29 31 35 31 30 20 50 52 49 4e 54 ┆ersonlige skatter:";1)1510 PRINT┆
0x20280…202a0 20 55 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 53 4b 41 54 29 ┆ USING " ########.## kr. ":SKAT)┆
0x202a0…202c0 31 31 35 32 30 20 50 52 49 4e 54 20 22 53 6c 75 74 73 6b 61 74 3a 20 20 20 20 20 20 20 20 20 20 ┆11520 PRINT "Slutskat: ┆
0x202c0…202e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 31 30 31 35 33 30 20 50 52 49 4e 54 20 55 ┆ ";101530 PRINT U┆
0x202e0…20300 53 49 4e 47 20 22 20 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 22 3a 45 4e 44 45 4c 49 47 ┆SING " ########.## kr. ":ENDELIG┆
0x20300…20320 (16, 0, 4) 53 4b 41 54 30 4d 31 35 34 30 20 50 52 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆SKAT0M1540 PRINT "==============┆
0x20320…20340 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x20340…20360 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 4d 0f 31 35 35 30 20 43 55 52 53 4f 52 ┆=================="M 1550 CURSOR┆
0x20360…20380 20 31 2c 39 0f 1b 31 35 36 30 20 49 46 20 44 49 46 46 45 52 45 4e 43 45 3d 3e 30 20 54 48 45 4e ┆ 1,9 1560 IF DIFFERENCE=>0 THEN┆
0x20380…203a0 20 1b 2a 31 35 37 30 20 50 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 68 61 76 65 20 20 20 20 20 ┆ *1570 PRINT "Du skal have ┆
0x203a0…203c0 20 20 20 20 20 20 20 20 20 20 20 22 3b 2a 3f 31 35 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆ ";*?1580 PRINT USING ┆
0x203c0…203e0 22 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 74 69 6c 62 61 67 65 ┆" #######.## kr. tilbage┆
0x203e0…20400 2e 20 22 3a 44 49 46 46 45 52 45 4e 43 45 3f 4d 31 35 39 30 20 50 52 49 4e 54 20 22 3d 3d 3d 3d ┆. ":DIFFERENCE?M1590 PRINT "====┆
0x20400…20420 (16, 0, 5) 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x20420…20440 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 22 4d 0a 31 ┆============================"M 1┆
0x20440…20460 36 30 30 20 45 4c 53 45 20 0a 2a 31 36 31 30 20 50 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 65 ┆600 ELSE *1610 PRINT "Du skal e┆
0x20460…20480 66 74 65 72 62 65 74 61 6c 65 20 20 20 20 20 20 20 20 20 22 3b 2a 40 31 36 32 30 20 50 52 49 4e ┆fterbetale ";*@1620 PRIN┆
0x20480…204a0 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 6b 72 2e ┆T USING " #######.## kr.┆
0x204a0…204c0 20 20 20 20 20 20 20 20 20 20 22 3a 2d 44 49 46 46 45 52 45 4e 43 45 40 4d 31 36 33 30 20 50 52 ┆ ":-DIFFERENCE@M1630 PR┆
0x204c0…204e0 49 4e 54 20 22 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆INT "===========================┆
0x204e0…20500 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d 3d ┆================================┆
0x20500…20520 (16, 0, 6) 3d 3d 3d 3d 3d 22 4d 10 31 36 34 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 4c 31 36 35 30 20 50 ┆====="M 1640 CURSOR 1,12 L1650 P┆
0x20520…20540 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 69 6b 6b 65 20 74 61 67 65 20 64 65 74 20 66 6f 72 20 ┆RINT "Du skal ikke tage det for ┆
0x20540…20560 68 7c 6a 74 69 64 65 6c 69 67 74 2c 20 76 69 20 65 72 20 6d 61 6e 67 65 20 69 20 73 61 6d 6d 65 ┆højtideligt, vi er mange i samme┆
0x20560…20580 20 62 7d 64 2e 22 4c 0b 31 36 36 30 20 45 4e 44 49 46 20 0b 14 31 36 37 30 20 45 4e 44 50 52 4f ┆ båd."L 1660 ENDIF 1670 ENDPRO┆
0x20580…205a0 43 20 46 4f 52 53 4b 45 4c 14 08 31 36 38 30 20 2f 2f 20 08 14 31 36 39 30 20 50 52 4f 43 20 50 ┆C FORSKEL 1680 // 1690 PROC P┆
0x205a0…205c0 52 49 4e 54 45 52 52 45 53 14 16 31 37 30 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 ┆RINTERRES 1700 SELECT OUTPUT "P┆
0x205c0…205e0 22 16 1b 31 37 31 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 11 ┆" 1710 IF STATUS("P")=1 THEN ┆
0x205e0…20600 31 37 32 30 20 43 55 52 53 4f 52 20 31 32 2c 31 35 11 3e 31 37 33 30 20 50 52 49 4e 54 20 22 50 ┆1720 CURSOR 12,15 >1730 PRINT "P┆
0x20600…20620 (16, 0, 7) 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 20 61 66 20 65 6e 20 61 6e 64 ┆rinteren er reserveret af en and┆
0x20620…20640 65 6e 20 62 72 75 67 65 72 2c 20 73 6b 61 6c 20 22 3e 11 31 37 34 30 20 43 55 52 53 4f 52 20 31 ┆en bruger, skal "> 1740 CURSOR 1┆
0x20640…20660 32 2c 31 36 11 3e 31 37 35 30 20 49 4e 50 55 54 20 22 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 ┆2,16 >1750 INPUT "der ventes på ┆
0x20660…20680 61 74 20 64 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 20 3f 20 28 6a 2f 6e 29 20 22 3a 5c 4e ┆at den bliver ledig ? (j/n) ":ØN┆
0x20680…206a0 53 4b 45 24 3e 10 31 37 36 30 20 43 55 52 53 4f 52 20 31 2c 31 35 10 10 31 37 37 30 20 50 52 49 ┆SKE$> 1760 CURSOR 1,15 1770 PRI┆
0x206a0…206c0 4e 54 20 22 3c 5a 3e 22 10 10 31 37 38 30 20 50 52 49 4e 54 20 22 3c 5a 3e 22 10 26 31 37 39 30 ┆NT "<Z>" 1780 PRINT "<Z>" &1790┆
0x206c0…206e0 20 49 46 20 5c 4e 53 4b 45 24 3d 22 6a 22 20 4f 52 20 5c 4e 53 4b 45 24 3d 22 4a 22 20 54 48 45 ┆ IF ØNSKE$="j" OR ØNSKE$="J" THE┆
0x206e0…20700 4e 20 26 11 31 38 30 30 20 43 55 52 53 4f 52 20 31 32 2c 31 35 11 3c 31 38 31 30 20 50 52 49 4e ┆N & 1800 CURSOR 12,15 <1810 PRIN┆
0x20700…20720 (16, 0, 8) 54 20 22 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c ┆T "Der ventes på at printeren bl┆
0x20720…20740 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 2e 2e 2e 2e 22 3c 2d 31 38 32 30 20 57 48 49 4c 45 20 ┆iver ledig........"<-1820 WHILE ┆
0x20740…20760 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 ┆STATUS("P")=1 DO SELECT OUTPUT "┆
0x20760…20780 50 22 2d 0b 31 38 33 30 20 45 4e 44 49 46 20 0b 0b 31 38 34 30 20 45 4e 44 49 46 20 0b 17 31 38 ┆P"- 1830 ENDIF 1840 ENDIF 18┆
0x20780…207a0 35 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 17 00 00 00 63 63 63 63 63 63 63 ┆50 ENDPROC PRINTERRES ccccccc┆
0x207a0…207c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x20800…20900 (16, 0, 9) 0x63[0x100]
[…0x2…]
0x20b00…20b20 (16, 0, 12) ExtentHdr {name=»PYTHAGOR«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0021,05 (0x021500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x20b20…20b40 3c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 70 79 ┆<0010 // -------------------- py┆
0x20b40…20b60 74 68 5f 74 61 6c 73 7b 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 32 30 ┆th_talsæt -------------------<20┆
0x20b60…20b80 30 32 30 20 2f 2f 20 53 69 6d 70 65 6c 20 62 65 73 74 65 6d 6d 65 6c 73 65 20 61 66 20 70 79 74 ┆020 // Simpel bestemmelse af pyt┆
0x20b80…20ba0 68 61 67 6f 72 7b 69 73 6b 65 20 74 61 6c 73 7b 74 32 08 30 30 33 30 20 2f 2f 20 08 16 30 30 33 ┆hagoræiske talsæt2 0030 // 003┆
0x20ba0…20bc0 35 20 49 4e 54 45 47 45 52 20 41 2c 42 2c 43 2c 4d 41 58 16 0b 30 30 34 30 20 43 4c 45 41 52 20 ┆5 INTEGER A,B,C,MAX 0040 CLEAR ┆
0x20bc0…20be0 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 36 30 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆ 0045 PRINT 60050 INPUT "Indta┆
0x20be0…20c00 73 74 20 7c 76 65 72 73 74 65 20 67 72 7b 6e 73 65 20 66 6f 72 20 74 61 6c 6c 65 6e 65 3a 20 20 ┆st øverste grænse for tallene: ┆
0x20c00…20c20 (16, 0, 13) 22 3a 4d 41 58 36 0b 30 30 36 30 20 50 52 49 4e 54 20 0b 24 30 30 37 30 20 50 52 49 4e 54 20 22 ┆":MAX6 0060 PRINT $0070 PRINT "┆
0x20c20…20c40 20 20 20 20 20 20 41 20 20 20 20 20 20 20 42 20 20 20 20 20 20 20 43 22 24 0b 30 30 38 30 20 50 ┆ A B C"$ 0080 P┆
0x20c40…20c60 52 49 4e 54 20 0b 18 30 30 39 30 20 46 4f 52 20 43 3a 3d 31 20 54 4f 20 4d 41 58 20 44 4f 20 18 ┆RINT 0090 FOR C:=1 TO MAX DO ┆
0x20c60…20c80 16 30 31 30 30 20 46 4f 52 20 42 3a 3d 31 20 54 4f 20 43 20 44 4f 20 16 16 30 31 31 30 20 46 4f ┆ 0100 FOR B:=1 TO C DO 0110 FO┆
0x20c80…20ca0 52 20 41 3a 3d 31 20 54 4f 20 42 20 44 4f 20 16 19 30 31 32 30 20 49 46 20 41 2a 41 2b 42 2a 42 ┆R A:=1 TO B DO 0120 IF A*A+B*B┆
0x20ca0…20cc0 3d 43 2a 43 20 54 48 45 4e 20 19 31 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 ┆=C*C THEN 10130 PRINT USING " ┆
0x20cc0…20ce0 20 23 23 23 23 20 20 20 20 23 23 23 23 20 20 20 20 23 23 23 23 20 22 3a 41 2c 42 2c 43 31 0b 30 ┆ #### #### #### ":A,B,C1 0┆
0x20ce0…20d00 31 34 30 20 45 4e 44 49 46 20 0b 0b 30 31 35 30 20 4e 45 58 54 20 41 0b 0b 30 31 36 30 20 4e 45 ┆140 ENDIF 0150 NEXT A 0160 NE┆
0x20d00…20d20 (16, 0, 14) 58 54 20 42 0b 0b 30 31 37 30 20 4e 45 58 54 20 43 0b 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 70 79 ┆XT B 0170 NEXT C --------- py┆
0x20d20…20d40 74 68 5f 74 61 6c 73 7b 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 32 30 ┆th_talsæt -------------------<20┆
0x20d40…20d60 30 32 30 20 2f 2f 20 53 69 6d 70 65 6c 20 62 65 73 74 65 6d 6d 65 6c 73 65 20 61 66 20 70 79 74 ┆020 // Simpel bestemmelse af pyt┆
0x20d60…20d80 68 61 67 6f 72 7b 69 73 6b 65 20 74 61 6c 73 7b 74 32 08 30 30 33 30 20 2f 2f 20 08 16 30 30 33 ┆hagoræiske talsæt2 0030 // 003┆
0x20d80…20da0 35 20 49 4e 54 45 47 45 52 20 41 2c 42 2c 43 2c 4d 41 58 16 0b 30 30 34 30 20 43 4c 45 41 52 20 ┆5 INTEGER A,B,C,MAX 0040 CLEAR ┆
0x20da0…20dc0 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 36 30 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆ 0045 PRINT 60050 INPUT "Indta┆
0x20dc0…20de0 73 74 20 7c 76 65 72 73 74 65 20 67 72 7b 6e 73 65 20 66 6f 72 20 74 61 6c 6c 65 6e 65 3a 20 20 ┆st øverste grænse for tallene: ┆
0x20de0…20e00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x20e00…20f00 (16, 0, 15) 0x63[0x100]
[…0x6…]
0x21500…21520 (16, 1, 6) ExtentHdr {name=»TREKANT2«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0021,07 (0x021700)}, f99=41 21 00 fe 00 00 00 00 00 00 ┆A! ┆}
0x21520…21540 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 72 65 ┆;0010 // ------------------- tre┆
0x21540…21560 6b 61 6e 74 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 2d 30 30 ┆kant2 ----------------------;-00┆
0x21560…21580 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 69 64 65 72 6e 65 20 62 20 6f 67 20 63 ┆20 INPUT "Indtast siderne b og c┆
0x21580…215a0 3a 20 20 20 20 20 22 3a 42 2c 43 2d 32 30 30 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 ┆: ":B,C-20030 INPUT "Indtast┆
0x215a0…215c0 20 76 69 6e 6b 65 6c 20 41 20 69 20 67 72 61 64 65 72 3a 20 20 20 22 3a 56 49 4e 4b 45 4c 41 32 ┆ vinkel A i grader: ":VINKELA2┆
0x215c0…215e0 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 23 30 30 35 30 20 ┆ 0040 CLEAR 0045 PRINT #0050 ┆
0x215e0…21600 50 52 49 4e 54 20 22 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 42 23 23 ┆PRINT "b: ";B##┆
0x21600…21620 (16, 1, 7) 30 30 36 30 20 50 52 49 4e 54 20 22 63 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0060 PRINT "c: ┆
0x21620…21640 22 3b 43 23 3f 30 30 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 69 6e 6b 65 6c 20 41 3a ┆";C#?0070 PRINT USING "Vinkel A:┆
0x21640…21660 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 23 20 67 72 61 64 65 72 2e 22 3a 56 49 4e ┆ ####.### grader.":VIN┆
0x21660…21680 4b 45 4c 41 3f 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 11 30 30 39 30 20 50 49 3a 3d 41 54 4e 28 ┆KELA? 0080 PRINT 0090 PI:=ATN(┆
0x21680…216a0 31 29 2a 34 11 2e 30 31 30 30 20 41 3a 3d 53 51 52 28 42 2a 42 2b 43 2a 43 2d 32 2a 42 2a 43 2a ┆1)*4 .0100 A:=SQR(B*B+C*C-2*B*C*┆
0x216a0…216c0 43 4f 53 28 56 49 4e 4b 45 4c 41 2a 50 49 2f 31 38 30 29 29 2e 38 30 31 31 30 20 50 52 49 4e 54 ┆COS(VINKELA*PI/180)).80110 PRINT┆
0x216c0…216e0 20 55 53 49 4e 47 20 22 61 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 2e 23 23 ┆ USING "a: ###.##┆
0x216e0…21700 23 20 20 20 20 20 20 20 20 20 20 22 3a 41 38 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆# ":A8 ccccccccccccccc┆
0x21700…21720 (16, 1, 8) ExtentHdr {name=»OPLYSNIN«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0021,0d (0x021d00)}, f99=41 21 00 fe 00 50 4c 59 53 4e ┆A! PLYSN┆}
0x21720…21740 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆?0010 // -----------------------┆
0x21740…21760 2d 20 6f 70 6c 79 73 6e 69 6e 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- oplysning --------------------┆
0x21760…21780 3f 3f 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 72 20 6e 75 6d 6d ┆??0020 // Programmet finder numm┆
0x21780…217a0 65 72 20 70 7d 20 65 6e 20 6c 7b 72 65 72 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 ┆er på en lærer, når man indtaste┆
0x217a0…217c0 72 3f 3d 30 30 33 30 20 2f 2f 20 6c 7b 72 65 72 65 6e 73 20 6e 61 76 6e 2e 20 4c 7b 72 65 72 6e ┆r?=0030 // lærerens navn. Lærern┆
0x217c0…217e0 65 73 20 64 61 74 61 20 6c 69 67 67 65 72 20 69 20 65 6e 20 73 74 72 65 6e 67 74 61 62 65 6c 2e ┆es data ligger i en strengtabel.┆
0x217e0…21800 3d 08 30 30 34 30 20 2f 2f 20 08 0e 30 30 34 35 20 49 4e 54 45 47 45 52 20 49 0e 31 30 30 35 30 ┆= 0040 // 0045 INTEGER I 10050┆
0x21800…21820 (16, 1, 9) 20 44 49 4d 20 4c 5b 52 45 52 24 28 31 32 29 20 4f 46 20 33 30 2c 54 45 41 43 48 45 52 24 20 4f ┆ DIM LÆRER$(12) OF 30,TEACHER$ O┆
0x21820…21840 46 20 32 35 2c 53 56 24 20 4f 46 20 31 31 08 30 30 36 30 20 2f 2f 20 08 15 30 30 37 30 20 45 58 ┆F 25,SV$ OF 11 0060 // 0070 EX┆
0x21840…21860 45 43 20 53 54 52 45 4e 47 54 41 42 45 4c 15 13 30 30 38 30 20 45 58 45 43 20 4f 50 4c 59 53 4e ┆EC STRENGTABEL 0080 EXEC OPLYSN┆
0x21860…21880 49 4e 47 13 08 30 30 39 30 20 2f 2f 20 08 15 30 31 30 30 20 50 52 4f 43 20 53 54 52 45 4e 47 54 ┆ING 0090 // 0100 PROC STRENGT┆
0x21880…218a0 41 42 45 4c 15 1d 30 31 31 30 20 4c 5b 52 45 52 24 28 31 29 3a 3d 22 48 61 6e 73 20 48 61 6e 73 ┆ABEL 0110 LÆRER$(1):="Hans Hans┆
0x218a0…218c0 65 6e 22 1d 1d 30 31 32 30 20 4c 5b 52 45 52 24 28 32 29 3a 3d 22 4a 65 6e 73 20 4a 65 6e 73 65 ┆en" 0120 LÆRER$(2):="Jens Jense┆
0x218c0…218e0 6e 22 1d 20 30 31 33 30 20 4c 5b 52 45 52 24 28 33 29 3a 3d 22 50 65 74 65 72 20 50 65 74 65 72 ┆n" 0130 LÆRER$(3):="Peter Peter┆
0x218e0…21900 73 65 6e 22 20 1f 30 31 34 30 20 4c 5b 52 45 52 24 28 34 29 3a 3d 22 4e 69 65 6c 73 20 4e 69 65 ┆sen" 0140 LÆRER$(4):="Niels Nie┆
0x21900…21920 (16, 1, 10) 6c 73 65 6e 22 1f 1c 30 31 35 30 20 4c 5b 52 45 52 24 28 35 29 3a 3d 22 4f 76 65 20 4f 76 65 73 ┆lsen" 0150 LÆRER$(5):="Ove Oves┆
0x21920…21940 65 6e 22 1c 1e 30 31 36 30 20 4c 5b 52 45 52 24 28 36 29 3a 3d 22 4a 6f 68 6e 20 4a 6f 68 6e 73 ┆en" 0160 LÆRER$(6):="John Johns┆
0x21940…21960 65 6e 22 1e 20 30 31 37 30 20 4c 5b 52 45 52 24 28 37 29 3a 3d 22 48 61 6e 6e 65 20 48 61 6e 6e ┆en" 0170 LÆRER$(7):="Hanne Hann┆
0x21960…21980 65 73 65 6e 22 20 21 30 31 38 30 20 4c 5b 52 45 52 24 28 38 29 3a 3d 22 53 7c 72 69 6e 65 20 53 ┆esen" !0180 LÆRER$(8):="Sørine S┆
0x21980…219a0 7c 72 65 6e 73 65 6e 22 21 20 30 31 39 30 20 4c 5b 52 45 52 24 28 39 29 3a 3d 22 50 65 74 72 61 ┆ørensen"! 0190 LÆRER$(9):="Petra┆
0x219a0…219c0 20 50 65 74 65 72 73 65 6e 22 20 23 30 32 30 30 20 4c 5b 52 45 52 24 28 31 30 29 3a 3d 22 42 69 ┆ Petersen" #0200 LÆRER$(10):="Bi┆
0x219c0…219e0 72 74 68 65 20 42 69 72 74 68 65 73 65 6e 22 23 1f 30 32 31 30 20 4c 5b 52 45 52 24 28 31 31 29 ┆rthe Birthesen"# 0210 LÆRER$(11)┆
0x219e0…21a00 3a 3d 22 4c 69 6e 65 20 4c 65 6e 65 73 65 6e 22 1f 1e 30 32 32 30 20 4c 5b 52 45 52 24 28 31 32 ┆:="Line Lenesen" 0220 LÆRER$(12┆
0x21a00…21a20 (16, 1, 11) 29 3a 3d 22 50 69 61 20 4e 69 65 6c 73 65 6e 22 1e 18 30 32 33 30 20 45 4e 44 50 52 4f 43 20 53 ┆):="Pia Nielsen" 0230 ENDPROC S┆
0x21a20…21a40 54 52 45 4e 47 54 41 42 45 4c 18 08 30 32 34 30 20 2f 2f 20 08 13 30 32 35 30 20 50 52 4f 43 20 ┆TRENGTABEL 0240 // 0250 PROC ┆
0x21a40…21a60 4f 50 4c 59 53 4e 49 4e 47 13 0c 30 32 36 30 20 52 45 50 45 41 54 20 0c 0b 30 32 37 30 20 43 4c ┆OPLYSNING 0260 REPEAT 0270 CL┆
0x21a60…21a80 45 41 52 20 0b 09 30 32 38 30 20 49 3a 3d 30 09 0f 30 32 39 30 20 43 55 52 53 4f 52 20 35 2c 37 ┆EAR 0280 I:=0 0290 CURSOR 5,7┆
0x21a80…21aa0 0f 36 30 33 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 6c 7b 72 65 72 65 6e 73 20 6e 61 76 ┆ 60300 INPUT "Skriv lærerens nav┆
0x21aa0…21ac0 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 54 45 41 43 48 45 52 24 36 0c 30 33 31 30 20 52 ┆n: ":TEACHER$6 0310 R┆
0x21ac0…21ae0 45 50 45 41 54 20 0c 0b 30 33 32 30 20 49 3a 3d 49 2b 31 0b 26 30 33 33 30 20 55 4e 54 49 4c 20 ┆EPEAT 0320 I:=I+1 &0330 UNTIL ┆
0x21ae0…21b00 4c 5b 52 45 52 24 28 49 29 3d 54 45 41 43 48 45 52 24 20 4f 52 20 49 3d 3e 31 32 26 20 30 33 34 ┆LÆRER$(I)=TEACHER$ OR I=>12& 034┆
0x21b00…21b20 (16, 1, 12) 30 20 49 46 20 4c 5b 52 45 52 24 28 49 29 3d 54 45 41 43 48 45 52 24 20 54 48 45 4e 20 20 10 30 ┆0 IF LÆRER$(I)=TEACHER$ THEN 0┆
0x21b20…21b40 33 35 30 20 43 55 52 53 4f 52 20 35 2c 31 34 10 29 30 33 36 30 20 50 52 49 4e 54 20 22 4c 7b 72 ┆350 CURSOR 5,14 )0360 PRINT "Lær┆
0x21b40…21b60 65 72 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 22 3b 49 2b 39 39 29 10 30 33 37 30 ┆ernummer: ";I+99) 0370┆
0x21b60…21b80 20 43 55 52 53 4f 52 20 35 2c 31 36 10 2e 30 33 38 30 20 50 52 49 4e 54 20 22 4e 61 76 6e 3a 20 ┆ CURSOR 5,16 .0380 PRINT "Navn: ┆
0x21b80…21ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4c 5b 52 45 52 24 28 49 29 2e 0a 30 33 ┆ ";LÆRER$(I). 03┆
0x21ba0…21bc0 39 30 20 45 4c 53 45 20 0a 10 30 34 30 30 20 43 55 52 53 4f 52 20 35 2c 31 34 10 3e 30 34 31 30 ┆90 ELSE 0400 CURSOR 5,14 >0410┆
0x21bc0…21be0 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 64 65 73 76 7b 72 72 65 20 69 6e 67 65 6e 20 6c 7b ┆ PRINT "Vi har desværre ingen læ┆
0x21be0…21c00 72 65 72 20 6d 65 64 20 6e 61 76 6e 65 74 3a 20 22 3b 54 45 41 43 48 45 52 24 3e 0b 30 34 32 30 ┆rer med navnet: ";TEACHER$> 0420┆
0x21c00…21c20 (16, 1, 13) 20 45 4e 44 49 46 20 0b 10 30 34 34 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 3a 30 34 35 30 20 ┆ ENDIF 0440 CURSOR 5,20 :0450 ┆
0x21c20…21c40 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 66 6c 65 72 65 20 6f 70 6c 79 73 6e 69 6e 67 ┆INPUT "Ønsker du flere oplysning┆
0x21c40…21c60 65 72 3f 20 20 20 20 20 20 28 6a 2f 6e 29 20 20 22 3a 53 56 24 3a 12 30 34 38 30 20 55 4e 54 49 ┆er? (j/n) ":SV$: 0480 UNTI┆
0x21c60…21c80 4c 20 53 56 24 3d 22 6e 22 12 10 30 34 39 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 25 30 35 30 ┆L SV$="n" 0490 CURSOR 5,23 %050┆
0x21c80…21ca0 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 64 61 67 ┆0 PRINT "Så slutter vi for i dag┆
0x21ca0…21cc0 2e 22 25 16 30 35 31 30 20 45 4e 44 50 52 4f 43 20 4f 50 4c 59 53 4e 49 4e 47 16 00 00 63 63 63 ┆."% 0510 ENDPROC OPLYSNING ccc┆
0x21cc0…21ce0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x21d00…21d20 (16, 1, 14) ExtentHdr {name=»RET_LINI«, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 0022,01 (0x022100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,01 (0x022100)}, f99=41 21 00 fe 00 50 4c 59 53 4e ┆A! PLYSN┆}
0x21d20…21d40 4b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6c ┆K0010 // --------------------- l┆
0x21d40…21d60 69 6e 69 65 73 20 5f 6c 69 67 6e 69 6e 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆inies _ligning -----------------┆
0x21d60…21d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 4b 30 30 32 30 20 2f 2f 20 4f 70 73 74 69 6c 6c 65 72 20 ┆------------KK0020 // Opstiller ┆
0x21d80…21da0 6c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 65 6e 20 72 65 74 20 6c 69 6e 69 65 2c 20 6e 7d 72 20 ┆ligningen for en ret linie, når ┆
0x21da0…21dc0 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 74 6f 20 70 75 6e 6b 74 65 72 73 4b 14 30 30 33 30 20 ┆man indtaster to punktersK 0030 ┆
0x21dc0…21de0 2f 2f 20 6b 6f 6f 72 64 69 6e 61 74 65 72 2e 14 08 30 30 34 30 20 2f 2f 20 08 18 30 30 34 35 20 ┆// koordinater. 0040 // 0045 ┆
0x21de0…21e00 49 4e 54 45 47 45 52 20 58 31 2c 58 32 2c 59 31 2c 59 32 18 0b 30 30 35 30 20 43 4c 45 41 52 20 ┆INTEGER X1,X2,Y1,Y2 0050 CLEAR ┆
0x21e00…21e20 (16, 1, 15) 0b 0f 30 30 37 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 43 30 30 38 30 20 50 52 49 4e 54 20 22 4c ┆ 0070 CURSOR 1,5 C0080 PRINT "L┆
0x21e20…21e40 20 69 20 67 20 6e 20 69 20 6e 20 67 20 65 20 6e 20 20 20 66 20 6f 20 72 20 20 20 65 20 6e 20 20 ┆ i g n i n g e n f o r e n ┆
0x21e40…21e60 20 20 72 20 65 20 74 20 20 20 6c 20 69 20 6e 20 69 20 65 20 2e 22 43 0f 30 30 39 30 20 43 55 52 ┆ r e t l i n i e ."C 0090 CUR┆
0x21e60…21e80 53 4f 52 20 31 2c 36 0f 43 30 31 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆SOR 1,6 C0100 PRINT "-----------┆
0x21e80…21ea0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x21ea0…21ec0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 43 0f 30 31 31 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 35 30 ┆-----------"C 0110 CURSOR 1,9 50┆
0x21ec0…21ee0 31 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 75 6e 6b 74 20 31 27 73 20 6b 6f 6f ┆120 INPUT "Indtast punkt 1's koo┆
0x21ee0…21f00 72 64 69 6e 61 74 65 72 3a 20 20 20 20 22 3a 58 31 2c 59 31 35 35 30 31 33 30 20 49 4e 50 55 54 ┆rdinater: ":X1,Y1550130 INPUT┆
0x21f00…21f20 (16, 1, 16) 20 22 49 6e 64 74 61 73 74 20 70 75 6e 6b 74 20 32 27 73 20 6b 6f 6f 72 64 69 6e 61 74 65 72 3a ┆ "Indtast punkt 2's koordinater:┆
0x21f20…21f40 20 20 20 20 22 3a 58 32 2c 59 32 35 08 30 31 34 30 20 2f 2f 20 08 13 30 31 35 30 20 49 46 20 58 ┆ ":X2,Y25 0140 // 0150 IF X┆
0x21f40…21f60 31 3d 58 32 20 54 48 45 4e 20 13 13 30 31 36 30 20 49 46 20 59 31 3d 59 32 20 54 48 45 4e 20 13 ┆1=X2 THEN 0160 IF Y1=Y2 THEN ┆
0x21f60…21f80 28 30 31 37 30 20 50 52 49 4e 54 20 22 50 75 6e 6b 74 65 72 6e 65 20 65 72 20 73 61 6d 6d 65 6e ┆(0170 PRINT "Punkterne er sammen┆
0x21f80…21fa0 66 61 6c 64 65 6e 64 65 22 28 0a 30 31 38 30 20 53 54 4f 50 20 0a 0b 30 31 39 30 20 45 4e 44 49 ┆faldende"( 0180 STOP 0190 ENDI┆
0x21fa0…21fc0 46 20 0b 4c 30 32 30 30 20 50 52 49 4e 54 20 22 4c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 6c 69 ┆F L0200 PRINT "Ligningen for li┆
0x21fc0…21fe0 6e 69 65 6e 20 67 65 6e 6e 65 6d 20 28 22 3b 58 31 3b 22 2c 22 3b 59 31 3b 22 29 20 6f 67 20 28 ┆nien gennem (";X1;",";Y1;") og (┆
0x21fe0…22000 22 3b 58 32 3b 22 2c 22 3b 59 32 3b 22 29 22 3b 4c 1a 30 32 31 30 20 50 52 49 4e 54 20 22 20 65 ┆";X2;",";Y2;")";L 0210 PRINT " e┆
0x22000…22020 (17, 0, 1) 72 3a 20 20 78 20 3d 20 22 3b 58 31 1a 0a 30 32 32 30 20 45 4c 53 45 20 0a 17 30 32 33 30 20 41 ┆r: x = ";X1 0220 ELSE 0230 A┆
0x22020…22040 3a 3d 28 59 31 2d 59 32 29 2f 28 58 31 2d 58 32 29 17 0f 30 32 34 30 20 42 3a 3d 59 31 2d 41 2a ┆:=(Y1-Y2)/(X1-X2) 0240 B:=Y1-A*┆
0x22040…22060 58 31 0f 0b 30 32 35 30 20 50 52 49 4e 54 20 0b 4c 30 32 36 30 20 50 52 49 4e 54 20 22 4c 69 67 ┆X1 0250 PRINT L0260 PRINT "Lig┆
0x22060…22080 6e 69 6e 67 65 6e 20 66 6f 72 20 6c 69 6e 69 65 6e 20 67 65 6e 6e 65 6d 20 28 22 3b 58 31 3b 22 ┆ningen for linien gennem (";X1;"┆
0x22080…220a0 2c 22 3b 59 31 3b 22 29 20 6f 67 20 28 22 3b 58 32 3b 22 2c 22 3b 59 32 3b 22 29 22 3b 4c 11 30 ┆,";Y1;") og (";X2;",";Y2;")";L 0┆
0x220a0…220c0 32 36 39 20 49 46 20 42 3e 30 20 54 48 45 4e 20 11 33 30 32 37 30 20 50 52 49 4e 54 20 55 53 49 ┆269 IF B>0 THEN 30270 PRINT USI┆
0x220c0…220e0 4e 47 20 22 20 65 72 3a 20 20 79 20 20 3d 20 20 23 23 23 2e 23 23 20 78 20 2b 23 23 23 2e 23 23 ┆NG " er: y = ###.## x +###.##┆
0x220e0…22100 22 3a 41 2c 42 33 0a 30 32 37 34 20 45 4c 53 45 20 0a 33 30 32 37 35 20 50 52 49 4e 54 20 55 53 ┆":A,B3 0274 ELSE 30275 PRINT US┆
0x22100…22120 (17, 0, 2) ExtentHdr {name=»RET_LINI«, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0021,0d (0x021d00)}, nextfile={DA 0022,05 (0x022500)}, f99=41 21 00 20 00 50 4c 59 53 4e ┆A! PLYSN┆}
0x22120…22140 49 4e 47 20 22 20 65 72 3a 20 20 79 20 20 3d 20 20 23 23 23 2e 23 23 20 78 20 23 23 23 23 2e 23 ┆ING " er: y = ###.## x ####.#┆
0x22140…22160 23 22 3a 41 2c 42 33 0b 30 32 37 36 20 45 4e 44 49 46 20 0b 0b 30 32 38 30 20 45 4e 44 49 46 20 ┆#":A,B3 0276 ENDIF 0280 ENDIF ┆
0x22160…22180 0b 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 4b 30 30 32 30 20 2f 2f 20 4f 70 73 74 69 6c 6c 65 72 20 ┆ ---------KK0020 // Opstiller ┆
0x22180…221a0 6c 69 67 6e 69 6e 67 65 6e 20 66 6f 72 20 65 6e 20 72 65 74 20 6c 69 6e 69 65 2c 20 6e 7d 72 20 ┆ligningen for en ret linie, når ┆
0x221a0…221c0 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 74 6f 20 70 75 6e 6b 74 65 72 73 4b 14 30 30 33 30 20 ┆man indtaster to punktersK 0030 ┆
0x221c0…221e0 2f 2f 20 6b 6f 6f 72 64 69 6e 61 74 65 72 2e 14 08 30 30 34 30 20 2f 2f 20 08 18 30 30 34 35 20 ┆// koordinater. 0040 // 0045 ┆
0x221e0…22200 49 4e 54 45 47 45 52 20 58 31 2c 58 32 2c 59 31 2c 59 32 18 0b 30 30 35 30 20 43 4c 45 41 52 20 ┆INTEGER X1,X2,Y1,Y2 0050 CLEAR ┆
0x22200…22300 (17, 0, 3) 0x63[0x100]
[…0x2…]
0x22500…22520 (17, 0, 6) ExtentHdr {name=»MÅNED_NA«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0022,0b (0x022b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x22520…22540 48 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0010 // -----------------------┆
0x22540…22560 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6d 7d 6e 65 64 5f 6e 61 76 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------- måned_navn -----------┆
0x22560…22580 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 39 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 ┆---------H90020 // Programmet ud┆
0x22580…225a0 73 6b 72 69 76 65 72 20 65 6e 20 6d 7d 6e 65 64 73 20 6e 61 76 6e 20 73 61 6d 74 20 61 6e 74 61 ┆skriver en måneds navn samt anta┆
0x225a0…225c0 6c 6c 65 74 39 3c 30 30 33 30 20 2f 2f 20 61 66 20 64 61 67 65 6e 20 69 20 6d 7d 6e 65 64 65 6e ┆llet9<0030 // af dagen i måneden┆
0x225c0…225e0 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 64 65 6e 20 70 7d 67 7b 6c 64 65 6e ┆, når man indtaster den pågælden┆
0x225e0…22600 64 65 3c 14 30 30 34 30 20 2f 2f 20 6d 7d 6e 65 64 73 20 6e 61 76 6e 2e 14 08 30 30 35 30 20 2f ┆de< 0040 // måneds navn. 0050 /┆
0x22600…22620 (17, 0, 7) 2f 20 08 24 30 30 35 35 20 49 4e 54 45 47 45 52 20 46 41 4c 53 45 2c 54 52 55 45 2c 46 55 4e 44 ┆/ $0055 INTEGER FALSE,TRUE,FUND┆
0x22620…22640 45 54 2c 41 4e 54 41 4c 24 15 30 30 35 36 20 46 41 4c 53 45 3a 3d 30 3b 54 52 55 45 3a 3d 31 15 ┆ET,ANTAL$ 0056 FALSE:=0;TRUE:=1 ┆
0x22640…22660 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 12 30 30 37 30 20 46 55 4e 44 45 54 3a 3d 46 41 4c 53 45 ┆ 0060 CLEAR 0070 FUNDET:=FALSE┆
0x22660…22680 12 23 30 30 38 30 20 44 49 4d 20 4d 5d 4e 45 44 24 20 4f 46 20 33 30 2c 4d 5d 4e 45 44 32 24 20 ┆ #0080 DIM MÅNED$ OF 30,MÅNED2$ ┆
0x22680…226a0 4f 46 20 38 30 23 0f 30 30 39 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 27 30 31 30 30 20 50 52 49 ┆OF 80# 0090 CURSOR 1,3 '0100 PRI┆
0x226a0…226c0 4e 54 20 22 41 6e 74 61 6c 20 61 66 20 64 61 67 65 20 69 20 65 6e 20 6d 7d 6e 65 64 3a 20 22 27 ┆NT "Antal af dage i en måned: "'┆
0x226c0…226e0 0f 30 31 31 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 27 30 31 32 30 20 50 52 49 4e 54 20 22 2d 2d ┆ 0110 CURSOR 1,4 '0120 PRINT "--┆
0x226e0…22700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 22 27 0c 30 31 33 30 20 ┆----------------------- "' 0130 ┆
0x22700…22720 (17, 0, 8) 52 45 50 45 41 54 20 0c 0f 30 31 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 3b 30 31 35 30 20 49 ┆REPEAT 0140 CURSOR 1,6 ;0150 I┆
0x22720…22740 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6d 7d 6e 65 64 65 6e 73 20 6e 61 76 6e 20 28 66 78 2e ┆NPUT "Indtast månedens navn (fx.┆
0x22740…22760 20 41 70 72 69 6c 29 3a 20 20 20 20 22 3a 4d 5d 4e 45 44 32 24 3b 19 30 31 36 30 20 55 4e 54 49 ┆ April): ":MÅNED2$; 0160 UNTI┆
0x22760…22780 4c 20 4c 45 4e 28 4d 5d 4e 45 44 32 24 29 3e 32 19 08 30 31 37 30 20 2f 2f 20 08 17 30 31 38 30 ┆L LEN(MÅNED2$)>2 0170 // 0180┆
0x22780…227a0 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 32 20 44 4f 20 17 16 30 31 39 30 20 52 45 41 44 20 4d ┆ FOR I:=1 TO 12 DO 0190 READ M┆
0x227a0…227c0 5d 4e 45 44 24 2c 41 4e 54 41 4c 16 36 30 32 30 30 20 49 46 20 4d 5d 4e 45 44 32 24 20 49 4e 20 ┆ÅNED$,ANTAL 60200 IF MÅNED2$ IN ┆
0x227c0…227e0 4d 5d 4e 45 44 24 20 41 4e 44 20 4d 5d 4e 45 44 32 24 3c 3e 22 46 65 62 72 75 61 72 22 20 54 48 ┆MÅNED$ AND MÅNED2$<>"Februar" TH┆
0x227e0…22800 45 4e 20 36 10 30 32 31 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 35 30 32 32 30 20 50 52 49 4e ┆EN 6 0210 CURSOR 1,10 50220 PRIN┆
0x22800…22820 (17, 0, 9) 54 20 22 4d 7d 6e 65 64 65 6e 3a 20 20 22 3b 4d 5d 4e 45 44 24 3b 22 20 68 61 72 20 22 3b 41 4e ┆T "Måneden: ";MÅNED$;" har ";AN┆
0x22820…22840 54 41 4c 3b 22 20 64 61 67 65 2e 22 35 10 30 32 33 30 20 43 55 52 53 4f 52 20 31 2c 31 31 10 35 ┆TAL;" dage."5 0230 CURSOR 1,11 5┆
0x22840…22860 30 32 34 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0240 PRINT "--------------------┆
0x22860…22880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 35 11 30 32 35 30 20 46 55 4e 44 ┆--------------------"5 0250 FUND┆
0x22880…228a0 45 54 3a 3d 54 52 55 45 11 0a 30 32 36 30 20 45 4c 53 45 20 0a 35 30 32 36 35 20 49 46 20 4d 5d ┆ET:=TRUE 0260 ELSE 50265 IF MÅ┆
0x228a0…228c0 4e 45 44 32 24 20 49 4e 20 4d 5d 4e 45 44 24 20 41 4e 44 20 4d 5d 4e 45 44 32 24 3d 22 46 65 62 ┆NED2$ IN MÅNED$ AND MÅNED2$="Feb┆
0x228c0…228e0 72 75 61 72 22 20 54 48 45 4e 20 35 10 30 32 37 30 20 43 55 52 53 4f 52 20 31 2c 31 30 10 49 30 ┆ruar" THEN 5 0270 CURSOR 1,10 I0┆
0x228e0…22900 32 38 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 65 6e 3a 20 22 3b 4d 5d 4e 45 44 24 3b 22 20 68 ┆280 PRINT "Måneden: ";MÅNED$;" h┆
0x22900…22920 (17, 0, 10) 61 72 20 22 3b 41 4e 54 41 4c 3b 22 64 61 67 65 20 65 6c 6c 65 72 20 22 3b 41 4e 54 41 4c 2b 31 ┆ar ";ANTAL;"dage eller ";ANTAL+1┆
0x22920…22940 3b 22 64 61 67 65 2e 22 49 10 30 32 39 30 20 43 55 52 53 4f 52 20 31 2c 31 31 10 48 30 33 30 30 ┆;"dage."I 0290 CURSOR 1,11 H0300┆
0x22940…22960 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ PRINT "------------------------┆
0x22960…22980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x22980…229a0 2d 2d 2d 22 48 11 30 33 31 30 20 46 55 4e 44 45 54 3a 3d 54 52 55 45 11 0b 30 33 32 30 20 45 4e ┆---"H 0310 FUNDET:=TRUE 0320 EN┆
0x229a0…229c0 44 49 46 20 0b 0b 30 33 32 35 20 45 4e 44 49 46 20 0b 0b 30 33 33 30 20 4e 45 58 54 20 49 0b 18 ┆DIF 0325 ENDIF 0330 NEXT I ┆
0x229c0…229e0 30 33 34 30 20 49 46 20 4e 4f 54 20 46 55 4e 44 45 54 20 54 48 45 4e 20 18 10 30 33 35 30 20 43 ┆0340 IF NOT FUNDET THEN 0350 C┆
0x229e0…22a00 55 52 53 4f 52 20 31 2c 31 36 10 30 30 33 36 30 20 50 52 49 4e 54 20 22 4a 65 67 20 6b 65 6e 64 ┆URSOR 1,16 00360 PRINT "Jeg kend┆
0x22a00…22a20 (17, 0, 11) 65 72 20 64 65 73 76 7b 72 72 65 20 69 6b 6b 65 20 64 65 6e 20 6d 7d 6e 65 64 2e 22 30 0b 30 33 ┆er desværre ikke den måned."0 03┆
0x22a20…22a40 37 30 20 45 4e 44 49 46 20 0b 08 30 33 38 30 20 2f 2f 20 08 41 30 33 39 30 20 44 41 54 41 20 22 ┆70 ENDIF 0380 // A0390 DATA "┆
0x22a40…22a60 4a 61 6e 75 61 72 22 2c 33 31 2c 22 46 65 62 72 75 61 72 22 2c 32 38 2c 22 4d 61 72 74 73 22 2c ┆Januar",31,"Februar",28,"Marts",┆
0x22a60…22a80 33 31 2c 22 41 70 72 69 6c 22 2c 33 30 2c 22 4d 61 6a 22 2c 33 31 41 45 30 34 30 30 20 44 41 54 ┆31,"April",30,"Maj",31AE0400 DAT┆
0x22a80…22aa0 41 20 22 4a 75 6e 69 22 2c 33 30 2c 22 4a 75 6c 69 22 2c 33 31 2c 22 41 75 67 75 73 74 22 2c 33 ┆A "Juni",30,"Juli",31,"August",3┆
0x22aa0…22ac0 31 2c 22 53 65 70 74 65 6d 62 65 72 22 2c 33 30 2c 22 4f 6b 74 6f 62 65 72 22 2c 33 31 45 25 30 ┆1,"September",30,"Oktober",31E%0┆
0x22ac0…22ae0 34 31 30 20 44 41 54 41 20 22 4e 6f 76 65 6d 62 65 72 22 2c 33 30 2c 22 44 65 63 65 6d 62 65 72 ┆410 DATA "November",30,"December┆
0x22ae0…22b00 22 2c 33 31 25 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆",31% ccccccccccccccccccccccccc┆
0x22b00…22b20 (17, 0, 12) ExtentHdr {name=»UR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,05 (0x023500)}, f99=41 22 00 fe 00 00 00 00 00 00 ┆A" ┆}
0x22b20…22b40 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆
0x22b40…22b60 20 75 72 65 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ uret --------------------------┆
0x22b60…22b80 2d 2d 2d 2d 43 0b 30 31 31 30 20 43 4c 45 41 52 20 0b 10 30 31 32 30 20 43 55 52 53 4f 52 20 32 ┆----C 0110 CLEAR 0120 CURSOR 2┆
0x22b80…22ba0 37 2c 35 10 24 30 31 33 30 20 50 52 49 4e 54 20 22 54 20 45 20 4d 20 50 20 55 20 53 20 20 20 46 ┆7,5 $0130 PRINT "T E M P U S F┆
0x22ba0…22bc0 20 55 20 47 20 49 20 54 22 24 10 30 31 34 30 20 43 55 52 53 4f 52 20 32 37 2c 36 10 26 30 31 35 ┆ U G I T"$ 0140 CURSOR 27,6 &015┆
0x22bc0…22be0 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT "-----------------------┆
0x22be0…22c00 2d 2d 22 26 0f 30 31 36 30 20 45 58 45 43 20 52 41 4d 4d 45 0f 0e 30 31 37 30 20 45 58 45 43 20 ┆--"& 0160 EXEC RAMME 0170 EXEC ┆
0x22c00…22c20 (17, 0, 13) 44 5c 47 4e 0e 05 30 31 38 30 20 05 0e 30 31 39 30 20 50 52 4f 43 20 44 5c 47 4e 0e 1a 30 32 30 ┆DØGN 0180 0190 PROC DØGN 020┆
0x22c20…22c40 30 20 46 4f 52 20 54 49 4d 45 3a 3d 30 20 54 4f 20 32 33 20 44 4f 20 1a 1b 30 32 31 30 20 46 4f ┆0 FOR TIME:=0 TO 23 DO 0210 FO┆
0x22c40…22c60 52 20 4d 49 4e 55 54 3a 3d 30 20 54 4f 20 35 39 20 44 4f 20 1b 1c 30 32 32 30 20 46 4f 52 20 53 ┆R MINUT:=0 TO 59 DO 0220 FOR S┆
0x22c60…22c80 45 4b 55 4e 44 3a 3d 30 20 54 4f 20 35 39 20 44 4f 20 1c 11 30 32 33 30 20 43 55 52 53 4f 52 20 ┆EKUND:=0 TO 59 DO 0230 CURSOR ┆
0x22c80…22ca0 33 30 2c 31 33 11 36 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 20 20 20 20 ┆30,13 60240 PRINT USING "### ┆
0x22ca0…22cc0 23 23 23 20 20 20 20 23 23 23 22 3a 54 49 4d 45 2c 4d 49 4e 55 54 2c 53 45 4b 55 4e 44 36 18 30 ┆### ###":TIME,MINUT,SEKUND6 0┆
0x22cc0…22ce0 32 35 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 31 30 20 44 4f 20 18 0b 30 32 36 30 20 4e 45 ┆250 FOR A:=1 TO 110 DO 0260 NE┆
0x22ce0…22d00 58 54 20 41 0b 10 30 32 37 30 20 4e 45 58 54 20 53 45 4b 55 4e 44 10 0f 30 32 38 30 20 4e 45 58 ┆XT A 0270 NEXT SEKUND 0280 NEX┆
0x22d00…22d20 (17, 0, 14) 54 20 4d 49 4e 55 54 0f 0e 30 32 39 30 20 4e 45 58 54 20 54 49 4d 45 0e 11 30 33 30 30 20 45 4e ┆T MINUT 0290 NEXT TIME 0300 EN┆
0x22d20…22d40 44 50 52 4f 43 20 44 5c 47 4e 11 05 30 33 31 30 20 05 0f 30 33 32 30 20 50 52 4f 43 20 52 41 4d ┆DPROC DØGN 0310 0320 PROC RAM┆
0x22d40…22d60 4d 45 0f 10 30 33 33 30 20 43 55 52 53 4f 52 20 31 38 2c 38 10 3a 30 33 34 30 20 50 52 49 4e 54 ┆ME 0330 CURSOR 18,8 :0340 PRINT┆
0x22d60…22d80 20 22 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "*-----------------------------┆
0x22d80…22da0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 22 3a 17 30 33 35 30 20 46 4f 52 20 49 3a 3d 39 20 ┆--------------*": 0350 FOR I:=9 ┆
0x22da0…22dc0 54 4f 20 31 37 20 44 4f 20 17 10 30 33 36 30 20 43 55 52 53 4f 52 20 31 38 2c 49 10 3a 30 33 37 ┆TO 17 DO 0360 CURSOR 18,I :037┆
0x22dc0…22de0 30 20 50 52 49 4e 54 20 22 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆0 PRINT "! ┆
0x22de0…22e00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 21 22 3a 0b 30 33 38 30 20 4e 45 ┆ !": 0380 NE┆
0x22e00…22e20 (17, 0, 15) 58 54 20 49 0b 11 30 33 39 30 20 43 55 52 53 4f 52 20 31 38 2c 31 38 11 3a 30 34 30 30 20 50 52 ┆XT I 0390 CURSOR 18,18 :0400 PR┆
0x22e20…22e40 49 4e 54 20 22 2a 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INT "*--------------------------┆
0x22e40…22e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2a 22 3a 11 30 34 30 31 20 43 55 52 53 4f 52 ┆-----------------*": 0401 CURSOR┆
0x22e60…22e80 20 32 39 2c 31 30 11 25 30 34 30 32 20 50 52 49 4e 54 20 22 54 69 6d 65 3a 20 20 20 4d 69 6e 75 ┆ 29,10 %0402 PRINT "Time: Minu┆
0x22e80…22ea0 74 3a 20 20 20 53 65 6b 75 6e 64 3a 22 25 12 30 34 31 30 20 45 4e 44 50 52 4f 43 20 52 41 4d 4d ┆t: Sekund:"% 0410 ENDPROC RAMM┆
0x22ea0…22ec0 45 12 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆E cccccccccccccccccccccccccccc┆
0x22ec0…22ee0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x22f00…23000 (17, 0, 16) 0x63[0x100]
[…0x5…]
0x23500…23520 (17, 1, 6) ExtentHdr {name=»HIGHSCOR«, typ=»K«, seg=»A«, next=0x00, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0023,06 (0x023600)}, f99=41 22 00 28 00 49 47 48 53 43 ┆A" ( IGHSC┆}
0x23520…23540 00 50 52 61 70 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ff ┆ PRap ┆
0x23540…23560 20 20 20 00 00 00 00 00 00 50 52 75 70 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ PRup ┆
0x23560…23580 20 20 20 20 20 20 20 ff 20 20 20 00 00 00 00 00 00 50 52 69 70 00 20 20 20 20 20 20 20 20 20 20 ┆ PRip ┆
0x23580…235a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ff 20 20 20 00 00 00 00 00 00 14 41 6e 64 65 72 73 ┆ Anders┆
0x235a0…235c0 20 41 6e 64 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ff 20 20 20 00 00 00 00 00 ┆ And ┆
0x235c0…235e0 00 0a 46 65 64 74 6d 75 6c 65 00 64 00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ff ┆ Fedtmule d ┆
0x235e0…23600 20 20 20 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 ┆ ┆
0x23600…23620 (17, 1, 7) ExtentHdr {name=»LOG10 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,00 (0x024000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x23620…23640 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x23640…23660 2d 20 6c 6f 67 31 30 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- log10 ------------------------┆
0x23660…23680 2d 2d 2d 2d 2d 44 08 30 30 32 30 20 2f 2f 20 08 14 30 30 33 30 20 50 52 4f 43 20 46 4e 4c 4f 47 ┆-----D 0020 // 0030 PROC FNLOG┆
0x23680…236a0 31 30 28 58 29 14 1c 30 30 34 30 20 46 4e 4c 4f 47 31 30 3a 3d 4c 4f 47 28 58 29 2f 4c 4f 47 28 ┆10(X) 0040 FNLOG10:=LOG(X)/LOG(┆
0x236a0…236c0 31 30 29 1c 14 30 30 35 30 20 45 4e 44 50 52 4f 43 20 46 4e 4c 4f 47 31 30 14 08 30 30 36 30 20 ┆10) 0050 ENDPROC FNLOG10 0060 ┆
0x236c0…236e0 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 37 35 20 50 52 49 4e 54 20 0b 2b 30 ┆// 0070 CLEAR 0075 PRINT +0┆
0x236e0…23700 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 70 6f 73 69 74 69 76 74 20 74 ┆080 INPUT "Indtast et positivt t┆
0x23700…23720 (17, 1, 8) 61 6c 3a 20 20 22 3a 54 41 4c 2b 2c 30 30 39 30 20 50 52 49 4e 54 20 22 6c 6f 67 31 30 28 20 22 ┆al: ":TAL+,0090 PRINT "log10( "┆
0x23720…23740 3b 54 41 4c 3b 22 29 20 3d 20 22 3b 46 4e 4c 4f 47 31 30 28 54 41 4c 29 2c 00 00 63 63 63 63 63 ┆;TAL;") = ";FNLOG10(TAL), ccccc┆
0x23740…23760 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x23800…23900 (17, 1, 9) 0x63[0x100]
[…0x7…]
0x24000…24020 (18, 0, 1) ExtentHdr {name=»STRENGLÆ«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,0a (0x024a00)}, f99=41 24 00 fe 00 00 00 00 00 00 ┆A$ ┆}
0x24020…24040 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 74 ┆A0010 // -------------------- st┆
0x24040…24060 72 65 6e 67 6c 7b 6e 67 64 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆renglængde ---------------------┆
0x24060…24080 2d 2d 41 3a 30 30 32 30 20 44 49 4d 20 4e 41 56 4e 31 24 20 4f 46 20 34 30 2c 4e 41 56 4e 32 24 ┆--A:0020 DIM NAVN1$ OF 40,NAVN2$┆
0x24080…240a0 20 4f 46 20 34 30 2c 4e 41 56 4e 33 24 20 4f 46 20 34 30 2c 53 56 41 52 24 20 4f 46 20 31 3a 0c ┆ OF 40,NAVN3$ OF 40,SVAR$ OF 1: ┆
0x240a0…240c0 30 30 33 30 20 52 45 50 45 41 54 20 0c 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0b 30 30 35 30 20 ┆0030 REPEAT 0040 CLEAR 0050 ┆
0x240c0…240e0 50 52 49 4e 54 20 0b 40 30 30 36 30 20 50 52 49 4e 54 20 22 4c 20 5b 20 4e 20 47 20 44 20 45 20 ┆PRINT @0060 PRINT "L Æ N G D E ┆
0x240e0…24100 4e 20 20 20 41 20 46 20 20 20 53 20 54 20 52 20 45 20 4e 20 47 20 56 20 41 20 52 20 49 20 41 20 ┆N A F S T R E N G V A R I A ┆
0x24100…24120 (18, 0, 2) 42 20 4c 20 45 20 2e 22 40 40 30 30 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B L E ."@@0070 PRINT "----------┆
0x24120…24140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x24140…24160 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 40 0f 30 30 38 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 41 30 30 39 ┆---------"@ 0080 CURSOR 1,5 A009┆
0x24160…24180 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 6e 61 76 6e 3a 20 20 20 28 6d 61 78 ┆0 INPUT "Indtast et navn: (max┆
0x24180…241a0 2e 20 34 30 20 6b 61 72 61 6b 74 65 72 65 72 29 3a 20 20 20 20 20 22 3a 4e 41 56 4e 31 24 41 41 ┆. 40 karakterer): ":NAVN1$AA┆
0x241a0…241c0 30 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 61 6e 64 65 74 20 6e 61 76 ┆0100 INPUT "Indtast et andet nav┆
0x241c0…241e0 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 56 4e 32 ┆n: ":NAVN2┆
0x241e0…24200 24 41 41 30 31 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 72 65 64 69 65 ┆$AA0110 INPUT "Indtast et tredie┆
0x24200…24220 (18, 0, 3) 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 ┆ navn: ":NA┆
0x24220…24240 56 4e 33 24 41 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 4d 30 31 33 30 20 50 52 49 4e 54 20 22 2d ┆VN3$A 0120 PRINT M0130 PRINT "-┆
0x24240…24260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x24260…24280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ┆-------------------------------"┆
0x24280…242a0 4d 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 3b 30 31 35 30 20 50 52 49 4e 54 20 4e 41 56 4e 31 24 ┆M 0140 PRINT ;0150 PRINT NAVN1$┆
0x242a0…242c0 3b 54 41 42 28 34 33 29 3b 22 4c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4c ┆;TAB(43);"Længde: ";L┆
0x242c0…242e0 45 4e 28 4e 41 56 4e 31 24 29 3b 3b 30 31 36 30 20 50 52 49 4e 54 20 4e 41 56 4e 32 24 3b 54 41 ┆EN(NAVN1$);;0160 PRINT NAVN2$;TA┆
0x242e0…24300 42 28 34 33 29 3b 22 4c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4c 45 4e 28 ┆B(43);"Længde: ";LEN(┆
0x24300…24320 (18, 0, 4) 4e 41 56 4e 32 24 29 3b 3b 30 31 37 30 20 50 52 49 4e 54 20 4e 41 56 4e 33 24 3b 54 41 42 28 34 ┆NAVN2$);;0170 PRINT NAVN3$;TAB(4┆
0x24320…24340 33 29 3b 22 4c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4c 45 4e 28 4e 41 56 ┆3);"Længde: ";LEN(NAV┆
0x24340…24360 4e 33 24 29 3b 0b 30 31 38 30 20 50 52 49 4e 54 20 0b 4d 30 31 39 30 20 50 52 49 4e 54 20 22 2d ┆N3$); 0180 PRINT M0190 PRINT "-┆
0x24360…24380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x24380…243a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 ┆-------------------------------"┆
0x243a0…243c0 4d 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 3e 30 32 31 30 20 50 52 49 4e 54 20 4e 41 56 4e 31 24 ┆M 0200 PRINT >0210 PRINT NAVN1$┆
0x243c0…243e0 2b 4e 41 56 4e 32 24 2b 4e 41 56 4e 33 24 3b 54 41 42 28 34 33 29 3b 22 4c 7b 6e 67 64 65 3a 20 ┆+NAVN2$+NAVN3$;TAB(43);"Længde: ┆
0x243e0…24400 20 20 20 20 20 20 20 20 20 20 20 22 3b 3e 2e 30 32 32 30 20 50 52 49 4e 54 20 4c 45 4e 28 4e 41 ┆ ";>.0220 PRINT LEN(NA┆
0x24400…24420 (18, 0, 5) 56 4e 31 24 29 2b 4c 45 4e 28 4e 41 56 4e 32 24 29 2b 4c 45 4e 28 4e 41 56 4e 33 24 29 2e 0b 30 ┆VN1$)+LEN(NAVN2$)+LEN(NAVN3$). 0┆
0x24420…24440 32 33 30 20 50 52 49 4e 54 20 0b 4d 30 32 34 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆230 PRINT M0240 PRINT "--------┆
0x24440…24460 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x24460…24480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 10 30 32 35 30 20 ┆------------------------"M 0250 ┆
0x24480…244a0 43 55 52 53 4f 52 20 31 2c 32 30 10 28 30 32 36 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 ┆CURSOR 1,20 (0260 INPUT "Ønsker ┆
0x244a0…244c0 64 75 20 61 74 20 73 6c 75 74 74 65 3f 20 22 3a 53 56 41 52 24 28 29 30 32 37 30 20 55 4e 54 49 ┆du at slutte? ":SVAR$()0270 UNTI┆
0x244c0…244e0 4c 20 53 56 41 52 24 20 49 4e 20 22 4a 6a 22 20 41 4e 44 20 4c 45 4e 28 53 56 41 52 24 29 3d 31 ┆L SVAR$ IN "Jj" AND LEN(SVAR$)=1┆
0x244e0…24500 29 0b 30 32 38 30 20 50 52 49 4e 54 20 0b 25 30 32 39 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c ┆) 0280 PRINT %0290 PRINT "Så sl┆
0x24500…24520 (18, 0, 6) 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 20 64 61 67 2e 22 25 00 00 63 63 63 63 63 63 63 63 63 ┆utter vi for i dag."% ccccccccc┆
0x24520…24540 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x24600…24700 (18, 0, 7) 0x63[0x100]
[…0x3…]
0x24a00…24a20 (18, 0, 11) ExtentHdr {name=»CPRNUMRE«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0024,0e (0x024e00)}, f99=41 24 00 fe 00 50 52 4e 55 4d ┆A$ PRNUM┆}
0x24a20…24a40 4c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆L0010 // -----------------------┆
0x24a40…24a60 2d 2d 2d 2d 20 63 70 72 6e 75 6d 72 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆---- cprnumre ------------------┆
0x24a60…24a80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 44 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 ┆-------------LD0020 // Programme┆
0x24a80…24aa0 74 20 62 65 72 65 67 6e 65 72 20 61 6e 76 65 6e 64 65 6c 69 67 65 20 63 70 72 2d 6e 75 6d 72 65 ┆t beregner anvendelige cpr-numre┆
0x24aa0…24ac0 20 66 6f 72 20 65 6e 20 67 69 76 65 6e 20 64 61 74 6f 2e 44 08 30 30 33 30 20 2f 2f 20 08 36 30 ┆ for en given dato.D 0030 // 60┆
0x24ac0…24ae0 30 33 35 20 49 4e 54 45 47 45 52 20 41 2c 42 2c 43 2c 44 2c 45 2c 46 2c 47 2c 48 2c 49 2c 43 48 ┆035 INTEGER A,B,C,D,E,F,G,H,I,CH┆
0x24ae0…24b00 45 43 4b 2c 49 53 55 4d 2c 48 53 55 4d 2c 44 41 54 4f 53 55 4d 36 0b 30 30 35 30 20 43 4c 45 41 ┆ECK,ISUM,HSUM,DATOSUM6 0050 CLEA┆
0x24b00…24b20 (18, 0, 12) 52 20 0b 3b 30 30 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 65 6e 20 64 61 74 6f 20 ┆R ;0060 PRINT "Indtast en dato ┆
0x24b20…24b40 73 7d 6c 65 64 65 73 3a 20 20 20 20 20 20 20 20 44 2c 44 2c 4d 2c 4d 2c 41 2c 41 20 20 3a 22 3b ┆således: D,D,M,M,A,A :";┆
0x24b40…24b60 39 30 30 37 30 20 49 4e 50 55 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆90070 INPUT " ┆
0x24b60…24b80 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 2c 42 2c 43 2c 44 2c 45 2c 46 39 25 30 30 38 30 ┆ ":A,B,C,D,E,F9%0080┆
0x24b80…24ba0 20 44 41 54 4f 53 55 4d 3a 3d 41 2a 34 2b 42 2a 33 2b 43 2a 32 2b 44 2a 37 2b 45 2a 36 2b 46 2a ┆ DATOSUM:=A*4+B*3+C*2+D*7+E*6+F*┆
0x24ba0…24bc0 35 25 0b 30 30 39 30 20 43 4c 45 41 52 20 0b 16 30 31 30 30 20 46 4f 52 20 47 3a 3d 30 20 54 4f ┆5% 0090 CLEAR 0100 FOR G:=0 TO┆
0x24bc0…24be0 20 39 20 44 4f 20 16 16 30 31 31 30 20 47 53 55 4d 3a 3d 44 41 54 4f 53 55 4d 2b 47 2a 34 16 16 ┆ 9 DO 0110 GSUM:=DATOSUM+G*4 ┆
0x24be0…24c00 30 31 32 30 20 46 4f 52 20 48 3a 3d 30 20 54 4f 20 39 20 44 4f 20 16 13 30 31 33 30 20 48 53 55 ┆0120 FOR H:=0 TO 9 DO 0130 HSU┆
0x24c00…24c20 (18, 0, 13) 4d 3a 3d 47 53 55 4d 2b 48 2a 33 13 16 30 31 34 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 39 20 ┆M:=GSUM+H*3 0140 FOR I:=0 TO 9 ┆
0x24c20…24c40 44 4f 20 16 13 30 31 35 30 20 49 53 55 4d 3a 3d 48 53 55 4d 2b 49 2a 32 13 1a 30 31 36 30 20 46 ┆DO 0150 ISUM:=HSUM+I*2 0160 F┆
0x24c40…24c60 4f 52 20 43 48 45 43 4b 3a 3d 30 20 54 4f 20 39 20 44 4f 20 1a 4a 30 31 37 30 20 49 46 20 28 49 ┆OR CHECK:=0 TO 9 DO J0170 IF (I┆
0x24c60…24c80 53 55 4d 2b 43 48 45 43 4b 29 20 4d 4f 44 20 31 31 3d 30 20 54 48 45 4e 20 50 52 49 4e 54 20 41 ┆SUM+CHECK) MOD 11=0 THEN PRINT A┆
0x24c80…24ca0 3b 42 3b 43 3b 44 3b 45 3b 46 3b 22 2d 20 22 3b 47 3b 48 3b 49 3b 43 48 45 43 4b 3b 22 20 22 2c ┆;B;C;D;E;F;"- ";G;H;I;CHECK;" ",┆
0x24ca0…24cc0 4a 0f 30 31 38 30 20 4e 45 58 54 20 43 48 45 43 4b 0f 0b 30 31 39 30 20 4e 45 58 54 20 49 0b 0b ┆J 0180 NEXT CHECK 0190 NEXT I ┆
0x24cc0…24ce0 30 32 30 30 20 4e 45 58 54 20 48 0b 0b 30 32 31 30 20 4e 45 58 54 20 47 0b 00 00 63 63 63 63 63 ┆0200 NEXT H 0210 NEXT G ccccc┆
0x24ce0…24d00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x24d00…24e00 (18, 0, 14) 0x63[0x100]
0x24e00…24e20 (18, 0, 15) ExtentHdr {name=»RUDERTXT«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0025,08 (0x025800)}, f99=00 00 00 ff 00 00 00 00 00 00 ┆ ┆}
0x24e20…24e40 18 31 2e 20 20 20 48 76 61 64 20 65 72 20 65 74 20 70 72 6f 67 72 61 6d 3f 18 14 41 2e 20 20 20 ┆ 1. Hvad er et program? A. ┆
0x24e40…24e60 45 6e 20 72 7b 6b 6b 65 20 6f 72 64 72 65 72 14 11 42 2e 20 20 20 45 6e 20 61 6c 67 6f 72 69 74 ┆En række ordrer B. En algorit┆
0x24e60…24e80 6d 65 11 15 43 2e 20 20 20 49 6e 64 64 61 74 61 20 26 20 75 64 64 61 74 61 15 01 42 01 3b 32 2e ┆me C. Inddata & uddata B ;2.┆
0x24e80…24ea0 20 20 20 48 76 69 6c 6b 65 6e 20 62 61 73 73 69 73 73 74 72 75 6b 74 75 72 20 62 65 6e 79 74 74 ┆ Hvilken bassisstruktur benytt┆
0x24ea0…24ec0 65 73 20 74 69 6c 20 74 61 62 65 6c 66 72 65 6d 73 74 69 6c 6c 69 6e 67 3f 3b 0c 41 2e 20 20 20 ┆es til tabelfremstilling?; A. ┆
0x24ec0…24ee0 53 65 6b 76 65 6e 73 0c 0f 42 2e 20 20 20 46 6f 72 67 72 65 6e 69 6e 67 0f 0f 43 2e 20 20 20 47 ┆Sekvens B. Forgrening C. G┆
0x24ee0…24f00 65 6e 74 61 67 65 6c 73 65 0f 01 43 01 2e 33 2e 20 20 20 48 76 6f 72 64 61 6e 20 6b 61 6e 20 6d ┆entagelse C .3. Hvordan kan m┆
0x24f00…24f20 (18, 0, 16) 61 6e 20 73 6b 72 69 76 65 20 6b 76 61 64 72 61 74 72 6f 64 65 6e 20 61 66 20 38 3f 2e 12 41 2e ┆an skrive kvadratroden af 8?. A.┆
0x24f20…24f40 20 20 20 4b 76 61 64 72 61 74 72 6f 64 28 38 29 12 0d 42 2e 20 20 20 38 20 2a 2a 20 30 2e 35 0d ┆ Kvadratrod(8) B. 8 ** 0.5 ┆
0x24f40…24f60 0b 43 2e 20 20 20 38 20 2a 2a 20 32 0b 01 42 01 2e 34 2e 20 20 20 48 76 69 6c 6b 65 74 20 74 65 ┆ C. 8 ** 2 B .4. Hvilket te┆
0x24f60…24f80 67 6e 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 6d 75 6c 74 69 70 6c 69 6b 61 74 69 6f 6e 3f 2e ┆gn benyttes til multiplikation?.┆
0x24f80…24fa0 06 41 2e 20 20 20 2a 06 06 42 2e 20 20 20 2e 06 07 43 2e 20 20 20 5e 20 07 01 41 01 25 35 2e 20 ┆ A. * B. . C. ^ A %5. ┆
0x24fa0…24fc0 20 20 48 76 69 6c 6b 65 74 20 72 65 73 75 6c 74 61 74 20 67 69 76 65 72 20 37 20 4d 4f 44 20 32 ┆ Hvilket resultat giver 7 MOD 2┆
0x24fc0…24fe0 3f 20 25 06 41 2e 20 20 20 31 06 06 42 2e 20 20 20 32 06 06 43 2e 20 20 20 33 06 01 41 01 24 36 ┆? % A. 1 B. 2 C. 3 A $6┆
0x24fe0…25000 2e 20 20 20 48 76 69 6c 6b 65 74 20 72 65 73 75 6c 74 61 74 20 67 69 76 65 72 20 37 20 44 49 56 ┆. Hvilket resultat giver 7 DIV┆
0x25000…25020 (18, 1, 1) 20 32 3f 24 06 41 2e 20 20 20 31 06 06 42 2e 20 20 20 32 06 06 43 2e 20 20 20 33 06 01 43 01 3e ┆ 2?$ A. 1 B. 2 C. 3 C >┆
0x25020…25040 37 2e 20 20 20 54 61 6c 6c 65 74 20 31 30 2f 33 20 73 6b 61 6c 20 73 6b 72 69 76 65 73 20 6d 65 ┆7. Tallet 10/3 skal skrives me┆
0x25040…25060 64 20 32 20 64 65 63 2e 20 48 76 69 6c 6b 65 6e 20 6b 61 6e 20 62 65 6e 79 74 74 65 73 3f 3e 25 ┆d 2 dec. Hvilken kan benyttes?>%┆
0x25060…25080 41 2e 20 20 20 30 31 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 23 23 2e 23 23 20 22 3a ┆A. 0100 PRINT USING " ##.## ":┆
0x25080…250a0 20 31 30 2f 33 25 25 42 2e 20 20 20 30 31 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 ┆ 10/3%%B. 0100 PRINT USING " ┆
0x250a0…250c0 20 20 23 23 20 22 3a 20 31 30 2f 33 25 25 43 2e 20 20 20 30 31 30 30 20 50 52 49 4e 54 20 55 53 ┆ ## ": 10/3%%C. 0100 PRINT US┆
0x250c0…250e0 49 4e 47 20 22 20 23 23 2c 23 23 20 22 3a 20 31 30 2f 33 25 01 41 01 43 38 2e 20 20 20 48 76 69 ┆ING " ##,## ": 10/3% A C8. Hvi┆
0x250e0…25100 6c 6b 65 6e 20 6f 72 64 72 65 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 61 74 20 73 7b 74 74 65 ┆lken ordre benyttes til at sætte┆
0x25100…25120 (18, 1, 2) 20 65 74 20 78 20 6d 69 64 74 20 69 20 73 6b 7b 72 6d 62 69 6c 6c 65 64 65 74 3f 43 2d 41 2e 20 ┆ et x midt i skærmbilledet?C-A. ┆
0x25120…25140 20 20 43 55 52 53 4f 52 20 34 30 2c 31 33 20 6f 67 20 69 20 6e 7b 73 74 65 20 6c 69 6e 69 65 3a ┆ CURSOR 40,13 og i næste linie:┆
0x25140…25160 20 50 52 49 4e 54 20 22 78 22 2d 2d 42 2e 20 20 20 43 55 52 53 4f 52 20 34 30 2c 31 20 20 6f 67 ┆ PRINT "x"--B. CURSOR 40,1 og┆
0x25160…25180 20 69 20 6e 7b 73 74 65 20 6c 69 6e 69 65 3a 20 50 52 49 4e 54 20 22 78 22 2d 2d 43 2e 20 20 20 ┆ i næste linie: PRINT "x"--C. ┆
0x25180…251a0 43 55 52 53 4f 52 20 31 33 2c 34 30 20 6f 67 20 69 20 6e 7b 73 74 65 20 6c 69 6e 69 65 3a 20 50 ┆CURSOR 13,40 og i næste linie: P┆
0x251a0…251c0 52 49 4e 54 20 22 78 22 2d 01 41 01 3a 39 2e 20 20 20 48 76 69 6c 6b 65 6e 20 73 74 61 6e 64 61 ┆RINT "x"- A :9. Hvilken standa┆
0x251c0…251e0 72 64 66 75 6e 6b 74 69 6f 6e 20 62 65 6e 79 74 74 65 73 20 74 69 6c 20 6e 75 6d 65 72 69 73 6b ┆rdfunktion benyttes til numerisk┆
0x251e0…25200 20 76 7b 72 64 69 3f 3a 08 41 2e 20 20 20 53 51 52 08 08 42 2e 20 20 20 49 4e 54 08 08 43 2e 20 ┆ værdi?: A. SQR B. INT C. ┆
0x25200…25220 (18, 1, 3) 20 20 41 42 53 08 01 43 01 25 31 30 2e 20 20 48 76 69 6c 6b 65 6e 20 70 72 6f 67 72 61 6d 6c 69 ┆ ABS C %10. Hvilken programli┆
0x25220…25240 6e 69 65 20 65 72 20 66 6f 72 6b 65 72 74 3f 25 27 41 2e 20 20 20 30 30 31 30 20 49 4e 50 55 54 ┆nie er forkert?%'A. 0010 INPUT┆
0x25240…25260 20 22 49 6e 64 74 61 73 74 20 65 74 20 74 61 6c 3a 20 20 22 3a 74 61 6c 27 25 42 2e 20 20 20 30 ┆ "Indtast et tal: ":tal'%B. 0┆
0x25260…25280 30 32 30 20 49 46 20 74 61 6c 2f 32 20 3a 3d 20 49 4e 54 28 74 61 6c 2f 32 29 20 54 48 45 4e 25 ┆020 IF tal/2 := INT(tal/2) THEN%┆
0x25280…252a0 21 43 2e 20 20 20 30 30 33 30 20 50 52 49 4e 54 20 22 54 61 6c 6c 65 6e 65 20 65 72 20 6c 69 67 ┆!C. 0030 PRINT "Tallene er lig┆
0x252a0…252c0 65 22 21 01 42 01 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆e"! B cccccccccccccccccccccccc┆
0x252c0…252e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x25300…25400 (18, 1, 4) 0x63[0x100]
[…0x4…]
0x25800…25820 (18, 1, 9) ExtentHdr {name=»KUGLE «, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0025,0e (0x025e00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x25820…25840 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x25840…25860 2d 20 4b 75 67 6c 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- Kugle ------------------------┆
0x25860…25880 2d 40 40 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 20 72 ┆-@@0020 // Programmet udregner r┆
0x25880…258a0 75 6d 66 61 6e 67 20 6f 67 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 75 67 6c 65 20 ┆umfang og overflade af en kugle ┆
0x258a0…258c0 76 65 64 40 23 30 30 33 30 20 2f 2f 20 70 72 6f 63 65 64 75 72 65 72 20 6d 65 64 20 31 20 70 61 ┆ved@#0030 // procedurer med 1 pa┆
0x258c0…258e0 72 61 6d 65 74 65 72 2e 23 40 30 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆rameter.#@0040 // --------------┆
0x258e0…25900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25900…25920 (18, 1, 10) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 0e 30 30 36 30 20 4e 55 ┆----------@ 0050 CLEAR 0060 NU┆
0x25920…25940 4d 4d 45 52 3a 3d 30 0e 1e 30 30 37 30 20 50 52 49 4e 54 20 22 4b 75 67 6c 65 20 6e 75 6d 6d 65 ┆MMER:=0 0070 PRINT "Kugle numme┆
0x25940…25960 72 3a 20 31 2e 20 22 1e 3e 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 ┆r: 1. " >0080 INPUT "Indtast kug┆
0x25960…25980 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆lens radius: ":┆
0x25980…259a0 52 41 44 49 55 53 31 3e 1e 30 30 39 30 20 50 52 49 4e 54 20 22 4b 75 67 6c 65 20 6e 75 6d 6d 65 ┆RADIUS1> 0090 PRINT "Kugle numme┆
0x259a0…259c0 72 3a 20 32 2e 20 22 1e 3e 30 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 ┆r: 2. " >0100 INPUT "Indtast kug┆
0x259c0…259e0 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆lens radius: ":┆
0x259e0…25a00 52 41 44 49 55 53 32 3e 1d 30 31 31 30 20 50 52 49 4e 54 20 22 4b 75 67 6c 65 20 6e 75 6d 6d 65 ┆RADIUS2> 0110 PRINT "Kugle numme┆
0x25a00…25a20 (18, 1, 11) 72 3a 20 33 2e 22 1d 3e 30 31 32 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 75 67 6c ┆r: 3." >0120 INPUT "Indtast kugl┆
0x25a20…25a40 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 ┆ens radius: ":R┆
0x25a40…25a60 41 44 49 55 53 33 3e 40 30 31 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ADIUS3>@0130 // ----------------┆
0x25a60…25a80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25a80…25aa0 2d 2d 2d 2d 2d 2d 2d 2d 40 45 30 31 34 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------@E0140 PRINT "----------┆
0x25aa0…25ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25ac0…25ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 45 0b 30 31 35 30 20 43 4c 45 41 52 20 0b 18 30 31 ┆--------------"E 0150 CLEAR 01┆
0x25ae0…25b00 36 30 20 45 58 45 43 20 4b 55 47 4c 45 28 52 41 44 49 55 53 31 29 18 18 30 31 37 30 20 45 58 45 ┆60 EXEC KUGLE(RADIUS1) 0170 EXE┆
0x25b00…25b20 (18, 1, 12) 43 20 4b 55 47 4c 45 28 52 41 44 49 55 53 32 29 18 18 30 31 38 30 20 45 58 45 43 20 4b 55 47 4c ┆C KUGLE(RADIUS2) 0180 EXEC KUGL┆
0x25b20…25b40 45 28 52 41 44 49 55 53 33 29 18 40 30 31 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E(RADIUS3) @0190 // ------------┆
0x25b40…25b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25b60…25b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 17 30 32 30 30 20 50 52 4f 43 20 4b 55 47 4c 45 28 52 41 ┆------------@ 0200 PROC KUGLE(RA┆
0x25b80…25ba0 44 49 55 53 29 17 20 30 32 31 30 20 52 55 4d 46 41 4e 47 3a 3d 34 2f 33 2a 33 2e 31 34 2a 52 41 ┆DIUS) 0210 RUMFANG:=4/3*3.14*RA┆
0x25ba0…25bc0 44 49 55 53 2a 2a 33 20 20 30 32 32 30 20 4f 56 45 52 46 4c 41 44 45 3a 3d 34 2a 33 2e 31 34 2a ┆DIUS**3 0220 OVERFLADE:=4*3.14*┆
0x25bc0…25be0 52 41 44 49 55 53 2a 2a 32 20 12 30 32 33 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 12 30 ┆RADIUS**2 0230 EXEC UDSKRIFT 0┆
0x25be0…25c00 32 34 30 20 45 4e 44 50 52 4f 43 20 4b 55 47 4c 45 12 40 30 32 35 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆240 ENDPROC KUGLE @0250 // -----┆
0x25c00…25c20 (18, 1, 13) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25c20…25c40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 12 30 32 36 30 20 50 52 4f 43 20 55 ┆-------------------@ 0260 PROC U┆
0x25c40…25c60 44 53 4b 52 49 46 54 12 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 15 30 32 37 35 20 4e 55 4d 4d 45 ┆DSKRIFT 0270 PRINT 0275 NUMME┆
0x25c60…25c80 52 3a 3d 4e 55 4d 4d 45 52 2b 31 15 49 30 32 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4e ┆R:=NUMMER+1 I0280 PRINT USING "N┆
0x25c80…25ca0 75 6d 6d 65 72 20 23 23 23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ummer ### ┆
0x25ca0…25cc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 55 4d 4d 45 52 49 49 30 32 39 30 20 50 52 49 ┆ ":NUMMERII0290 PRI┆
0x25cc0…25ce0 4e 54 20 55 53 49 4e 47 20 22 4b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 ┆NT USING "Kuglens radius: ┆
0x25ce0…25d00 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 63 6d 2e 20 20 20 20 20 22 3a 52 41 44 49 55 ┆ #######.## cm. ":RADIU┆
0x25d00…25d20 (18, 1, 14) 53 49 4a 30 33 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 75 67 6c 65 6e 73 20 72 75 6d ┆SIJ0300 PRINT USING "Kuglens rum┆
0x25d20…25d40 66 61 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 63 6d 33 2e ┆fang: #######.## cm3.┆
0x25d40…25d60 20 20 20 20 22 3a 52 55 4d 46 41 4e 47 4a 4c 30 33 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 ┆ ":RUMFANGJL0310 PRINT USING ┆
0x25d60…25d80 22 4b 75 67 6c 65 6e 73 20 6f 76 65 72 66 6c 61 64 65 3a 20 20 20 20 20 20 20 20 20 20 23 23 23 ┆"Kuglens overflade: ###┆
0x25d80…25da0 23 23 23 23 2e 23 23 20 63 6d 32 2e 20 20 20 20 22 3a 4f 56 45 52 46 4c 41 44 45 4c 44 30 33 32 ┆####.## cm2. ":OVERFLADELD032┆
0x25da0…25dc0 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT "-----------------------┆
0x25dc0…25de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x25de0…25e00 22 44 15 30 33 33 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 00 00 63 63 63 63 63 ┆"D 0330 ENDPROC UDSKRIFT ccccc┆
0x25e00…25e20 (18, 1, 15) ExtentHdr {name=»KASSE «, typ=»K«, seg=»A«, next=0x01, basis=0x0004, nextext={DA 0026,02 (0x026200)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0026,02 (0x026200)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x25e20…25e40 46 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆F0010 // -----------------------┆
0x25e40…25e60 2d 2d 20 6b 61 73 73 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- kasse -----------------------┆
0x25e60…25e80 2d 2d 2d 2d 2d 2d 2d 46 3a 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 72 75 6d 66 61 6e ┆-------F:0020 // Udregner rumfan┆
0x25e80…25ea0 67 20 6f 67 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 61 73 73 65 2c 20 6e 7d 72 20 ┆g og overflade af en kasse, når ┆
0x25ea0…25ec0 6d 61 6e 3a 31 30 30 33 30 20 2f 2f 20 69 6e 64 74 61 73 74 65 72 20 6b 61 73 73 65 6e 73 20 68 ┆man:10030 // indtaster kassens h┆
0x25ec0…25ee0 7c 6a 64 65 2c 20 62 72 65 64 64 65 20 26 20 6c 7b 6e 67 64 65 2e 31 05 30 30 34 30 20 05 0b 30 ┆øjde, bredde & længde.1 0040 0┆
0x25ee0…25f00 30 35 30 20 43 4c 45 41 52 20 0b 28 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆050 CLEAR (0060 INPUT "Indtast ┆
0x25f00…25f20 (18, 1, 16) 6c 7b 6e 67 64 65 3a 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 28 28 30 30 37 30 20 49 4e 50 55 54 ┆længde: ":LÆNGDE((0070 INPUT┆
0x25f20…25f40 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 20 22 3a 42 52 45 44 44 45 28 27 ┆ "Indtast bredde: ":BREDDE('┆
0x25f40…25f60 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 ┆0080 INPUT "Indtast højde: ┆
0x25f60…25f80 22 3a 48 5c 4a 44 45 27 05 30 30 39 30 20 05 11 30 31 30 30 20 45 58 45 43 20 52 55 4d 46 41 4e ┆":HØJDE' 0090 0100 EXEC RUMFAN┆
0x25f80…25fa0 47 11 13 30 31 31 30 20 45 58 45 43 20 4f 56 45 52 46 4c 41 44 45 13 12 30 31 32 30 20 45 58 45 ┆G 0110 EXEC OVERFLADE 0120 EXE┆
0x25fa0…25fc0 43 20 55 44 53 4b 52 49 46 54 12 05 30 31 33 30 20 05 11 30 31 34 30 20 50 52 4f 43 20 52 55 4d ┆C UDSKRIFT 0130 0140 PROC RUM┆
0x25fc0…25fe0 46 41 4e 47 11 1e 30 31 35 30 20 52 55 4d 46 3a 3d 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 ┆FANG 0150 RUMF:=LÆNGDE*BREDDE*H┆
0x25fe0…26000 5c 4a 44 45 1e 14 30 31 36 30 20 45 4e 44 50 52 4f 43 20 52 55 4d 46 41 4e 47 14 05 30 31 37 30 ┆ØJDE 0160 ENDPROC RUMFANG 0170┆
0x26000…26020 (19, 0, 1) 20 05 13 30 31 38 30 20 50 52 4f 43 20 4f 56 45 52 46 4c 41 44 45 13 41 30 31 39 30 20 54 4f 54 ┆ 0180 PROC OVERFLADE A0190 TOT┆
0x26020…26040 41 4c 4f 56 45 52 46 4c 41 44 45 4e 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2b 42 52 45 ┆ALOVERFLADEN:=(LÆNGDE*BREDDE+BRE┆
0x26040…26060 44 44 45 2a 48 5c 4a 44 45 2b 48 5c 4a 44 45 2a 4c 5b 4e 47 44 45 29 2a 32 41 16 30 32 30 30 20 ┆DDE*HØJDE+HØJDE*LÆNGDE)*2A 0200 ┆
0x26060…26080 45 4e 44 50 52 4f 43 20 4f 56 45 52 46 4c 41 44 45 16 05 30 32 31 30 20 05 12 30 32 32 30 20 50 ┆ENDPROC OVERFLADE 0210 0220 P┆
0x26080…260a0 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 46 30 32 34 30 20 ┆ROC UDSKRIFT 0230 PRINT F0240 ┆
0x260a0…260c0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 23 23 ┆PRINT USING "Længde: ##┆
0x260c0…260e0 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 63 6d 2e 20 20 20 20 22 3a 4c 5b 4e 47 44 ┆##############.## cm. ":LÆNGD┆
0x260e0…26100 45 46 46 30 32 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 65 64 64 65 3a 20 20 20 20 ┆EFF0250 PRINT USING "Bredde: ┆
0x26100…26120 (19, 0, 2) 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 63 6d 2e 20 20 20 ┆ ################.## cm. ┆
0x26120…26140 20 22 3a 42 52 45 44 44 45 46 45 30 32 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 48 7c 6a ┆ ":BREDDEFE0260 PRINT USING "Høj┆
0x26140…26160 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 23 2e 23 ┆de: ################.#┆
0x26160…26180 23 20 63 6d 2e 20 20 20 20 22 3a 48 5c 4a 44 45 45 44 30 32 37 30 20 50 52 49 4e 54 20 55 53 49 ┆# cm. ":HØJDEED0270 PRINT USI┆
0x26180…261a0 4e 47 20 22 52 75 6d 66 61 6e 67 3a 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 23 ┆NG "Rumfang: ###########┆
0x261a0…261c0 23 23 23 23 23 2e 23 23 20 63 6d 33 2e 20 20 20 22 3a 52 55 4d 46 44 4c 30 32 38 30 20 50 52 49 ┆#####.## cm3. ":RUMFDL0280 PRI┆
0x261c0…261e0 4e 54 20 55 53 49 4e 47 20 22 53 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 23 23 23 ┆NT USING "Samlede overflade: ###┆
0x261e0…26200 23 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 63 6d 32 2e 22 3a 54 4f 54 41 4c 4f 56 45 52 46 4c ┆###########.## cm2.":TOTALOVERFL┆
0x26200…26220 (19, 0, 3) ExtentHdr {name=»KASSE «, typ=»K«, seg=»B«, next=0x01, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0025,0e (0x025e00)}, nextfile={DA 0026,06 (0x026600)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x26220…26240 41 44 45 4e 4c 15 30 32 39 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 00 00 2d 2d ┆ADENL 0290 ENDPROC UDSKRIFT --┆
0x26240…26260 2d 2d 20 6b 61 73 73 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- kasse -----------------------┆
0x26260…26280 2d 2d 2d 2d 2d 2d 2d 46 3a 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 72 75 6d 66 61 6e ┆-------F:0020 // Udregner rumfan┆
0x26280…262a0 67 20 6f 67 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 61 73 73 65 2c 20 6e 7d 72 20 ┆g og overflade af en kasse, når ┆
0x262a0…262c0 6d 61 6e 3a 31 30 30 33 30 20 2f 2f 20 69 6e 64 74 61 73 74 65 72 20 6b 61 73 73 65 6e 73 20 68 ┆man:10030 // indtaster kassens h┆
0x262c0…262e0 7c 6a 64 65 2c 20 62 72 65 64 64 65 20 26 20 6c 7b 6e 67 64 65 2e 31 05 30 30 34 30 20 05 0b 30 ┆øjde, bredde & længde.1 0040 0┆
0x262e0…26300 30 35 30 20 43 4c 45 41 52 20 0b 28 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆050 CLEAR (0060 INPUT "Indtast ┆
0x26300…26400 (19, 0, 4) 0x63[0x100]
[…0x2…]
0x26600…26620 (19, 0, 7) ExtentHdr {name=»TRETTEN «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0027,00 (0x027000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x26620…26640 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x26640…26660 2d 20 54 72 65 74 74 65 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- Tretten ----------------------┆
0x26660…26680 2d 40 41 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 73 6b 72 69 76 65 72 20 ┆-@A0020 // Programmet udskriver ┆
0x26680…266a0 61 6e 74 61 6c 6c 65 74 20 61 66 20 72 69 67 74 69 67 65 20 70 7d 20 65 6e 20 74 69 70 73 6b 75 ┆antallet af rigtige på en tipsku┆
0x266a0…266c0 70 6f 6e 2c 41 2d 30 30 33 30 20 2f 2f 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 ┆pon,A-0030 // når man indtaster ┆
0x266c0…266e0 64 65 20 31 33 20 72 69 67 74 69 67 65 20 74 65 67 6e 2e 2d 2a 30 30 34 30 20 44 49 4d 20 52 45 ┆de 13 rigtige tegn.-*0040 DIM RE┆
0x266e0…26700 53 55 4c 54 41 54 24 28 31 33 29 20 4f 46 20 31 2c 54 49 50 53 24 28 31 33 29 20 4f 46 20 31 2a ┆SULTAT$(13) OF 1,TIPS$(13) OF 1*┆
0x26700…26720 (19, 0, 8) 3b 30 30 34 35 20 49 4e 54 45 47 45 52 20 4e 52 2c 52 5b 4b 4b 45 2c 41 4e 54 52 5b 4b 4b 45 52 ┆;0045 INTEGER NR,RÆKKE,ANTRÆKKER┆
0x26720…26740 2c 53 55 4d 20 2f 2f 20 44 65 66 69 6e 65 72 69 6e 67 20 61 66 20 68 65 6c 74 61 6c 3b 08 30 30 ┆,SUM // Definering af heltal; 00┆
0x26740…26760 35 30 20 2f 2f 20 08 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 0f 30 30 37 30 20 43 55 52 53 4f 52 ┆50 // 0060 CLEAR 0070 CURSOR┆
0x26760…26780 20 31 2c 32 0f 34 30 30 38 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 ┆ 1,2 40080 PRINT "Indtastning af┆
0x26780…267a0 20 64 65 20 31 33 20 72 69 67 74 69 67 65 20 74 69 70 73 74 65 67 6e 3a 20 22 34 0f 30 30 39 30 ┆ de 13 rigtige tipstegn: "4 0090┆
0x267a0…267c0 20 43 55 52 53 4f 52 20 31 2c 33 0f 34 30 31 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆ CURSOR 1,3 40100 PRINT "-------┆
0x267c0…267e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆------------------------------- ┆
0x267e0…26800 22 34 18 30 31 31 30 20 46 4f 52 20 4e 52 3a 3d 31 20 54 4f 20 31 33 20 44 4f 20 18 0c 30 31 32 ┆"4 0110 FOR NR:=1 TO 13 DO 012┆
0x26800…26820 (19, 0, 9) 30 20 52 45 50 45 41 54 20 0c 12 30 31 33 30 20 43 55 52 53 4f 52 20 31 2c 34 2b 4e 52 12 33 30 ┆0 REPEAT 0130 CURSOR 1,4+NR 30┆
0x26820…26840 31 34 30 20 50 52 49 4e 54 20 22 3c 5a 3e 49 6e 64 74 61 73 74 20 72 65 73 75 6c 74 61 74 65 74 ┆140 PRINT "<Z>Indtast resultatet┆
0x26840…26860 20 66 6f 72 20 6b 61 6d 70 20 6e 72 3a 20 22 3b 4e 52 33 13 30 31 35 30 20 43 55 52 53 4f 52 20 ┆ for kamp nr: ";NR3 0150 CURSOR ┆
0x26860…26880 33 36 2c 34 2b 4e 52 13 1e 30 31 36 30 20 49 4e 50 55 54 20 22 3c 53 3e 22 3a 52 45 53 55 4c 54 ┆36,4+NR 0160 INPUT "<S>":RESULT┆
0x26880…268a0 41 54 24 28 4e 52 29 1e 23 30 31 37 30 20 55 4e 54 49 4c 20 52 45 53 55 4c 54 41 54 24 28 4e 52 ┆AT$(NR) #0170 UNTIL RESULTAT$(NR┆
0x268a0…268c0 29 20 49 4e 20 22 31 2c 32 2c 78 22 23 0c 30 31 38 30 20 4e 45 58 54 20 4e 52 0c 08 30 31 39 30 ┆) IN "1,2,x"# 0180 NEXT NR 0190┆
0x268c0…268e0 20 2f 2f 20 08 14 30 32 30 30 20 52 5b 4b 4b 45 3a 3d 30 3b 53 55 4d 3a 3d 30 14 13 30 32 30 35 ┆ // 0200 RÆKKE:=0;SUM:=0 0205┆
0x268e0…26900 20 52 45 41 44 20 41 4e 54 52 5b 4b 4b 45 52 13 22 30 32 31 30 20 46 4f 52 20 52 5b 4b 4b 45 3a ┆ READ ANTRÆKKER "0210 FOR RÆKKE:┆
0x26900…26920 (19, 0, 10) 3d 31 20 54 4f 20 41 4e 54 52 5b 4b 4b 45 52 20 44 4f 20 22 18 30 32 32 30 20 46 4f 52 20 4e 52 ┆=1 TO ANTRÆKKER DO " 0220 FOR NR┆
0x26920…26940 3a 3d 31 20 54 4f 20 31 33 20 44 4f 20 18 13 30 32 33 30 20 52 45 41 44 20 54 49 50 53 24 28 4e ┆:=1 TO 13 DO 0230 READ TIPS$(N┆
0x26940…26960 52 29 13 2f 30 32 34 30 20 49 46 20 54 49 50 53 24 28 4e 52 29 3d 52 45 53 55 4c 54 41 54 24 28 ┆R) /0240 IF TIPS$(NR)=RESULTAT$(┆
0x26960…26980 4e 52 29 20 54 48 45 4e 20 53 55 4d 3a 3d 53 55 4d 2b 31 2f 0c 30 32 35 30 20 4e 45 58 54 20 4e ┆NR) THEN SUM:=SUM+1/ 0250 NEXT N┆
0x26980…269a0 52 0c 16 30 32 37 30 20 43 55 52 53 4f 52 20 31 2c 31 38 2b 52 5b 4b 4b 45 16 3c 30 32 38 30 20 ┆R 0270 CURSOR 1,18+RÆKKE <0280 ┆
0x269a0…269c0 50 52 49 4e 54 20 55 53 49 4e 47 20 22 52 7b 6b 6b 65 20 6e 72 3a 20 23 23 23 20 68 61 76 64 65 ┆PRINT USING "Række nr: ### havde┆
0x269c0…269e0 20 23 23 20 72 69 67 74 69 67 65 2e 22 3a 52 5b 4b 4b 45 2c 53 55 4d 3c 0b 30 32 39 30 20 53 55 ┆ ## rigtige.":RÆKKE,SUM< 0290 SU┆
0x269e0…26a00 4d 3a 3d 30 0b 0f 30 33 30 30 20 4e 45 58 54 20 52 5b 4b 4b 45 0f 08 30 33 31 30 20 2f 2f 20 08 ┆M:=0 0300 NEXT RÆKKE 0310 // ┆
0x26a00…26a20 (19, 0, 11) 1d 30 33 31 34 20 2f 2f 20 44 41 54 41 20 33 20 3d 20 61 6e 74 61 6c 20 72 7b 6b 6b 65 72 1d 0b ┆ 0314 // DATA 3 = antal rækker ┆
0x26a20…26a40 30 33 31 35 20 44 41 54 41 20 33 0b 3d 30 33 32 30 20 44 41 54 41 20 22 31 22 2c 22 32 22 2c 22 ┆0315 DATA 3 =0320 DATA "1","2","┆
0x26a40…26a60 32 22 2c 22 78 22 2c 22 78 22 2c 22 31 22 2c 22 32 22 2c 22 31 22 2c 22 78 22 2c 22 31 22 2c 22 ┆2","x","x","1","2","1","x","1","┆
0x26a60…26a80 32 22 2c 22 32 22 2c 22 78 22 3d 3d 30 33 33 30 20 44 41 54 41 20 22 31 22 2c 22 31 22 2c 22 31 ┆2","2","x"==0330 DATA "1","1","1┆
0x26a80…26aa0 22 2c 22 32 22 2c 22 78 22 2c 22 32 22 2c 22 78 22 2c 22 78 22 2c 22 32 22 2c 22 31 22 2c 22 31 ┆","2","x","2","x","x","2","1","1┆
0x26aa0…26ac0 22 2c 22 78 22 2c 22 32 22 3d 3d 30 33 34 30 20 44 41 54 41 20 22 32 22 2c 22 32 22 2c 22 78 22 ┆","x","2"==0340 DATA "2","2","x"┆
0x26ac0…26ae0 2c 22 31 22 2c 22 32 22 2c 22 78 22 2c 22 31 22 2c 22 31 22 2c 22 78 22 2c 22 32 22 2c 22 31 22 ┆,"1","2","x","1","1","x","2","1"┆
0x26ae0…26b00 2c 22 31 22 2c 22 78 22 3d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆,"1","x"= ccccccccccccccccccccc┆
0x26b00…26c00 (19, 0, 12) 0x63[0x100]
[…0x4…]
0x27000…27020 (19, 1, 1) ExtentHdr {name=»ANDENGR3«, typ=»K«, seg=»A«, next=0x01, basis=0x0006, nextext={DA 0027,06 (0x027600)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0027,06 (0x027600)}, f99=41 27 00 fe 00 00 00 00 00 00 ┆A' ┆}
0x27020…27040 42 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆B0010 // -----------------------┆
0x27040…27060 2d 2d 2d 20 61 6e 64 65 6e 67 72 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- andengr3 -------------------┆
0x27060…27080 2d 2d 2d 42 3e 30 30 32 30 20 2f 2f 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e ┆---B>0020 // Andengradsligningen┆
0x27080…270a0 20 6d 65 64 20 43 41 53 45 20 2d 20 45 4e 44 43 41 53 45 20 73 61 6d 74 20 50 52 4f 43 45 44 55 ┆ med CASE - ENDCASE samt PROCEDU┆
0x270a0…270c0 52 45 52 3e 17 30 30 32 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 ┆RER> 0025 INTEGER TRUE,FALSE 00┆
0x270c0…270e0 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 ┆26 TRUE:=1;FALSE:=0 0030 CLEAR ┆
0x270e0…27100 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 30 30 35 30 20 50 52 49 4e 54 20 22 20 ┆ 0040 CURSOR 1,6 50050 PRINT " ┆
0x27100…27120 (19, 1, 2) 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e 20 20 20 41 78 32 20 2b 20 42 78 20 2b ┆Andengradsligningen Ax2 + Bx +┆
0x27120…27140 20 43 20 3d 20 30 20 22 35 39 30 30 36 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ C = 0 "590060 PRINT "----------┆
0x27140…27160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27160…27180 2d 2d 22 39 32 30 30 37 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 41 3a 20 20 20 20 ┆--"920070 INPUT " Indtast A: ┆
0x27180…271a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 32 32 30 30 38 30 20 49 4e ┆ ":A220080 IN┆
0x271a0…271c0 50 55 54 20 22 20 49 6e 64 74 61 73 74 20 42 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT " Indtast B: ┆
0x271c0…271e0 20 20 20 20 20 20 20 20 22 3a 42 32 32 30 30 39 30 20 49 4e 50 55 54 20 22 20 49 6e 64 74 61 73 ┆ ":B220090 INPUT " Indtas┆
0x271e0…27200 74 20 43 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 43 32 ┆t C: ":C2┆
0x27200…27220 (19, 1, 3) 4a 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆J0100 // -----------------------┆
0x27220…27240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27240…27260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 19 30 31 31 30 20 44 49 53 4b 52 49 4d 49 3a 3d 42 2a 2a 32 ┆-----------J 0110 DISKRIMI:=B**2┆
0x27260…27280 2d 34 2a 41 2a 43 19 4a 30 31 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-4*A*C J0120 // ----------------┆
0x27280…272a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x272a0…272c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 30 31 33 30 20 43 41 53 45 20 54 52 ┆------------------J 0130 CASE TR┆
0x272c0…272e0 55 45 20 4f 46 20 12 14 30 31 34 30 20 57 48 45 4e 20 44 49 53 4b 52 49 4d 49 3c 30 14 0f 30 31 ┆UE OF 0140 WHEN DISKRIMI<0 01┆
0x272e0…27300 35 30 20 45 58 45 43 20 49 4e 47 45 4e 0f 14 30 31 36 30 20 57 48 45 4e 20 44 49 53 4b 52 49 4d ┆50 EXEC INGEN 0160 WHEN DISKRIM┆
0x27300…27320 (19, 1, 4) 49 3d 30 14 10 30 31 37 30 20 45 58 45 43 20 45 4e 5f 52 4f 44 10 14 30 31 38 30 20 57 48 45 4e ┆I=0 0170 EXEC EN_ROD 0180 WHEN┆
0x27320…27340 20 44 49 53 4b 52 49 4d 49 3e 30 14 13 30 31 39 30 20 45 58 45 43 20 54 4f 5f 52 5c 44 44 45 52 ┆ DISKRIMI>0 0190 EXEC TO_RØDDER┆
0x27340…27360 13 0d 30 32 30 30 20 45 4e 44 43 41 53 45 20 0d 49 30 32 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆ 0200 ENDCASE I0210 // -------┆
0x27360…27380 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27380…273a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 30 32 32 30 ┆--------------------------I 0220┆
0x273a0…273c0 20 50 52 4f 43 20 49 4e 47 45 4e 0f 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 30 30 32 34 30 20 50 ┆ PROC INGEN 0230 PRINT 00240 P┆
0x273c0…273e0 52 49 4e 54 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 69 6e 67 65 6e 20 72 65 65 6c 6c ┆RINT " Ligningen har ingen reell┆
0x273e0…27400 65 20 72 7c 64 64 65 72 2e 22 30 12 30 32 35 30 20 45 4e 44 50 52 4f 43 20 49 4e 47 45 4e 12 49 ┆e rødder."0 0250 ENDPROC INGEN I┆
0x27400…27420 (19, 1, 5) 30 32 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0260 // ------------------------┆
0x27420…27440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27440…27460 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 10 30 32 37 30 20 50 52 4f 43 20 45 4e 5f 52 4f 44 10 0e 30 32 38 ┆---------I 0270 PROC EN_ROD 028┆
0x27460…27480 30 20 58 3a 3d 2d 42 2f 32 2f 41 0e 0b 30 32 39 30 20 50 52 49 4e 54 20 0b 3e 30 33 30 30 20 50 ┆0 X:=-B/2/A 0290 PRINT >0300 P┆
0x27480…274a0 52 49 4e 54 20 55 53 49 4e 47 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 64 6f 62 62 65 ┆RINT USING " Ligningen har dobbe┆
0x274a0…274c0 6c 74 72 6f 64 65 6e 3a 20 20 20 20 20 23 23 23 23 2e 23 23 20 22 3a 58 3e 13 30 33 31 30 20 45 ┆ltroden: ####.## ":X> 0310 E┆
0x274c0…274e0 4e 44 50 52 4f 43 20 45 4e 5f 52 4f 44 13 48 30 33 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NDPROC EN_ROD H0320 // ---------┆
0x274e0…27500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27500…27520 (19, 1, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 13 30 33 33 30 20 50 52 ┆-----------------------H 0330 PR┆
0x27520…27540 4f 43 20 54 4f 5f 52 5c 44 44 45 52 13 0b 30 33 34 30 20 50 52 49 4e 54 20 0b 26 30 33 35 30 20 ┆OC TO_RØDDER 0340 PRINT &0350 ┆
0x27540…27560 50 52 49 4e 54 20 22 20 4c 69 67 6e 69 6e 67 65 6e 20 68 61 72 20 74 6f 20 72 7c 64 64 65 72 3a ┆PRINT " Ligningen har to rødder:┆
0x27560…27580 22 26 1f 30 33 36 30 20 58 31 3a 3d 28 2d 42 2b 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f 32 ┆"& 0360 X1:=(-B+SQR(DISKRIMI))/2┆
0x27580…275a0 2f 41 1f 1f 30 33 37 30 20 58 32 3a 3d 28 2d 42 2d 53 51 52 28 44 49 53 4b 52 49 4d 49 29 29 2f ┆/A 0370 X2:=(-B-SQR(DISKRIMI))/┆
0x275a0…275c0 32 2f 41 1f 3f 30 33 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 78 31 20 3d 20 20 20 20 ┆2/A ?0380 PRINT USING " x1 = ┆
0x275c0…275e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 20 ┆ ####.## ┆
0x275e0…27600 22 3a 58 31 3f 3f 30 33 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 78 32 20 3d 20 20 20 ┆":X1??0390 PRINT USING " x2 = ┆
0x27600…27620 (19, 1, 7) ExtentHdr {name=»ANDENGR3«, typ=»K«, seg=»B«, next=0x01, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0027,00 (0x027000)}, nextfile={DA 0027,0c (0x027c00)}, f99=41 27 00 20 00 00 00 00 00 00 ┆A' ┆}
0x27620…27640 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 ┆ ####.##┆
0x27640…27660 20 22 3a 58 32 3f 16 30 34 30 30 20 45 4e 44 50 52 4f 43 20 54 4f 5f 52 5c 44 44 45 52 16 00 00 ┆ ":X2? 0400 ENDPROC TO_RØDDER ┆
0x27660…27680 2d 2d 2d 42 3e 30 30 32 30 20 2f 2f 20 41 6e 64 65 6e 67 72 61 64 73 6c 69 67 6e 69 6e 67 65 6e ┆---B>0020 // Andengradsligningen┆
0x27680…276a0 20 6d 65 64 20 43 41 53 45 20 2d 20 45 4e 44 43 41 53 45 20 73 61 6d 74 20 50 52 4f 43 45 44 55 ┆ med CASE - ENDCASE samt PROCEDU┆
0x276a0…276c0 52 45 52 3e 17 30 30 32 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 17 15 30 30 ┆RER> 0025 INTEGER TRUE,FALSE 00┆
0x276c0…276e0 32 36 20 54 52 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 0b 30 30 33 30 20 43 4c 45 41 52 20 ┆26 TRUE:=1;FALSE:=0 0030 CLEAR ┆
0x276e0…27700 0b 0f 30 30 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 30 30 35 30 20 50 52 49 4e 54 20 22 20 ┆ 0040 CURSOR 1,6 50050 PRINT " ┆
0x27700…27800 (19, 1, 8) 0x63[0x100]
[…0x4…]
0x27c00…27c20 (19, 1, 13) ExtentHdr {name=»RESTSKAT«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0028,01 (0x028100)}, f99=41 27 00 fe 00 45 53 54 53 4b ┆A' ESTSK┆}
0x27c20…27c40 46 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆F0010 // -----------------------┆
0x27c40…27c60 2d 2d 2d 2d 2d 2d 2d 20 72 65 73 74 73 6b 61 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆------- restskat ---------------┆
0x27c60…27c80 2d 2d 2d 2d 2d 2d 2d 46 2d 30 30 32 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 30 2c 41 44 ┆-------F-0020 DIM NAVN$ OF 20,AD┆
0x27c80…27ca0 52 24 20 4f 46 20 32 30 2c 50 4f 53 54 42 59 24 20 4f 46 20 33 30 2d 39 30 30 33 30 20 44 49 4d ┆R$ OF 20,POSTBY$ OF 30-90030 DIM┆
0x27ca0…27cc0 20 53 4b 41 54 4e 41 56 4e 24 20 4f 46 20 32 30 2c 53 4b 41 54 41 44 52 24 20 4f 46 20 32 30 2c ┆ SKATNAVN$ OF 20,SKATADR$ OF 20,┆
0x27cc0…27ce0 53 4b 41 54 50 4f 53 54 42 59 24 20 4f 46 20 33 30 39 46 30 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆SKATPOSTBY$ OF 309F0040 // -----┆
0x27ce0…27d00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x27d00…27d20 (19, 1, 14) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 0b 30 30 35 30 20 ┆-------------------------F 0050 ┆
0x27d20…27d40 43 4c 45 41 52 20 0b 0b 30 30 35 35 20 50 52 49 4e 54 20 0b 38 30 30 36 30 20 49 4e 50 55 54 20 ┆CLEAR 0055 PRINT 80060 INPUT ┆
0x27d40…27d60 22 49 6e 64 74 61 73 74 20 6d 6f 64 74 61 67 65 72 65 6e 73 20 6e 61 76 6e 3a 20 20 20 20 20 20 ┆"Indtast modtagerens navn: ┆
0x27d60…27d80 20 20 20 20 20 20 22 3a 4e 41 56 4e 24 38 37 30 30 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆ ":NAVN$870070 INPUT "Indta┆
0x27d80…27da0 73 74 20 6d 6f 64 74 61 67 65 72 65 6e 73 20 61 64 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 ┆st modtagerens adresse: ┆
0x27da0…27dc0 22 3a 41 44 52 24 37 3a 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6d 6f 64 74 ┆":ADR$7:0080 INPUT "Indtast modt┆
0x27dc0…27de0 61 67 65 72 65 6e 73 20 70 6f 73 74 6e 75 6d 6d 65 72 20 26 20 62 79 3a 20 22 3a 50 4f 53 54 42 ┆agerens postnummer & by: ":POSTB┆
0x27de0…27e00 59 24 3a 0b 30 30 39 30 20 50 52 49 4e 54 20 0b 37 30 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆Y$: 0090 PRINT 70100 INPUT "Ind┆
0x27e00…27e20 (19, 1, 15) 74 61 73 74 20 72 65 73 74 73 6b 61 74 74 65 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆tast restskatten: ┆
0x27e20…27e40 20 20 22 3a 52 45 53 54 37 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 3d 30 31 32 30 20 49 4e 50 55 ┆ ":REST7 0110 PRINT =0120 INPU┆
0x27e40…27e60 54 20 22 49 6e 64 74 61 73 74 20 73 6b 61 74 74 65 76 7b 73 65 6e 65 74 73 20 6e 61 76 6e 3a 20 ┆T "Indtast skattevæsenets navn: ┆
0x27e60…27e80 20 20 20 20 20 20 20 20 20 22 3a 53 4b 41 54 4e 41 56 4e 24 3d 3c 30 31 33 30 20 49 4e 50 55 54 ┆ ":SKATNAVN$=<0130 INPUT┆
0x27e80…27ea0 20 22 49 6e 64 74 61 73 74 20 73 6b 61 74 74 65 76 7b 73 65 6e 65 74 73 20 61 64 72 65 73 73 65 ┆ "Indtast skattevæsenets adresse┆
0x27ea0…27ec0 3a 20 20 20 20 20 20 20 22 3a 53 4b 41 54 41 44 52 24 3c 3f 30 31 34 30 20 49 4e 50 55 54 20 22 ┆: ":SKATADR$<?0140 INPUT "┆
0x27ec0…27ee0 49 6e 64 74 61 73 74 20 73 6b 61 74 74 65 76 7b 73 65 6e 65 74 73 20 70 6f 73 74 6e 72 2e 20 26 ┆Indtast skattevæsenets postnr. &┆
0x27ee0…27f00 20 62 79 3a 20 20 22 3a 53 4b 41 54 50 4f 53 54 42 59 24 3f 0b 30 31 35 30 20 43 4c 45 41 52 20 ┆ by: ":SKATPOSTBY$? 0150 CLEAR ┆
0x27f00…27f20 (19, 1, 16) 0b 0b 30 31 35 35 20 50 52 49 4e 54 20 0b 10 30 31 36 30 20 50 52 49 4e 54 20 4e 41 56 4e 24 10 ┆ 0155 PRINT 0160 PRINT NAVN$ ┆
0x27f20…27f40 0f 30 31 37 30 20 50 52 49 4e 54 20 41 44 52 24 0f 12 30 31 38 30 20 50 52 49 4e 54 20 50 4f 53 ┆ 0170 PRINT ADR$ 0180 PRINT POS┆
0x27f40…27f60 54 42 59 24 12 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 46 30 32 30 30 20 50 52 49 4e 54 20 22 20 ┆TBY$ 0190 PRINT F0200 PRINT " ┆
0x27f60…27f80 56 69 20 73 6b 61 6c 20 68 65 72 6d 65 64 20 67 7c 72 65 20 44 65 6d 20 6f 70 6d 7b 72 6b 73 6f ┆Vi skal hermed gøre Dem opmærkso┆
0x27f80…27fa0 6d 20 70 7d 2c 20 61 74 20 44 65 72 65 73 20 72 65 73 74 73 6b 61 74 20 22 46 4c 30 32 31 30 20 ┆m på, at Deres restskat "FL0210 ┆
0x27fa0…27fc0 50 52 49 4e 54 20 22 75 64 67 7c 72 20 6b 72 3a 20 22 3b 43 48 52 24 28 52 45 53 54 2c 36 2c 32 ┆PRINT "udgør kr: ";CHR$(REST,6,2┆
0x27fc0…27fe0 29 3b 22 2c 20 73 6f 6d 20 62 65 64 65 73 20 62 65 74 61 6c 74 20 69 20 74 72 65 20 72 61 74 65 ┆);", som bedes betalt i tre rate┆
0x27fe0…28000 72 20 70 7d 20 22 3b 4c 11 30 32 31 31 20 50 52 49 4e 54 20 22 76 65 64 2d 22 11 46 30 32 32 30 ┆r på ";L 0211 PRINT "ved-" F0220┆
0x28000…28020 (20, 0, 1) 20 50 52 49 4e 54 20 22 6c 61 67 74 65 20 67 69 72 6f 6b 6f 72 74 2e 20 20 20 20 20 20 20 20 20 ┆ PRINT "lagte girokort. ┆
0x28020…28040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x28040…28060 20 22 46 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 1c 30 32 34 30 20 50 52 49 4e 54 20 54 41 42 28 ┆ "F 0230 PRINT 0240 PRINT TAB(┆
0x28060…28080 33 35 29 3b 53 4b 41 54 4e 41 56 4e 24 1c 1b 30 32 35 30 20 50 52 49 4e 54 20 54 41 42 28 33 35 ┆35);SKATNAVN$ 0250 PRINT TAB(35┆
0x28080…280a0 29 3b 53 4b 41 54 41 44 52 24 1b 1e 30 32 36 30 20 50 52 49 4e 54 20 54 41 42 28 33 35 29 3b 53 ┆);SKATADR$ 0260 PRINT TAB(35);S┆
0x280a0…280c0 4b 41 54 50 4f 53 54 42 59 24 1e 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆KATPOSTBY$ ccccccccccccccccccc┆
0x280c0…280e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x28100…28120 (20, 0, 2) ExtentHdr {name=»MORSE1 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0028,0b (0x028b00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0028,0b (0x028b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x28120…28140 3d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆=0010 // -----------------------┆
0x28140…28160 2d 20 6d 6f 72 73 65 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 38 ┆- morse_1 --------------------=8┆
0x28160…28180 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6f 6d 73 7b 74 74 65 72 20 65 6e 20 61 ┆0020 // Programmet omsætter en a┆
0x28180…281a0 6c 6d 2e 20 74 65 6b 73 74 20 74 69 6c 20 6d 6f 72 73 65 74 65 6b 73 74 38 08 30 30 33 30 20 2f ┆lm. tekst til morsetekst8 0030 /┆
0x281a0…281c0 2f 20 08 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 25 30 30 35 30 20 44 49 4d 20 54 45 4b 53 54 24 ┆/ 0040 CLEAR %0050 DIM TEKST$┆
0x281c0…281e0 20 4f 46 20 38 30 2c 53 24 20 4f 46 20 31 2c 4d 24 20 4f 46 20 35 25 0b 30 30 35 35 20 50 52 49 ┆ OF 80,S$ OF 1,M$ OF 5% 0055 PRI┆
0x281e0…28200 4e 54 20 0b 42 30 30 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 ┆NT B0060 PRINT "Indtast en teks┆
0x28200…28220 (20, 0, 3) 74 20 28 6d 61 78 20 38 30 20 6d 65 6c 6c 65 6d 72 75 6d 20 6f 67 20 73 6d 7d 20 62 6f 67 73 74 ┆t (max 80 mellemrum og små bogst┆
0x28220…28240 61 76 65 72 29 3a 22 42 11 30 30 37 30 20 49 4e 50 55 54 20 54 45 4b 53 54 24 11 11 30 30 38 30 ┆aver):"B 0070 INPUT TEKST$ 0080┆
0x28240…28260 20 50 52 49 4e 54 20 54 45 4b 53 54 24 11 20 30 30 39 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 ┆ PRINT TEKST$ 0090 FOR I:=1 TO ┆
0x28260…28280 4c 45 4e 28 54 45 4b 53 54 24 29 20 44 4f 20 20 14 30 31 30 30 20 53 24 3a 3d 54 45 4b 53 54 24 ┆LEN(TEKST$) DO 0100 S$:=TEKST$┆
0x28280…282a0 28 49 3a 31 29 14 10 30 31 31 30 20 43 41 53 45 20 53 24 20 4f 46 20 10 0d 30 31 32 30 20 57 48 ┆(I:1) 0110 CASE S$ OF 0120 WH┆
0x282a0…282c0 45 4e 20 22 20 22 0d 0e 30 31 33 30 20 4d 24 3a 3d 22 20 20 20 22 0e 0d 30 31 34 30 20 57 48 45 ┆EN " " 0130 M$:=" " 0140 WHE┆
0x282c0…282e0 4e 20 22 61 22 0d 0d 30 31 35 30 20 4d 24 3a 3d 22 2e 2d 22 0d 0d 30 31 36 30 20 57 48 45 4e 20 ┆N "a" 0150 M$:=".-" 0160 WHEN ┆
0x282e0…28300 22 62 22 0d 0f 30 31 37 30 20 4d 24 3a 3d 22 2d 2e 2e 2e 22 0f 0d 30 31 38 30 20 57 48 45 4e 20 ┆"b" 0170 M$:="-..." 0180 WHEN ┆
0x28300…28320 (20, 0, 4) 22 63 22 0d 0f 30 31 39 30 20 4d 24 3a 3d 22 2d 2e 2d 2e 22 0f 0d 30 32 30 30 20 57 48 45 4e 20 ┆"c" 0190 M$:="-.-." 0200 WHEN ┆
0x28320…28340 22 64 22 0d 0e 30 32 31 30 20 4d 24 3a 3d 22 2d 2e 2e 22 0e 0d 30 32 32 30 20 57 48 45 4e 20 22 ┆"d" 0210 M$:="-.." 0220 WHEN "┆
0x28340…28360 65 22 0d 0c 30 32 33 30 20 4d 24 3a 3d 22 2e 22 0c 0d 30 32 34 30 20 57 48 45 4e 20 22 66 22 0d ┆e" 0230 M$:="." 0240 WHEN "f" ┆
0x28360…28380 0f 30 32 35 30 20 4d 24 3a 3d 22 2e 2e 2d 2e 22 0f 0d 30 32 36 30 20 57 48 45 4e 20 22 67 22 0d ┆ 0250 M$:="..-." 0260 WHEN "g" ┆
0x28380…283a0 0e 30 32 37 30 20 4d 24 3a 3d 22 2d 2d 2e 22 0e 0d 30 32 38 30 20 57 48 45 4e 20 22 68 22 0d 0f ┆ 0270 M$:="--." 0280 WHEN "h" ┆
0x283a0…283c0 30 32 39 30 20 4d 24 3a 3d 22 2e 2e 2e 2e 22 0f 0d 30 33 30 30 20 57 48 45 4e 20 22 69 22 0d 0d ┆0290 M$:="...." 0300 WHEN "i" ┆
0x283c0…283e0 30 33 31 30 20 4d 24 3a 3d 22 2e 2e 22 0d 0d 30 33 32 30 20 57 48 45 4e 20 22 6a 22 0d 0f 30 33 ┆0310 M$:=".." 0320 WHEN "j" 03┆
0x283e0…28400 33 30 20 4d 24 3a 3d 22 2e 2d 2d 2d 22 0f 0d 30 33 34 30 20 57 48 45 4e 20 22 6b 22 0d 0e 30 33 ┆30 M$:=".---" 0340 WHEN "k" 03┆
0x28400…28420 (20, 0, 5) 35 30 20 4d 24 3a 3d 22 2d 2e 2d 22 0e 0d 30 33 36 30 20 57 48 45 4e 20 22 6b 22 0d 0e 30 33 37 ┆50 M$:="-.-" 0360 WHEN "k" 037┆
0x28420…28440 30 20 4d 24 3a 3d 22 2d 2e 2d 22 0e 0d 30 33 38 30 20 57 48 45 4e 20 22 6c 22 0d 0f 30 33 39 30 ┆0 M$:="-.-" 0380 WHEN "l" 0390┆
0x28440…28460 20 4d 24 3a 3d 22 2e 2d 2e 2e 22 0f 0d 30 34 30 30 20 57 48 45 4e 20 22 6d 22 0d 0d 30 34 31 30 ┆ M$:=".-.." 0400 WHEN "m" 0410┆
0x28460…28480 20 4d 24 3a 3d 22 2d 2d 22 0d 0d 30 34 32 30 20 57 48 45 4e 20 22 6e 22 0d 0d 30 34 33 30 20 4d ┆ M$:="--" 0420 WHEN "n" 0430 M┆
0x28480…284a0 24 3a 3d 22 2d 2e 22 0d 0d 30 34 34 30 20 57 48 45 4e 20 22 6f 22 0d 0e 30 34 35 30 20 4d 24 3a ┆$:="-." 0440 WHEN "o" 0450 M$:┆
0x284a0…284c0 3d 22 2d 2d 2d 22 0e 0d 30 34 36 30 20 57 48 45 4e 20 22 70 22 0d 0f 30 34 37 30 20 4d 24 3a 3d ┆="---" 0460 WHEN "p" 0470 M$:=┆
0x284c0…284e0 22 2e 2d 2d 2e 22 0f 0d 30 34 38 30 20 57 48 45 4e 20 22 71 22 0d 0f 30 34 39 30 20 4d 24 3a 3d ┆".--." 0480 WHEN "q" 0490 M$:=┆
0x284e0…28500 22 2d 2d 2e 2d 22 0f 0d 30 35 30 30 20 57 48 45 4e 20 22 72 22 0d 0e 30 35 31 30 20 4d 24 3a 3d ┆"--.-" 0500 WHEN "r" 0510 M$:=┆
0x28500…28520 (20, 0, 6) 22 2e 2d 2e 22 0e 0d 30 35 32 30 20 57 48 45 4e 20 22 73 22 0d 0e 30 35 33 30 20 4d 24 3a 3d 22 ┆".-." 0520 WHEN "s" 0530 M$:="┆
0x28520…28540 2e 2e 2e 22 0e 0d 30 35 34 30 20 57 48 45 4e 20 22 74 22 0d 0c 30 35 35 30 20 4d 24 3a 3d 22 2d ┆..." 0540 WHEN "t" 0550 M$:="-┆
0x28540…28560 22 0c 0d 30 35 36 30 20 57 48 45 4e 20 22 75 22 0d 0e 30 35 37 30 20 4d 24 3a 3d 22 2e 2e 2d 22 ┆" 0560 WHEN "u" 0570 M$:="..-"┆
0x28560…28580 0e 0d 30 35 38 30 20 57 48 45 4e 20 22 76 22 0d 0f 30 35 39 30 20 4d 24 3a 3d 22 2e 2e 2e 2d 22 ┆ 0580 WHEN "v" 0590 M$:="...-"┆
0x28580…285a0 0f 0d 30 36 30 30 20 57 48 45 4e 20 22 77 22 0d 0e 30 36 31 30 20 4d 24 3a 3d 22 2e 2d 2d 22 0e ┆ 0600 WHEN "w" 0610 M$:=".--" ┆
0x285a0…285c0 0d 30 36 32 30 20 57 48 45 4e 20 22 78 22 0d 0f 30 36 33 30 20 4d 24 3a 3d 22 2d 2e 2e 2d 22 0f ┆ 0620 WHEN "x" 0630 M$:="-..-" ┆
0x285c0…285e0 0d 30 36 34 30 20 57 48 45 4e 20 22 79 22 0d 0f 30 36 35 30 20 4d 24 3a 3d 22 2d 2e 2d 2d 22 0f ┆ 0640 WHEN "y" 0650 M$:="-.--" ┆
0x285e0…28600 0d 30 36 36 30 20 57 48 45 4e 20 22 7a 22 0d 0f 30 36 37 30 20 4d 24 3a 3d 22 2d 2d 2e 2e 22 0f ┆ 0660 WHEN "z" 0670 M$:="--.." ┆
0x28600…28620 (20, 0, 7) 0d 30 36 38 30 20 57 48 45 4e 20 22 7b 22 0d 0f 30 36 39 30 20 4d 24 3a 3d 22 2e 2d 2e 2d 22 0f ┆ 0680 WHEN "æ" 0690 M$:=".-.-" ┆
0x28620…28640 0d 30 37 30 30 20 57 48 45 4e 20 22 7c 22 0d 0f 30 37 31 30 20 4d 24 3a 3d 22 2d 2d 2d 2e 22 0f ┆ 0700 WHEN "ø" 0710 M$:="---." ┆
0x28640…28660 0d 30 37 32 30 20 57 48 45 4e 20 22 7d 22 0d 10 30 37 33 30 20 4d 24 3a 3d 22 2e 2d 2d 2e 2d 22 ┆ 0720 WHEN "å" 0730 M$:=".--.-"┆
0x28660…28680 10 0f 30 37 34 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0d 30 37 35 30 20 4d 24 3a 3d 22 2a 20 22 ┆ 0740 OTHERWISE 0750 M$:="* "┆
0x28680…286a0 0d 0d 30 37 36 30 20 45 4e 44 43 41 53 45 20 0d 15 30 37 37 30 20 49 46 20 4d 24 3d 22 2a 20 22 ┆ 0760 ENDCASE 0770 IF M$="* "┆
0x286a0…286c0 20 54 48 45 4e 20 15 11 30 37 38 30 20 50 52 49 4e 54 20 22 20 2f 20 22 3b 11 0a 30 37 39 30 20 ┆ THEN 0780 PRINT " / "; 0790 ┆
0x286c0…286e0 45 4c 53 45 20 0a 14 30 38 30 30 20 50 52 49 4e 54 20 4d 24 2b 22 20 20 20 22 3b 14 0b 30 38 31 ┆ELSE 0800 PRINT M$+" "; 081┆
0x286e0…28700 30 20 45 4e 44 49 46 20 0b 0b 30 38 32 30 20 4e 45 58 54 20 49 0b 0b 30 38 33 30 20 50 52 49 4e ┆0 ENDIF 0820 NEXT I 0830 PRIN┆
0x28700…28720 (20, 0, 8) 54 20 0b 00 00 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T // -----------------------┆
0x28720…28740 2d 20 6d 6f 72 73 65 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 38 ┆- morse_1 --------------------=8┆
0x28740…28760 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6f 6d 73 7b 74 74 65 72 20 65 6e 20 61 ┆0020 // Programmet omsætter en a┆
0x28760…28780 6c 6d 2e 20 74 65 6b 73 74 20 74 69 6c 20 6d 6f 72 73 65 74 65 6b 73 74 38 08 30 30 33 30 20 2f ┆lm. tekst til morsetekst8 0030 /┆
0x28780…287a0 2f 20 08 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 25 30 30 35 30 20 44 49 4d 20 54 45 4b 53 54 24 ┆/ 0040 CLEAR %0050 DIM TEKST$┆
0x287a0…287c0 20 4f 46 20 38 30 2c 53 24 20 4f 46 20 31 2c 4d 24 20 4f 46 20 35 25 0b 30 30 35 35 20 50 52 49 ┆ OF 80,S$ OF 1,M$ OF 5% 0055 PRI┆
0x287c0…287e0 4e 54 20 0b 42 30 30 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 ┆NT B0060 PRINT "Indtast en teks┆
0x287e0…28800 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x28800…28900 (20, 0, 9) 0x63[0x100]
[…0x2…]
0x28b00…28b20 (20, 0, 12) ExtentHdr {name=»MORSE1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0028,01 (0x028100)}, nextfile={DA 0029,05 (0x029500)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x28b20…28b40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x28c00…28d00 (20, 0, 13) 0x63[0x100]
[…0x8…]
0x29500…29520 (20, 1, 6) ExtentHdr {name=»HANS «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,08 (0x029800)}, f99=41 29 00 fe 00 00 00 00 00 00 ┆A) ┆}
0x29520…29540 41 30 30 30 35 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0005 // -----------------------┆
0x29540…29560 2d 2d 20 68 61 6e 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- hans ------------------------┆
0x29560…29580 2d 2d 41 45 30 30 31 30 20 50 52 49 4e 54 20 22 4b 7b 72 65 20 48 61 6e 73 20 20 20 20 20 20 20 ┆--AE0010 PRINT "Kære Hans ┆
0x29580…295a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x295a0…295c0 20 20 20 20 20 20 20 20 22 45 0b 30 30 32 30 20 50 52 49 4e 54 20 0b 45 30 30 33 30 20 50 52 49 ┆ "E 0020 PRINT E0030 PRI┆
0x295c0…295e0 4e 54 20 22 4a 65 67 20 65 72 20 6e 75 20 67 7d 65 74 20 69 20 67 61 6e 67 20 6d 65 64 20 61 74 ┆NT "Jeg er nu gået i gang med at┆
0x295e0…29600 20 62 72 75 67 65 20 62 6f 67 65 6e 20 27 34 20 2a 20 43 6f 6d 61 6c 27 20 20 20 20 22 45 45 30 ┆ bruge bogen '4 * Comal' "EE0┆
0x29600…29620 (20, 1, 7) 30 34 30 20 50 52 49 4e 54 20 22 70 7d 20 64 65 74 20 66 6f 72 74 73 7b 74 74 65 6c 73 65 73 6b ┆040 PRINT "på det fortsættelsesk┆
0x29620…29640 75 72 73 75 73 2c 20 73 6f 6d 20 6a 65 67 20 6e 75 20 65 72 20 62 65 67 79 6e 64 74 20 70 7d 2e ┆ursus, som jeg nu er begyndt på.┆
0x29640…29660 20 20 20 22 45 45 30 30 35 30 20 50 52 49 4e 54 20 22 44 65 74 20 65 72 20 6d 65 67 65 74 20 69 ┆ "EE0050 PRINT "Det er meget i┆
0x29660…29680 6e 74 65 72 65 73 73 61 6e 74 2c 20 6f 67 20 76 69 20 6b 61 6e 20 65 66 74 65 72 68 7d 6e 64 65 ┆nteressant, og vi kan efterhånde┆
0x29680…296a0 6e 20 62 72 75 67 65 20 20 20 22 45 45 30 30 36 30 20 50 52 49 4e 54 20 22 6e 6f 67 6c 65 20 61 ┆n bruge "EE0060 PRINT "nogle a┆
0x296a0…296c0 66 20 76 6f 72 65 73 20 70 72 6f 67 72 61 6d 6d 65 72 20 69 20 6d 61 74 65 6d 61 74 69 6b 2c 20 ┆f vores programmer i matematik, ┆
0x296c0…296e0 67 65 6f 67 72 61 66 69 2c 20 66 79 73 69 6b 2c 20 22 45 45 30 30 37 30 20 50 52 49 4e 54 20 22 ┆geografi, fysik, "EE0070 PRINT "┆
0x296e0…29700 73 61 6d 66 75 6e 64 73 66 61 67 20 6f 67 20 73 70 72 6f 67 2e 20 20 20 20 20 20 20 20 20 20 20 ┆samfundsfag og sprog. ┆
0x29700…29720 (20, 1, 8) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45 0b 30 30 38 30 20 ┆ "E 0080 ┆
0x29720…29740 50 52 49 4e 54 20 0b 45 30 30 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 ┆PRINT E0090 PRINT " ┆
0x29740…29760 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 65 64 20 76 65 6e 6c 69 67 20 68 ┆ Med venlig h┆
0x29760…29780 69 6c 73 65 6e 2c 20 20 20 20 20 20 22 45 45 30 31 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆ilsen, "EE0100 PRINT " ┆
0x29780…297a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 65 74 65 72 ┆ Peter┆
0x297a0…297c0 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 45 00 00 63 63 63 63 63 63 63 63 63 ┆. "E ccccccccc┆
0x297c0…297e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x29800…29820 (20, 1, 9) ExtentHdr {name=»HAVREN «, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 0029,0a (0x029a00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,0a (0x029a00)}, f99=41 29 00 fe 00 41 56 52 45 4e ┆A) AVREN┆}
0x29820…29840 34 30 30 30 35 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 68 61 76 72 65 6e 20 2d ┆40005 // -------------- havren -┆
0x29840…29860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 34 38 30 30 31 30 20 50 52 49 4e ┆---------------------480010 PRIN┆
0x29860…29880 54 20 22 4a 65 67 20 65 72 20 68 61 76 72 65 6e 2c 20 6a 65 67 20 68 61 72 20 62 6a 7b 6c 64 65 ┆T "Jeg er havren, jeg har bjælde┆
0x29880…298a0 72 20 70 7d 2c 20 20 20 20 20 20 20 20 20 22 38 38 30 30 32 30 20 50 52 49 4e 54 20 22 6d 65 72 ┆r på, "880020 PRINT "mer┆
0x298a0…298c0 20 65 6e 64 20 74 79 76 65 20 74 72 6f 72 20 6a 65 67 20 70 7d 20 68 76 65 72 74 20 73 74 72 7d ┆ end tyve tror jeg på hvert strå┆
0x298c0…298e0 2e 20 20 20 20 20 20 20 22 38 38 30 30 33 30 20 50 52 49 4e 54 20 22 4a 65 67 20 62 6c 65 76 20 ┆. "880030 PRINT "Jeg blev ┆
0x298e0…29900 73 7d 65 74 2c 20 6d 65 64 65 6e 73 20 67 6c 61 64 65 20 6c 7b 72 6b 65 72 20 73 61 6e 67 2c 20 ┆sået, medens glade lærker sang, ┆
0x29900…29920 (20, 1, 10) 20 20 22 38 38 30 30 34 30 20 50 52 49 4e 54 20 22 62 6f 6e 64 65 6e 20 6b 61 6c 64 65 72 20 64 ┆ "880040 PRINT "bonden kalder d┆
0x29920…29940 65 6d 20 66 6f 72 20 6d 69 6e 65 20 66 6f 6c 64 2c 20 20 20 20 20 20 20 20 20 20 20 22 38 38 30 ┆em for mine fold, "880┆
0x29940…29960 30 35 30 20 50 52 49 4e 54 20 22 6f 76 65 72 20 67 72 7c 6e 6e 65 20 62 61 6e 6b 65 72 20 64 61 ┆050 PRINT "over grønne banker da┆
0x29960…29980 67 65 6e 20 6c 61 6e 67 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 22 38 38 30 30 36 30 20 50 52 ┆gen lang; "880060 PR┆
0x29980…299a0 49 4e 54 20 22 68 75 6d 6c 65 6e 20 62 72 75 6d 6c 65 64 20 64 79 62 74 20 73 69 6e 20 6d 65 6c ┆INT "humlen brumled dybt sin mel┆
0x299a0…299c0 6f 64 69 20 20 20 20 20 20 20 20 20 20 20 20 20 22 38 38 30 30 37 30 20 50 52 49 4e 54 20 22 47 ┆odi "880070 PRINT "G┆
0x299c0…299e0 75 64 20 76 65 6c 73 69 67 6e 65 20 68 61 6d 2c 20 64 65 6e 20 62 6f 6e 64 65 6b 6e 6f 6c 64 2e ┆ud velsigne ham, den bondeknold.┆
0x299e0…29a00 20 20 20 20 20 20 20 20 20 20 22 38 38 30 30 38 30 20 50 52 49 4e 54 20 22 6f 67 20 65 74 20 72 ┆ "880080 PRINT "og et r┆
0x29a00…29a20 (20, 1, 11) ExtentHdr {name=»HAVREN «, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0029,08 (0x029800)}, nextfile={DA 0029,0c (0x029c00)}, f99=41 29 00 20 00 41 56 52 45 4e ┆A) AVREN┆}
0x29a20…29a40 79 6c 65 66 6c 7c 6a 74 20 67 6c 65 64 20 69 6e 64 20 64 65 72 69 2e 20 20 20 20 20 20 20 20 20 ┆ylefløjt gled ind deri. ┆
0x29a40…29a60 20 20 20 20 22 38 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 34 38 30 30 31 30 20 50 52 49 4e ┆ "8 -------------480010 PRIN┆
0x29a60…29a80 54 20 22 4a 65 67 20 65 72 20 68 61 76 72 65 6e 2c 20 6a 65 67 20 68 61 72 20 62 6a 7b 6c 64 65 ┆T "Jeg er havren, jeg har bjælde┆
0x29a80…29aa0 72 20 70 7d 2c 20 20 20 20 20 20 20 20 20 22 38 38 30 30 32 30 20 50 52 49 4e 54 20 22 6d 65 72 ┆r på, "880020 PRINT "mer┆
0x29aa0…29ac0 20 65 6e 64 20 74 79 76 65 20 74 72 6f 72 20 6a 65 67 20 70 7d 20 68 76 65 72 74 20 73 74 72 7d ┆ end tyve tror jeg på hvert strå┆
0x29ac0…29ae0 2e 20 20 20 20 20 20 20 22 38 38 30 30 33 30 20 50 52 49 4e 54 20 22 4a 65 67 20 62 6c 65 76 20 ┆. "880030 PRINT "Jeg blev ┆
0x29ae0…29b00 73 7d 65 74 2c 20 6d 65 64 65 6e 73 20 67 6c 61 64 65 20 6c 7b 72 6b 65 72 20 73 61 6e 67 2c 20 ┆sået, medens glade lærker sang, ┆
0x29b00…29c00 (20, 1, 12) 0x63[0x100]
0x29c00…29c20 (20, 1, 13) ExtentHdr {name=»AFRUND «, typ=»K«, seg=»A«, next=0x01, basis=0x0001, nextext={DA 0029,0d (0x029d00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0029,0d (0x029d00)}, f99=41 29 00 fe 00 41 56 52 45 4e ┆A) AVREN┆}
0x29c20…29c40 27 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 66 72 75 6e 64 20 2d 2d ┆'0010 // ------------- afrund --┆
0x29c40…29c60 2d 2d 2d 2d 2d 2d 2d 2d 27 08 30 30 32 30 20 2f 2f 20 08 17 30 30 33 30 20 50 52 4f 43 20 41 46 ┆--------' 0020 // 0030 PROC AF┆
0x29c60…29c80 52 55 4e 44 28 41 46 54 41 4c 29 17 23 30 30 34 30 20 41 46 52 55 4e 44 3a 3d 49 4e 54 28 41 46 ┆RUND(AFTAL) #0040 AFRUND:=INT(AF┆
0x29c80…29ca0 54 41 4c 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 23 13 30 30 35 30 20 45 4e 44 50 52 4f 43 20 41 ┆TAL*100+0.5)/100# 0050 ENDPROC A┆
0x29ca0…29cc0 46 52 55 4e 44 13 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 ┆FRUND 0060 // 0070 CLEAR 00┆
0x29cc0…29ce0 37 35 20 50 52 49 4e 54 20 0b 24 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 ┆75 PRINT $0080 INPUT "Indtast e┆
0x29ce0…29d00 74 20 74 61 6c 3a 20 20 20 20 22 3a 54 41 4c 24 0e 30 30 39 30 20 50 52 49 4e 54 20 54 41 4c 0e ┆t tal: ":TAL$ 0090 PRINT TAL ┆
0x29d00…29d20 (20, 1, 14) ExtentHdr {name=»AFRUND «, typ=»K«, seg=»B«, next=0x01, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0029,0c (0x029c00)}, nextfile={DA 0029,0e (0x029e00)}, f99=41 29 00 20 00 41 56 52 45 4e ┆A) AVREN┆}
0x29d20…29d40 16 30 31 30 30 20 50 52 49 4e 54 20 41 46 52 55 4e 44 28 54 41 4c 29 16 00 00 75 6e 64 20 2d 2d ┆ 0100 PRINT AFRUND(TAL) und --┆
0x29d40…29d60 2d 2d 2d 2d 2d 2d 2d 2d 27 08 30 30 32 30 20 2f 2f 20 08 17 30 30 33 30 20 50 52 4f 43 20 41 46 ┆--------' 0020 // 0030 PROC AF┆
0x29d60…29d80 52 55 4e 44 28 41 46 54 41 4c 29 17 23 30 30 34 30 20 41 46 52 55 4e 44 3a 3d 49 4e 54 28 41 46 ┆RUND(AFTAL) #0040 AFRUND:=INT(AF┆
0x29d80…29da0 54 41 4c 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 23 13 30 30 35 30 20 45 4e 44 50 52 4f 43 20 41 ┆TAL*100+0.5)/100# 0050 ENDPROC A┆
0x29da0…29dc0 46 52 55 4e 44 13 08 30 30 36 30 20 2f 2f 20 08 0b 30 30 37 30 20 43 4c 45 41 52 20 0b 0b 30 30 ┆FRUND 0060 // 0070 CLEAR 00┆
0x29dc0…29de0 37 35 20 50 52 49 4e 54 20 0b 24 30 30 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 ┆75 PRINT $0080 INPUT "Indtast e┆
0x29de0…29e00 74 20 74 61 6c 3a 20 20 20 20 22 3a 54 41 4c 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆t tal: ":TAL$ ┆
0x29e00…29e20 (20, 1, 15) ExtentHdr {name=»PRIMTAL «, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 002a,01 (0x02a100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,01 (0x02a100)}, f99=41 29 00 fe 00 41 56 52 45 4e ┆A) AVREN┆}
0x29e20…29e40 39 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 70 72 69 ┆90010 // ------------------- pri┆
0x29e40…29e60 6d 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 39 1b 30 30 31 35 ┆m ------------------------9 0015┆
0x29e60…29e80 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 41 4c 53 45 2c 54 41 4c 1b 15 30 30 31 36 20 54 52 ┆ INTEGER TRUE,FALSE,TAL 0016 TR┆
0x29e80…29ea0 55 45 3a 3d 31 3b 46 41 4c 53 45 3a 3d 30 15 08 30 30 32 30 20 2f 2f 20 08 0b 30 30 33 30 20 43 ┆UE:=1;FALSE:=0 0020 // 0030 C┆
0x29ea0…29ec0 4c 45 41 52 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 2e 30 30 34 30 20 49 4e 50 55 54 20 22 ┆LEAR 0035 PRINT .0040 INPUT "┆
0x29ec0…29ee0 48 76 69 6c 6b 65 74 20 74 61 6c 20 73 6b 61 6c 20 75 6e 64 65 72 73 7c 67 65 73 3a 20 22 3a 54 ┆Hvilket tal skal undersøges: ":T┆
0x29ee0…29f00 41 4c 2e 0b 30 30 35 30 20 50 52 49 4e 54 20 0b 13 30 30 36 30 20 50 52 49 4d 54 41 4c 3a 3d 46 ┆AL. 0050 PRINT 0060 PRIMTAL:=F┆
0x29f00…29f20 (20, 1, 16) 41 4c 53 45 13 24 30 30 37 30 20 49 46 20 54 41 4c 3e 31 20 41 4e 44 20 54 41 4c 3d 49 4e 54 28 ┆ALSE $0070 IF TAL>1 AND TAL=INT(┆
0x29f20…29f40 54 41 4c 29 20 54 48 45 4e 20 24 12 30 30 38 30 20 50 52 49 4d 54 41 4c 3a 3d 54 52 55 45 12 19 ┆TAL) THEN $ 0080 PRIMTAL:=TRUE ┆
0x29f40…29f60 30 30 39 30 20 47 52 5b 4e 53 45 3a 3d 53 51 52 28 54 41 4c 29 2b 30 2e 35 19 28 30 31 30 30 20 ┆0090 GRÆNSE:=SQR(TAL)+0.5 (0100 ┆
0x29f60…29f80 49 46 20 54 41 4c 2f 32 3d 49 4e 54 28 54 41 4c 2f 32 29 20 41 4e 44 20 54 41 4c 3e 32 20 54 48 ┆IF TAL/2=INT(TAL/2) AND TAL>2 TH┆
0x29f80…29fa0 45 4e 20 28 13 30 31 31 30 20 50 52 49 4d 54 41 4c 3a 3d 46 41 4c 53 45 13 20 30 31 32 30 20 50 ┆EN ( 0110 PRIMTAL:=FALSE 0120 P┆
0x29fa0…29fc0 52 49 4e 54 20 54 41 4c 2c 22 20 65 72 20 65 74 20 6c 69 67 65 20 74 61 6c 22 20 0b 30 31 33 30 ┆RINT TAL," er et lige tal" 0130┆
0x29fc0…29fe0 20 45 4e 44 49 46 20 0b 0f 30 31 34 30 20 44 49 56 49 53 4f 52 3a 3d 31 0f 14 30 31 35 30 20 49 ┆ ENDIF 0140 DIVISOR:=1 0150 I┆
0x29fe0…2a000 46 20 54 41 4c 3c 3e 33 20 54 48 45 4e 20 14 2f 30 31 36 30 20 57 48 49 4c 45 20 50 52 49 4d 54 ┆F TAL<>3 THEN /0160 WHILE PRIMT┆
0x2a000…2a020 (21, 0, 1) 41 4c 3d 54 52 55 45 20 41 4e 44 20 44 49 56 49 53 4f 52 3c 3d 47 52 5b 4e 53 45 20 44 4f 20 2f ┆AL=TRUE AND DIVISOR<=GRÆNSE DO /┆
0x2a020…2a040 17 30 31 37 30 20 44 49 56 49 53 4f 52 3a 3d 44 49 56 49 53 4f 52 2b 32 17 39 30 31 38 30 20 49 ┆ 0170 DIVISOR:=DIVISOR+2 90180 I┆
0x2a040…2a060 46 20 54 41 4c 2d 28 49 4e 54 28 54 41 4c 2f 44 49 56 49 53 4f 52 29 29 2a 44 49 56 49 53 4f 52 ┆F TAL-(INT(TAL/DIVISOR))*DIVISOR┆
0x2a060…2a080 3d 30 20 54 48 45 4e 20 54 45 53 54 3a 3d 46 41 4c 53 45 39 41 30 31 39 30 20 49 46 20 4e 4f 54 ┆=0 THEN TEST:=FALSE9A0190 IF NOT┆
0x2a080…2a0a0 20 50 52 49 4d 54 41 4c 20 54 48 45 4e 20 50 52 49 4e 54 20 54 41 4c 2c 22 20 68 61 72 20 22 2c ┆ PRIMTAL THEN PRINT TAL," har ",┆
0x2a0a0…2a0c0 44 49 56 49 53 4f 52 2c 22 20 73 6f 6d 20 64 69 76 69 73 6f 72 22 41 0e 30 32 30 30 20 45 4e 44 ┆DIVISOR," som divisor"A 0200 END┆
0x2a0c0…2a0e0 57 48 49 4c 45 20 0e 0b 30 32 31 30 20 45 4e 44 49 46 20 0b 0b 30 32 32 30 20 45 4e 44 49 46 20 ┆WHILE 0210 ENDIF 0220 ENDIF ┆
0x2a0e0…2a100 0b 15 30 32 33 30 20 49 46 20 50 52 49 4d 54 41 4c 20 54 48 45 4e 20 15 1f 30 32 34 30 20 50 52 ┆ 0230 IF PRIMTAL THEN 0240 PR┆
0x2a100…2a120 (21, 0, 2) ExtentHdr {name=»PRIMTAL «, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0029,0e (0x029e00)}, nextfile={DA 002a,04 (0x02a400)}, f99=41 29 00 20 00 41 56 52 45 4e ┆A) AVREN┆}
0x2a120…2a140 49 4e 54 20 54 41 4c 3b 22 20 65 72 20 65 74 20 70 72 69 6d 74 61 6c 22 1f 0a 30 32 35 30 20 45 ┆INT TAL;" er et primtal" 0250 E┆
0x2a140…2a160 4c 53 45 20 0a 24 30 32 36 30 20 50 52 49 4e 54 20 54 41 4c 3b 22 20 65 72 20 69 6b 6b 65 20 65 ┆LSE $0260 PRINT TAL;" er ikke e┆
0x2a160…2a180 74 20 70 72 69 6d 74 61 6c 22 24 0b 30 32 37 30 20 45 4e 44 49 46 20 0b 00 00 54 52 55 45 3a 3d ┆t primtal"$ 0270 ENDIF TRUE:=┆
0x2a180…2a1a0 31 3b 46 41 4c 53 45 3a 3d 30 15 08 30 30 32 30 20 2f 2f 20 08 0b 30 30 33 30 20 43 4c 45 41 52 ┆1;FALSE:=0 0020 // 0030 CLEAR┆
0x2a1a0…2a1c0 20 0b 0b 30 30 33 35 20 50 52 49 4e 54 20 0b 2e 30 30 34 30 20 49 4e 50 55 54 20 22 48 76 69 6c ┆ 0035 PRINT .0040 INPUT "Hvil┆
0x2a1c0…2a1e0 6b 65 74 20 74 61 6c 20 73 6b 61 6c 20 75 6e 64 65 72 73 7c 67 65 73 3a 20 22 3a 54 41 4c 2e 0b ┆ket tal skal undersøges: ":TAL. ┆
0x2a1e0…2a200 30 30 35 30 20 50 52 49 4e 54 20 0b 13 30 30 36 30 20 50 52 49 4d 54 41 4c 3a 3d 46 41 4c 53 45 ┆0050 PRINT 0060 PRIMTAL:=FALSE┆
0x2a200…2a300 (21, 0, 3) 0x63[0x100]
[…0x1…]
0x2a400…2a420 (21, 0, 5) ExtentHdr {name=»DEMO_2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002a,0e (0x02ae00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002a,0e (0x02ae00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2a420…2a440 4d 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0100 // -----------------------┆
0x2a440…2a460 2d 2d 20 64 65 6d 6f 73 65 6b 76 65 6e 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- demosekvent -----------------┆
0x2a460…2a480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 40 30 31 31 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d ┆--------------M@0110 // Programm┆
0x2a480…2a4a0 65 74 20 69 6e 64 6c 7b 73 65 72 20 76 2f 69 6e 64 74 61 73 74 6e 69 6e 67 20 65 6c 65 76 6c 69 ┆et indlæser v/indtastning elevli┆
0x2a4a0…2a4c0 73 74 65 20 6f 67 20 75 64 73 6b 72 69 76 65 72 40 38 30 31 32 30 20 2f 2f 20 64 65 6e 2e 20 41 ┆ste og udskriver@80120 // den. A┆
0x2a4c0…2a4e0 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 66 6f 72 20 64 65 6e 6e 65 20 43 6f 6d 61 ┆PPEND findes ikke for denne Coma┆
0x2a4e0…2a500 6c 2d 76 65 72 73 69 6f 6e 2e 38 4d 30 31 33 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 32 ┆l-version.8M0130 DIM NAVN$ OF 22┆
0x2a500…2a520 (21, 0, 6) 2c 41 44 52 24 20 4f 46 20 32 32 2c 50 4f 53 54 42 59 24 20 4f 46 20 32 30 2c 46 49 4c 24 20 4f ┆,ADR$ OF 22,POSTBY$ OF 20,FIL$ O┆
0x2a520…2a540 46 20 31 36 2c 4b 4c 41 53 53 45 24 20 4f 46 20 35 2c 53 24 20 4f 46 20 31 4d 19 30 31 33 35 20 ┆F 16,KLASSE$ OF 5,S$ OF 1M 0135 ┆
0x2a540…2a560 49 4e 54 45 47 45 52 20 4e 55 4d 4d 45 52 2c 5c 4e 53 4b 45 19 08 30 31 34 30 20 2f 2f 20 08 0c ┆INTEGER NUMMER,ØNSKE 0140 // ┆
0x2a560…2a580 30 31 35 30 20 52 45 50 45 41 54 20 0c 0e 30 31 36 30 20 45 58 45 43 20 56 41 4c 47 0e 12 30 31 ┆0150 REPEAT 0160 EXEC VALG 01┆
0x2a580…2a5a0 37 30 20 55 4e 54 49 4c 20 5c 4e 53 4b 45 3d 34 12 08 30 31 38 30 20 2f 2f 20 08 0e 30 31 39 30 ┆70 UNTIL ØNSKE=4 0180 // 0190┆
0x2a5a0…2a5c0 20 50 52 4f 43 20 56 41 4c 47 0e 0b 30 32 30 30 20 43 4c 45 41 52 20 0b 0f 30 32 31 30 20 43 55 ┆ PROC VALG 0200 CLEAR 0210 CU┆
0x2a5c0…2a5e0 52 53 4f 52 20 31 2c 33 0f 2b 30 32 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 45 20 4c 20 45 ┆RSOR 1,3 +0220 PRINT " E L E┆
0x2a5e0…2a600 20 56 20 4b 20 41 20 52 20 54 20 4f 20 54 20 45 20 4b 20 2e 22 2b 4a 30 32 33 30 20 50 52 49 4e ┆ V K A R T O T E K ."+J0230 PRIN┆
0x2a600…2a620 (21, 0, 7) 54 20 22 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T " ------------------------┆
0x2a620…2a640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a640…2a660 22 4a 3a 30 32 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 44 75 20 68 61 72 20 66 7c 6c 67 65 ┆"J:0240 PRINT " Du har følge┆
0x2a660…2a680 6e 64 65 20 6d 75 6c 69 67 68 65 64 65 72 20 66 6f 72 20 61 74 20 76 7b 6c 67 65 3a 22 3a 4a 30 ┆nde muligheder for at vælge:":J0┆
0x2a680…2a6a0 32 35 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆250 PRINT " ----------------┆
0x2a6a0…2a6c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2a6c0…2a6e0 2d 2d 2d 2d 2d 2d 2d 2d 22 4a 0b 30 32 36 30 20 50 52 49 4e 54 20 0b 3a 30 32 37 30 20 50 52 49 ┆--------"J 0260 PRINT :0270 PRI┆
0x2a6e0…2a700 4e 54 20 22 20 20 20 20 20 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e ┆NT " Oprettelse af kartotek.┆
0x2a700…2a720 (21, 0, 8) 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 31 22 3a 0b 30 32 38 30 20 50 52 49 4e 54 20 0b ┆...........Tast 1": 0280 PRINT ┆
0x2a720…2a740 3a 30 32 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 54 69 6c 66 7c 6a 65 6c 73 65 20 69 20 6b ┆:0290 PRINT " Tilføjelse i k┆
0x2a740…2a760 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 74 20 32 22 3a 0b 30 33 30 ┆artotek.............Tast 2": 030┆
0x2a760…2a780 30 20 50 52 49 4e 54 20 0b 3a 30 33 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 55 64 6c 7b 73 ┆0 PRINT :0310 PRINT " Udlæs┆
0x2a780…2a7a0 6e 69 6e 67 65 6e 20 61 66 20 6b 61 72 74 6f 74 65 6b 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 54 61 73 ┆ningen af kartotek...........Tas┆
0x2a7a0…2a7c0 74 20 33 22 3a 0b 30 33 32 30 20 50 52 49 4e 54 20 0b 3a 30 33 33 30 20 50 52 49 4e 54 20 22 20 ┆t 3": 0320 PRINT :0330 PRINT " ┆
0x2a7c0…2a7e0 20 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 6c 75 74 74 65 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ Ønsker du at slutte.........┆
0x2a7e0…2a800 2e 2e 2e 2e 2e 2e 54 61 73 74 20 34 22 3a 10 30 33 34 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 ┆......Tast 4": 0340 CURSOR 5,20 ┆
0x2a800…2a820 (21, 0, 9) 22 30 33 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 7c 6e 73 6b 65 3a 20 22 3a 5c 4e ┆"0350 INPUT "Indtast ønske: ":ØN┆
0x2a820…2a840 53 4b 45 22 13 30 33 36 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 33 37 30 20 57 ┆SKE" 0360 CASE ØNSKE OF 0370 W┆
0x2a840…2a860 48 45 4e 20 31 0b 0f 30 33 38 30 20 45 58 45 43 20 4f 50 52 45 54 0f 0b 30 33 39 30 20 57 48 45 ┆HEN 1 0380 EXEC OPRET 0390 WHE┆
0x2a860…2a880 4e 20 32 0b 10 30 34 30 30 20 45 58 45 43 20 54 49 4c 46 5c 4a 10 0b 30 34 31 30 20 57 48 45 4e ┆N 2 0400 EXEC TILFØJ 0410 WHEN┆
0x2a880…2a8a0 20 33 0b 12 30 34 32 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 0f 30 34 33 30 20 4f 54 48 ┆ 3 0420 EXEC UDSKRIFT 0430 OTH┆
0x2a8a0…2a8c0 45 52 57 49 53 45 20 0f 10 30 34 34 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 24 30 34 35 30 20 ┆ERWISE 0440 CURSOR 5,22 $0450 ┆
0x2a8c0…2a8e0 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 69 64 61 67 2e 22 24 ┆PRINT "Så slutter vi for idag."$┆
0x2a8e0…2a900 0d 30 34 36 30 20 45 4e 44 43 41 53 45 20 0d 11 30 34 37 30 20 45 4e 44 50 52 4f 43 20 56 41 4c ┆ 0460 ENDCASE 0470 ENDPROC VAL┆
0x2a900…2a920 (21, 0, 10) 47 11 08 30 34 38 30 20 2f 2f 20 08 0f 30 34 39 30 20 50 52 4f 43 20 4f 50 52 45 54 0f 0b 30 35 ┆G 0480 // 0490 PROC OPRET 05┆
0x2a920…2a940 30 30 20 43 4c 45 41 52 20 0b 0f 30 35 31 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 30 30 35 32 30 ┆00 CLEAR 0510 CURSOR 1,6 00520┆
0x2a940…2a960 20 49 4e 50 55 54 20 22 4e 61 76 6e 20 70 7d 20 66 69 6c 65 6e 20 3a 20 20 20 20 20 20 20 20 20 ┆ INPUT "Navn på filen : ┆
0x2a960…2a980 20 20 20 20 20 20 22 3a 46 49 4c 24 30 24 30 35 33 30 20 4e 55 4d 4d 45 52 3a 3d 30 3b 46 49 4c ┆ ":FIL$0$0530 NUMMER:=0;FIL┆
0x2a980…2a9a0 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 24 10 30 35 34 30 20 43 52 45 41 54 45 20 ┆$:="SYSTIME:"+FIL$$ 0540 CREATE ┆
0x2a9a0…2a9c0 46 49 4c 24 10 10 30 35 35 30 20 4f 50 45 4e 20 46 49 4c 24 2c 57 10 0c 30 35 36 30 20 52 45 50 ┆FIL$ 0550 OPEN FIL$,W 0560 REP┆
0x2a9c0…2a9e0 45 41 54 20 0c 0b 30 35 37 30 20 43 4c 45 41 52 20 0b 0f 30 35 38 30 20 43 55 52 53 4f 52 20 31 ┆EAT 0570 CLEAR 0580 CURSOR 1┆
0x2a9e0…2aa00 2c 34 0f 27 30 35 39 30 20 50 52 49 4e 54 20 22 4f 70 72 65 74 74 65 6c 73 65 20 61 66 20 6e 79 ┆,4 '0590 PRINT "Oprettelse af ny┆
0x2aa00…2aa20 (21, 0, 11) 74 20 6b 61 72 74 6f 74 65 6b 22 27 4b 30 36 30 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆t kartotek"'K0600 PRINT "-------┆
0x2aa20…2aa40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2aa40…2aa60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4b 15 30 36 31 30 20 4e ┆-----------------------"K 0610 N┆
0x2aa60…2aa80 55 4d 4d 45 52 3a 3d 4e 55 4d 4d 45 52 2b 31 15 0f 30 36 32 30 20 43 55 52 53 4f 52 20 31 2c 38 ┆UMMER:=NUMMER+1 0620 CURSOR 1,8┆
0x2aa80…2aaa0 0f 24 30 36 33 30 20 50 52 49 4e 54 20 22 4e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 22 3b ┆ $0630 PRINT "Nummer: ";┆
0x2aaa0…2aac0 4e 55 4d 4d 45 52 24 0b 30 36 34 30 20 50 52 49 4e 54 20 0b 36 30 36 35 30 20 49 4e 50 55 54 20 ┆NUMMER$ 0640 PRINT 60650 INPUT ┆
0x2aac0…2aae0 22 49 6e 64 74 61 73 74 20 6b 6c 61 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆"Indtast klasse: ┆
0x2aae0…2ab00 20 20 22 3a 4b 4c 41 53 53 45 24 36 34 30 36 36 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 ┆ ":KLASSE$640660 INPUT "indtast┆
0x2ab00…2ab20 (21, 0, 12) 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 56 4e ┆ navn: ":NAVN┆
0x2ab20…2ab40 24 34 33 30 36 37 30 20 49 4e 50 55 54 20 22 69 6e 64 74 61 73 74 20 61 64 72 65 73 73 65 3a 20 ┆$430670 INPUT "indtast adresse: ┆
0x2ab40…2ab60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 41 44 52 24 33 36 30 36 38 30 20 49 4e 50 ┆ ":ADR$360680 INP┆
0x2ab60…2ab80 55 54 20 22 69 6e 64 74 61 73 74 20 70 6f 73 74 6e 75 6d 6d 65 72 20 26 20 62 79 3a 20 20 20 20 ┆UT "indtast postnummer & by: ┆
0x2ab80…2aba0 20 20 20 20 20 22 3a 50 4f 53 54 42 59 24 36 2f 30 36 39 30 20 50 55 54 20 46 49 4c 24 3a 4e 55 ┆ ":POSTBY$6/0690 PUT FIL$:NU┆
0x2aba0…2abc0 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 2f ┆MMER,KLASSE$,NAVN$,ADR$,POSTBY$/┆
0x2abc0…2abe0 10 30 37 30 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 2d 30 37 31 30 20 49 4e 50 55 54 20 22 5c ┆ 0700 CURSOR 1,22 -0710 INPUT "Ø┆
0x2abe0…2ac00 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 6a 2f 6e 20 22 3a 53 24 ┆nsker du at fortsætte? j/n ":S$┆
0x2ac00…2ac20 (21, 0, 13) 2d 1b 30 37 32 30 20 55 4e 54 49 4c 20 53 24 3d 22 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 11 30 ┆- 0720 UNTIL S$="N" OR S$="n" 0┆
0x2ac20…2ac40 37 33 30 20 45 4e 44 46 49 4c 45 20 46 49 4c 24 11 0f 30 37 34 30 20 43 4c 4f 53 45 20 46 49 4c ┆730 ENDFILE FIL$ 0740 CLOSE FIL┆
0x2ac40…2ac60 24 0f 12 30 37 35 30 20 45 4e 44 50 52 4f 43 20 4f 50 52 45 54 12 08 30 37 36 30 20 2f 2f 20 08 ┆$ 0750 ENDPROC OPRET 0760 // ┆
0x2ac60…2ac80 08 30 37 37 30 20 2f 2f 20 08 12 30 37 38 30 20 50 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 ┆ 0770 // 0780 PROC UDSKRIFT 0┆
0x2ac80…2aca0 37 39 30 20 43 4c 45 41 52 20 0b 30 30 38 30 30 20 49 4e 50 55 54 20 22 46 69 6c 65 6e 73 20 6e ┆790 CLEAR 00800 INPUT "Filens n┆
0x2aca0…2acc0 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 49 4c 24 30 1a 30 38 ┆avn: ":FIL$0 08┆
0x2acc0…2ace0 31 30 20 46 49 4c 24 3a 3d 22 53 59 53 54 49 4d 45 3a 22 2b 46 49 4c 24 1a 0b 30 38 32 30 20 50 ┆10 FIL$:="SYSTIME:"+FIL$ 0820 P┆
0x2ace0…2ad00 52 49 4e 54 20 0b 11 30 38 33 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 11 10 30 38 34 30 20 4f ┆RINT 0830 EXEC PRINTER 0840 O┆
0x2ad00…2ad20 (21, 0, 14) 50 45 4e 20 46 49 4c 24 2c 52 10 4b 30 38 35 30 20 50 52 49 4e 54 20 22 4e 72 3a 20 20 4b 6c 61 ┆PEN FIL$,R K0850 PRINT "Nr: Kla┆
0x2ad20…2ad40 73 73 65 3a 20 20 20 20 4e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 64 ┆sse: Navn: Ad┆
0x2ad40…2ad60 72 65 73 73 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4b 1c 30 38 36 30 20 50 52 ┆resse: ";K 0860 PR┆
0x2ad60…2ad80 49 4e 54 20 22 50 6f 73 74 6e 75 6d 6d 65 72 20 26 20 42 79 22 1c 4d 30 38 37 30 20 50 52 49 4e ┆INT "Postnummer & By" M0870 PRIN┆
0x2ad80…2ada0 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆T "_____________________________┆
0x2ada0…2adc0 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f ┆________________________________┆
0x2adc0…2ade0 5f 5f 22 3b 4d 1a 30 38 38 30 20 50 52 49 4e 54 20 22 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 5f 22 ┆__";M 0880 PRINT "_____________"┆
0x2ade0…2ae00 1a 0b 30 38 39 30 20 50 52 49 4e 54 20 0b 2f 30 39 30 30 20 47 45 54 20 46 49 4c 24 3a 4e 55 4d ┆ 0890 PRINT /0900 GET FIL$:NUM┆
0x2ae00…2ae20 (21, 0, 15) ExtentHdr {name=»DEMO_2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002a,04 (0x02a400)}, nextfile={DA 002b,08 (0x02b800)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x2ae20…2ae40 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 2f 1c ┆MER,KLASSE$,NAVN$,ADR$,POSTBY$/ ┆
0x2ae40…2ae60 30 39 31 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 46 49 4c 24 29 20 44 4f 20 1c 4b 30 39 ┆0910 WHILE NOT EOF(FIL$) DO K09┆
0x2ae60…2ae80 32 30 20 50 52 49 4e 54 20 4e 55 4d 4d 45 52 3b 54 41 42 28 36 29 3b 4b 4c 41 53 53 45 24 3b 54 ┆20 PRINT NUMMER;TAB(6);KLASSE$;T┆
0x2ae80…2aea0 41 42 28 31 37 29 3b 4e 41 56 4e 24 3b 54 41 42 28 33 39 29 3b 41 44 52 24 3b 54 41 42 28 36 32 ┆AB(17);NAVN$;TAB(39);ADR$;TAB(62┆
0x2aea0…2aec0 29 3b 50 4f 53 54 42 59 24 4b 2f 30 39 33 30 20 47 45 54 20 46 49 4c 24 3a 4e 55 4d 4d 45 52 2c ┆);POSTBY$K/0930 GET FIL$:NUMMER,┆
0x2aec0…2aee0 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 2f 0e 30 39 34 30 ┆KLASSE$,NAVN$,ADR$,POSTBY$/ 0940┆
0x2aee0…2af00 20 45 4e 44 57 48 49 4c 45 20 0e 0f 30 39 35 30 20 43 4c 4f 53 45 20 46 49 4c 24 0f 16 30 39 36 ┆ ENDWHILE 0950 CLOSE FIL$ 096┆
0x2af00…2af20 (21, 0, 16) 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 11 30 39 37 30 20 43 55 52 53 4f 52 ┆0 SELECT OUTPUT "T" 0970 CURSOR┆
0x2af20…2af40 20 36 35 2c 32 32 11 1c 30 39 38 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 65 74 75 72 6e 20 ┆ 65,22 0980 INPUT "Tast return ┆
0x2af40…2af60 22 3a 53 24 1c 15 30 39 39 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 54 15 08 31 30 30 ┆":S$ 0990 ENDPROC UDSKRIFT 100┆
0x2af60…2af80 30 20 2f 2f 20 08 10 31 30 31 30 20 50 52 4f 43 20 54 49 4c 46 5c 4a 10 0b 31 30 32 30 20 43 4c ┆0 // 1010 PROC TILFØJ 1020 CL┆
0x2af80…2afa0 45 41 52 20 0b 11 31 30 33 30 20 43 55 52 53 4f 52 20 32 35 2c 31 32 11 37 31 30 34 30 20 50 52 ┆EAR 1030 CURSOR 25,12 71040 PR┆
0x2afa0…2afc0 49 4e 54 20 22 41 50 50 45 4e 44 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 70 7d 20 64 65 6e 6e 65 ┆INT "APPEND findes ikke på denne┆
0x2afc0…2afe0 20 43 6f 6d 61 6c 2d 76 65 72 73 69 6f 6e 2e 22 37 11 31 30 35 30 20 43 55 52 53 4f 52 20 37 30 ┆ Comal-version."7 1050 CURSOR 70┆
0x2afe0…2b000 2c 32 33 11 17 31 30 36 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 24 17 13 31 30 ┆,23 1060 INPUT "Return!":S$ 10┆
0x2b000…2b020 (21, 1, 1) 37 30 20 45 4e 44 50 52 4f 43 20 54 49 4c 46 5c 4a 13 08 31 30 38 30 20 2f 2f 20 08 11 31 30 39 ┆70 ENDPROC TILFØJ 1080 // 109┆
0x2b020…2b040 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 0f 31 31 30 30 20 43 55 52 53 4f 52 20 31 2c 35 0f ┆0 PROC PRINTER 1100 CURSOR 1,5 ┆
0x2b040…2b060 38 31 31 31 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 75 64 73 6b 72 69 66 74 20 ┆81110 INPUT "Ønsker du udskrift ┆
0x2b060…2b080 70 7d 20 70 72 69 6e 74 65 72 3f 20 20 20 28 70 2f 73 29 3a 20 22 3a 53 24 38 1e 31 31 32 30 20 ┆på printer? (p/s): ":S$8 1120 ┆
0x2b080…2b0a0 49 46 20 53 24 3d 22 50 22 20 4f 52 20 53 24 3d 22 70 22 20 54 48 45 4e 20 1e 16 31 31 33 30 20 ┆IF S$="P" OR S$="p" THEN 1130 ┆
0x2b0a0…2b0c0 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 16 1b 31 31 34 30 20 49 46 20 53 54 41 54 55 ┆SELECT OUTPUT "P" 1140 IF STATU┆
0x2b0c0…2b0e0 53 28 22 50 22 29 3d 31 20 54 48 45 4e 20 1b 0f 31 31 35 30 20 43 55 52 53 4f 52 20 31 2c 35 0f ┆S("P")=1 THEN 1150 CURSOR 1,5 ┆
0x2b0e0…2b100 35 31 31 36 30 20 50 52 49 4e 54 20 22 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 ┆51160 PRINT "Printeren er reserv┆
0x2b100…2b120 (21, 1, 2) 65 72 65 74 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2e 22 35 3f 31 31 37 30 20 49 4e 50 ┆eret af anden bruger."5?1170 INP┆
0x2b120…2b140 55 54 20 22 53 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c ┆UT "Skal der ventes på at den bl┆
0x2b140…2b160 69 76 65 72 20 6c 65 64 69 67 20 28 6a 2f 6e 29 20 3f 20 22 3a 53 24 3f 0f 31 31 38 30 20 43 55 ┆iver ledig (j/n) ? ":S$? 1180 CU┆
0x2b160…2b180 52 53 4f 52 20 31 2c 35 0f 41 31 31 39 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 ┆RSOR 1,5 A1190 PRINT " ┆
0x2b180…2b1a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b1a0…2b1c0 20 20 20 20 20 20 20 20 20 20 22 41 41 31 32 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 ┆ "AA1200 PRINT " ┆
0x2b1c0…2b1e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2b1e0…2b200 20 20 20 20 20 20 20 20 20 20 20 20 20 22 41 1e 31 32 31 30 20 49 46 20 53 24 3d 22 4a 22 20 4f ┆ "A 1210 IF S$="J" O┆
0x2b200…2b220 (21, 1, 3) 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 0f 31 32 32 30 20 43 55 52 53 4f 52 20 31 2c 35 0f ┆R S$="j" THEN 1220 CURSOR 1,5 ┆
0x2b220…2b240 34 31 32 33 30 20 50 52 49 4e 54 20 22 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 72 ┆41230 PRINT "Der ventes på at pr┆
0x2b240…2b260 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 22 34 2e 31 32 34 30 20 57 48 49 4c ┆interen bliver ledig"4.1240 WHIL┆
0x2b260…2b280 45 20 53 54 41 54 55 53 28 22 50 22 29 3c 3e 30 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 ┆E STATUS("P")<>0 DO SELECT OUTPU┆
0x2b280…2b2a0 54 20 22 50 22 2e 0a 31 32 35 30 20 45 4c 53 45 20 0a 16 31 32 36 30 20 53 45 4c 45 43 54 20 4f ┆T "P". 1250 ELSE 1260 SELECT O┆
0x2b2a0…2b2c0 55 54 50 55 54 20 22 54 22 16 0b 31 32 37 30 20 45 4e 44 49 46 20 0b 0b 31 32 38 30 20 45 4e 44 ┆UTPUT "T" 1270 ENDIF 1280 END┆
0x2b2c0…2b2e0 49 46 20 0b 0b 31 32 39 30 20 45 4e 44 49 46 20 0b 14 31 33 30 30 20 45 4e 44 50 52 4f 43 20 50 ┆IF 1290 ENDIF 1300 ENDPROC P┆
0x2b2e0…2b300 52 49 4e 54 45 52 14 05 31 33 31 30 20 05 15 31 33 32 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 ┆RINTER 1310 1320 PROC EOF(FNA┆
0x2b300…2b320 (21, 1, 4) 56 4e 24 29 15 46 31 33 33 30 20 45 4f 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e 24 29 3d ┆VN$) F1330 EOF:=(STATUS(FNAVN$)=┆
0x2b320…2b340 31 39 29 20 2f 2f 20 31 39 20 3d 20 44 44 45 2d 63 6f 6d 61 6c 20 45 6e 64 2d 4f 66 2d 46 69 6c ┆19) // 19 = DDE-comal End-Of-Fil┆
0x2b340…2b360 65 20 73 74 61 74 75 73 20 6e 72 2e 46 10 31 33 34 30 20 45 4e 44 50 52 4f 43 20 45 4f 46 10 00 ┆e status nr.F 1340 ENDPROC EOF ┆
0x2b360…2b380 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccccc┆
0x2b380…2b3a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x2b400…2b500 (21, 1, 5) 0x63[0x100]
[…0x3…]
0x2b800…2b820 (21, 1, 9) ExtentHdr {name=»SAMRENTE«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 002b,0d (0x02bd00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002b,0d (0x02bd00)}, f99=41 2b 00 fe 00 00 00 00 00 00 ┆A+ ┆}
0x2b820…2b840 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 ┆G0010 // --------------------- s┆
0x2b840…2b860 61 6d 72 65 6e 74 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆amrente ------------------------┆
0x2b860…2b880 2d 2d 2d 2d 2d 2d 2d 2d 47 46 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 73 6c 75 74 6b ┆--------GF0020 // Udregner slutk┆
0x2b880…2b8a0 61 70 69 74 61 6c 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 73 74 61 72 74 6b ┆apital, når man indtaster startk┆
0x2b8a0…2b8c0 61 70 69 74 61 6c 2c 20 72 65 6e 74 65 66 6f 64 46 22 30 30 33 30 20 2f 2f 20 73 61 6d 74 20 61 ┆apital, rentefodF"0030 // samt a┆
0x2b8c0…2b8e0 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 72 6d 69 6e 65 72 2e 22 4d 30 30 34 30 20 2f 2f 20 2d 2d ┆ntallet af terminer."M0040 // --┆
0x2b8e0…2b900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2b920…2b940 2d 2d 2d 4d 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 0f 30 30 36 30 20 43 55 52 53 4f 52 20 31 2c ┆---M 0050 CLEAR 0060 CURSOR 1,┆
0x2b940…2b960 34 0f 3c 30 30 37 30 20 50 52 49 4e 54 20 22 53 20 61 20 6d 20 6d 20 65 20 6e 20 73 20 61 20 74 ┆4 <0070 PRINT "S a m m e n s a t┆
0x2b960…2b980 20 20 20 72 20 65 20 6e 20 74 20 65 20 73 20 72 20 65 20 67 20 6e 20 69 20 6e 20 67 20 3a 22 3c ┆ r e n t e s r e g n i n g :"<┆
0x2b980…2b9a0 0f 30 30 38 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 3c 30 30 39 30 20 50 52 49 4e 54 20 22 2d 2d ┆ 0080 CURSOR 1,5 <0090 PRINT "--┆
0x2b9a0…2b9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2b9c0…2b9e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 3c 0f 30 31 30 30 20 43 55 52 53 4f 52 20 31 2c 39 0f ┆-------------"< 0100 CURSOR 1,9 ┆
0x2b9e0…2ba00 48 30 31 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 61 70 69 74 61 6c 3a 20 20 20 ┆H0110 INPUT "Indtast kapital: ┆
0x2ba00…2ba20 (21, 1, 11) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 54 41 ┆ ":STA┆
0x2ba20…2ba40 52 54 4b 41 50 49 54 41 4c 48 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 44 30 31 33 30 20 49 4e 50 ┆RTKAPITALH 0120 PRINT D0130 INP┆
0x2ba40…2ba60 55 54 20 22 49 6e 64 74 61 73 74 20 72 65 6e 74 65 66 6f 64 3a 20 20 20 20 20 20 20 20 20 20 20 ┆UT "Indtast rentefod: ┆
0x2ba60…2ba80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 45 4e 54 45 46 4f 44 44 0b 30 31 ┆ ":RENTEFODD 01┆
0x2ba80…2baa0 34 30 20 50 52 49 4e 54 20 0b 42 30 31 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 ┆40 PRINT B0150 INPUT "Indtast a┆
0x2baa0…2bac0 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 72 6d 69 6e 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ntallet af terminer: ┆
0x2bac0…2bae0 20 20 20 20 20 22 3a 54 45 52 4d 49 4e 42 4c 30 31 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ":TERMINBL0160 // ---------┆
0x2bae0…2bb00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bb00…2bb20 (21, 1, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 37 30 31 37 ┆---------------------------L7017┆
0x2bb20…2bb40 30 20 53 4c 55 54 4b 41 50 49 54 41 4c 3a 3d 53 54 41 52 54 4b 41 50 49 54 41 4c 2a 28 31 2b 52 ┆0 SLUTKAPITAL:=STARTKAPITAL*(1+R┆
0x2bb40…2bb60 45 4e 54 45 46 4f 44 2f 31 30 30 29 2a 2a 54 45 52 4d 49 4e 37 4c 30 31 38 30 20 2f 2f 20 2d 2d ┆ENTEFOD/100)**TERMIN7L0180 // --┆
0x2bb60…2bb80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2bba0…2bbc0 2d 2d 4c 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 41 30 32 ┆--L 0190 PRINT 0200 PRINT A02┆
0x2bbc0…2bbe0 31 30 20 50 52 49 4e 54 20 22 4b 61 70 69 74 61 6c 65 6e 20 65 72 3a 20 20 20 20 20 20 20 20 20 ┆10 PRINT "Kapitalen er: ┆
0x2bbe0…2bc00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 53 54 41 52 54 4b 41 50 49 54 41 4c 41 ┆ ";STARTKAPITALA┆
0x2bc00…2bc20 (21, 1, 13) 3d 30 32 32 30 20 50 52 49 4e 54 20 22 52 65 6e 74 65 66 6f 64 65 6e 3a 20 20 20 20 20 20 20 20 ┆=0220 PRINT "Rentefoden: ┆
0x2bc20…2bc40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 52 45 4e 54 45 46 4f 44 3d 3b ┆ ";RENTEFOD=;┆
0x2bc40…2bc60 30 32 33 30 20 50 52 49 4e 54 20 22 41 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 72 6d 69 6e 65 72 ┆0230 PRINT "Antallet af terminer┆
0x2bc60…2bc80 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 54 45 52 4d 49 4e 3b 4d 30 32 34 ┆: ";TERMIN;M024┆
0x2bc80…2bca0 30 20 50 52 49 4e 54 20 22 53 6c 75 74 6b 61 70 69 74 61 6c 3a 20 20 20 20 20 20 20 20 20 20 20 ┆0 PRINT "Slutkapital: ┆
0x2bca0…2bcc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 49 4e 54 28 53 4c 55 54 4b 41 50 49 54 41 ┆ ";INT(SLUTKAPITA┆
0x2bcc0…2bce0 4c 2a 31 30 30 29 2f 31 30 30 4d 4d 30 32 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d ┆L*100)/100MM0250 PRINT "--------┆
0x2bce0…2bd00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2bd00…2bd20 (21, 1, 14) ExtentHdr {name=»SAMRENTE«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 002b,08 (0x02b800)}, nextfile={DA 002c,02 (0x02c200)}, f99=41 2b 00 20 00 00 00 00 00 00 ┆A+ ┆}
0x2bd20…2bd40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 00 00 2d 2d 20 73 ┆-------------------------M -- s┆
0x2bd40…2bd60 61 6d 72 65 6e 74 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆amrente ------------------------┆
0x2bd60…2bd80 2d 2d 2d 2d 2d 2d 2d 2d 47 46 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 73 6c 75 74 6b ┆--------GF0020 // Udregner slutk┆
0x2bd80…2bda0 61 70 69 74 61 6c 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 72 20 73 74 61 72 74 6b ┆apital, når man indtaster startk┆
0x2bda0…2bdc0 61 70 69 74 61 6c 2c 20 72 65 6e 74 65 66 6f 64 46 22 30 30 33 30 20 2f 2f 20 73 61 6d 74 20 61 ┆apital, rentefodF"0030 // samt a┆
0x2bdc0…2bde0 6e 74 61 6c 6c 65 74 20 61 66 20 74 65 72 6d 69 6e 65 72 2e 22 4d 30 30 34 30 20 2f 2f 20 2d 2d ┆ntallet af terminer."M0040 // --┆
0x2bde0…2be00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2be00…2bf00 (21, 1, 15) 0x63[0x100]
[…0x3…]
0x2c200…2c220 (22, 0, 3) ExtentHdr {name=»INVERS «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002c,06 (0x02c600)}, f99=41 2b 00 fe 00 4e 56 45 52 53 ┆A+ NVERS┆}
0x2c220…2c240 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x2c240…2c260 2d 2d 20 69 6e 76 65 72 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- invers ----------------------┆
0x2c260…2c280 2d 2d 2d 2d 2d 2d 45 08 30 30 32 30 20 2f 2f 20 08 3a 30 30 33 30 20 50 52 4f 43 20 41 52 43 53 ┆------E 0020 // :0030 PROC ARCS┆
0x2c280…2c2a0 49 4e 28 58 29 20 2f 2f 20 61 72 63 73 69 6e 28 78 29 20 62 6c 69 76 65 72 20 61 6e 67 69 76 65 ┆IN(X) // arcsin(x) bliver angive┆
0x2c2a0…2c2c0 74 20 69 20 72 61 64 69 61 6e 65 72 3a 2f 30 30 34 30 20 49 46 20 41 42 53 28 58 29 3c 31 20 54 ┆t i radianer:/0040 IF ABS(X)<1 T┆
0x2c2c0…2c2e0 48 45 4e 20 41 52 43 53 49 4e 3a 3d 41 54 4e 28 58 2f 53 51 52 28 31 2d 58 2a 58 29 29 2f 2d 30 ┆HEN ARCSIN:=ATN(X/SQR(1-X*X))/-0┆
0x2c2e0…2c300 30 35 30 20 49 46 20 41 42 53 28 58 29 3d 31 20 54 48 45 4e 20 41 52 43 53 49 4e 3a 3d 53 47 4e ┆050 IF ABS(X)=1 THEN ARCSIN:=SGN┆
0x2c300…2c320 (22, 0, 4) 28 58 29 2a 41 54 4e 28 31 29 2a 32 2d 13 30 30 36 30 20 45 4e 44 50 52 4f 43 20 41 52 43 53 49 ┆(X)*ATN(1)*2- 0060 ENDPROC ARCSI┆
0x2c320…2c340 4e 13 08 30 30 37 30 20 2f 2f 20 08 3a 30 30 38 30 20 50 52 4f 43 20 41 52 43 43 4f 53 28 58 29 ┆N 0070 // :0080 PROC ARCCOS(X)┆
0x2c340…2c360 20 2f 2f 20 61 72 63 63 6f 73 28 78 29 20 62 6c 69 76 65 72 20 61 6e 67 69 76 65 74 20 69 20 72 ┆ // arccos(x) bliver angivet i r┆
0x2c360…2c380 61 64 69 61 6e 65 72 3a 3d 30 30 39 30 20 49 46 20 2d 31 3c 3d 58 20 41 4e 44 20 58 3c 30 20 54 ┆adianer:=0090 IF -1<=X AND X<0 T┆
0x2c380…2c3a0 48 45 4e 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 2a 58 29 2f 58 29 2b 34 2a ┆HEN ARCCOS:=ATN(SQR(1-X*X)/X)+4*┆
0x2c3a0…2c3c0 41 54 4e 28 31 29 3d 21 30 31 30 30 20 49 46 20 58 3d 30 20 54 48 45 4e 20 41 52 43 43 4f 53 3a ┆ATN(1)=!0100 IF X=0 THEN ARCCOS:┆
0x2c3c0…2c3e0 3d 41 54 4e 28 31 29 2a 32 21 33 30 31 31 30 20 49 46 20 30 3c 58 20 41 4e 44 20 58 3c 3d 31 20 ┆=ATN(1)*2!30110 IF 0<X AND X<=1 ┆
0x2c3e0…2c400 54 48 45 4e 20 41 52 43 43 4f 53 3a 3d 41 54 4e 28 53 51 52 28 31 2d 58 2a 58 29 2f 58 29 33 13 ┆THEN ARCCOS:=ATN(SQR(1-X*X)/X)3 ┆
0x2c400…2c420 (22, 0, 5) 30 31 32 30 20 45 4e 44 50 52 4f 43 20 41 52 43 43 4f 53 13 08 30 31 33 30 20 2f 2f 20 08 0b 30 ┆0120 ENDPROC ARCCOS 0130 // 0┆
0x2c420…2c440 31 34 30 20 43 4c 45 41 52 20 0b 11 30 31 35 30 20 50 49 3a 3d 41 54 4e 28 31 29 2a 34 11 0c 30 ┆140 CLEAR 0150 PI:=ATN(1)*4 0┆
0x2c440…2c460 31 36 30 20 54 41 42 3a 3d 32 30 0c 2e 30 31 37 30 20 50 52 49 4e 54 20 22 69 22 2c 22 41 72 63 ┆160 TAB:=20 .0170 PRINT "i","Arc┆
0x2c460…2c480 73 69 6e 28 72 61 64 69 61 6e 29 22 2c 22 41 72 63 73 69 6e 28 67 72 61 64 29 22 2e 0b 30 31 38 ┆sin(radian)","Arcsin(grad)". 018┆
0x2c480…2c4a0 30 20 50 52 49 4e 54 20 0b 20 30 31 39 30 20 46 4f 52 20 49 3a 3d 2d 31 20 54 4f 20 31 20 53 54 ┆0 PRINT 0190 FOR I:=-1 TO 1 ST┆
0x2c4a0…2c4c0 45 50 20 30 2e 32 20 44 4f 20 20 17 30 32 30 30 20 50 52 49 4e 54 20 49 2c 41 52 43 53 49 4e 28 ┆EP 0.2 DO 0200 PRINT I,ARCSIN(┆
0x2c4c0…2c4e0 49 29 2c 17 1b 30 32 30 35 20 50 52 49 4e 54 20 41 52 43 53 49 4e 28 49 29 2a 31 38 30 2f 50 49 ┆I), 0205 PRINT ARCSIN(I)*180/PI┆
0x2c4e0…2c500 1b 0b 30 32 31 30 20 4e 45 58 54 20 49 0b 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 30 30 32 33 30 ┆ 0210 NEXT I 0220 PRINT 00230┆
0x2c500…2c520 (22, 0, 6) 20 50 52 49 4e 54 20 22 69 22 2c 22 41 72 63 73 69 6e 20 28 72 61 64 69 61 6e 29 22 2c 22 41 72 ┆ PRINT "i","Arcsin (radian)","Ar┆
0x2c520…2c540 63 63 6f 73 20 28 67 72 61 64 29 22 30 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 20 30 32 35 30 20 ┆ccos (grad)"0 0240 PRINT 0250 ┆
0x2c540…2c560 46 4f 52 20 49 3a 3d 2d 31 20 54 4f 20 31 20 53 54 45 50 20 30 2e 32 20 44 4f 20 20 26 30 32 36 ┆FOR I:=-1 TO 1 STEP 0.2 DO &026┆
0x2c560…2c580 30 20 50 52 49 4e 54 20 49 4e 54 28 49 2a 31 30 2b 30 2e 35 29 2f 31 30 2c 41 52 43 43 4f 53 28 ┆0 PRINT INT(I*10+0.5)/10,ARCCOS(┆
0x2c580…2c5a0 49 29 2c 26 1b 30 32 36 35 20 50 52 49 4e 54 20 41 52 43 43 4f 53 28 49 29 2a 31 38 30 2f 50 49 ┆I),& 0265 PRINT ARCCOS(I)*180/PI┆
0x2c5a0…2c5c0 1b 0b 30 32 37 30 20 4e 45 58 54 20 49 0b 08 47 31 39 35 20 2f 2f 20 08 00 00 63 63 63 63 63 63 ┆ 0270 NEXT I G195 // cccccc┆
0x2c5c0…2c5e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x2c600…2c620 (22, 0, 7) ExtentHdr {name=»IDEALVÆG«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 002d,00 (0x02d000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,00 (0x02d000)}, f99=41 2b 00 fe 00 4e 56 45 52 53 ┆A+ NVERS┆}
0x2c620…2c640 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x2c640…2c660 2d 2d 20 49 64 65 61 6c 76 7b 67 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- Idealvægt -------------------┆
0x2c660…2c680 2d 2d 2d 2d 2d 44 08 30 30 32 30 20 2f 2f 20 08 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 34 30 30 ┆-----D 0020 // 0030 CLEAR 400┆
0x2c680…2c6a0 34 30 20 44 49 4d 20 4d 41 4b 56 49 24 20 4f 46 20 31 30 2c 53 56 24 20 4f 46 20 32 2c 53 56 41 ┆40 DIM MAKVI$ OF 10,SV$ OF 2,SVA┆
0x2c6a0…2c6c0 52 24 20 4f 46 20 35 2c 50 52 5c 56 24 20 4f 46 20 38 34 3d 30 30 35 30 20 2f 2f 20 2d 2d 2d 2d ┆R$ OF 5,PRØV$ OF 84=0050 // ----┆
0x2c6c0…2c6e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c6e0…2c700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 0e 30 30 36 30 20 45 58 45 43 20 4d 45 4e ┆-----------------= 0060 EXEC MEN┆
0x2c700…2c720 (22, 0, 8) 55 0e 0e 30 30 37 30 20 50 52 4f 43 20 4d 45 4e 55 0e 0c 30 30 38 30 20 52 45 50 45 41 54 20 0c ┆U 0070 PROC MENU 0080 REPEAT ┆
0x2c720…2c740 0f 30 30 39 30 20 45 58 45 43 20 48 4f 56 45 44 0f 0f 30 31 30 30 20 45 58 45 43 20 53 50 5c 52 ┆ 0090 EXEC HOVED 0100 EXEC SPØR┆
0x2c740…2c760 47 0f 16 30 31 32 30 20 55 4e 54 49 4c 20 53 56 24 20 49 4e 20 22 6e 4e 22 16 11 30 31 33 30 20 ┆G 0120 UNTIL SV$ IN "nN" 0130 ┆
0x2c760…2c780 45 4e 44 50 52 4f 43 20 4d 45 4e 55 11 3d 30 31 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ENDPROC MENU =0140 // ----------┆
0x2c780…2c7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2c7a0…2c7c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 0f 30 31 35 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 31 ┆-----------= 0150 PROC HOVED 01┆
0x2c7c0…2c7e0 36 30 20 43 4c 45 41 52 20 0b 18 30 31 37 30 20 46 4f 52 20 58 3a 3d 31 30 20 54 4f 20 37 30 20 ┆60 CLEAR 0170 FOR X:=10 TO 70 ┆
0x2c7e0…2c800 44 4f 20 18 0f 30 31 38 30 20 43 55 52 53 4f 52 20 58 2c 32 0f 0e 30 31 39 30 20 50 52 49 4e 54 ┆DO 0180 CURSOR X,2 0190 PRINT┆
0x2c800…2c820 (22, 0, 9) 20 22 2a 22 0e 0b 30 32 30 30 20 4e 45 58 54 20 58 0b 17 30 32 31 30 20 46 4f 52 20 59 3a 3d 33 ┆ "*" 0200 NEXT X 0210 FOR Y:=3┆
0x2c820…2c840 20 54 4f 20 31 33 20 44 4f 20 17 10 30 32 32 30 20 43 55 52 53 4f 52 20 37 30 2c 59 10 0e 30 32 ┆ TO 13 DO 0220 CURSOR 70,Y 02┆
0x2c840…2c860 33 30 20 50 52 49 4e 54 20 22 2a 22 0e 0b 30 32 34 30 20 4e 45 58 54 20 59 0b 20 30 32 35 30 20 ┆30 PRINT "*" 0240 NEXT Y 0250 ┆
0x2c860…2c880 46 4f 52 20 58 3a 3d 36 39 20 54 4f 20 31 30 20 53 54 45 50 20 2d 31 20 44 4f 20 20 10 30 32 36 ┆FOR X:=69 TO 10 STEP -1 DO 026┆
0x2c880…2c8a0 30 20 43 55 52 53 4f 52 20 58 2c 31 33 10 0e 30 32 37 30 20 50 52 49 4e 54 20 22 2a 22 0e 0b 30 ┆0 CURSOR X,13 0270 PRINT "*" 0┆
0x2c8a0…2c8c0 32 38 30 20 4e 45 58 54 20 58 0b 1f 30 32 39 30 20 46 4f 52 20 59 3a 3d 31 33 20 54 4f 20 33 20 ┆280 NEXT X 0290 FOR Y:=13 TO 3 ┆
0x2c8c0…2c8e0 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 30 33 30 30 20 43 55 52 53 4f 52 20 31 30 2c 59 10 0e 30 ┆STEP -1 DO 0300 CURSOR 10,Y 0┆
0x2c8e0…2c900 33 31 30 20 50 52 49 4e 54 20 22 2a 22 0e 0b 30 33 32 30 20 4e 45 58 54 20 59 0b 10 30 33 33 30 ┆310 PRINT "*" 0320 NEXT Y 0330┆
0x2c900…2c920 (22, 0, 10) 20 43 55 52 53 4f 52 20 31 30 2c 36 10 36 30 33 34 30 20 50 52 49 4e 54 20 22 2a 20 20 20 20 20 ┆ CURSOR 10,6 60340 PRINT "* ┆
0x2c920…2c940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 20 44 20 45 20 41 20 4c 20 56 20 5b 20 47 20 54 ┆ I D E A L V Æ G T┆
0x2c940…2c960 20 20 20 22 36 10 30 33 35 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 2d 30 33 36 30 20 50 52 49 ┆ "6 0350 CURSOR 10,8 -0360 PRI┆
0x2c960…2c980 4e 54 20 22 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 68 ┆NT "* h┆
0x2c980…2c9a0 20 6f 20 73 22 2d 11 30 33 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 30 11 3a 30 33 38 30 20 50 ┆ o s"- 0370 CURSOR 10,10 :0380 P┆
0x2c9a0…2c9c0 52 49 4e 54 20 22 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 20 56 20 49 20 4e 20 44 20 45 ┆RINT "* K V I N D E┆
0x2c9c0…2c9e0 20 52 20 20 20 4f 20 47 20 20 20 4d 20 5b 20 4e 20 44 20 22 3a 11 30 33 39 30 20 43 55 52 53 4f ┆ R O G M Æ N D ": 0390 CURSO┆
0x2c9e0…2ca00 52 20 31 30 2c 32 30 11 49 30 34 30 30 20 50 52 49 4e 54 20 22 50 72 6f 67 72 61 6d 6d 65 74 20 ┆R 10,20 I0400 PRINT "Programmet ┆
0x2ca00…2ca20 (22, 0, 11) 75 64 73 6b 72 69 76 65 72 20 69 64 65 61 6c 76 7b 67 74 20 68 6f 73 20 6b 76 69 6e 64 65 72 20 ┆udskriver idealvægt hos kvinder ┆
0x2ca20…2ca40 6f 67 20 6d 7b 6e 64 2c 20 6e 7d 72 20 6d 61 6e 20 22 49 11 30 34 31 30 20 43 55 52 53 4f 52 20 ┆og mænd, når man "I 0410 CURSOR ┆
0x2ca40…2ca60 31 30 2c 32 32 11 46 30 34 32 30 20 50 52 49 4e 54 20 22 69 6e 64 74 61 73 74 65 72 20 68 7c 6a ┆10,22 F0420 PRINT "indtaster høj┆
0x2ca60…2ca80 64 65 6e 20 69 20 63 6d 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆den i cm. ┆
0x2ca80…2caa0 20 20 20 20 20 20 20 20 20 20 20 20 22 46 11 30 34 34 30 20 43 55 52 53 4f 52 20 37 32 2c 32 33 ┆ "F 0440 CURSOR 72,23┆
0x2caa0…2cac0 11 1b 30 34 35 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 20 22 3a 53 56 41 52 24 1b 12 30 ┆ 0450 INPUT "Return! ":SVAR$ 0┆
0x2cac0…2cae0 34 38 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 12 49 30 34 39 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆480 ENDPROC HOVED I0490 // -----┆
0x2cae0…2cb00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cb00…2cb20 (22, 0, 12) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 0f 30 35 ┆----------------------------I 05┆
0x2cb20…2cb40 30 30 20 50 52 4f 43 20 53 50 5c 52 47 0f 0b 30 35 31 30 20 43 4c 45 41 52 20 0b 0c 30 35 32 30 ┆00 PROC SPØRG 0510 CLEAR 0520┆
0x2cb40…2cb60 20 52 45 50 45 41 54 20 0c 0f 30 35 33 30 20 43 55 52 53 4f 52 20 35 2c 35 0f 46 30 35 34 30 20 ┆ REPEAT 0530 CURSOR 5,5 F0540 ┆
0x2cb60…2cb80 50 52 49 4e 54 20 22 3c 5a 53 3e 53 6b 72 69 76 20 6f 6d 20 64 75 20 65 72 20 6d 61 6e 64 20 65 ┆PRINT "<ZS>Skriv om du er mand e┆
0x2cb80…2cba0 6c 6c 65 72 20 6b 76 69 6e 64 65 2e 20 20 28 6d 61 6e 64 2f 6b 76 69 6e 64 65 29 20 20 20 20 20 ┆ller kvinde. (mand/kvinde) ┆
0x2cba0…2cbc0 22 46 11 30 35 35 30 20 49 4e 50 55 54 20 4d 41 4b 56 49 24 11 14 30 35 36 30 20 43 41 53 45 20 ┆"F 0550 INPUT MAKVI$ 0560 CASE ┆
0x2cbc0…2cbe0 4d 41 4b 56 49 24 20 4f 46 20 14 0d 30 35 37 30 20 57 48 45 4e 20 22 20 22 0d 13 30 35 38 30 20 ┆MAKVI$ OF 0570 WHEN " " 0580 ┆
0x2cbe0…2cc00 45 58 45 43 20 46 4f 52 54 53 5b 54 54 45 13 10 30 35 39 30 20 57 48 45 4e 20 22 6d 61 6e 64 22 ┆EXEC FORTSÆTTE 0590 WHEN "mand"┆
0x2cc00…2cc20 (22, 0, 13) 10 0e 30 36 30 30 20 45 58 45 43 20 4d 41 4e 44 0e 11 30 36 31 30 20 45 58 45 43 20 55 44 53 4b ┆ 0600 EXEC MAND 0610 EXEC UDSK┆
0x2cc20…2cc40 52 49 56 11 13 30 36 32 30 20 45 58 45 43 20 46 4f 52 54 53 5b 54 54 45 13 12 30 36 33 30 20 57 ┆RIV 0620 EXEC FORTSÆTTE 0630 W┆
0x2cc40…2cc60 48 45 4e 20 22 6b 76 69 6e 64 65 22 12 10 30 36 34 30 20 45 58 45 43 20 4b 56 49 4e 44 45 10 13 ┆HEN "kvinde" 0640 EXEC KVINDE ┆
0x2cc60…2cc80 30 36 35 30 20 45 58 45 43 20 46 4f 52 54 53 5b 54 54 45 13 0f 30 36 36 30 20 4f 54 48 45 52 57 ┆0650 EXEC FORTSÆTTE 0660 OTHERW┆
0x2cc80…2cca0 49 53 45 20 0f 0b 30 36 37 30 20 50 52 49 4e 54 20 0b 0d 30 36 38 30 20 45 4e 44 43 41 53 45 20 ┆ISE 0670 PRINT 0680 ENDCASE ┆
0x2cca0…2ccc0 0d 2c 30 36 39 30 20 55 4e 54 49 4c 20 22 2c 22 2b 4d 41 4b 56 49 24 2b 22 2c 22 20 49 4e 20 22 ┆ ,0690 UNTIL ","+MAKVI$+"," IN "┆
0x2ccc0…2cce0 2c 6d 61 6e 64 2c 6b 76 69 6e 64 65 2c 22 2c 12 30 37 30 30 20 45 4e 44 50 52 4f 43 20 53 50 5c ┆,mand,kvinde,", 0700 ENDPROC SPØ┆
0x2cce0…2cd00 52 47 12 4a 30 37 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆RG J0710 // --------------------┆
0x2cd00…2cd20 (22, 0, 14) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2cd20…2cd40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 30 37 32 30 20 50 52 4f 43 20 4d 41 4e 44 0e 0f ┆--------------J 0720 PROC MAND ┆
0x2cd40…2cd60 30 37 33 30 20 43 55 52 53 4f 52 20 35 2c 37 0f 4a 30 37 34 30 20 49 4e 50 55 54 20 22 44 75 20 ┆0730 CURSOR 5,7 J0740 INPUT "Du ┆
0x2cd60…2cd80 73 6b 61 6c 20 68 65 72 20 69 6e 64 74 61 73 74 65 20 64 69 6e 20 68 7c 6a 64 65 20 69 20 63 6d ┆skal her indtaste din højde i cm┆
0x2cd80…2cda0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 4a 1d 30 37 35 ┆: ":HØJDEJ 075┆
0x2cda0…2cdc0 30 20 56 5b 47 54 3a 3d 28 48 5c 4a 44 45 2d 31 30 30 29 2a 39 30 2f 31 30 30 1d 14 30 37 36 30 ┆0 VÆGT:=(HØJDE-100)*90/100 0760┆
0x2cdc0…2cde0 20 56 5b 47 54 3a 3d 49 4e 54 28 56 5b 47 54 29 14 30 30 37 37 30 20 49 46 20 48 5c 4a 44 45 3c ┆ VÆGT:=INT(VÆGT) 00770 IF HØJDE<┆
0x2cde0…2ce00 31 32 30 20 4f 52 20 48 5c 4a 44 45 3e 32 30 30 20 54 48 45 4e 20 45 58 45 43 20 55 4e 4f 52 4d ┆120 OR HØJDE>200 THEN EXEC UNORM┆
0x2ce00…2ce20 (22, 0, 15) 41 4c 30 11 30 37 38 30 20 45 4e 44 50 52 4f 43 20 4d 41 4e 44 11 4d 30 37 39 30 20 2f 2f 20 2d ┆AL0 0780 ENDPROC MAND M0790 // -┆
0x2ce20…2ce40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2ce60…2ce80 2d 2d 2d 2d 4d 11 30 38 30 30 20 50 52 4f 43 20 55 44 53 4b 52 49 56 11 10 30 38 31 30 20 43 55 ┆----M 0800 PROC UDSKRIV 0810 CU┆
0x2ce80…2cea0 52 53 4f 52 20 35 2c 31 35 10 4d 30 38 32 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆RSOR 5,15 M0820 PRINT "*********┆
0x2cea0…2cec0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2cec0…2cee0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 4d 10 30 38 33 30 20 43 ┆***********************"M 0830 C┆
0x2cee0…2cf00 55 52 53 4f 52 20 35 2c 31 36 10 4d 30 38 34 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 20 20 ┆URSOR 5,16 M0840 PRINT "***** ┆
0x2cf00…2cf20 (22, 0, 16) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2cf20…2cf40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 22 4d 10 30 38 35 30 20 ┆ *****"M 0850 ┆
0x2cf40…2cf60 43 55 52 53 4f 52 20 35 2c 31 37 10 30 30 38 35 39 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 20 ┆CURSOR 5,17 00859 PRINT "***** ┆
0x2cf60…2cf80 20 20 44 75 20 73 6b 61 6c 20 6d 65 64 20 65 6e 20 68 7c 6a 64 65 20 70 7d 3a 20 22 3b 30 37 30 ┆ Du skal med en højde på: ";070┆
0x2cf80…2cfa0 38 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 2e 23 20 63 6d 2e 20 76 65 6a ┆860 PRINT USING "#####.# cm. vej┆
0x2cfa0…2cfc0 65 3a 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 22 3a 48 5c 4a 44 45 37 10 30 38 37 30 20 43 55 52 ┆e: *****":HØJDE7 0870 CUR┆
0x2cfc0…2cfe0 53 4f 52 20 35 2c 31 38 10 26 30 38 37 39 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 20 20 20 20 ┆SOR 5,18 &0879 PRINT "***** ┆
0x2cfe0…2d000 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 26 40 30 38 38 30 20 50 52 49 4e 54 20 55 53 49 ┆ ";&@0880 PRINT USI┆
0x2d000…2d020 (22, 1, 1) ExtentHdr {name=»IDEALVÆG«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 002c,06 (0x02c600)}, nextfile={DA 002d,0a (0x02da00)}, f99=41 2b 00 20 00 4e 56 45 52 53 ┆A+ NVERS┆}
0x2d020…2d040 4e 47 20 22 23 23 23 23 2e 23 20 6b 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NG "####.# kg. ┆
0x2d040…2d060 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 22 3a 56 5b 47 54 40 10 30 38 39 30 20 43 55 52 53 4f 52 20 ┆ *****":VÆGT@ 0890 CURSOR ┆
0x2d060…2d080 35 2c 31 39 10 4d 30 39 30 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 ┆5,19 M0900 PRINT "***** ┆
0x2d080…2d0a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x2d0a0…2d0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 22 4d 10 30 39 31 30 20 43 55 52 53 4f 52 ┆ *****"M 0910 CURSOR┆
0x2d0c0…2d0e0 20 35 2c 32 30 10 4d 30 39 32 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ 5,20 M0920 PRINT "*************┆
0x2d0e0…2d100 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x2d100…2d120 (22, 1, 2) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 4d 14 30 39 33 30 20 45 4e 44 50 52 ┆*******************"M 0930 ENDPR┆
0x2d120…2d140 4f 43 20 55 44 53 4b 52 49 56 14 4d 30 39 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆OC UDSKRIV M0940 // ------------┆
0x2d140…2d160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2d160…2d180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 13 30 39 35 30 20 ┆-------------------------M 0950 ┆
0x2d180…2d1a0 50 52 4f 43 20 46 4f 52 54 53 5b 54 54 45 13 0b 30 39 36 30 20 50 52 49 4e 54 20 0b 0b 30 39 37 ┆PROC FORTSÆTTE 0960 PRINT 097┆
0x2d1a0…2d1c0 30 20 50 52 49 4e 54 20 0b 13 30 39 38 30 20 2f 2f 20 50 4f 4b 45 20 32 35 36 2c 20 30 13 10 30 ┆0 PRINT 0980 // POKE 256, 0 0┆
0x2d1c0…2d1e0 39 39 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 33 31 30 30 30 20 49 4e 50 55 54 20 22 5c 6e 73 ┆990 CURSOR 5,22 31000 INPUT "Øns┆
0x2d1e0…2d200 6b 65 72 20 64 75 20 61 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 20 20 28 6a 2f 6e 29 20 20 22 ┆ker du at fortsætte? (j/n) "┆
0x2d200…2d220 (22, 1, 3) 3a 53 56 24 33 19 31 30 33 30 20 49 46 20 53 56 24 20 49 4e 20 22 6e 4e 22 20 54 48 45 4e 20 19 ┆:SV$3 1030 IF SV$ IN "nN" THEN ┆
0x2d220…2d240 0e 31 30 34 30 20 45 58 45 43 20 53 4c 55 54 0e 0b 31 30 35 30 20 45 4e 44 49 46 20 0b 16 31 30 ┆ 1040 EXEC SLUT 1050 ENDIF 10┆
0x2d240…2d260 36 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 54 53 5b 54 54 45 16 4d 31 30 37 30 20 2f 2f 20 2d 2d ┆60 ENDPROC FORTSÆTTE M1070 // --┆
0x2d260…2d280 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2d2a0…2d2c0 2d 2d 2d 4d 11 31 30 38 30 20 50 52 4f 43 20 55 4e 4f 52 4d 41 4c 11 0c 31 30 39 30 20 52 45 50 ┆---M 1080 PROC UNORMAL 1090 REP┆
0x2d2c0…2d2e0 45 41 54 20 0c 10 31 31 31 30 20 43 55 52 53 4f 52 20 35 2c 31 35 10 38 31 31 32 30 20 50 52 49 ┆EAT 1110 CURSOR 5,15 81120 PRI┆
0x2d2e0…2d300 4e 54 20 22 44 75 20 6c 69 67 67 65 72 20 76 69 73 74 20 75 64 65 6e 20 66 6f 72 20 64 65 20 6e ┆NT "Du ligger vist uden for de n┆
0x2d300…2d320 (22, 1, 4) 6f 72 6d 61 6c 65 20 72 61 6d 6d 65 72 2e 22 3b 38 2b 31 31 32 35 20 49 4e 50 55 54 20 22 20 53 ┆ormale rammer.";8+1125 INPUT " S┆
0x2d320…2d340 6b 61 6c 20 76 69 20 70 72 7c 76 65 20 69 67 65 6e 3f 20 28 6a 2f 6e 29 22 3a 53 56 24 2b 11 31 ┆kal vi prøve igen? (j/n)":SV$+ 1┆
0x2d340…2d360 31 33 30 20 43 55 52 53 4f 52 20 37 35 2c 31 35 11 20 31 31 36 30 20 49 46 20 53 56 24 3d 22 6a ┆130 CURSOR 75,15 1160 IF SV$="j┆
0x2d360…2d380 22 20 4f 52 20 53 56 24 3d 22 4a 22 20 54 48 45 4e 20 20 0e 31 31 37 30 20 45 58 45 43 20 4d 45 ┆" OR SV$="J" THEN 1170 EXEC ME┆
0x2d380…2d3a0 4e 55 0e 0b 31 31 38 30 20 45 4e 44 49 46 20 0b 19 31 31 39 30 20 49 46 20 53 56 24 20 49 4e 20 ┆NU 1180 ENDIF 1190 IF SV$ IN ┆
0x2d3a0…2d3c0 22 6e 4e 22 20 54 48 45 4e 20 19 0e 31 32 30 30 20 45 58 45 43 20 53 4c 55 54 0e 0b 31 32 31 30 ┆"nN" THEN 1200 EXEC SLUT 1210┆
0x2d3c0…2d3e0 20 45 4e 44 49 46 20 0b 16 31 32 32 30 20 55 4e 54 49 4c 20 53 56 24 20 49 4e 20 22 6e 4e 22 16 ┆ ENDIF 1220 UNTIL SV$ IN "nN" ┆
0x2d3e0…2d400 14 31 32 33 30 20 45 4e 44 50 52 4f 43 20 55 4e 4f 52 4d 41 4c 14 4d 31 32 34 30 20 2f 2f 20 2d ┆ 1230 ENDPROC UNORMAL M1240 // -┆
0x2d400…2d420 (22, 1, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2d440…2d460 2d 2d 2d 2d 4d 10 31 32 35 30 20 50 52 4f 43 20 4b 56 49 4e 44 45 10 0b 31 32 36 30 20 50 52 49 ┆----M 1250 PROC KVINDE 1260 PRI┆
0x2d460…2d480 4e 54 20 0b 0b 31 32 37 30 20 50 52 49 4e 54 20 0b 4d 31 32 38 30 20 49 4e 50 55 54 20 22 20 20 ┆NT 1270 PRINT M1280 INPUT " ┆
0x2d480…2d4a0 20 44 75 20 73 6b 61 6c 20 69 6e 64 74 61 73 74 65 20 64 69 6e 20 68 7c 6a 64 65 20 69 20 63 6d ┆ Du skal indtaste din højde i cm┆
0x2d4a0…2d4c0 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 4d ┆: ":HØJDEM┆
0x2d4c0…2d4e0 24 31 32 39 30 20 49 46 20 48 5c 4a 44 45 3c 31 33 30 20 4f 52 20 48 5c 4a 44 45 3e 31 39 30 20 ┆$1290 IF HØJDE<130 OR HØJDE>190 ┆
0x2d4e0…2d500 54 48 45 4e 20 24 11 31 33 30 30 20 45 58 45 43 20 55 4e 4f 52 4d 41 4c 11 0a 31 33 31 30 20 45 ┆THEN $ 1300 EXEC UNORMAL 1310 E┆
0x2d500…2d520 (22, 1, 6) 4c 53 45 20 0a 1b 31 33 32 30 20 56 5b 47 54 3a 3d 28 48 5c 4a 44 45 2d 31 30 30 29 2a 30 2e 38 ┆LSE 1320 VÆGT:=(HØJDE-100)*0.8┆
0x2d520…2d540 38 1b 27 31 33 33 30 20 49 46 20 56 5b 47 54 20 4d 4f 44 20 31 30 3d 36 20 54 48 45 4e 20 56 5b ┆8 '1330 IF VÆGT MOD 10=6 THEN VÆ┆
0x2d540…2d560 47 54 3a 3d 56 5b 47 54 2b 31 27 14 31 33 34 30 20 56 5b 47 54 3a 3d 49 4e 54 28 56 5b 47 54 29 ┆GT:=VÆGT+1' 1340 VÆGT:=INT(VÆGT)┆
0x2d560…2d580 14 11 31 33 35 30 20 45 58 45 43 20 55 44 53 4b 52 49 56 11 0b 31 33 36 30 20 45 4e 44 49 46 20 ┆ 1350 EXEC UDSKRIV 1360 ENDIF ┆
0x2d580…2d5a0 0b 13 31 33 37 30 20 45 4e 44 50 52 4f 43 20 4b 56 49 4e 44 45 13 4d 31 33 38 30 20 2f 2f 20 2d ┆ 1370 ENDPROC KVINDE M1380 // -┆
0x2d5a0…2d5c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x2d5e0…2d600 2d 2d 2d 2d 4d 0e 31 33 39 30 20 50 52 4f 43 20 53 4c 55 54 0e 10 31 34 30 30 20 43 55 52 53 4f ┆----M 1390 PROC SLUT 1400 CURSO┆
0x2d600…2d620 (22, 1, 7) 52 20 35 2c 32 34 10 25 31 34 31 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 ┆R 5,24 %1410 PRINT "Så slutter v┆
0x2d620…2d640 69 20 66 6f 72 20 69 20 64 61 67 2e 22 25 09 31 34 32 30 20 45 4e 44 20 09 11 31 34 33 30 20 45 ┆i for i dag."% 1420 END 1430 E┆
0x2d640…2d660 4e 44 50 52 4f 43 20 53 4c 55 54 11 00 00 20 53 4c 55 54 11 00 00 63 63 63 63 63 63 63 63 63 63 ┆NDPROC SLUT SLUT cccccccccc┆
0x2d660…2d680 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x2d700…2d800 (22, 1, 8) 0x63[0x100]
[…0x2…]
0x2da00…2da20 (22, 1, 11) ExtentHdr {name=»SKOLEBØG«, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 002d,0d (0x02dd00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002d,0d (0x02dd00)}, f99=41 2b 00 fe 00 4e 56 45 52 53 ┆A+ NVERS┆}
0x2da20…2da40 3a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 6b 6f 6c ┆:0010 // ------------------ skol┆
0x2da40…2da60 65 62 7c 67 65 72 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 14 30 30 31 ┆ebøger --------------------: 001┆
0x2da60…2da80 35 20 49 4e 54 45 47 45 52 20 49 2c 41 4e 54 41 4c 14 37 30 30 32 30 20 49 4e 50 55 54 20 22 41 ┆5 INTEGER I,ANTAL 70020 INPUT "A┆
0x2da80…2daa0 6e 74 61 6c 20 62 7c 67 65 72 3a 20 20 20 28 53 6b 72 69 76 20 61 6e 74 61 6c 29 3a 20 20 20 20 ┆ntal bøger: (Skriv antal): ┆
0x2daa0…2dac0 20 20 20 22 3a 41 4e 54 41 4c 37 1f 30 30 33 30 20 44 49 4d 20 42 4f 47 4c 49 53 54 45 24 28 41 ┆ ":ANTAL7 0030 DIM BOGLISTE$(A┆
0x2dac0…2dae0 4e 54 41 4c 29 20 4f 46 20 35 30 1f 3a 30 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NTAL) OF 50 :0040 // -----------┆
0x2dae0…2db00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2db00…2db20 (22, 1, 12) 2d 2d 2d 2d 2d 2d 2d 3a 26 30 30 35 30 20 43 4c 45 41 52 20 2f 2f 20 49 6e 64 74 61 73 74 6e 69 ┆-------:&0050 CLEAR // Indtastni┆
0x2db20…2db40 6e 67 20 61 66 20 62 6f 67 6e 61 76 6e 65 2e 26 1a 30 30 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 ┆ng af bognavne.& 0060 FOR I:=1 T┆
0x2db40…2db60 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 1d 30 30 38 30 20 50 ┆O ANTAL DO 0070 PRINT 0080 P┆
0x2db60…2db80 52 49 4e 54 20 22 42 6f 67 6e 75 6d 6d 65 72 3a 20 20 20 20 22 3b 49 1d 32 30 30 39 30 20 49 4e ┆RINT "Bognummer: ";I 20090 IN┆
0x2db80…2dba0 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 6f 67 65 6e 73 20 74 69 74 65 6c 3a 20 20 20 22 3a 42 ┆PUT "Indtast bogens titel: ":B┆
0x2dba0…2dbc0 4f 47 4c 49 53 54 45 24 28 49 29 32 0b 30 31 30 30 20 4e 45 58 54 20 49 0b 3a 30 31 31 30 20 2f ┆OGLISTE$(I)2 0100 NEXT I :0110 /┆
0x2dbc0…2dbe0 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x2dbe0…2dc00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 25 30 31 32 30 20 43 4c 45 41 52 ┆--------------------:%0120 CLEAR┆
0x2dc00…2dc20 (22, 1, 13) 20 2f 2f 20 55 64 73 6b 72 69 76 6e 69 6e 67 20 61 66 20 62 6f 67 6e 61 76 6e 65 25 0b 30 31 33 ┆ // Udskrivning af bognavne% 013┆
0x2dc20…2dc40 30 20 50 52 49 4e 54 20 0b 37 30 31 34 30 20 50 52 49 4e 54 20 22 4c 20 49 20 53 20 54 20 45 20 ┆0 PRINT 70140 PRINT "L I S T E ┆
0x2dc40…2dc60 20 20 4f 20 56 20 45 20 52 20 20 53 20 4b 20 4f 20 4c 20 45 20 42 20 5c 20 47 20 45 20 52 20 2e ┆ O V E R S K O L E B Ø G E R .┆
0x2dc60…2dc80 22 37 37 30 31 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆"770150 PRINT "-----------------┆
0x2dc80…2dca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 37 1a 30 31 36 30 ┆-------------------------"7 0160┆
0x2dca0…2dcc0 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 0b 30 31 37 30 20 50 52 49 ┆ FOR I:=1 TO ANTAL DO 0170 PRI┆
0x2dcc0…2dce0 4e 54 20 0b 30 30 31 38 30 20 50 52 49 4e 54 20 22 42 6f 67 6e 75 6d 6d 65 72 3a 20 22 3b 49 3b ┆NT 00180 PRINT "Bognummer: ";I;┆
0x2dce0…2dd00 22 20 20 20 20 20 20 22 3b 42 4f 47 4c 49 53 54 45 24 28 49 29 30 0b 30 31 39 30 20 4e 45 58 54 ┆" ";BOGLISTE$(I)0 0190 NEXT┆
0x2dd00…2dd20 (22, 1, 14) ExtentHdr {name=»SKOLEBØG«, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 002d,0a (0x02da00)}, nextfile={DA 002e,00 (0x02e000)}, f99=41 2b 00 20 00 4e 56 45 52 53 ┆A+ NVERS┆}
0x2dd20…2dd40 20 49 0b 3a 30 32 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ I :0200 // --------------------┆
0x2dd40…2dd60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 00 ┆------------------------------: ┆
0x2dd60…2dd80 00 20 49 4e 54 45 47 45 52 20 49 2c 41 4e 54 41 4c 14 37 30 30 32 30 20 49 4e 50 55 54 20 22 41 ┆ INTEGER I,ANTAL 70020 INPUT "A┆
0x2dd80…2dda0 6e 74 61 6c 20 62 7c 67 65 72 3a 20 20 20 28 53 6b 72 69 76 20 61 6e 74 61 6c 29 3a 20 20 20 20 ┆ntal bøger: (Skriv antal): ┆
0x2dda0…2ddc0 20 20 20 22 3a 41 4e 54 41 4c 37 1f 30 30 33 30 20 44 49 4d 20 42 4f 47 4c 49 53 54 45 24 28 41 ┆ ":ANTAL7 0030 DIM BOGLISTE$(A┆
0x2ddc0…2dde0 4e 54 41 4c 29 20 4f 46 20 35 30 1f 3a 30 30 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NTAL) OF 50 :0040 // -----------┆
0x2dde0…2de00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2de00…2df00 (22, 1, 15) 0x63[0x100]
[…0x1…]
0x2e000…2e020 (23, 0, 1) ExtentHdr {name=»SALGSPR1«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,04 (0x02e400)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2e020…2e040 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 ┆G0010 // --------------------- s┆
0x2e040…2e060 61 6c 67 73 70 72 69 73 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆algspris_1 ---------------------┆
0x2e060…2e080 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 44 30 30 33 30 20 49 4e 50 55 ┆--------G 0020 CLEAR D0030 INPU┆
0x2e080…2e0a0 54 20 22 49 6e 64 74 61 73 74 20 6b 7c 62 73 70 72 69 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆T "Indtast købspris: ┆
0x2e0a0…2e0c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4b 5c 42 53 50 52 49 53 44 0b 30 30 34 ┆ ":KØBSPRISD 004┆
0x2e0c0…2e0e0 30 20 50 52 49 4e 54 20 0b 48 30 30 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6f 6d ┆0 PRINT H0050 INPUT "Indtast om┆
0x2e0e0…2e100 6b 6f 73 74 6e 69 6e 67 65 72 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆kostninger: ┆
0x2e100…2e120 (23, 0, 2) 20 20 20 20 22 3a 4f 4d 4b 4f 53 54 4e 49 4e 47 45 52 48 0b 30 30 36 30 20 50 52 49 4e 54 20 0b ┆ ":OMKOSTNINGERH 0060 PRINT ┆
0x2e120…2e140 47 30 30 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 6f 72 74 6a 65 6e 65 73 74 65 ┆G0070 INPUT "Indtast fortjeneste┆
0x2e140…2e160 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 46 4f 52 ┆: ":FOR┆
0x2e160…2e180 54 4a 45 4e 45 53 54 45 47 4c 30 30 38 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TJENESTEGL0080 // --------------┆
0x2e180…2e1a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e1a0…2e1c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 28 30 30 39 30 20 53 41 4d ┆----------------------L(0090 SAM┆
0x2e1c0…2e1e0 4c 45 54 55 44 47 49 46 54 3a 3d 4b 5c 42 53 50 52 49 53 2b 4f 4d 4b 4f 53 54 4e 49 4e 47 45 52 ┆LETUDGIFT:=KØBSPRIS+OMKOSTNINGER┆
0x2e1e0…2e200 28 28 30 31 30 30 20 53 41 4c 47 53 50 52 49 53 3a 3d 53 41 4d 4c 45 54 55 44 47 49 46 54 2b 46 ┆((0100 SALGSPRIS:=SAMLETUDGIFT+F┆
0x2e200…2e220 (23, 0, 3) 4f 52 54 4a 45 4e 45 53 54 45 28 4c 30 31 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ORTJENESTE(L0110 // ------------┆
0x2e220…2e240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e240…2e260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0b 30 31 32 30 20 50 ┆------------------------L 0120 P┆
0x2e260…2e280 52 49 4e 54 20 0b 41 30 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 7c 62 73 70 72 69 ┆RINT A0130 PRINT USING "Købspri┆
0x2e280…2e2a0 73 3a 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 20 20 22 3a ┆s: ##########.## kr ":┆
0x2e2a0…2e2c0 4b 5c 42 53 50 52 49 53 41 45 30 31 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4f 6d 6b 6f ┆KØBSPRISAE0140 PRINT USING "Omko┆
0x2e2c0…2e2e0 73 74 6e 69 6e 67 65 72 3a 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 20 ┆stninger: ##########.## kr ┆
0x2e2e0…2e300 20 22 3a 4f 4d 4b 4f 53 54 4e 49 4e 47 45 52 45 44 30 31 35 30 20 50 52 49 4e 54 20 55 53 49 4e ┆ ":OMKOSTNINGERED0150 PRINT USIN┆
0x2e300…2e320 (23, 0, 4) 47 20 22 46 6f 72 74 6a 65 6e 65 73 74 65 3a 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 23 ┆G "Fortjeneste: ##########┆
0x2e320…2e340 2e 23 23 20 6b 72 20 20 22 3a 46 4f 52 54 4a 45 4e 45 53 54 45 44 45 30 31 36 30 20 50 52 49 4e ┆.## kr ":FORTJENESTEDE0160 PRIN┆
0x2e340…2e360 54 20 55 53 49 4e 47 20 22 53 61 6d 6c 65 64 65 20 75 64 67 69 66 74 65 72 3a 20 20 23 23 23 23 ┆T USING "Samlede udgifter: ####┆
0x2e360…2e380 23 23 23 23 23 23 2e 23 23 20 6b 72 20 20 22 3a 53 41 4d 4c 45 54 55 44 47 49 46 54 45 42 30 31 ┆######.## kr ":SAMLETUDGIFTEB01┆
0x2e380…2e3a0 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 53 61 6c 67 73 70 72 69 73 3a 20 20 20 20 20 20 ┆70 PRINT USING "Salgspris: ┆
0x2e3a0…2e3c0 20 20 20 23 23 23 23 23 23 23 23 23 23 2e 23 23 20 6b 72 20 20 22 3a 53 41 4c 47 53 50 52 49 53 ┆ ##########.## kr ":SALGSPRIS┆
0x2e3c0…2e3e0 42 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆B ccccccccccccccccccccccccccccc┆
0x2e3e0…2e400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x2e400…2e420 (23, 0, 5) ExtentHdr {name=»TREKANT8«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,0a (0x02ea00)}, f99=41 2e 00 fe 00 00 00 00 00 00 ┆A. ┆}
0x2e420…2e440 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x2e440…2e460 2d 2d 20 74 72 65 6b 61 6e 74 38 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- trekant8 --------------------┆
0x2e460…2e480 2d 2d 2d 2d 43 44 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 ┆----CD0020 // Programmet udregne┆
0x2e480…2e4a0 72 20 64 65 6e 20 73 69 64 73 74 65 20 73 69 64 65 20 69 20 65 6e 20 72 65 74 76 69 6e 6b 6c 65 ┆r den sidste side i en retvinkle┆
0x2e4a0…2e4c0 74 20 74 72 65 6b 61 6e 74 2c 44 2c 30 30 33 30 20 2f 2f 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 ┆t trekant,D,0030 // når man indt┆
0x2e4c0…2e4e0 61 73 74 65 72 20 64 65 20 74 6f 20 61 6e 64 72 65 20 73 69 64 65 72 2e 2c 43 30 30 34 30 20 2f ┆aster de to andre sider.,C0040 /┆
0x2e4e0…2e500 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x2e500…2e520 (23, 0, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0b 30 ┆-----------------------------C 0┆
0x2e520…2e540 30 35 30 20 43 4c 45 41 52 20 0b 0f 30 30 36 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 4a 30 30 37 ┆050 CLEAR 0060 CURSOR 1,6 J007┆
0x2e540…2e560 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 65 20 74 6f 20 73 69 64 65 72 3a 20 20 20 ┆0 INPUT "Indtast de to sider: ┆
0x2e560…2e580 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 49 44 45 ┆ ":SIDE┆
0x2e580…2e5a0 31 2c 53 49 44 45 32 4a 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 44 30 30 39 30 20 49 4e 50 55 54 ┆1,SIDE2J 0080 PRINT D0090 INPUT┆
0x2e5a0…2e5c0 20 22 44 72 65 6a 65 72 20 64 65 74 20 73 69 67 20 6f 6d 20 74 6f 20 6b 61 74 65 74 65 72 3f 20 ┆ "Drejer det sig om to kateter? ┆
0x2e5c0…2e5e0 20 20 20 20 31 3a 6a 61 20 20 20 32 3a 6e 65 6a 20 20 20 20 22 3a 53 56 41 52 44 43 30 31 30 30 ┆ 1:ja 2:nej ":SVARDC0100┆
0x2e5e0…2e600 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x2e600…2e620 (23, 0, 7) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 ┆-------------------------------C┆
0x2e620…2e640 1c 30 31 31 30 20 49 46 20 53 56 41 52 3d 31 20 54 48 45 4e 20 45 58 45 43 20 48 59 50 1c 1f 30 ┆ 0110 IF SVAR=1 THEN EXEC HYP 0┆
0x2e640…2e660 31 32 30 20 49 46 20 53 56 41 52 3d 32 20 54 48 45 4e 20 45 58 45 43 20 4b 41 54 45 54 45 1f 43 ┆120 IF SVAR=2 THEN EXEC KATETE C┆
0x2e660…2e680 30 31 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0130 // ------------------------┆
0x2e680…2e6a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e6a0…2e6c0 2d 2d 2d 43 0d 30 31 34 30 20 50 52 4f 43 20 48 59 50 0d 28 30 31 35 30 20 48 59 50 4f 54 45 4e ┆---C 0140 PROC HYP (0150 HYPOTEN┆
0x2e6c0…2e6e0 55 53 45 4e 3a 3d 53 51 52 28 53 49 44 45 31 2a 2a 32 2b 53 49 44 45 32 2a 2a 32 29 28 10 30 31 ┆USEN:=SQR(SIDE1**2+SIDE2**2)( 01┆
0x2e6e0…2e700 36 30 20 43 55 52 53 4f 52 20 38 2c 31 32 10 4d 30 31 37 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆60 CURSOR 8,12 M0170 PRINT USING┆
0x2e700…2e720 (23, 0, 8) 20 22 48 79 70 6f 74 65 6e 75 73 65 6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ "Hypotenusen ┆
0x2e720…2e740 20 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 20 22 3a 48 59 50 4f 54 45 4e 55 53 45 4e 4d 10 30 ┆ ######.## ":HYPOTENUSENM 0┆
0x2e740…2e760 31 38 30 20 43 55 52 53 4f 52 20 35 2c 31 33 10 49 30 31 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d ┆180 CURSOR 5,13 I0190 PRINT "---┆
0x2e760…2e780 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e780…2e7a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 49 10 30 32 30 30 ┆-------------------------"I 0200┆
0x2e7a0…2e7c0 20 45 4e 44 50 52 4f 43 20 48 59 50 10 43 30 32 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ENDPROC HYP C0210 // ----------┆
0x2e7c0…2e7e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e7e0…2e800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 10 30 32 32 30 20 50 52 4f 43 20 4b 41 54 ┆-----------------C 0220 PROC KAT┆
0x2e800…2e820 (23, 0, 9) 45 54 45 10 10 30 32 33 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 19 30 32 34 30 20 49 46 20 53 ┆ETE 0230 CURSOR 1,12 0240 IF S┆
0x2e820…2e840 49 44 45 31 3e 53 49 44 45 32 20 54 48 45 4e 20 19 26 30 32 35 30 20 4b 41 54 45 54 45 31 3a 3d ┆IDE1>SIDE2 THEN &0250 KATETE1:=┆
0x2e840…2e860 28 53 51 52 28 53 49 44 45 31 2a 2a 32 2d 53 49 44 45 32 2a 2a 32 29 29 26 0a 30 32 36 30 20 45 ┆(SQR(SIDE1**2-SIDE2**2))& 0260 E┆
0x2e860…2e880 4c 53 45 20 0a 26 30 32 37 30 20 4b 41 54 45 54 45 31 3a 3d 28 53 51 52 28 53 49 44 45 32 2a 2a ┆LSE &0270 KATETE1:=(SQR(SIDE2**┆
0x2e880…2e8a0 32 2d 53 49 44 45 31 2a 2a 32 29 29 26 0b 30 32 38 30 20 45 4e 44 49 46 20 0b 10 30 32 39 30 20 ┆2-SIDE1**2))& 0280 ENDIF 0290 ┆
0x2e8a0…2e8c0 43 55 52 53 4f 52 20 38 2c 31 32 10 4d 30 33 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 44 ┆CURSOR 8,12 M0300 PRINT USING "D┆
0x2e8c0…2e8e0 65 6e 20 65 6e 65 20 6b 61 74 65 74 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆en ene katete: ┆
0x2e8e0…2e900 20 20 20 20 23 23 23 23 23 23 2e 23 23 20 20 20 20 22 3a 4b 41 54 45 54 45 31 4d 10 30 33 31 30 ┆ ######.## ":KATETE1M 0310┆
0x2e900…2e920 (23, 0, 10) 20 43 55 52 53 4f 52 20 35 2c 31 33 10 49 30 33 32 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d ┆ CURSOR 5,13 I0320 PRINT "------┆
0x2e920…2e940 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e940…2e960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 49 13 30 33 33 30 20 45 4e ┆----------------------"I 0330 EN┆
0x2e960…2e980 44 50 52 4f 43 20 4b 41 54 45 54 45 13 43 30 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆DPROC KATETE C0340 // ----------┆
0x2e980…2e9a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2e9a0…2e9c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆-----------------C cccccccccccc┆
0x2e9c0…2e9e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x2ea00…2ea20 (23, 0, 11) ExtentHdr {name=»UDSPRING«, typ=»K«, seg=»A«, next=0x01, basis=0x0003, nextext={DA 002e,0d (0x02ed00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002e,0d (0x02ed00)}, f99=41 2e 00 fe 00 44 53 50 52 49 ┆A. DSPRI┆}
0x2ea20…2ea40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 ┆@0010 // ---------------------- ┆
0x2ea40…2ea60 75 64 73 70 72 69 6e 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆udspring -----------------------┆
0x2ea60…2ea80 2d 40 38 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 6b 61 72 61 6b 74 65 72 65 6e 20 76 ┆-@80020 // Udregner karakteren v┆
0x2ea80…2eaa0 65 64 20 65 6e 20 75 64 73 70 72 69 6e 67 73 6b 6f 6e 6b 75 72 72 65 6e 63 65 2e 38 0e 30 30 32 ┆ed en udspringskonkurrence.8 002┆
0x2eaa0…2eac0 35 20 49 4e 54 45 47 45 52 20 49 0e 29 30 30 33 30 20 49 4e 50 55 54 20 22 41 6e 74 61 6c 20 64 ┆5 INTEGER I )0030 INPUT "Antal d┆
0x2eac0…2eae0 65 6c 74 61 67 65 72 65 3a 20 20 20 20 20 20 22 3a 41 4e 54 41 4c 29 18 30 30 34 30 20 44 49 4d ┆eltagere: ":ANTAL) 0040 DIM┆
0x2eae0…2eb00 20 52 45 53 55 4c 54 41 54 28 41 4e 54 41 4c 29 18 08 30 30 35 30 20 2f 2f 20 08 0b 30 30 36 30 ┆ RESULTAT(ANTAL) 0050 // 0060┆
0x2eb00…2eb20 (23, 0, 12) 20 43 4c 45 41 52 20 0b 1a 30 30 37 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 ┆ CLEAR 0070 FOR I:=1 TO ANTAL ┆
0x2eb20…2eb40 44 4f 20 1a 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 1c 30 30 39 30 20 50 52 49 4e 54 20 22 44 65 ┆DO 0080 PRINT 0090 PRINT "De┆
0x2eb40…2eb60 6c 74 61 67 65 72 20 6e 72 3a 20 22 3b 49 1c 2e 30 31 30 30 20 49 4e 50 55 54 20 22 53 76 7b 72 ┆ltager nr: ";I .0100 INPUT "Svær┆
0x2eb60…2eb80 68 65 64 73 67 72 61 64 20 28 30 2e 31 20 2d 20 32 2e 35 29 3a 20 20 20 22 3a 53 56 5b 52 2e 20 ┆hedsgrad (0.1 - 2.5): ":SVÆR. ┆
0x2eb80…2eba0 30 31 31 30 20 53 55 4d 3a 3d 30 3b 53 54 5c 52 53 54 3a 3d 30 3b 4d 49 4e 44 53 54 3a 3d 31 31 ┆0110 SUM:=0;STØRST:=0;MINDST:=11┆
0x2eba0…2ebc0 20 18 30 31 32 30 20 46 4f 52 20 4b 41 52 3a 3d 31 20 54 4f 20 37 20 44 4f 20 18 37 30 31 33 30 ┆ 0120 FOR KAR:=1 TO 7 DO 70130┆
0x2ebc0…2ebe0 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 61 72 61 6b 74 65 72 20 28 30 2e 30 20 2d 20 ┆ INPUT "Indtast karakter (0.0 - ┆
0x2ebe0…2ec00 31 30 2e 30 29 3a 20 20 20 22 3a 4b 41 52 41 4b 54 45 52 37 16 30 31 34 30 20 53 55 4d 3a 3d 53 ┆10.0): ":KARAKTER7 0140 SUM:=S┆
0x2ec00…2ec20 (23, 0, 13) 55 4d 2b 4b 41 52 41 4b 54 45 52 16 2d 30 31 35 30 20 49 46 20 4b 41 52 41 4b 54 45 52 3e 53 54 ┆UM+KARAKTER -0150 IF KARAKTER>ST┆
0x2ec20…2ec40 5c 52 53 54 20 54 48 45 4e 20 53 54 5c 52 53 54 3a 3d 4b 41 52 41 4b 54 45 52 2d 2d 30 31 36 30 ┆ØRST THEN STØRST:=KARAKTER--0160┆
0x2ec40…2ec60 20 49 46 20 4b 41 52 41 4b 54 45 52 3c 4d 49 4e 44 53 54 20 54 48 45 4e 20 4d 49 4e 44 53 54 3a ┆ IF KARAKTER<MINDST THEN MINDST:┆
0x2ec60…2ec80 3d 4b 41 52 41 4b 54 45 52 2d 0d 30 31 37 30 20 4e 45 58 54 20 4b 41 52 0d 1b 30 31 38 30 20 53 ┆=KARAKTER- 0170 NEXT KAR 0180 S┆
0x2ec80…2eca0 55 4d 3a 3d 53 55 4d 2d 53 54 5c 52 53 54 2d 4d 49 4e 44 53 54 1b 12 30 31 39 30 20 53 55 4d 3a ┆UM:=SUM-STØRST-MINDST 0190 SUM:┆
0x2eca0…2ecc0 3d 53 55 4d 2a 53 56 5b 52 12 17 30 32 30 30 20 52 45 53 55 4c 54 41 54 28 49 29 3a 3d 53 55 4d ┆=SUM*SVÆR 0200 RESULTAT(I):=SUM┆
0x2ecc0…2ece0 2f 35 17 0b 30 32 31 30 20 4e 45 58 54 20 49 0b 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 08 30 32 ┆/5 0210 NEXT I 0220 PRINT 02┆
0x2ece0…2ed00 33 30 20 2f 2f 20 08 1a 30 32 34 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 ┆30 // 0240 FOR I:=1 TO ANTAL D┆
0x2ed00…2ed20 (23, 0, 14) ExtentHdr {name=»UDSPRING«, typ=»K«, seg=»B«, next=0x01, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 002e,0a (0x02ea00)}, nextfile={DA 002f,00 (0x02f000)}, f99=41 2e 00 20 00 44 53 50 52 49 ┆A. DSPRI┆}
0x2ed20…2ed40 4f 20 1a 45 30 32 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 44 65 6c 74 61 67 65 72 20 6e ┆O E0250 PRINT USING "Deltager n┆
0x2ed40…2ed60 72 2e 23 23 23 20 2d 2d 2d 20 72 65 73 75 6c 74 61 74 3a 23 23 23 2e 23 23 20 22 3a 49 2c 52 45 ┆r.### --- resultat:###.## ":I,RE┆
0x2ed60…2ed80 53 55 4c 54 41 54 28 49 29 45 0b 30 32 36 30 20 4e 45 58 54 20 49 0b 00 00 74 65 72 65 6e 20 76 ┆SULTAT(I)E 0260 NEXT I teren v┆
0x2ed80…2eda0 65 64 20 65 6e 20 75 64 73 70 72 69 6e 67 73 6b 6f 6e 6b 75 72 72 65 6e 63 65 2e 38 29 30 30 33 ┆ed en udspringskonkurrence.8)003┆
0x2eda0…2edc0 30 20 49 4e 50 55 54 20 22 41 6e 74 61 6c 20 64 65 6c 74 61 67 65 72 65 3a 20 20 20 20 20 20 22 ┆0 INPUT "Antal deltagere: "┆
0x2edc0…2ede0 3a 41 4e 54 41 4c 29 18 30 30 34 30 20 44 49 4d 20 52 45 53 55 4c 54 41 54 28 41 4e 54 41 4c 29 ┆:ANTAL) 0040 DIM RESULTAT(ANTAL)┆
0x2ede0…2ee00 18 08 30 30 35 30 20 2f 2f 20 08 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 1a 30 30 37 30 20 46 4f ┆ 0050 // 0060 CLEAR 0070 FO┆
0x2ee00…2ef00 (23, 0, 15) 0x63[0x100]
[…0x1…]
0x2f000…2f020 (23, 1, 1) ExtentHdr {name=»ADDITION«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002f,04 (0x02f400)}, f99=41 2e 00 fe 00 44 53 50 52 49 ┆A. DSPRI┆}
0x2f020…2f040 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x2f040…2f060 2d 20 20 61 64 64 69 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- addition --------------------┆
0x2f060…2f080 2d 40 1b 30 30 31 35 20 49 4e 54 45 47 45 52 20 58 2c 59 2c 53 55 4d 2c 54 5b 4c 4c 45 52 1b 13 ┆-@ 0015 INTEGER X,Y,SUM,TÆLLER ┆
0x2f080…2f0a0 30 30 32 30 20 44 49 4d 20 53 56 41 52 24 20 4f 46 20 33 13 13 30 30 33 30 20 52 4e 44 53 45 45 ┆0020 DIM SVAR$ OF 3 0030 RNDSEE┆
0x2f0a0…2f0c0 44 3a 3d 34 2e 32 33 34 13 0c 30 30 34 30 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 ┆D:=4.234 0040 REPEAT 0050 CLE┆
0x2f0c0…2f0e0 41 52 20 0b 36 30 30 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 73 76 7b 72 68 65 64 ┆AR 60060 INPUT "Indtast sværhed┆
0x2f0e0…2f100 73 67 72 61 64 20 20 28 20 31 20 2d 20 31 30 20 29 3a 20 20 20 22 3a 47 52 41 44 36 0e 30 30 37 ┆sgrad ( 1 - 10 ): ":GRAD6 007┆
0x2f100…2f120 (23, 1, 2) 30 20 54 5b 4c 4c 45 52 3a 3d 30 0e 17 30 30 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 ┆0 TÆLLER:=0 0080 FOR I:=1 TO 10┆
0x2f120…2f140 20 44 4f 20 17 19 30 30 39 30 20 58 3a 3d 52 4e 44 28 31 2c 47 52 41 44 2a 2a 32 2a 31 30 29 19 ┆ DO 0090 X:=RND(1,GRAD**2*10) ┆
0x2f140…2f160 19 30 31 30 30 20 59 3a 3d 52 4e 44 28 31 2c 47 52 41 44 2a 2a 32 2a 31 30 29 19 0b 30 31 31 30 ┆ 0100 Y:=RND(1,GRAD**2*10) 0110┆
0x2f160…2f180 20 50 52 49 4e 54 20 0b 1a 30 31 32 30 20 50 52 49 4e 54 20 58 3b 22 2b 20 22 3b 59 3b 22 20 3d ┆ PRINT 0120 PRINT X;"+ ";Y;" =┆
0x2f180…2f1a0 20 22 3b 1a 11 30 31 33 30 20 49 4e 50 55 54 20 22 22 3a 53 55 4d 11 15 30 31 34 30 20 49 46 20 ┆ "; 0130 INPUT "":SUM 0140 IF ┆
0x2f1a0…2f1c0 53 55 4d 3d 58 2b 59 20 54 48 45 4e 20 15 15 30 31 35 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c ┆SUM=X+Y THEN 0150 TÆLLER:=TÆLL┆
0x2f1c0…2f1e0 45 52 2b 31 15 1f 30 31 36 30 20 50 52 49 4e 54 20 22 53 76 61 72 65 74 20 65 72 20 6b 6f 72 72 ┆ER+1 0160 PRINT "Svaret er korr┆
0x2f1e0…2f200 65 6b 74 2e 22 1f 0a 30 31 37 30 20 45 4c 53 45 20 0a 27 30 31 38 30 20 50 52 49 4e 54 20 22 53 ┆ekt." 0170 ELSE '0180 PRINT "S┆
0x2f200…2f220 (23, 1, 3) 76 61 72 65 74 20 65 72 20 69 6b 6b 65 20 72 69 67 74 69 67 74 3b 20 20 22 3b 27 25 30 31 39 30 ┆varet er ikke rigtigt; ";'%0190┆
0x2f220…2f240 20 50 52 49 4e 54 20 22 44 65 74 20 72 69 67 74 69 67 65 20 73 76 61 72 20 65 72 20 22 3b 58 2b ┆ PRINT "Det rigtige svar er ";X+┆
0x2f240…2f260 59 25 0b 30 32 30 30 20 45 4e 44 49 46 20 0b 0b 30 32 31 30 20 4e 45 58 54 20 49 0b 0b 30 32 32 ┆Y% 0200 ENDIF 0210 NEXT I 022┆
0x2f260…2f280 30 20 50 52 49 4e 54 20 0b 3e 30 32 33 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 72 65 67 ┆0 PRINT >0230 PRINT "Du har reg┆
0x2f280…2f2a0 6e 65 74 20 22 3b 54 5b 4c 4c 45 52 3b 22 6f 70 67 61 76 65 72 20 72 69 67 74 69 67 65 20 75 64 ┆net ";TÆLLER;"opgaver rigtige ud┆
0x2f2a0…2f2c0 20 61 66 20 31 30 2e 22 3e 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 10 30 32 36 30 20 43 55 52 53 ┆ af 10."> 0240 PRINT 0260 CURS┆
0x2f2c0…2f2e0 4f 52 20 31 2c 32 34 10 35 30 32 37 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 ┆OR 1,24 50270 INPUT "Ønsker du a┆
0x2f2e0…2f300 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 20 20 20 28 20 6a 2f 6e 29 22 3a 53 56 41 52 24 35 21 ┆t fortsætte? ( j/n)":SVAR$5!┆
0x2f300…2f320 (23, 1, 4) 30 33 30 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 4e 22 20 4f 52 20 53 56 41 52 24 3d 22 6e ┆0300 UNTIL SVAR$="N" OR SVAR$="n┆
0x2f320…2f340 22 21 08 30 33 31 30 20 2f 2f 20 08 17 30 33 32 30 20 50 52 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 ┆"! 0310 // 0320 PROC RND(LOW,H┆
0x2f340…2f360 49 47 48 29 17 1a 30 33 33 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 2b 33 2e 31 34 31 35 39 ┆IGH) 0330 RNDX:=RNDSEED+3.14159┆
0x2f360…2f380 1a 1c 30 33 34 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c ┆ 0340 RNDX:=EXP(5.0*LN(RNDX)) ┆
0x2f380…2f3a0 30 33 35 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 4e 44 58 29 1c 29 30 33 ┆0350 RNDSEED:=RNDX-INT(RNDX) )03┆
0x2f3a0…2f3c0 36 30 20 52 4e 44 3a 3d 49 4e 54 28 52 4e 44 53 45 45 44 2a 28 48 49 47 48 2d 4c 4f 57 29 2b 4c ┆60 RND:=INT(RNDSEED*(HIGH-LOW)+L┆
0x2f3c0…2f3e0 4f 57 2b 30 2e 35 29 29 10 30 33 37 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 63 63 63 ┆OW+0.5)) 0370 ENDPROC RND cccc┆
0x2f3e0…2f400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x2f400…2f420 (23, 1, 5) ExtentHdr {name=»MÅNED2 «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002f,07 (0x02f700)}, f99=41 2e 00 fe 00 44 53 50 52 49 ┆A. DSPRI┆}
0x2f420…2f440 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6d ┆@0010 // --------------------- m┆
0x2f440…2f460 7d 6e 65 64 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆åned2 --------------------------┆
0x2f460…2f480 2d 40 12 30 30 31 35 20 49 4e 54 45 47 45 52 20 4d 5d 4e 45 44 12 0b 30 30 32 30 20 43 4c 45 41 ┆-@ 0015 INTEGER MÅNED 0020 CLEA┆
0x2f480…2f4a0 52 20 0b 0f 30 30 33 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 2c 30 30 34 30 20 49 4e 50 55 54 20 ┆R 0030 CURSOR 1,5 ,0040 INPUT ┆
0x2f4a0…2f4c0 22 49 6e 64 74 61 73 74 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 22 3a 4d 5d 4e 45 ┆"Indtast månedens nummer: ":MÅNE┆
0x2f4c0…2f4e0 44 2c 13 30 30 35 30 20 43 41 53 45 20 4d 5d 4e 45 44 20 4f 46 20 13 0f 30 30 36 30 20 57 48 45 ┆D, 0050 CASE MÅNED OF 0060 WHE┆
0x2f4e0…2f500 4e 20 31 2c 32 2c 33 0f 39 30 30 37 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 65 6e 3a 20 20 22 ┆N 1,2,3 90070 PRINT "Måneden: "┆
0x2f500…2f520 (23, 1, 6) 3b 4d 5d 4e 45 44 3b 22 20 6c 69 67 67 65 72 20 69 20 66 7c 72 73 74 65 20 6b 76 61 72 74 61 6c ┆;MÅNED;" ligger i første kvartal┆
0x2f520…2f540 2e 22 39 0f 30 30 38 30 20 57 48 45 4e 20 34 2c 35 2c 36 0f 38 30 30 39 30 20 50 52 49 4e 54 20 ┆."9 0080 WHEN 4,5,6 80090 PRINT ┆
0x2f540…2f560 22 4d 7d 6e 65 64 65 6e 3a 20 20 22 3b 4d 5d 4e 45 44 3b 22 20 6c 69 67 67 65 72 20 69 20 61 6e ┆"Måneden: ";MÅNED;" ligger i an┆
0x2f560…2f580 64 65 74 20 6b 76 61 72 74 61 6c 2e 22 38 0f 30 31 30 30 20 57 48 45 4e 20 37 2c 38 2c 39 0f 39 ┆det kvartal."8 0100 WHEN 7,8,9 9┆
0x2f580…2f5a0 30 31 31 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 65 6e 3a 20 20 22 3b 4d 5d 4e 45 44 3b 22 20 ┆0110 PRINT "Måneden: ";MÅNED;" ┆
0x2f5a0…2f5c0 6c 69 67 67 65 72 20 69 20 74 72 65 64 69 65 20 6b 76 61 72 74 61 6c 2e 22 39 12 30 31 32 30 20 ┆ligger i tredie kvartal."9 0120 ┆
0x2f5c0…2f5e0 57 48 45 4e 20 31 30 2c 31 31 2c 31 32 12 39 30 31 33 30 20 50 52 49 4e 54 20 22 4d 7d 6e 65 64 ┆WHEN 10,11,12 90130 PRINT "Måned┆
0x2f5e0…2f600 65 6e 3a 20 20 22 3b 4d 5d 4e 45 44 3b 22 20 6c 69 67 67 65 72 20 69 20 66 6a 65 72 64 65 20 6b ┆en: ";MÅNED;" ligger i fjerde k┆
0x2f600…2f620 (23, 1, 7) 76 61 72 74 61 6c 2e 22 39 0f 30 31 34 30 20 4f 54 48 45 52 57 49 53 45 20 0f 40 30 31 35 30 20 ┆vartal."9 0140 OTHERWISE @0150 ┆
0x2f620…2f640 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 6d 7d 6e 65 64 20 65 6b 73 69 73 74 65 72 65 72 20 76 69 ┆PRINT "Denne måned eksisterer vi┆
0x2f640…2f660 73 74 20 69 6b 6b 65 2e 20 50 72 7c 76 20 65 6e 20 67 61 6e 67 20 74 69 6c 2e 22 40 0d 30 31 36 ┆st ikke. Prøv en gang til."@ 016┆
0x2f660…2f680 30 20 45 4e 44 43 41 53 45 20 0d 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆0 ENDCASE ccccccccccccccccccc┆
0x2f680…2f6a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x2f700…2f720 (23, 1, 8) ExtentHdr {name=»ANALYSE «, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 002f,0e (0x02fe00)}, f99=41 2e 00 fe 00 44 53 50 52 49 ┆A. DSPRI┆}
0x2f720…2f740 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x2f740…2f760 20 61 6e 61 6c 79 73 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ analyse -----------------------┆
0x2f760…2f780 2d 40 45 30 30 32 30 20 2f 2f 20 4f 70 74 7b 6c 6c 65 72 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 ┆-@E0020 // Optæller antallet af ┆
0x2f780…2f7a0 76 6f 6b 61 6c 65 72 2c 20 6b 6f 6e 73 6f 6e 61 6e 74 65 72 2c 20 63 69 66 72 65 20 6f 67 20 6d ┆vokaler, konsonanter, cifre og m┆
0x2f7a0…2f7c0 65 6c 6c 65 6d 72 75 6d 45 42 30 30 33 30 20 2f 2f 20 69 20 65 6e 20 66 6f 72 75 64 20 69 6e 64 ┆ellemrumEB0030 // i en forud ind┆
0x2f7c0…2f7e0 74 61 73 74 65 74 20 74 65 6b 73 74 2e 20 50 72 6f 67 72 61 6d 6d 65 74 20 6b 61 6e 20 6c 65 74 ┆tastet tekst. Programmet kan let┆
0x2f7e0…2f800 20 75 64 76 69 64 65 73 20 74 69 6c 42 35 30 30 34 30 20 2f 2f 20 61 74 20 6f 6d 66 61 74 74 65 ┆ udvides tilB50040 // at omfatte┆
0x2f800…2f820 (23, 1, 9) 20 61 6e 61 6c 79 73 65 20 61 66 20 65 6e 20 74 65 6b 73 74 20 6d 65 64 20 61 6c 6c 65 20 74 65 ┆ analyse af en tekst med alle te┆
0x2f820…2f840 67 6e 2e 35 42 30 30 35 30 20 44 49 4d 20 56 4f 4b 41 4c 24 20 4f 46 20 31 30 2c 4b 4f 4e 53 4f ┆gn.5B0050 DIM VOKAL$ OF 10,KONSO┆
0x2f840…2f860 4e 41 4e 54 24 20 4f 46 20 32 30 2c 42 4c 41 4e 4b 54 45 47 4e 24 20 4f 46 20 31 2c 54 45 58 54 ┆NANT$ OF 20,BLANKTEGN$ OF 1,TEXT┆
0x2f860…2f880 24 20 4f 46 20 38 30 42 13 30 30 35 35 20 44 49 4d 20 54 41 4c 24 20 4f 46 20 31 30 13 3a 30 30 ┆$ OF 80B 0055 DIM TAL$ OF 10 :00┆
0x2f880…2f8a0 36 30 20 41 4e 54 56 4f 4b 41 4c 3a 3d 30 3b 41 4e 54 4b 4f 4e 53 4f 4e 41 4e 54 3a 3d 30 3b 41 ┆60 ANTVOKAL:=0;ANTKONSONANT:=0;A┆
0x2f8a0…2f8c0 4e 54 42 4c 41 4e 4b 54 45 47 4e 3a 3d 30 3b 41 4e 54 54 41 4c 3a 3d 30 3a 4d 30 30 37 30 20 2f ┆NTBLANKTEGN:=0;ANTTAL:=0:M0070 /┆
0x2f8c0…2f8e0 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x2f8e0…2f900 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2f900…2f920 (23, 1, 10) 2d 2d 2d 2d 2d 2d 2d 4d 0b 30 30 38 30 20 43 4c 45 41 52 20 0b 19 30 30 39 30 20 56 4f 4b 41 4c ┆-------M 0080 CLEAR 0090 VOKAL┆
0x2f920…2f940 24 3a 3d 22 61 65 69 6f 75 79 7a 7b 7c 7d 22 19 26 30 31 30 30 20 4b 4f 4e 53 4f 4e 41 4e 54 24 ┆$:="aeiouyzæøå" &0100 KONSONANT$┆
0x2f940…2f960 3a 3d 22 62 63 64 66 67 68 6a 6b 6c 6d 6e 70 71 72 73 74 76 78 7a 22 26 14 30 31 31 30 20 42 4c ┆:="bcdfghjklmnpqrstvxz"& 0110 BL┆
0x2f960…2f980 41 4e 4b 54 45 47 4e 24 3a 3d 22 20 22 14 17 30 31 32 30 20 54 41 4c 24 3a 3d 22 31 32 33 34 35 ┆ANKTEGN$:=" " 0120 TAL$:="12345┆
0x2f980…2f9a0 36 37 38 39 30 22 17 0b 30 31 32 35 20 50 52 49 4e 54 20 0b 4c 30 31 33 30 20 50 52 49 4e 54 20 ┆67890" 0125 PRINT L0130 PRINT ┆
0x2f9a0…2f9c0 22 49 6e 64 74 61 73 74 20 65 6e 20 74 65 6b 73 74 20 70 7d 20 68 7c 6a 73 74 20 38 30 20 74 65 ┆"Indtast en tekst på højst 80 te┆
0x2f9c0…2f9e0 67 6e 2e 20 28 42 72 75 67 20 73 6d 7d 20 62 6f 67 73 74 61 76 65 72 20 6f 67 20 74 61 6c 29 3a ┆gn. (Brug små bogstaver og tal):┆
0x2f9e0…2fa00 22 4c 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 10 30 31 35 30 20 49 4e 50 55 54 20 54 45 58 54 24 ┆"L 0140 PRINT 0150 INPUT TEXT$┆
0x2fa00…2fa20 (23, 1, 11) 10 1f 30 31 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4c 45 4e 28 54 45 58 54 24 29 20 44 4f ┆ 0160 FOR I:=1 TO LEN(TEXT$) DO┆
0x2fa20…2fa40 20 1f 36 30 31 37 30 20 49 46 20 54 45 58 54 24 28 49 3a 31 29 20 49 4e 20 56 4f 4b 41 4c 24 20 ┆ 60170 IF TEXT$(I:1) IN VOKAL$ ┆
0x2fa40…2fa60 54 48 45 4e 20 41 4e 54 56 4f 4b 41 4c 3a 3d 41 4e 54 56 4f 4b 41 4c 2b 31 36 42 30 31 38 30 20 ┆THEN ANTVOKAL:=ANTVOKAL+16B0180 ┆
0x2fa60…2fa80 49 46 20 54 45 58 54 24 28 49 3a 31 29 20 49 4e 20 4b 4f 4e 53 4f 4e 41 4e 54 24 20 54 48 45 4e ┆IF TEXT$(I:1) IN KONSONANT$ THEN┆
0x2fa80…2faa0 20 41 4e 54 4b 4f 4e 53 4f 4e 41 4e 54 3a 3d 41 4e 54 4b 4f 4e 53 4f 4e 41 4e 54 2b 31 42 42 30 ┆ ANTKONSONANT:=ANTKONSONANT+1BB0┆
0x2faa0…2fac0 31 39 30 20 49 46 20 54 45 58 54 24 28 49 3a 31 29 20 49 4e 20 42 4c 41 4e 4b 54 45 47 4e 24 20 ┆190 IF TEXT$(I:1) IN BLANKTEGN$ ┆
0x2fac0…2fae0 54 48 45 4e 20 41 4e 54 42 4c 41 4e 4b 54 45 47 4e 3a 3d 41 4e 54 42 4c 41 4e 4b 54 45 47 4e 2b ┆THEN ANTBLANKTEGN:=ANTBLANKTEGN+┆
0x2fae0…2fb00 31 42 30 30 32 30 30 20 49 46 20 54 45 58 54 24 28 49 3a 31 29 20 49 4e 20 54 41 4c 24 20 54 48 ┆1B00200 IF TEXT$(I:1) IN TAL$ TH┆
0x2fb00…2fb20 (23, 1, 12) 45 4e 20 41 4e 54 54 41 4c 3a 3d 41 4e 54 54 41 4c 2b 31 30 0b 30 32 31 30 20 4e 45 58 54 20 49 ┆EN ANTTAL:=ANTTAL+10 0210 NEXT I┆
0x2fb20…2fb40 0b 4c 30 32 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ L0220 // ----------------------┆
0x2fb40…2fb60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2fb60…2fb80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4c 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 0b 30 32 34 ┆--------------L 0230 PRINT 024┆
0x2fb80…2fba0 30 20 50 52 49 4e 54 20 0b 44 30 32 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 49 20 74 65 ┆0 PRINT D0250 PRINT USING "I te┆
0x2fba0…2fbc0 6b 73 74 65 6e 20 65 72 20 64 65 72 3a 20 20 20 20 20 23 23 23 23 20 76 6f 6b 61 6c 65 72 2e 20 ┆ksten er der: #### vokaler. ┆
0x2fbc0…2fbe0 20 20 20 20 22 3a 41 4e 54 56 4f 4b 41 4c 44 48 30 32 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 ┆ ":ANTVOKALDH0260 PRINT USING┆
0x2fbe0…2fc00 20 22 49 20 74 65 6b 73 74 65 6e 20 65 72 20 64 65 72 3a 20 20 20 20 20 23 23 23 23 20 6b 6f 6e ┆ "I teksten er der: #### kon┆
0x2fc00…2fc20 (23, 1, 13) 73 6f 6e 61 6e 74 65 72 2e 20 22 3a 41 4e 54 4b 4f 4e 53 4f 4e 41 4e 54 48 48 30 32 37 30 20 50 ┆sonanter. ":ANTKONSONANTHH0270 P┆
0x2fc20…2fc40 52 49 4e 54 20 55 53 49 4e 47 20 22 49 20 74 65 6b 73 74 65 6e 20 65 72 20 64 65 72 3a 20 20 20 ┆RINT USING "I teksten er der: ┆
0x2fc40…2fc60 20 20 23 23 23 23 20 6d 65 6c 6c 65 6d 72 75 6d 2e 20 20 20 22 3a 41 4e 54 42 4c 41 4e 4b 54 45 ┆ #### mellemrum. ":ANTBLANKTE┆
0x2fc60…2fc80 47 4e 48 42 30 32 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 49 20 74 65 6b 73 74 65 6e 20 ┆GNHB0280 PRINT USING "I teksten ┆
0x2fc80…2fca0 65 72 20 64 65 72 3a 20 20 20 20 20 23 23 23 23 20 63 69 66 72 65 2e 20 20 20 20 20 20 20 22 3a ┆er der: #### cifre. ":┆
0x2fca0…2fcc0 41 4e 54 54 41 4c 42 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ANTTALB ccccccccccccccccccccccc┆
0x2fcc0…2fce0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x2fd00…2fe00 (23, 1, 14) 0x63[0x100]
0x2fe00…2fe20 (23, 1, 15) ExtentHdr {name=»ABC_SORT«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0030,08 (0x030800)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x2fe20…2fe40 45 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6c 66 61 62 65 ┆E0100 // ---------------- alfabe┆
0x2fe40…2fe60 74 69 73 6b 20 73 6f 72 74 65 72 69 6e 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆tisk sortering -----------------┆
0x2fe60…2fe80 2d 2d 2d 2d 2d 2d 45 0b 30 31 31 30 20 43 4c 45 41 52 20 0b 10 30 31 32 30 20 43 55 52 53 4f 52 ┆------E 0110 CLEAR 0120 CURSOR┆
0x2fe80…2fea0 20 31 35 2c 33 10 37 30 31 33 30 20 50 52 49 4e 54 20 22 41 20 4c 20 46 20 41 20 42 20 45 20 54 ┆ 15,3 70130 PRINT "A L F A B E T┆
0x2fea0…2fec0 20 49 20 53 20 4b 20 20 20 20 53 20 4f 20 52 20 54 20 45 20 52 20 49 20 4e 20 47 20 2e 22 37 10 ┆ I S K S O R T E R I N G ."7 ┆
0x2fec0…2fee0 30 31 34 30 20 43 55 52 53 4f 52 20 31 35 2c 34 10 37 30 31 35 30 20 50 52 49 4e 54 20 22 2d 2d ┆0140 CURSOR 15,4 70150 PRINT "--┆
0x2fee0…2ff00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x2ff00…2ff20 (23, 1, 16) 2d 2d 2d 2d 2d 2d 2d 2d 22 37 0f 30 31 36 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 16 30 31 36 35 ┆--------"7 0160 CURSOR 1,6 0165┆
0x2ff20…2ff40 20 49 4e 54 45 47 45 52 20 49 2c 4a 2c 41 4e 54 41 4c 16 39 30 31 37 30 20 49 4e 50 55 54 20 22 ┆ INTEGER I,J,ANTAL 90170 INPUT "┆
0x2ff40…2ff60 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 6c 65 74 20 61 66 20 6f 72 64 3a 20 20 20 20 20 20 20 20 ┆Indtast antallet af ord: ┆
0x2ff60…2ff80 20 20 20 20 20 20 22 3a 41 4e 54 41 4c 39 38 30 31 38 30 20 44 49 4d 20 4e 41 56 4e 24 28 41 4e ┆ ":ANTAL980180 DIM NAVN$(AN┆
0x2ff80…2ffa0 54 41 4c 29 20 4f 46 20 33 30 2c 4d 41 58 24 20 4f 46 20 33 30 2c 4e 59 24 20 4f 46 20 33 30 2c ┆TAL) OF 30,MAX$ OF 30,NY$ OF 30,┆
0x2ffa0…2ffc0 53 24 20 4f 46 20 31 38 15 30 31 39 30 20 45 58 45 43 20 49 4e 44 54 41 53 54 4e 49 4e 47 15 13 ┆S$ OF 18 0190 EXEC INDTASTNING ┆
0x2ffc0…2ffe0 30 32 30 30 20 45 58 45 43 20 53 4f 52 54 45 52 49 4e 47 13 11 30 32 31 30 20 45 58 45 43 20 50 ┆0200 EXEC SORTERING 0210 EXEC P┆
0x2ffe0…30000 52 49 4e 54 45 52 11 12 30 32 32 30 20 45 58 45 43 20 55 44 53 4b 52 49 46 54 12 45 30 32 33 30 ┆RINTER 0220 EXEC UDSKRIFT E0230┆
0x30000…30020 (24, 0, 1) 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x30020…30040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30040…30060 2d 45 15 30 32 34 30 20 50 52 4f 43 20 49 4e 44 54 41 53 54 4e 49 4e 47 15 09 30 32 35 30 20 49 ┆-E 0240 PROC INDTASTNING 0250 I┆
0x30060…30080 3a 3d 31 09 0c 30 32 36 30 20 52 45 50 45 41 54 20 0c 13 30 32 37 30 20 50 52 49 4e 54 20 49 3b ┆:=1 0260 REPEAT 0270 PRINT I;┆
0x30080…300a0 22 20 3a 20 22 3b 13 3d 30 32 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6f 72 64 3a ┆" : "; =0280 INPUT "Indtast ord:┆
0x300a0…300c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4e 41 56 ┆ ":NAV┆
0x300c0…300e0 4e 24 28 49 29 3d 0b 30 32 39 30 20 49 3a 3d 49 2b 31 0b 14 30 33 30 30 20 55 4e 54 49 4c 20 49 ┆N$(I)= 0290 I:=I+1 0300 UNTIL I┆
0x300e0…30100 3d 41 4e 54 41 4c 2b 31 14 18 30 33 31 30 20 45 4e 44 50 52 4f 43 20 49 4e 44 54 41 53 54 4e 49 ┆=ANTAL+1 0310 ENDPROC INDTASTNI┆
0x30100…30120 (24, 0, 2) 4e 47 18 46 30 33 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NG F0320 // --------------------┆
0x30120…30140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30140…30160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 13 30 33 33 30 20 50 52 4f 43 20 53 4f 52 54 45 52 49 4e 47 13 ┆----------F 0330 PROC SORTERING ┆
0x30160…30180 0f 30 33 34 30 20 41 4e 54 41 4c 3a 3d 49 2d 32 0f 24 30 33 35 30 20 46 4f 52 20 4a 3a 3d 41 4e ┆ 0340 ANTAL:=I-2 $0350 FOR J:=AN┆
0x30180…301a0 54 41 4c 2b 31 20 54 4f 20 32 20 53 54 45 50 20 2d 31 20 44 4f 20 24 0f 30 33 36 30 20 4d 41 58 ┆TAL+1 TO 2 STEP -1 DO $ 0360 MAX┆
0x301a0…301c0 24 3a 3d 22 20 20 22 0f 1e 30 33 37 30 20 46 4f 52 20 49 3a 3d 4a 20 54 4f 20 31 20 53 54 45 50 ┆$:=" " 0370 FOR I:=J TO 1 STEP┆
0x301c0…301e0 20 2d 31 20 44 4f 20 1e 32 30 33 38 30 20 49 46 20 4e 41 56 4e 24 28 49 29 3e 4d 41 58 24 20 54 ┆ -1 DO 20380 IF NAVN$(I)>MAX$ T┆
0x301e0…30200 48 45 4e 20 4d 41 58 24 3a 3d 4e 41 56 4e 24 28 49 29 3b 50 4c 41 44 53 3a 3d 49 32 0b 30 33 39 ┆HEN MAX$:=NAVN$(I);PLADS:=I2 039┆
0x30200…30220 (24, 0, 3) 30 20 4e 45 58 54 20 49 0b 3b 30 34 30 30 20 4e 59 24 3a 3d 4e 41 56 4e 24 28 50 4c 41 44 53 29 ┆0 NEXT I ;0400 NY$:=NAVN$(PLADS)┆
0x30220…30240 3b 4e 41 56 4e 24 28 50 4c 41 44 53 29 3a 3d 4e 41 56 4e 24 28 4a 29 3b 4e 41 56 4e 24 28 4a 29 ┆;NAVN$(PLADS):=NAVN$(J);NAVN$(J)┆
0x30240…30260 3a 3d 4e 59 24 3b 0b 30 34 31 30 20 4e 45 58 54 20 4a 0b 16 30 34 32 30 20 45 4e 44 50 52 4f 43 ┆:=NY$; 0410 NEXT J 0420 ENDPROC┆
0x30260…30280 20 53 4f 52 54 45 52 49 4e 47 16 44 30 34 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ SORTERING D0430 // ------------┆
0x30280…302a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x302a0…302c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 44 11 30 34 34 30 20 50 52 4f 43 20 50 52 49 4e ┆----------------D 0440 PROC PRIN┆
0x302c0…302e0 54 45 52 11 10 30 34 35 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 3a 30 34 36 30 20 49 4e 50 55 ┆TER 0450 CURSOR 1,22 :0460 INPU┆
0x302e0…30300 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 75 64 73 6b 72 69 66 74 20 70 7d 20 70 72 69 6e 74 65 72 ┆T "Ønsker du udskrift på printer┆
0x30300…30320 (24, 0, 4) 3f 20 20 20 20 20 28 6a 2f 6e 29 20 20 22 3a 53 24 3a 1e 30 34 37 30 20 49 46 20 53 24 3d 22 4a ┆? (j/n) ":S$: 0470 IF S$="J┆
0x30320…30340 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 16 30 34 38 30 20 53 45 4c 45 43 54 20 4f ┆" OR S$="j" THEN 0480 SELECT O┆
0x30340…30360 55 54 50 55 54 20 22 50 22 16 1b 30 34 39 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 ┆UTPUT "P" 0490 IF STATUS("P")=1┆
0x30360…30380 20 54 48 45 4e 20 1b 10 30 35 30 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 38 30 35 31 30 20 50 ┆ THEN 0500 CURSOR 1,22 80510 P┆
0x30380…303a0 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 ┆RINT "<Z>Printeren er reserveret┆
0x303a0…303c0 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 38 42 30 35 32 30 20 49 4e 50 55 54 20 22 ┆ af anden bruger,"8B0520 INPUT "┆
0x303c0…303e0 3c 53 3e 53 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 ┆<S>Skal der ventes på at den bli┆
0x303e0…30400 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 24 42 1e 30 35 33 30 20 49 46 20 ┆ver ledig? (j/n) ":S$B 0530 IF ┆
0x30400…30420 (24, 0, 5) 53 24 3d 22 4a 22 20 4f 52 20 53 24 3d 22 6a 22 20 54 48 45 4e 20 1e 10 30 35 34 30 20 43 55 52 ┆S$="J" OR S$="j" THEN 0540 CUR┆
0x30420…30440 53 4f 52 20 31 2c 32 33 10 3c 30 35 35 30 20 50 52 49 4e 54 20 22 3c 5a 3e 44 65 72 20 76 65 6e ┆SOR 1,23 <0550 PRINT "<Z>Der ven┆
0x30440…30460 74 65 73 20 70 7d 20 61 74 20 70 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 ┆tes på at printeren bliver ledig┆
0x30460…30480 2e 2e 2e 2e 2e 22 3c 2d 30 35 36 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 ┆....."<-0560 WHILE STATUS("P")=1┆
0x30480…304a0 20 44 4f 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 30 35 37 30 20 45 4e 44 49 ┆ DO SELECT OUTPUT "P"- 0570 ENDI┆
0x304a0…304c0 46 20 0b 0b 30 35 37 31 20 45 4e 44 49 46 20 0b 0b 30 35 37 32 20 45 4e 44 49 46 20 0b 14 30 35 ┆F 0571 ENDIF 0572 ENDIF 05┆
0x304c0…304e0 38 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 44 30 35 39 30 20 2f 2f 20 2d 2d 2d 2d ┆80 ENDPROC PRINTER D0590 // ----┆
0x304e0…30500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30500…30520 (24, 0, 6) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 44 12 30 36 30 30 20 50 ┆------------------------D 0600 P┆
0x30520…30540 52 4f 43 20 55 44 53 4b 52 49 46 54 12 0b 30 36 31 30 20 43 4c 45 41 52 20 0b 0f 30 36 32 30 20 ┆ROC UDSKRIFT 0610 CLEAR 0620 ┆
0x30540…30560 43 55 52 53 4f 52 20 31 2c 35 0f 2e 30 36 33 30 20 50 52 49 4e 54 20 22 41 20 4c 20 46 20 41 20 ┆CURSOR 1,5 .0630 PRINT "A L F A ┆
0x30560…30580 42 20 45 20 54 20 49 20 53 20 4b 20 20 20 4f 20 52 20 44 20 45 20 4e 20 3a 22 2e 0f 30 36 34 30 ┆B E T I S K O R D E N :". 0640┆
0x30580…305a0 20 43 55 52 53 4f 52 20 31 2c 36 0f 2e 30 36 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d ┆ CURSOR 1,6 .0650 PRINT "-------┆
0x305a0…305c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 2e 0b 30 36 36 ┆--------------------------". 066┆
0x305c0…305e0 30 20 50 52 49 4e 54 20 0b 1c 30 36 37 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c ┆0 PRINT 0670 FOR I:=1 TO ANTAL┆
0x305e0…30600 2b 31 20 44 4f 20 1c 13 30 36 38 30 20 50 52 49 4e 54 20 4e 41 56 4e 24 28 49 29 13 0b 30 36 39 ┆+1 DO 0680 PRINT NAVN$(I) 069┆
0x30600…30620 (24, 0, 7) 30 20 4e 45 58 54 20 49 0b 11 30 37 32 30 20 43 55 52 53 4f 52 20 33 30 2c 32 32 11 21 30 37 33 ┆0 NEXT I 0720 CURSOR 30,22 !073┆
0x30620…30640 30 20 49 46 20 53 24 3c 3e 22 4a 22 20 41 4e 44 20 53 24 3c 3e 22 6a 22 20 54 48 45 4e 20 21 11 ┆0 IF S$<>"J" AND S$<>"j" THEN ! ┆
0x30640…30660 30 37 34 30 20 43 55 52 53 4f 52 20 33 30 2c 32 32 11 1d 30 37 35 30 20 49 4e 50 55 54 20 22 54 ┆0740 CURSOR 30,22 0750 INPUT "T┆
0x30660…30680 72 79 6b 20 3c 52 45 54 55 52 4e 3e 22 3a 53 24 1d 0b 30 37 35 35 20 43 4c 45 41 52 20 0b 0b 30 ┆ryk <RETURN>":S$ 0755 CLEAR 0┆
0x30680…306a0 37 36 30 20 45 4e 44 49 46 20 0b 15 30 37 37 30 20 45 4e 44 50 52 4f 43 20 55 44 53 4b 52 49 46 ┆760 ENDIF 0770 ENDPROC UDSKRIF┆
0x306a0…306c0 54 15 28 30 37 38 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆T (0780 // ---------------------┆
0x306c0…306e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 28 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆-----------( cccccccccccccccccc┆
0x306e0…30700 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x30700…30800 (24, 0, 8) 0x63[0x100]
0x30800…30820 (24, 0, 9) ExtentHdr {name=»KOPI_DIR«, typ=»K«, seg=»A«, next=0x00, basis=0x0001, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0030,09 (0x030900)}, f99=41 30 00 fe 00 00 00 00 00 00 ┆A0 ┆}
0x30820…30840 21 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 20 6b 6f 70 69 20 64 69 72 20 2d 2d 2d 2d 2d 2d 2d ┆!0100 // ------ kopi dir -------┆
0x30840…30860 2d 2d 21 35 30 31 31 30 20 2f 2f 20 64 65 74 74 65 20 70 72 6f 67 72 61 6d 20 65 72 20 75 64 67 ┆--!50110 // dette program er udg┆
0x30860…30880 7d 65 74 20 69 20 44 44 45 2d 43 4f 4d 41 4c 20 76 65 72 73 69 6f 6e 65 6e 35 31 30 31 32 30 20 ┆ået i DDE-COMAL versionen510120 ┆
0x30880…308a0 2f 2f 20 62 65 6e 79 74 20 69 20 73 74 65 64 65 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 46 43 4f ┆// benyt i stedet programmet FCO┆
0x308a0…308c0 50 59 38 30 20 66 72 61 20 44 44 45 31 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆PY80 fra DDE1 ┆
0x308c0…308e0 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 ┆ ┆
[…0x1…]
0x30900…30920 (24, 0, 10) ExtentHdr {name=»RUMFANG2«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0031,03 (0x031300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0031,03 (0x031300)}, f99=41 30 00 fe 00 55 4d 46 41 4e ┆A0 UMFAN┆}
0x30920…30940 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x30940…30960 2d 20 72 75 6d 66 61 6e 67 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- rumfang2 ---------------------┆
0x30960…30980 2d 2d 2d 2d 2d 2d 45 3c 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 66 6f 72 73 6b 65 6c ┆------E<0020 // Udregner forskel┆
0x30980…309a0 6c 69 67 65 20 72 75 6d 66 61 6e 67 20 76 2f 43 41 53 45 20 2d 20 57 48 45 4e 20 2d 20 45 4e 44 ┆lige rumfang v/CASE - WHEN - END┆
0x309a0…309c0 43 41 53 45 3c 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 32 30 30 34 30 20 50 52 49 4e 54 20 22 44 ┆CASE< 0030 CLEAR 20040 PRINT "D┆
0x309c0…309e0 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 ┆ette program udskriver rumfanget┆
0x309e0…30a00 20 61 66 3a 22 32 32 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ af:"220050 PRINT "-------------┆
0x30a00…30a20 (24, 0, 11) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 32 0b 30 30 36 30 20 ┆------------------------"2 0060 ┆
0x30a20…30a40 50 52 49 4e 54 20 0b 16 30 30 37 30 20 50 52 49 4e 54 20 22 31 2e 20 4b 61 73 73 65 2e 22 16 19 ┆PRINT 0070 PRINT "1. Kasse." ┆
0x30a40…30a60 30 30 38 30 20 50 52 49 4e 54 20 22 32 2e 20 50 79 72 61 6d 69 64 65 2e 22 19 1d 30 30 39 30 20 ┆0080 PRINT "2. Pyramide." 0090 ┆
0x30a60…30a80 50 52 49 4e 54 20 22 33 2e 20 50 79 72 61 6d 69 64 65 73 74 75 62 2e 22 1d 19 30 31 30 30 20 50 ┆PRINT "3. Pyramidestub." 0100 P┆
0x30a80…30aa0 52 49 4e 54 20 22 34 2e 20 43 79 6c 69 6e 64 65 72 2e 22 19 16 30 31 31 30 20 50 52 49 4e 54 20 ┆RINT "4. Cylinder." 0110 PRINT ┆
0x30aa0…30ac0 22 35 2e 20 4b 65 67 6c 65 2e 22 16 1a 30 31 32 30 20 50 52 49 4e 54 20 22 36 2e 20 4b 65 67 6c ┆"5. Kegle." 0120 PRINT "6. Kegl┆
0x30ac0…30ae0 65 73 74 75 62 2e 22 1a 16 30 31 33 30 20 50 52 49 4e 54 20 22 37 2e 20 4b 75 67 6c 65 2e 22 16 ┆estub." 0130 PRINT "7. Kugle." ┆
0x30ae0…30b00 0b 30 31 34 30 20 50 52 49 4e 54 20 0b 0b 30 31 35 30 20 50 52 49 4e 54 20 0b 0b 30 31 36 30 20 ┆ 0140 PRINT 0150 PRINT 0160 ┆
0x30b00…30b20 (24, 0, 12) 50 52 49 4e 54 20 0b 0b 30 31 37 30 20 50 52 49 4e 54 20 0b 35 30 31 38 30 20 50 52 49 4e 54 20 ┆PRINT 0170 PRINT 50180 PRINT ┆
0x30b20…30b40 22 49 6e 64 74 61 73 74 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 6e 75 6d 6d 65 72 20 66 6f 72 20 ┆"Indtast det ønskede nummer for ┆
0x30b40…30b60 72 75 6d 66 61 6e 67 3a 22 3b 35 10 30 31 39 30 20 49 4e 50 55 54 20 5c 4e 53 4b 45 10 47 30 32 ┆rumfang:";5 0190 INPUT ØNSKE G02┆
0x30b60…30b80 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆00 // --------------------------┆
0x30b80…30ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x30ba0…30bc0 2d 2d 2d 2d 2d 47 13 30 32 31 30 20 43 41 53 45 20 5c 4e 53 4b 45 20 4f 46 20 13 0b 30 32 32 30 ┆-----G 0210 CASE ØNSKE OF 0220┆
0x30bc0…30be0 20 57 48 45 4e 20 31 0b 36 30 32 33 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e ┆ WHEN 1 60230 INPUT "Indtast læn┆
0x30be0…30c00 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c 5b 4e 47 44 45 36 ┆gde: ":LÆNGDE6┆
0x30c00…30c20 (24, 0, 13) 36 30 32 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 3a 20 20 20 20 ┆60240 INPUT "Indtast bredde: ┆
0x30c20…30c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 36 35 30 32 35 30 20 49 4e ┆ ":BREDDE650250 IN┆
0x30c40…30c60 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆PUT "Indtast højde: ┆
0x30c60…30c80 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 0b 30 32 36 30 20 50 52 49 4e 54 20 0b 43 30 32 37 ┆ ":HØJDE5 0260 PRINT C027┆
0x30c80…30ca0 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 6b 61 73 73 65 6e 3a 20 20 20 ┆0 PRINT "Rumfanget af kassen: ┆
0x30ca0…30cc0 20 20 20 20 20 20 20 20 20 20 20 22 2c 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 ┆ ",LÆNGDE*BREDDE*HØJDE┆
0x30cc0…30ce0 43 0b 30 32 38 30 20 57 48 45 4e 20 32 0b 36 30 32 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 ┆C 0280 WHEN 2 60290 INPUT "Indta┆
0x30ce0…30d00 73 74 20 6c 7b 6e 67 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 4c ┆st længde: ":L┆
0x30d00…30d20 (24, 0, 14) 5b 4e 47 44 45 36 36 30 33 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 ┆ÆNGDE660300 INPUT "Indtast bredd┆
0x30d20…30d40 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 52 45 44 44 45 36 35 30 ┆e: ":BREDDE650┆
0x30d40…30d60 33 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 ┆310 INPUT "Indtast højde: ┆
0x30d60…30d80 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 0b 30 33 32 30 20 50 52 49 4e 54 ┆ ":HØJDE5 0320 PRINT┆
0x30d80…30da0 20 0b 25 30 33 33 30 20 52 55 4d 46 41 4e 47 3a 3d 28 4c 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a ┆ %0330 RUMFANG:=(LÆNGDE*BREDDE*┆
0x30da0…30dc0 48 5c 4a 44 45 29 2f 33 25 37 30 33 34 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 ┆HØJDE)/3%70340 PRINT "Rumfanget ┆
0x30dc0…30de0 61 66 20 64 65 6e 6e 65 20 70 79 72 61 6d 69 64 65 3a 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e ┆af denne pyramide: ",RUMFAN┆
0x30de0…30e00 47 37 0b 30 33 35 30 20 57 48 45 4e 20 33 0b 32 30 33 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 ┆G7 0350 WHEN 3 20360 INPUT "Indt┆
0x30e00…30e20 (24, 0, 15) 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 22 3a ┆ast længden i bundfladen: ":┆
0x30e20…30e40 4c 31 32 32 30 33 37 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 62 72 65 64 64 65 6e 20 ┆L1220370 INPUT "Indtast bredden ┆
0x30e40…30e60 69 20 62 75 6e 64 66 6c 61 64 65 6e 3a 20 20 20 20 20 22 3a 42 31 32 32 30 33 38 30 20 49 4e 50 ┆i bundfladen: ":B1220380 INP┆
0x30e60…30e80 55 54 20 22 49 6e 64 74 61 73 74 20 6c 7b 6e 67 64 65 6e 20 69 20 7c 76 65 72 73 74 65 20 66 6c ┆UT "Indtast længden i øverste fl┆
0x30e80…30ea0 61 64 65 3a 20 20 22 3a 4c 32 32 32 30 33 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 ┆ade: ":L2220390 INPUT "Indtast ┆
0x30ea0…30ec0 62 72 65 64 64 65 6e 20 69 20 7c 76 65 72 73 74 65 20 66 6c 61 64 65 3a 20 20 22 3a 42 32 32 35 ┆bredden i øverste flade: ":B225┆
0x30ec0…30ee0 30 34 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 70 79 72 61 6d 69 64 65 73 74 75 62 ┆0400 INPUT "Indtast pyramidestub┆
0x30ee0…30f00 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 22 3a 48 5c 4a 44 45 35 36 30 34 31 30 20 52 55 4d 46 ┆bens højde: ":HØJDE560410 RUMF┆
0x30f00…30f20 (24, 0, 16) 41 4e 47 3a 3d 28 48 5c 4a 44 45 2f 33 29 2a 28 4c 31 2a 42 31 2b 4c 32 2a 42 32 2b 53 51 52 28 ┆ANG:=(HØJDE/3)*(L1*B1+L2*B2+SQR(┆
0x30f20…30f40 4c 31 2a 42 31 2a 4c 32 2a 42 32 29 29 36 0b 30 34 32 30 20 50 52 49 4e 54 20 0b 37 30 34 33 30 ┆L1*B1*L2*B2))6 0420 PRINT 70430┆
0x30f40…30f60 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 70 79 72 61 6d ┆ PRINT "Rumfanget af denne pyram┆
0x30f60…30f80 69 64 65 73 74 75 62 3a 20 20 22 2c 52 55 4d 46 41 4e 47 37 0b 30 34 34 30 20 57 48 45 4e 20 34 ┆idestub: ",RUMFANG7 0440 WHEN 4┆
0x30f80…30fa0 0b 36 30 34 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e ┆ 60450 INPUT "Indtast cylinderen┆
0x30fa0…30fc0 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 36 35 30 34 36 30 20 49 ┆s radius: ":RADIUS650460 I┆
0x30fc0…30fe0 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 63 79 6c 69 6e 64 65 72 65 6e 73 20 68 7c 6a 64 65 3a ┆NPUT "Indtast cylinderens højde:┆
0x30fe0…31000 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 28 30 34 37 30 20 52 55 4d 46 41 4e 47 3a 3d 28 ┆ ":HØJDE5(0470 RUMFANG:=(┆
0x31000…31020 (24, 1, 1) 33 2e 31 34 2a 52 41 44 49 55 53 2a 52 41 44 49 55 53 2a 48 5c 4a 44 45 29 28 37 30 34 38 30 20 ┆3.14*RADIUS*RADIUS*HØJDE)(70480 ┆
0x31020…31040 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 63 79 6c 69 6e 64 ┆PRINT "Rumfanget af denne cylind┆
0x31040…31060 65 72 3a 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 37 0b 30 34 39 30 20 57 48 45 4e 20 35 0b ┆er: ",RUMFANG7 0490 WHEN 5 ┆
0x31060…31080 36 30 35 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 72 61 64 ┆60500 INPUT "Indtast keglens rad┆
0x31080…310a0 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 36 35 30 35 31 30 20 49 4e ┆ius: ":RADIUS650510 IN┆
0x310a0…310c0 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 ┆PUT "Indtast keglens højde: ┆
0x310c0…310e0 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 35 26 30 35 32 30 20 52 55 4d 46 41 4e 47 3a 3d 28 33 ┆ ":HØJDE5&0520 RUMFANG:=(3┆
0x310e0…31100 2e 31 34 2a 52 41 44 49 55 53 2a 2a 32 2a 48 5c 4a 44 45 29 2f 33 26 37 30 35 33 30 20 50 52 49 ┆.14*RADIUS**2*HØJDE)/3&70530 PRI┆
0x31100…31120 (24, 1, 2) 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 6b 65 67 6c 65 3a 20 20 20 ┆NT "Rumfanget af denne kegle: ┆
0x31120…31140 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 37 0b 30 35 34 30 20 57 48 45 4e 20 36 0b 39 30 35 ┆ ",RUMFANG7 0540 WHEN 6 905┆
0x31140…31160 35 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 ┆50 INPUT "Indtast keglestubbens ┆
0x31160…31180 6e 65 64 65 72 73 74 65 20 72 61 64 69 75 73 3a 20 20 20 22 3a 52 31 39 39 30 35 36 30 20 49 4e ┆nederste radius: ":R1990560 IN┆
0x31180…311a0 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 7c 76 65 72 73 ┆PUT "Indtast keglestubbens øvers┆
0x311a0…311c0 74 65 20 72 61 64 69 75 73 3a 20 20 20 20 22 3a 52 32 39 3c 30 35 37 30 20 49 4e 50 55 54 20 22 ┆te radius: ":R29<0570 INPUT "┆
0x311c0…311e0 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 73 74 75 62 62 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 ┆Indtast keglestubbens højde: ┆
0x311e0…31200 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 3c 30 30 35 38 30 20 52 55 4d 46 41 4e 47 3a 3d ┆ ":HØJDE<00580 RUMFANG:=┆
0x31200…31220 (24, 1, 3) 28 33 2e 31 34 2a 48 5c 4a 44 45 29 2f 33 2a 28 52 31 2a 2a 32 2b 52 32 2a 2a 32 2b 52 31 2a 52 ┆(3.14*HØJDE)/3*(R1**2+R2**2+R1*R┆
0x31220…31240 32 29 30 3e 30 35 39 30 20 50 52 49 4e 54 20 22 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e ┆2)0>0590 PRINT "Rumfanget af den┆
0x31240…31260 6e 65 20 6b 65 67 6c 65 73 74 75 62 3a 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 52 55 4d 46 41 ┆ne keglestub: ",RUMFA┆
0x31260…31280 4e 47 3e 0b 30 36 30 30 20 57 48 45 4e 20 37 0b 3d 30 36 31 30 20 49 4e 50 55 54 20 22 49 6e 64 ┆NG> 0600 WHEN 7 =0610 INPUT "Ind┆
0x31280…312a0 74 61 73 74 20 6b 75 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆tast kuglens radius: ┆
0x312a0…312c0 20 20 20 20 20 20 22 3a 52 41 44 49 55 53 3d 22 30 36 32 30 20 52 55 4d 46 41 4e 47 3a 3d 28 34 ┆ ":RADIUS="0620 RUMFANG:=(4┆
0x312c0…312e0 2a 33 2e 31 34 2a 52 41 44 49 55 53 2a 2a 33 29 2f 33 22 3e 30 36 33 30 20 50 52 49 4e 54 20 22 ┆*3.14*RADIUS**3)/3">0630 PRINT "┆
0x312e0…31300 52 75 6d 66 61 6e 67 65 74 20 61 66 20 64 65 6e 6e 65 20 6b 75 67 6c 65 3a 20 20 20 20 20 20 20 ┆Rumfanget af denne kugle: ┆
0x31300…31320 (24, 1, 4) ExtentHdr {name=»RUMFANG2«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0030,09 (0x030900)}, nextfile={DA 0031,0d (0x031d00)}, f99=41 30 00 20 00 55 4d 46 41 4e ┆A0 UMFAN┆}
0x31320…31340 20 20 20 20 20 20 20 20 20 22 2c 52 55 4d 46 41 4e 47 3e 0f 30 36 34 30 20 4f 54 48 45 52 57 49 ┆ ",RUMFANG> 0640 OTHERWI┆
0x31340…31360 53 45 20 0f 10 30 36 35 30 20 43 55 52 53 4f 52 20 31 2c 32 31 10 38 30 36 36 30 20 50 52 49 4e ┆SE 0650 CURSOR 1,21 80660 PRIN┆
0x31360…31380 54 20 22 44 75 20 68 61 72 20 74 61 73 74 65 74 20 65 74 20 66 6f 72 6b 65 72 74 20 6e 75 6d 6d ┆T "Du har tastet et forkert numm┆
0x31380…313a0 65 72 2e 20 50 72 7c 76 20 69 67 65 6e 2e 22 38 0d 30 36 37 30 20 45 4e 44 43 41 53 45 20 0d 00 ┆er. Prøv igen."8 0670 ENDCASE ┆
0x313a0…313c0 00 41 53 45 3c 0b 30 30 33 30 20 43 4c 45 41 52 20 0b 32 30 30 34 30 20 50 52 49 4e 54 20 22 44 ┆ ASE< 0030 CLEAR 20040 PRINT "D┆
0x313c0…313e0 65 74 74 65 20 70 72 6f 67 72 61 6d 20 75 64 73 6b 72 69 76 65 72 20 72 75 6d 66 61 6e 67 65 74 ┆ette program udskriver rumfanget┆
0x313e0…31400 20 61 66 3a 22 32 32 30 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ af:"220050 PRINT "-------------┆
0x31400…31500 (24, 1, 5) 0x63[0x100]
[…0x8…]
0x31d00…31d20 (24, 1, 14) ExtentHdr {name=»HJERTTXT«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0032,07 (0x032700)}, f99=41 30 00 ff 00 55 4d 46 41 4e ┆A0 UMFAN┆}
0x31d20…31d40 31 31 2e 20 20 48 76 6f 72 20 6d 61 6e 67 65 20 6c 6f 67 69 73 6b 65 20 6f 70 65 72 61 74 6f 72 ┆11. Hvor mange logiske operator┆
0x31d40…31d60 65 72 20 66 69 6e 64 65 73 20 69 20 43 6f 6d 61 6c 3f 31 05 41 2e 20 20 33 05 05 42 2e 20 20 36 ┆er findes i Comal?1 A. 3 B. 6┆
0x31d60…31d80 05 05 43 2e 20 20 39 05 01 41 01 35 32 2e 20 20 49 20 65 6e 20 43 41 53 45 2d 73 7b 74 6e 69 6e ┆ C. 9 A 52. I en CASE-sætnin┆
0x31d80…31da0 67 20 62 72 75 67 65 73 20 4f 54 48 45 52 57 49 53 45 20 73 6f 6d 20 72 65 67 65 6c 20 74 69 6c ┆g bruges OTHERWISE som regel til┆
0x31da0…31dc0 3a 35 25 41 2e 20 20 75 64 73 6b 72 69 66 74 20 61 66 20 72 65 73 74 65 6e 20 61 66 20 65 6c 65 ┆:5%A. udskrift af resten af ele┆
0x31dc0…31de0 6d 65 6e 74 65 72 6e 65 25 22 42 2e 20 20 75 64 73 6b 72 69 66 74 20 61 66 20 6e 65 67 61 74 69 ┆menterne%"B. udskrift af negati┆
0x31de0…31e00 76 65 20 65 6c 65 6d 65 6e 74 65 72 22 1b 43 2e 20 20 75 64 73 6b 72 69 66 74 20 61 66 20 66 65 ┆ve elementer" C. udskrift af fe┆
0x31e00…31e20 (24, 1, 15) 6a 6c 6d 65 6c 64 69 6e 67 1b 01 43 01 18 33 2e 20 20 45 6e 20 70 72 6f 63 65 64 75 72 65 20 6b ┆jlmelding C 3. En procedure k┆
0x31e20…31e40 61 6c 64 65 73 3a 18 11 41 2e 20 20 45 58 45 43 20 75 64 73 6b 72 69 66 74 11 11 42 2e 20 20 50 ┆aldes: A. EXEC udskrift B. P┆
0x31e40…31e60 52 4f 43 20 75 64 73 6b 72 69 66 74 11 13 43 2e 20 20 45 58 45 43 20 22 75 64 73 6b 72 69 66 74 ┆ROC udskrift C. EXEC "udskrift┆
0x31e60…31e80 22 13 01 41 01 28 34 2e 20 20 45 6e 20 70 72 6f 63 65 64 75 72 65 6e 61 76 6e 20 6b 61 6e 20 68 ┆" A (4. En procedurenavn kan h┆
0x31e80…31ea0 7c 6a 73 74 20 62 65 73 74 7d 20 61 66 3a 28 0b 41 2e 20 20 31 31 20 74 65 67 6e 0b 0b 42 2e 20 ┆øjst bestå af:( A. 11 tegn B. ┆
0x31ea0…31ec0 20 31 36 20 74 65 67 6e 0b 0b 43 2e 20 20 31 39 20 74 65 67 6e 0b 01 42 01 24 35 2e 20 20 45 6e ┆ 16 tegn C. 19 tegn B $5. En┆
0x31ec0…31ee0 20 66 6f 72 6d 65 6c 20 70 61 72 61 6d 65 74 65 72 20 66 6f 72 65 6b 6f 6d 6d 65 72 3a 20 24 14 ┆ formel parameter forekommer: $ ┆
0x31ee0…31f00 41 2e 20 20 6b 75 6e 20 69 20 70 72 6f 63 65 64 75 72 65 72 14 18 42 2e 20 20 6b 75 6e 20 69 20 ┆A. kun i procedurer B. kun i ┆
0x31f00…31f20 (24, 1, 16) 45 58 45 43 2d 73 7b 74 6e 69 6e 67 65 72 18 15 43 2e 20 20 69 20 68 65 6c 65 20 70 72 6f 67 72 ┆EXEC-sætninger C. i hele progr┆
0x31f20…31f40 61 6d 6d 65 74 15 01 41 01 3c 36 2e 20 20 48 76 69 6c 6b 65 20 43 6f 6d 61 6c 2d 6f 72 64 20 62 ┆ammet A <6. Hvilke Comal-ord b┆
0x31f40…31f60 65 6e 79 74 74 65 73 20 74 69 6c 20 64 65 66 69 6e 65 72 69 6e 67 20 61 66 20 65 6e 20 66 75 6e ┆enyttes til definering af en fun┆
0x31f60…31f80 6b 74 69 6f 6e 3f 3c 12 41 2e 20 20 50 52 4f 43 20 2d 20 45 4e 44 50 52 4f 43 12 09 42 2e 20 20 ┆ktion?< A. PROC - ENDPROC B. ┆
0x31f80…31fa0 43 4c 45 41 52 09 1a 43 2e 20 20 46 55 4e 4b 54 49 4f 4e 20 2d 20 45 4e 44 46 55 4e 4b 54 49 4f ┆CLEAR C. FUNKTION - ENDFUNKTIO┆
0x31fa0…31fc0 4e 1a 01 41 01 2d 37 2e 20 20 49 20 68 76 69 6c 6b 65 6e 20 6c 7c 6b 6b 65 20 6c 69 67 67 65 72 ┆N A -7. I hvilken løkke ligger┆
0x31fc0…31fe0 20 62 65 74 69 6e 67 65 6c 73 65 6e 20 73 69 64 73 74 3f 2d 12 41 2e 20 20 52 45 50 45 41 54 20 ┆ betingelsen sidst?- A. REPEAT ┆
0x31fe0…32000 2d 20 55 4e 54 49 4c 12 14 42 2e 20 20 57 48 49 4c 45 20 2d 20 45 4e 44 57 48 49 4c 45 14 0e 43 ┆- UNTIL B. WHILE - ENDWHILE C┆
0x32000…32020 (25, 0, 1) 2e 20 20 46 4f 52 20 2d 20 4e 45 58 54 0e 01 41 01 1d 38 2e 20 20 48 76 69 6c 6b 65 6e 20 6c 69 ┆. FOR - NEXT A 8. Hvilken li┆
0x32020…32040 6e 69 65 20 65 72 20 66 6f 72 6b 65 72 74 3f 1d 22 41 2e 20 20 46 4f 52 20 69 3a 3d 31 20 54 4f ┆nie er forkert? "A. FOR i:=1 TO┆
0x32040…32060 20 31 30 30 20 44 4f 20 49 46 20 41 3d 36 20 54 48 45 4e 22 2d 42 2e 20 20 46 4f 52 20 69 3a 3d ┆ 100 DO IF A=6 THEN"-B. FOR i:=┆
0x32060…32080 31 20 54 4f 20 31 30 30 20 44 4f 20 50 52 49 4e 54 20 22 48 41 4e 53 20 45 52 20 44 59 47 54 49 ┆1 TO 100 DO PRINT "HANS ER DYGTI┆
0x32080…320a0 47 22 2d 1f 43 2e 20 20 46 4f 52 20 69 3a 3d 31 20 54 4f 20 31 30 30 20 44 4f 20 2f 2f 20 70 61 ┆G"- C. FOR i:=1 TO 100 DO // pa┆
0x320a0…320c0 75 73 65 1f 01 41 01 35 39 2e 20 20 48 76 69 6c 6b 65 28 6e 29 20 73 74 72 65 6e 67 66 75 6e 6b ┆use A 59. Hvilke(n) strengfunk┆
0x320c0…320e0 74 69 6f 6e 65 72 20 68 61 72 20 73 74 72 65 6e 67 65 20 73 6f 6d 20 76 7b 72 64 69 3f 35 0c 41 ┆tioner har strenge som værdi?5 A┆
0x320e0…32100 2e 20 20 43 48 52 24 20 20 20 20 0c 13 42 2e 20 20 4c 45 4e 2c 20 4f 52 44 20 6f 67 20 41 53 43 ┆. CHR$ B. LEN, ORD og ASC┆
0x32100…32120 (25, 0, 2) 13 0f 43 2e 20 20 66 69 6e 64 65 73 20 69 6b 6b 65 0f 01 41 01 48 31 30 2e 20 48 76 69 6c 6b 65 ┆ C. findes ikke A H10. Hvilke┆
0x32120…32140 6e 20 66 75 6e 6b 74 69 6f 6e 20 74 65 73 74 65 72 20 6f 6d 20 64 65 72 20 65 72 20 66 6c 65 72 ┆n funktion tester om der er fler┆
0x32140…32160 65 20 65 6c 65 6d 65 6e 74 65 72 20 69 20 65 6e 20 44 41 54 41 2d 73 7b 74 6e 69 6e 67 3f 48 07 ┆e elementer i en DATA-sætning?H ┆
0x32160…32180 41 2e 20 20 45 4f 44 07 0d 42 2e 20 20 45 4f 46 28 44 41 54 41 29 0d 25 43 2e 20 20 66 69 6e 64 ┆A. EOD B. EOF(DATA) %C. find┆
0x32180…321a0 65 73 20 69 6b 6b 65 20 69 20 64 65 6e 6e 65 20 43 4f 4d 41 4c 2d 76 65 72 73 69 6f 6e 25 01 43 ┆es ikke i denne COMAL-version% C┆
0x321a0…321c0 01 00 00 49 74 6f 68 20 38 35 31 30 20 20 28 6d 61 74 72 69 78 29 00 d2 13 9e 00 ea d2 16 9e 00 ┆ Itoh 8510 (matrix) ┆
0x321c0…321e0 b9 f2 d5 80 bd ea d8 04 d2 0d 9e 00 ea a6 0f 20 20 20 20 20 49 74 6f 68 20 38 36 30 30 20 00 d2 ┆ Itoh 8600 ┆
0x321e0…32200 13 9e 00 ea d2 16 9e 00 b9 f2 d5 80 be ea d8 04 d2 0d 9e 00 ea a6 11 20 20 20 20 20 4d 69 63 72 ┆ Micr┆
0x32200…32220 (25, 0, 3) 6f 6c 69 6e 65 20 38 33 00 d2 13 9e 00 ea d2 16 9e 00 b9 f2 d5 80 bf ea d8 04 d2 0d 9e 00 ea a6 ┆oline 83 ┆
0x32220…32240 1a 20 20 20 20 20 54 65 78 61 73 20 49 6e 73 74 72 75 6d 65 6e 74 73 20 38 32 35 00 d2 13 9e 00 ┆ Texas Instruments 825 ┆
0x32240…32260 ea d2 16 9e 00 b9 f2 d5 80 c0 ea d8 04 d2 0d 9e 00 ea a6 11 20 20 20 20 20 53 77 69 73 73 20 4d ┆ Swiss M┆
0x32260…32280 61 74 72 69 78 00 d2 13 9e 00 ea d2 16 9e 00 b9 f2 d5 80 c1 ea d8 04 d2 0d 9e 00 ea a6 1c 20 20 ┆atrix ┆
0x32280…322a0 20 20 20 54 61 6c 6c 79 20 4d 61 6e 6e 65 73 6d 61 6e 6e 20 4d 54 31 36 30 32 00 d2 13 9e 00 ea ┆ Tally Mannesmann MT1602 ┆
0x322a0…322c0 d2 16 9e 00 b9 f2 d5 80 c2 b9 f2 d5 80 c4 ea d8 04 d2 0d 9e 00 ea a6 22 20 20 20 20 20 55 6e 6b ┆ " Unk┆
0x322c0…322e0 6e 6f 77 6e 20 62 79 20 74 68 69 73 20 76 65 72 73 69 6f 6e 20 6f 66 20 53 54 00 d2 13 9e 00 ea ┆nown by this version of ST ┆
0x322e0…32300 d2 16 9e 00 b9 7c ac ff 20 00 59 00 b9 f4 48 00 04 00 06 00 08 00 0a 00 0c 00 0e 00 10 00 12 00 ┆ ø Y H ┆
0x32300…32320 (25, 0, 4) 14 00 16 00 18 00 1a 00 1c 00 1e 00 20 00 22 00 24 00 26 00 28 00 2a 00 2c 00 2e 00 30 00 32 00 ┆ " $ & ( * , . 0 2 ┆
0x32320…32340 34 00 36 00 38 00 3a 00 3c 00 3e 00 40 00 42 00 cf 04 a6 04 4d 04 68 02 4c 00 7b 04 50 00 1a 02 ┆4 6 8 : < > @ B M h L æ P ┆
0x32340…32360 e0 01 b1 01 82 01 5a 00 5e 01 5e 00 56 02 00 04 8b 03 b2 02 3b 03 e9 02 44 01 4b 04 15 01 d5 03 ┆ Z ^ ^ V ; D K ┆
0x32360…32380 ef 00 d5 80 c5 d8 01 82 cc 01 b9 f0 d5 80 c6 d5 80 c7 ad 00 08 00 27 05 16 00 cf 00 96 00 04 00 ┆ ' ┆
0x32380…323a0 00 00 10 00 68 05 07 01 d5 80 cc d5 80 cd d5 80 ce ea a6 0b 53 79 73 74 65 6d 20 66 6f 72 20 00 ┆ h System for ┆
0x323a0…323c0 d2 13 9e 00 ea a7 15 00 d2 0d 9e 00 ea a6 0d 20 75 73 65 72 28 73 29 20 61 6e 64 20 00 d2 13 9e ┆ user(s) and ┆
0x323c0…323e0 00 ea a7 16 00 d2 0d 9e 00 ea a6 15 20 62 61 63 6b 67 72 6f 75 6e 64 20 62 61 6e 6b 28 73 29 2e ┆ background bank(s).┆
0x323e0…32400 20 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 d0 a5 1a 02 01 02 88 01 95 c0 10 01 ba a1 33 d5 80 d1 ea ┆ 3 ┆
0x32400…32420 (25, 0, 5) a6 23 53 79 73 74 65 6d 20 73 75 70 70 6f 72 74 73 20 43 50 2f 4d 20 6d 65 6d 6f 72 79 20 62 6f ┆ #System supports CP/M memory bo┆
0x32420…32440 61 72 64 73 2e 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 d2 ea a6 1c 46 69 72 73 74 20 66 72 65 65 20 ┆ards. First free ┆
0x32440…32460 61 64 64 72 65 73 73 20 69 6e 20 72 6f 6f 74 3a 20 00 d2 13 9e 00 ea a5 17 00 d2 13 9e 00 ea d2 ┆address in root: ┆
0x32460…32480 16 9e 00 d5 80 d3 00 a7 1b 01 8b a1 2e d5 80 d3 ea a6 1e 54 65 6c 65 74 79 70 65 20 63 6f 6d 6d ┆ . Teletype comm┆
0x32480…324a0 75 6e 69 63 61 74 69 6f 6e 20 73 75 70 70 6f 72 74 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 d4 01 a7 ┆unication support ┆
0x324a0…324c0 1b 01 8b a1 2e d5 80 d4 ea a6 1e 33 32 37 30 2f 53 4e 41 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f ┆ . 3270/SNA communicatio┆
0x324c0…324e0 6e 20 73 75 70 70 6f 72 74 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 d5 02 a7 1b 01 8b a1 2a d5 80 d5 ┆n support * ┆
0x324e0…32500 ea a6 1a 4a 65 73 32 20 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 75 70 70 6f 72 74 00 d2 13 ┆ Jes2 communication support ┆
0x32500…32520 (25, 0, 6) 9e 00 ea d2 16 9e 00 d5 80 d6 03 a7 1b 01 8b a1 2e d5 80 d6 ea a6 1e 32 37 38 30 2f 42 53 43 20 ┆ . 2780/BSC ┆
0x32520…32540 63 6f 6d 6d 75 6e 69 63 61 74 69 6f 6e 20 73 75 70 70 6f 72 74 00 d2 13 9e 00 ea d2 16 9e 00 d5 ┆communication support ┆
0x32540…32560 80 d7 a7 1c a1 20 d5 80 d7 ea a6 10 47 72 61 70 68 69 63 73 20 73 75 70 70 6f 72 74 00 d2 13 9e ┆ Graphics support ┆
0x32560…32580 00 ea d2 16 9e 00 d5 80 d8 a5 1a 01 01 02 88 01 95 c0 10 01 ba a1 2b d5 80 d8 ea a6 1b 41 75 74 ┆ + Aut┆
0x32580…325a0 6f 6d 61 74 69 63 20 73 74 61 72 74 20 6f 66 20 53 54 41 52 54 3a 50 31 00 d2 13 9e 00 ea d2 16 ┆omatic start of START:P1 ┆
0x325a0…325c0 9e 00 d5 80 d9 ea a6 15 4d 69 6b 61 64 6f 73 20 76 65 72 73 69 6f 6e 20 64 61 74 65 20 00 d2 13 ┆ Mikados version date ┆
0x325c0…325e0 9e 00 ea a5 1d 00 d2 13 9e 00 ea d2 16 9e 00 d5 80 da d5 80 db ad 00 b9 00 00 00 00 07 00 56 02 ┆ V ┆
0x325e0…32600 08 01 d5 80 e1 e9 a6 0b 53 54 20 76 65 72 73 69 6f 6e 20 00 d2 13 9e 00 e9 a6 0a 31 30 2e 30 36 ┆ ST version 10.06┆
0x32600…32620 (25, 0, 7) 2e 31 39 38 33 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 e3 ce 03 d5 80 e5 a5 04 a5 23 cd 52 d5 80 e7 ┆.1983 # R ┆
0x32620…32640 a7 23 01 c3 a1 3e d5 80 e8 e9 a6 2c 53 54 20 62 75 66 66 65 72 20 6e 6f 74 20 61 76 61 69 6c 61 ┆ # > ,ST buffer not availa┆
0x32640…32660 62 6c 65 20 2d 20 70 72 6f 67 72 61 6d 20 74 65 72 6d 69 6e 61 74 65 64 00 d2 13 9e 00 e9 d2 16 ┆ble - program terminated ┆
0x32660…32680 9e 00 b9 61 d5 80 e9 a7 23 02 c3 a1 39 d5 80 ea e9 a6 27 53 54 20 63 61 6e 27 74 20 72 75 6e 20 ┆ a # 9 'ST can't run ┆
0x32680…326a0 75 6e 64 65 72 20 74 68 69 73 20 4d 69 6b 61 64 6f 73 20 76 65 72 73 69 6f 6e 00 d2 13 9e 00 e9 ┆under this Mikados version ┆
0x326a0…326c0 d2 16 9e 00 b9 1f d5 80 ed d5 80 ee ce 04 d5 80 ef ce 05 d5 80 f0 ce 06 d5 80 f1 ce 07 d5 80 f2 ┆ ┆
0x326c0…326e0 ce 08 d5 80 f3 d5 80 f4 ea d2 1a 9e 00 d5 80 f5 e9 a6 0d 53 54 20 74 65 72 6d 69 6e 61 74 65 64 ┆ ST terminated┆
0x326e0…32700 00 d2 13 9e 00 e9 d2 16 9e 00 d5 80 f6 c1 00 00 40 00 06 00 07 00 14 01 01 00 1a 01 76 03 e4 63 ┆ @ v c┆
0x32700…32720 (25, 0, 8) ExtentHdr {name=»POSTTAK1«, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0032,0a (0x032a00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x32720…32740 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x32740…32760 2d 2d 20 70 6f 73 74 74 61 6b 73 74 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- posttakst1 ------------------┆
0x32760…32780 2d 2d 2d 2d 43 38 30 30 32 30 20 2f 2f 20 4c 61 76 20 73 65 6c 76 20 65 6e 20 66 65 6a 6c 6d 65 ┆----C80020 // Lav selv en fejlme┆
0x32780…327a0 6c 64 69 6e 67 20 76 65 64 20 66 6f 72 6b 65 72 74 20 69 6e 64 74 61 73 74 6e 69 6e 67 2e 38 08 ┆lding ved forkert indtastning.8 ┆
0x327a0…327c0 30 30 33 30 20 2f 2f 20 08 0b 30 30 34 30 20 43 4c 45 41 52 20 0b 0f 30 30 35 30 20 43 55 52 53 ┆0030 // 0040 CLEAR 0050 CURS┆
0x327c0…327e0 4f 52 20 31 2c 35 0f 35 30 30 36 30 20 49 4e 50 55 54 20 22 42 72 65 76 65 74 73 20 76 7b 67 74 ┆OR 1,5 50060 INPUT "Brevets vægt┆
0x327e0…32800 3a 20 28 69 6b 6b 65 20 6f 76 65 72 20 31 30 30 30 20 67 29 20 20 20 22 3a 56 5b 47 54 35 2b 30 ┆: (ikke over 1000 g) ":VÆGT5+0┆
0x32800…32820 (25, 0, 9) 30 37 30 20 49 46 20 30 3c 56 5b 47 54 20 41 4e 44 20 56 5b 47 54 3c 3d 32 30 20 54 48 45 4e 20 ┆070 IF 0<VÆGT AND VÆGT<=20 THEN ┆
0x32820…32840 50 4f 52 54 4f 3a 3d 32 35 30 2b 2d 30 30 38 30 20 49 46 20 56 5b 47 54 3e 32 30 20 41 4e 44 20 ┆PORTO:=250+-0080 IF VÆGT>20 AND ┆
0x32840…32860 56 5b 47 54 3c 3d 31 30 30 20 54 48 45 4e 20 50 4f 52 54 4f 3a 3d 33 35 30 2d 2e 30 30 39 30 20 ┆VÆGT<=100 THEN PORTO:=350-.0090 ┆
0x32860…32880 49 46 20 56 5b 47 54 3e 31 30 30 20 41 4e 44 20 56 5b 47 54 3c 3d 32 35 30 20 54 48 45 4e 20 50 ┆IF VÆGT>100 AND VÆGT<=250 THEN P┆
0x32880…328a0 4f 52 54 4f 3a 3d 35 30 30 2e 2e 30 31 30 30 20 49 46 20 56 5b 47 54 3e 32 35 30 20 41 4e 44 20 ┆ORTO:=500..0100 IF VÆGT>250 AND ┆
0x328a0…328c0 56 5b 47 54 3c 3d 35 30 30 20 54 48 45 4e 20 50 4f 52 54 4f 3a 3d 38 30 30 2e 30 30 31 31 30 20 ┆VÆGT<=500 THEN PORTO:=800.00110 ┆
0x328c0…328e0 49 46 20 35 30 30 3c 56 5b 47 54 20 41 4e 44 20 56 5b 47 54 3c 3d 31 30 30 30 20 54 48 45 4e 20 ┆IF 500<VÆGT AND VÆGT<=1000 THEN ┆
0x328e0…32900 50 4f 52 54 4f 3a 3d 31 32 30 30 30 10 30 31 32 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 42 30 ┆PORTO:=12000 0120 CURSOR 1,12 B0┆
0x32900…32920 (25, 0, 10) 31 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 42 72 65 76 65 74 73 20 76 7b 67 74 3a 20 20 ┆130 PRINT USING "Brevets vægt: ┆
0x32920…32940 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 20 67 2e 20 20 20 22 3a 56 5b 47 ┆ ##### g. ":VÆG┆
0x32940…32960 54 42 47 30 31 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 50 6f 72 74 6f 3a 20 20 20 20 20 ┆TBG0140 PRINT USING "Porto: ┆
0x32960…32980 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 2e 23 23 20 6b 72 2e 20 20 22 ┆ #####.## kr. "┆
0x32980…329a0 3a 50 4f 52 54 4f 2f 31 30 30 47 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆:PORTO/100G ccccccccccccccccccc┆
0x329a0…329c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x32a00…32a20 (25, 0, 11) ExtentHdr {name=»SUM_BRØ2«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0032,0f (0x032f00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x32a20…32a40 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 75 ┆?0010 // -------------------- su┆
0x32a40…32a60 6d 5f 62 72 7c 6b 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆m_brøk_2 -----------------------┆
0x32a60…32a80 3f 43 30 30 31 35 20 49 4e 54 45 47 45 52 20 44 49 56 49 44 45 4e 44 31 2c 44 49 56 49 44 45 4e ┆?C0015 INTEGER DIVIDEND1,DIVIDEN┆
0x32a80…32aa0 44 32 2c 44 49 56 49 53 4f 52 31 2c 44 49 56 49 53 4f 52 32 2c 44 49 56 49 44 45 4e 44 2c 44 49 ┆D2,DIVISOR1,DIVISOR2,DIVIDEND,DI┆
0x32aa0…32ac0 56 49 53 4f 52 43 08 30 30 32 30 20 2f 2f 20 08 14 30 30 33 30 20 50 52 4f 43 20 46 4e 53 46 44 ┆VISORC 0020 // 0030 PROC FNSFD┆
0x32ac0…32ae0 28 4e 2c 4d 29 14 12 30 30 34 30 20 57 48 49 4c 45 20 4d 3e 30 20 44 4f 20 12 12 30 30 35 30 20 ┆(N,M) 0040 WHILE M>0 DO 0050 ┆
0x32ae0…32b00 52 45 53 54 3a 3d 4e 20 4d 4f 44 20 4d 12 11 30 30 36 30 20 4e 3a 3d 4d 3b 4d 3a 3d 52 45 53 54 ┆REST:=N MOD M 0060 N:=M;M:=REST┆
0x32b00…32b20 (25, 0, 12) 11 0e 30 30 37 30 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 30 38 30 20 46 4e 53 46 44 3a 3d 4e 0d ┆ 0070 ENDWHILE 0080 FNSFD:=N ┆
0x32b20…32b40 12 30 30 39 30 20 45 4e 44 50 52 4f 43 20 46 4e 53 46 44 12 08 30 31 30 30 20 2f 2f 20 08 28 30 ┆ 0090 ENDPROC FNSFD 0100 // (0┆
0x32b40…32b60 31 31 30 20 50 52 4f 43 20 46 4f 52 4b 4f 52 54 28 52 45 46 20 54 5b 4c 4c 45 52 2c 52 45 46 20 ┆110 PROC FORKORT(REF TÆLLER,REF ┆
0x32b60…32b80 4e 5b 56 4e 45 52 29 28 21 30 31 32 30 20 46 41 4b 54 4f 52 3a 3d 46 4e 53 46 44 28 54 5b 4c 4c ┆NÆVNER)(!0120 FAKTOR:=FNSFD(TÆLL┆
0x32b80…32ba0 45 52 2c 4e 5b 56 4e 45 52 29 21 1a 30 31 33 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2f ┆ER,NÆVNER)! 0130 TÆLLER:=TÆLLER/┆
0x32ba0…32bc0 46 41 4b 54 4f 52 1a 1a 30 31 34 30 20 4e 5b 56 4e 45 52 3a 3d 4e 5b 56 4e 45 52 2f 46 41 4b 54 ┆FAKTOR 0140 NÆVNER:=NÆVNER/FAKT┆
0x32bc0…32be0 4f 52 1a 14 30 31 35 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 4b 4f 52 54 14 08 30 31 36 30 20 2f ┆OR 0150 ENDPROC FORKORT 0160 /┆
0x32be0…32c00 2f 20 08 0b 30 31 37 30 20 43 4c 45 41 52 20 0b 0b 30 31 37 35 20 50 52 49 4e 54 20 0b 48 30 31 ┆/ 0170 CLEAR 0175 PRINT H01┆
0x32c00…32c20 (25, 0, 13) 38 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 66 7c 72 73 74 65 20 62 72 7c 6b 73 20 74 ┆80 INPUT "Indtast første brøks t┆
0x32c20…32c40 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 20 22 3a 44 49 56 49 44 45 4e 44 31 2c 44 49 ┆æller og nævner: ":DIVIDEND1,DI┆
0x32c40…32c60 56 49 53 4f 52 31 48 48 30 31 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 64 65 ┆VISOR1HH0190 INPUT "Indtast ande┆
0x32c60…32c80 6e 20 62 72 7c 6b 73 20 74 7b 6c 6c 65 72 20 6f 67 20 6e 7b 76 6e 65 72 3a 20 20 20 22 3a 44 49 ┆n brøks tæller og nævner: ":DI┆
0x32c80…32ca0 56 49 44 45 4e 44 32 2c 44 49 56 49 53 4f 52 32 48 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 30 30 ┆VIDEND2,DIVISOR2H 0200 PRINT 00┆
0x32ca0…32cc0 32 31 30 20 50 52 49 4e 54 20 22 28 22 3b 44 49 56 49 44 45 4e 44 31 3b 22 29 2f 28 22 3b 44 49 ┆210 PRINT "(";DIVIDEND1;")/(";DI┆
0x32cc0…32ce0 56 49 53 4f 52 31 3b 22 29 20 2b 20 28 22 3b 30 2b 30 32 32 30 20 50 52 49 4e 54 20 44 49 56 49 ┆VISOR1;") + (";0+0220 PRINT DIVI┆
0x32ce0…32d00 44 45 4e 44 32 3b 22 29 2f 28 22 3b 44 49 56 49 53 4f 52 32 3b 22 29 20 3d 20 22 3b 2b 34 30 32 ┆DEND2;")/(";DIVISOR2;") = ";+402┆
0x32d00…32d20 (25, 0, 14) 33 30 20 44 49 56 49 44 45 4e 44 3a 3d 44 49 56 49 44 45 4e 44 31 2a 44 49 56 49 53 4f 52 32 2b ┆30 DIVIDEND:=DIVIDEND1*DIVISOR2+┆
0x32d20…32d40 44 49 56 49 44 45 4e 44 32 2a 44 49 56 49 53 4f 52 31 34 1f 30 32 34 30 20 44 49 56 49 53 4f 52 ┆DIVIDEND2*DIVISOR14 0240 DIVISOR┆
0x32d40…32d60 3a 3d 44 49 56 49 53 4f 52 31 2a 44 49 56 49 53 4f 52 32 1f 23 30 32 35 30 20 46 4f 52 54 45 47 ┆:=DIVISOR1*DIVISOR2 #0250 FORTEG┆
0x32d60…32d80 4e 3a 3d 53 47 4e 28 44 49 56 49 44 45 4e 44 2a 44 49 56 49 53 4f 52 29 23 1c 30 32 36 30 20 44 ┆N:=SGN(DIVIDEND*DIVISOR)# 0260 D┆
0x32d80…32da0 49 56 49 44 45 4e 44 3a 3d 41 42 53 28 44 49 56 49 44 45 4e 44 29 1c 1a 30 32 37 30 20 44 49 56 ┆IVIDEND:=ABS(DIVIDEND) 0270 DIV┆
0x32da0…32dc0 49 53 4f 52 3a 3d 41 42 53 28 44 49 56 49 53 4f 52 29 1a 23 30 32 38 30 20 45 58 45 43 20 46 4f ┆ISOR:=ABS(DIVISOR) #0280 EXEC FO┆
0x32dc0…32de0 52 4b 4f 52 54 28 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 29 23 08 30 32 39 30 20 2f 2f ┆RKORT(DIVIDEND,DIVISOR)# 0290 //┆
0x32de0…32e00 20 08 1e 30 33 30 30 20 49 46 20 46 4f 52 54 45 47 4e 3d 30 20 54 48 45 4e 20 50 52 49 4e 54 20 ┆ 0300 IF FORTEGN=0 THEN PRINT ┆
0x32e00…32e20 (25, 0, 15) 30 1e 22 30 33 31 30 20 49 46 20 46 4f 52 54 45 47 4e 3d 2d 31 20 54 48 45 4e 20 50 52 49 4e 54 ┆0 "0310 IF FORTEGN=-1 THEN PRINT┆
0x32e20…32e40 20 22 2d 22 3b 22 18 30 33 32 30 20 49 46 20 46 4f 52 54 45 47 4e 3c 3e 30 20 54 48 45 4e 20 18 ┆ "-";" 0320 IF FORTEGN<>0 THEN ┆
0x32e40…32e60 17 30 33 33 30 20 49 46 20 44 49 56 49 53 4f 52 3d 31 20 54 48 45 4e 20 17 13 30 33 34 30 20 50 ┆ 0330 IF DIVISOR=1 THEN 0340 P┆
0x32e60…32e80 52 49 4e 54 20 44 49 56 49 44 45 4e 44 13 0a 30 33 35 30 20 45 4c 53 45 20 0a 1f 30 33 36 30 20 ┆RINT DIVIDEND 0350 ELSE 0360 ┆
0x32e80…32ea0 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 3b 22 2f 22 3b 44 49 56 49 53 4f 52 1f 0b 30 33 37 30 ┆PRINT DIVIDEND;"/";DIVISOR 0370┆
0x32ea0…32ec0 20 45 4e 44 49 46 20 0b 0b 30 33 38 30 20 45 4e 44 49 46 20 0b 00 00 63 63 63 63 63 63 63 63 63 ┆ ENDIF 0380 ENDIF ccccccccc┆
0x32ec0…32ee0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x32f00…32f20 (25, 0, 16) ExtentHdr {name=»SPAR_TES«, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 0033,09 (0x033900)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0033,09 (0x033900)}, f99=41 32 00 fe 00 00 00 00 00 00 ┆A2 ┆}
0x32f20…32f40 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆
0x32f40…32f60 20 73 70 61 72 2d 74 65 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ spar-test ---------------------┆
0x32f60…32f80 2d 2d 2d 2d 43 08 30 31 31 30 20 2f 2f 20 08 45 30 31 32 30 20 44 49 4d 20 54 41 4c 24 20 4f 46 ┆----C 0110 // E0120 DIM TAL$ OF┆
0x32f80…32fa0 20 33 2c 53 56 24 20 4f 46 20 32 2c 4e 41 56 4e 24 20 4f 46 20 32 30 2c 54 52 55 24 28 31 30 29 ┆ 3,SV$ OF 2,NAVN$ OF 20,TRU$(10)┆
0x32fa0…32fc0 20 4f 46 20 31 2c 53 50 5c 52 24 28 34 30 29 20 4f 46 20 38 30 45 29 30 31 33 30 20 44 49 4d 20 ┆ OF 1,SPØR$(40) OF 80E)0130 DIM ┆
0x32fc0…32fe0 52 45 54 55 52 24 20 4f 46 20 32 2c 46 41 24 20 4f 46 20 31 2c 46 24 28 31 30 29 20 4f 46 20 31 ┆RETUR$ OF 2,FA$ OF 1,F$(10) OF 1┆
0x32fe0…33000 29 48 30 31 34 30 20 44 49 4d 20 54 45 53 54 4e 41 56 4e 31 24 20 4f 46 20 34 30 2c 54 45 53 54 ┆)H0140 DIM TESTNAVN1$ OF 40,TEST┆
0x33000…33020 (25, 1, 1) 4e 41 56 4e 32 24 20 4f 46 20 34 30 2c 51 55 45 53 54 46 49 4c 24 20 4f 46 20 31 37 2c 54 58 54 ┆NAVN2$ OF 40,QUESTFIL$ OF 17,TXT┆
0x33020…33040 46 49 4c 24 20 4f 46 20 31 37 48 2c 30 31 35 30 20 49 4e 54 45 47 45 52 20 53 55 4d 2c 54 41 4c ┆FIL$ OF 17H,0150 INTEGER SUM,TAL┆
0x33040…33060 4e 52 2c 4d 2c 4e 55 4d 4d 45 52 2c 41 2c 4a 2c 49 2c 53 50 52 49 4e 47 2c 26 30 31 36 30 20 54 ┆NR,M,NUMMER,A,J,I,SPRING,&0160 T┆
0x33060…33080 45 53 54 4e 41 56 4e 31 24 3a 3d 22 53 20 50 20 41 20 52 20 2d 20 54 20 45 20 53 20 54 20 2e 22 ┆ESTNAVN1$:="S P A R - T E S T ."┆
0x33080…330a0 26 2a 30 31 37 30 20 54 45 53 54 4e 41 56 4e 32 24 3a 3d 22 20 20 20 20 73 20 70 20 61 20 72 20 ┆&*0170 TESTNAVN2$:=" s p a r ┆
0x330a0…330c0 2d 20 74 20 65 20 73 20 74 20 20 22 2a 1f 30 31 38 30 20 54 58 54 46 49 4c 24 3a 3d 22 53 59 53 ┆- t e s t "* 0180 TXTFIL$:="SYS┆
0x330c0…330e0 54 49 4d 45 3a 53 50 41 52 54 58 54 22 1f 4a 30 31 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆TIME:SPARTXT" J0190 // ---------┆
0x330e0…33100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33100…33120 (25, 1, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 30 32 30 30 20 ┆-------------------------J 0200 ┆
0x33120…33140 45 58 45 43 20 48 4f 56 45 44 0f 12 30 32 31 30 20 45 58 45 43 20 46 4f 52 53 49 44 45 4e 12 0e ┆EXEC HOVED 0210 EXEC FORSIDEN ┆
0x33140…33160 30 32 32 30 20 45 58 45 43 20 56 41 4c 47 0e 4a 30 32 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆0220 EXEC VALG J0230 // --------┆
0x33160…33180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33180…331a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 30 32 34 30 ┆--------------------------J 0240┆
0x331a0…331c0 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 32 35 30 20 43 4c 45 41 52 20 0b 10 30 32 36 30 20 43 ┆ PROC HOVED 0250 CLEAR 0260 C┆
0x331c0…331e0 55 52 53 4f 52 20 31 33 2c 34 10 35 30 32 37 30 20 50 52 49 4e 54 20 22 20 56 20 45 20 4c 20 4b ┆URSOR 13,4 50270 PRINT " V E L K┆
0x331e0…33200 20 4f 20 4d 20 4d 20 45 20 4e 20 20 20 54 20 49 20 4c 20 20 20 22 3b 54 45 53 54 4e 41 56 4e 31 ┆ O M M E N T I L ";TESTNAVN1┆
0x33200…33220 (25, 1, 3) 24 35 10 30 32 38 30 20 43 55 52 53 4f 52 20 31 33 2c 35 10 43 30 32 39 30 20 50 52 49 4e 54 20 ┆$5 0280 CURSOR 13,5 C0290 PRINT ┆
0x33220…33240 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆"-------------------------------┆
0x33240…33260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 43 10 30 33 30 30 20 43 ┆-----------------------"C 0300 C┆
0x33260…33280 55 52 53 4f 52 20 31 35 2c 38 10 2a 30 33 31 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 69 ┆URSOR 15,8 *0310 INPUT "Skriv di┆
0x33280…332a0 74 20 6e 61 76 6e 20 68 65 72 3a 20 20 20 20 22 3a 4e 41 56 4e 24 2a 11 30 33 32 30 20 43 55 52 ┆t navn her: ":NAVN$* 0320 CUR┆
0x332a0…332c0 53 4f 52 20 32 30 2c 31 32 11 12 30 33 33 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 12 4a 30 ┆SOR 20,12 0330 ENDPROC HOVED J0┆
0x332c0…332e0 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆340 // -------------------------┆
0x332e0…33300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33300…33320 (25, 1, 4) 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 30 33 35 30 20 50 52 4f 43 20 56 41 4c 47 0e 1f 30 33 36 30 20 ┆---------J 0350 PROC VALG 0360 ┆
0x33320…33340 53 55 4d 3a 3d 30 3b 4d 3a 3d 31 3b 41 3a 3d 30 3b 4e 55 4d 4d 45 52 3a 3d 30 1f 0b 30 33 37 30 ┆SUM:=0;M:=1;A:=0;NUMMER:=0 0370┆
0x33340…33360 20 43 4c 45 41 52 20 0b 11 30 33 38 30 20 43 55 52 53 4f 52 20 33 30 2c 31 32 11 1e 30 33 39 30 ┆ CLEAR 0380 CURSOR 30,12 0390┆
0x33360…33380 20 50 52 49 4e 54 20 22 20 4c 69 67 65 20 65 74 20 7c 6a 65 62 6c 69 6b 21 22 1e 10 30 34 30 30 ┆ PRINT " Lige et øjeblik!" 0400┆
0x33380…333a0 20 45 58 45 43 20 46 49 4c 4c 5b 53 10 10 30 34 31 30 20 45 58 45 43 20 46 52 5d 47 41 4e 10 0b ┆ EXEC FILLÆS 0410 EXEC FRÅGAN ┆
0x333a0…333c0 30 34 32 30 20 43 4c 45 41 52 20 0b 10 30 34 33 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 3b 30 ┆0420 CLEAR 0430 CURSOR 10,3 ;0┆
0x333c0…333e0 34 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 66 7d 65 74 20 22 3b 53 55 4d 3b 22 20 72 ┆440 PRINT "Du har fået ";SUM;" r┆
0x333e0…33400 69 67 74 69 67 65 20 73 76 61 72 20 61 66 20 31 30 20 6d 75 6c 69 67 65 2e 22 3b 10 30 34 35 30 ┆igtige svar af 10 mulige."; 0450┆
0x33400…33420 (25, 1, 5) 20 43 55 52 53 4f 52 20 31 30 2c 38 10 30 30 34 36 30 20 50 52 49 4e 54 20 22 44 75 20 6b 61 6e ┆ CURSOR 10,8 00460 PRINT "Du kan┆
0x33420…33440 20 76 7b 6c 67 65 20 6d 65 6c 6c 65 6d 20 74 72 65 20 6d 75 6c 69 67 68 65 64 65 72 3a 22 30 11 ┆ vælge mellem tre muligheder:"0 ┆
0x33440…33460 30 34 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 4b 30 34 38 30 20 50 52 49 4e 54 20 22 31 ┆0470 CURSOR 10,12 K0480 PRINT "1┆
0x33460…33480 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 62 65 64 72 65 20 64 69 74 20 72 65 ┆. Ønsker du at forbedre dit re┆
0x33480…334a0 73 75 6c 74 61 74 20 76 65 64 20 61 74 20 62 65 67 79 6e 64 65 20 66 6f 72 66 72 61 3f 22 4b 11 ┆sultat ved at begynde forfra?"K ┆
0x334a0…334c0 30 34 39 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 46 30 35 30 30 20 50 52 49 4e 54 20 22 32 ┆0490 CURSOR 10,14 F0500 PRINT "2┆
0x334c0…334e0 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 6d 6d 65 ┆. Ønsker du dit resultat samme┆
0x334e0…33500 6e 6c 69 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 20 22 46 11 30 35 31 30 20 ┆nlignet med det rigtige "F 0510 ┆
0x33500…33520 (25, 1, 6) 43 55 52 53 4f 52 20 31 30 2c 31 35 11 28 30 35 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 53 ┆CURSOR 10,15 (0520 PRINT " S┆
0x33520…33540 6b 72 65 76 65 74 20 75 64 20 70 7d 20 70 72 69 6e 74 65 72 3f 22 28 11 30 35 33 30 20 43 55 52 ┆krevet ud på printer?"( 0530 CUR┆
0x33540…33560 53 4f 52 20 31 30 2c 31 37 11 45 30 35 34 30 20 50 52 49 4e 54 20 22 33 2e 20 20 20 5c 6e 73 6b ┆SOR 10,17 E0540 PRINT "3. Ønsk┆
0x33560…33580 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 6d 6d 65 6e 6c 69 67 6e 65 74 20 ┆er du dit resultat sammenlignet ┆
0x33580…335a0 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 22 45 11 30 35 35 30 20 43 55 52 53 4f 52 20 31 30 ┆med det rigtige"E 0550 CURSOR 10┆
0x335a0…335c0 2c 31 38 11 28 30 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 53 6b 72 65 76 65 74 20 75 64 ┆,18 (0560 PRINT " Skrevet ud┆
0x335c0…335e0 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 28 0b 30 35 37 30 20 50 52 49 4e 54 20 0b 0b 30 35 38 30 ┆ på skærmen?"( 0570 PRINT 0580┆
0x335e0…33600 20 50 52 49 4e 54 20 0b 11 30 35 39 30 20 43 55 52 53 4f 52 20 31 30 2c 32 31 11 2b 30 36 30 30 ┆ PRINT 0590 CURSOR 10,21 +0600┆
0x33600…33620 (25, 1, 7) 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 74 61 6c 3a 20 20 ┆ INPUT "Skriv det ønskede tal: ┆
0x33620…33640 22 3a 54 41 4c 4e 52 2b 0c 30 36 31 30 20 52 45 50 45 41 54 20 0c 11 30 36 32 30 20 43 55 52 53 ┆":TALNR+ 0610 REPEAT 0620 CURS┆
0x33640…33660 4f 52 20 33 33 2c 32 31 11 15 30 36 33 30 20 49 46 20 54 41 4c 4e 52 3d 31 20 54 48 45 4e 20 15 ┆OR 33,21 0630 IF TALNR=1 THEN ┆
0x33660…33680 0e 30 36 34 30 20 45 58 45 43 20 56 41 4c 47 0e 0b 30 36 35 30 20 43 4c 45 41 52 20 0b 0b 30 36 ┆ 0640 EXEC VALG 0650 CLEAR 06┆
0x33680…336a0 36 30 20 50 52 49 4e 54 20 0b 0a 30 36 37 30 20 45 4c 53 45 20 0a 15 30 36 38 30 20 49 46 20 54 ┆60 PRINT 0670 ELSE 0680 IF T┆
0x336a0…336c0 41 4c 4e 52 3d 32 20 54 48 45 4e 20 15 0e 30 36 39 30 20 53 50 52 49 4e 47 3a 3d 30 0e 14 30 37 ┆ALNR=2 THEN 0690 SPRING:=0 07┆
0x336c0…336e0 30 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 52 45 53 14 0f 30 37 31 30 20 45 58 45 43 20 53 4b ┆00 EXEC PRINTERRES 0710 EXEC SK┆
0x336e0…33700 52 49 56 0f 16 30 37 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 12 30 37 33 ┆RIV 0720 SELECT OUTPUT "T" 073┆
0x33700…33720 (25, 1, 8) 30 20 45 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0a 30 37 34 30 20 45 4c 53 45 20 0a 15 30 37 35 ┆0 EXEC ELECTION 0740 ELSE 075┆
0x33720…33740 30 20 49 46 20 54 41 4c 4e 52 3d 33 20 54 48 45 4e 20 15 0e 30 37 36 30 20 53 50 52 49 4e 47 3a ┆0 IF TALNR=3 THEN 0760 SPRING:┆
0x33740…33760 3d 31 0e 0f 30 37 37 30 20 45 58 45 43 20 53 4b 52 49 56 0f 12 30 37 38 30 20 45 58 45 43 20 45 ┆=1 0770 EXEC SKRIV 0780 EXEC E┆
0x33760…33780 4c 45 43 54 49 4f 4e 12 0b 30 37 39 30 20 45 4e 44 49 46 20 0b 0b 30 38 30 30 20 45 4e 44 49 46 ┆LECTION 0790 ENDIF 0800 ENDIF┆
0x33780…337a0 20 0b 0b 30 38 31 30 20 45 4e 44 49 46 20 0b 28 30 38 32 30 20 55 4e 54 49 4c 20 54 41 4c 4e 52 ┆ 0810 ENDIF (0820 UNTIL TALNR┆
0x337a0…337c0 3d 30 20 4f 52 20 54 41 4c 4e 52 3d 31 20 4f 52 20 54 41 4c 4e 52 3d 32 28 11 30 38 33 30 20 45 ┆=0 OR TALNR=1 OR TALNR=2( 0830 E┆
0x337c0…337e0 4e 44 50 52 4f 43 20 56 41 4c 47 11 48 30 38 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NDPROC VALG H0840 // -----------┆
0x337e0…33800 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33800…33820 (25, 1, 9) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0f 30 38 35 30 20 50 52 4f 43 ┆---------------------H 0850 PROC┆
0x33820…33840 20 53 4b 52 49 56 0f 1c 30 38 36 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 4c ┆ SKRIV 0860 IF SPRING=1 THEN CL┆
0x33840…33860 45 41 52 20 1c 0b 30 38 36 38 20 50 52 49 4e 54 20 0b 20 30 38 36 39 20 49 46 20 53 50 52 49 4e ┆EAR 0868 PRINT 0869 IF SPRIN┆
0x33860…33880 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 31 20 46 30 38 37 30 20 50 52 49 4e 54 20 ┆G=1 THEN CURSOR 1,1 F0870 PRINT ┆
0x33880…338a0 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆" ***************┆
0x338a0…338c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 46 3d 30 38 38 ┆**************************"F=088┆
0x338c0…338e0 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 20 ┆0 PRINT " * ┆
0x338e0…33900 20 20 20 22 3b 54 45 53 54 4e 41 56 4e 32 24 3b 22 20 20 20 20 20 20 20 2a 22 3d 46 30 38 39 30 ┆ ";TESTNAVN2$;" *"=F0890┆
0x33900…33920 (25, 1, 10) ExtentHdr {name=»SPAR_TES«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0034,03 (0x034300)}, prevext={DA 0032,0f (0x032f00)}, nextfile={DA 0034,03 (0x034300)}, f99=41 32 00 20 00 00 00 00 00 00 ┆A2 ┆}
0x33920…33940 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a ┆ PRINT " ********┆
0x33940…33960 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x33960…33980 2a 22 46 3c 30 39 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*"F<0900 PRINT " ┆
0x33980…339a0 2a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4e 41 56 4e 24 3b 54 41 42 28 35 37 29 3b 22 2a 22 ┆* ";NAVN$;TAB(57);"*"┆
0x339a0…339c0 3c 46 30 39 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a ┆<F0910 PRINT " **┆
0x339c0…339e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x339e0…33a00 2a 2a 2a 2a 2a 2a 2a 22 46 20 30 39 32 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 ┆*******"F 0920 IF SPRING=1 THEN ┆
0x33a00…33a20 (25, 1, 11) 43 55 52 53 4f 52 20 31 2c 37 20 0b 30 39 33 30 20 50 52 49 4e 54 20 0b 46 30 39 34 30 20 50 52 ┆CURSOR 1,7 0930 PRINT F0940 PR┆
0x33a20…33a40 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 22 3b 54 41 42 28 33 35 29 3b 22 44 69 74 ┆INT "Spørgsmål nr.";TAB(35);"Dit┆
0x33a40…33a60 20 62 75 64 3a 22 3b 54 41 42 28 35 30 29 3b 22 52 69 67 74 69 67 65 20 66 61 63 69 74 3a 22 46 ┆ bud:";TAB(50);"Rigtige facit:"F┆
0x33a60…33a80 4d 30 39 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0950 PRINT "-------------------┆
0x33a80…33aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33aa0…33ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 30 39 36 30 20 50 52 49 4e 54 20 0b 17 30 39 37 ┆-------------"M 0960 PRINT 097┆
0x33ac0…33ae0 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 30 39 38 30 20 49 46 20 54 52 ┆0 FOR A:=1 TO 10 DO 0980 IF TR┆
0x33ae0…33b00 55 24 28 41 29 3c 3e 46 24 28 41 29 20 54 48 45 4e 20 1c 49 30 39 39 30 20 50 52 49 4e 54 20 22 ┆U$(A)<>F$(A) THEN I0990 PRINT "┆
0x33b00…33b20 (25, 1, 12) 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 28 41 ┆Spørgsmål nr. ";A;TAB(38);TRU$(A┆
0x33b20…33b40 29 3b 54 41 42 28 35 37 29 3b 46 24 28 41 29 2c 22 20 20 20 20 20 20 20 20 2a 2a 2a 22 49 0a 31 ┆);TAB(57);F$(A)," ***"I 1┆
0x33b40…33b60 30 30 30 20 45 4c 53 45 20 0a 3b 31 30 31 30 20 50 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c ┆000 ELSE ;1010 PRINT "Spørgsmål┆
0x33b60…33b80 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 28 41 29 3b 54 41 42 28 35 37 29 ┆ nr. ";A;TAB(38);TRU$(A);TAB(57)┆
0x33b80…33ba0 3b 46 24 28 41 29 3b 0b 31 30 32 30 20 45 4e 44 49 46 20 0b 0b 31 30 33 30 20 4e 45 58 54 20 41 ┆;F$(A); 1020 ENDIF 1030 NEXT A┆
0x33ba0…33bc0 0b 0b 31 30 34 30 20 50 52 49 4e 54 20 0b 4d 31 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d ┆ 1040 PRINT M1050 PRINT "-----┆
0x33bc0…33be0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33be0…33c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 31 30 ┆---------------------------"M 10┆
0x33c00…33c20 (25, 1, 13) 36 30 20 50 52 49 4e 54 20 0b 16 31 30 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e ┆60 PRINT 1070 IF SPRING=1 THEN┆
0x33c20…33c40 20 16 11 31 30 38 30 20 43 55 52 53 4f 52 20 36 37 2c 32 34 11 1c 31 30 39 30 20 49 4e 50 55 54 ┆ 1080 CURSOR 67,24 1090 INPUT┆
0x33c40…33c60 20 22 52 65 74 75 72 6e 21 20 22 3a 52 45 54 55 52 24 1c 0b 31 31 30 30 20 45 4e 44 49 46 20 0b ┆ "Return! ":RETUR$ 1100 ENDIF ┆
0x33c60…33c80 12 31 31 31 30 20 45 4e 44 50 52 4f 43 20 53 4b 52 49 56 12 46 31 31 32 30 20 2f 2f 20 2d 2d 2d ┆ 1110 ENDPROC SKRIV F1120 // ---┆
0x33c80…33ca0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33ca0…33cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 10 31 31 33 ┆---------------------------F 113┆
0x33cc0…33ce0 30 20 50 52 4f 43 20 46 49 4c 4c 5b 53 10 13 31 31 34 30 20 4f 50 45 4e 20 54 58 54 46 49 4c 24 ┆0 PROC FILLÆS 1140 OPEN TXTFIL$┆
0x33ce0…33d00 2c 52 13 17 31 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 16 31 31 36 ┆,R 1150 FOR I:=1 TO 10 DO 116┆
0x33d00…33d20 (25, 1, 14) 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 21 31 31 37 30 20 47 45 54 20 54 58 ┆0 FOR J:=1 TO 4 DO !1170 GET TX┆
0x33d20…33d40 54 46 49 4c 24 3a 53 50 5c 52 24 28 28 49 2d 31 29 2a 34 2b 4a 29 21 0b 31 31 38 30 20 4e 45 58 ┆TFIL$:SPØR$((I-1)*4+J)! 1180 NEX┆
0x33d40…33d60 54 20 4a 0b 16 31 31 39 30 20 47 45 54 20 54 58 54 46 49 4c 24 3a 46 24 28 49 29 16 0b 31 32 30 ┆T J 1190 GET TXTFIL$:F$(I) 120┆
0x33d60…33d80 30 20 4e 45 58 54 20 49 0b 12 31 32 31 30 20 43 4c 4f 53 45 20 54 58 54 46 49 4c 24 12 13 31 32 ┆0 NEXT I 1210 CLOSE TXTFIL$ 12┆
0x33d80…33da0 32 30 20 45 4e 44 50 52 4f 43 20 46 49 4c 4c 5b 53 13 4a 31 32 33 30 20 2f 2f 20 2d 2d 2d 2d 2d ┆20 ENDPROC FILLÆS J1230 // -----┆
0x33da0…33dc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x33dc0…33de0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 31 ┆-----------------------------J 1┆
0x33de0…33e00 32 34 30 20 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 12 0c 31 32 35 30 20 52 45 50 45 41 54 20 0c ┆240 PROC ELECTION 1250 REPEAT ┆
0x33e00…33e20 (25, 1, 15) 10 31 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 0b 31 32 37 30 20 43 4c 45 41 52 20 0b 10 ┆ 1260 CURSOR 1,22 1270 CLEAR ┆
0x33e20…33e40 31 32 38 30 20 43 55 52 53 4f 52 20 31 30 2c 37 10 42 31 32 39 30 20 50 52 49 4e 54 20 22 44 75 ┆1280 CURSOR 10,7 B1290 PRINT "Du┆
0x33e40…33e60 20 66 7d 72 20 6e 75 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 20 61 74 20 76 7b 6c 67 65 20 6d 65 ┆ får nu mulighed for at vælge me┆
0x33e60…33e80 6c 6c 65 6d 20 66 7c 6c 67 65 6e 64 65 20 74 69 6e 67 2e 22 42 0b 31 33 30 30 20 50 52 49 4e 54 ┆llem følgende ting."B 1300 PRINT┆
0x33e80…33ea0 20 0b 11 31 33 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 2e 31 33 32 30 20 50 52 49 4e 54 ┆ 1310 CURSOR 10,12 .1320 PRINT┆
0x33ea0…33ec0 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 62 65 67 79 6e 64 65 20 66 6f 72 66 ┆ "1. Ønsker du at begynde forf┆
0x33ec0…33ee0 72 61 3f 22 2e 11 31 33 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 41 31 33 34 30 20 50 52 ┆ra?". 1330 CURSOR 10,14 A1340 PR┆
0x33ee0…33f00 49 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 73 ┆INT "2. Ønsker du at se alle s┆
0x33f00…33f20 (25, 1, 16) 70 7c 72 67 73 6d 7d 6c 65 6e 65 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 3f 22 41 11 31 33 35 30 ┆pørgsmålene på printeren?"A 1350┆
0x33f20…33f40 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3f 31 33 36 30 20 50 52 49 4e 54 20 22 33 2e 20 20 20 ┆ CURSOR 10,16 ?1360 PRINT "3. ┆
0x33f40…33f60 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 73 70 7c 72 67 73 6d 7d 6c 65 6e ┆Ønsker du at se alle spørgsmålen┆
0x33f60…33f80 65 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 3f 11 31 33 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 ┆e på skærmen?"? 1370 CURSOR 10,1┆
0x33f80…33fa0 38 11 29 31 33 38 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 ┆8 )1380 PRINT "4. Ønsker du at┆
0x33fa0…33fc0 20 73 6c 75 74 74 65 20 6e 75 3f 22 29 11 31 33 39 30 20 43 55 52 53 4f 52 20 31 30 2c 32 32 11 ┆ slutte nu?") 1390 CURSOR 10,22 ┆
0x33fc0…33fe0 2d 31 34 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 6e ┆-1400 INPUT "Skriv det ønskede n┆
0x33fe0…34000 75 6d 6d 65 72 3a 20 20 20 22 3a 53 56 24 2d 19 31 34 31 30 20 43 41 53 45 20 4f 52 44 28 53 56 ┆ummer: ":SV$- 1410 CASE ORD(SV┆
0x34000…34020 (26, 0, 1) 24 28 31 29 29 20 4f 46 20 19 0c 31 34 32 30 20 57 48 45 4e 20 34 39 0c 0e 31 34 33 30 20 45 58 ┆$(1)) OF 1420 WHEN 49 1430 EX┆
0x34020…34040 45 43 20 56 41 4c 47 0e 0c 31 34 34 30 20 57 48 45 4e 20 35 30 0c 11 31 34 35 30 20 45 58 45 43 ┆EC VALG 1440 WHEN 50 1450 EXEC┆
0x34040…34060 20 50 52 49 4e 54 45 52 11 0c 31 34 36 30 20 57 48 45 4e 20 35 31 0c 0f 31 34 37 30 20 45 58 45 ┆ PRINTER 1460 WHEN 51 1470 EXE┆
0x34060…34080 43 20 53 4b 5b 52 4d 0f 0c 31 34 38 30 20 57 48 45 4e 20 35 32 0c 0e 31 34 39 30 20 45 58 45 43 ┆C SKÆRM 1480 WHEN 52 1490 EXEC┆
0x34080…340a0 20 53 4c 55 54 0e 0d 31 35 30 30 20 45 4e 44 43 41 53 45 20 0d 0c 31 35 31 30 20 55 4e 54 49 4c ┆ SLUT 1500 ENDCASE 1510 UNTIL┆
0x340a0…340c0 20 30 0c 15 31 35 32 30 20 45 4e 44 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 15 43 31 35 33 30 20 ┆ 0 1520 ENDPROC ELECTION C1530 ┆
0x340c0…340e0 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆// -----------------------------┆
0x340e0…34100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 0e ┆------------------------------C ┆
0x34100…34120 (26, 0, 2) 31 35 34 30 20 50 52 4f 43 20 53 4c 55 54 0e 10 31 35 35 30 20 43 55 52 53 4f 52 20 31 2c 32 34 ┆1540 PROC SLUT 1550 CURSOR 1,24┆
0x34120…34140 10 37 31 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 53 7d 20 67 7d 72 20 76 69 20 ┆ 71560 PRINT " Så går vi ┆
0x34140…34160 76 69 64 65 72 65 20 74 69 6c 20 6e 7b 73 74 65 20 61 66 73 6e 69 74 2e 22 37 09 31 35 37 30 20 ┆videre til næste afsnit."7 1570 ┆
0x34160…34180 45 4e 44 20 09 11 31 35 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 42 31 35 39 30 20 2f 2f ┆END 1580 ENDPROC SLUT B1590 //┆
0x34180…341a0 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x341a0…341c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 42 0f 31 36 30 ┆---------------------------B 160┆
0x341c0…341e0 30 20 50 52 4f 43 20 53 4b 5b 52 4d 0f 0e 31 36 31 30 20 53 50 52 49 4e 47 3a 3d 31 0e 0d 31 36 ┆0 PROC SKÆRM 1610 SPRING:=1 16┆
0x341e0…34200 32 30 20 45 58 45 43 20 4c 5b 53 0d 12 31 36 33 30 20 45 4e 44 50 52 4f 43 20 53 4b 5b 52 4d 12 ┆20 EXEC LÆS 1630 ENDPROC SKÆRM ┆
0x34200…34220 (26, 0, 3) 43 31 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C1640 // -----------------------┆
0x34220…34240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34240…34260 2d 2d 2d 2d 43 0d 31 36 35 30 20 50 52 4f 43 20 4c 5b 53 0d 17 31 36 36 30 20 46 4f 52 20 41 3a ┆----C 1650 PROC LÆS 1660 FOR A:┆
0x34260…34280 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 31 36 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 ┆=1 TO 10 DO 1670 IF SPRING=1 T┆
0x34280…342a0 48 45 4e 20 43 4c 45 41 52 20 1c 09 31 36 38 30 20 4b 3a 3d 38 09 16 31 36 39 30 20 46 4f 52 20 ┆HEN CLEAR 1680 K:=8 1690 FOR ┆
0x342a0…342c0 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 31 37 30 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 ┆J:=1 TO 4 DO #1700 IF SPRING=1 ┆
0x342c0…342e0 54 48 45 4e 20 43 55 52 53 4f 52 20 31 32 2c 4b 2b 4a 23 23 31 37 31 30 20 50 52 49 4e 54 20 54 ┆THEN CURSOR 12,K+J##1710 PRINT T┆
0x342e0…34300 41 42 28 31 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 11 31 37 32 30 20 49 46 ┆AB(12);SPØR$((A-1)*4+J)# 1720 IF┆
0x34300…34320 (26, 0, 4) ExtentHdr {name=»SPAR_TES«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0034,0d (0x034d00)}, prevext={DA 0033,09 (0x033900)}, nextfile={DA 0034,0d (0x034d00)}, f99=41 32 00 20 00 00 00 00 00 00 ┆A2 ┆}
0x34320…34340 20 4a 3d 31 20 54 48 45 4e 20 11 0b 31 37 33 30 20 4b 3a 3d 4b 2b 34 0b 0b 31 37 34 30 20 45 4e ┆ J=1 THEN 1730 K:=K+4 1740 EN┆
0x34340…34360 44 49 46 20 0b 0b 31 37 35 30 20 4e 45 58 54 20 4a 0b 0b 31 37 36 30 20 50 52 49 4e 54 20 0b 16 ┆DIF 1750 NEXT J 1760 PRINT ┆
0x34360…34380 31 37 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 16 11 31 37 38 30 20 43 55 52 ┆1770 IF SPRING=1 THEN 1780 CUR┆
0x34380…343a0 53 4f 52 20 37 30 2c 32 30 11 1b 31 37 39 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a ┆SOR 70,20 1790 INPUT "Return!":┆
0x343a0…343c0 52 45 54 55 52 24 1b 0b 31 38 30 30 20 45 4e 44 49 46 20 0b 0b 31 38 31 30 20 4e 45 58 54 20 41 ┆RETUR$ 1800 ENDIF 1810 NEXT A┆
0x343c0…343e0 0b 10 31 38 32 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 46 31 38 33 30 20 2f 2f 20 2d 2d 2d 2d ┆ 1820 ENDPROC LÆS F1830 // ----┆
0x343e0…34400 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34400…34420 (26, 0, 5) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 14 31 38 34 30 ┆--------------------------F 1840┆
0x34420…34440 20 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 14 16 31 38 35 30 20 53 45 4c 45 43 54 20 4f 55 ┆ PROC PRINTERRES 1850 SELECT OU┆
0x34440…34460 54 50 55 54 20 22 50 22 16 1b 31 38 36 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 ┆TPUT "P" 1860 IF STATUS("P")=1 ┆
0x34460…34480 54 48 45 4e 20 1b 10 31 38 37 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 38 31 38 38 30 20 50 52 ┆THEN 1870 CURSOR 1,23 81880 PR┆
0x34480…344a0 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 20 ┆INT "<Z>Printeren er reserveret ┆
0x344a0…344c0 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 38 43 31 38 39 30 20 49 4e 50 55 54 20 22 3c ┆af anden bruger,"8C1890 INPUT "<┆
0x344c0…344e0 53 3e 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 76 ┆S>skal der ventes på at den bliv┆
0x344e0…34500 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 56 24 43 20 31 39 30 30 20 49 46 20 ┆er ledig? (j/n) ":SV$C 1900 IF ┆
0x34500…34520 (26, 0, 6) 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 45 4e 20 20 10 31 39 31 30 20 43 ┆SV$="J" OR SV$="j" THEN 1910 C┆
0x34520…34540 55 52 53 4f 52 20 31 2c 32 33 10 10 31 39 32 30 20 50 52 49 4e 54 20 22 3c 5a 3e 22 10 3e 31 39 ┆URSOR 1,23 1920 PRINT "<Z>" >19┆
0x34540…34560 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 72 ┆30 PRINT "<S>Der ventes på at pr┆
0x34560…34580 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 2e 2e 2e 22 3e 2d 31 39 ┆interen bliver ledig.......">-19┆
0x34580…345a0 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 43 54 ┆40 WHILE STATUS("P")=1 DO SELECT┆
0x345a0…345c0 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 31 39 35 30 20 45 4e 44 49 46 20 0b 0b 31 39 36 30 20 45 ┆ OUTPUT "P"- 1950 ENDIF 1960 E┆
0x345c0…345e0 4e 44 49 46 20 0b 17 31 39 37 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 17 11 ┆NDIF 1970 ENDPROC PRINTERRES ┆
0x345e0…34600 31 39 38 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 14 31 39 39 30 20 45 58 45 43 20 50 52 49 ┆1980 PROC PRINTER 1990 EXEC PRI┆
0x34600…34620 (26, 0, 7) 4e 54 45 52 52 45 53 14 0e 32 30 30 30 20 53 50 52 49 4e 47 3a 3d 30 0e 0d 32 30 31 30 20 45 58 ┆NTERRES 2000 SPRING:=0 2010 EX┆
0x34620…34640 45 43 20 4c 5b 53 0d 16 32 30 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 14 ┆EC LÆS 2020 SELECT OUTPUT "T" ┆
0x34640…34660 32 30 33 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 43 32 30 34 30 20 2f 2f 20 2d 2d ┆2030 ENDPROC PRINTER C2040 // --┆
0x34660…34680 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34680…346a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 10 32 30 35 30 20 ┆-------------------------C 2050 ┆
0x346a0…346c0 50 52 4f 43 20 46 52 5d 47 41 4e 10 17 32 30 36 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 ┆PROC FRÅGAN 2060 FOR A:=1 TO 10┆
0x346c0…346e0 20 44 4f 20 17 0b 32 30 37 30 20 43 4c 45 41 52 20 0b 16 32 30 38 30 20 46 4f 52 20 4a 3a 3d 31 ┆ DO 2070 CLEAR 2080 FOR J:=1┆
0x346e0…34700 20 54 4f 20 34 20 44 4f 20 16 23 32 30 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 32 29 3b 53 50 ┆ TO 4 DO #2090 PRINT TAB(12);SP┆
0x34700…34720 (26, 0, 8) 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 12 32 31 30 30 20 43 55 52 53 4f 52 20 31 32 2c 4a ┆ØR$((A-1)*4+J)# 2100 CURSOR 12,J┆
0x34720…34740 2b 34 12 0b 32 31 31 30 20 4e 45 58 54 20 4a 0b 10 32 31 32 30 20 45 58 45 43 20 52 45 53 54 45 ┆+4 2110 NEXT J 2120 EXEC RESTE┆
0x34740…34760 4e 10 0b 32 31 33 30 20 4e 45 58 54 20 41 0b 13 32 31 34 30 20 45 4e 44 50 52 4f 43 20 46 52 5d ┆N 2130 NEXT A 2140 ENDPROC FRÅ┆
0x34760…34780 47 41 4e 13 4b 32 31 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆GAN K2150 // -------------------┆
0x34780…347a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x347a0…347c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 10 32 31 36 30 20 50 52 4f 43 20 52 45 53 54 ┆----------------K 2160 PROC REST┆
0x347c0…347e0 45 4e 10 11 32 31 37 30 20 43 55 52 53 4f 52 20 31 32 2c 31 36 11 3a 32 31 38 30 20 50 52 49 4e ┆EN 2170 CURSOR 12,16 :2180 PRIN┆
0x347e0…34800 54 20 22 45 72 20 64 65 74 20 73 70 7c 72 67 73 6d 7d 6c 20 41 2c 42 20 65 6c 6c 65 72 20 43 2c ┆T "Er det spørgsmål A,B eller C,┆
0x34800…34820 (26, 0, 9) 20 64 65 72 20 65 72 20 72 69 67 74 69 67 74 3f 22 3a 11 32 31 39 30 20 43 55 52 53 4f 52 20 31 ┆ der er rigtigt?": 2190 CURSOR 1┆
0x34820…34840 32 2c 31 38 11 30 32 32 30 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 41 2c 20 42 20 65 6c 6c 65 ┆2,18 02200 INPUT "Tast A, B elle┆
0x34840…34860 72 20 43 3a 20 20 20 20 20 20 20 20 20 22 3a 54 52 55 24 28 41 29 30 2b 32 32 31 30 20 49 46 20 ┆r C: ":TRU$(A)0+2210 IF ┆
0x34860…34880 22 61 22 3c 3d 54 52 55 24 28 41 29 20 41 4e 44 20 22 7d 22 3d 3e 54 52 55 24 28 41 29 20 54 48 ┆"a"<=TRU$(A) AND "å"=>TRU$(A) TH┆
0x34880…348a0 45 4e 20 2b 23 32 32 32 30 20 54 52 55 24 28 41 29 3a 3d 43 48 52 24 28 4f 52 44 28 54 52 55 24 ┆EN +#2220 TRU$(A):=CHR$(ORD(TRU$┆
0x348a0…348c0 28 41 29 29 2d 33 32 29 23 0b 32 32 33 30 20 45 4e 44 49 46 20 0b 29 32 32 34 30 20 49 46 20 54 ┆(A))-32)# 2230 ENDIF )2240 IF T┆
0x348c0…348e0 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 34 32 29 ┆RU$(A)=F$(A) THEN PRINT CHR$(42)┆
0x348e0…34900 29 25 32 32 35 30 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 53 55 4d ┆)%2250 IF TRU$(A)=F$(A) THEN SUM┆
0x34900…34920 (26, 0, 10) 3a 3d 53 55 4d 2b 31 25 13 32 32 36 30 20 45 4e 44 50 52 4f 43 20 52 45 53 54 45 4e 13 4d 32 32 ┆:=SUM+1% 2260 ENDPROC RESTEN M22┆
0x34920…34940 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆70 // --------------------------┆
0x34940…34960 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x34960…34980 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 08 32 32 38 30 20 2f 2f 20 08 08 32 32 39 30 20 2f 2f 20 08 ┆-----------M 2280 // 2290 // ┆
0x34980…349a0 08 32 33 30 30 20 2f 2f 20 08 12 32 33 31 30 20 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 12 0b 32 ┆ 2300 // 2310 PROC FORSIDEN 2┆
0x349a0…349c0 33 32 30 20 43 4c 45 41 52 20 0b 0f 32 33 33 30 20 43 55 52 53 4f 52 20 35 2c 32 0f 11 32 33 34 ┆320 CLEAR 2330 CURSOR 5,2 234┆
0x349c0…349e0 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 33 35 30 20 46 4f 52 20 58 3a 3d 36 20 54 4f ┆0 PRINT "<S>*" 2350 FOR X:=6 TO┆
0x349e0…34a00 20 37 34 20 44 4f 20 17 11 32 33 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 33 37 30 ┆ 74 DO 2360 PRINT "<S>-" 2370┆
0x34a00…34a20 (26, 0, 11) 20 4e 45 58 54 20 58 0b 11 32 33 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 33 39 30 ┆ NEXT X 2380 PRINT "<S>*" 2390┆
0x34a20…34a40 20 43 55 52 53 4f 52 20 31 30 2c 35 10 11 32 34 30 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 ┆ CURSOR 10,5 2400 PRINT "<S>*" ┆
0x34a40…34a60 18 32 34 31 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 4f 20 18 11 32 34 32 30 20 ┆ 2410 FOR X:=11 TO 69 DO 2420 ┆
0x34a60…34a80 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 34 33 30 20 4e 45 58 54 20 58 0b 11 32 34 34 30 20 ┆PRINT "<S>-" 2430 NEXT X 2440 ┆
0x34a80…34aa0 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 34 35 30 20 43 55 52 53 4f 52 20 35 2c 31 35 10 11 ┆PRINT "<S>*" 2450 CURSOR 5,15 ┆
0x34aa0…34ac0 32 34 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 34 37 30 20 46 4f 52 20 58 3a 3d 36 ┆2460 PRINT "<S>*" 2470 FOR X:=6┆
0x34ac0…34ae0 20 54 4f 20 37 34 20 44 4f 20 17 11 32 34 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 ┆ TO 74 DO 2480 PRINT "<S>-" 2┆
0x34ae0…34b00 34 39 30 20 4e 45 58 54 20 58 0b 11 32 35 30 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 11 32 ┆490 NEXT X 2500 PRINT "<S>*" 2┆
0x34b00…34b20 (26, 0, 12) 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 11 32 35 32 30 20 50 52 49 4e 54 20 22 3c 53 ┆510 CURSOR 10,12 2520 PRINT "<S┆
0x34b20…34b40 3e 2a 22 11 18 32 35 33 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 4f 20 18 11 32 ┆>*" 2530 FOR X:=11 TO 69 DO 2┆
0x34b40…34b60 35 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 35 35 30 20 4e 45 58 54 20 58 0b 11 32 ┆540 PRINT "<S>-" 2550 NEXT X 2┆
0x34b60…34b80 35 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 35 37 30 20 46 4f 52 20 59 3a 3d 36 20 ┆560 PRINT "<S>*" 2570 FOR Y:=6 ┆
0x34b80…34ba0 54 4f 20 31 31 20 44 4f 20 17 10 32 35 38 30 20 43 55 52 53 4f 52 20 31 30 2c 59 10 0e 32 35 39 ┆TO 11 DO 2580 CURSOR 10,Y 259┆
0x34ba0…34bc0 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 30 30 20 4e 45 58 54 20 59 0b 1f 32 36 31 30 20 46 ┆0 PRINT "!" 2600 NEXT Y 2610 F┆
0x34bc0…34be0 4f 52 20 59 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 0f 32 36 32 30 20 ┆OR Y:=14 TO 3 STEP -1 DO 2620 ┆
0x34be0…34c00 43 55 52 53 4f 52 20 35 2c 59 0f 0e 32 36 33 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 34 30 ┆CURSOR 5,Y 2630 PRINT "!" 2640┆
0x34c00…34c20 (26, 0, 13) 20 4e 45 58 54 20 59 0b 17 32 36 35 30 20 46 4f 52 20 59 3a 3d 36 20 54 4f 20 31 31 20 44 4f 20 ┆ NEXT Y 2650 FOR Y:=6 TO 11 DO ┆
0x34c20…34c40 17 10 32 36 36 30 20 43 55 52 53 4f 52 20 37 30 2c 59 10 0e 32 36 37 30 20 50 52 49 4e 54 20 22 ┆ 2660 CURSOR 70,Y 2670 PRINT "┆
0x34c40…34c60 21 22 0e 0b 32 36 38 30 20 4e 45 58 54 20 59 0b 1f 32 36 39 30 20 46 4f 52 20 59 3a 3d 31 34 20 ┆!" 2680 NEXT Y 2690 FOR Y:=14 ┆
0x34c60…34c80 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 32 37 30 30 20 43 55 52 53 4f 52 20 37 35 ┆TO 3 STEP -1 DO 2700 CURSOR 75┆
0x34c80…34ca0 2c 59 10 0e 32 37 31 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 37 32 30 20 4e 45 58 54 20 59 0b ┆,Y 2710 PRINT "!" 2720 NEXT Y ┆
0x34ca0…34cc0 10 32 37 33 30 20 43 55 52 53 4f 52 20 32 35 2c 39 10 15 32 37 34 30 20 50 52 49 4e 54 20 54 45 ┆ 2730 CURSOR 25,9 2740 PRINT TE┆
0x34cc0…34ce0 53 54 4e 41 56 4e 31 24 15 10 32 37 35 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 43 32 37 36 30 ┆STNAVN1$ 2750 CURSOR 5,20 C2760┆
0x34ce0…34d00 20 50 52 49 4e 54 20 22 50 7d 20 64 65 20 6e 7b 73 74 65 20 73 69 64 65 72 20 76 69 6c 20 64 75 ┆ PRINT "På de næste sider vil du┆
0x34d00…34d20 (26, 0, 14) ExtentHdr {name=»SPAR_TES«, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0034,03 (0x034300)}, nextfile={DA 0035,07 (0x035700)}, f99=41 32 00 20 00 00 00 00 00 00 ┆A2 ┆}
0x34d20…34d40 20 66 7d 20 31 30 20 73 70 7c 72 67 73 6d 7d 6c 20 6d 65 64 20 74 72 65 20 73 76 61 72 2e 22 43 ┆ få 10 spørgsmål med tre svar."C┆
0x34d40…34d60 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 20 50 52 49 4e 54 20 22 4b ┆ 2770 CURSOR 5,21 J2780 PRINT "K┆
0x34d60…34d80 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 74 69 67 74 2c 73 7d 20 64 ┆un et af svarene er rigtigt,så d┆
0x34d80…34da0 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 2c 20 42 20 22 3b 4a 15 32 ┆u skal enten indtaste A, B ";J 2┆
0x34da0…34dc0 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 38 30 30 20 43 55 52 53 4f ┆790 PRINT "eller C." 2800 CURSO┆
0x34dc0…34de0 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 56 ┆R 70,23 2810 INPUT "Return!":SV┆
0x34de0…34e00 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 15 00 00 2c 54 45 53 54 ┆$ 2820 ENDPROC FORSIDEN ,TEST┆
0x34e00…34e20 (26, 0, 15) 1a 00 08 02 d5 81 a5 a5 4a a7 42 01 18 88 01 95 a4 28 be 4f c3 a1 16 d5 81 a6 a5 4a a7 42 01 18 ┆ J B ( O J B ┆
0x34e20…34e40 88 01 95 a4 28 be 00 4f 88 ab 41 b9 16 d5 81 a7 a5 4a a7 42 01 18 88 01 95 a4 28 be 01 82 00 4f ┆ ( O A J B ( O┆
0x34e40…34e60 88 ab 41 d5 81 a8 cd 00 22 d5 81 a9 ad 00 00 00 00 00 06 00 50 00 09 02 d5 81 ad a7 8b 19 00 4f ┆ A " P O┆
0x34e60…34e80 88 ab 41 d5 81 ae cd 00 22 d5 81 af d8 ae 06 d5 81 b0 ad 00 00 00 02 00 06 00 22 00 0a 02 d5 81 ┆ A " " ┆
0x34e80…34ea0 b4 a7 41 4f c9 a1 3d d5 81 b6 d5 81 b7 d5 81 b8 a7 41 01 82 00 4f 88 ab 41 d5 81 b9 a5 8a f1 a7 ┆ AO = A O A ┆
0x34ea0…34ec0 41 9b be b3 06 b9 54 00 00 11 00 00 00 00 00 00 00 00 06 8b a7 41 4f c3 8d a1 f6 d5 81 ba cd 00 ┆A T AO ┆
0x34ec0…34ee0 22 d5 81 bb d5 81 bc ad 00 00 3d 00 00 00 00 00 09 00 54 00 0b 02 d5 81 c0 d8 01 c5 a1 0f d5 81 ┆" = T ┆
0x34ee0…34f00 c2 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 c3 d8 00 c5 a7 45 93 84 a1 1e d5 81 c4 d5 81 c5 18 ┆ Warten E ┆
0x34f00…34f20 (26, 0, 16) cd 00 11 d5 81 c6 18 cd 00 12 d5 81 c7 d8 01 95 cc 01 d5 81 c8 b9 f6 d5 81 c9 cd 00 21 d5 81 ca ┆ ! ┆
0x34f20…34f40 cd 00 22 d5 81 cb ad 00 38 00 00 00 02 00 08 00 5a 00 0c 02 d5 81 cf d8 01 c5 a1 0f d5 81 d1 06 ┆ " 8 Z ┆
0x34f40…34f60 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 d2 d8 00 c5 a7 47 18 c4 84 a1 1e d5 81 d3 d5 81 d4 18 cd ┆ Warten G ┆
0x34f60…34f80 00 13 d5 81 d5 18 cd 00 10 d5 81 d6 d8 01 95 cc 01 d5 81 d7 b9 f6 d5 81 d8 d8 00 c5 a7 47 00 c5 ┆ G ┆
0x34f80…34fa0 84 a1 1e d5 81 da d5 81 db a7 47 cd 00 13 d5 81 dc a7 47 cd 00 15 d5 81 dd a7 47 cd 00 10 d5 81 ┆ G G G ┆
0x34fa0…34fc0 de d5 81 df cd 00 21 d5 81 e0 cd 00 22 d5 81 e1 ad 00 64 00 00 00 02 00 08 00 86 00 0d 02 d5 81 ┆ ! " d ┆
0x34fc0…34fe0 e5 a7 47 00 c5 a1 f0 d5 81 e7 d5 81 e8 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 81 e9 a7 47 18 c9 ┆ G Warten G ┆
0x34fe0…35000 a1 20 d5 81 eb d5 81 ec a7 47 cd 00 13 d5 81 ed a7 47 cd 00 15 d5 81 ee a7 47 cd 00 10 d5 81 ef ┆ G G G ┆
0x35000…35020 (26, 1, 1) b9 f2 d5 81 f1 d5 81 f2 18 cd 00 13 d5 81 f3 a7 47 ab 49 18 01 82 cc 01 a7 49 d8 c4 a1 2e d5 81 ┆ G I I . ┆
0x35020…35040 f4 d5 81 f5 a5 88 1a a5 87 f2 cd 56 d5 81 f6 a5 89 78 a5 87 f2 00 d2 13 9e 00 a5 89 78 d2 16 9e ┆ V x x ┆
0x35040…35060 00 d5 81 f7 a7 49 01 95 ab 49 b9 f6 d5 81 f8 18 00 18 88 ab 42 01 00 18 88 cc 01 a7 42 d8 c4 a1 ┆ I I B B ┆
0x35060…35080 1b d5 81 f9 a5 88 1a a5 4a a7 42 01 18 88 01 95 a4 28 cd 56 a7 42 01 95 ab 42 b9 f4 d5 81 fa 00 ┆ J B ( V B B ┆
0x35080…350a0 ab 47 d5 81 fb d5 81 fc 01 00 18 88 ab 42 d5 81 fd 01 00 4f 88 ab 41 d5 81 fe cd 00 21 d5 81 ff ┆ G B O A ! ┆
0x350a0…350c0 cd 00 22 d5 82 00 b9 05 d5 82 02 ae 07 d5 82 03 ad 00 0a 00 2f 00 5b 00 a0 00 02 00 00 00 0e 00 ┆ " / Æ ┆
0x350c0…350e0 02 01 0e 02 d5 82 07 a7 45 93 a1 f4 d5 82 09 d5 82 0a 06 a6 06 57 61 72 74 65 6e cd 00 1a d5 82 ┆ E Warten ┆
0x350e0…35100 0b 18 cd 00 11 d5 82 0c a5 89 78 a5 87 f2 cd 56 d5 82 0d 9e 22 0c cb a1 31 d5 82 0e d5 82 0f a5 ┆ x V " 1 ┆
0x35100…35120 (26, 1, 2) 88 1a a5 87 f2 00 d2 13 9e 00 a5 88 1a d2 16 9e 00 d5 82 10 a7 47 01 82 ab 47 d5 82 11 a5 89 78 ┆ G G x┆
0x35120…35140 a5 87 f2 cd 56 d5 82 12 b9 f6 d5 82 13 18 01 95 cd 00 10 d5 82 14 a5 4a 18 01 18 88 01 95 a4 28 ┆ V J (┆
0x35140…35160 a6 00 aa 4f d5 82 15 01 ab 45 d5 82 16 18 ab 46 d5 82 17 18 00 18 88 ab 42 d5 82 18 01 00 4f 63 ┆ O E F B Oc┆
0x35160…35180 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x4…]
0x35200…35300 (26, 1, 3) 0x63[0x100]
[…0x1…]
0x35400…35420 (26, 1, 5) 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x354e0…35500 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 b6 ┆ccccccccccccccccccccccccccccccc ┆
0x35500…35520 (26, 1, 6) 4c 4f 41 44 32 20 20 20 30 41 00 08 00 00 00 00 00 00 00 44 00 1c 00 00 00 01 00 00 00 00 00 00 ┆LOAD2 0A D ┆
0x35520…35540 4f 41 44 20 20 20 20 20 53 30 20 20 50 41 50 31 e9 05 b2 11 8f 11 0f 00 e9 05 61 04 61 04 50 20 ┆OAD S0 PAP1 a a P ┆
0x35540…35560 00 ba 00 ba ff bf 20 20 20 02 a7 01 08 0d 01 ff 02 00 00 13 76 76 76 76 76 76 76 76 76 76 76 76 ┆ vvvvvvvvvvvv┆
0x35560…35580 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
0x35580…355a0 76 76 76 76 76 76 76 76 76 76 4d 4c 4f 41 44 20 20 20 30 41 00 08 00 00 00 00 00 00 00 13 00 0d ┆vvvvvvvvvvMLOAD 0A ┆
0x355a0…355c0 02 02 83 13 00 0d 01 00 20 00 a4 03 e0 00 14 00 05 00 00 b2 13 00 0d 76 76 76 4d 4c 4f 41 44 20 ┆ vvvMLOAD ┆
0x355c0…355e0 20 20 30 41 00 08 00 00 00 00 00 00 00 14 00 05 00 00 00 01 00 00 00 00 00 00 4f 41 44 20 20 20 ┆ 0A OAD ┆
0x355e0…35600 20 20 53 30 20 20 50 41 50 31 e9 05 b2 11 8f 11 0f 00 e9 05 61 04 61 04 50 20 00 ba 00 ba ff bf ┆ S0 PAP1 a a P ┆
0x35600…35620 (26, 1, 7) 00 00 00 31 a0 bf 21 dd ba cd 8a bb 21 8f ba cd 8a bb 11 df ba 0e 03 cd e3 ba 21 24 00 36 c3 23 ┆ 1 ! ! !$ 6 #┆
0x35620…35640 36 00 23 36 f0 3a df ba fe 2a c2 36 ba 21 67 ba cd 8a bb c3 a7 bb 21 a1 ba cd 8a bb 21 72 be 11 ┆6 #6 : * 6 !g ! !r ┆
0x35640…35660 bf ba 1a fe 0a ca 4e ba 77 13 23 c3 42 ba 3a df ba 77 23 36 0a 23 36 0d 21 72 be cd 8a bb 21 cc ┆ N w # B : w#6 #6 !r ! ┆
0x35660…35680 ba cd 8a bb c3 64 ba 4e 4f 20 45 52 52 4f 52 53 20 46 4f 55 4e 44 20 49 4e 20 53 59 53 54 45 4d ┆ d NO ERRORS FOUND IN SYSTEM┆
0x35680…356a0 20 42 41 4e 4b 20 28 30 2d 31 36 4b 29 0a 0d 53 59 53 54 45 4d 20 42 41 4e 4b 20 54 45 53 54 0a ┆ BANK (0-16K) SYSTEM BANK TEST ┆
0x356a0…356c0 0d 45 52 52 4f 52 20 49 4e 20 53 59 53 54 45 4d 20 42 41 4e 4b 20 28 30 2d 31 36 4b 29 0a 0d 53 ┆ ERROR IN SYSTEM BANK (0-16K) S┆
0x356c0…356e0 54 41 54 55 53 20 49 53 3a 20 0a 0d 4c 4f 41 44 49 4e 47 20 53 54 4f 50 50 45 44 0a 0d 0a 0d 76 ┆TATUS IS: LOADING STOPPED v┆
0x356e0…35700 76 76 76 e5 d5 c5 3e 03 21 00 00 11 00 40 b9 ca f7 ba 3d 19 c3 ee ba 22 e0 ba 3e 00 cd 46 bb 63 ┆vvv > ! @ = " > F c┆
0x35700…35720 (26, 1, 8) ExtentHdr {name=»DEMO_EOF«, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0035,0d (0x035d00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x35720…35740 3b 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 65 6b 73 2d 45 4f ┆;0010 // ---------------- eks-EO┆
0x35740…35760 46 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3b 29 30 30 ┆F --------------------------;)00┆
0x35760…35780 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 76 69 73 65 72 20 76 7b 72 64 69 65 6e 20 61 ┆20 // Programmet viser værdien a┆
0x35780…357a0 66 20 45 4f 46 20 2e 29 14 30 30 33 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 35 14 1c 30 ┆f EOF .) 0030 DIM NAVN$ OF 25 0┆
0x357a0…357c0 30 34 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 22 2c 57 1c 0d 30 30 34 ┆040 OPEN "SYSTIME:eksEOF",W 004┆
0x357c0…357e0 35 20 52 45 41 44 20 41 4e 54 0d 18 30 30 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 ┆5 READ ANT 0050 FOR I:=1 TO ANT┆
0x357e0…35800 20 44 4f 20 18 0f 30 30 36 30 20 52 45 41 44 20 4e 41 56 4e 24 0f 1f 30 30 37 30 20 50 55 54 20 ┆ DO 0060 READ NAVN$ 0070 PUT ┆
0x35800…35820 (26, 1, 9) 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 22 3a 4e 41 56 4e 24 1f 0b 30 30 38 30 20 4e 45 58 ┆"SYSTIME:eksEOF":NAVN$ 0080 NEX┆
0x35820…35840 54 20 49 0b 46 30 30 39 30 20 44 41 54 41 20 37 2c 22 4c 61 72 73 22 2c 22 48 61 6e 6e 65 22 2c ┆T I F0090 DATA 7,"Lars","Hanne",┆
0x35840…35860 22 41 6c 69 63 65 22 2c 22 4a 65 61 6e 2d 50 69 65 72 72 65 22 2c 22 4a 65 61 6e 65 74 74 65 22 ┆"Alice","Jean-Pierre","Jeanette"┆
0x35860…35880 2c 22 46 72 61 6e 63 6f 69 73 22 46 0f 30 30 39 35 20 44 41 54 41 20 22 4f 6c 65 22 0f 0b 30 31 ┆,"Francois"F 0095 DATA "Ole" 01┆
0x35880…358a0 30 30 20 43 4c 4f 53 45 20 0b 05 30 31 31 30 20 05 0b 30 31 32 30 20 43 4c 45 41 52 20 0b 1c 30 ┆00 CLOSE 0110 0120 CLEAR 0┆
0x358a0…358c0 31 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 22 2c 52 1c 0f 30 31 35 ┆130 OPEN "SYSTIME:eksEOF",R 015┆
0x358c0…358e0 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 19 30 31 36 30 20 50 52 49 4e 54 20 22 4e 61 76 6e 3a 22 ┆0 CURSOR 1,5 0160 PRINT "Navn:"┆
0x358e0…35900 2c 22 45 4f 46 3a 22 19 28 30 31 37 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆,"EOF:" (0170 PRINT "-----------┆
0x35900…35920 (26, 1, 10) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 28 0b 30 31 38 30 20 50 52 49 4e 54 20 0b 0b ┆----------------"( 0180 PRINT ┆
0x35920…35940 30 31 39 30 20 50 52 49 4e 54 20 0b 0c 30 32 30 30 20 52 45 50 45 41 54 20 0c 1f 30 32 31 30 20 ┆0190 PRINT 0200 REPEAT 0210 ┆
0x35940…35960 47 45 54 20 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 22 3a 4e 41 56 4e 24 1f 26 30 32 32 30 ┆GET "SYSTIME:eksEOF":NAVN$ &0220┆
0x35960…35980 20 50 52 49 4e 54 20 4e 41 56 4e 24 2c 45 4f 46 28 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 ┆ PRINT NAVN$,EOF("SYSTIME:eksEOF┆
0x35980…359a0 22 29 26 0b 30 32 33 30 20 50 52 49 4e 54 20 0b 20 30 32 34 30 20 55 4e 54 49 4c 20 45 4f 46 28 ┆")& 0230 PRINT 0240 UNTIL EOF(┆
0x359a0…359c0 22 53 59 53 54 49 4d 45 3a 65 6b 73 45 4f 46 22 29 20 0b 30 32 35 30 20 43 4c 4f 53 45 20 0b 05 ┆"SYSTIME:eksEOF") 0250 CLOSE ┆
0x359c0…359e0 30 32 36 30 20 05 15 30 32 37 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 49 30 32 ┆0260 0270 PROC EOF(FNAVN$) I02┆
0x359e0…35a00 37 35 20 2f 2f 20 45 4f 46 20 66 75 6e 6b 74 69 6f 6e 65 6e 20 66 69 6e 64 65 73 20 69 6b 6b 65 ┆75 // EOF funktionen findes ikke┆
0x35a00…35a20 (26, 1, 11) 20 69 20 44 44 45 2d 43 4f 4d 41 4c 38 30 20 6d 65 6e 20 72 65 61 6c 69 73 65 72 65 73 20 76 65 ┆ i DDE-COMAL80 men realiseres ve┆
0x35a20…35a40 64 20 68 6a 7b 6c 70 49 3e 30 32 37 36 20 2f 2f 20 61 66 20 6b 61 6c 64 20 74 69 6c 20 73 74 61 ┆d hjælpI>0276 // af kald til sta┆
0x35a40…35a60 6e 64 61 72 64 66 75 6e 6b 74 69 6f 6e 20 53 54 41 54 55 53 28 66 69 6c 6e 61 76 6e 29 2c 20 31 ┆ndardfunktion STATUS(filnavn), 1┆
0x35a60…35a80 39 20 3d 20 45 4f 46 3e 1d 30 32 38 30 20 45 4f 46 3a 3d 28 53 54 41 54 55 53 28 46 4e 41 56 4e ┆9 = EOF> 0280 EOF:=(STATUS(FNAVN┆
0x35a80…35aa0 24 29 3d 31 39 29 1d 10 30 32 39 30 20 45 4e 44 50 52 4f 43 20 45 4f 46 10 00 00 63 63 63 63 63 ┆$)=19) 0290 ENDPROC EOF ccccc┆
0x35aa0…35ac0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x35b00…35c00 (26, 1, 12) 0x63[0x100]
[…0x1…]
0x35d00…35d20 (26, 1, 14) ExtentHdr {name=»COSHYP «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0036,07 (0x036700)}, f99=41 35 00 fe 00 00 00 00 00 00 ┆A5 ┆}
0x35d20…35d40 4a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆J0010 // -----------------------┆
0x35d40…35d60 2d 2d 20 68 79 70 65 72 62 6f 6c 73 6b 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- hyperbolsk ------------------┆
0x35d60…35d80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 08 30 30 32 30 20 2f 2f 20 08 14 30 30 33 30 20 50 52 4f 43 ┆-----------J 0020 // 0030 PROC┆
0x35d80…35da0 20 43 4f 53 48 59 50 28 58 31 29 14 21 30 30 34 30 20 43 4f 53 48 59 50 3a 3d 28 45 58 50 28 58 ┆ COSHYP(X1) !0040 COSHYP:=(EXP(X┆
0x35da0…35dc0 31 29 2b 45 58 50 28 2d 58 31 29 29 2f 32 21 13 30 30 35 30 20 45 4e 44 50 52 4f 43 20 43 4f 53 ┆1)+EXP(-X1))/2! 0050 ENDPROC COS┆
0x35dc0…35de0 48 59 50 13 08 30 30 36 30 20 2f 2f 20 08 14 30 30 37 30 20 50 52 4f 43 20 53 49 4e 48 59 50 28 ┆HYP 0060 // 0070 PROC SINHYP(┆
0x35de0…35e00 58 32 29 14 21 30 30 38 30 20 53 49 4e 48 59 50 3a 3d 28 45 58 50 28 58 32 29 2d 45 58 50 28 2d ┆X2) !0080 SINHYP:=(EXP(X2)-EXP(-┆
0x35e00…35e20 (26, 1, 15) 58 32 29 29 2f 32 21 13 30 30 39 30 20 45 4e 44 50 52 4f 43 20 53 49 4e 48 59 50 13 08 30 31 30 ┆X2))/2! 0090 ENDPROC SINHYP 010┆
0x35e20…35e40 30 20 2f 2f 20 08 14 30 31 31 30 20 50 52 4f 43 20 54 41 4e 48 59 50 28 58 33 29 14 13 30 31 32 ┆0 // 0110 PROC TANHYP(X3) 012┆
0x35e40…35e60 30 20 58 34 3a 3d 53 49 4e 48 59 50 28 58 33 29 13 13 30 31 32 31 20 58 35 3a 3d 43 4f 53 48 59 ┆0 X4:=SINHYP(X3) 0121 X5:=COSHY┆
0x35e60…35e80 50 28 58 33 29 13 12 30 31 32 32 20 54 41 4e 48 59 50 3a 3d 58 34 2f 58 35 12 13 30 31 33 30 20 ┆P(X3) 0122 TANHYP:=X4/X5 0130 ┆
0x35e80…35ea0 45 4e 44 50 52 4f 43 20 54 41 4e 48 59 50 13 08 30 31 34 30 20 2f 2f 20 08 0b 30 31 35 30 20 43 ┆ENDPROC TANHYP 0140 // 0150 C┆
0x35ea0…35ec0 4c 45 41 52 20 0b 15 30 31 36 30 20 44 49 4d 20 46 4f 52 4d 41 24 20 4f 46 20 37 30 15 20 30 31 ┆LEAR 0160 DIM FORMA$ OF 70 01┆
0x35ec0…35ee0 37 30 20 46 4f 52 4d 41 24 3a 3d 22 20 20 20 20 20 20 20 20 20 23 23 23 23 2e 23 23 23 22 20 0b ┆70 FORMA$:=" ####.###" ┆
0x35ee0…35f00 30 31 37 35 20 50 52 49 4e 54 20 0b 4a 30 31 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 ┆0175 PRINT J0180 PRINT " ┆
0x35f00…35f20 (26, 1, 16) 20 20 20 20 20 78 20 20 20 20 20 20 20 20 20 20 20 63 6f 73 68 79 70 28 78 29 20 20 20 20 20 20 ┆ x coshyp(x) ┆
0x35f20…35f40 20 20 73 69 6e 68 79 70 28 78 29 20 20 20 20 20 20 20 20 20 20 22 3b 4a 16 30 31 38 31 20 50 52 ┆ sinhyp(x) ";J 0181 PR┆
0x35f40…35f60 49 4e 54 20 22 74 61 6e 68 79 70 28 78 29 22 16 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 21 30 32 ┆INT "tanhyp(x)" 0190 PRINT !02┆
0x35f60…35f80 30 30 20 46 4f 52 20 49 3a 3d 30 20 54 4f 20 31 2e 31 20 53 54 45 50 20 30 2e 31 20 44 4f 20 21 ┆00 FOR I:=0 TO 1.1 STEP 0.1 DO !┆
0x35f80…35fa0 1a 30 32 31 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 24 3a 49 3b 1a 22 30 32 31 ┆ 0210 PRINT USING FORMA$:I; "021┆
0x35fa0…35fc0 31 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 24 3a 43 4f 53 48 59 50 28 49 29 3b 22 ┆1 PRINT USING FORMA$:COSHYP(I);"┆
0x35fc0…35fe0 22 30 32 31 32 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 24 3a 53 49 4e 48 59 50 28 ┆"0212 PRINT USING FORMA$:SINHYP(┆
0x35fe0…36000 49 29 3b 22 21 30 32 31 33 20 50 52 49 4e 54 20 55 53 49 4e 47 20 46 4f 52 4d 41 24 3a 54 41 4e ┆I);"!0213 PRINT USING FORMA$:TAN┆
0x36000…36020 (27, 0, 1) 48 59 50 28 49 29 21 0b 30 32 32 30 20 4e 45 58 54 20 49 0b 0d 3b 35 36 35 20 2f 2f 20 2e 23 23 ┆HYP(I)! 0220 NEXT I ;565 // .##┆
0x36020…36040 23 22 0d 0b 3d 33 30 38 20 2f 2f 20 78 29 22 0b 0c 39 35 34 32 20 2f 2f 20 28 78 29 22 0c 00 00 ┆#" =308 // x)" 9542 // (x)" ┆
0x36040…36060 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x5…]
0x36100…36200 (27, 0, 2) 0x63[0x100]
[…0x5…]
0x36700…36720 (27, 0, 8) ExtentHdr {name=»BINÆR_1 «, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0036,0d (0x036d00)}, f99=41 35 00 fe 00 49 4e 5b 52 5f ┆A5 INÆR_┆}
0x36720…36740 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x36740…36760 2d 2d 2d 20 62 69 6e 7b 72 5f 31 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--- binær_1 --------------------┆
0x36760…36780 2d 2d 2d 2d 2d 2d 45 2e 30 30 31 35 20 49 4e 54 45 47 45 52 20 41 2c 42 2c 43 2c 44 2c 45 2c 46 ┆------E.0015 INTEGER A,B,C,D,E,F┆
0x36780…367a0 2c 47 2c 48 2c 49 2c 4a 2c 4b 2c 4c 2c 4d 2c 4e 2c 4f 2c 50 2c 53 2e 13 30 30 32 30 20 44 49 4d ┆,G,H,I,J,K,L,M,N,O,P,S. 0020 DIM┆
0x367a0…367c0 20 53 56 41 52 24 20 4f 46 20 31 13 0c 30 30 33 30 20 52 45 50 45 41 54 20 0c 0d 30 30 34 30 20 ┆ SVAR$ OF 1 0030 REPEAT 0040 ┆
0x367c0…367e0 52 45 53 54 4f 52 45 20 0d 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 0f 30 30 36 30 20 43 55 52 53 ┆RESTORE 0050 CLEAR 0060 CURS┆
0x367e0…36800 4f 52 20 31 2c 34 0f 3f 30 30 37 30 20 50 52 49 4e 54 20 54 41 42 28 32 30 29 3b 22 44 75 20 73 ┆OR 1,4 ?0070 PRINT TAB(20);"Du s┆
0x36800…36820 (27, 0, 9) 6b 61 6c 20 74 7b 6e 6b 65 20 70 7d 20 65 74 20 74 61 6c 20 6d 65 6c 6c 65 6d 20 31 20 6f 67 20 ┆kal tænke på et tal mellem 1 og ┆
0x36820…36840 33 31 2e 20 20 20 22 3f 3f 30 30 38 30 20 50 52 49 4e 54 20 54 41 42 28 32 30 29 3b 22 2d 2d 2d ┆31. "??0080 PRINT TAB(20);"---┆
0x36840…36860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x36860…36880 2d 2d 2d 2d 20 20 20 22 3f 0b 30 30 39 30 20 50 52 49 4e 54 20 0b 11 30 31 30 30 20 43 55 52 53 ┆---- "? 0090 PRINT 0100 CURS┆
0x36880…368a0 4f 52 20 33 30 2c 31 30 11 1d 30 31 31 30 20 50 52 49 4e 54 20 22 4c 69 67 65 20 65 74 20 7c 6a ┆OR 30,10 0110 PRINT "Lige et øj┆
0x368a0…368c0 65 62 6c 69 6b 21 22 1d 19 30 31 32 30 20 46 4f 52 20 50 3a 3d 31 20 54 4f 20 31 30 30 30 20 44 ┆eblik!" 0120 FOR P:=1 TO 1000 D┆
0x368c0…368e0 4f 20 19 09 30 31 33 30 20 53 3a 3d 30 09 0b 30 31 34 30 20 4e 45 58 54 20 50 0b 16 30 31 35 30 ┆O 0130 S:=0 0140 NEXT P 0150┆
0x368e0…36900 20 46 4f 52 20 5a 3a 3d 30 20 54 4f 20 34 20 44 4f 20 16 29 30 31 36 30 20 52 45 41 44 20 41 2c ┆ FOR Z:=0 TO 4 DO )0160 READ A,┆
0x36900…36920 (27, 0, 10) 42 2c 43 2c 44 2c 45 2c 46 2c 47 2c 48 2c 49 2c 4a 2c 4b 2c 4c 2c 4d 2c 4e 2c 4f 2c 50 29 0b 30 ┆B,C,D,E,F,G,H,I,J,K,L,M,N,O,P) 0┆
0x36920…36940 31 37 30 20 50 52 49 4e 54 20 0b 0b 30 31 38 30 20 50 52 49 4e 54 20 0b 34 30 31 39 30 20 50 52 ┆170 PRINT 0180 PRINT 40190 PR┆
0x36940…36960 49 4e 54 20 22 4b 69 67 20 67 6f 64 74 20 70 7d 20 64 69 73 73 65 20 74 61 6c 3a 20 20 20 20 20 ┆INT "Kig godt på disse tal: ┆
0x36960…36980 20 20 20 20 20 20 20 20 20 20 20 20 22 34 2a 30 32 30 30 20 50 52 49 4e 54 20 41 3b 42 3b 43 3b ┆ "4*0200 PRINT A;B;C;┆
0x36980…369a0 44 3b 45 3b 46 3b 47 3b 48 3b 49 3b 4a 3b 4b 3b 4c 3b 4d 3b 4e 3b 4f 3b 50 2a 0b 30 32 31 30 20 ┆D;E;F;G;H;I;J;K;L;M;N;O;P* 0210 ┆
0x369a0…369c0 50 52 49 4e 54 20 0b 3a 30 32 32 30 20 49 4e 50 55 54 20 22 45 72 20 64 69 74 20 74 61 6c 20 6d ┆PRINT :0220 INPUT "Er dit tal m┆
0x369c0…369e0 65 64 20 68 65 72 3f 20 20 20 20 28 6a 2f 6e 29 20 20 20 20 20 20 20 20 20 20 20 22 3a 53 56 41 ┆ed her? (j/n) ":SVA┆
0x369e0…36a00 52 24 3a 1b 30 32 33 30 20 49 46 20 53 56 41 52 24 20 49 4e 20 22 4a 6a 22 20 54 48 45 4e 20 1b ┆R$: 0230 IF SVAR$ IN "Jj" THEN ┆
0x36a00…36a20 (27, 0, 11) 0e 30 32 34 30 20 53 3a 3d 53 2b 32 2a 2a 5a 0e 0b 30 32 35 30 20 45 4e 44 49 46 20 0b 0b 30 32 ┆ 0240 S:=S+2**Z 0250 ENDIF 02┆
0x36a20…36a40 36 30 20 4e 45 58 54 20 5a 0b 0b 30 32 37 30 20 50 52 49 4e 54 20 0b 0b 30 32 38 30 20 50 52 49 ┆60 NEXT Z 0270 PRINT 0280 PRI┆
0x36a40…36a60 4e 54 20 0b 39 30 32 39 30 20 50 52 49 4e 54 20 22 44 20 75 20 20 20 74 20 7b 20 6e 20 6b 20 74 ┆NT 90290 PRINT "D u t æ n k t┆
0x36a60…36a80 20 65 20 20 20 70 20 7d 20 20 21 21 21 21 21 21 21 21 21 21 21 21 21 20 20 20 20 20 22 3b 39 18 ┆ e p å !!!!!!!!!!!!! ";9 ┆
0x36a80…36aa0 30 33 30 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 35 30 30 20 44 4f 20 18 0b 30 33 31 30 20 4e ┆0300 FOR A:=1 TO 500 DO 0310 N┆
0x36aa0…36ac0 45 58 54 20 41 0b 0c 30 33 32 30 20 50 52 49 4e 54 20 53 0c 18 30 33 33 30 20 46 4f 52 20 41 3a ┆EXT A 0320 PRINT S 0330 FOR A:┆
0x36ac0…36ae0 3d 31 20 54 4f 20 32 30 30 20 44 4f 20 18 0b 30 33 34 30 20 4e 45 58 54 20 41 0b 0b 30 33 35 30 ┆=1 TO 200 DO 0340 NEXT A 0350┆
0x36ae0…36b00 20 50 52 49 4e 54 20 0b 38 30 33 37 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 ┆ PRINT 80370 INPUT "Ønsker du a┆
0x36b00…36b20 (27, 0, 12) 74 20 66 6f 72 74 73 7b 74 74 65 3f 20 20 20 28 6a 2f 6e 29 20 20 20 20 20 20 22 3a 53 56 41 52 ┆t fortsætte? (j/n) ":SVAR┆
0x36b20…36b40 24 38 18 30 34 30 30 20 55 4e 54 49 4c 20 53 56 41 52 24 20 49 4e 20 22 4e 6e 22 18 34 30 34 31 ┆$8 0400 UNTIL SVAR$ IN "Nn" 4041┆
0x36b40…36b60 30 20 44 41 54 41 20 31 2c 33 2c 35 2c 37 2c 39 2c 31 31 2c 31 33 2c 31 35 2c 31 37 2c 31 39 2c ┆0 DATA 1,3,5,7,9,11,13,15,17,19,┆
0x36b60…36b80 32 31 2c 32 33 2c 32 35 2c 32 37 2c 32 39 2c 33 31 34 35 30 34 32 30 20 44 41 54 41 20 32 2c 33 ┆21,23,25,27,29,31450420 DATA 2,3┆
0x36b80…36ba0 2c 36 2c 37 2c 31 30 2c 31 31 2c 31 34 2c 31 35 2c 31 38 2c 31 39 2c 32 32 2c 32 33 2c 32 36 2c ┆,6,7,10,11,14,15,18,19,22,23,26,┆
0x36ba0…36bc0 32 37 2c 33 30 2c 33 31 35 35 30 34 33 30 20 44 41 54 41 20 34 2c 35 2c 36 2c 37 2c 31 32 2c 31 ┆27,30,31550430 DATA 4,5,6,7,12,1┆
0x36bc0…36be0 33 2c 31 34 2c 31 35 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 38 2c 32 39 2c 33 30 2c 33 31 35 ┆3,14,15,20,21,22,23,28,29,30,315┆
0x36be0…36c00 37 30 34 34 30 20 44 41 54 41 20 38 2c 39 2c 31 30 2c 31 31 2c 31 32 2c 31 33 2c 31 34 2c 31 35 ┆70440 DATA 8,9,10,11,12,13,14,15┆
0x36c00…36c20 (27, 0, 13) 2c 32 34 2c 32 35 2c 32 36 2c 32 37 2c 32 38 2c 32 39 2c 33 30 2c 33 31 37 39 30 34 35 30 20 44 ┆,24,25,26,27,28,29,30,31790450 D┆
0x36c20…36c40 41 54 41 20 31 36 2c 31 37 2c 31 38 2c 31 39 2c 32 30 2c 32 31 2c 32 32 2c 32 33 2c 32 34 2c 32 ┆ATA 16,17,18,19,20,21,22,23,24,2┆
0x36c40…36c60 35 2c 32 36 2c 32 37 2c 32 38 2c 32 39 2c 33 30 2c 33 31 39 0b 30 34 36 30 20 50 52 49 4e 54 20 ┆5,26,27,28,29,30,319 0460 PRINT ┆
0x36c60…36c80 0b 25 30 34 37 30 20 50 52 49 4e 54 20 22 53 7d 20 73 6c 75 74 74 65 72 20 76 69 20 66 6f 72 20 ┆ %0470 PRINT "Så slutter vi for ┆
0x36c80…36ca0 69 20 64 61 67 2e 22 25 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆i dag."% cccccccccccccccccccccc┆
0x36ca0…36cc0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x36d00…36d20 (27, 0, 14) ExtentHdr {name=»KOPI_SEK«, typ=»K«, seg=»A«, next=0x00, basis=0x0008, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0037,05 (0x037500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x36d20…36d40 21 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 20 6b 6f 70 69 5f 73 65 6b 76 65 6e 73 20 2d 2d 2d ┆!0100 // ------ kopi_sekvens ---┆
0x36d40…36d60 2d 2d 21 35 30 31 31 30 20 2f 2f 20 64 65 74 74 65 20 70 72 6f 67 72 61 6d 20 65 72 20 75 64 67 ┆--!50110 // dette program er udg┆
0x36d60…36d80 7d 65 74 20 69 20 44 44 45 2d 43 4f 4d 41 4c 20 76 65 72 73 69 6f 6e 65 6e 35 31 30 31 32 30 20 ┆ået i DDE-COMAL versionen510120 ┆
0x36d80…36da0 2f 2f 20 62 65 6e 79 74 20 69 20 73 74 65 64 65 74 20 70 72 6f 67 72 61 6d 6d 65 74 20 46 43 4f ┆// benyt i stedet programmet FCO┆
0x36da0…36dc0 50 59 38 30 20 66 72 61 20 44 44 45 31 00 00 65 27 20 6b 61 6e 20 6e 65 6d 6d 65 72 65 20 6b 6f ┆PY80 fra DDE1 e' kan nemmere ko┆
0x36dc0…36de0 70 69 65 72 65 73 20 76 65 64 20 3a 33 3d 30 30 34 30 20 2f 2f 20 31 2e 20 20 41 6e 76 65 6e 64 ┆pieres ved :3=0040 // 1. Anvend┆
0x36de0…36e00 65 20 74 65 6b 73 74 6b 6f 70 69 65 72 69 6e 67 73 70 72 6f 67 72 61 6d 6d 65 74 20 75 6e 64 65 ┆e tekstkopieringsprogrammet unde┆
0x36e00…36e20 (27, 0, 15) 72 20 57 6f 72 64 57 6f 72 6b 2e 3d 36 30 30 35 30 20 2f 2f 20 32 2e 20 20 41 6e 76 65 6e 64 65 ┆r WordWork.=60050 // 2. Anvende┆
0x36e20…36e40 20 43 4f 4d 41 4c 38 30 20 6b 6f 70 69 65 72 69 6e 67 73 70 72 6f 67 72 61 6d 20 46 43 4f 50 59 ┆ COMAL80 kopieringsprogram FCOPY┆
0x36e40…36e60 38 30 2e 36 08 30 30 36 30 20 2f 2f 20 08 08 30 30 38 30 20 2f 2f 20 08 2c 30 30 39 30 20 44 49 ┆80.6 0060 // 0080 // ,0090 DI┆
0x36e60…36e80 4d 20 4c 49 53 54 45 28 31 30 29 2c 50 45 52 53 4f 4e 24 28 31 30 29 20 4f 46 20 33 30 2c 53 24 ┆M LISTE(10),PERSON$(10) OF 30,S$┆
0x36e80…36ea0 20 4f 46 20 31 2c 26 30 31 30 30 20 44 49 4d 20 44 49 53 4b 4e 41 56 4e 24 20 4f 46 20 38 2c 46 ┆ OF 1,&0100 DIM DISKNAVN$ OF 8,F┆
0x36ea0…36ec0 49 4c 4e 41 56 4e 24 20 4f 46 20 31 37 26 19 30 31 31 30 20 44 49 53 4b 4e 41 56 4e 24 3a 3d 22 ┆ILNAVN$ OF 17& 0110 DISKNAVN$:="┆
0x36ec0…36ee0 53 59 53 54 49 4d 45 22 19 27 30 31 31 35 20 46 49 4c 4e 41 56 4e 24 3a 3d 44 49 53 4b 4e 41 56 ┆SYSTIME" '0115 FILNAVN$:=DISKNAV┆
0x36ee0…36f00 4e 24 2b 22 3a 22 2b 22 4c 4f 57 53 43 4f 52 45 22 27 08 30 31 32 30 20 2f 2f 20 08 14 30 31 33 ┆N$+":"+"LOWSCORE"' 0120 // 013┆
0x36f00…36f20 (27, 0, 16) 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 52 14 16 30 31 34 30 20 46 4f 52 20 49 3a 3d 31 ┆0 OPEN FILNAVN$,R 0140 FOR I:=1┆
0x36f20…36f40 20 54 4f 20 35 20 44 4f 20 16 25 30 31 35 30 20 47 45 54 20 46 49 4c 4e 41 56 4e 24 3a 4c 49 53 ┆ TO 5 DO %0150 GET FILNAVN$:LIS┆
0x36f40…36f60 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 25 1e 30 31 36 30 20 50 52 49 4e 54 20 4c 49 53 ┆TE(I),PERSON$(I)% 0160 PRINT LIS┆
0x36f60…36f80 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 1e 0b 30 31 37 30 20 4e 45 58 54 20 49 0b 13 30 ┆TE(I),PERSON$(I) 0170 NEXT I 0┆
0x36f80…36fa0 31 38 30 20 43 4c 4f 53 45 20 46 49 4c 4e 41 56 4e 24 13 08 30 31 39 30 20 2f 2f 20 08 25 30 32 ┆180 CLOSE FILNAVN$ 0190 // %02┆
0x36fa0…36fc0 30 30 20 49 4e 50 55 54 20 22 49 6e 64 73 7b 74 20 6e 79 20 64 69 73 6b 65 74 74 65 3a 20 20 22 ┆00 INPUT "Indsæt ny diskette: "┆
0x36fc0…36fe0 3a 53 24 25 34 30 32 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6e 61 76 6e 20 70 7d ┆:S$%40210 INPUT "Indtast navn på┆
0x36fe0…37000 20 6e 79 20 64 69 73 6b 65 74 74 65 3a 20 22 3a 44 49 53 4b 4e 41 56 4e 24 34 08 30 32 32 30 20 ┆ ny diskette: ":DISKNAVN$4 0220 ┆
0x37000…37020 (27, 1, 1) 2f 2f 20 08 27 30 32 32 34 20 46 49 4c 4e 41 56 4e 24 3a 3d 44 49 53 4b 4e 41 56 4e 24 2b 22 3a ┆// '0224 FILNAVN$:=DISKNAVN$+":┆
0x37020…37040 22 2b 22 4c 4f 57 53 43 4f 52 45 22 27 16 30 32 32 35 20 43 52 45 41 54 45 20 46 49 4c 4e 41 56 ┆"+"LOWSCORE"' 0225 CREATE FILNAV┆
0x37040…37060 4e 24 2c 31 16 14 30 32 33 30 20 4f 50 45 4e 20 46 49 4c 4e 41 56 4e 24 2c 57 14 16 30 32 34 30 ┆N$,1 0230 OPEN FILNAVN$,W 0240┆
0x37060…37080 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 35 20 44 4f 20 16 25 30 32 35 30 20 50 55 54 20 46 49 4c ┆ FOR I:=1 TO 5 DO %0250 PUT FIL┆
0x37080…370a0 4e 41 56 4e 24 3a 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 25 1e 30 32 36 30 20 ┆NAVN$:LISTE(I),PERSON$(I)% 0260 ┆
0x370a0…370c0 50 52 49 4e 54 20 4c 49 53 54 45 28 49 29 2c 50 45 52 53 4f 4e 24 28 49 29 1e 0b 30 32 37 30 20 ┆PRINT LISTE(I),PERSON$(I) 0270 ┆
0x370c0…370e0 4e 45 58 54 20 49 0b 13 30 32 38 30 20 43 4c 4f 53 45 20 46 49 4c 4e 41 56 4e 24 13 00 00 00 63 ┆NEXT I 0280 CLOSE FILNAVN$ c┆
0x370e0…37100 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x37100…37200 (27, 1, 2) 0x63[0x100]
[…0x3…]
0x37500…37520 (27, 1, 6) ExtentHdr {name=»MORSE2 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0037,0f (0x037f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0037,0f (0x037f00)}, f99=41 37 00 fe 00 00 00 00 00 00 ┆A7 ┆}
0x37520…37540 3f 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆?0010 // -----------------------┆
0x37540…37560 2d 20 6d 6f 72 73 65 5f 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- morse_2 ----------------------┆
0x37560…37580 3f 39 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 6f 6d 73 7b 74 74 65 72 20 65 6e ┆?90020 // Programmet omsætter en┆
0x37580…375a0 20 6d 6f 72 73 65 74 65 6b 73 74 20 74 69 6c 20 61 6c 6d 2e 20 74 65 6b 73 74 2e 39 3b 30 30 33 ┆ morsetekst til alm. tekst.9;003┆
0x375a0…375c0 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f 46 20 38 30 2c 54 45 47 4e 24 20 4f 46 20 33 30 2c 4b ┆0 DIM TEKST$ OF 80,TEGN$ OF 30,K┆
0x375c0…375e0 4c 41 52 54 45 4b 53 54 24 20 4f 46 20 32 30 30 2c 42 24 20 4f 46 20 31 3b 08 30 30 34 30 20 2f ┆LARTEKST$ OF 200,B$ OF 1; 0040 /┆
0x375e0…37600 2f 20 08 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 20 43 55 52 53 4f 52 20 33 30 2c ┆/ 0050 CLEAR 0060 CURSOR 30,┆
0x37600…37620 (27, 1, 7) 34 10 19 30 30 37 30 20 50 52 49 4e 54 20 22 20 4d 20 4f 20 52 20 53 20 45 20 2e 22 19 10 30 30 ┆4 0070 PRINT " M O R S E ." 00┆
0x37620…37640 38 30 20 43 55 52 53 4f 52 20 33 30 2c 35 10 19 30 30 39 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d ┆80 CURSOR 30,5 0090 PRINT "----┆
0x37640…37660 2d 2d 2d 2d 2d 2d 2d 2d 22 19 10 30 31 30 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 3a 30 31 31 ┆--------" 0100 CURSOR 10,8 :011┆
0x37660…37680 30 20 50 52 49 4e 54 20 22 4b 75 6e 20 70 72 69 6b 6b 65 72 2c 20 73 74 72 65 67 65 72 20 6f 67 ┆0 PRINT "Kun prikker, streger og┆
0x37680…376a0 20 6d 65 6c 6c 65 6d 72 75 6d 20 65 72 20 74 69 6c 6c 61 64 74 2e 22 3a 10 30 31 32 30 20 43 55 ┆ mellemrum er tilladt.": 0120 CU┆
0x376a0…376c0 52 53 4f 52 20 31 30 2c 39 10 3e 30 31 33 30 20 50 52 49 4e 54 20 22 45 76 74 2e 20 61 6e 64 72 ┆RSOR 10,9 >0130 PRINT "Evt. andr┆
0x376c0…376e0 65 20 74 65 67 6e 20 76 69 6c 20 62 6c 69 76 65 20 6f 70 66 61 74 74 65 74 20 73 6f 6d 20 6d 65 ┆e tegn vil blive opfattet som me┆
0x376e0…37700 6c 6c 65 6d 72 75 6d 2e 22 3e 11 30 31 34 30 20 43 55 52 53 4f 52 20 31 30 2c 31 30 11 3b 30 31 ┆llemrum."> 0140 CURSOR 10,10 ;01┆
0x37700…37720 (27, 1, 8) 35 30 20 50 52 49 4e 54 20 22 55 6c 6f 76 6c 69 67 65 20 6d 6f 72 73 65 74 65 67 6e 20 76 69 6c ┆50 PRINT "Ulovlige morsetegn vil┆
0x37720…37740 20 62 6c 69 76 65 20 75 64 73 6b 72 65 76 65 74 20 73 6f 6d 20 27 2a 27 22 3b 11 30 31 36 30 20 ┆ blive udskrevet som '*'"; 0160 ┆
0x37740…37760 43 55 52 53 4f 52 20 31 30 2c 31 31 11 3e 30 31 37 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 ┆CURSOR 10,11 >0170 PRINT "Indtas┆
0x37760…37780 74 20 6d 6f 72 73 65 74 65 6b 73 74 65 6e 20 28 20 32 20 67 61 6e 67 65 20 27 72 65 74 75 72 6e ┆t morseteksten ( 2 gange 'return┆
0x37780…377a0 27 20 73 74 6f 70 70 65 72 29 3a 22 3e 0b 30 31 38 30 20 50 52 49 4e 54 20 0b 0e 30 31 39 30 20 ┆' stopper):"> 0180 PRINT 0190 ┆
0x377a0…377c0 54 5b 4c 4c 45 52 3a 3d 30 0e 0f 30 32 30 30 20 54 45 4b 53 54 24 3a 3d 22 22 0f 1a 30 32 31 30 ┆TÆLLER:=0 0200 TEKST$:="" 0210┆
0x377c0…377e0 20 57 48 49 4c 45 20 54 45 4b 53 54 24 3c 3e 22 2a 22 20 44 4f 20 1a 11 30 32 32 30 20 49 4e 50 ┆ WHILE TEKST$<>"*" DO 0220 INP┆
0x377e0…37800 55 54 20 54 45 4b 53 54 24 11 13 30 32 33 30 20 4c 3a 3d 4c 45 4e 28 54 45 4b 53 54 24 29 13 17 ┆UT TEKST$ 0230 L:=LEN(TEKST$) ┆
0x37800…37820 (27, 1, 9) 30 32 34 30 20 54 45 4b 53 54 24 28 4c 2b 31 3a 31 29 3a 3d 22 2a 22 17 09 30 32 35 30 20 49 3a ┆0240 TEKST$(L+1:1):="*" 0250 I:┆
0x37820…37840 3d 31 09 46 30 32 36 30 20 57 48 49 4c 45 20 54 45 4b 53 54 24 28 49 3a 31 29 3c 3e 22 2e 22 20 ┆=1 F0260 WHILE TEKST$(I:1)<>"." ┆
0x37840…37860 41 4e 44 20 54 45 4b 53 54 24 28 49 3a 31 29 3c 3e 22 2d 22 20 41 4e 44 20 49 3c 4c 45 4e 28 54 ┆AND TEKST$(I:1)<>"-" AND I<LEN(T┆
0x37860…37880 45 4b 53 54 24 29 20 44 4f 20 46 0b 30 32 37 30 20 49 3a 3d 49 2b 31 0b 0e 30 32 38 30 20 45 4e ┆EKST$) DO F 0270 I:=I+1 0280 EN┆
0x37880…378a0 44 57 48 49 4c 45 20 0e 1c 30 32 39 30 20 57 48 49 4c 45 20 49 3c 4c 45 4e 28 54 45 4b 53 54 24 ┆DWHILE 0290 WHILE I<LEN(TEKST$┆
0x378a0…378c0 29 20 44 4f 20 1c 0e 30 33 30 30 20 54 45 47 4e 24 3a 3d 22 22 0e 09 30 33 31 30 20 4a 3a 3d 31 ┆) DO 0300 TEGN$:="" 0310 J:=1┆
0x378c0…378e0 09 45 30 33 32 30 20 57 48 49 4c 45 20 49 3c 4c 45 4e 28 54 45 4b 53 54 24 29 20 41 4e 44 20 28 ┆ E0320 WHILE I<LEN(TEKST$) AND (┆
0x378e0…37900 54 45 4b 53 54 24 28 49 3a 31 29 3d 22 2e 22 20 4f 52 20 54 45 4b 53 54 24 28 49 3a 31 29 3d 22 ┆TEKST$(I:1)="." OR TEKST$(I:1)="┆
0x37900…37920 (27, 1, 10) 2d 22 29 20 44 4f 20 45 1c 30 33 33 30 20 54 45 47 4e 24 28 4a 3a 31 29 3a 3d 54 45 4b 53 54 24 ┆-") DO E 0330 TEGN$(J:1):=TEKST$┆
0x37920…37940 28 49 3a 31 29 1c 12 30 33 34 30 20 49 3a 3d 49 2b 31 3b 4a 3a 3d 4a 2b 31 12 0e 30 33 35 30 20 ┆(I:1) 0340 I:=I+1;J:=J+1 0350 ┆
0x37940…37960 45 4e 44 57 48 49 4c 45 20 0e 15 30 33 36 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2b 31 ┆ENDWHILE 0360 TÆLLER:=TÆLLER+1┆
0x37960…37980 15 1a 30 33 37 30 20 49 46 20 4c 45 4e 28 54 45 47 4e 24 29 3e 35 20 54 48 45 4e 20 1a 1e 30 33 ┆ 0370 IF LEN(TEGN$)>5 THEN 03┆
0x37980…379a0 38 30 20 4b 4c 41 52 54 45 4b 53 54 24 28 54 5b 4c 4c 45 52 3a 31 29 3a 3d 22 2a 22 1e 1f 30 33 ┆80 KLARTEKST$(TÆLLER:1):="*" 03┆
0x379a0…379c0 39 30 20 45 4c 53 45 20 2f 2f 20 6e 79 74 20 62 6f 67 73 74 61 76 20 66 75 6e 64 65 74 1f 18 30 ┆90 ELSE // nyt bogstav fundet 0┆
0x379c0…379e0 34 30 30 20 45 58 45 43 20 42 4f 47 53 54 41 56 28 54 45 47 4e 24 29 18 0b 30 34 31 30 20 45 4e ┆400 EXEC BOGSTAV(TEGN$) 0410 EN┆
0x379e0…37a00 44 49 46 20 0b 0e 30 34 32 30 20 49 53 54 41 52 54 3a 3d 49 0e 46 30 34 33 30 20 57 48 49 4c 45 ┆DIF 0420 ISTART:=I F0430 WHILE┆
0x37a00…37a20 (27, 1, 11) 20 49 3c 4c 45 4e 28 54 45 4b 53 54 24 29 20 41 4e 44 20 54 45 4b 53 54 24 28 49 3a 31 29 3c 3e ┆ I<LEN(TEKST$) AND TEKST$(I:1)<>┆
0x37a20…37a40 22 2e 22 20 41 4e 44 20 54 45 4b 53 54 24 28 49 3a 31 29 3c 3e 22 2d 22 20 44 4f 20 46 0b 30 34 ┆"." AND TEKST$(I:1)<>"-" DO F 04┆
0x37a40…37a60 34 30 20 49 3a 3d 49 2b 31 0b 0e 30 34 35 30 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 34 36 30 20 ┆40 I:=I+1 0450 ENDWHILE 0460 ┆
0x37a60…37a80 49 53 4c 55 54 3a 3d 49 0d 2e 30 34 37 30 20 49 46 20 49 53 4c 55 54 2d 49 53 54 41 52 54 3e 31 ┆ISLUT:=I .0470 IF ISLUT-ISTART>1┆
0x37a80…37aa0 20 54 48 45 4e 20 2f 2f 20 6e 79 74 20 6f 72 64 20 73 74 61 72 74 65 72 2e 15 30 34 38 30 20 54 ┆ THEN // nyt ord starter. 0480 T┆
0x37aa0…37ac0 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2b 31 15 1e 30 34 39 30 20 4b 4c 41 52 54 45 4b 53 54 24 ┆ÆLLER:=TÆLLER+1 0490 KLARTEKST$┆
0x37ac0…37ae0 28 54 5b 4c 4c 45 52 3a 31 29 3a 3d 22 20 22 1e 0e 30 35 31 30 20 45 4e 44 57 48 49 4c 45 20 0e ┆(TÆLLER:1):=" " 0510 ENDWHILE ┆
0x37ae0…37b00 15 30 35 32 30 20 54 5b 4c 4c 45 52 3a 3d 54 5b 4c 4c 45 52 2b 31 15 1e 30 35 33 30 20 4b 4c 41 ┆ 0520 TÆLLER:=TÆLLER+1 0530 KLA┆
0x37b00…37b20 (27, 1, 12) 52 54 45 4b 53 54 24 28 54 5b 4c 4c 45 52 3a 31 29 3a 3d 22 20 22 1e 0e 30 35 34 30 20 45 4e 44 ┆RTEKST$(TÆLLER:1):=" " 0540 END┆
0x37b20…37b40 57 48 49 4c 45 20 0e 15 30 35 35 30 20 50 52 49 4e 54 20 4b 4c 41 52 54 45 4b 53 54 24 15 08 30 ┆WHILE 0550 PRINT KLARTEKST$ 0┆
0x37b40…37b60 35 36 30 20 2f 2f 20 08 17 30 35 37 30 20 50 52 4f 43 20 42 4f 47 53 54 41 56 28 54 47 4e 24 29 ┆560 // 0570 PROC BOGSTAV(TGN$)┆
0x37b60…37b80 17 12 30 35 38 30 20 43 41 53 45 20 54 47 4e 24 20 4f 46 20 12 0d 30 35 39 30 20 57 48 45 4e 20 ┆ 0580 CASE TGN$ OF 0590 WHEN ┆
0x37b80…37ba0 22 2e 22 0d 0c 30 36 30 30 20 42 24 3a 3d 22 65 22 0c 0d 30 36 31 30 20 57 48 45 4e 20 22 2d 22 ┆"." 0600 B$:="e" 0610 WHEN "-"┆
0x37ba0…37bc0 0d 0c 30 36 32 30 20 42 24 3a 3d 22 74 22 0c 0e 30 36 33 30 20 57 48 45 4e 20 22 2e 2e 22 0e 0c ┆ 0620 B$:="t" 0630 WHEN ".." ┆
0x37bc0…37be0 30 36 34 30 20 42 24 3a 3d 22 69 22 0c 0e 30 36 35 30 20 57 48 45 4e 20 22 2e 2d 22 0e 0c 30 36 ┆0640 B$:="i" 0650 WHEN ".-" 06┆
0x37be0…37c00 36 30 20 42 24 3a 3d 22 61 22 0c 0e 30 36 37 30 20 57 48 45 4e 20 22 2d 2e 22 0e 0c 30 36 38 30 ┆60 B$:="a" 0670 WHEN "-." 0680┆
0x37c00…37c20 (27, 1, 13) 20 42 24 3a 3d 22 6e 22 0c 0e 30 36 39 30 20 57 48 45 4e 20 22 2d 2d 22 0e 0c 30 37 30 30 20 42 ┆ B$:="n" 0690 WHEN "--" 0700 B┆
0x37c20…37c40 24 3a 3d 22 6d 22 0c 0f 30 37 31 30 20 57 48 45 4e 20 22 2e 2e 2e 22 0f 0c 30 37 32 30 20 42 24 ┆$:="m" 0710 WHEN "..." 0720 B$┆
0x37c40…37c60 3a 3d 22 73 22 0c 0f 30 37 33 30 20 57 48 45 4e 20 22 2e 2e 2d 22 0f 0c 30 37 34 30 20 42 24 3a ┆:="s" 0730 WHEN "..-" 0740 B$:┆
0x37c60…37c80 3d 22 75 22 0c 0f 30 37 35 30 20 57 48 45 4e 20 22 2e 2d 2e 22 0f 0c 30 37 36 30 20 42 24 3a 3d ┆="u" 0750 WHEN ".-." 0760 B$:=┆
0x37c80…37ca0 22 72 22 0c 0f 30 37 37 30 20 57 48 45 4e 20 22 2d 2e 2e 22 0f 0c 30 37 38 30 20 42 24 3a 3d 22 ┆"r" 0770 WHEN "-.." 0780 B$:="┆
0x37ca0…37cc0 64 22 0c 0f 30 37 39 30 20 57 48 45 4e 20 22 2e 2d 2d 22 0f 0c 30 38 30 30 20 42 24 3a 3d 22 77 ┆d" 0790 WHEN ".--" 0800 B$:="w┆
0x37cc0…37ce0 22 0c 0f 30 38 31 30 20 57 48 45 4e 20 22 2d 2e 2d 22 0f 0c 30 38 32 30 20 42 24 3a 3d 22 6b 22 ┆" 0810 WHEN "-.-" 0820 B$:="k"┆
0x37ce0…37d00 0c 0f 30 38 33 30 20 57 48 45 4e 20 22 2d 2d 2e 22 0f 0c 30 38 34 30 20 42 24 3a 3d 22 67 22 0c ┆ 0830 WHEN "--." 0840 B$:="g" ┆
0x37d00…37d20 (27, 1, 14) 0f 30 38 35 30 20 57 48 45 4e 20 22 2d 2d 2d 22 0f 0c 30 38 36 30 20 42 24 3a 3d 22 6f 22 0c 10 ┆ 0850 WHEN "---" 0860 B$:="o" ┆
0x37d20…37d40 30 38 37 30 20 57 48 45 4e 20 22 2d 2e 2e 2e 22 10 0c 30 38 38 30 20 42 24 3a 3d 22 62 22 0c 10 ┆0870 WHEN "-..." 0880 B$:="b" ┆
0x37d40…37d60 30 38 39 30 20 57 48 45 4e 20 22 2d 2e 2d 2e 22 10 0c 30 39 30 30 20 42 24 3a 3d 22 63 22 0c 10 ┆0890 WHEN "-.-." 0900 B$:="c" ┆
0x37d60…37d80 30 39 31 30 20 57 48 45 4e 20 22 2e 2e 2d 2e 22 10 0c 30 39 32 30 20 42 24 3a 3d 22 66 22 0c 10 ┆0910 WHEN "..-." 0920 B$:="f" ┆
0x37d80…37da0 30 39 33 30 20 57 48 45 4e 20 22 2e 2e 2e 2e 22 10 0c 30 39 34 30 20 42 24 3a 3d 22 68 22 0c 10 ┆0930 WHEN "...." 0940 B$:="h" ┆
0x37da0…37dc0 30 39 35 30 20 57 48 45 4e 20 22 2e 2d 2d 2d 22 10 0c 30 39 36 30 20 42 24 3a 3d 22 6a 22 0c 10 ┆0950 WHEN ".---" 0960 B$:="j" ┆
0x37dc0…37de0 30 39 37 30 20 57 48 45 4e 20 22 2e 2d 2e 2e 22 10 0c 30 39 38 30 20 42 24 3a 3d 22 6c 22 0c 10 ┆0970 WHEN ".-.." 0980 B$:="l" ┆
0x37de0…37e00 30 39 39 30 20 57 48 45 4e 20 22 2e 2d 2d 2e 22 10 0c 31 30 30 30 20 42 24 3a 3d 22 70 22 0c 10 ┆0990 WHEN ".--." 1000 B$:="p" ┆
0x37e00…37e20 (27, 1, 15) 31 30 31 30 20 57 48 45 4e 20 22 2d 2d 2e 2d 22 10 0c 31 30 32 30 20 42 24 3a 3d 22 71 22 0c 10 ┆1010 WHEN "--.-" 1020 B$:="q" ┆
0x37e20…37e40 31 30 33 30 20 57 48 45 4e 20 22 2e 2e 2e 2d 22 10 0c 31 30 34 30 20 42 24 3a 3d 22 76 22 0c 10 ┆1030 WHEN "...-" 1040 B$:="v" ┆
0x37e40…37e60 31 30 35 30 20 57 48 45 4e 20 22 2d 2e 2e 2d 22 10 0c 31 30 36 30 20 42 24 3a 3d 22 78 22 0c 10 ┆1050 WHEN "-..-" 1060 B$:="x" ┆
0x37e60…37e80 31 30 37 30 20 57 48 45 4e 20 22 2d 2e 2d 2d 22 10 0c 31 30 38 30 20 42 24 3a 3d 22 79 22 0c 10 ┆1070 WHEN "-.--" 1080 B$:="y" ┆
0x37e80…37ea0 31 30 39 30 20 57 48 45 4e 20 22 2d 2d 2e 2e 22 10 0c 31 31 30 30 20 42 24 3a 3d 22 7a 22 0c 10 ┆1090 WHEN "--.." 1100 B$:="z" ┆
0x37ea0…37ec0 31 31 31 30 20 57 48 45 4e 20 22 2e 2d 2e 2d 22 10 0c 31 31 32 30 20 42 24 3a 3d 22 7b 22 0c 10 ┆1110 WHEN ".-.-" 1120 B$:="æ" ┆
0x37ec0…37ee0 31 31 33 30 20 57 48 45 4e 20 22 2d 2d 2d 2e 22 10 0c 31 31 34 30 20 42 24 3a 3d 22 7c 22 0c 11 ┆1130 WHEN "---." 1140 B$:="ø" ┆
0x37ee0…37f00 31 31 35 30 20 57 48 45 4e 20 22 2e 2d 2d 2e 2d 22 11 0c 31 31 36 30 20 42 24 3a 3d 22 7d 22 0c ┆1150 WHEN ".--.-" 1160 B$:="å" ┆
0x37f00…37f20 (27, 1, 16) ExtentHdr {name=»MORSE2 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0037,05 (0x037500)}, nextfile={DA 0038,09 (0x038900)}, f99=41 37 00 20 00 00 00 00 00 00 ┆A7 ┆}
0x37f20…37f40 0f 31 31 37 30 20 4f 54 48 45 52 57 49 53 45 20 0f 0c 31 31 38 30 20 42 24 3a 3d 22 2a 22 0c 0d ┆ 1170 OTHERWISE 1180 B$:="*" ┆
0x37f40…37f60 31 31 39 30 20 45 4e 44 43 41 53 45 20 0d 1b 31 32 30 30 20 4b 4c 41 52 54 45 4b 53 54 24 28 54 ┆1190 ENDCASE 1200 KLARTEKST$(T┆
0x37f60…37f80 5b 4c 4c 45 52 29 3a 3d 42 24 1b 14 31 32 31 30 20 45 4e 44 50 52 4f 43 20 42 4f 47 53 54 41 56 ┆ÆLLER):=B$ 1210 ENDPROC BOGSTAV┆
0x37f80…37fa0 14 0f 3d 30 35 37 20 2f 2f 20 22 2e 2d 2d 2e 2d 22 0f 00 00 20 74 65 6b 73 74 2e 39 3b 30 30 33 ┆ =057 // ".--.-" tekst.9;003┆
0x37fa0…37fc0 30 20 44 49 4d 20 54 45 4b 53 54 24 20 4f 46 20 38 30 2c 54 45 47 4e 24 20 4f 46 20 33 30 2c 4b ┆0 DIM TEKST$ OF 80,TEGN$ OF 30,K┆
0x37fc0…37fe0 4c 41 52 54 45 4b 53 54 24 20 4f 46 20 32 30 30 2c 42 24 20 4f 46 20 31 3b 08 30 30 34 30 20 2f ┆LARTEKST$ OF 200,B$ OF 1; 0040 /┆
0x37fe0…38000 2f 20 08 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 10 30 30 36 30 20 43 55 52 53 4f 52 20 33 30 2c ┆/ 0050 CLEAR 0060 CURSOR 30,┆
0x38000…38100 (28, 0, 1) 0x63[0x100]
[…0x8…]
0x38900…38920 (28, 0, 10) ExtentHdr {name=»JYLLAND «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0039,03 (0x039300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0039,03 (0x039300)}, f99=41 37 00 fe 00 59 4c 4c 41 4e ┆A7 YLLAN┆}
0x38920…38940 47 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G0100 // -----------------------┆
0x38940…38960 2d 2d 20 6a 79 6c 6c 61 6e 64 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- jylland ---------------------┆
0x38960…38980 2d 2d 2d 2d 2d 2d 2d 2d 47 1b 30 31 31 30 20 49 4e 54 45 47 45 52 20 42 59 4e 52 2c 49 2c 41 4e ┆--------G 0110 INTEGER BYNR,I,AN┆
0x38980…389a0 54 42 59 45 52 1b 10 30 31 32 30 20 41 4e 54 42 59 45 52 3a 3d 32 32 10 34 30 31 33 30 20 44 49 ┆TBYER 0120 ANTBYER:=22 40130 DI┆
0x389a0…389c0 4d 20 42 59 24 28 41 4e 54 42 59 45 52 29 20 4f 46 20 31 35 2c 42 59 4e 41 56 4e 24 20 4f 46 20 ┆M BY$(ANTBYER) OF 15,BYNAVN$ OF ┆
0x389c0…389e0 31 35 2c 53 56 41 52 24 20 4f 46 20 33 34 25 30 31 33 35 20 49 4e 54 45 47 45 52 20 41 46 53 54 ┆15,SVAR$ OF 34%0135 INTEGER AFST┆
0x389e0…38a00 41 4e 44 28 41 4e 54 42 59 45 52 2c 41 4e 54 42 59 45 52 29 25 0b 30 31 34 30 20 43 4c 45 41 52 ┆AND(ANTBYER,ANTBYER)% 0140 CLEAR┆
0x38a00…38a20 (28, 0, 11) 20 0b 10 30 31 35 30 20 43 55 52 53 4f 52 20 31 30 2c 35 10 48 30 31 36 30 20 50 52 49 4e 54 20 ┆ 0150 CURSOR 10,5 H0160 PRINT ┆
0x38a20…38a40 22 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 72 20 61 66 73 74 61 6e 64 65 6e 20 6d 65 6c ┆"Programmet finder afstanden mel┆
0x38a40…38a60 6c 65 6d 20 32 32 20 73 74 6f 72 65 20 62 79 65 72 20 69 20 4a 79 6c 6c 61 6e 64 2e 22 48 10 30 ┆lem 22 store byer i Jylland."H 0┆
0x38a60…38a80 31 37 30 20 43 55 52 53 4f 52 20 31 30 2c 36 10 48 30 31 38 30 20 50 52 49 4e 54 20 22 2d 2d 2d ┆170 CURSOR 10,6 H0180 PRINT "---┆
0x38a80…38aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x38aa0…38ac0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 48 11 30 31 39 30 20 ┆------------------------"H 0190 ┆
0x38ac0…38ae0 43 55 52 53 4f 52 20 31 38 2c 31 30 11 35 30 32 30 30 20 50 52 49 4e 54 20 22 46 7c 6c 67 65 6e ┆CURSOR 18,10 50200 PRINT "Følgen┆
0x38ae0…38b00 64 65 20 62 79 65 72 20 65 72 20 6d 65 64 20 69 20 61 66 73 74 61 6e 64 73 74 61 62 65 6c 6c 65 ┆de byer er med i afstandstabelle┆
0x38b00…38b20 (28, 0, 12) 6e 3a 22 35 11 30 32 31 30 20 43 55 52 53 4f 52 20 31 38 2c 31 31 11 35 30 32 32 30 20 50 52 49 ┆n:"5 0210 CURSOR 18,11 50220 PRI┆
0x38b20…38b40 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆NT "----------------------------┆
0x38b40…38b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 35 10 30 32 33 30 20 43 55 52 53 4f 52 20 35 2c 31 35 10 ┆------------"5 0230 CURSOR 5,15 ┆
0x38b60…38b80 32 30 32 34 30 20 50 52 49 4e 54 20 22 45 73 62 6a 65 72 67 20 2d 20 46 72 65 64 65 72 69 63 69 ┆20240 PRINT "Esbjerg - Frederici┆
0x38b80…38ba0 61 20 2d 20 46 72 65 64 65 72 69 6b 73 68 61 76 6e 22 3b 32 2e 30 32 35 30 20 50 52 49 4e 54 20 ┆a - Frederikshavn";2.0250 PRINT ┆
0x38ba0…38bc0 22 20 2d 20 48 61 64 65 72 73 6c 65 76 20 2d 20 48 65 72 6e 69 6e 67 20 2d 20 48 6a 7c 72 72 69 ┆" - Haderslev - Herning - Hjørri┆
0x38bc0…38be0 6e 67 22 2e 10 30 32 36 30 20 43 55 52 53 4f 52 20 35 2c 31 37 10 31 30 32 37 30 20 50 52 49 4e ┆ng". 0260 CURSOR 5,17 10270 PRIN┆
0x38be0…38c00 54 20 22 48 6f 72 73 65 6e 73 20 2d 20 4b 6f 6c 64 69 6e 67 20 2d 20 4b 72 75 73 7d 20 2d 20 52 ┆T "Horsens - Kolding - Kruså - R┆
0x38c00…38c20 (28, 0, 13) 61 6e 64 65 72 73 22 3b 31 2f 30 32 38 30 20 50 52 49 4e 54 20 22 20 2d 20 52 69 6e 67 6b 7c 62 ┆anders";1/0280 PRINT " - Ringkøb┆
0x38c20…38c40 69 6e 67 20 2d 20 53 69 6c 6b 65 62 6f 72 67 20 2d 20 53 6b 61 67 65 6e 22 2f 10 30 32 39 30 20 ┆ing - Silkeborg - Skagen"/ 0290 ┆
0x38c40…38c60 43 55 52 53 4f 52 20 35 2c 31 39 10 33 30 33 30 30 20 50 52 49 4e 54 20 22 53 6b 69 76 65 20 2d ┆CURSOR 5,19 30300 PRINT "Skive -┆
0x38c60…38c80 20 53 7c 6e 64 65 72 62 6f 72 67 20 2d 20 54 68 69 73 74 65 64 20 2d 20 54 7c 6e 64 65 72 22 3b ┆ Sønderborg - Thisted - Tønder";┆
0x38c80…38ca0 33 30 30 33 31 30 20 50 52 49 4e 54 20 22 20 2d 20 56 61 72 64 65 20 2d 20 56 65 6a 6c 65 20 2d ┆300310 PRINT " - Varde - Vejle -┆
0x38ca0…38cc0 20 56 69 62 6f 72 67 20 2d 20 5d 6c 62 6f 72 67 20 22 30 10 30 33 32 30 20 43 55 52 53 4f 52 20 ┆ Viborg - Ålborg "0 0320 CURSOR ┆
0x38cc0…38ce0 35 2c 32 31 10 13 30 33 33 30 20 50 52 49 4e 54 20 22 5d 72 68 75 73 2e 22 13 18 30 33 34 30 20 ┆5,21 0330 PRINT "Århus." 0340 ┆
0x38ce0…38d00 46 4f 52 20 41 3a 3d 31 20 54 4f 20 33 30 30 20 44 4f 20 18 0b 30 33 35 30 20 4e 45 58 54 20 41 ┆FOR A:=1 TO 300 DO 0350 NEXT A┆
0x38d00…38d20 (28, 0, 14) 0b 4d 30 33 36 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ M0360 // ----------------------┆
0x38d20…38d40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x38d40…38d60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 0d 30 33 37 30 20 52 45 53 54 4f 52 45 20 0d 27 ┆---------------M 0370 RESTORE '┆
0x38d60…38d80 30 33 37 31 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 42 59 45 52 20 44 4f 20 52 45 41 44 ┆0371 FOR I:=1 TO ANTBYER DO READ┆
0x38d80…38da0 20 42 59 24 28 49 29 27 1c 30 33 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 42 59 45 ┆ BY$(I)' 0380 FOR I:=1 TO ANTBYE┆
0x38da0…38dc0 52 20 44 4f 20 1c 16 30 33 39 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 49 20 44 4f 20 16 16 30 ┆R DO 0390 FOR J:=1 TO I DO 0┆
0x38dc0…38de0 34 30 30 20 52 45 41 44 20 41 46 53 54 41 4e 44 28 49 2c 4a 29 16 1f 30 34 31 30 20 41 46 53 54 ┆400 READ AFSTAND(I,J) 0410 AFST┆
0x38de0…38e00 41 4e 44 28 4a 2c 49 29 3a 3d 41 46 53 54 41 4e 44 28 49 2c 4a 29 1f 0b 30 34 32 30 20 4e 45 58 ┆AND(J,I):=AFSTAND(I,J) 0420 NEX┆
0x38e00…38e20 (28, 0, 15) 54 20 4a 0b 0b 30 34 33 30 20 4e 45 58 54 20 49 0b 4b 30 34 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d ┆T J 0430 NEXT I K0440 // ------┆
0x38e20…38e40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x38e40…38e60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 0c 30 ┆-----------------------------K 0┆
0x38e60…38e80 34 35 30 20 52 45 50 45 41 54 20 0c 0c 30 34 36 30 20 52 45 50 45 41 54 20 0c 0b 30 34 37 30 20 ┆450 REPEAT 0460 REPEAT 0470 ┆
0x38e80…38ea0 43 4c 45 41 52 20 0b 0c 30 34 38 30 20 52 45 50 45 41 54 20 0c 0b 30 34 39 30 20 43 4c 45 41 52 ┆CLEAR 0480 REPEAT 0490 CLEAR┆
0x38ea0…38ec0 20 0b 10 30 35 30 30 20 43 55 52 53 4f 52 20 31 38 2c 36 10 34 30 35 31 30 20 50 52 49 4e 54 20 ┆ 0500 CURSOR 18,6 40510 PRINT ┆
0x38ec0…38ee0 22 41 66 73 74 61 6e 64 73 74 61 62 65 6c 20 6d 65 6c 6c 65 6d 20 32 32 20 62 79 65 72 20 69 20 ┆"Afstandstabel mellem 22 byer i ┆
0x38ee0…38f00 4a 79 6c 6c 61 6e 64 2e 22 34 10 30 35 32 30 20 43 55 52 53 4f 52 20 31 38 2c 37 10 34 30 35 33 ┆Jylland."4 0520 CURSOR 18,7 4053┆
0x38f00…38f20 (28, 0, 16) 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 PRINT "-----------------------┆
0x38f20…38f40 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 34 10 30 35 34 30 20 43 55 52 53 4f 52 20 31 ┆----------------"4 0540 CURSOR 1┆
0x38f40…38f60 38 2c 39 10 3a 30 35 35 30 20 49 4e 50 55 54 20 22 46 72 61 20 68 76 69 6c 6b 65 6e 20 62 79 3a ┆8,9 :0550 INPUT "Fra hvilken by:┆
0x38f60…38f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 42 59 4e 41 56 4e 24 3a ┆ ":BYNAVN$:┆
0x38f80…38fa0 10 30 35 36 30 20 45 58 45 43 20 46 49 4e 44 42 59 10 13 30 35 37 30 20 55 4e 54 49 4c 20 42 59 ┆ 0560 EXEC FINDBY 0570 UNTIL BY┆
0x38fa0…38fc0 46 55 4e 44 45 54 13 10 30 35 38 30 20 46 52 41 42 59 3a 3d 42 59 4e 52 10 11 30 35 39 30 20 43 ┆FUNDET 0580 FRABY:=BYNR 0590 C┆
0x38fc0…38fe0 55 52 53 4f 52 20 31 38 2c 31 31 11 3a 30 36 30 30 20 49 4e 50 55 54 20 22 54 69 6c 20 68 76 69 ┆URSOR 18,11 :0600 INPUT "Til hvi┆
0x38fe0…39000 6c 6b 65 6e 20 62 79 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a ┆lken by: ":┆
0x39000…39020 (28, 1, 1) 42 59 4e 41 56 4e 24 3a 10 30 36 31 30 20 45 58 45 43 20 46 49 4e 44 42 59 10 13 30 36 32 30 20 ┆BYNAVN$: 0610 EXEC FINDBY 0620 ┆
0x39020…39040 55 4e 54 49 4c 20 42 59 46 55 4e 44 45 54 13 10 30 36 33 30 20 54 49 4c 42 59 3a 3d 42 59 4e 52 ┆UNTIL BYFUNDET 0630 TILBY:=BYNR┆
0x39040…39060 10 11 30 36 34 30 20 43 55 52 53 4f 52 20 31 37 2c 31 34 11 3d 30 36 35 30 20 50 52 49 4e 54 20 ┆ 0640 CURSOR 17,14 =0650 PRINT ┆
0x39060…39080 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆"*******************************┆
0x39080…390a0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 3d 45 30 36 36 30 20 50 52 49 4e 54 20 54 ┆*****************"=E0660 PRINT T┆
0x390a0…390c0 41 42 28 31 37 29 3b 22 2a 22 3b 54 41 42 28 33 30 29 3b 22 41 66 73 74 61 6e 64 65 6e 20 65 72 ┆AB(17);"*";TAB(30);"Afstanden er┆
0x390c0…390e0 3a 20 22 3b 41 46 53 54 41 4e 44 28 46 52 41 42 59 2c 54 49 4c 42 59 29 3b 45 1d 30 36 37 30 20 ┆: ";AFSTAND(FRABY,TILBY);E 0670 ┆
0x390e0…39100 50 52 49 4e 54 20 22 20 6b 6d 2e 22 3b 54 41 42 28 36 34 29 3b 22 2a 22 1d 11 30 36 38 30 20 43 ┆PRINT " km.";TAB(64);"*" 0680 C┆
0x39100…39120 (28, 1, 2) 55 52 53 4f 52 20 31 37 2c 31 36 11 3d 30 36 39 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a ┆URSOR 17,16 =0690 PRINT "*******┆
0x39120…39140 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x39140…39160 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 3d 0c 30 37 30 30 20 52 45 50 45 41 54 20 0c 11 30 37 31 30 20 43 ┆*********"= 0700 REPEAT 0710 C┆
0x39160…39180 55 52 53 4f 52 20 31 38 2c 32 32 11 34 30 37 32 30 20 49 4e 50 55 54 20 22 56 69 6c 20 64 75 20 ┆URSOR 18,22 40720 INPUT "Vil du ┆
0x39180…391a0 70 72 7c 76 65 20 69 67 65 6e 20 28 6a 2f 6e 29 20 20 20 20 20 20 20 20 20 20 22 3a 53 56 41 52 ┆prøve igen (j/n) ":SVAR┆
0x391a0…391c0 24 34 18 30 37 33 30 20 55 4e 54 49 4c 20 53 56 41 52 24 20 49 4e 20 22 6a 6e 22 18 14 30 37 34 ┆$4 0730 UNTIL SVAR$ IN "jn" 074┆
0x391c0…391e0 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3d 22 6e 22 14 11 30 37 35 30 20 43 55 52 53 4f 52 20 31 ┆0 UNTIL SVAR$="n" 0750 CURSOR 1┆
0x391e0…39200 38 2c 32 32 11 28 30 37 36 30 20 50 52 49 4e 54 20 22 3c 5a 3e 53 7d 20 73 6c 75 74 74 65 72 20 ┆8,22 (0760 PRINT "<Z>Så slutter ┆
0x39200…39220 (28, 1, 3) 76 69 20 66 6f 72 20 69 20 64 61 67 2e 22 28 47 30 37 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆vi for i dag."(G0770 // --------┆
0x39220…39240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x39240…39260 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 47 10 30 37 38 30 20 50 52 ┆-----------------------G 0780 PR┆
0x39260…39280 4f 43 20 46 49 4e 44 42 59 10 0d 30 37 39 30 20 52 45 53 54 4f 52 45 20 0d 0c 30 38 30 30 20 42 ┆OC FINDBY 0790 RESTORE 0800 B┆
0x39280…392a0 59 4e 52 3a 3d 30 0c 0c 30 38 31 30 20 52 45 50 45 41 54 20 0c 11 30 38 32 30 20 42 59 4e 52 3a ┆YNR:=0 0810 REPEAT 0820 BYNR:┆
0x392a0…392c0 3d 42 59 4e 52 2b 31 11 2c 30 38 34 30 20 55 4e 54 49 4c 20 42 59 4e 52 3d 41 4e 54 42 59 45 52 ┆=BYNR+1 ,0840 UNTIL BYNR=ANTBYER┆
0x392c0…392e0 20 4f 52 20 42 59 24 28 42 59 4e 52 29 3d 42 59 4e 41 56 4e 24 2c 35 30 38 35 30 20 42 59 46 55 ┆ OR BY$(BYNR)=BYNAVN$,50850 BYFU┆
0x392e0…39300 4e 44 45 54 3a 3d 28 42 59 4e 41 56 4e 24 3d 42 59 24 28 42 59 4e 52 29 29 20 2f 2f 20 6c 6f 67 ┆NDET:=(BYNAVN$=BY$(BYNR)) // log┆
0x39300…39320 (28, 1, 4) ExtentHdr {name=»JYLLAND «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0038,09 (0x038900)}, nextfile={DA 0039,0d (0x039d00)}, f99=41 37 00 20 00 59 4c 4c 41 4e ┆A7 YLLAN┆}
0x39320…39340 69 73 6b 20 76 61 72 69 61 62 65 6c 35 1a 30 38 36 30 20 49 46 20 4e 4f 54 20 42 59 46 55 4e 44 ┆isk variabel5 0860 IF NOT BYFUND┆
0x39340…39360 45 54 20 54 48 45 4e 20 1a 0b 30 38 37 30 20 43 4c 45 41 52 20 0b 3a 30 38 38 30 20 50 52 49 4e ┆ET THEN 0870 CLEAR :0880 PRIN┆
0x39360…39380 54 20 22 44 65 6e 6e 65 20 62 79 20 68 7c 72 65 72 20 69 6b 6b 65 20 6d 65 64 20 74 69 6c 20 64 ┆T "Denne by hører ikke med til d┆
0x39380…393a0 65 20 32 32 20 76 69 73 74 65 20 62 79 65 72 2e 22 3a 0d 30 38 39 30 20 52 45 53 54 4f 52 45 20 ┆e 22 viste byer.": 0890 RESTORE ┆
0x393a0…393c0 0d 1f 30 39 30 30 20 46 4f 52 20 42 59 4e 52 3a 3d 31 20 54 4f 20 41 4e 54 42 59 45 52 20 44 4f ┆ 0900 FOR BYNR:=1 TO ANTBYER DO┆
0x393c0…393e0 20 1f 14 30 39 32 30 20 50 52 49 4e 54 20 42 59 24 28 42 59 4e 52 29 14 0e 30 39 33 30 20 4e 45 ┆ 0920 PRINT BY$(BYNR) 0930 NE┆
0x393e0…39400 58 54 20 42 59 4e 52 0e 11 30 39 34 30 20 43 55 52 53 4f 52 20 37 30 2c 32 31 11 15 30 39 35 30 ┆XT BYNR 0940 CURSOR 70,21 0950┆
0x39400…39420 (28, 1, 5) 20 50 52 49 4e 54 20 22 52 65 74 75 72 6e 21 22 3b 15 10 30 39 36 30 20 49 4e 50 55 54 20 53 56 ┆ PRINT "Return!"; 0960 INPUT SV┆
0x39420…39440 41 52 24 10 0b 30 39 37 30 20 45 4e 44 49 46 20 0b 13 30 39 38 30 20 45 4e 44 50 52 4f 43 20 46 ┆AR$ 0970 ENDIF 0980 ENDPROC F┆
0x39440…39460 49 4e 44 42 59 13 36 30 39 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆INDBY 60990 // -----------------┆
0x39460…39480 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 36 12 31 ┆-----------------------------6 1┆
0x39480…394a0 30 30 30 20 2f 2f 20 4c 41 42 45 4c 20 42 59 45 52 12 46 31 30 31 30 20 44 41 54 41 20 22 45 73 ┆000 // LABEL BYER F1010 DATA "Es┆
0x394a0…394c0 62 6a 65 72 67 22 2c 22 46 72 65 64 65 72 69 63 69 61 22 2c 22 46 72 65 64 65 72 69 6b 73 68 61 ┆bjerg","Fredericia","Frederiksha┆
0x394c0…394e0 76 6e 22 2c 22 48 61 64 65 72 73 6c 65 76 22 2c 22 48 65 72 6e 69 6e 67 22 46 47 31 30 32 30 20 ┆vn","Haderslev","Herning"FG1020 ┆
0x394e0…39500 44 41 54 41 20 22 48 6a 7c 72 72 69 6e 67 22 2c 22 48 6f 72 73 65 6e 73 22 2c 22 4b 6f 6c 64 69 ┆DATA "Hjørring","Horsens","Koldi┆
0x39500…39520 (28, 1, 6) 6e 67 22 2c 22 4b 72 75 73 7d 22 2c 22 52 61 6e 64 65 72 73 22 2c 22 52 69 6e 67 6b 7c 62 69 6e ┆ng","Kruså","Randers","Ringkøbin┆
0x39520…39540 67 22 47 46 31 30 33 30 20 44 41 54 41 20 22 53 69 6c 6b 65 62 6f 72 67 22 2c 22 53 6b 61 67 65 ┆g"GF1030 DATA "Silkeborg","Skage┆
0x39540…39560 6e 22 2c 22 53 6b 69 76 65 22 2c 22 53 7c 6e 64 65 72 62 6f 72 67 22 2c 22 54 68 69 73 74 65 64 ┆n","Skive","Sønderborg","Thisted┆
0x39560…39580 22 2c 22 54 7c 6e 64 65 72 22 46 33 31 30 34 30 20 44 41 54 41 20 22 56 61 72 64 65 22 2c 22 56 ┆","Tønder"F31040 DATA "Varde","V┆
0x39580…395a0 65 6a 6c 65 22 2c 22 56 69 62 6f 72 67 22 2c 22 5d 6c 62 6f 72 67 22 2c 22 5d 72 68 75 73 22 33 ┆ejle","Viborg","Ålborg","Århus"3┆
0x395a0…395c0 47 31 30 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆G1050 // -----------------------┆
0x395c0…395e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x395e0…39600 2d 2d 2d 2d 2d 2d 2d 2d 47 1b 31 30 36 30 20 2f 2f 20 4c 41 42 45 4c 20 41 46 53 54 41 4e 44 53 ┆--------G 1060 // LABEL AFSTANDS┆
0x39600…39620 (28, 1, 7) 54 41 42 45 4c 1b 0b 31 30 37 30 20 44 41 54 41 20 30 0b 0e 31 30 38 30 20 44 41 54 41 20 39 33 ┆TABEL 1070 DATA 0 1080 DATA 93┆
0x39620…39640 2c 30 0e 13 31 30 39 30 20 44 41 54 41 20 32 39 36 2c 32 35 37 2c 30 13 15 31 31 30 30 20 44 41 ┆,0 1090 DATA 296,257,0 1100 DA┆
0x39640…39660 54 41 20 38 30 2c 35 30 2c 32 38 34 2c 30 15 1a 31 31 31 30 20 44 41 54 41 20 31 30 31 2c 38 39 ┆TA 80,50,284,0 1110 DATA 101,89┆
0x39660…39680 2c 31 38 36 2c 31 31 37 2c 30 1a 1e 31 31 32 30 20 44 41 54 41 20 32 38 32 2c 32 34 32 2c 33 35 ┆,186,117,0 1120 DATA 282,242,35┆
0x39680…396a0 2c 32 37 30 2c 31 37 34 2c 30 1e 20 31 31 33 30 20 44 41 54 41 20 31 31 30 2c 35 31 2c 32 31 38 ┆,270,174,0 1130 DATA 110,51,218┆
0x396a0…396c0 2c 37 39 2c 37 30 2c 32 30 34 2c 30 20 22 31 31 34 30 20 44 41 54 41 20 37 31 2c 32 33 2c 32 35 ┆,79,70,204,0 "1140 DATA 71,23,25┆
0x396c0…396e0 38 2c 32 37 2c 39 30 2c 32 34 33 2c 35 32 2c 30 22 28 31 31 35 30 20 44 41 54 41 20 31 30 38 2c ┆8,27,90,243,52,0"(1150 DATA 108,┆
0x396e0…39700 39 39 2c 33 33 34 2c 34 39 2c 31 36 36 2c 33 31 39 2c 31 32 38 2c 37 36 2c 30 28 2d 31 31 36 30 ┆99,334,49,166,319,128,76,0(-1160┆
0x39700…39720 (28, 1, 8) 20 44 41 54 41 20 31 39 33 2c 31 33 34 2c 31 33 37 2c 31 36 32 2c 38 37 2c 31 32 33 2c 38 31 2c ┆ DATA 193,134,137,162,87,123,81,┆
0x39720…39740 31 33 35 2c 32 31 31 2c 30 2d 31 31 31 37 30 20 44 41 54 41 20 38 30 2c 31 33 35 2c 32 33 36 2c ┆135,211,0-11170 DATA 80,135,236,┆
0x39740…39760 31 34 32 2c 34 36 2c 32 32 32 2c 31 31 37 2c 31 31 35 2c 31 38 30 2c 31 33 36 2c 30 31 31 31 31 ┆142,46,222,117,115,180,136,01111┆
0x39760…39780 38 30 20 44 41 54 41 20 31 33 39 2c 38 37 2c 31 37 37 2c 31 31 35 2c 33 37 2c 31 36 32 2c 34 34 ┆80 DATA 139,87,177,115,37,162,44┆
0x39780…397a0 2c 38 38 2c 31 36 34 2c 35 37 2c 38 34 2c 30 31 39 31 31 39 30 20 44 41 54 41 20 33 33 37 2c 32 ┆,88,164,57,84,0191190 DATA 337,2┆
0x397a0…397c0 39 37 2c 34 31 2c 33 32 35 2c 32 32 39 2c 35 35 2c 32 35 37 2c 32 39 38 2c 33 37 34 2c 31 37 38 ┆97,41,325,229,55,257,298,374,178┆
0x397c0…397e0 2c 32 37 37 2c 32 31 38 2c 30 39 3b 31 32 30 30 20 44 41 54 41 20 31 34 33 2c 31 33 34 2c 31 35 ┆,277,218,09;1200 DATA 143,134,15┆
0x397e0…39800 34 2c 31 36 32 2c 35 34 2c 31 34 30 2c 31 30 38 2c 31 33 35 2c 32 31 31 2c 37 30 2c 38 33 2c 36 ┆4,162,54,140,108,135,211,70,83,6┆
0x39800…39820 (28, 1, 9) 34 2c 31 39 35 2c 30 3b 40 31 32 31 30 20 44 41 54 41 20 31 32 30 2c 31 30 37 2c 33 34 32 2c 35 ┆4,195,0;@1210 DATA 120,107,342,5┆
0x39820…39840 37 2c 31 37 34 2c 33 32 37 2c 31 33 36 2c 38 36 2c 32 39 2c 32 31 39 2c 31 39 32 2c 31 37 32 2c ┆7,174,327,136,86,29,219,192,172,┆
0x39840…39860 33 38 32 2c 32 31 39 2c 30 40 40 31 32 32 30 20 44 41 54 41 20 31 38 34 2c 32 30 31 2c 31 35 34 ┆382,219,0@@1220 DATA 184,201,154┆
0x39860…39880 2c 32 32 39 2c 31 31 33 2c 31 32 30 2c 31 38 33 2c 32 30 32 2c 32 37 38 2c 31 33 30 2c 31 32 34 ┆,229,113,120,183,202,278,130,124┆
0x39880…398a0 2c 31 32 33 2c 31 37 35 2c 35 39 40 0f 31 32 33 30 20 44 41 54 41 20 32 38 36 2c 30 0f 40 31 32 ┆,123,175,59@ 1230 DATA 286,0 @12┆
0x398a0…398c0 34 30 20 44 41 54 41 20 37 37 2c 31 30 32 2c 33 33 37 2c 35 38 2c 31 37 30 2c 33 32 32 2c 31 33 ┆40 DATA 77,102,337,58,170,322,13┆
0x398c0…398e0 31 2c 37 39 2c 33 39 2c 32 31 34 2c 31 34 39 2c 31 36 37 2c 33 32 37 2c 32 31 32 2c 36 36 40 0f ┆1,79,39,214,149,167,327,212,66@ ┆
0x398e0…39900 31 32 35 30 20 44 41 54 41 20 32 35 33 2c 30 0f 3f 31 32 36 30 20 44 41 54 41 20 31 39 2c 39 34 ┆1250 DATA 253,0 ?1260 DATA 19,94┆
0x39900…39920 (28, 1, 10) 2c 32 37 38 2c 39 31 2c 38 33 2c 32 36 33 2c 31 30 33 2c 37 32 2c 31 31 38 2c 31 37 37 2c 36 32 ┆,278,91,83,263,103,72,118,177,62┆
0x39920…39940 2c 31 32 30 2c 33 31 38 2c 31 32 35 2c 31 33 31 3f 12 31 32 37 30 20 44 41 54 41 20 31 36 35 2c ┆,120,318,125,131? 1270 DATA 165,┆
0x39940…39960 38 37 2c 30 12 3e 31 32 38 30 20 44 41 54 41 20 38 33 2c 32 34 2c 32 33 33 2c 35 32 2c 36 35 2c ┆87,0 >1280 DATA 83,24,233,52,65,┆
0x39960…39980 32 31 38 2c 32 37 2c 32 35 2c 31 30 31 2c 31 31 30 2c 31 31 31 2c 36 33 2c 32 37 35 2c 31 31 30 ┆218,27,25,101,110,111,63,275,110┆
0x39980…399a0 2c 31 30 39 3e 16 31 32 39 30 20 44 41 54 41 20 31 37 37 2c 31 30 34 2c 37 36 2c 30 16 3f 31 33 ┆,109> 1290 DATA 177,104,76,0 ?13┆
0x399a0…399c0 30 30 20 44 41 54 41 20 31 35 35 2c 31 31 35 2c 31 34 32 2c 31 34 33 2c 34 36 2c 31 32 38 2c 37 ┆00 DATA 155,115,142,143,46,128,7┆
0x399c0…399e0 39 2c 31 31 36 2c 31 39 32 2c 34 31 2c 39 35 2c 33 35 2c 31 38 33 2c 32 39 2c 32 30 30 3f 0c 31 ┆9,116,192,41,95,35,183,29,200? 1┆
0x399e0…39a00 33 31 30 20 44 41 54 41 20 38 37 0c 16 31 33 32 30 20 44 41 54 41 20 31 39 35 2c 31 33 36 2c 39 ┆310 DATA 87 1320 DATA 195,136,9┆
0x39a00…39a20 (28, 1, 11) 31 2c 30 16 41 31 33 33 30 20 44 41 54 41 20 32 33 34 2c 31 39 35 2c 36 32 2c 32 32 32 2c 31 32 ┆1,0 A1330 DATA 234,195,62,222,12┆
0x39a20…39a40 36 2c 34 37 2c 31 35 34 2c 31 39 36 2c 32 37 32 2c 37 35 2c 31 37 34 2c 31 32 35 2c 31 30 33 2c ┆6,47,154,196,272,75,174,125,103,┆
0x39a40…39a60 39 32 2c 32 38 30 41 1d 31 33 34 30 20 44 41 54 41 20 39 36 2c 32 37 35 2c 32 31 36 2c 31 37 31 ┆92,280A 1340 DATA 96,275,216,171┆
0x39a60…39a80 2c 38 30 2c 30 1d 3e 31 33 35 30 20 44 41 54 41 20 31 35 37 2c 39 39 2c 31 37 33 2c 31 32 36 2c ┆,80,0 >1350 DATA 157,99,173,126,┆
0x39a80…39aa0 38 32 2c 31 35 39 2c 34 36 2c 39 39 2c 31 37 35 2c 33 36 2c 31 32 38 2c 34 32 2c 32 31 34 2c 39 ┆82,159,46,99,175,36,128,42,214,9┆
0x39aa0…39ac0 34 2c 31 38 33 3e 21 31 33 36 30 20 44 41 54 41 20 31 35 32 2c 31 37 38 2c 31 35 30 2c 37 34 2c ┆4,183>!1360 DATA 152,178,150,74,┆
0x39ac0…39ae0 36 34 2c 31 31 31 2c 30 21 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆64,111,0! ccccccccccccccccccccc┆
0x39ae0…39b00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x39b00…39c00 (28, 1, 12) 0x63[0x100]
[…0x1…]
0x39d00…39d20 (28, 1, 14) ExtentHdr {name=»DEMO_3 «, typ=»K«, seg=»A«, next=0x00, basis=0x0007, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003a,04 (0x03a400)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x39d20…39d40 38 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 64 65 6d 6f 5f ┆80100 // ----------------- demo_┆
0x39d40…39d60 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 38 2d 30 31 31 30 20 ┆3 -----------------------8-0110 ┆
0x39d60…39d80 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 32 2c 41 44 52 24 20 4f 46 20 32 32 2c 50 4f 53 54 42 ┆DIM NAVN$ OF 22,ADR$ OF 22,POSTB┆
0x39d80…39da0 59 24 20 4f 46 20 32 30 2d 16 30 31 32 30 20 49 4e 54 45 47 45 52 20 4e 52 2c 4e 55 4d 4d 45 52 ┆Y$ OF 20- 0120 INTEGER NR,NUMMER┆
0x39da0…39dc0 16 0b 30 31 33 30 20 43 4c 45 41 52 20 0b 0f 30 31 34 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 35 ┆ 0130 CLEAR 0140 CURSOR 1,6 5┆
0x39dc0…39de0 30 31 35 30 20 50 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 6e 75 20 72 65 74 74 65 20 69 20 6b ┆0150 PRINT "Du skal nu rette i k┆
0x39de0…39e00 61 72 74 6f 74 65 6b 65 74 20 27 44 45 4d 4f 46 49 4c 27 20 22 35 1f 30 32 30 30 20 44 49 4d 20 ┆artoteket 'DEMOFIL' "5 0200 DIM ┆
0x39e00…39e20 (28, 1, 15) 46 49 4c 24 20 4f 46 20 38 2c 4b 4c 41 53 53 45 24 20 4f 46 20 35 1f 1a 30 32 31 30 20 43 52 45 ┆FIL$ OF 8,KLASSE$ OF 5 0210 CRE┆
0x39e20…39e40 41 54 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 1a 1a 30 32 32 30 20 4f 50 45 4e 20 22 53 ┆ATE "SYSTIME:KOPI" 0220 OPEN "S┆
0x39e40…39e60 59 53 54 49 4d 45 3a 4b 4f 50 49 22 2c 57 1a 1d 30 32 33 30 20 4f 50 45 4e 20 22 53 59 53 54 49 ┆YSTIME:KOPI",W 0230 OPEN "SYSTI┆
0x39e60…39e80 4d 45 3a 44 45 4d 4f 46 49 4c 22 2c 52 1d 3c 30 32 34 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 ┆ME:DEMOFIL",R <0240 GET "SYSTIME┆
0x39e80…39ea0 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 2c 41 ┆:DEMOFIL":NUMMER,KLASSE$,NAVN$,A┆
0x39ea0…39ec0 44 52 24 2c 50 4f 53 54 42 59 24 3c 29 30 32 35 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f 46 28 ┆DR$,POSTBY$<)0250 WHILE NOT EOF(┆
0x39ec0…39ee0 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 29 20 44 4f 20 29 4b 30 32 36 30 20 50 52 49 ┆"SYSTIME:DEMOFIL") DO )K0260 PRI┆
0x39ee0…39f00 4e 54 20 4e 55 4d 4d 45 52 3b 54 41 42 28 36 29 3b 4b 4c 41 53 53 45 24 3b 54 41 42 28 31 37 29 ┆NT NUMMER;TAB(6);KLASSE$;TAB(17)┆
0x39f00…39f20 (28, 1, 16) 3b 4e 41 56 4e 24 3b 54 41 42 28 33 39 29 3b 41 44 52 24 3b 54 41 42 28 36 32 29 3b 50 4f 53 54 ┆;NAVN$;TAB(39);ADR$;TAB(62);POST┆
0x39f20…39f40 42 59 24 4b 16 30 32 37 30 20 49 46 20 4e 55 4d 4d 45 52 3d 35 20 54 48 45 4e 20 16 27 30 32 38 ┆BY$K 0270 IF NUMMER=5 THEN '028┆
0x39f40…39f60 30 20 49 4e 50 55 54 20 22 4e 75 6d 6d 65 72 2e 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 4e 55 ┆0 INPUT "Nummer. : ":NU┆
0x39f60…39f80 4d 4d 45 52 27 28 30 32 39 30 20 49 4e 50 55 54 20 22 4b 6c 61 73 73 65 20 20 20 20 20 20 20 20 ┆MMER'(0290 INPUT "Klasse ┆
0x39f80…39fa0 20 20 20 3a 20 22 3a 4b 4c 41 53 53 45 24 28 26 30 33 30 30 20 49 4e 50 55 54 20 22 4e 61 76 6e ┆ : ":KLASSE$(&0300 INPUT "Navn┆
0x39fa0…39fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 4e 41 56 4e 24 26 25 30 33 31 30 20 49 4e 50 ┆ : ":NAVN$&%0310 INP┆
0x39fc0…39fe0 55 54 20 22 41 64 72 65 73 73 65 20 20 20 20 20 20 20 20 20 20 3a 20 22 3a 41 44 52 24 25 28 30 ┆UT "Adresse : ":ADR$%(0┆
0x39fe0…3a000 33 32 30 20 49 4e 50 55 54 20 22 50 6f 73 74 6e 72 2e 20 26 20 62 79 20 20 20 20 20 3a 20 22 3a ┆320 INPUT "Postnr. & by : ":┆
0x3a000…3a020 (29, 0, 1) 50 4f 53 54 42 59 24 28 0b 30 33 33 30 20 45 4e 44 49 46 20 0b 39 30 33 34 30 20 50 55 54 20 22 ┆POSTBY$( 0330 ENDIF 90340 PUT "┆
0x3a020…3a040 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 ┆SYSTIME:KOPI":NUMMER,KLASSE$,NAV┆
0x3a040…3a060 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 3c 30 33 35 30 20 47 45 54 20 22 53 59 53 54 49 ┆N$,ADR$,POSTBY$9<0350 GET "SYSTI┆
0x3a060…3a080 4d 45 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 ┆ME:DEMOFIL":NUMMER,KLASSE$,NAVN$┆
0x3a080…3a0a0 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 3c 0e 30 33 36 30 20 45 4e 44 57 48 49 4c 45 20 0e 1c 30 ┆,ADR$,POSTBY$< 0360 ENDWHILE 0┆
0x3a0a0…3a0c0 33 37 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 1c 38 30 33 38 ┆370 CLOSE "SYSTIME:DEMOFIL" 8038┆
0x3a0c0…3a0e0 30 20 45 4e 44 46 49 4c 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 20 2f 2f 20 55 64 73 6b ┆0 ENDFILE "SYSTIME:KOPI" // Udsk┆
0x3a0e0…3a100 72 69 76 20 73 6c 75 74 6d 7b 72 6b 65 20 69 20 66 69 6c 65 6e 38 19 30 33 39 30 20 43 4c 4f 53 ┆riv slutmærke i filen8 0390 CLOS┆
0x3a100…3a120 (29, 0, 2) 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 19 05 30 34 30 30 20 05 1a 30 34 31 30 20 4f 50 ┆E "SYSTIME:KOPI" 0400 0410 OP┆
0x3a120…3a140 45 4e 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 2c 52 1a 1d 30 34 32 30 20 4f 50 45 4e 20 22 ┆EN "SYSTIME:KOPI",R 0420 OPEN "┆
0x3a140…3a160 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 2c 57 1d 39 30 34 33 30 20 47 45 54 20 22 53 59 ┆SYSTIME:DEMOFIL",W 90430 GET "SY┆
0x3a160…3a180 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e 24 ┆STIME:KOPI":NUMMER,KLASSE$,NAVN$┆
0x3a180…3a1a0 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 26 30 34 34 30 20 57 48 49 4c 45 20 4e 4f 54 20 45 4f ┆,ADR$,POSTBY$9&0440 WHILE NOT EO┆
0x3a1a0…3a1c0 46 28 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 29 20 44 4f 20 26 3c 30 34 35 30 20 50 55 54 20 ┆F("SYSTIME:KOPI") DO &<0450 PUT ┆
0x3a1c0…3a1e0 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 ┆"SYSTIME:DEMOFIL":NUMMER,KLASSE$┆
0x3a1e0…3a200 2c 4e 41 56 4e 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 3c 39 30 34 36 30 20 47 45 54 20 22 53 ┆,NAVN$,ADR$,POSTBY$<90460 GET "S┆
0x3a200…3a220 (29, 0, 3) 59 53 54 49 4d 45 3a 4b 4f 50 49 22 3a 4e 55 4d 4d 45 52 2c 4b 4c 41 53 53 45 24 2c 4e 41 56 4e ┆YSTIME:KOPI":NUMMER,KLASSE$,NAVN┆
0x3a220…3a240 24 2c 41 44 52 24 2c 50 4f 53 54 42 59 24 39 0e 30 34 37 30 20 45 4e 44 57 48 49 4c 45 20 0e 19 ┆$,ADR$,POSTBY$9 0470 ENDWHILE ┆
0x3a240…3a260 30 34 38 30 20 43 4c 4f 53 45 20 22 53 59 53 54 49 4d 45 3a 4b 4f 50 49 22 19 3b 30 34 39 30 20 ┆0480 CLOSE "SYSTIME:KOPI" ;0490 ┆
0x3a260…3a280 45 4e 44 46 49 4c 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 20 2f 2f 20 55 64 73 ┆ENDFILE "SYSTIME:DEMOFIL" // Uds┆
0x3a280…3a2a0 6b 72 69 76 20 73 6c 75 74 6d 7b 72 6b 65 20 69 20 66 69 6c 65 6e 3b 1c 30 35 30 30 20 43 4c 4f ┆kriv slutmærke i filen; 0500 CLO┆
0x3a2a0…3a2c0 53 45 20 22 53 59 53 54 49 4d 45 3a 44 45 4d 4f 46 49 4c 22 1c 05 30 35 31 30 20 05 15 30 35 32 ┆SE "SYSTIME:DEMOFIL" 0510 052┆
0x3a2c0…3a2e0 30 20 50 52 4f 43 20 45 4f 46 28 46 4e 41 56 4e 24 29 15 41 30 35 33 30 20 2f 2f 20 45 4f 46 20 ┆0 PROC EOF(FNAVN$) A0530 // EOF ┆
0x3a2e0…3a300 66 75 6e 6b 74 69 6f 6e 65 6e 20 66 69 6e 64 65 73 20 69 6b 6b 65 20 69 20 44 44 45 2d 43 4f 4d ┆funktionen findes ikke i DDE-COM┆
0x3a300…3a320 (29, 0, 4) 41 4c 38 30 20 69 73 74 65 64 65 74 20 61 6e 76 65 6e 64 65 73 41 3f 30 35 34 30 20 2f 2f 20 73 ┆AL80 istedet anvendesA?0540 // s┆
0x3a320…3a340 74 61 6e 64 61 72 64 20 66 75 6e 6b 74 69 6f 6e 20 53 54 41 54 55 53 2c 20 73 6f 6d 20 72 65 74 ┆tandard funktion STATUS, som ret┆
0x3a340…3a360 75 72 6e 65 72 65 72 20 6d 65 64 20 76 7b 72 64 69 65 6e 20 31 39 3f 17 30 35 35 30 20 2f 2f 20 ┆urnerer med værdien 19? 0550 // ┆
0x3a360…3a380 76 65 64 20 45 4e 44 2d 4f 46 2d 46 49 4c 45 17 1d 30 35 36 30 20 45 4f 46 3a 3d 28 53 54 41 54 ┆ved END-OF-FILE 0560 EOF:=(STAT┆
0x3a380…3a3a0 55 53 28 46 4e 41 56 4e 24 29 3d 31 39 29 1d 10 30 35 37 30 20 45 4e 44 50 52 4f 43 20 45 4f 46 ┆US(FNAVN$)=19) 0570 ENDPROC EOF┆
0x3a3a0…3a3c0 10 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ccccccccccccccccccccccccccccc┆
0x3a3c0…3a3e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x3a400…3a420 (29, 0, 5) ExtentHdr {name=»ANNUITET«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003a,08 (0x03a800)}, f99=41 3a 00 fe 00 00 00 00 00 00 ┆A: ┆}
0x3a420…3a440 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x3a440…3a460 2d 2d 20 61 6e 6e 75 69 74 65 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- annuitet --------------------┆
0x3a460…3a480 2d 2d 2d 2d 2d 2d 45 47 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 66 69 6e 64 65 ┆------EG0020 // Programmet finde┆
0x3a480…3a4a0 72 20 76 7b 72 64 69 65 6e 20 61 66 20 65 6e 20 72 7b 6b 6b 65 20 6c 69 67 65 20 73 74 6f 72 65 ┆r værdien af en række lige store┆
0x3a4a0…3a4c0 20 69 6e 64 62 65 74 61 6c 69 6e 67 65 72 2e 47 10 30 30 32 35 20 49 4e 54 45 47 45 52 20 49 2c ┆ indbetalinger.G 0025 INTEGER I,┆
0x3a4c0…3a4e0 5d 10 14 30 30 33 30 20 44 49 4d 20 46 4f 52 4d 24 20 4f 46 20 38 30 14 0b 30 30 34 30 20 43 4c ┆Å 0030 DIM FORM$ OF 80 0040 CL┆
0x3a4e0…3a500 45 41 52 20 0b 0b 30 30 34 35 20 50 52 49 4e 54 20 0b 4d 30 30 35 30 20 49 4e 50 55 54 20 22 49 ┆EAR 0045 PRINT M0050 INPUT "I┆
0x3a500…3a520 (29, 0, 6) 6e 64 74 61 73 74 20 64 65 74 20 7d 72 6c 69 67 65 20 42 45 4c 5c 42 2c 20 52 45 4e 54 45 4e 20 ┆ndtast det årlige BELØB, RENTEN ┆
0x3a520…3a540 69 20 25 20 73 61 6d 74 20 61 6e 74 61 6c 20 5d 52 3a 20 22 3a 42 45 4c 5c 42 2c 50 43 54 2c 5d ┆i % samt antal ÅR: ":BELØB,PCT,Å┆
0x3a540…3a560 4d 0b 30 30 36 30 20 43 4c 45 41 52 20 0b 0b 30 30 36 35 20 50 52 49 4e 54 20 0b 4d 30 30 37 30 ┆M 0060 CLEAR 0065 PRINT M0070┆
0x3a560…3a580 20 46 4f 52 4d 24 3a 3d 22 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 ┆ FORM$:=" ########.## ┆
0x3a580…3a5a0 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 2e 23 23 20 20 20 20 20 20 20 20 20 20 ┆ ########.## ┆
0x3a5a0…3a5c0 20 20 23 23 23 23 23 23 22 4d 4b 30 30 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 ┆ ######"MK0080 PRINT " ┆
0x3a5c0…3a5e0 20 20 20 20 20 49 4e 44 42 45 54 41 4c 49 4e 47 20 50 52 2e 20 5d 52 2e 2e 2e 2e 2e 2e 2e 2e 2e ┆ INDBETALING PR. ÅR.........┆
0x3a5e0…3a600 2e 2e 2e 3a 20 22 3b 43 48 52 24 28 42 45 4c 5c 42 2c 38 2c 32 29 4b 4d 30 30 39 30 20 50 52 49 ┆...: ";CHR$(BELØB,8,2)KM0090 PRI┆
0x3a600…3a620 (29, 0, 7) 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 45 4e 54 45 4e 2e 2e 2e 2e 2e 2e 2e 2e ┆NT " RENTEN........┆
0x3a620…3a640 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 3a 20 22 3b 43 48 52 24 28 50 43 54 2c 38 2c 32 ┆................: ";CHR$(PCT,8,2┆
0x3a640…3a660 29 3b 22 25 22 4d 43 30 31 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆);"%"MC0100 PRINT " ┆
0x3a660…3a680 20 41 4e 54 41 4c 20 5d 52 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 3a ┆ ANTAL ÅR......................:┆
0x3a680…3a6a0 20 20 20 20 20 20 20 22 3b 5d 43 0b 30 31 31 30 20 50 52 49 4e 54 20 0b 0b 30 31 32 30 20 50 52 ┆ ";ÅC 0110 PRINT 0120 PR┆
0x3a6a0…3a6c0 49 4e 54 20 0b 4c 30 31 33 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 54 ┆INT L0130 PRINT " T┆
0x3a6c0…3a6e0 4f 54 41 4c 42 45 4c 5c 42 20 20 20 20 20 20 48 45 52 41 46 20 49 4e 44 42 45 54 41 4c 49 4e 47 ┆OTALBELØB HERAF INDBETALING┆
0x3a6e0…3a700 20 20 20 20 20 20 20 20 20 41 4e 54 41 4c 20 5d 52 22 4c 0b 30 31 34 30 20 50 52 49 4e 54 20 0b ┆ ANTAL ÅR"L 0140 PRINT ┆
0x3a700…3a720 (29, 0, 8) 17 30 31 35 30 20 49 4e 44 42 45 54 41 4c 49 4e 47 3a 3d 42 45 4c 5c 42 17 11 30 31 36 30 20 54 ┆ 0150 INDBETALING:=BELØB 0160 T┆
0x3a720…3a740 4f 54 41 4c 3a 3d 42 45 4c 5c 42 11 13 30 31 37 30 20 50 43 54 3a 3d 31 2b 50 43 54 2f 31 30 30 ┆OTAL:=BELØB 0170 PCT:=1+PCT/100┆
0x3a740…3a760 13 16 30 31 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 5d 20 44 4f 20 16 15 30 31 39 30 20 54 ┆ 0180 FOR I:=1 TO Å DO 0190 T┆
0x3a760…3a780 4f 54 41 4c 3a 3d 54 4f 54 41 4c 2a 50 43 54 15 2a 30 32 30 30 20 50 52 49 4e 54 20 55 53 49 4e ┆OTAL:=TOTAL*PCT *0200 PRINT USIN┆
0x3a780…3a7a0 47 20 46 4f 52 4d 24 3a 54 4f 54 41 4c 2c 49 4e 44 42 45 54 41 4c 49 4e 47 2c 49 2a 17 30 32 31 ┆G FORM$:TOTAL,INDBETALING,I* 021┆
0x3a7a0…3a7c0 30 20 54 4f 54 41 4c 3a 3d 54 4f 54 41 4c 2b 42 45 4c 5c 42 17 23 30 32 32 30 20 49 4e 44 42 45 ┆0 TOTAL:=TOTAL+BELØB #0220 INDBE┆
0x3a7c0…3a7e0 54 41 4c 49 4e 47 3a 3d 49 4e 44 42 45 54 41 4c 49 4e 47 2b 42 45 4c 5c 42 23 0b 30 32 33 30 20 ┆TALING:=INDBETALING+BELØB# 0230 ┆
0x3a7e0…3a800 4e 45 58 54 20 49 0b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆NEXT I ccccccccccccccccccccccc┆
0x3a800…3a820 (29, 0, 9) ExtentHdr {name=»JULEBREV«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003b,02 (0x03b200)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x3a820…3a840 41 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆A0010 // -----------------------┆
0x3a840…3a860 20 6a 75 6c 65 62 72 65 76 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ julebrev ----------------------┆
0x3a860…3a880 2d 2d 41 2c 30 30 32 30 20 44 49 4d 20 4e 41 56 4e 24 20 4f 46 20 32 30 2c 41 46 53 4e 41 56 4e ┆--A,0020 DIM NAVN$ OF 20,AFSNAVN┆
0x3a880…3a8a0 24 20 4f 46 20 32 30 2c 53 56 24 20 4f 46 20 31 2c 08 30 30 33 30 20 2f 2f 20 08 0c 30 30 34 30 ┆$ OF 20,SV$ OF 1, 0030 // 0040┆
0x3a8a0…3a8c0 20 52 45 50 45 41 54 20 0c 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 31 30 30 36 30 20 49 4e 50 55 ┆ REPEAT 0050 CLEAR 10060 INPU┆
0x3a8c0…3a8e0 54 20 22 5c 6e 73 6b 65 73 20 70 72 69 6e 74 65 72 75 64 73 6b 72 69 66 74 3f 20 20 20 28 6a 2f ┆T "Ønskes printerudskrift? (j/┆
0x3a8e0…3a900 6e 29 20 22 3a 53 56 24 31 0b 30 30 37 30 20 50 52 49 4e 54 20 0b 0b 30 30 38 30 20 50 52 49 4e ┆n) ":SV$1 0070 PRINT 0080 PRIN┆
0x3a900…3a920 (29, 0, 10) 54 20 0b 29 30 30 39 30 20 49 46 20 53 56 24 20 49 4e 20 22 6a 22 20 54 48 45 4e 20 53 45 4c 45 ┆T )0090 IF SV$ IN "j" THEN SELE┆
0x3a920…3a940 43 54 20 4f 55 54 50 55 54 20 22 50 22 29 3d 30 31 30 30 20 49 4e 50 55 54 20 22 4d 6f 64 74 61 ┆CT OUTPUT "P")=0100 INPUT "Modta┆
0x3a940…3a960 67 65 72 65 6e 73 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆gerens navn: ┆
0x3a960…3a980 20 20 20 20 20 22 3a 4e 41 56 4e 24 3d 40 30 31 31 30 20 49 4e 50 55 54 20 22 41 66 73 65 6e 64 ┆ ":NAVN$=@0110 INPUT "Afsend┆
0x3a980…3a9a0 65 72 65 6e 73 20 6e 61 76 6e 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆erens navn: ┆
0x3a9a0…3a9c0 20 20 20 20 22 3a 41 46 53 4e 41 56 4e 24 40 08 30 31 32 30 20 2f 2f 20 08 18 30 31 33 30 20 50 ┆ ":AFSNAVN$@ 0120 // 0130 P┆
0x3a9c0…3a9e0 52 49 4e 54 20 22 4b 7b 72 65 20 22 3b 4e 41 56 4e 24 18 0b 30 31 34 30 20 50 52 49 4e 54 20 0b ┆RINT "Kære ";NAVN$ 0140 PRINT ┆
0x3a9e0…3aa00 40 30 31 35 30 20 50 52 49 4e 54 20 22 20 20 4e 75 20 6e 7b 72 6d 65 72 20 6a 75 6c 65 6e 20 73 ┆@0150 PRINT " Nu nærmer julen s┆
0x3aa00…3aa20 (29, 0, 11) 69 67 20 61 74 74 65 72 20 6d 65 64 20 6b 7b 6d 70 65 73 6b 72 69 64 74 20 6f 67 20 6a 65 67 20 ┆ig atter med kæmpeskridt og jeg ┆
0x3aa20…3aa40 22 40 43 30 31 36 30 20 50 52 49 4e 54 20 22 76 69 6c 20 7c 6e 73 6b 65 20 64 69 67 20 65 6e 20 ┆"@C0160 PRINT "vil ønske dig en ┆
0x3aa40…3aa60 72 69 67 74 69 67 20 67 6c 7b 64 65 6c 69 67 20 6a 75 6c 20 6f 67 20 65 74 20 67 6f 64 74 20 4e ┆rigtig glædelig jul og et godt N┆
0x3aa60…3aa80 79 74 7d 72 2e 22 43 43 30 31 37 30 20 50 52 49 4e 54 20 22 4a 65 67 20 67 6c 7b 64 65 72 20 6d ┆ytår."CC0170 PRINT "Jeg glæder m┆
0x3aa80…3aaa0 69 67 20 74 69 6c 20 76 6f 72 65 73 20 6c 69 6c 6c 65 20 6b 6f 6d 73 61 6d 6d 65 6e 20 4e 79 74 ┆ig til vores lille komsammen Nyt┆
0x3aaa0…3aac0 7d 72 73 61 66 74 65 6e 2c 20 22 43 43 30 31 38 30 20 50 52 49 4e 54 20 22 68 76 6f 72 20 76 69 ┆årsaften, "CC0180 PRINT "hvor vi┆
0x3aac0…3aae0 20 72 69 67 74 69 67 20 73 6b 61 6c 20 67 7d 20 74 69 6c 20 6d 61 6b 72 6f 6e 65 72 6e 65 2e 20 ┆ rigtig skal gå til makronerne. ┆
0x3aae0…3ab00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 43 0b 30 31 39 30 20 50 52 49 4e 54 20 0b 28 30 ┆ "C 0190 PRINT (0┆
0x3ab00…3ab20 (29, 0, 12) 32 30 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 3b 22 4d 65 64 20 76 65 6e 6c 69 67 20 68 69 ┆200 PRINT TAB(30);"Med venlig hi┆
0x3ab20…3ab40 6c 73 65 6e 2c 20 22 28 1b 30 32 31 30 20 50 52 49 4e 54 20 54 41 42 28 33 30 29 3b 41 46 53 4e ┆lsen, "( 0210 PRINT TAB(30);AFSN┆
0x3ab40…3ab60 41 56 4e 24 1b 16 30 32 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 10 30 32 ┆AVN$ 0220 SELECT OUTPUT "T" 02┆
0x3ab60…3ab80 33 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 37 30 32 34 30 20 49 4e 50 55 54 20 22 53 6b 61 6c ┆30 CURSOR 1,23 70240 INPUT "Skal┆
0x3ab80…3aba0 20 64 65 72 20 66 6c 65 72 65 20 62 72 65 76 65 20 61 66 73 74 65 64 3f 20 20 20 20 28 6a 2f 6e ┆ der flere breve afsted? (j/n┆
0x3aba0…3abc0 29 20 22 3a 53 56 24 37 10 30 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 1d 30 32 39 30 20 ┆) ":SV$7 0260 CURSOR 1,23 0290 ┆
0x3abc0…3abe0 55 4e 54 49 4c 20 53 56 24 3d 22 4e 22 20 4f 52 20 53 56 24 3d 22 6e 22 1d 0f 41 34 38 36 20 2f ┆UNTIL SV$="N" OR SV$="n" A486 /┆
0x3abe0…3ac00 2f 20 6a 2f 6e 29 20 22 3b 0f 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆/ j/n) "; cccccccccccccccccccc┆
0x3ac00…3ad00 (29, 0, 13) 0x63[0x100]
[…0x5…]
0x3b200…3b220 (29, 1, 3) ExtentHdr {name=»VARENUMM«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003b,07 (0x03b700)}, f99=41 3b 00 fe 00 00 00 00 00 00 ┆A; ┆}
0x3b220…3b240 47 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 76 61 72 ┆G0010 // ------------------- var┆
0x3b240…3b260 65 6e 75 6d 6d 65 72 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆enummer ------------------------┆
0x3b260…3b280 2d 2d 2d 2d 2d 2d 2d 2d 47 0b 30 30 32 30 20 43 4c 45 41 52 20 0b 0f 30 30 33 30 20 43 55 52 53 ┆--------G 0020 CLEAR 0030 CURS┆
0x3b280…3b2a0 4f 52 20 31 2c 36 0f 30 30 30 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 76 61 72 65 ┆OR 1,6 00040 INPUT "Indtast vare┆
0x3b2a0…3b2c0 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 20 20 20 22 3a 4e 55 4d 4d 45 52 30 0b 30 30 35 30 20 50 ┆nummer: ":NUMMER0 0050 P┆
0x3b2c0…3b2e0 52 49 4e 54 20 0b 24 30 30 36 30 20 49 46 20 4e 55 4d 4d 45 52 3c 31 20 4f 52 20 4e 55 4d 4d 45 ┆RINT $0060 IF NUMMER<1 OR NUMME┆
0x3b2e0…3b300 52 3e 31 30 30 20 54 48 45 4e 20 24 40 30 30 37 30 20 50 52 49 4e 54 20 22 56 69 20 68 61 72 20 ┆R>100 THEN $@0070 PRINT "Vi har ┆
0x3b300…3b320 (29, 1, 4) 64 65 73 76 7b 72 72 65 20 69 6b 6b 65 20 6e 6f 67 65 6e 20 76 61 72 65 20 6d 65 64 20 64 65 74 ┆desværre ikke nogen vare med det┆
0x3b320…3b340 20 76 61 72 65 6e 75 6d 6d 65 72 2e 22 40 28 30 30 38 30 20 50 52 49 4e 54 20 22 55 6e 64 65 72 ┆ varenummer."@(0080 PRINT "Under┆
0x3b340…3b360 73 7c 67 20 73 61 67 65 6e 20 6f 67 20 6b 6f 6d 20 69 67 65 6e 2e 22 28 0a 30 30 39 30 20 45 4c ┆søg sagen og kom igen."( 0090 EL┆
0x3b360…3b380 53 45 20 0a 18 30 30 39 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 32 30 20 54 48 45 4e 20 18 45 30 ┆SE 0095 IF NUMMER<=20 THEN E0┆
0x3b380…3b3a0 31 30 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 61 72 65 6e 75 6d 6d 65 72 3a 20 20 23 23 ┆100 PRINT USING "Varenummer: ##┆
0x3b3a0…3b3c0 23 23 20 6c 69 67 67 65 72 20 69 20 76 61 72 65 67 72 75 70 70 65 20 31 2e 20 20 20 22 3a 4e 55 ┆## ligger i varegruppe 1. ":NU┆
0x3b3c0…3b3e0 4d 4d 45 52 45 0a 30 31 30 35 20 45 4c 53 45 20 0a 18 30 31 31 30 20 49 46 20 4e 55 4d 4d 45 52 ┆MMERE 0105 ELSE 0110 IF NUMMER┆
0x3b3e0…3b400 3c 3d 34 30 20 54 48 45 4e 20 18 45 30 31 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 61 ┆<=40 THEN E0120 PRINT USING "Va┆
0x3b400…3b420 (29, 1, 5) 72 65 6e 75 6d 6d 65 72 3a 20 20 23 23 23 23 20 6c 69 67 67 65 72 20 69 20 76 61 72 65 67 72 75 ┆renummer: #### ligger i varegru┆
0x3b420…3b440 70 70 65 20 32 2e 20 20 20 22 3a 4e 55 4d 4d 45 52 45 0a 30 31 33 30 20 45 4c 53 45 20 0a 18 30 ┆ppe 2. ":NUMMERE 0130 ELSE 0┆
0x3b440…3b460 31 33 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 36 30 20 54 48 45 4e 20 18 45 30 31 34 30 20 50 52 ┆135 IF NUMMER<=60 THEN E0140 PR┆
0x3b460…3b480 49 4e 54 20 55 53 49 4e 47 20 22 56 61 72 65 6e 75 6d 6d 65 72 3a 20 20 23 23 23 23 20 6c 69 67 ┆INT USING "Varenummer: #### lig┆
0x3b480…3b4a0 67 65 72 20 69 20 76 61 72 65 67 72 75 70 70 65 20 33 2e 20 20 20 22 3a 4e 55 4d 4d 45 52 45 0a ┆ger i varegruppe 3. ":NUMMERE ┆
0x3b4a0…3b4c0 30 31 35 30 20 45 4c 53 45 20 0a 18 30 31 35 35 20 49 46 20 4e 55 4d 4d 45 52 3c 3d 38 30 20 54 ┆0150 ELSE 0155 IF NUMMER<=80 T┆
0x3b4c0…3b4e0 48 45 4e 20 18 45 30 31 36 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 56 61 72 65 6e 75 6d 6d ┆HEN E0160 PRINT USING "Varenumm┆
0x3b4e0…3b500 65 72 3a 20 20 23 23 23 23 20 6c 69 67 67 65 72 20 69 20 76 61 72 65 67 72 75 70 70 65 20 34 2e ┆er: #### ligger i varegruppe 4.┆
0x3b500…3b520 (29, 1, 6) 20 20 20 22 3a 4e 55 4d 4d 45 52 45 0a 30 31 37 30 20 45 4c 53 45 20 0a 19 30 31 37 35 20 49 46 ┆ ":NUMMERE 0170 ELSE 0175 IF┆
0x3b520…3b540 20 4e 55 4d 4d 45 52 3c 3d 31 30 30 20 54 48 45 4e 20 19 45 30 31 38 30 20 50 52 49 4e 54 20 55 ┆ NUMMER<=100 THEN E0180 PRINT U┆
0x3b540…3b560 53 49 4e 47 20 22 56 61 72 65 6e 75 6d 6d 65 72 3a 20 20 23 23 23 23 20 6c 69 67 67 65 72 20 69 ┆SING "Varenummer: #### ligger i┆
0x3b560…3b580 20 76 61 72 65 67 72 75 70 70 65 20 35 2e 20 20 20 22 3a 4e 55 4d 4d 45 52 45 0b 30 31 39 30 20 ┆ varegruppe 5. ":NUMMERE 0190 ┆
0x3b580…3b5a0 45 4e 44 49 46 20 0b 0b 30 31 39 35 20 45 4e 44 49 46 20 0b 0b 30 31 39 36 20 45 4e 44 49 46 20 ┆ENDIF 0195 ENDIF 0196 ENDIF ┆
0x3b5a0…3b5c0 0b 0b 30 31 39 37 20 45 4e 44 49 46 20 0b 0b 30 31 39 38 20 45 4e 44 49 46 20 0b 0b 30 31 39 39 ┆ 0197 ENDIF 0198 ENDIF 0199┆
0x3b5c0…3b5e0 20 45 4e 44 49 46 20 0b 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ENDIF cccccccccccccccccccccc┆
0x3b5e0…3b600 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x3b600…3b700 (29, 1, 7) 0x63[0x100]
0x3b700…3b720 (29, 1, 8) ExtentHdr {name=»KVADRATT«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003b,09 (0x03b900)}, f99=41 3b 00 fe 00 56 41 44 52 41 ┆A; VADRA┆}
0x3b720…3b740 3c 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6b ┆<0010 // --------------------- k┆
0x3b740…3b760 76 61 64 72 61 74 74 61 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3c 40 30 ┆vadrattal -------------------<@0┆
0x3b760…3b780 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 6e 64 65 72 73 7c 67 65 72 2c 20 6f 6d ┆020 // Programmet undersøger, om┆
0x3b780…3b7a0 20 65 74 20 67 69 76 65 74 20 74 61 6c 20 65 72 20 65 74 20 6b 76 61 64 72 61 74 74 61 6c 2e 40 ┆ et givet tal er et kvadrattal.@┆
0x3b7a0…3b7c0 4b 30 30 32 35 20 2f 2f 20 46 75 6e 67 65 72 65 72 20 69 6b 6b 65 20 69 20 64 65 6e 6e 65 20 43 ┆K0025 // Fungerer ikke i denne C┆
0x3b7c0…3b7e0 4f 4d 41 4c 2d 76 65 72 73 2e 20 70 2e 67 2e 61 2e 20 66 75 6e 6b 74 69 6f 6e 65 72 6e 65 73 20 ┆OMAL-vers. p.g.a. funktionernes ┆
0x3b7e0…3b800 75 6e 7c 6a 61 67 74 69 67 68 65 64 4b 00 00 30 33 30 20 43 4c 45 41 52 20 0b 0b 30 30 33 35 20 ┆unøjagtighedK 030 CLEAR 0035 ┆
0x3b800…3b820 (29, 1, 9) 50 52 49 4e 54 20 0b 2a 30 30 34 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 65 74 20 70 ┆PRINT *0040 INPUT "Indtast et p┆
0x3b820…3b840 6f 73 69 74 69 76 74 20 74 61 6c 3a 20 22 3a 54 41 4c 2a 0b 30 30 35 30 20 50 52 49 4e 54 20 0b ┆ositivt tal: ":TAL* 0050 PRINT ┆
0x3b840…3b860 24 30 30 36 30 20 49 46 20 53 51 52 28 54 41 4c 29 3d 49 4e 54 28 53 51 52 28 54 41 4c 29 29 20 ┆$0060 IF SQR(TAL)=INT(SQR(TAL)) ┆
0x3b860…3b880 54 48 45 4e 20 24 2b 30 30 37 30 20 50 52 49 4e 54 20 54 41 4c 2c 22 20 65 72 20 6b 76 61 64 72 ┆THEN $+0070 PRINT TAL," er kvadr┆
0x3b880…3b8a0 61 74 65 74 20 70 7d 20 22 2c 53 51 52 28 54 41 4c 29 2b 0a 30 30 38 30 20 45 4c 53 45 20 0a 2a ┆atet på ",SQR(TAL)+ 0080 ELSE *┆
0x3b8a0…3b8c0 30 30 39 30 20 50 52 49 4e 54 20 54 41 4c 2c 22 20 65 72 20 69 6b 6b 65 20 6e 6f 67 65 74 20 6b ┆0090 PRINT TAL," er ikke noget k┆
0x3b8c0…3b8e0 76 61 64 72 61 74 74 61 6c 22 2a 0b 30 31 30 30 20 45 4e 44 49 46 20 0b 00 00 63 63 63 63 63 63 ┆vadrattal"* 0100 ENDIF cccccc┆
0x3b8e0…3b900 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x3b900…3b920 (29, 1, 10) ExtentHdr {name=»MÅNED3 «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003b,0c (0x03bc00)}, f99=41 3b 00 fe 00 56 41 44 52 41 ┆A; VADRA┆}
0x3b920…3b940 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 6d ┆@0010 // --------------------- m┆
0x3b940…3b960 7d 6e 65 64 33 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆åned3 --------------------------┆
0x3b960…3b980 2d 40 12 30 30 31 35 20 49 4e 54 45 47 45 52 20 4d 5d 4e 45 44 12 0b 30 30 32 30 20 43 4c 45 41 ┆-@ 0015 INTEGER MÅNED 0020 CLEA┆
0x3b980…3b9a0 52 20 0b 0f 30 30 33 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 31 30 30 34 30 20 49 4e 50 55 54 20 ┆R 0030 CURSOR 1,5 10040 INPUT ┆
0x3b9a0…3b9c0 22 49 6e 64 74 61 73 74 20 6d 7d 6e 65 64 65 6e 73 20 6e 75 6d 6d 65 72 3a 20 20 20 20 20 20 22 ┆"Indtast månedens nummer: "┆
0x3b9c0…3b9e0 3a 4d 5d 4e 45 44 31 13 30 30 35 30 20 43 41 53 45 20 4d 5d 4e 45 44 20 4f 46 20 13 19 30 30 36 ┆:MÅNED1 0050 CASE MÅNED OF 006┆
0x3b9e0…3ba00 30 20 57 48 45 4e 20 31 2c 33 2c 35 2c 37 2c 38 2c 31 30 2c 31 32 19 2f 30 30 37 30 20 50 52 49 ┆0 WHEN 1,3,5,7,8,10,12 /0070 PRI┆
0x3ba00…3ba20 (29, 1, 11) 4e 54 20 22 44 65 6e 20 22 3b 4d 5d 4e 45 44 3b 22 2e 20 6d 7d 6e 65 64 20 68 61 72 20 33 31 2e ┆NT "Den ";MÅNED;". måned har 31.┆
0x3ba20…3ba40 20 64 61 67 65 2e 22 2f 12 30 30 38 30 20 57 48 45 4e 20 34 2c 36 2c 39 2c 31 31 12 2f 30 30 39 ┆ dage."/ 0080 WHEN 4,6,9,11 /009┆
0x3ba40…3ba60 30 20 50 52 49 4e 54 20 22 44 65 6e 20 22 3b 4d 5d 4e 45 44 3b 22 2e 20 6d 7d 6e 65 64 20 68 61 ┆0 PRINT "Den ";MÅNED;". måned ha┆
0x3ba60…3ba80 72 20 33 30 2e 20 64 61 67 65 2e 22 2f 0b 30 31 30 30 20 57 48 45 4e 20 32 0b 39 30 31 31 30 20 ┆r 30. dage."/ 0100 WHEN 2 90110 ┆
0x3ba80…3baa0 50 52 49 4e 54 20 22 44 65 6e 20 22 3b 4d 5d 4e 45 44 3b 22 2e 20 6d 7d 6e 65 64 20 68 61 72 20 ┆PRINT "Den ";MÅNED;". måned har ┆
0x3baa0…3bac0 32 38 2e 20 65 6c 6c 65 72 20 32 39 2e 20 64 61 67 65 2e 22 39 0f 30 31 32 30 20 4f 54 48 45 52 ┆28. eller 29. dage."9 0120 OTHER┆
0x3bac0…3bae0 57 49 53 45 20 0f 40 30 31 33 30 20 50 52 49 4e 54 20 22 44 65 6e 6e 65 20 6d 7d 6e 65 64 20 65 ┆WISE @0130 PRINT "Denne måned e┆
0x3bae0…3bb00 6b 73 69 73 74 65 72 65 72 20 76 69 73 74 20 69 6b 6b 65 2e 20 50 72 7c 76 20 65 6e 20 67 61 6e ┆ksisterer vist ikke. Prøv en gan┆
0x3bb00…3bb20 (29, 1, 12) 67 20 74 69 6c 2e 22 40 0d 30 31 34 30 20 45 4e 44 43 41 53 45 20 0d 00 00 63 63 63 63 63 63 63 ┆g til."@ 0140 ENDCASE ccccccc┆
0x3bb20…3bb40 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x3bc00…3bc20 (29, 1, 13) ExtentHdr {name=»POLYGON «, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003c,01 (0x03c100)}, f99=41 3b 00 fe 00 56 41 44 52 41 ┆A; VADRA┆}
0x3bc20…3bc40 45 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆E0010 // -----------------------┆
0x3bc40…3bc60 2d 2d 20 70 6f 6c 79 67 6f 6e 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- polygon ---------------------┆
0x3bc60…3bc80 2d 2d 2d 2d 2d 2d 45 39 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 61 72 65 61 6c 65 74 ┆------E90020 // Udregner arealet┆
0x3bc80…3bca0 20 61 66 20 65 6e 20 70 6f 6c 79 67 6f 6e 2c 20 6e 7d 72 20 6d 61 6e 20 69 6e 64 74 61 73 74 65 ┆ af en polygon, når man indtaste┆
0x3bca0…3bcc0 72 39 2a 30 30 33 30 20 2f 2f 20 76 69 6e 6b 65 6c 73 70 69 64 73 65 72 6e 65 73 20 6b 6f 6f 72 ┆r9*0030 // vinkelspidsernes koor┆
0x3bcc0…3bce0 64 69 6e 61 74 70 75 6e 6b 74 65 72 2e 2a 08 30 30 34 30 20 2f 2f 20 08 14 30 30 34 35 20 49 4e ┆dinatpunkter.* 0040 // 0045 IN┆
0x3bce0…3bd00 54 45 47 45 52 20 41 4e 54 41 4c 2c 41 14 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 37 30 30 36 30 ┆TEGER ANTAL,A 0050 CLEAR 70060┆
0x3bd00…3bd20 (29, 1, 14) 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 61 6e 74 61 6c 20 73 69 64 65 72 20 69 20 70 6f ┆ INPUT "Indtast antal sider i po┆
0x3bd20…3bd40 6c 79 67 6f 6e 65 6e 3a 20 20 20 20 22 3a 41 4e 54 41 4c 37 1e 30 30 37 30 20 49 4e 54 45 47 45 ┆lygonen: ":ANTAL7 0070 INTEGE┆
0x3bd40…3bd60 52 20 58 28 41 4e 54 41 4c 29 2c 59 28 41 4e 54 41 4c 29 1e 0b 30 30 38 30 20 50 52 49 4e 54 20 ┆R X(ANTAL),Y(ANTAL) 0080 PRINT ┆
0x3bd60…3bd80 0b 08 30 30 39 30 20 2f 2f 20 08 3f 30 31 30 30 20 50 52 49 4e 54 20 22 4b 6f 6f 72 64 69 6e 61 ┆ 0090 // ?0100 PRINT "Koordina┆
0x3bd80…3bda0 74 65 72 6e 65 20 74 69 6c 20 76 69 6e 6b 65 6c 73 70 69 64 73 65 72 6e 65 20 73 6b 61 6c 20 6e ┆terne til vinkelspidserne skal n┆
0x3bda0…3bdc0 75 20 61 6e 67 69 76 65 73 20 22 3f 3f 30 31 31 30 20 50 52 49 4e 54 20 22 69 20 73 61 6d 6d 65 ┆u angives "??0110 PRINT "i samme┆
0x3bdc0…3bde0 20 6f 6d 6c 7c 62 73 72 65 74 6e 69 6e 67 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ omløbsretning. ┆
0x3bde0…3be00 20 20 20 20 20 20 20 20 20 20 20 22 3f 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 1a 30 31 33 30 20 ┆ "? 0120 PRINT 0130 ┆
0x3be00…3be20 (29, 1, 15) 46 4f 52 20 41 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 0b 30 31 34 30 20 50 52 49 4e ┆FOR A:=1 TO ANTAL DO 0140 PRIN┆
0x3be20…3be40 54 20 0b 1c 30 31 35 30 20 50 52 49 4e 54 20 22 50 75 6e 6b 74 20 6e 75 6d 6d 65 72 20 22 3b 41 ┆T 0150 PRINT "Punkt nummer ";A┆
0x3be40…3be60 1c 36 30 31 36 30 20 49 4e 50 55 54 20 22 49 6e 64 73 7b 74 20 6b 6f 6f 72 64 69 6e 61 74 73 7b ┆ 60160 INPUT "Indsæt koordinatsæ┆
0x3be60…3be80 74 3a 20 20 20 20 20 20 20 20 20 20 20 22 3a 58 28 41 29 2c 59 28 41 29 36 0b 30 31 37 30 20 4e ┆t: ":X(A),Y(A)6 0170 N┆
0x3be80…3bea0 45 58 54 20 41 0b 08 30 31 38 30 20 2f 2f 20 08 0d 30 31 39 30 20 41 52 45 41 4c 3a 3d 30 0d 1c ┆EXT A 0180 // 0190 AREAL:=0 ┆
0x3bea0…3bec0 30 32 30 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 2d 31 20 44 4f 20 1c 29 30 32 ┆0200 FOR A:=1 TO ANTAL-1 DO )02┆
0x3bec0…3bee0 31 30 20 41 52 45 41 4c 3a 3d 41 52 45 41 4c 2b 58 28 41 29 2a 59 28 41 2b 31 29 2d 59 28 41 29 ┆10 AREAL:=AREAL+X(A)*Y(A+1)-Y(A)┆
0x3bee0…3bf00 2a 58 28 41 2b 31 29 29 0b 30 32 32 30 20 4e 45 58 54 20 41 0b 2d 30 32 33 30 20 41 52 45 41 4c ┆*X(A+1)) 0220 NEXT A -0230 AREAL┆
0x3bf00…3bf20 (29, 1, 16) 3a 3d 41 52 45 41 4c 2b 58 28 41 4e 54 41 4c 29 2a 59 28 31 29 2d 59 28 41 4e 54 41 4c 29 2a 58 ┆:=AREAL+X(ANTAL)*Y(1)-Y(ANTAL)*X┆
0x3bf20…3bf40 28 31 29 2d 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 32 30 32 35 30 20 50 52 49 4e 54 20 22 56 69 ┆(1)- 0240 PRINT 20250 PRINT "Vi┆
0x3bf40…3bf60 6e 6b 65 6c 73 70 69 64 73 65 72 6e 65 73 20 6b 6f 6f 72 64 69 6e 61 74 65 72 20 65 72 3a 20 20 ┆nkelspidsernes koordinater er: ┆
0x3bf60…3bf80 20 20 20 22 32 32 30 32 36 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "220260 PRINT "--------------┆
0x3bf80…3bfa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 32 0b 30 32 37 30 20 50 ┆-----------------------"2 0270 P┆
0x3bfa0…3bfc0 52 49 4e 54 20 0b 1a 30 32 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f ┆RINT 0280 FOR I:=1 TO ANTAL DO┆
0x3bfc0…3bfe0 20 1a 20 30 32 39 30 20 50 52 49 4e 54 20 22 28 22 3b 58 28 49 29 3b 22 2c 22 3b 59 28 49 29 3b ┆ 0290 PRINT "(";X(I);",";Y(I);┆
0x3bfe0…3c000 22 29 22 20 0b 30 33 30 30 20 4e 45 58 54 20 49 0b 0b 30 33 31 30 20 50 52 49 4e 54 20 0b 44 30 ┆")" 0300 NEXT I 0310 PRINT D0┆
0x3c000…3c020 (30, 0, 1) 33 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 41 20 52 20 45 20 41 20 4c 20 45 20 54 20 3a ┆320 PRINT USING "A R E A L E T :┆
0x3c020…3c040 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 23 23 2e 23 23 22 3a 41 42 53 28 41 52 45 41 4c ┆ #########.##":ABS(AREAL┆
0x3c040…3c060 2f 32 29 44 32 30 33 33 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/2)D20330 PRINT "---------------┆
0x3c060…3c080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 32 00 00 63 63 63 63 63 63 ┆----------------------"2 cccccc┆
0x3c080…3c0a0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x3…]
0x3c100…3c120 (30, 0, 2) ExtentHdr {name=»BRIDGEJU«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003c,0b (0x03cb00)}, f99=41 3c 00 fe 00 00 00 00 00 00 ┆A< ┆}
0x3c120…3c140 44 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0100 // -----------------------┆
0x3c140…3c160 20 62 72 69 64 67 65 5f 6a 75 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ bridge_jul --------------------┆
0x3c160…3c180 2d 2d 2d 2d 2d 44 12 30 31 31 30 20 52 4e 44 53 45 45 44 3a 3d 33 2e 37 36 12 18 30 31 32 30 20 ┆-----D 0110 RNDSEED:=3.76 0120 ┆
0x3c180…3c1a0 44 49 4d 20 4e 41 56 4e 24 28 33 36 29 20 4f 46 20 32 35 18 1a 30 31 32 35 20 49 4e 54 45 47 45 ┆DIM NAVN$(36) OF 25 0125 INTEGE┆
0x3c1a0…3c1c0 52 20 49 2c 4a 2c 54 41 42 45 4c 28 33 36 29 1a 17 30 31 33 30 20 46 4f 52 20 49 3a 3d 31 20 54 ┆R I,J,TABEL(36) 0130 FOR I:=1 T┆
0x3c1c0…3c1e0 4f 20 33 36 20 44 4f 20 17 12 30 31 34 30 20 52 45 41 44 20 4e 41 56 4e 24 28 49 29 12 0b 30 31 ┆O 36 DO 0140 READ NAVN$(I) 01┆
0x3c1e0…3c200 35 30 20 4e 45 58 54 20 49 0b 17 30 31 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 33 36 20 44 ┆50 NEXT I 0160 FOR I:=1 TO 36 D┆
0x3c200…3c220 (30, 0, 3) 4f 20 17 10 30 31 37 30 20 54 41 42 45 4c 28 49 29 3a 3d 49 10 0b 30 31 38 30 20 4e 45 58 54 20 ┆O 0170 TABEL(I):=I 0180 NEXT ┆
0x3c220…3c240 49 0b 17 30 31 39 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 33 36 20 44 4f 20 17 13 30 32 30 30 ┆I 0190 FOR I:=1 TO 36 DO 0200┆
0x3c240…3c260 20 54 41 4c 3a 3d 52 4e 44 28 31 2c 33 36 29 13 37 30 32 31 30 20 42 59 54 3a 3d 54 41 42 45 4c ┆ TAL:=RND(1,36) 70210 BYT:=TABEL┆
0x3c260…3c280 28 49 29 3b 54 41 42 45 4c 28 49 29 3a 3d 54 41 42 45 4c 28 54 41 4c 29 3b 54 41 42 45 4c 28 54 ┆(I);TABEL(I):=TABEL(TAL);TABEL(T┆
0x3c280…3c2a0 41 4c 29 3a 3d 42 59 54 37 0b 30 32 32 30 20 4e 45 58 54 20 49 0b 17 30 32 33 30 20 46 4f 52 20 ┆AL):=BYT7 0220 NEXT I 0230 FOR ┆
0x3c2a0…3c2c0 4a 3a 3d 31 20 54 4f 20 31 38 20 44 4f 20 17 3f 30 32 34 30 20 50 52 49 4e 54 20 22 50 61 72 20 ┆J:=1 TO 18 DO ?0240 PRINT "Par ┆
0x3c2c0…3c2e0 6e 72 2e 20 22 3b 4a 3b 22 3a 22 3b 54 41 42 28 31 38 29 3b 4e 41 56 4e 24 28 54 41 42 45 4c 28 ┆nr. ";J;":";TAB(18);NAVN$(TABEL(┆
0x3c2e0…3c300 32 2a 4a 2d 31 29 29 3b 22 20 6f 67 20 22 3b 3f 1c 30 32 35 30 20 50 52 49 4e 54 20 4e 41 56 4e ┆2*J-1));" og ";? 0250 PRINT NAVN┆
0x3c300…3c320 (30, 0, 4) 24 28 54 41 42 45 4c 28 32 2a 4a 29 29 1c 0b 30 32 36 30 20 4e 45 58 54 20 4a 0b 08 30 32 37 30 ┆$(TABEL(2*J)) 0260 NEXT J 0270┆
0x3c320…3c340 20 2f 2f 20 08 48 30 32 38 30 20 44 41 54 41 20 22 48 61 68 6e 2d 50 65 64 65 72 73 65 6e 22 2c ┆ // H0280 DATA "Hahn-Pedersen",┆
0x3c340…3c360 22 47 65 6f 72 67 20 50 6f 75 6c 73 65 6e 22 2c 22 4b 6e 75 64 20 4f 6c 65 73 65 6e 22 2c 22 52 ┆"Georg Poulsen","Knud Olesen","R┆
0x3c360…3c380 7c 6e 68 6f 6c 74 20 48 61 6e 73 65 6e 22 48 3b 30 32 39 30 20 44 41 54 41 20 22 42 7c 72 67 65 ┆ønholt Hansen"H;0290 DATA "Børge┆
0x3c380…3c3a0 20 4e 69 65 6c 73 65 6e 22 2c 22 42 7c 72 67 65 20 4c 61 75 73 74 73 65 6e 22 2c 22 53 74 65 65 ┆ Nielsen","Børge Laustsen","Stee┆
0x3c3a0…3c3c0 6e 20 41 6e 64 65 72 73 65 6e 22 3b 41 30 33 30 30 20 44 41 54 41 20 22 42 6a 61 72 6e 65 20 53 ┆n Andersen";A0300 DATA "Bjarne S┆
0x3c3c0…3c3e0 2e 20 43 68 72 69 73 74 65 6e 73 65 6e 22 2c 22 42 69 72 74 68 65 20 4d 7c 6c 6c 65 72 22 2c 22 ┆. Christensen","Birthe Møller","┆
0x3c3e0…3c400 46 6f 6c 6d 65 72 20 4d 7c 6c 6c 65 72 22 41 3c 30 33 31 30 20 44 41 54 41 20 22 48 6f 6c 67 65 ┆Folmer Møller"A<0310 DATA "Holge┆
0x3c400…3c420 (30, 0, 5) 72 20 4a 7c 72 67 65 6e 73 65 6e 22 2c 22 48 61 6e 73 20 4d 61 79 6d 61 6e 6e 22 2c 22 4d 61 67 ┆r Jørgensen","Hans Maymann","Mag┆
0x3c420…3c440 64 61 20 43 61 6c 6c 69 73 65 6e 22 3c 3c 30 33 32 30 20 44 41 54 41 20 22 4a 7c 72 67 65 6e 20 ┆da Callisen"<<0320 DATA "Jørgen ┆
0x3c440…3c460 43 61 6c 6c 69 73 65 6e 22 2c 22 44 69 6f 6e 20 41 6e 64 65 72 73 65 6e 22 2c 22 48 65 6e 72 69 ┆Callisen","Dion Andersen","Henri┆
0x3c460…3c480 6b 20 48 61 72 70 7c 74 68 22 3c 48 30 33 33 30 20 44 41 54 41 20 22 4b 61 72 6c 20 41 2e 20 4f ┆k Harpøth"<H0330 DATA "Karl A. O┆
0x3c480…3c4a0 6c 65 73 65 6e 22 2c 22 4c 61 72 73 20 4b 6e 75 64 73 65 6e 22 2c 22 4e 69 6e 6e 61 20 4d 7c 6c ┆lesen","Lars Knudsen","Ninna Møl┆
0x3c4a0…3c4c0 62 7b 6b 22 2c 22 41 6e 64 65 72 73 20 4d 7c 6c 62 7b 6b 22 48 3c 30 33 34 30 20 44 41 54 41 20 ┆bæk","Anders Mølbæk"H<0340 DATA ┆
0x3c4c0…3c4e0 22 47 75 73 74 61 76 20 53 7c 72 65 6e 73 65 6e 22 2c 22 42 6a 61 72 6e 65 20 4a 65 6e 73 65 6e ┆"Gustav Sørensen","Bjarne Jensen┆
0x3c4e0…3c500 22 2c 22 47 72 65 74 68 65 20 50 6f 75 6c 73 65 6e 22 3c 45 30 33 35 30 20 44 41 54 41 20 22 4e ┆","Grethe Poulsen"<E0350 DATA "N┆
0x3c500…3c520 (30, 0, 6) 61 6e 63 79 20 52 61 68 62 65 6b 22 2c 22 41 2e 20 53 7c 6e 64 65 72 67 61 61 72 64 22 2c 22 4a ┆ancy Rahbek","A. Søndergaard","J┆
0x3c520…3c540 79 74 74 65 20 4c 61 72 73 65 6e 22 2c 22 45 6c 6c 65 6e 20 42 7c 67 68 22 45 3b 30 33 36 30 20 ┆ytte Larsen","Ellen Bøgh"E;0360 ┆
0x3c540…3c560 44 41 54 41 20 22 4a 65 6e 73 20 4b 6f 72 73 62 7b 6b 22 2c 22 41 2e 20 43 68 72 69 73 74 65 6e ┆DATA "Jens Korsbæk","A. Christen┆
0x3c560…3c580 73 65 6e 22 2c 22 43 68 61 72 6c 65 73 20 57 61 64 6d 61 6e 6e 22 3b 3b 30 33 37 30 20 44 41 54 ┆sen","Charles Wadmann";;0370 DAT┆
0x3c580…3c5a0 41 20 22 4f 6c 65 20 52 2e 20 43 61 6c 6c 65 73 65 6e 22 2c 22 4b 69 6d 20 42 6f 20 50 65 74 65 ┆A "Ole R. Callesen","Kim Bo Pete┆
0x3c5a0…3c5c0 72 73 65 6e 22 2c 22 4a 61 6e 65 20 48 61 6e 73 65 6e 22 3b 38 30 33 38 30 20 44 41 54 41 20 22 ┆rsen","Jane Hansen";80380 DATA "┆
0x3c5c0…3c5e0 50 65 74 65 72 20 73 7c 72 65 6e 73 65 6e 22 2c 22 4c 6f 6e 65 20 4a 6f 68 61 6e 73 65 6e 22 2c ┆Peter sørensen","Lone Johansen",┆
0x3c5e0…3c600 22 52 6f 61 6e 20 4c 79 73 64 61 6c 22 38 08 30 33 39 30 20 2f 2f 20 08 17 30 34 30 30 20 50 52 ┆"Roan Lysdal"8 0390 // 0400 PR┆
0x3c600…3c620 (30, 0, 7) 4f 43 20 52 4e 44 28 4c 4f 57 2c 48 49 47 48 29 17 1a 30 34 31 30 20 52 4e 44 58 3a 3d 52 4e 44 ┆OC RND(LOW,HIGH) 0410 RNDX:=RND┆
0x3c620…3c640 53 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c 30 34 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 ┆SEED+3.14159 0420 RNDX:=EXP(5.0┆
0x3c640…3c660 2a 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 34 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 ┆*LN(RNDX)) 0430 RNDSEED:=RNDX-I┆
0x3c660…3c680 4e 54 28 52 4e 44 58 29 1c 20 30 34 34 30 20 52 4e 44 3a 3d 52 4e 44 53 45 45 44 2a 28 48 49 47 ┆NT(RNDX) 0440 RND:=RNDSEED*(HIG┆
0x3c680…3c6a0 48 2d 4c 4f 57 29 2b 4c 4f 57 20 10 30 34 35 30 20 45 4e 44 50 52 4f 43 20 52 4e 44 10 00 00 63 ┆H-LOW)+LOW 0450 ENDPROC RND c┆
0x3c6a0…3c6c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x3c700…3c800 (30, 0, 8) 0x63[0x100]
[…0x3…]
0x3cb00…3cb20 (30, 0, 12) ExtentHdr {name=»TERNING2«, typ=»K«, seg=»A«, next=0x00, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003c,0d (0x03cd00)}, f99=41 3c 00 fe 00 45 52 4e 49 4e ┆A< ERNIN┆}
0x3cb20…3cb40 3d 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 74 65 ┆=0010 // -------------------- te┆
0x3cb40…3cb60 72 6e 69 6e 67 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3d 36 ┆rning2 -----------------------=6┆
0x3cb60…3cb80 30 30 32 30 20 2f 2f 20 55 64 72 65 67 6e 65 72 20 73 69 64 65 6e 20 69 20 65 6e 20 74 65 72 6e ┆0020 // Udregner siden i en tern┆
0x3cb80…3cba0 69 6e 67 20 76 65 64 20 69 6e 64 74 61 73 74 6e 69 6e 67 20 61 66 36 1b 30 30 33 30 20 2f 2f 20 ┆ing ved indtastning af6 0030 // ┆
0x3cba0…3cbc0 74 65 72 6e 69 6e 67 65 6e 73 20 72 75 6d 66 61 6e 67 2e 1b 08 30 30 34 30 20 2f 2f 20 08 2d 30 ┆terningens rumfang. 0040 // -0┆
0x3cbc0…3cbe0 30 35 30 20 49 4e 50 55 54 20 22 54 65 72 6e 69 6e 67 65 6e 73 20 72 75 6d 66 61 6e 67 3a 20 20 ┆050 INPUT "Terningens rumfang: ┆
0x3cbe0…3cc00 20 20 20 22 3a 52 55 4d 46 41 4e 47 2d 2b 30 30 36 30 20 53 49 44 45 4e 3a 3d 49 4e 54 28 52 55 ┆ ":RUMFANG-+0060 SIDEN:=INT(RU┆
0x3cc00…3cc20 (30, 0, 13) 4d 46 41 4e 47 2a 2a 28 31 2f 33 29 2a 31 30 30 2b 30 2e 35 29 2f 31 30 30 2b 0b 30 30 37 30 20 ┆MFANG**(1/3)*100+0.5)/100+ 0070 ┆
0x3cc20…3cc40 50 52 49 4e 54 20 0b 31 30 30 38 30 20 50 52 49 4e 54 20 22 54 65 72 6e 69 6e 67 65 6e 73 20 72 ┆PRINT 10080 PRINT "Terningens r┆
0x3cc40…3cc60 75 6d 66 61 6e 67 3a 20 20 20 20 20 20 20 20 20 22 3b 52 55 4d 46 41 4e 47 31 2f 30 30 39 30 20 ┆umfang: ";RUMFANG1/0090 ┆
0x3cc60…3cc80 50 52 49 4e 54 20 22 54 65 72 6e 69 6e 67 65 6e 73 20 73 69 64 65 3a 20 20 20 20 20 20 20 20 20 ┆PRINT "Terningens side: ┆
0x3cc80…3cca0 20 20 20 22 3b 53 49 44 45 4e 2f 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ ";SIDEN/ ccccccccccccccccccc┆
0x3cca0…3ccc0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x3cd00…3cd20 (30, 0, 14) ExtentHdr {name=»GRØNNE «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003d,00 (0x03d000)}, f99=41 3c 00 fe 00 45 52 4e 49 4e ┆A< ERNIN┆}
0x3cd20…3cd40 32 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 67 72 7c 6e ┆20010 // ------------------ grøn┆
0x3cd40…3cd60 6e 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 32 2c 30 30 32 30 20 44 49 4d 20 41 24 ┆ne ----------------2,0020 DIM A$┆
0x3cd60…3cd80 20 4f 46 20 34 30 2c 42 24 20 4f 46 20 34 30 2c 43 24 20 4f 46 20 34 30 2c 44 24 20 4f 46 20 34 ┆ OF 40,B$ OF 40,C$ OF 40,D$ OF 4┆
0x3cd80…3cda0 30 2c 33 30 30 33 30 20 41 24 3a 3d 22 4a 65 67 20 65 6c 73 6b 65 72 20 64 65 20 20 20 20 20 20 ┆0,30030 A$:="Jeg elsker de ┆
0x3cda0…3cdc0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 33 33 30 30 34 30 20 42 24 3a ┆ "330040 B$:┆
0x3cdc0…3cde0 3d 22 67 72 7c 6e 6e 65 20 6c 75 6e 64 65 2c 20 6d 65 64 20 74 6f 6e 65 72 6e 65 73 20 20 20 20 ┆="grønne lunde, med tonernes ┆
0x3cde0…3ce00 20 20 20 20 20 20 20 20 20 20 22 33 33 30 30 35 30 20 43 24 3a 3d 22 76 75 67 67 65 6e 64 65 20 ┆ "330050 C$:="vuggende ┆
0x3ce00…3ce20 (30, 0, 15) 66 61 6c 64 2c 20 6a 65 67 20 65 6c 73 6b 65 72 20 64 65 20 20 20 20 20 20 20 20 20 20 20 20 22 ┆fald, jeg elsker de "┆
0x3ce20…3ce40 33 33 30 30 36 30 20 44 24 3a 3d 22 62 6c 61 6e 6b 65 20 73 75 6e 64 65 2c 20 6d 65 64 20 73 65 ┆330060 D$:="blanke sunde, med se┆
0x3ce40…3ce60 6a 6c 65 72 6e 65 73 20 74 75 73 69 6e 64 74 61 6c 2e 20 20 22 33 08 30 30 37 30 20 2f 2f 20 08 ┆jlernes tusindtal. "3 0070 // ┆
0x3ce60…3ce80 1c 30 30 38 30 20 50 52 49 4e 54 20 41 24 28 31 3a 31 34 29 2b 42 24 28 31 3a 31 34 29 1c 1d 30 ┆ 0080 PRINT A$(1:14)+B$(1:14) 0┆
0x3ce80…3cea0 30 39 30 20 50 52 49 4e 54 20 42 24 28 31 35 3a 31 33 29 2b 43 24 28 31 3a 31 34 29 1d 1d 30 31 ┆090 PRINT B$(15:13)+C$(1:14) 01┆
0x3cea0…3cec0 30 30 20 50 52 49 4e 54 20 43 24 28 31 36 3a 31 34 29 2b 44 24 28 31 3a 31 33 29 1d 14 30 31 31 ┆00 PRINT C$(16:14)+D$(1:13) 011┆
0x3cec0…3cee0 30 20 50 52 49 4e 54 20 44 24 28 31 35 3a 32 36 29 14 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆0 PRINT D$(15:26) cccccccccccc┆
0x3cee0…3cf00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x3cf00…3d000 (30, 0, 16) 0x63[0x100]
0x3d000…3d020 (30, 1, 1) ExtentHdr {name=»AKTIER «, typ=»K«, seg=»A«, next=0x00, basis=0x0006, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003d,06 (0x03d600)}, f99=41 3c 00 fe 00 45 52 4e 49 4e ┆A< ERNIN┆}
0x3d020…3d040 36 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 61 6b 74 69 ┆60010 // ------------------ akti┆
0x3d040…3d060 65 6b 75 72 73 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 36 46 30 30 32 30 20 2f 2f ┆ekurs -----------------6F0020 //┆
0x3d060…3d080 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 20 61 6b 74 69 65 6e 73 20 6b 75 72 ┆ Programmet udregner aktiens kur┆
0x3d080…3d0a0 73 76 7b 72 64 69 20 70 7d 20 67 72 75 6e 64 6c 61 67 20 61 66 20 70 7d 6c 79 64 65 6e 64 65 46 ┆sværdi på grundlag af pålydendeF┆
0x3d0a0…3d0c0 15 30 30 33 30 20 2f 2f 20 76 7b 72 64 69 20 6f 67 20 6b 75 72 73 15 08 30 30 34 30 20 2f 2f 20 ┆ 0030 // værdi og kurs 0040 // ┆
0x3d0c0…3d0e0 08 0b 30 30 35 30 20 43 4c 45 41 52 20 0b 17 30 30 36 30 20 44 49 4d 20 53 45 4c 53 4b 41 42 24 ┆ 0050 CLEAR 0060 DIM SELSKAB$┆
0x3d0e0…3d100 20 4f 46 20 32 30 17 0f 30 30 37 30 20 43 55 52 53 4f 52 20 31 2c 34 0f 40 30 30 38 30 20 50 52 ┆ OF 20 0070 CURSOR 1,4 @0080 PR┆
0x3d100…3d120 (30, 1, 2) 49 4e 54 20 22 41 6b 74 69 65 73 65 6c 73 6b 61 62 3a 22 2c 22 50 7d 6c 79 64 65 6e 64 65 3a 20 ┆INT "Aktieselskab:","Pålydende: ┆
0x3d120…3d140 20 20 20 4b 75 72 73 3a 20 20 20 20 20 20 4b 75 72 73 76 7b 72 64 69 3a 22 40 46 30 30 39 30 20 ┆ Kurs: Kursværdi:"@F0090 ┆
0x3d140…3d160 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆PRINT "-------------------------┆
0x3d160…3d180 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3d180…3d1a0 22 46 0b 30 31 30 30 20 50 52 49 4e 54 20 0b 0d 30 31 31 30 20 52 45 53 54 4f 52 45 20 0d 0f 30 ┆"F 0100 PRINT 0110 RESTORE 0┆
0x3d1a0…3d1c0 31 32 30 20 52 45 41 44 20 41 4e 54 41 4c 0f 1a 30 31 33 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f ┆120 READ ANTAL 0130 FOR I:=1 TO┆
0x3d1c0…3d1e0 20 41 4e 54 41 4c 20 44 4f 20 1a 21 30 31 34 30 20 52 45 41 44 20 53 45 4c 53 4b 41 42 24 2c 50 ┆ ANTAL DO !0140 READ SELSKAB$,P┆
0x3d1e0…3d200 5d 4c 59 44 45 4e 44 45 2c 4b 55 52 53 21 22 30 31 35 30 20 4b 55 52 53 56 5b 52 44 49 3a 3d 50 ┆ÅLYDENDE,KURS!"0150 KURSVÆRDI:=P┆
0x3d200…3d220 (30, 1, 3) 5d 4c 59 44 45 4e 44 45 2a 4b 55 52 53 2f 31 30 30 22 1c 30 31 36 30 20 50 52 49 4e 54 20 53 45 ┆ÅLYDENDE*KURS/100" 0160 PRINT SE┆
0x3d220…3d240 4c 53 4b 41 42 24 3b 54 41 42 28 32 30 29 3b 1c 29 30 31 37 30 20 50 52 49 4e 54 20 55 53 49 4e ┆LSKAB$;TAB(20); )0170 PRINT USIN┆
0x3d240…3d260 47 20 22 23 23 23 23 23 23 23 23 2e 23 23 22 3a 50 5d 4c 59 44 45 4e 44 45 2c 29 24 30 31 38 30 ┆G "########.##":PÅLYDENDE,)$0180┆
0x3d260…3d280 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 23 23 23 2e 23 20 22 3a 4b 55 52 53 2c ┆ PRINT USING "########.# ":KURS,┆
0x3d280…3d2a0 24 2d 30 31 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 20 20 20 20 20 23 23 23 23 23 23 23 ┆$-0190 PRINT USING " #######┆
0x3d2a0…3d2c0 23 2e 23 23 22 3a 4b 55 52 53 56 5b 52 44 49 2d 0b 30 32 30 30 20 50 52 49 4e 54 20 0b 0b 30 32 ┆#.##":KURSVÆRDI- 0200 PRINT 02┆
0x3d2c0…3d2e0 31 30 20 4e 45 58 54 20 49 0b 08 30 32 32 30 20 2f 2f 20 08 0b 30 32 33 30 20 44 41 54 41 20 34 ┆10 NEXT I 0220 // 0230 DATA 4┆
0x3d2e0…3d300 0b 1d 30 32 34 30 20 44 41 54 41 20 22 41 2f 53 20 54 4f 52 4d 22 2c 34 30 30 30 2c 33 31 35 1d ┆ 0240 DATA "A/S TORM",4000,315 ┆
0x3d300…3d320 (30, 1, 4) 1a 30 32 35 30 20 44 41 54 41 20 22 4f 4b 22 2c 35 30 30 30 30 2e 30 2c 34 33 35 1a 19 30 32 36 ┆ 0250 DATA "OK",50000.0,435 026┆
0x3d320…3d340 30 20 44 41 54 41 20 22 44 46 44 53 22 2c 31 30 30 30 2c 33 37 35 19 22 30 32 37 30 20 44 41 54 ┆0 DATA "DFDS",1000,375 "0270 DAT┆
0x3d340…3d360 41 20 22 44 41 4e 53 4b 2f 46 52 41 4e 53 4b 22 2c 31 35 37 30 30 2c 37 35 30 22 46 30 32 38 30 ┆A "DANSK/FRANSK",15700,750"F0280┆
0x3d360…3d380 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ PRINT "------------------------┆
0x3d380…3d3a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x3d3a0…3d3c0 2d 22 46 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆-"F ccccccccccccccccccccccccccc┆
0x3d3c0…3d3e0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x3d400…3d500 (30, 1, 5) 0x63[0x100]
[…0x1…]
0x3d600…3d620 (30, 1, 7) ExtentHdr {name=»REGNEOPG«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 003e,00 (0x03e000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003e,00 (0x03e000)}, f99=41 05 00 fe 00 5c 44 45 20 20 ┆A ØDE ┆}
0x3d620…3d640 48 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆H0010 // -----------------------┆
0x3d640…3d660 20 72 65 67 6e 65 6f 70 67 61 76 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ regneopgave -------------------┆
0x3d660…3d680 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 16 30 30 32 30 20 52 4e 44 53 45 45 44 3a 3d 34 2e 33 34 32 33 32 ┆---------H 0020 RNDSEED:=4.34232┆
0x3d680…3d6a0 34 16 08 30 30 33 30 20 2f 2f 20 08 16 30 30 34 30 20 50 52 4f 43 20 53 46 44 28 50 52 4e 2c 50 ┆4 0030 // 0040 PROC SFD(PRN,P┆
0x3d6a0…3d6c0 52 4d 29 16 14 30 30 35 30 20 57 48 49 4c 45 20 50 52 4d 3e 30 20 44 4f 20 14 16 30 30 36 30 20 ┆RM) 0050 WHILE PRM>0 DO 0060 ┆
0x3d6c0…3d6e0 52 45 53 54 3a 3d 50 52 4e 20 4d 4f 44 20 50 52 4d 16 17 30 30 37 30 20 50 52 4e 3a 3d 50 52 4d ┆REST:=PRN MOD PRM 0070 PRN:=PRM┆
0x3d6e0…3d700 3b 50 52 4d 3a 3d 52 45 53 54 17 0e 30 30 38 30 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 30 39 30 ┆;PRM:=REST 0080 ENDWHILE 0090┆
0x3d700…3d720 (30, 1, 8) 20 53 46 44 3a 3d 50 52 4e 0d 10 30 31 30 30 20 45 4e 44 50 52 4f 43 20 53 46 44 10 08 30 31 31 ┆ SFD:=PRN 0100 ENDPROC SFD 011┆
0x3d720…3d740 30 20 2f 2f 20 08 2c 30 31 32 30 20 50 52 4f 43 20 46 4f 52 4b 4f 52 54 28 52 45 46 20 50 52 54 ┆0 // ,0120 PROC FORKORT(REF PRT┆
0x3d740…3d760 5b 4c 4c 45 52 2c 52 45 46 20 50 52 4e 5b 56 4e 45 52 29 2c 23 30 31 33 30 20 46 41 4b 54 4f 52 ┆ÆLLER,REF PRNÆVNER),#0130 FAKTOR┆
0x3d760…3d780 3a 3d 53 46 44 28 50 52 54 5b 4c 4c 45 52 2c 50 52 4e 5b 56 4e 45 52 29 23 1e 30 31 34 30 20 50 ┆:=SFD(PRTÆLLER,PRNÆVNER)# 0140 P┆
0x3d780…3d7a0 52 54 5b 4c 4c 45 52 3a 3d 50 52 54 5b 4c 4c 45 52 2f 46 41 4b 54 4f 52 1e 1e 30 31 35 30 20 50 ┆RTÆLLER:=PRTÆLLER/FAKTOR 0150 P┆
0x3d7a0…3d7c0 52 4e 5b 56 4e 45 52 3a 3d 50 52 4e 5b 56 4e 45 52 2f 46 41 4b 54 4f 52 1e 14 30 31 36 30 20 45 ┆RNÆVNER:=PRNÆVNER/FAKTOR 0160 E┆
0x3d7c0…3d7e0 4e 44 50 52 4f 43 20 46 4f 52 4b 4f 52 54 14 08 30 31 37 30 20 2f 2f 20 08 1f 30 31 38 30 20 44 ┆NDPROC FORKORT 0170 // 0180 D┆
0x3d7e0…3d800 49 4d 20 4e 41 56 4e 24 20 4f 46 20 33 30 2c 53 56 41 52 24 20 4f 46 20 31 1f 0b 30 31 39 30 20 ┆IM NAVN$ OF 30,SVAR$ OF 1 0190 ┆
0x3d800…3d820 (30, 1, 9) 43 4c 45 41 52 20 0b 43 30 31 39 34 20 49 4e 54 45 47 45 52 20 44 49 56 49 44 45 4e 44 31 2c 44 ┆CLEAR C0194 INTEGER DIVIDEND1,D┆
0x3d820…3d840 49 56 49 53 4f 52 31 2c 44 49 56 49 44 45 4e 44 32 2c 44 49 56 49 53 4f 52 32 2c 44 49 56 49 44 ┆IVISOR1,DIVIDEND2,DIVISOR2,DIVID┆
0x3d840…3d860 45 4e 44 2c 44 49 56 49 53 4f 52 43 2e 30 31 39 35 20 49 4e 54 45 47 45 52 20 54 52 55 45 2c 46 ┆END,DIVISORC.0195 INTEGER TRUE,F┆
0x3d860…3d880 41 4c 53 45 2c 46 45 4a 4c 2c 52 49 47 54 49 47 2c 41 4e 54 41 4c 2c 47 52 41 44 2e 15 30 31 39 ┆ALSE,FEJL,RIGTIG,ANTAL,GRAD. 019┆
0x3d880…3d8a0 36 20 46 41 4c 53 45 3a 3d 30 3b 54 52 55 45 3a 3d 31 15 0e 30 32 30 30 20 2f 2f 20 52 41 4e 44 ┆6 FALSE:=0;TRUE:=1 0200 // RAND┆
0x3d8a0…3d8c0 4f 4d 0e 28 30 32 31 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 64 69 74 20 6e 61 76 6e ┆OM (0210 INPUT "Indtast dit navn┆
0x3d8c0…3d8e0 3a 20 20 20 20 22 3a 4e 41 56 4e 24 28 0b 30 32 32 30 20 50 52 49 4e 54 20 0b 28 30 32 33 30 20 ┆: ":NAVN$( 0220 PRINT (0230 ┆
0x3d8e0…3d900 49 4e 50 55 54 20 22 53 76 7b 72 68 65 64 73 67 72 61 64 20 28 31 2d 31 30 30 29 3a 20 22 3a 47 ┆INPUT "Sværhedsgrad (1-100): ":G┆
0x3d900…3d920 (30, 1, 10) 52 41 44 28 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 3f 30 32 35 30 20 50 52 49 4e 54 20 22 56 65 ┆RAD( 0240 PRINT ?0250 PRINT "Ve┆
0x3d920…3d940 6c 6b 6f 6d 6d 6d 65 6e 20 22 3b 4e 41 56 4e 24 3b 22 2c 20 64 75 20 66 7d 72 20 6e 75 20 73 74 ┆lkommmen ";NAVN$;", du får nu st┆
0x3d940…3d960 69 6c 6c 65 74 20 35 20 6f 70 67 61 76 65 72 3a 22 3f 11 30 32 36 30 20 43 55 52 53 4f 52 20 36 ┆illet 5 opgaver:"? 0260 CURSOR 6┆
0x3d960…3d980 35 2c 32 32 11 1f 30 32 37 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 65 74 75 72 6e 3a 22 3a ┆5,22 0270 INPUT "Tast return:":┆
0x3d980…3d9a0 53 56 41 52 24 1f 23 30 32 38 30 20 41 4e 54 41 4c 3a 3d 30 3b 52 49 47 54 49 47 3a 3d 30 3b 46 ┆SVAR$ #0280 ANTAL:=0;RIGTIG:=0;F┆
0x3d9a0…3d9c0 45 4a 4c 3a 3d 46 41 4c 53 45 23 0c 30 32 39 30 20 52 45 50 45 41 54 20 0c 0b 30 33 30 30 20 43 ┆EJL:=FALSE# 0290 REPEAT 0300 C┆
0x3d9c0…3d9e0 4c 45 41 52 20 0b 0f 30 33 31 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 13 30 33 32 30 20 41 4e 54 ┆LEAR 0310 CURSOR 1,3 0320 ANT┆
0x3d9e0…3da00 41 4c 3a 3d 41 4e 54 41 4c 2b 31 13 1b 30 33 33 30 20 44 49 56 49 44 45 4e 44 31 3a 3d 52 4e 44 ┆AL:=ANTAL+1 0330 DIVIDEND1:=RND┆
0x3da00…3da20 (30, 1, 11) 28 31 2c 47 52 41 44 29 1b 1b 30 33 33 35 20 44 49 56 49 44 45 4e 44 32 3a 3d 52 4e 44 28 31 2c ┆(1,GRAD) 0335 DIVIDEND2:=RND(1,┆
0x3da20…3da40 47 52 41 44 29 1b 1a 30 33 34 30 20 44 49 56 49 53 4f 52 31 3a 3d 52 4e 44 28 31 2c 47 52 41 44 ┆GRAD) 0340 DIVISOR1:=RND(1,GRAD┆
0x3da40…3da60 29 1a 1a 30 33 34 35 20 44 49 56 49 53 4f 52 32 3a 3d 52 4e 44 28 31 2c 47 52 41 44 29 1a 0b 30 ┆) 0345 DIVISOR2:=RND(1,GRAD) 0┆
0x3da60…3da80 33 35 30 20 50 52 49 4e 54 20 0b 48 30 33 36 30 20 50 52 49 4e 54 20 44 49 56 49 44 45 4e 44 31 ┆350 PRINT H0360 PRINT DIVIDEND1┆
0x3da80…3daa0 3b 22 2f 20 22 3b 44 49 56 49 53 4f 52 31 3b 22 20 2b 20 22 3b 44 49 56 49 44 45 4e 44 32 3b 22 ┆;"/ ";DIVISOR1;" + ";DIVIDEND2;"┆
0x3daa0…3dac0 2f 20 22 3b 44 49 56 49 53 4f 52 32 3b 22 20 3d 20 3f 20 22 48 0b 30 33 37 30 20 50 52 49 4e 54 ┆/ ";DIVISOR2;" = ? "H 0370 PRINT┆
0x3dac0…3dae0 20 0b 34 30 33 38 30 20 44 49 56 49 44 45 4e 44 3a 3d 44 49 56 49 44 45 4e 44 31 2a 44 49 56 49 ┆ 40380 DIVIDEND:=DIVIDEND1*DIVI┆
0x3dae0…3db00 53 4f 52 32 2b 44 49 56 49 44 45 4e 44 32 2a 44 49 56 49 53 4f 52 31 34 1f 30 33 39 30 20 44 49 ┆SOR2+DIVIDEND2*DIVISOR14 0390 DI┆
0x3db00…3db20 (30, 1, 12) 56 49 53 4f 52 3a 3d 44 49 56 49 53 4f 52 31 2a 44 49 56 49 53 4f 52 32 1f 23 30 34 30 30 20 45 ┆VISOR:=DIVISOR1*DIVISOR2 #0400 E┆
0x3db20…3db40 58 45 43 20 46 4f 52 4b 4f 52 54 28 44 49 56 49 44 45 4e 44 2c 44 49 56 49 53 4f 52 29 23 0e 30 ┆XEC FORKORT(DIVIDEND,DIVISOR)# 0┆
0x3db40…3db60 34 31 30 20 46 4f 52 53 5c 47 3a 3d 30 0e 0c 30 34 32 30 20 52 45 50 45 41 54 20 0c 15 30 34 33 ┆410 FORSØG:=0 0420 REPEAT 043┆
0x3db60…3db80 30 20 46 4f 52 53 5c 47 3a 3d 46 4f 52 53 5c 47 2b 31 15 24 30 34 34 30 20 49 4e 50 55 54 20 22 ┆0 FORSØG:=FORSØG+1 $0440 INPUT "┆
0x3db80…3dba0 49 6e 64 74 61 73 74 20 74 7b 6c 6c 65 72 3a 20 22 3a 54 5b 4c 4c 45 52 24 0b 30 34 35 30 20 50 ┆Indtast tæller: ":TÆLLER$ 0450 P┆
0x3dba0…3dbc0 52 49 4e 54 20 0b 24 30 34 36 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6e 7b 76 6e 65 ┆RINT $0460 INPUT "Indtast nævne┆
0x3dbc0…3dbe0 72 3a 20 22 3a 4e 5b 56 4e 45 52 24 0b 30 34 37 30 20 50 52 49 4e 54 20 0b 0b 30 34 38 30 20 50 ┆r: ":NÆVNER$ 0470 PRINT 0480 P┆
0x3dbe0…3dc00 52 49 4e 54 20 0b 30 30 34 39 30 20 49 46 20 44 49 56 49 44 45 4e 44 3d 54 5b 4c 4c 45 52 20 41 ┆RINT 00490 IF DIVIDEND=TÆLLER A┆
0x3dc00…3dc20 (30, 1, 13) 4e 44 20 44 49 56 49 53 4f 52 3d 4e 5b 56 4e 45 52 20 54 48 45 4e 20 30 1e 30 35 30 30 20 50 52 ┆ND DIVISOR=NÆVNER THEN 0 0500 PR┆
0x3dc20…3dc40 49 4e 54 20 22 53 76 61 72 65 74 20 65 72 20 6b 6f 72 72 65 6b 74 22 1e 15 30 35 31 30 20 52 49 ┆INT "Svaret er korrekt" 0510 RI┆
0x3dc40…3dc60 47 54 49 47 3a 3d 52 49 47 54 49 47 2b 31 15 0a 30 35 32 30 20 45 4c 53 45 20 0a 0f 30 35 33 30 ┆GTIG:=RIGTIG+1 0520 ELSE 0530┆
0x3dc60…3dc80 20 46 45 4a 4c 3a 3d 54 52 55 45 0f 16 30 35 34 30 20 49 46 20 46 4f 52 53 5c 47 3c 33 20 54 48 ┆ FEJL:=TRUE 0540 IF FORSØG<3 TH┆
0x3dc80…3dca0 45 4e 20 16 2d 30 35 35 30 20 50 52 49 4e 54 20 22 53 76 61 72 65 74 20 65 72 20 75 6b 6f 72 72 ┆EN -0550 PRINT "Svaret er ukorr┆
0x3dca0…3dcc0 65 6b 74 20 2d 20 70 72 7c 76 20 69 67 65 6e 3a 20 22 2d 0a 30 35 36 30 20 45 4c 53 45 20 0a 3d ┆ekt - prøv igen: "- 0560 ELSE =┆
0x3dcc0…3dce0 30 35 37 30 20 50 52 49 4e 54 20 22 4e 65 6a 2c 20 64 65 74 20 6b 6f 72 72 65 6b 74 65 20 73 76 ┆0570 PRINT "Nej, det korrekte sv┆
0x3dce0…3dd00 61 72 20 65 72 20 22 3b 44 49 56 49 44 45 4e 44 3b 22 2f 20 22 3b 44 49 56 49 53 4f 52 3d 0b 30 ┆ar er ";DIVIDEND;"/ ";DIVISOR= 0┆
0x3dd00…3dd20 (30, 1, 14) 35 38 30 20 45 4e 44 49 46 20 0b 0b 30 35 39 30 20 45 4e 44 49 46 20 0b 3b 30 36 30 30 20 55 4e ┆580 ENDIF 0590 ENDIF ;0600 UN┆
0x3dd20…3dd40 54 49 4c 20 46 4f 52 53 5c 47 3d 33 20 4f 52 20 28 44 49 56 49 44 45 4e 44 3d 54 5b 4c 4c 45 52 ┆TIL FORSØG=3 OR (DIVIDEND=TÆLLER┆
0x3dd40…3dd60 20 41 4e 44 20 44 49 56 49 53 4f 52 3d 4e 5b 56 4e 45 52 29 3b 11 30 36 31 30 20 43 55 52 53 4f ┆ AND DIVISOR=NÆVNER); 0610 CURSO┆
0x3dd60…3dd80 52 20 36 35 2c 32 32 11 1f 30 36 32 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 72 65 74 75 72 6e ┆R 65,22 0620 INPUT "Tast return┆
0x3dd80…3dda0 3a 22 3a 53 56 41 52 24 1f 12 30 36 33 30 20 55 4e 54 49 4c 20 41 4e 54 41 4c 3d 35 12 0b 30 36 ┆:":SVAR$ 0630 UNTIL ANTAL=5 06┆
0x3dda0…3ddc0 34 30 20 50 52 49 4e 54 20 0b 14 30 36 35 30 20 43 41 53 45 20 52 49 47 54 49 47 20 4f 46 20 14 ┆40 PRINT 0650 CASE RIGTIG OF ┆
0x3ddc0…3dde0 0b 30 36 36 30 20 57 48 45 4e 20 30 0b 3e 30 36 37 30 20 50 52 49 4e 54 20 22 49 6b 6b 65 20 65 ┆ 0660 WHEN 0 >0670 PRINT "Ikke e┆
0x3dde0…3de00 74 20 65 6e 65 73 74 65 20 72 69 67 74 69 67 74 20 73 76 61 72 21 20 4a 61 6d 65 6e 20 22 3b 4e ┆t eneste rigtigt svar! Jamen ";N┆
0x3de00…3de20 (30, 1, 15) 41 56 4e 24 3b 22 20 64 6f 67 21 22 3e 0b 30 36 38 30 20 57 48 45 4e 20 31 0b 31 30 36 39 30 20 ┆AVN$;" dog!"> 0680 WHEN 1 10690 ┆
0x3de20…3de40 50 52 49 4e 54 20 22 4b 75 6e 20 31 20 72 69 67 74 69 67 74 20 73 76 61 72 20 2d 20 65 6c 65 6e ┆PRINT "Kun 1 rigtigt svar - elen┆
0x3de40…3de60 64 69 67 74 20 22 3b 4e 41 56 4e 24 31 0b 30 37 30 30 20 57 48 45 4e 20 32 0b 3e 30 37 31 30 20 ┆digt ";NAVN$1 0700 WHEN 2 >0710 ┆
0x3de60…3de80 50 52 49 4e 54 20 22 4b 75 6e 20 32 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2d 20 64 65 74 20 ┆PRINT "Kun 2 rigtige svar - det ┆
0x3de80…3dea0 65 72 20 69 6b 6b 65 20 73 74 72 7d 6c 65 6e 64 65 20 22 3b 4e 41 56 4e 24 3e 0b 30 37 32 30 20 ┆er ikke strålende ";NAVN$> 0720 ┆
0x3dea0…3dec0 57 48 45 4e 20 33 0b 39 30 37 33 30 20 50 52 49 4e 54 20 22 33 20 72 69 67 74 69 67 65 20 73 76 ┆WHEN 3 90730 PRINT "3 rigtige sv┆
0x3dec0…3dee0 61 72 20 2d 20 64 65 74 20 6b 75 6e 6e 65 20 76 7b 72 65 20 62 65 64 72 65 20 22 3b 4e 41 56 4e ┆ar - det kunne være bedre ";NAVN┆
0x3dee0…3df00 24 39 0b 30 37 34 30 20 57 48 45 4e 20 34 0b 34 30 37 35 30 20 50 52 49 4e 54 20 22 4b 75 6e 20 ┆$9 0740 WHEN 4 40750 PRINT "Kun ┆
0x3df00…3df20 (30, 1, 16) 65 74 20 66 6f 72 6b 65 72 74 20 73 76 61 72 20 2d 20 69 6b 6b 65 20 76 7b 72 73 74 20 22 3b 4e ┆et forkert svar - ikke værst ";N┆
0x3df20…3df40 41 56 4e 24 34 0b 30 37 36 30 20 57 48 45 4e 20 35 0b 17 30 37 37 30 20 49 46 20 46 45 4a 4c 3d ┆AVN$4 0760 WHEN 5 0770 IF FEJL=┆
0x3df40…3df60 54 52 55 45 20 54 48 45 4e 20 17 2f 30 37 38 30 20 50 52 49 4e 54 20 22 47 6f 64 74 20 22 3b 4e ┆TRUE THEN /0780 PRINT "Godt ";N┆
0x3df60…3df80 41 56 4e 24 3b 22 2c 20 35 20 72 69 67 74 69 67 65 20 73 76 61 72 20 2d 20 22 3b 2f 2d 30 37 39 ┆AVN$;", 5 rigtige svar - ";/-079┆
0x3df80…3dfa0 30 20 50 52 49 4e 54 20 22 6f 6d 65 6e 64 20 69 6b 6b 65 20 61 6c 6c 65 20 69 20 66 7c 72 73 74 ┆0 PRINT "omend ikke alle i først┆
0x3dfa0…3dfc0 65 20 66 6f 72 73 7c 67 2e 22 2d 0a 30 38 30 30 20 45 4c 53 45 20 0a 1b 30 38 31 30 20 50 52 49 ┆e forsøg."- 0800 ELSE 0810 PRI┆
0x3dfc0…3dfe0 4e 54 20 22 50 65 72 66 65 6b 74 20 22 3b 4e 41 56 4e 24 1b 0b 30 38 32 30 20 45 4e 44 49 46 20 ┆NT "Perfekt ";NAVN$ 0820 ENDIF ┆
0x3dfe0…3e000 0b 0d 30 38 33 30 20 45 4e 44 43 41 53 45 20 0d 05 30 39 30 30 20 05 17 30 39 31 30 20 50 52 4f ┆ 0830 ENDCASE 0900 0910 PRO┆
0x3e000…3e020 (31, 0, 1) ExtentHdr {name=»REGNEOPG«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 003d,06 (0x03d600)}, nextfile={DA 003e,0a (0x03ea00)}, f99=41 05 00 20 00 5c 44 45 20 20 ┆A ØDE ┆}
0x3e020…3e040 43 20 52 4e 44 28 4c 4f 57 2c 48 49 47 48 29 17 1a 30 39 32 30 20 52 4e 44 58 3a 3d 52 4e 44 53 ┆C RND(LOW,HIGH) 0920 RNDX:=RNDS┆
0x3e040…3e060 45 45 44 2b 33 2e 31 34 31 35 39 1a 1c 30 39 33 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a ┆EED+3.14159 0930 RNDX:=EXP(5.0*┆
0x3e060…3e080 4c 4e 28 52 4e 44 58 29 29 1c 1c 30 39 34 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e ┆LN(RNDX)) 0940 RNDSEED:=RNDX-IN┆
0x3e080…3e0a0 54 28 52 4e 44 58 29 1c 2b 30 39 35 30 20 52 4e 44 3a 3d 49 4e 54 28 28 52 4e 44 53 45 45 44 2a ┆T(RNDX) +0950 RND:=INT((RNDSEED*┆
0x3e0a0…3e0c0 28 48 49 47 48 2d 4c 4f 57 29 2b 4c 4f 57 29 2b 30 2e 35 29 2b 10 30 39 36 30 20 45 4e 44 50 52 ┆(HIGH-LOW)+LOW)+0.5)+ 0960 ENDPR┆
0x3e0c0…3e0e0 4f 43 20 52 4e 44 10 21 30 33 35 39 20 2f 2f 20 6b 65 20 61 6c 6c 65 20 69 20 66 7c 72 73 74 65 ┆OC RND !0359 // ke alle i første┆
0x3e0e0…3e100 20 66 6f 72 73 7c 67 2e 22 21 00 00 30 30 38 30 20 45 4e 44 57 48 49 4c 45 20 0e 0d 30 30 39 30 ┆ forsøg."! 0080 ENDWHILE 0090┆
0x3e100…3e200 (31, 0, 2) 0x63[0x100]
[…0x8…]
0x3ea00…3ea20 (31, 0, 11) ExtentHdr {name=»INFOSCR «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003f,04 (0x03f400)}, f99=41 05 00 ff 00 5c 44 45 20 20 ┆A ØDE ┆}
0x3ea20…3ea40 48 20 20 20 4c 65 69 66 20 50 65 68 72 73 73 6f 6e 20 20 20 20 20 2d 20 20 20 20 20 45 73 74 65 ┆H Leif Pehrsson - Este┆
0x3ea40…3ea60 72 20 4d 2e 20 43 68 72 69 73 74 65 6e 73 65 6e 20 20 20 20 20 2d 20 20 20 20 20 42 6a 61 72 6e ┆r M. Christensen - Bjarn┆
0x3ea60…3ea80 65 20 41 61 67 61 61 72 64 48 01 20 01 01 20 01 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆e AagaardH - ┆
0x3ea80…3eaa0 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2d 31 ┆ ** **-1┆
0x3eaa0…3eac0 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 2a 20 2a 2a 20 20 20 ┆ ** ** ┆
0x3eac0…3eae0 20 20 20 20 20 20 20 2a 2a 20 20 2a 2a 20 20 2a 2a 31 30 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** ** **10 ┆
0x3eae0…3eb00 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 2a 2a ┆ ** ** ** **┆
0x3eb00…3eb20 (31, 0, 12) 20 2a 2a 30 35 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 ┆ **05 ** ┆
0x3eb20…3eb40 2a 2a 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 35 32 20 20 20 20 ┆** ************ 52 ┆
0x3eb40…3eb60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 2a 2a 20 20 20 20 20 20 20 ┆ ** ** ┆
0x3eb60…3eb80 20 20 20 20 2a 2a 20 2a 2a 20 2a 2a 20 20 32 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** ** ** 21 ┆
0x3eb80…3eba0 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 2a 2a 20 20 2a 2a 20 20 2a ┆ ********** ** ** *┆
0x3eba0…3ebc0 2a 31 31 20 20 20 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 2a ┆*11 **┆
0x3ebc0…3ebe0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 31 33 20 20 20 20 20 20 20 20 20 20 ┆ ** 13 ┆
0x3ebe0…3ec00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ** ┆
0x3ec00…3ec20 (31, 0, 13) 20 20 20 20 20 20 20 20 20 33 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ 3: ┆
0x3ec20…3ec40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x3ec40…3ec60 20 20 20 20 20 3a 3b 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 20 20 20 20 20 2a 2a ┆ :; ****** **┆
0x3ec60…3ec80 2a 2a 2a 2a 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 20 20 2a 2a 2a 2a 2a 2a 20 20 20 20 ┆**** ** ** ****** ┆
0x3ec80…3eca0 2a 2a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 2a 2a 20 20 20 2a 2a 20 20 20 20 ┆**;; ** ** ** ┆
0x3eca0…3ecc0 2a 2a 20 20 20 2a 2a 2a 20 20 20 20 2a 2a 2a 20 20 20 2a 2a 20 20 20 20 2a 2a 20 20 20 2a 2a 3b ┆** *** *** ** ** **;┆
0x3ecc0…3ece0 3b 20 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a ┆; ** ** **┆
0x3ece0…3ed00 20 20 2a 2a 2a 2a 20 20 2a 2a 2a 2a 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 3b 3b 20 20 ┆ **** **** ** ** **;; ┆
0x3ed00…3ed20 (31, 0, 14) 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a ┆ ** ** ** *┆
0x3ed20…3ed40 2a 20 2a 2a 2a 2a 20 2a 2a 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 3b 3b 20 20 20 20 20 ┆* **** ** ** ** **;; ┆
0x3ed40…3ed60 20 20 20 20 20 2a 2a 20 20 20 20 20 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 20 20 ┆ ** ** ** ** ┆
0x3ed60…3ed80 2a 2a 20 20 2a 2a 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 2a 2a 3b 3b 20 20 20 20 20 20 20 20 ┆** ** ********** **;; ┆
0x3ed80…3eda0 20 20 2a 2a 20 20 20 a0 20 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 20 20 20 20 20 ┆ ** ** ** ** ┆
0x3eda0…3edc0 20 2a 2a 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 3b 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ ** ** ** **;; ┆
0x3edc0…3ede0 2a 2a 20 20 20 20 2a 2a 20 20 20 2a 2a 20 20 20 20 2a 2a 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a ┆** ** ** ** ** **┆
0x3ede0…3ee00 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 3b 41 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a ┆ ** ** **;A **┆
0x3ee00…3ee20 (31, 0, 15) 2a 2a 2a 2a 20 20 20 20 20 2a 2a 2a 2a 2a 2a 20 20 20 20 2a 2a 20 20 20 20 20 20 2a 2a 20 20 2a ┆**** ****** ** ** *┆
0x3ee20…3ee40 2a 20 20 20 20 20 20 2a 2a 20 20 2a 2a 2a 2a 2a 2a 2a 2a 41 01 20 01 49 20 20 28 63 29 20 31 39 ┆* ** ********A I (c) 19┆
0x3ee40…3ee60 38 33 20 62 79 20 66 6f 72 6c 61 67 65 74 20 73 79 73 74 69 6d 65 20 61 2f 73 2c 20 4b 6c 6f 6b ┆83 by forlaget systime a/s, Klok┆
0x3ee60…3ee80 6b 65 62 61 6b 6b 65 6e 2c 20 47 6a 65 6c 6c 65 72 75 70 2c 20 37 34 30 30 20 48 65 72 6e 69 6e ┆kebakken, Gjellerup, 7400 Hernin┆
0x3ee80…3eea0 67 49 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆gI cccccccccccccccccccccccccccc┆
0x3eea0…3eec0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x3ef00…3f000 (31, 0, 16) 0x63[0x100]
[…0x4…]
0x3f400…3f420 (31, 1, 5) ExtentHdr {name=»EKSORD2 «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 003f,0e (0x03fe00)}, f99=41 0c 00 fe 00 59 50 49 47 45 ┆A YPIGE┆}
0x3f420…3f440 3a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆:0010 // -----------------------┆
0x3f440…3f460 2d 20 65 6b 73 5f 4f 52 44 32 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 3a 30 30 32 ┆- eks_ORD2 ----------------::002┆
0x3f460…3f480 30 20 2f 2f 20 55 64 73 6b 72 69 76 65 72 20 41 53 43 49 49 2d 76 7b 72 64 69 65 6e 20 61 66 20 ┆0 // Udskriver ASCII-værdien af ┆
0x3f480…3f4a0 68 76 65 72 74 20 74 65 67 6e 20 69 20 65 6e 20 73 74 72 65 6e 67 2e 3a 15 30 30 33 30 20 44 49 ┆hvert tegn i en streng.: 0030 DI┆
0x3f4a0…3f4c0 4d 20 54 45 4b 53 54 24 20 4f 46 20 32 39 15 0e 30 30 33 35 20 49 4e 54 45 47 45 52 20 41 0e 0b ┆M TEKST$ OF 29 0035 INTEGER A ┆
0x3f4c0…3f4e0 30 30 34 30 20 43 4c 45 41 52 20 0b 0f 30 30 35 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 2e 30 30 ┆0040 CLEAR 0050 CURSOR 1,6 .00┆
0x3f4e0…3f500 36 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 74 65 6b 73 74 3a 20 20 20 20 20 28 68 7c ┆60 PRINT "Indtast tekst: (hø┆
0x3f500…3f520 (31, 1, 6) 6a 73 74 20 32 39 29 20 20 20 22 3b 2e 11 30 30 37 30 20 49 4e 50 55 54 20 54 45 4b 53 54 24 11 ┆jst 29) ";. 0070 INPUT TEKST$ ┆
0x3f520…3f540 0b 30 30 38 30 20 50 52 49 4e 54 20 0b 20 30 30 39 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 4c ┆ 0080 PRINT 0090 FOR A:=1 TO L┆
0x3f540…3f560 45 4e 28 54 45 4b 53 54 24 29 20 44 4f 20 20 45 30 31 30 30 20 50 52 49 4e 54 20 22 54 65 67 6e ┆EN(TEKST$) DO E0100 PRINT "Tegn┆
0x3f560…3f580 20 6e 72 3a 20 20 22 3b 41 3b 22 20 20 20 22 3b 54 45 4b 53 54 24 28 41 3a 31 29 3b 22 20 20 68 ┆ nr: ";A;" ";TEKST$(A:1);" h┆
0x3f580…3f5a0 61 72 20 41 53 43 49 49 2d 76 7b 72 64 69 65 6e 3a 20 20 22 3b 45 1b 30 31 30 35 20 50 52 49 4e ┆ar ASCII-værdien: ";E 0105 PRIN┆
0x3f5a0…3f5c0 54 20 4f 52 44 28 54 45 4b 53 54 24 28 41 3a 31 29 29 1b 0b 30 31 31 30 20 4e 45 58 54 20 41 0b ┆T ORD(TEKST$(A:1)) 0110 NEXT A ┆
0x3f5c0…3f5e0 0f 3d 31 30 39 20 2f 2f 20 24 28 41 3a 41 29 29 0f 0d 44 36 33 31 20 2f 2f 20 46 4f 52 20 20 0d ┆ =109 // $(A:A)) D631 // FOR ┆
0x3f5e0…3f600 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ cccccccccccccccccccccccccccccc┆
0x3f600…3f700 (31, 1, 7) 0x63[0x100]
[…0x7…]
0x3fe00…3fe20 (31, 1, 15) ExtentHdr {name=»KLØR_TES«, typ=»K«, seg=»A«, next=0x03, basis=0x000a, nextext={DA 0040,08 (0x040800)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0040,08 (0x040800)}, f99=41 0c 00 fe 00 59 50 49 47 45 ┆A YPIGE┆}
0x3fe20…3fe40 43 30 31 30 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0100 // -----------------------┆
0x3fe40…3fe60 20 6b 6c 7c 72 2d 74 65 73 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ klør-test ---------------------┆
0x3fe60…3fe80 2d 2d 2d 2d 43 08 30 31 31 30 20 2f 2f 20 08 45 30 31 32 30 20 44 49 4d 20 54 41 4c 24 20 4f 46 ┆----C 0110 // E0120 DIM TAL$ OF┆
0x3fe80…3fea0 20 33 2c 53 56 24 20 4f 46 20 32 2c 4e 41 56 4e 24 20 4f 46 20 32 30 2c 54 52 55 24 28 31 30 29 ┆ 3,SV$ OF 2,NAVN$ OF 20,TRU$(10)┆
0x3fea0…3fec0 20 4f 46 20 31 2c 53 50 5c 52 24 28 34 30 29 20 4f 46 20 38 30 45 29 30 31 33 30 20 44 49 4d 20 ┆ OF 1,SPØR$(40) OF 80E)0130 DIM ┆
0x3fec0…3fee0 52 45 54 55 52 24 20 4f 46 20 32 2c 46 41 24 20 4f 46 20 31 2c 46 24 28 31 30 29 20 4f 46 20 31 ┆RETUR$ OF 2,FA$ OF 1,F$(10) OF 1┆
0x3fee0…3ff00 29 48 30 31 34 30 20 44 49 4d 20 54 45 53 54 4e 41 56 4e 31 24 20 4f 46 20 34 30 2c 54 45 53 54 ┆)H0140 DIM TESTNAVN1$ OF 40,TEST┆
0x3ff00…3ff20 (31, 1, 16) 4e 41 56 4e 32 24 20 4f 46 20 34 30 2c 51 55 45 53 54 46 49 4c 24 20 4f 46 20 31 37 2c 54 58 54 ┆NAVN2$ OF 40,QUESTFIL$ OF 17,TXT┆
0x3ff20…3ff40 46 49 4c 24 20 4f 46 20 31 37 48 2c 30 31 35 30 20 49 4e 54 45 47 45 52 20 53 55 4d 2c 54 41 4c ┆FIL$ OF 17H,0150 INTEGER SUM,TAL┆
0x3ff40…3ff60 4e 52 2c 4d 2c 4e 55 4d 4d 45 52 2c 41 2c 4a 2c 49 2c 53 50 52 49 4e 47 2c 27 30 31 36 30 20 54 ┆NR,M,NUMMER,A,J,I,SPRING,'0160 T┆
0x3ff60…3ff80 45 53 54 4e 41 56 4e 31 24 3a 3d 22 4b 20 4c 20 5c 20 52 20 2d 20 54 20 45 20 53 20 54 20 2e 20 ┆ESTNAVN1$:="K L Ø R - T E S T . ┆
0x3ff80…3ffa0 22 27 2a 30 31 37 30 20 54 45 53 54 4e 41 56 4e 32 24 3a 3d 22 20 20 20 6b 20 6c 20 7c 20 72 20 ┆"'*0170 TESTNAVN2$:=" k l ø r ┆
0x3ffa0…3ffc0 2d 20 74 20 65 20 73 20 74 20 20 20 22 2a 1f 30 31 38 30 20 54 58 54 46 49 4c 24 3a 3d 22 53 59 ┆- t e s t "* 0180 TXTFIL$:="SY┆
0x3ffc0…3ffe0 53 54 49 4d 45 3a 4b 4c 5c 52 54 58 54 22 1f 4a 30 31 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆STIME:KLØRTXT" J0190 // --------┆
0x3ffe0…40000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40000…40020 (32, 0, 1) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 30 32 30 30 ┆--------------------------J 0200┆
0x40020…40040 20 45 58 45 43 20 48 4f 56 45 44 0f 12 30 32 31 30 20 45 58 45 43 20 46 4f 52 53 49 44 45 4e 12 ┆ EXEC HOVED 0210 EXEC FORSIDEN ┆
0x40040…40060 0e 30 32 32 30 20 45 58 45 43 20 56 41 4c 47 0e 4a 30 32 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d ┆ 0220 EXEC VALG J0230 // -------┆
0x40060…40080 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40080…400a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0f 30 32 34 ┆---------------------------J 024┆
0x400a0…400c0 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0b 30 32 35 30 20 43 4c 45 41 52 20 0b 10 30 32 36 30 20 ┆0 PROC HOVED 0250 CLEAR 0260 ┆
0x400c0…400e0 43 55 52 53 4f 52 20 31 33 2c 34 10 35 30 32 37 30 20 50 52 49 4e 54 20 22 20 56 20 45 20 4c 20 ┆CURSOR 13,4 50270 PRINT " V E L ┆
0x400e0…40100 4b 20 4f 20 4d 20 4d 20 45 20 4e 20 20 20 54 20 49 20 4c 20 20 20 22 3b 54 45 53 54 4e 41 56 4e ┆K O M M E N T I L ";TESTNAVN┆
0x40100…40120 (32, 0, 2) 31 24 35 10 30 32 38 30 20 43 55 52 53 4f 52 20 31 33 2c 35 10 43 30 32 39 30 20 50 52 49 4e 54 ┆1$5 0280 CURSOR 13,5 C0290 PRINT┆
0x40120…40140 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "------------------------------┆
0x40140…40160 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 43 10 30 33 30 30 20 ┆------------------------"C 0300 ┆
0x40160…40180 43 55 52 53 4f 52 20 31 35 2c 38 10 2a 30 33 31 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 ┆CURSOR 15,8 *0310 INPUT "Skriv d┆
0x40180…401a0 69 74 20 6e 61 76 6e 20 68 65 72 3a 20 20 20 20 22 3a 4e 41 56 4e 24 2a 11 30 33 32 30 20 43 55 ┆it navn her: ":NAVN$* 0320 CU┆
0x401a0…401c0 52 53 4f 52 20 32 30 2c 31 32 11 12 30 33 33 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 12 4a ┆RSOR 20,12 0330 ENDPROC HOVED J┆
0x401c0…401e0 30 33 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0340 // ------------------------┆
0x401e0…40200 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40200…40220 (32, 0, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 0e 30 33 35 30 20 50 52 4f 43 20 56 41 4c 47 0e 1f 30 33 36 30 ┆----------J 0350 PROC VALG 0360┆
0x40220…40240 20 53 55 4d 3a 3d 30 3b 4d 3a 3d 31 3b 41 3a 3d 30 3b 4e 55 4d 4d 45 52 3a 3d 30 1f 0b 30 33 37 ┆ SUM:=0;M:=1;A:=0;NUMMER:=0 037┆
0x40240…40260 30 20 43 4c 45 41 52 20 0b 11 30 33 38 30 20 43 55 52 53 4f 52 20 33 30 2c 31 32 11 1e 30 33 39 ┆0 CLEAR 0380 CURSOR 30,12 039┆
0x40260…40280 30 20 50 52 49 4e 54 20 22 20 4c 69 67 65 20 65 74 20 7c 6a 65 62 6c 69 6b 21 22 1e 10 30 34 30 ┆0 PRINT " Lige et øjeblik!" 040┆
0x40280…402a0 30 20 45 58 45 43 20 46 49 4c 4c 5b 53 10 10 30 34 31 30 20 45 58 45 43 20 46 52 5d 47 41 4e 10 ┆0 EXEC FILLÆS 0410 EXEC FRÅGAN ┆
0x402a0…402c0 0b 30 34 32 30 20 43 4c 45 41 52 20 0b 10 30 34 33 30 20 43 55 52 53 4f 52 20 31 30 2c 33 10 3b ┆ 0420 CLEAR 0430 CURSOR 10,3 ;┆
0x402c0…402e0 30 34 34 30 20 50 52 49 4e 54 20 22 44 75 20 68 61 72 20 66 7d 65 74 20 22 3b 53 55 4d 3b 22 20 ┆0440 PRINT "Du har fået ";SUM;" ┆
0x402e0…40300 72 69 67 74 69 67 65 20 73 76 61 72 20 61 66 20 31 30 20 6d 75 6c 69 67 65 2e 22 3b 10 30 34 35 ┆rigtige svar af 10 mulige."; 045┆
0x40300…40320 (32, 0, 4) 30 20 43 55 52 53 4f 52 20 31 30 2c 38 10 30 30 34 36 30 20 50 52 49 4e 54 20 22 44 75 20 6b 61 ┆0 CURSOR 10,8 00460 PRINT "Du ka┆
0x40320…40340 6e 20 76 7b 6c 67 65 20 6d 65 6c 6c 65 6d 20 74 72 65 20 6d 75 6c 69 67 68 65 64 65 72 3a 22 30 ┆n vælge mellem tre muligheder:"0┆
0x40340…40360 11 30 34 37 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 4b 30 34 38 30 20 50 52 49 4e 54 20 22 ┆ 0470 CURSOR 10,12 K0480 PRINT "┆
0x40360…40380 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 66 6f 72 62 65 64 72 65 20 64 69 74 20 72 ┆1. Ønsker du at forbedre dit r┆
0x40380…403a0 65 73 75 6c 74 61 74 20 76 65 64 20 61 74 20 62 65 67 79 6e 64 65 20 66 6f 72 66 72 61 3f 22 4b ┆esultat ved at begynde forfra?"K┆
0x403a0…403c0 11 30 34 39 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 46 30 35 30 30 20 50 52 49 4e 54 20 22 ┆ 0490 CURSOR 10,14 F0500 PRINT "┆
0x403c0…403e0 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 6d 6d ┆2. Ønsker du dit resultat samm┆
0x403e0…40400 65 6e 6c 69 67 6e 65 74 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 20 22 46 11 30 35 31 30 ┆enlignet med det rigtige "F 0510┆
0x40400…40420 (32, 0, 5) 20 43 55 52 53 4f 52 20 31 30 2c 31 35 11 28 30 35 32 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 ┆ CURSOR 10,15 (0520 PRINT " ┆
0x40420…40440 53 6b 72 65 76 65 74 20 75 64 20 70 7d 20 70 72 69 6e 74 65 72 3f 22 28 11 30 35 33 30 20 43 55 ┆Skrevet ud på printer?"( 0530 CU┆
0x40440…40460 52 53 4f 52 20 31 30 2c 31 37 11 45 30 35 34 30 20 50 52 49 4e 54 20 22 33 2e 20 20 20 5c 6e 73 ┆RSOR 10,17 E0540 PRINT "3. Øns┆
0x40460…40480 6b 65 72 20 64 75 20 64 69 74 20 72 65 73 75 6c 74 61 74 20 73 61 6d 6d 65 6e 6c 69 67 6e 65 74 ┆ker du dit resultat sammenlignet┆
0x40480…404a0 20 6d 65 64 20 64 65 74 20 72 69 67 74 69 67 65 22 45 11 30 35 35 30 20 43 55 52 53 4f 52 20 31 ┆ med det rigtige"E 0550 CURSOR 1┆
0x404a0…404c0 30 2c 31 38 11 28 30 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 53 6b 72 65 76 65 74 20 75 ┆0,18 (0560 PRINT " Skrevet u┆
0x404c0…404e0 64 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 28 0b 30 35 37 30 20 50 52 49 4e 54 20 0b 0b 30 35 38 ┆d på skærmen?"( 0570 PRINT 058┆
0x404e0…40500 30 20 50 52 49 4e 54 20 0b 11 30 35 39 30 20 43 55 52 53 4f 52 20 31 30 2c 32 31 11 2b 30 36 30 ┆0 PRINT 0590 CURSOR 10,21 +060┆
0x40500…40520 (32, 0, 6) 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 74 61 6c 3a 20 ┆0 INPUT "Skriv det ønskede tal: ┆
0x40520…40540 20 22 3a 54 41 4c 4e 52 2b 0c 30 36 31 30 20 52 45 50 45 41 54 20 0c 11 30 36 32 30 20 43 55 52 ┆ ":TALNR+ 0610 REPEAT 0620 CUR┆
0x40540…40560 53 4f 52 20 33 33 2c 32 31 11 15 30 36 33 30 20 49 46 20 54 41 4c 4e 52 3d 31 20 54 48 45 4e 20 ┆SOR 33,21 0630 IF TALNR=1 THEN ┆
0x40560…40580 15 0e 30 36 34 30 20 45 58 45 43 20 56 41 4c 47 0e 0b 30 36 35 30 20 43 4c 45 41 52 20 0b 0b 30 ┆ 0640 EXEC VALG 0650 CLEAR 0┆
0x40580…405a0 36 36 30 20 50 52 49 4e 54 20 0b 0a 30 36 37 30 20 45 4c 53 45 20 0a 15 30 36 38 30 20 49 46 20 ┆660 PRINT 0670 ELSE 0680 IF ┆
0x405a0…405c0 54 41 4c 4e 52 3d 32 20 54 48 45 4e 20 15 0e 30 36 39 30 20 53 50 52 49 4e 47 3a 3d 30 0e 14 30 ┆TALNR=2 THEN 0690 SPRING:=0 0┆
0x405c0…405e0 37 30 30 20 45 58 45 43 20 50 52 49 4e 54 45 52 52 45 53 14 0f 30 37 31 30 20 45 58 45 43 20 53 ┆700 EXEC PRINTERRES 0710 EXEC S┆
0x405e0…40600 4b 52 49 56 0f 16 30 37 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 12 30 37 ┆KRIV 0720 SELECT OUTPUT "T" 07┆
0x40600…40620 (32, 0, 7) 33 30 20 45 58 45 43 20 45 4c 45 43 54 49 4f 4e 12 0a 30 37 34 30 20 45 4c 53 45 20 0a 15 30 37 ┆30 EXEC ELECTION 0740 ELSE 07┆
0x40620…40640 35 30 20 49 46 20 54 41 4c 4e 52 3d 33 20 54 48 45 4e 20 15 0e 30 37 36 30 20 53 50 52 49 4e 47 ┆50 IF TALNR=3 THEN 0760 SPRING┆
0x40640…40660 3a 3d 31 0e 0f 30 37 37 30 20 45 58 45 43 20 53 4b 52 49 56 0f 12 30 37 38 30 20 45 58 45 43 20 ┆:=1 0770 EXEC SKRIV 0780 EXEC ┆
0x40660…40680 45 4c 45 43 54 49 4f 4e 12 0b 30 37 39 30 20 45 4e 44 49 46 20 0b 0b 30 38 30 30 20 45 4e 44 49 ┆ELECTION 0790 ENDIF 0800 ENDI┆
0x40680…406a0 46 20 0b 0b 30 38 31 30 20 45 4e 44 49 46 20 0b 28 30 38 32 30 20 55 4e 54 49 4c 20 54 41 4c 4e ┆F 0810 ENDIF (0820 UNTIL TALN┆
0x406a0…406c0 52 3d 30 20 4f 52 20 54 41 4c 4e 52 3d 31 20 4f 52 20 54 41 4c 4e 52 3d 32 28 11 30 38 33 30 20 ┆R=0 OR TALNR=1 OR TALNR=2( 0830 ┆
0x406c0…406e0 45 4e 44 50 52 4f 43 20 56 41 4c 47 11 48 30 38 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ENDPROC VALG H0840 // ----------┆
0x406e0…40700 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40700…40720 (32, 0, 8) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0f 30 38 35 30 20 50 52 4f ┆----------------------H 0850 PRO┆
0x40720…40740 43 20 53 4b 52 49 56 0f 1c 30 38 36 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 43 ┆C SKRIV 0860 IF SPRING=1 THEN C┆
0x40740…40760 4c 45 41 52 20 1c 0b 30 38 36 38 20 50 52 49 4e 54 20 0b 20 30 38 36 39 20 49 46 20 53 50 52 49 ┆LEAR 0868 PRINT 0869 IF SPRI┆
0x40760…40780 4e 47 3d 31 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 2c 31 20 46 30 38 37 30 20 50 52 49 4e 54 ┆NG=1 THEN CURSOR 1,1 F0870 PRINT┆
0x40780…407a0 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ " **************┆
0x407a0…407c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 46 3d 30 38 ┆***************************"F=08┆
0x407c0…407e0 38 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 20 20 20 20 ┆80 PRINT " * ┆
0x407e0…40800 20 20 20 20 22 3b 54 45 53 54 4e 41 56 4e 32 24 3b 22 20 20 20 20 20 20 20 2a 22 3d 46 30 38 39 ┆ ";TESTNAVN2$;" *"=F089┆
0x40800…40820 (32, 0, 9) ExtentHdr {name=»KLØR_TES«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0041,02 (0x041200)}, prevext={DA 003f,0e (0x03fe00)}, nextfile={DA 0041,02 (0x041200)}, f99=41 0c 00 20 00 59 50 49 47 45 ┆A YPIGE┆}
0x40820…40840 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a ┆0 PRINT " *******┆
0x40840…40860 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x40860…40880 2a 2a 22 46 3c 30 39 30 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆**"F<0900 PRINT " ┆
0x40880…408a0 20 2a 20 20 20 20 20 20 20 20 20 20 20 20 22 3b 4e 41 56 4e 24 3b 54 41 42 28 35 37 29 3b 22 2a ┆ * ";NAVN$;TAB(57);"*┆
0x408a0…408c0 22 3c 46 30 39 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a ┆"<F0910 PRINT " *┆
0x408c0…408e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x408e0…40900 2a 2a 2a 2a 2a 2a 2a 2a 22 46 20 30 39 32 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e ┆********"F 0920 IF SPRING=1 THEN┆
0x40900…40920 (32, 0, 10) 20 43 55 52 53 4f 52 20 31 2c 37 20 0b 30 39 33 30 20 50 52 49 4e 54 20 0b 46 30 39 34 30 20 50 ┆ CURSOR 1,7 0930 PRINT F0940 P┆
0x40920…40940 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 22 3b 54 41 42 28 33 35 29 3b 22 44 69 ┆RINT "Spørgsmål nr.";TAB(35);"Di┆
0x40940…40960 74 20 62 75 64 3a 22 3b 54 41 42 28 35 30 29 3b 22 52 69 67 74 69 67 65 20 66 61 63 69 74 3a 22 ┆t bud:";TAB(50);"Rigtige facit:"┆
0x40960…40980 46 4d 30 39 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆FM0950 PRINT "------------------┆
0x40980…409a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x409a0…409c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 30 39 36 30 20 50 52 49 4e 54 20 0b 17 30 39 ┆--------------"M 0960 PRINT 09┆
0x409c0…409e0 37 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 30 39 38 30 20 49 46 20 54 ┆70 FOR A:=1 TO 10 DO 0980 IF T┆
0x409e0…40a00 52 55 24 28 41 29 3c 3e 46 24 28 41 29 20 54 48 45 4e 20 1c 49 30 39 39 30 20 50 52 49 4e 54 20 ┆RU$(A)<>F$(A) THEN I0990 PRINT ┆
0x40a00…40a20 (32, 0, 11) 22 53 70 7c 72 67 73 6d 7d 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 28 ┆"Spørgsmål nr. ";A;TAB(38);TRU$(┆
0x40a20…40a40 41 29 3b 54 41 42 28 35 37 29 3b 46 24 28 41 29 2c 22 20 20 20 20 20 20 20 20 2a 2a 2a 22 49 0a ┆A);TAB(57);F$(A)," ***"I ┆
0x40a40…40a60 31 30 30 30 20 45 4c 53 45 20 0a 3b 31 30 31 30 20 50 52 49 4e 54 20 22 53 70 7c 72 67 73 6d 7d ┆1000 ELSE ;1010 PRINT "Spørgsmå┆
0x40a60…40a80 6c 20 6e 72 2e 20 22 3b 41 3b 54 41 42 28 33 38 29 3b 54 52 55 24 28 41 29 3b 54 41 42 28 35 37 ┆l nr. ";A;TAB(38);TRU$(A);TAB(57┆
0x40a80…40aa0 29 3b 46 24 28 41 29 3b 0b 31 30 32 30 20 45 4e 44 49 46 20 0b 0b 31 30 33 30 20 4e 45 58 54 20 ┆);F$(A); 1020 ENDIF 1030 NEXT ┆
0x40aa0…40ac0 41 0b 0b 31 30 34 30 20 50 52 49 4e 54 20 0b 4d 31 30 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d ┆A 1040 PRINT M1050 PRINT "----┆
0x40ac0…40ae0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40ae0…40b00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 4d 0b 31 ┆----------------------------"M 1┆
0x40b00…40b20 (32, 0, 12) 30 36 30 20 50 52 49 4e 54 20 0b 16 31 30 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 ┆060 PRINT 1070 IF SPRING=1 THE┆
0x40b20…40b40 4e 20 16 11 31 30 38 30 20 43 55 52 53 4f 52 20 36 37 2c 32 34 11 1c 31 30 39 30 20 49 4e 50 55 ┆N 1080 CURSOR 67,24 1090 INPU┆
0x40b40…40b60 54 20 22 52 65 74 75 72 6e 21 20 22 3a 52 45 54 55 52 24 1c 0b 31 31 30 30 20 45 4e 44 49 46 20 ┆T "Return! ":RETUR$ 1100 ENDIF ┆
0x40b60…40b80 0b 12 31 31 31 30 20 45 4e 44 50 52 4f 43 20 53 4b 52 49 56 12 46 31 31 32 30 20 2f 2f 20 2d 2d ┆ 1110 ENDPROC SKRIV F1120 // --┆
0x40b80…40ba0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40ba0…40bc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 10 31 31 ┆----------------------------F 11┆
0x40bc0…40be0 33 30 20 50 52 4f 43 20 46 49 4c 4c 5b 53 10 13 31 31 34 30 20 4f 50 45 4e 20 54 58 54 46 49 4c ┆30 PROC FILLÆS 1140 OPEN TXTFIL┆
0x40be0…40c00 24 2c 52 13 17 31 31 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 16 31 31 ┆$,R 1150 FOR I:=1 TO 10 DO 11┆
0x40c00…40c20 (32, 0, 13) 36 30 20 46 4f 52 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 21 31 31 37 30 20 47 45 54 20 54 ┆60 FOR J:=1 TO 4 DO !1170 GET T┆
0x40c20…40c40 58 54 46 49 4c 24 3a 53 50 5c 52 24 28 28 49 2d 31 29 2a 34 2b 4a 29 21 0b 31 31 38 30 20 4e 45 ┆XTFIL$:SPØR$((I-1)*4+J)! 1180 NE┆
0x40c40…40c60 58 54 20 4a 0b 16 31 31 39 30 20 47 45 54 20 54 58 54 46 49 4c 24 3a 46 24 28 49 29 16 0b 31 32 ┆XT J 1190 GET TXTFIL$:F$(I) 12┆
0x40c60…40c80 30 30 20 4e 45 58 54 20 49 0b 12 31 32 31 30 20 43 4c 4f 53 45 20 54 58 54 46 49 4c 24 12 13 31 ┆00 NEXT I 1210 CLOSE TXTFIL$ 1┆
0x40c80…40ca0 32 32 30 20 45 4e 44 50 52 4f 43 20 46 49 4c 4c 5b 53 13 4a 31 32 33 30 20 2f 2f 20 2d 2d 2d 2d ┆220 ENDPROC FILLÆS J1230 // ----┆
0x40ca0…40cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x40cc0…40ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4a 12 ┆------------------------------J ┆
0x40ce0…40d00 31 32 34 30 20 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 12 0c 31 32 35 30 20 52 45 50 45 41 54 20 ┆1240 PROC ELECTION 1250 REPEAT ┆
0x40d00…40d20 (32, 0, 14) 0c 10 31 32 36 30 20 43 55 52 53 4f 52 20 31 2c 32 32 10 0b 31 32 37 30 20 43 4c 45 41 52 20 0b ┆ 1260 CURSOR 1,22 1270 CLEAR ┆
0x40d20…40d40 10 31 32 38 30 20 43 55 52 53 4f 52 20 31 30 2c 37 10 42 31 32 39 30 20 50 52 49 4e 54 20 22 44 ┆ 1280 CURSOR 10,7 B1290 PRINT "D┆
0x40d40…40d60 75 20 66 7d 72 20 6e 75 20 6d 75 6c 69 67 68 65 64 20 66 6f 72 20 61 74 20 76 7b 6c 67 65 20 6d ┆u får nu mulighed for at vælge m┆
0x40d60…40d80 65 6c 6c 65 6d 20 66 7c 6c 67 65 6e 64 65 20 74 69 6e 67 2e 22 42 0b 31 33 30 30 20 50 52 49 4e ┆ellem følgende ting."B 1300 PRIN┆
0x40d80…40da0 54 20 0b 11 31 33 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 2e 31 33 32 30 20 50 52 49 4e ┆T 1310 CURSOR 10,12 .1320 PRIN┆
0x40da0…40dc0 54 20 22 31 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 62 65 67 79 6e 64 65 20 66 6f 72 ┆T "1. Ønsker du at begynde for┆
0x40dc0…40de0 66 72 61 3f 22 2e 11 31 33 33 30 20 43 55 52 53 4f 52 20 31 30 2c 31 34 11 41 31 33 34 30 20 50 ┆fra?". 1330 CURSOR 10,14 A1340 P┆
0x40de0…40e00 52 49 4e 54 20 22 32 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 ┆RINT "2. Ønsker du at se alle ┆
0x40e00…40e20 (32, 0, 15) 73 70 7c 72 67 73 6d 7d 6c 65 6e 65 20 70 7d 20 70 72 69 6e 74 65 72 65 6e 3f 22 41 11 31 33 35 ┆spørgsmålene på printeren?"A 135┆
0x40e20…40e40 30 20 43 55 52 53 4f 52 20 31 30 2c 31 36 11 3f 31 33 36 30 20 50 52 49 4e 54 20 22 33 2e 20 20 ┆0 CURSOR 10,16 ?1360 PRINT "3. ┆
0x40e40…40e60 20 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 73 65 20 61 6c 6c 65 20 73 70 7c 72 67 73 6d 7d 6c 65 ┆ Ønsker du at se alle spørgsmåle┆
0x40e60…40e80 6e 65 20 70 7d 20 73 6b 7b 72 6d 65 6e 3f 22 3f 11 31 33 37 30 20 43 55 52 53 4f 52 20 31 30 2c ┆ne på skærmen?"? 1370 CURSOR 10,┆
0x40e80…40ea0 31 38 11 29 31 33 38 30 20 50 52 49 4e 54 20 22 34 2e 20 20 20 5c 6e 73 6b 65 72 20 64 75 20 61 ┆18 )1380 PRINT "4. Ønsker du a┆
0x40ea0…40ec0 74 20 73 6c 75 74 74 65 20 6e 75 3f 22 29 11 31 33 39 30 20 43 55 52 53 4f 52 20 31 30 2c 32 32 ┆t slutte nu?") 1390 CURSOR 10,22┆
0x40ec0…40ee0 11 2d 31 34 30 30 20 49 4e 50 55 54 20 22 53 6b 72 69 76 20 64 65 74 20 7c 6e 73 6b 65 64 65 20 ┆ -1400 INPUT "Skriv det ønskede ┆
0x40ee0…40f00 6e 75 6d 6d 65 72 3a 20 20 20 22 3a 53 56 24 2d 19 31 34 31 30 20 43 41 53 45 20 4f 52 44 28 53 ┆nummer: ":SV$- 1410 CASE ORD(S┆
0x40f00…40f20 (32, 0, 16) 56 24 28 31 29 29 20 4f 46 20 19 0c 31 34 32 30 20 57 48 45 4e 20 34 39 0c 0e 31 34 33 30 20 45 ┆V$(1)) OF 1420 WHEN 49 1430 E┆
0x40f20…40f40 58 45 43 20 56 41 4c 47 0e 0c 31 34 34 30 20 57 48 45 4e 20 35 30 0c 11 31 34 35 30 20 45 58 45 ┆XEC VALG 1440 WHEN 50 1450 EXE┆
0x40f40…40f60 43 20 50 52 49 4e 54 45 52 11 0c 31 34 36 30 20 57 48 45 4e 20 35 31 0c 0f 31 34 37 30 20 45 58 ┆C PRINTER 1460 WHEN 51 1470 EX┆
0x40f60…40f80 45 43 20 53 4b 5b 52 4d 0f 0c 31 34 38 30 20 57 48 45 4e 20 35 32 0c 0e 31 34 39 30 20 45 58 45 ┆EC SKÆRM 1480 WHEN 52 1490 EXE┆
0x40f80…40fa0 43 20 53 4c 55 54 0e 0d 31 35 30 30 20 45 4e 44 43 41 53 45 20 0d 0c 31 35 31 30 20 55 4e 54 49 ┆C SLUT 1500 ENDCASE 1510 UNTI┆
0x40fa0…40fc0 4c 20 30 0c 15 31 35 32 30 20 45 4e 44 50 52 4f 43 20 45 4c 45 43 54 49 4f 4e 15 43 31 35 33 30 ┆L 0 1520 ENDPROC ELECTION C1530┆
0x40fc0…40fe0 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x40fe0…41000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 ┆-------------------------------C┆
0x41000…41020 (32, 1, 1) 0e 31 35 34 30 20 50 52 4f 43 20 53 4c 55 54 0e 10 31 35 35 30 20 43 55 52 53 4f 52 20 31 2c 32 ┆ 1540 PROC SLUT 1550 CURSOR 1,2┆
0x41020…41040 34 10 37 31 35 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 53 7d 20 67 7d 72 20 76 69 ┆4 71560 PRINT " Så går vi┆
0x41040…41060 20 76 69 64 65 72 65 20 74 69 6c 20 6e 7b 73 74 65 20 61 66 73 6e 69 74 2e 22 37 09 31 35 37 30 ┆ videre til næste afsnit."7 1570┆
0x41060…41080 20 45 4e 44 20 09 11 31 35 38 30 20 45 4e 44 50 52 4f 43 20 53 4c 55 54 11 42 31 35 39 30 20 2f ┆ END 1580 ENDPROC SLUT B1590 /┆
0x41080…410a0 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆/ ------------------------------┆
0x410a0…410c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 42 0f 31 36 ┆----------------------------B 16┆
0x410c0…410e0 30 30 20 50 52 4f 43 20 53 4b 5b 52 4d 0f 0e 31 36 31 30 20 53 50 52 49 4e 47 3a 3d 31 0e 0d 31 ┆00 PROC SKÆRM 1610 SPRING:=1 1┆
0x410e0…41100 36 32 30 20 45 58 45 43 20 4c 5b 53 0d 12 31 36 33 30 20 45 4e 44 50 52 4f 43 20 53 4b 5b 52 4d ┆620 EXEC LÆS 1630 ENDPROC SKÆRM┆
0x41100…41120 (32, 1, 2) 12 43 31 36 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ C1640 // ----------------------┆
0x41120…41140 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41140…41160 2d 2d 2d 2d 2d 43 0d 31 36 35 30 20 50 52 4f 43 20 4c 5b 53 0d 17 31 36 36 30 20 46 4f 52 20 41 ┆-----C 1650 PROC LÆS 1660 FOR A┆
0x41160…41180 3a 3d 31 20 54 4f 20 31 30 20 44 4f 20 17 1c 31 36 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 ┆:=1 TO 10 DO 1670 IF SPRING=1 ┆
0x41180…411a0 54 48 45 4e 20 43 4c 45 41 52 20 1c 09 31 36 38 30 20 4b 3a 3d 38 09 16 31 36 39 30 20 46 4f 52 ┆THEN CLEAR 1680 K:=8 1690 FOR┆
0x411a0…411c0 20 4a 3a 3d 31 20 54 4f 20 34 20 44 4f 20 16 23 31 37 30 30 20 49 46 20 53 50 52 49 4e 47 3d 31 ┆ J:=1 TO 4 DO #1700 IF SPRING=1┆
0x411c0…411e0 20 54 48 45 4e 20 43 55 52 53 4f 52 20 31 32 2c 4b 2b 4a 23 23 31 37 31 30 20 50 52 49 4e 54 20 ┆ THEN CURSOR 12,K+J##1710 PRINT ┆
0x411e0…41200 54 41 42 28 31 32 29 3b 53 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 11 31 37 32 30 20 49 ┆TAB(12);SPØR$((A-1)*4+J)# 1720 I┆
0x41200…41220 (32, 1, 3) ExtentHdr {name=»KLØR_TES«, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0041,0c (0x041c00)}, prevext={DA 0040,08 (0x040800)}, nextfile={DA 0041,0c (0x041c00)}, f99=41 0c 00 20 00 59 50 49 47 45 ┆A YPIGE┆}
0x41220…41240 46 20 4a 3d 31 20 54 48 45 4e 20 11 0b 31 37 33 30 20 4b 3a 3d 4b 2b 34 0b 0b 31 37 34 30 20 45 ┆F J=1 THEN 1730 K:=K+4 1740 E┆
0x41240…41260 4e 44 49 46 20 0b 0b 31 37 35 30 20 4e 45 58 54 20 4a 0b 0b 31 37 36 30 20 50 52 49 4e 54 20 0b ┆NDIF 1750 NEXT J 1760 PRINT ┆
0x41260…41280 16 31 37 37 30 20 49 46 20 53 50 52 49 4e 47 3d 31 20 54 48 45 4e 20 16 11 31 37 38 30 20 43 55 ┆ 1770 IF SPRING=1 THEN 1780 CU┆
0x41280…412a0 52 53 4f 52 20 37 30 2c 32 30 11 1b 31 37 39 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 ┆RSOR 70,20 1790 INPUT "Return!"┆
0x412a0…412c0 3a 52 45 54 55 52 24 1b 0b 31 38 30 30 20 45 4e 44 49 46 20 0b 0b 31 38 31 30 20 4e 45 58 54 20 ┆:RETUR$ 1800 ENDIF 1810 NEXT ┆
0x412c0…412e0 41 0b 10 31 38 32 30 20 45 4e 44 50 52 4f 43 20 4c 5b 53 10 46 31 38 33 30 20 2f 2f 20 2d 2d 2d ┆A 1820 ENDPROC LÆS F1830 // ---┆
0x412e0…41300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41300…41320 (32, 1, 4) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 46 14 31 38 34 ┆---------------------------F 184┆
0x41320…41340 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 14 16 31 38 35 30 20 53 45 4c 45 43 54 20 4f ┆0 PROC PRINTERRES 1850 SELECT O┆
0x41340…41360 55 54 50 55 54 20 22 50 22 16 1b 31 38 36 30 20 49 46 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 ┆UTPUT "P" 1860 IF STATUS("P")=1┆
0x41360…41380 20 54 48 45 4e 20 1b 10 31 38 37 30 20 43 55 52 53 4f 52 20 31 2c 32 33 10 38 31 38 38 30 20 50 ┆ THEN 1870 CURSOR 1,23 81880 P┆
0x41380…413a0 52 49 4e 54 20 22 3c 5a 3e 50 72 69 6e 74 65 72 65 6e 20 65 72 20 72 65 73 65 72 76 65 72 65 74 ┆RINT "<Z>Printeren er reserveret┆
0x413a0…413c0 20 61 66 20 61 6e 64 65 6e 20 62 72 75 67 65 72 2c 22 38 43 31 38 39 30 20 49 4e 50 55 54 20 22 ┆ af anden bruger,"8C1890 INPUT "┆
0x413c0…413e0 3c 53 3e 73 6b 61 6c 20 64 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 64 65 6e 20 62 6c 69 ┆<S>skal der ventes på at den bli┆
0x413e0…41400 76 65 72 20 6c 65 64 69 67 3f 20 20 28 6a 2f 6e 29 20 22 3a 53 56 24 43 20 31 39 30 30 20 49 46 ┆ver ledig? (j/n) ":SV$C 1900 IF┆
0x41400…41420 (32, 1, 5) 20 53 56 24 3d 22 4a 22 20 4f 52 20 53 56 24 3d 22 6a 22 20 54 48 45 4e 20 20 10 31 39 31 30 20 ┆ SV$="J" OR SV$="j" THEN 1910 ┆
0x41420…41440 43 55 52 53 4f 52 20 31 2c 32 33 10 10 31 39 32 30 20 50 52 49 4e 54 20 22 3c 5a 3e 22 10 3e 31 ┆CURSOR 1,23 1920 PRINT "<Z>" >1┆
0x41440…41460 39 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 44 65 72 20 76 65 6e 74 65 73 20 70 7d 20 61 74 20 70 ┆930 PRINT "<S>Der ventes på at p┆
0x41460…41480 72 69 6e 74 65 72 65 6e 20 62 6c 69 76 65 72 20 6c 65 64 69 67 2e 2e 2e 2e 2e 2e 2e 22 3e 2d 31 ┆rinteren bliver ledig.......">-1┆
0x41480…414a0 39 34 30 20 57 48 49 4c 45 20 53 54 41 54 55 53 28 22 50 22 29 3d 31 20 44 4f 20 53 45 4c 45 43 ┆940 WHILE STATUS("P")=1 DO SELEC┆
0x414a0…414c0 54 20 4f 55 54 50 55 54 20 22 50 22 2d 0b 31 39 35 30 20 45 4e 44 49 46 20 0b 0b 31 39 36 30 20 ┆T OUTPUT "P"- 1950 ENDIF 1960 ┆
0x414c0…414e0 45 4e 44 49 46 20 0b 17 31 39 37 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 52 45 53 17 ┆ENDIF 1970 ENDPROC PRINTERRES ┆
0x414e0…41500 11 31 39 38 30 20 50 52 4f 43 20 50 52 49 4e 54 45 52 11 14 31 39 39 30 20 45 58 45 43 20 50 52 ┆ 1980 PROC PRINTER 1990 EXEC PR┆
0x41500…41520 (32, 1, 6) 49 4e 54 45 52 52 45 53 14 0e 32 30 30 30 20 53 50 52 49 4e 47 3a 3d 30 0e 0d 32 30 31 30 20 45 ┆INTERRES 2000 SPRING:=0 2010 E┆
0x41520…41540 58 45 43 20 4c 5b 53 0d 16 32 30 32 30 20 53 45 4c 45 43 54 20 4f 55 54 50 55 54 20 22 54 22 16 ┆XEC LÆS 2020 SELECT OUTPUT "T" ┆
0x41540…41560 14 32 30 33 30 20 45 4e 44 50 52 4f 43 20 50 52 49 4e 54 45 52 14 43 32 30 34 30 20 2f 2f 20 2d ┆ 2030 ENDPROC PRINTER C2040 // -┆
0x41560…41580 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41580…415a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 43 10 32 30 35 30 ┆--------------------------C 2050┆
0x415a0…415c0 20 50 52 4f 43 20 46 52 5d 47 41 4e 10 17 32 30 36 30 20 46 4f 52 20 41 3a 3d 31 20 54 4f 20 31 ┆ PROC FRÅGAN 2060 FOR A:=1 TO 1┆
0x415c0…415e0 30 20 44 4f 20 17 0b 32 30 37 30 20 43 4c 45 41 52 20 0b 16 32 30 38 30 20 46 4f 52 20 4a 3a 3d ┆0 DO 2070 CLEAR 2080 FOR J:=┆
0x415e0…41600 31 20 54 4f 20 34 20 44 4f 20 16 23 32 30 39 30 20 50 52 49 4e 54 20 54 41 42 28 31 32 29 3b 53 ┆1 TO 4 DO #2090 PRINT TAB(12);S┆
0x41600…41620 (32, 1, 7) 50 5c 52 24 28 28 41 2d 31 29 2a 34 2b 4a 29 23 12 32 31 30 30 20 43 55 52 53 4f 52 20 31 32 2c ┆PØR$((A-1)*4+J)# 2100 CURSOR 12,┆
0x41620…41640 4a 2b 34 12 0b 32 31 31 30 20 4e 45 58 54 20 4a 0b 10 32 31 32 30 20 45 58 45 43 20 52 45 53 54 ┆J+4 2110 NEXT J 2120 EXEC REST┆
0x41640…41660 45 4e 10 0b 32 31 33 30 20 4e 45 58 54 20 41 0b 13 32 31 34 30 20 45 4e 44 50 52 4f 43 20 46 52 ┆EN 2130 NEXT A 2140 ENDPROC FR┆
0x41660…41680 5d 47 41 4e 13 4b 32 31 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ÅGAN K2150 // ------------------┆
0x41680…416a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x416a0…416c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 10 32 31 36 30 20 50 52 4f 43 20 52 45 53 ┆-----------------K 2160 PROC RES┆
0x416c0…416e0 54 45 4e 10 11 32 31 37 30 20 43 55 52 53 4f 52 20 31 32 2c 31 36 11 3a 32 31 38 30 20 50 52 49 ┆TEN 2170 CURSOR 12,16 :2180 PRI┆
0x416e0…41700 4e 54 20 22 45 72 20 64 65 74 20 73 70 7c 72 67 73 6d 7d 6c 20 41 2c 42 20 65 6c 6c 65 72 20 43 ┆NT "Er det spørgsmål A,B eller C┆
0x41700…41720 (32, 1, 8) 2c 20 64 65 72 20 65 72 20 72 69 67 74 69 67 74 3f 22 3a 11 32 31 39 30 20 43 55 52 53 4f 52 20 ┆, der er rigtigt?": 2190 CURSOR ┆
0x41720…41740 31 32 2c 31 38 11 30 32 32 30 30 20 49 4e 50 55 54 20 22 54 61 73 74 20 41 2c 20 42 20 65 6c 6c ┆12,18 02200 INPUT "Tast A, B ell┆
0x41740…41760 65 72 20 43 3a 20 20 20 20 20 20 20 20 20 22 3a 54 52 55 24 28 41 29 30 2b 32 32 31 30 20 49 46 ┆er C: ":TRU$(A)0+2210 IF┆
0x41760…41780 20 22 61 22 3c 3d 54 52 55 24 28 41 29 20 41 4e 44 20 22 7d 22 3d 3e 54 52 55 24 28 41 29 20 54 ┆ "a"<=TRU$(A) AND "å"=>TRU$(A) T┆
0x41780…417a0 48 45 4e 20 2b 23 32 32 32 30 20 54 52 55 24 28 41 29 3a 3d 43 48 52 24 28 4f 52 44 28 54 52 55 ┆HEN +#2220 TRU$(A):=CHR$(ORD(TRU┆
0x417a0…417c0 24 28 41 29 29 2d 33 32 29 23 0b 32 32 33 30 20 45 4e 44 49 46 20 0b 29 32 32 34 30 20 49 46 20 ┆$(A))-32)# 2230 ENDIF )2240 IF ┆
0x417c0…417e0 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 50 52 49 4e 54 20 43 48 52 24 28 34 32 ┆TRU$(A)=F$(A) THEN PRINT CHR$(42┆
0x417e0…41800 29 29 25 32 32 35 30 20 49 46 20 54 52 55 24 28 41 29 3d 46 24 28 41 29 20 54 48 45 4e 20 53 55 ┆))%2250 IF TRU$(A)=F$(A) THEN SU┆
0x41800…41820 (32, 1, 9) 4d 3a 3d 53 55 4d 2b 31 25 13 32 32 36 30 20 45 4e 44 50 52 4f 43 20 52 45 53 54 45 4e 13 4d 32 ┆M:=SUM+1% 2260 ENDPROC RESTEN M2┆
0x41820…41840 32 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆270 // -------------------------┆
0x41840…41860 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x41860…41880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 08 32 32 38 30 20 2f 2f 20 08 08 32 32 39 30 20 2f 2f 20 ┆------------M 2280 // 2290 // ┆
0x41880…418a0 08 08 32 33 30 30 20 2f 2f 20 08 12 32 33 31 30 20 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 12 0b ┆ 2300 // 2310 PROC FORSIDEN ┆
0x418a0…418c0 32 33 32 30 20 43 4c 45 41 52 20 0b 0f 32 33 33 30 20 43 55 52 53 4f 52 20 35 2c 32 0f 11 32 33 ┆2320 CLEAR 2330 CURSOR 5,2 23┆
0x418c0…418e0 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 33 35 30 20 46 4f 52 20 58 3a 3d 36 20 54 ┆40 PRINT "<S>*" 2350 FOR X:=6 T┆
0x418e0…41900 4f 20 37 34 20 44 4f 20 17 11 32 33 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 33 37 ┆O 74 DO 2360 PRINT "<S>-" 237┆
0x41900…41920 (32, 1, 10) 30 20 4e 45 58 54 20 58 0b 11 32 33 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 33 39 ┆0 NEXT X 2380 PRINT "<S>*" 239┆
0x41920…41940 30 20 43 55 52 53 4f 52 20 31 30 2c 35 10 11 32 34 30 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 ┆0 CURSOR 10,5 2400 PRINT "<S>*"┆
0x41940…41960 11 18 32 34 31 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 4f 20 18 11 32 34 32 30 ┆ 2410 FOR X:=11 TO 69 DO 2420┆
0x41960…41980 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 34 33 30 20 4e 45 58 54 20 58 0b 11 32 34 34 30 ┆ PRINT "<S>-" 2430 NEXT X 2440┆
0x41980…419a0 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 10 32 34 35 30 20 43 55 52 53 4f 52 20 35 2c 31 35 10 ┆ PRINT "<S>*" 2450 CURSOR 5,15 ┆
0x419a0…419c0 11 32 34 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 34 37 30 20 46 4f 52 20 58 3a 3d ┆ 2460 PRINT "<S>*" 2470 FOR X:=┆
0x419c0…419e0 36 20 54 4f 20 37 34 20 44 4f 20 17 11 32 34 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b ┆6 TO 74 DO 2480 PRINT "<S>-" ┆
0x419e0…41a00 32 34 39 30 20 4e 45 58 54 20 58 0b 11 32 35 30 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 11 ┆2490 NEXT X 2500 PRINT "<S>*" ┆
0x41a00…41a20 (32, 1, 11) 32 35 31 30 20 43 55 52 53 4f 52 20 31 30 2c 31 32 11 11 32 35 32 30 20 50 52 49 4e 54 20 22 3c ┆2510 CURSOR 10,12 2520 PRINT "<┆
0x41a20…41a40 53 3e 2a 22 11 18 32 35 33 30 20 46 4f 52 20 58 3a 3d 31 31 20 54 4f 20 36 39 20 44 4f 20 18 11 ┆S>*" 2530 FOR X:=11 TO 69 DO ┆
0x41a40…41a60 32 35 34 30 20 50 52 49 4e 54 20 22 3c 53 3e 2d 22 11 0b 32 35 35 30 20 4e 45 58 54 20 58 0b 11 ┆2540 PRINT "<S>-" 2550 NEXT X ┆
0x41a60…41a80 32 35 36 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 17 32 35 37 30 20 46 4f 52 20 59 3a 3d 36 ┆2560 PRINT "<S>*" 2570 FOR Y:=6┆
0x41a80…41aa0 20 54 4f 20 31 31 20 44 4f 20 17 10 32 35 38 30 20 43 55 52 53 4f 52 20 31 30 2c 59 10 0e 32 35 ┆ TO 11 DO 2580 CURSOR 10,Y 25┆
0x41aa0…41ac0 39 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 30 30 20 4e 45 58 54 20 59 0b 1f 32 36 31 30 20 ┆90 PRINT "!" 2600 NEXT Y 2610 ┆
0x41ac0…41ae0 46 4f 52 20 59 3a 3d 31 34 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 0f 32 36 32 30 ┆FOR Y:=14 TO 3 STEP -1 DO 2620┆
0x41ae0…41b00 20 43 55 52 53 4f 52 20 35 2c 59 0f 0e 32 36 33 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 36 34 ┆ CURSOR 5,Y 2630 PRINT "!" 264┆
0x41b00…41b20 (32, 1, 12) 30 20 4e 45 58 54 20 59 0b 17 32 36 35 30 20 46 4f 52 20 59 3a 3d 36 20 54 4f 20 31 31 20 44 4f ┆0 NEXT Y 2650 FOR Y:=6 TO 11 DO┆
0x41b20…41b40 20 17 10 32 36 36 30 20 43 55 52 53 4f 52 20 37 30 2c 59 10 0e 32 36 37 30 20 50 52 49 4e 54 20 ┆ 2660 CURSOR 70,Y 2670 PRINT ┆
0x41b40…41b60 22 21 22 0e 0b 32 36 38 30 20 4e 45 58 54 20 59 0b 1f 32 36 39 30 20 46 4f 52 20 59 3a 3d 31 34 ┆"!" 2680 NEXT Y 2690 FOR Y:=14┆
0x41b60…41b80 20 54 4f 20 33 20 53 54 45 50 20 2d 31 20 44 4f 20 1f 10 32 37 30 30 20 43 55 52 53 4f 52 20 37 ┆ TO 3 STEP -1 DO 2700 CURSOR 7┆
0x41b80…41ba0 35 2c 59 10 0e 32 37 31 30 20 50 52 49 4e 54 20 22 21 22 0e 0b 32 37 32 30 20 4e 45 58 54 20 59 ┆5,Y 2710 PRINT "!" 2720 NEXT Y┆
0x41ba0…41bc0 0b 10 32 37 33 30 20 43 55 52 53 4f 52 20 32 35 2c 39 10 15 32 37 34 30 20 50 52 49 4e 54 20 54 ┆ 2730 CURSOR 25,9 2740 PRINT T┆
0x41bc0…41be0 45 53 54 4e 41 56 4e 31 24 15 10 32 37 35 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 43 32 37 36 ┆ESTNAVN1$ 2750 CURSOR 5,20 C276┆
0x41be0…41c00 30 20 50 52 49 4e 54 20 22 50 7d 20 64 65 20 6e 7b 73 74 65 20 73 69 64 65 72 20 76 69 6c 20 64 ┆0 PRINT "På de næste sider vil d┆
0x41c00…41c20 (32, 1, 13) ExtentHdr {name=»KLØR_TES«, typ=»K«, seg=»D«, next=0x03, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0041,02 (0x041200)}, nextfile={DA 0042,06 (0x042600)}, f99=41 0c 00 20 00 59 50 49 47 45 ┆A YPIGE┆}
0x41c20…41c40 75 20 66 7d 20 31 30 20 73 70 7c 72 67 73 6d 7d 6c 20 6d 65 64 20 74 72 65 20 73 76 61 72 2e 22 ┆u få 10 spørgsmål med tre svar."┆
0x41c40…41c60 43 10 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 20 50 52 49 4e 54 20 22 ┆C 2770 CURSOR 5,21 J2780 PRINT "┆
0x41c60…41c80 4b 75 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 74 69 67 74 2c 73 7d 20 ┆Kun et af svarene er rigtigt,så ┆
0x41c80…41ca0 64 75 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 2c 20 42 20 22 3b 4a 15 ┆du skal enten indtaste A, B ";J ┆
0x41ca0…41cc0 32 37 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 38 30 30 20 43 55 52 53 ┆2790 PRINT "eller C." 2800 CURS┆
0x41cc0…41ce0 4f 52 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 ┆OR 70,23 2810 INPUT "Return!":S┆
0x41ce0…41d00 56 24 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 15 00 00 2e 22 43 10 ┆V$ 2820 ENDPROC FORSIDEN ."C ┆
0x41d00…41d20 (32, 1, 14) 32 37 37 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 4a 32 37 38 30 20 50 52 49 4e 54 20 22 4b 75 ┆2770 CURSOR 5,21 J2780 PRINT "Ku┆
0x41d20…41d40 6e 20 65 74 20 61 66 20 73 76 61 72 65 6e 65 20 65 72 20 72 69 67 74 69 67 74 2c 73 7d 20 64 75 ┆n et af svarene er rigtigt,så du┆
0x41d40…41d60 20 73 6b 61 6c 20 65 6e 74 65 6e 20 69 6e 64 74 61 73 74 65 20 41 2c 20 42 20 22 3b 4a 15 32 37 ┆ skal enten indtaste A, B ";J 27┆
0x41d60…41d80 39 30 20 50 52 49 4e 54 20 22 65 6c 6c 65 72 20 43 2e 22 15 11 32 38 30 30 20 43 55 52 53 4f 52 ┆90 PRINT "eller C." 2800 CURSOR┆
0x41d80…41da0 20 37 30 2c 32 33 11 18 32 38 31 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 21 22 3a 53 56 24 ┆ 70,23 2810 INPUT "Return!":SV$┆
0x41da0…41dc0 18 15 32 38 32 30 20 45 4e 44 50 52 4f 43 20 46 4f 52 53 49 44 45 4e 15 00 00 63 63 63 63 63 63 ┆ 2820 ENDPROC FORSIDEN cccccc┆
0x41dc0…41de0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x41e00…41f00 (32, 1, 15) 0x63[0x100]
[…0x7…]
0x42600…42620 (33, 0, 7) ExtentHdr {name=»PÅSKEDAG«, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0042,0b (0x042b00)}, f99=41 0c 00 fe 00 59 50 49 47 45 ┆A YPIGE┆}
0x42620…42640 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x42640…42660 2d 2d 20 70 7d 73 6b 65 64 61 67 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- påskedag --------------------┆
0x42660…42680 2d 2d 2d 2d 2d 44 25 30 30 32 30 20 2f 2f 20 2a 2a 2a 20 31 39 38 32 2d 31 30 2d 30 31 20 20 4c ┆-----D%0020 // *** 1982-10-01 L┆
0x42680…426a0 65 69 66 20 50 65 68 72 73 73 6f 6e 25 44 30 30 33 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆eif Pehrsson%D0030 // ----------┆
0x426a0…426c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x426c0…426e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 44 25 30 30 34 30 20 44 49 4d 20 4d 5d 4e ┆------------------D%0040 DIM MÅN┆
0x426e0…42700 45 44 24 20 4f 46 20 32 35 2c 55 44 53 4b 52 49 46 54 24 20 4f 46 20 38 30 25 0b 30 30 35 30 20 ┆ED$ OF 25,UDSKRIFT$ OF 80% 0050 ┆
0x42700…42720 (33, 0, 8) 43 4c 45 41 52 20 0b 0f 30 30 36 30 20 43 55 52 53 4f 52 20 31 2c 33 0f 49 30 30 37 30 20 50 52 ┆CLEAR 0060 CURSOR 1,3 I0070 PR┆
0x42720…42740 49 4e 54 20 22 20 20 20 20 20 44 20 41 20 54 20 4f 20 20 20 20 20 46 20 4f 20 52 20 20 20 20 50 ┆INT " D A T O F O R P┆
0x42740…42760 20 5d 20 53 20 4b 20 45 20 44 20 41 20 47 20 2e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ Å S K E D A G . ┆
0x42760…42780 20 22 49 49 30 30 38 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ "II0080 PRINT "----------------┆
0x42780…427a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x427a0…427c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 49 0c 30 30 39 30 20 52 45 50 45 41 54 20 0c 0f 30 31 30 ┆------------"I 0090 REPEAT 010┆
0x427c0…427e0 30 20 43 55 52 53 4f 52 20 31 2c 36 0f 3d 30 31 31 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 ┆0 CURSOR 1,6 =0110 PRINT "Indtas┆
0x427e0…42800 74 20 7d 72 65 74 20 66 6f 72 20 64 65 6e 20 7c 6e 73 6b 65 64 65 20 70 7d 73 6b 65 64 61 67 3a ┆t året for den ønskede påskedag:┆
0x42800…42820 (33, 0, 9) 20 22 3b 43 48 52 24 28 32 39 29 3d 10 30 31 32 30 20 43 55 52 53 4f 52 20 35 30 2c 36 10 0c 30 ┆ ";CHR$(29)= 0120 CURSOR 50,6 0┆
0x42820…42840 31 33 30 20 49 4e 50 55 54 20 59 0c 1e 30 31 34 30 20 55 4e 54 49 4c 20 59 3d 3e 31 39 30 30 20 ┆130 INPUT Y 0140 UNTIL Y=>1900 ┆
0x42840…42860 41 4e 44 20 59 3c 3d 32 31 30 30 1e 44 30 31 35 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆AND Y<=2100 D0150 // -----------┆
0x42860…42880 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42880…428a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 44 32 30 31 36 30 20 55 44 53 4b 52 49 46 54 ┆-----------------D20160 UDSKRIFT┆
0x428a0…428c0 24 3a 3d 22 50 7d 73 6b 65 64 61 67 20 69 20 7d 72 65 74 23 23 23 23 23 20 66 61 6c 64 65 72 23 ┆$:="Påskedag i året##### falder#┆
0x428c0…428e0 23 23 2e 20 22 32 0e 30 31 37 30 20 4e 3a 3d 59 2d 31 39 30 30 0e 10 30 31 38 30 20 41 3a 3d 4e ┆##. "2 0170 N:=Y-1900 0180 A:=N┆
0x428e0…42900 20 4d 4f 44 20 31 39 10 16 30 31 39 30 20 42 3a 3d 28 37 2a 41 2b 31 29 20 44 49 56 20 31 39 16 ┆ MOD 19 0190 B:=(7*A+1) DIV 19 ┆
0x42900…42920 (33, 0, 10) 19 30 32 30 30 20 4d 3a 3d 28 31 31 2a 41 2b 34 2d 42 29 20 4d 4f 44 20 32 39 19 0f 30 32 31 30 ┆ 0200 M:=(11*A+4-B) MOD 29 0210┆
0x42920…42940 20 51 3a 3d 4e 20 44 49 56 20 34 0f 18 30 32 32 30 20 57 3a 3d 28 4e 2b 51 2b 33 31 2d 4d 29 20 ┆ Q:=N DIV 4 0220 W:=(N+Q+31-M) ┆
0x42940…42960 4d 4f 44 20 37 18 10 30 32 33 30 20 44 41 47 3a 3d 32 35 2d 4d 2d 57 10 44 30 32 34 30 20 2f 2f ┆MOD 7 0230 DAG:=25-M-W D0240 //┆
0x42960…42980 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ -------------------------------┆
0x42980…429a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 44 14 30 ┆-----------------------------D 0┆
0x429a0…429c0 32 35 30 20 49 46 20 44 41 47 3c 3d 30 20 54 48 45 4e 20 14 14 30 32 36 30 20 4d 5d 4e 45 44 24 ┆250 IF DAG<=0 THEN 0260 MÅNED$┆
0x429c0…429e0 3a 3d 22 6d 61 72 74 73 22 14 10 30 32 37 30 20 44 41 47 3a 3d 44 41 47 2b 33 31 10 0a 30 32 38 ┆:="marts" 0270 DAG:=DAG+31 028┆
0x429e0…42a00 30 20 45 4c 53 45 20 0a 14 30 32 39 30 20 4d 5d 4e 45 44 24 3a 3d 22 61 70 72 69 6c 22 14 0b 30 ┆0 ELSE 0290 MÅNED$:="april" 0┆
0x42a00…42a20 (33, 0, 11) 33 30 30 20 45 4e 44 49 46 20 0b 08 30 33 31 30 20 2f 2f 20 08 10 30 33 32 30 20 43 55 52 53 4f ┆300 ENDIF 0310 // 0320 CURSO┆
0x42a20…42a40 52 20 31 2c 31 34 10 26 30 33 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 55 44 53 4b 52 49 46 ┆R 1,14 &0330 PRINT USING UDSKRIF┆
0x42a40…42a60 54 24 3a 59 2c 49 4e 54 28 44 41 47 29 2c 26 11 30 33 34 30 20 50 52 49 4e 54 20 4d 5d 4e 45 44 ┆T$:Y,INT(DAG),& 0340 PRINT MÅNED┆
0x42a60…42a80 24 11 43 30 33 35 30 20 50 52 49 4e 54 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆$ C0350 PRINT "-----------------┆
0x42a80…42aa0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42aa0…42ac0 2d 2d 2d 2d 2d 22 43 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆-----"C ccccccccccccccccccccccc┆
0x42ac0…42ae0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x42b00…42b20 (33, 0, 12) ExtentHdr {name=»RUMFANG «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0043,05 (0x043500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0043,05 (0x043500)}, f99=41 0e 00 fe 00 55 4d 46 41 4e ┆A UMFAN┆}
0x42b20…42b40 08 30 31 30 30 20 2f 2f 20 08 49 30 31 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ 0100 // I0110 // -------------┆
0x42b40…42b60 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 73 76 7c 6d 6d 65 70 7c 6c 20 2d 2d 2d 2d 2d 2d 2d 2d ┆------------- svømmepøl --------┆
0x42b60…42b80 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 49 08 30 31 32 30 20 2f 2f 20 08 08 ┆--------------------I 0120 // ┆
0x42b80…42ba0 30 31 33 30 20 2f 2f 20 08 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 3b 30 31 35 30 20 44 49 4d 20 ┆0130 // 0140 CLEAR ;0150 DIM ┆
0x42ba0…42bc0 42 55 46 24 20 4f 46 20 31 32 38 2c 4c 49 4e 24 28 32 35 29 20 4f 46 20 38 31 2c 53 24 20 4f 46 ┆BUF$ OF 128,LIN$(25) OF 81,S$ OF┆
0x42bc0…42be0 20 31 2c 4c 45 4e 47 24 28 32 34 29 20 4f 46 20 38 30 3b 4d 30 31 36 30 20 2f 2f 20 2d 2d 2d 2d ┆ 1,LENG$(24) OF 80;M0160 // ----┆
0x42be0…42c00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x42c20…42c40 2d 4d 0c 30 31 37 30 20 52 45 50 45 41 54 20 0c 0b 30 31 38 30 20 43 4c 45 41 52 20 0b 0f 30 31 ┆-M 0170 REPEAT 0180 CLEAR 01┆
0x42c40…42c60 39 30 20 45 58 45 43 20 48 4f 56 45 44 0f 0f 30 32 31 30 20 45 58 45 43 20 53 50 5c 52 47 0f 0f ┆90 EXEC HOVED 0210 EXEC SPØRG ┆
0x42c60…42c80 30 32 32 30 20 45 58 45 43 20 52 41 4d 4d 45 0f 1b 30 32 33 30 20 55 4e 54 49 4c 20 53 24 3d 22 ┆0220 EXEC RAMME 0230 UNTIL S$="┆
0x42c80…42ca0 4e 22 20 4f 52 20 53 24 3d 22 6e 22 1b 4d 30 32 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆N" OR S$="n" M0240 // ----------┆
0x42ca0…42cc0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42cc0…42ce0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 0f 30 32 35 ┆---------------------------M 025┆
0x42ce0…42d00 30 20 50 52 4f 43 20 48 4f 56 45 44 0f 0f 30 32 36 30 20 43 55 52 53 4f 52 20 34 2c 34 0f 4d 30 ┆0 PROC HOVED 0260 CURSOR 4,4 M0┆
0x42d00…42d20 (33, 0, 14) 32 37 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆270 PRINT "*********************┆
0x42d20…42d40 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x42d40…42d60 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 4d 0f 30 32 38 30 20 43 55 52 53 4f 52 20 34 2c 35 0f 4d 30 ┆***********"M 0280 CURSOR 4,5 M0┆
0x42d60…42d80 32 39 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 52 20 55 ┆290 PRINT "***** R U┆
0x42d80…42da0 20 4d 20 46 20 41 20 4e 20 47 20 53 20 4f 20 50 20 47 20 41 20 56 20 45 20 20 20 20 20 20 20 20 ┆ M F A N G S O P G A V E ┆
0x42da0…42dc0 20 20 20 20 20 20 2a 2a 2a 2a 2a 22 4d 0f 30 33 30 30 20 43 55 52 53 4f 52 20 34 2c 36 0f 4d 30 ┆ *****"M 0300 CURSOR 4,6 M0┆
0x42dc0…42de0 33 31 30 20 50 52 49 4e 54 20 22 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆310 PRINT "*********************┆
0x42de0…42e00 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x42e00…42e20 (33, 0, 15) 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 4d 0b 30 33 32 30 20 50 52 49 4e 54 20 0b 0b 30 33 33 30 20 ┆***********"M 0320 PRINT 0330 ┆
0x42e20…42e40 50 52 49 4e 54 20 0b 10 30 33 34 30 20 43 55 52 53 4f 52 20 34 2c 31 35 10 4a 30 33 35 30 20 50 ┆PRINT 0340 CURSOR 4,15 J0350 P┆
0x42e40…42e60 52 49 4e 54 20 22 44 75 20 73 6b 61 6c 20 6e 75 20 66 69 6e 64 65 20 72 75 6d 66 61 6e 67 65 74 ┆RINT "Du skal nu finde rumfanget┆
0x42e60…42e80 20 61 66 20 66 6f 72 73 6b 65 6c 6c 69 67 65 20 70 72 69 73 6d 65 72 20 76 65 64 20 61 74 20 69 ┆ af forskellige prismer ved at i┆
0x42e80…42ea0 6e 64 22 3b 4a 12 30 33 35 31 20 50 52 49 4e 54 20 22 74 61 73 74 65 22 12 10 30 33 36 30 20 43 ┆nd";J 0351 PRINT "taste" 0360 C┆
0x42ea0…42ec0 55 52 53 4f 52 20 34 2c 31 36 10 25 30 33 37 30 20 50 52 49 4e 54 20 22 6c 7b 6e 67 64 65 2c 20 ┆URSOR 4,16 %0370 PRINT "længde, ┆
0x42ec0…42ee0 62 72 65 64 64 65 20 26 20 68 7c 6a 64 65 2e 2e 22 25 10 30 33 38 30 20 43 55 52 53 4f 52 20 34 ┆bredde & højde.."% 0380 CURSOR 4┆
0x42ee0…42f00 2c 31 37 10 49 30 33 39 30 20 50 52 49 4e 54 20 22 49 20 62 6f 67 65 6e 20 6b 61 6e 20 64 75 20 ┆,17 I0390 PRINT "I bogen kan du ┆
0x42f00…42f20 (33, 0, 16) 66 69 6e 64 65 20 65 74 20 62 69 6c 6c 65 64 65 20 61 66 20 65 6e 20 73 76 7c 6d 6d 65 70 7c 6c ┆finde et billede af en svømmepøl┆
0x42f20…42f40 2c 20 73 6f 6d 20 64 75 20 73 6b 61 6c 22 49 10 30 34 30 30 20 43 55 52 53 4f 52 20 34 2c 31 38 ┆, som du skal"I 0400 CURSOR 4,18┆
0x42f40…42f60 10 39 30 34 31 30 20 50 52 49 4e 54 20 22 75 64 72 65 67 6e 65 20 72 75 6d 66 61 6e 67 65 74 20 ┆ 90410 PRINT "udregne rumfanget ┆
0x42f60…42f80 61 66 20 76 65 64 20 68 6a 7b 6c 70 20 61 66 20 64 61 74 61 6d 61 74 65 6e 2e 22 39 0e 30 34 32 ┆af ved hjælp af datamaten."9 042┆
0x42f80…42fa0 30 20 45 58 45 43 20 56 45 4e 54 0e 12 30 34 33 30 20 45 4e 44 50 52 4f 43 20 48 4f 56 45 44 12 ┆0 EXEC VENT 0430 ENDPROC HOVED ┆
0x42fa0…42fc0 4d 30 34 34 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆M0440 // -----------------------┆
0x42fc0…42fe0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x42fe0…43000 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4d 10 30 34 35 30 20 50 52 4f 43 20 4d 41 4c 45 52 49 ┆--------------M 0450 PROC MALERI┆
0x43000…43020 (33, 1, 1) 10 0b 30 34 36 30 20 43 4c 45 41 52 20 0b 17 30 34 37 30 20 46 4f 52 20 59 3a 3d 31 20 54 4f 20 ┆ 0460 CLEAR 0470 FOR Y:=1 TO ┆
0x43020…43040 31 35 20 44 4f 20 17 11 30 34 38 30 20 43 55 52 53 4f 52 20 31 2c 59 2b 32 11 12 30 34 39 30 20 ┆15 DO 0480 CURSOR 1,Y+2 0490 ┆
0x43040…43060 50 52 49 4e 54 20 4c 49 4e 24 28 59 29 12 0b 30 35 30 30 20 4e 45 58 54 20 59 0b 10 30 35 35 30 ┆PRINT LIN$(Y) 0500 NEXT Y 0550┆
0x43060…43080 20 43 55 52 53 4f 52 20 31 2c 32 33 10 13 30 35 36 30 20 45 4e 44 50 52 4f 43 20 4d 41 4c 45 52 ┆ CURSOR 1,23 0560 ENDPROC MALER┆
0x43080…430a0 49 13 48 30 35 37 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆I H0570 // ---------------------┆
0x430a0…430c0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x430c0…430e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 48 0f 30 35 38 30 20 50 52 4f 43 20 53 50 5c 52 47 0f 0b 30 35 ┆-----------H 0580 PROC SPØRG 05┆
0x430e0…43100 39 30 20 43 4c 45 41 52 20 0b 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 2f 30 36 31 30 20 49 4e 50 ┆90 CLEAR 0600 PRINT /0610 INP┆
0x43100…43120 (33, 1, 2) 55 54 20 22 49 6e 64 74 61 73 74 20 6b 61 73 73 65 6e 73 20 6c 7b 6e 67 64 65 3a 20 20 20 20 22 ┆UT "Indtast kassens længde: "┆
0x43120…43140 3a 4c 5b 4e 47 44 45 2f 0b 30 36 32 30 20 50 52 49 4e 54 20 0b 2f 30 36 33 30 20 49 4e 50 55 54 ┆:LÆNGDE/ 0620 PRINT /0630 INPUT┆
0x43140…43160 20 22 49 6e 64 74 61 73 74 20 6b 61 73 73 65 6e 73 20 62 72 65 64 64 65 3a 20 20 20 20 22 3a 42 ┆ "Indtast kassens bredde: ":B┆
0x43160…43180 52 45 44 44 45 2f 0b 30 36 34 30 20 50 52 49 4e 54 20 0b 2e 30 36 35 30 20 49 4e 50 55 54 20 22 ┆REDDE/ 0640 PRINT .0650 INPUT "┆
0x43180…431a0 49 6e 64 74 61 73 74 20 6b 61 73 73 65 6e 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 22 3a 48 5c 4a ┆Indtast kassens højde: ":HØJ┆
0x431a0…431c0 44 45 2e 0b 30 36 36 30 20 50 52 49 4e 54 20 0b 21 30 36 37 30 20 52 55 4d 46 41 4e 47 3a 3d 4c ┆DE. 0660 PRINT !0670 RUMFANG:=L┆
0x431c0…431e0 5b 4e 47 44 45 2a 42 52 45 44 44 45 2a 48 5c 4a 44 45 21 12 30 36 38 30 20 45 4e 44 50 52 4f 43 ┆ÆNGDE*BREDDE*HØJDE! 0680 ENDPROC┆
0x431e0…43200 20 53 50 5c 52 47 12 4b 30 36 39 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ SPØRG K0690 // ----------------┆
0x43200…43220 (33, 1, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43220…43240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 0f 30 37 30 30 20 50 52 4f 43 20 52 ┆-------------------K 0700 PROC R┆
0x43240…43260 41 4d 4d 45 0f 1e 30 37 31 30 20 4f 50 45 4e 20 22 53 59 53 54 49 4d 45 3a 52 41 4d 4d 45 54 58 ┆AMME 0710 OPEN "SYSTIME:RAMMETX┆
0x43260…43280 54 22 2c 52 1e 17 30 37 32 30 20 46 4f 52 20 59 3a 3d 31 20 54 4f 20 31 35 20 44 4f 20 17 23 30 ┆T",R 0720 FOR Y:=1 TO 15 DO #0┆
0x43280…432a0 37 33 30 20 47 45 54 20 22 53 59 53 54 49 4d 45 3a 52 41 4d 4d 45 54 58 54 22 3a 4c 49 4e 24 28 ┆730 GET "SYSTIME:RAMMETXT":LIN$(┆
0x432a0…432c0 59 29 23 0b 30 37 34 30 20 4e 45 58 54 20 59 0b 0b 30 37 35 30 20 43 4c 4f 53 45 20 0b 10 30 37 ┆Y)# 0740 NEXT Y 0750 CLOSE 07┆
0x432c0…432e0 36 30 20 45 58 45 43 20 4d 41 4c 45 52 49 10 11 30 37 37 30 20 43 55 52 53 4f 52 20 31 32 2c 31 ┆60 EXEC MALERI 0770 CURSOR 12,1┆
0x432e0…43300 35 11 24 30 37 38 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 23 23 23 2e 23 22 ┆5 $0780 PRINT USING "########.#"┆
0x43300…43320 (33, 1, 4) 3a 4c 5b 4e 47 44 45 24 11 30 37 39 30 20 43 55 52 53 4f 52 20 32 36 2c 31 35 11 24 30 38 30 30 ┆:LÆNGDE$ 0790 CURSOR 26,15 $0800┆
0x43320…43340 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 23 23 23 23 23 23 23 2e 23 22 3a 42 52 45 44 44 45 ┆ PRINT USING "########.#":BREDDE┆
0x43340…43360 24 11 30 38 31 30 20 43 55 52 53 4f 52 20 33 39 2c 31 35 11 23 30 38 32 30 20 50 52 49 4e 54 20 ┆$ 0810 CURSOR 39,15 #0820 PRINT ┆
0x43360…43380 55 53 49 4e 47 20 22 23 23 23 23 23 23 23 23 2e 23 22 3a 48 5c 4a 44 45 23 11 30 38 33 30 20 43 ┆USING "########.#":HØJDE# 0830 C┆
0x43380…433a0 55 52 53 4f 52 20 35 32 2c 31 35 11 25 30 38 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 23 ┆URSOR 52,15 %0840 PRINT USING "#┆
0x433a0…433c0 23 23 23 23 23 23 23 2e 23 22 3a 52 55 4d 46 41 4e 47 25 10 30 38 35 30 20 43 55 52 53 4f 52 20 ┆#######.#":RUMFANG% 0850 CURSOR ┆
0x433c0…433e0 38 2c 32 34 10 3a 30 38 36 30 20 49 4e 50 55 54 20 22 5c 6e 73 6b 65 72 20 64 75 20 61 74 20 62 ┆8,24 :0860 INPUT "Ønsker du at b┆
0x433e0…43400 65 72 65 67 6e 65 20 66 6c 65 72 65 20 72 75 6d 66 61 6e 67 3f 20 20 28 6a 2f 6e 29 22 3a 53 24 ┆eregne flere rumfang? (j/n)":S$┆
0x43400…43420 (33, 1, 5) 3a 12 30 38 37 30 20 45 4e 44 50 52 4f 43 20 52 41 4d 4d 45 12 4d 30 38 38 30 20 2f 2f 20 2d 2d ┆: 0870 ENDPROC RAMME M0880 // --┆
0x43420…43440 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x43460…43480 2d 2d 2d 4d 0b 30 38 39 30 20 50 52 49 4e 54 20 0b 0b 30 39 30 30 20 50 52 49 4e 54 20 0b 2f 30 ┆---M 0890 PRINT 0900 PRINT /0┆
0x43480…434a0 39 31 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 53 7d 20 65 72 20 76 69 20 66 7b 72 64 69 ┆910 PRINT " Så er vi færdi┆
0x434a0…434c0 67 65 20 66 6f 72 20 69 20 64 61 67 2e 22 2f 4b 30 39 32 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d ┆ge for i dag."/K0920 // --------┆
0x434c0…434e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x434e0…43500 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 49 30 39 33 ┆---------------------------KI093┆
0x43500…43520 (33, 1, 6) ExtentHdr {name=»RUMFANG «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0042,0b (0x042b00)}, nextfile={DA 0043,0f (0x043f00)}, f99=41 0e 00 20 00 55 4d 46 41 4e ┆A UMFAN┆}
0x43520…43540 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆0 // ---------------------------┆
0x43540…43560 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x43560…43580 2d 2d 2d 2d 2d 2d 49 0e 30 39 34 30 20 50 52 4f 43 20 56 45 4e 54 0e 11 30 39 36 30 20 43 55 52 ┆------I 0940 PROC VENT 0960 CUR┆
0x43580…435a0 53 4f 52 20 36 38 2c 32 34 11 17 30 39 37 30 20 49 4e 50 55 54 20 22 52 65 74 75 72 6e 3a 22 3a ┆SOR 68,24 0970 INPUT "Return:":┆
0x435a0…435c0 53 24 17 11 31 30 30 30 20 45 4e 44 50 52 4f 43 20 56 45 4e 54 11 4b 31 30 31 30 20 2f 2f 20 2d ┆S$ 1000 ENDPROC VENT K1010 // -┆
0x435c0…435e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
[…0x1…]
0x43600…43620 (33, 1, 7) 2d 2d 4b 00 00 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--K ---------------------------┆
0x43620…43640 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 4b 13 31 30 32 ┆---------------------------K 102┆
0x43640…43660 30 20 50 52 4f 43 20 53 56 5c 4d 4d 45 50 5c 4c 13 1d 31 30 33 30 20 4f 50 45 4e 20 22 53 59 53 ┆0 PROC SVØMMEPØL 1030 OPEN "SYS┆
0x43660…43680 54 49 4d 45 3a 53 56 5c 4d 50 5c 4c 22 2c 52 1d 0b 31 30 34 30 20 43 4c 45 41 52 20 0b 17 31 30 ┆TIME:SVØMPØL",R 1040 CLEAR 10┆
0x43680…436a0 35 30 20 46 4f 52 20 41 3a 3d 32 20 54 4f 20 32 34 20 44 4f 20 17 23 31 30 36 30 20 47 45 54 20 ┆50 FOR A:=2 TO 24 DO #1060 GET ┆
0x436a0…436c0 22 53 59 53 54 49 4d 45 3a 53 56 5c 4d 50 5c 4c 22 3a 4c 45 4e 47 24 28 41 29 23 13 31 30 37 30 ┆"SYSTIME:SVØMPØL":LENG$(A)# 1070┆
0x436c0…436e0 20 50 52 49 4e 54 20 4c 45 4e 47 24 28 41 29 13 0b 31 30 38 30 20 4e 45 58 54 20 41 0b 0b 31 30 ┆ PRINT LENG$(A) 1080 NEXT A 10┆
0x436e0…43700 39 30 20 43 4c 4f 53 45 20 0b 0e 31 31 30 30 20 45 58 45 43 20 56 45 4e 54 0e 16 31 31 31 30 20 ┆90 CLOSE 1100 EXEC VENT 1110 ┆
0x43700…43720 (33, 1, 8) 45 4e 44 50 52 4f 43 20 53 56 5c 4d 4d 45 50 5c 4c 16 00 00 63 63 63 63 63 63 63 63 63 63 63 63 ┆ENDPROC SVØMMEPØL cccccccccccc┆
0x43720…43740 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x6…]
0x43800…43900 (33, 1, 9) 0x63[0x100]
[…0x6…]
0x43f00…43f20 (33, 1, 16) ExtentHdr {name=»KEGLE «, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0044,04 (0x044400)}, f99=41 0e 00 fe 00 55 4d 46 41 4e ┆A UMFAN┆}
0x43f20…43f40 40 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆@0010 // -----------------------┆
0x43f40…43f60 2d 20 4b 65 67 6c 65 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆- Kegle ------------------------┆
0x43f60…43f80 2d 40 3d 30 30 32 30 20 2f 2f 20 50 72 6f 67 72 61 6d 6d 65 74 20 75 64 72 65 67 6e 65 72 20 72 ┆-@=0020 // Programmet udregner r┆
0x43f80…43fa0 75 6d 66 61 6e 67 20 6f 67 20 6f 76 65 72 66 6c 61 64 65 20 61 66 20 65 6e 20 6b 65 67 6c 65 2e ┆umfang og overflade af en kegle.┆
0x43fa0…43fc0 3d 11 30 30 33 30 20 45 58 45 43 20 49 4e 44 44 41 54 41 11 13 30 30 34 30 20 45 58 45 43 20 42 ┆= 0030 EXEC INDDATA 0040 EXEC B┆
0x43fc0…43fe0 45 52 45 47 4e 49 4e 47 13 10 30 30 35 30 20 45 58 45 43 20 55 44 44 41 54 41 10 40 30 30 36 30 ┆EREGNING 0050 EXEC UDDATA @0060┆
0x43fe0…44000 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ // ----------------------------┆
0x44000…44020 (34, 0, 1) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 11 30 30 ┆----------------------------@ 00┆
0x44020…44040 37 30 20 50 52 4f 43 20 49 4e 44 44 41 54 41 11 0b 30 30 38 30 20 43 4c 45 41 52 20 0b 0b 30 30 ┆70 PROC INDDATA 0080 CLEAR 00┆
0x44040…44060 38 35 20 50 52 49 4e 54 20 0b 39 30 30 39 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b ┆85 PRINT 90090 INPUT "Indtast k┆
0x44060…44080 65 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 52 41 ┆eglens radius: ":RA┆
0x44080…440a0 44 49 55 53 39 38 30 31 30 30 20 49 4e 50 55 54 20 22 49 6e 64 74 61 73 74 20 6b 65 67 6c 65 6e ┆DIUS980100 INPUT "Indtast keglen┆
0x440a0…440c0 73 20 68 7c 6a 64 65 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3a 48 5c 4a 44 45 38 14 ┆s højde: ":HØJDE8 ┆
0x440c0…440e0 30 31 31 30 20 45 4e 44 50 52 4f 43 20 49 4e 44 44 41 54 41 14 40 30 31 32 30 20 2f 2f 20 2d 2d ┆0110 ENDPROC INDDATA @0120 // --┆
0x440e0…44100 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x44100…44120 (34, 0, 2) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 13 30 31 33 30 20 50 52 4f ┆----------------------@ 0130 PRO┆
0x44120…44140 43 20 42 45 52 45 47 4e 49 4e 47 13 29 30 31 34 30 20 52 55 4d 46 41 4e 47 3a 3d 31 2f 33 2a 33 ┆C BEREGNING )0140 RUMFANG:=1/3*3┆
0x44140…44160 2e 31 34 31 35 39 2a 52 41 44 49 55 53 2a 2a 32 2a 48 5c 4a 44 45 29 27 30 31 35 30 20 53 49 44 ┆.14159*RADIUS**2*HØJDE)'0150 SID┆
0x44160…44180 45 4e 3a 3d 28 52 41 44 49 55 53 2a 2a 32 2b 48 5c 4a 44 45 2a 2a 32 29 2a 2a 28 31 2f 32 29 27 ┆EN:=(RADIUS**2+HØJDE**2)**(1/2)'┆
0x44180…441a0 2a 30 31 36 30 20 4b 52 55 4d 4d 45 4f 56 45 52 46 4c 41 44 45 3a 3d 33 2e 31 34 31 35 39 2a 48 ┆*0160 KRUMMEOVERFLADE:=3.14159*H┆
0x441a0…441c0 5c 4a 44 45 2a 52 41 44 49 55 53 2a 31 30 31 37 30 20 54 4f 54 41 4c 4f 56 45 52 46 4c 41 44 45 ┆ØJDE*RADIUS*10170 TOTALOVERFLADE┆
0x441c0…441e0 3a 3d 33 2e 31 34 31 35 39 2a 53 49 44 45 4e 2a 28 53 49 44 45 4e 2b 52 41 44 49 55 53 29 31 16 ┆:=3.14159*SIDEN*(SIDEN+RADIUS)1 ┆
0x441e0…44200 30 31 38 30 20 45 4e 44 50 52 4f 43 20 42 45 52 45 47 4e 49 4e 47 16 40 30 31 39 30 20 2f 2f 20 ┆0180 ENDPROC BEREGNING @0190 // ┆
0x44200…44220 (34, 0, 3) 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆
0x44220…44240 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 40 10 30 32 30 30 20 50 ┆------------------------@ 0200 P┆
0x44240…44260 52 4f 43 20 55 44 44 41 54 41 10 0b 30 32 31 30 20 50 52 49 4e 54 20 0b 43 30 32 32 30 20 50 52 ┆ROC UDDATA 0210 PRINT C0220 PR┆
0x44260…44280 49 4e 54 20 55 53 49 4e 47 20 22 4b 65 67 6c 65 6e 73 20 72 61 64 69 75 73 3a 20 20 20 20 20 20 ┆INT USING "Keglens radius: ┆
0x44280…442a0 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 22 3a 52 41 44 49 55 53 43 42 30 32 ┆ #######.## ":RADIUSCB02┆
0x442a0…442c0 33 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 65 67 6c 65 6e 73 20 68 7c 6a 64 65 3a 20 20 ┆30 PRINT USING "Keglens højde: ┆
0x442c0…442e0 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 22 3a 48 5c 4a 44 45 ┆ #######.## ":HØJDE┆
0x442e0…44300 42 44 30 32 34 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 65 67 6c 65 6e 73 20 72 75 6d 66 ┆BD0240 PRINT USING "Keglens rumf┆
0x44300…44320 (34, 0, 4) 61 6e 67 3a 20 20 20 20 20 20 20 20 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 22 3a 52 ┆ang: #######.## ":R┆
0x44320…44340 55 4d 46 41 4e 47 44 4c 30 32 35 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 22 4b 65 67 6c 65 6e ┆UMFANGDL0250 PRINT USING "Keglen┆
0x44340…44360 73 20 6b 72 75 6d 6d 65 20 6f 76 65 72 66 6c 61 64 65 3a 20 20 20 23 23 23 23 23 23 23 2e 23 23 ┆s krumme overflade: #######.##┆
0x44360…44380 20 20 20 22 3a 4b 52 55 4d 4d 45 4f 56 45 52 46 4c 41 44 45 4c 4b 30 32 36 30 20 50 52 49 4e 54 ┆ ":KRUMMEOVERFLADELK0260 PRINT┆
0x44380…443a0 20 55 53 49 4e 47 20 22 4b 65 67 6c 65 6e 73 20 73 61 6d 6c 65 64 65 20 6f 76 65 72 66 6c 61 64 ┆ USING "Keglens samlede overflad┆
0x443a0…443c0 65 3a 20 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 22 3a 54 4f 54 41 4c 4f 56 45 52 46 4c 41 44 ┆e: #######.## ":TOTALOVERFLAD┆
0x443c0…443e0 45 4b 13 30 32 37 30 20 45 4e 44 50 52 4f 43 20 55 44 44 41 54 41 13 00 00 63 63 63 63 63 63 63 ┆EK 0270 ENDPROC UDDATA ccccccc┆
0x443e0…44400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x44400…44420 (34, 0, 5) ExtentHdr {name=»GAFFEL_F«, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0044,08 (0x044800)}, f99=41 0e 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x44420…44440 44 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆D0010 // -----------------------┆
0x44440…44460 2d 2d 20 67 61 66 66 65 6c 5f 66 75 6e 63 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆-- gaffel_func -----------------┆
0x44460…44480 2d 2d 2d 2d 2d 44 08 30 30 32 30 20 2f 2f 20 08 0e 30 30 33 30 20 50 52 4f 43 20 46 28 58 29 0e ┆-----D 0020 // 0030 PROC F(X) ┆
0x44480…444a0 12 30 30 34 30 20 49 46 20 58 3d 3e 31 20 54 48 45 4e 20 12 1f 30 30 35 30 20 46 3a 3d 28 28 28 ┆ 0040 IF X=>1 THEN 0050 F:=(((┆
0x444a0…444c0 33 2a 58 2d 32 29 2a 58 2d 34 29 2a 58 2b 31 29 2a 58 2b 35 1f 0a 30 30 36 30 20 45 4c 53 45 20 ┆3*X-2)*X-4)*X+1)*X+5 0060 ELSE ┆
0x444c0…444e0 0a 0d 30 30 37 30 20 46 3a 3d 32 2a 58 2b 31 0d 0b 30 30 38 30 20 45 4e 44 49 46 20 0b 0e 30 30 ┆ 0070 F:=2*X+1 0080 ENDIF 00┆
0x444e0…44500 39 30 20 45 4e 44 50 52 4f 43 20 46 0e 08 30 31 30 30 20 2f 2f 20 08 0b 30 31 31 30 20 43 4c 45 ┆90 ENDPROC F 0100 // 0110 CLE┆
0x44500…44520 (34, 0, 6) 41 52 20 0b 0b 30 31 31 35 20 50 52 49 4e 54 20 0b 11 30 31 32 30 20 50 52 49 4e 54 20 46 28 2d ┆AR 0115 PRINT 0120 PRINT F(-┆
0x44520…44540 32 29 3b 11 11 30 31 32 31 20 50 52 49 4e 54 20 46 28 2d 31 29 3b 11 10 30 31 32 32 20 50 52 49 ┆2); 0121 PRINT F(-1); 0122 PRI┆
0x44540…44560 4e 54 20 46 28 30 29 3b 10 10 30 31 32 33 20 50 52 49 4e 54 20 46 28 31 29 3b 10 10 30 31 32 34 ┆NT F(0); 0123 PRINT F(1); 0124┆
0x44560…44580 20 50 52 49 4e 54 20 46 28 32 29 3b 10 0f 30 31 32 35 20 50 52 49 4e 54 20 46 28 33 29 0f 00 00 ┆ PRINT F(2); 0125 PRINT F(3) ┆
0x44580…445a0 37 31 31 20 2f 2f 20 4c 53 45 20 0c 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆711 // LSE cccccccccccccccccc┆
0x445a0…445c0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x2…]
0x44600…44700 (34, 0, 7) 0x63[0x100]
[…0x1…]
0x44800…44820 (34, 0, 9) ExtentHdr {name=»OMBYT «, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0045,02 (0x045200)}, f99=41 0e 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x44820…44840 43 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆C0010 // -----------------------┆
0x44840…44860 20 6f 6d 62 79 74 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ ombyt -------------------------┆
0x44860…44880 2d 2d 2d 2d 43 08 30 30 32 30 20 2f 2f 20 08 1f 30 30 33 30 20 50 52 4f 43 20 4f 4d 42 59 54 28 ┆----C 0020 // 0030 PROC OMBYT(┆
0x44880…448a0 52 45 46 20 56 45 4b 54 4f 52 28 29 2c 4e 29 1f 11 30 30 34 30 20 44 49 4d 20 54 41 42 45 4c 28 ┆REF VEKTOR(),N) 0040 DIM TABEL(┆
0x448a0…448c0 4e 29 11 16 30 30 35 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 1c 30 30 36 30 ┆N) 0050 FOR I:=1 TO N DO 0060┆
0x448c0…448e0 20 54 41 42 45 4c 28 49 29 3a 3d 56 45 4b 54 4f 52 28 4e 2b 31 2d 49 29 1c 0b 30 30 37 30 20 4e ┆ TABEL(I):=VEKTOR(N+1-I) 0070 N┆
0x448e0…44900 45 58 54 20 49 0b 16 30 30 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 4e 20 44 4f 20 16 18 30 ┆EXT I 0080 FOR I:=1 TO N DO 0┆
0x44900…44920 (34, 0, 10) 30 39 30 20 56 45 4b 54 4f 52 28 49 29 3a 3d 54 41 42 45 4c 28 49 29 18 0b 30 31 30 30 20 4e 45 ┆090 VEKTOR(I):=TABEL(I) 0100 NE┆
0x44920…44940 58 54 20 49 0b 12 30 31 31 30 20 45 4e 44 50 52 4f 43 20 4f 4d 42 59 54 12 08 30 31 32 30 20 2f ┆XT I 0110 ENDPROC OMBYT 0120 /┆
0x44940…44960 2f 20 08 0b 30 31 33 30 20 43 4c 45 41 52 20 0b 1f 30 31 34 30 20 2f 2f 20 56 69 20 73 6b 61 66 ┆/ 0130 CLEAR 0140 // Vi skaf┆
0x44960…44980 66 65 72 20 6f 73 20 65 74 20 74 61 6c 73 7b 74 1f 14 30 31 35 30 20 49 4e 54 45 47 45 52 20 49 ┆fer os et talsæt 0150 INTEGER I┆
0x44980…449a0 2c 41 4e 54 41 4c 14 0b 30 31 35 35 20 50 52 49 4e 54 20 0b 2e 30 31 36 30 20 49 4e 50 55 54 20 ┆,ANTAL 0155 PRINT .0160 INPUT ┆
0x449a0…449c0 22 49 4e 44 54 41 53 54 20 41 4e 54 41 4c 4c 45 54 20 41 46 20 54 41 4c 3a 20 20 20 22 3a 41 4e ┆"INDTAST ANTALLET AF TAL: ":AN┆
0x449c0…449e0 54 41 4c 2e 1b 30 31 36 35 20 52 4e 44 53 45 45 44 3a 3d 41 4e 54 41 4c 20 4d 4f 44 20 35 2e 35 ┆TAL. 0165 RNDSEED:=ANTAL MOD 5.5┆
0x449e0…44a00 1b 1a 30 31 37 30 20 49 4e 54 45 47 45 52 20 54 41 4c 53 5b 54 28 41 4e 54 41 4c 29 1a 1a 30 31 ┆ 0170 INTEGER TALSÆT(ANTAL) 01┆
0x44a00…44a20 (34, 0, 11) 38 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 19 30 31 39 30 20 54 ┆80 FOR I:=1 TO ANTAL DO 0190 T┆
0x44a20…44a40 41 4c 53 5b 54 28 49 29 3a 3d 52 4e 44 28 31 2c 32 30 29 19 0b 30 32 30 30 20 4e 45 58 54 20 49 ┆ALSÆT(I):=RND(1,20) 0200 NEXT I┆
0x44a40…44a60 0b 1a 30 32 31 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 4e 54 41 4c 20 44 4f 20 1a 15 30 32 ┆ 0210 FOR I:=1 TO ANTAL DO 02┆
0x44a60…44a80 32 30 20 50 52 49 4e 54 20 54 41 4c 53 5b 54 28 49 29 3b 15 0b 30 32 33 30 20 4e 45 58 54 20 49 ┆20 PRINT TALSÆT(I); 0230 NEXT I┆
0x44a80…44aa0 0b 0b 30 32 34 30 20 50 52 49 4e 54 20 0b 1d 30 32 35 30 20 45 58 45 43 20 4f 4d 42 59 54 28 54 ┆ 0240 PRINT 0250 EXEC OMBYT(T┆
0x44aa0…44ac0 41 4c 53 5b 54 2c 41 4e 54 41 4c 29 1d 1a 30 32 36 30 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 41 ┆ALSÆT,ANTAL) 0260 FOR I:=1 TO A┆
0x44ac0…44ae0 4e 54 41 4c 20 44 4f 20 1a 15 30 32 37 30 20 50 52 49 4e 54 20 54 41 4c 53 5b 54 28 49 29 3b 15 ┆NTAL DO 0270 PRINT TALSÆT(I); ┆
0x44ae0…44b00 0b 30 32 38 30 20 4e 45 58 54 20 49 0b 05 30 32 39 30 20 05 17 30 33 30 30 20 50 52 4f 43 20 52 ┆ 0280 NEXT I 0290 0300 PROC R┆
0x44b00…44b20 (34, 0, 12) 4e 44 28 4c 4f 57 2c 48 49 47 48 29 17 1a 30 33 31 30 20 52 4e 44 58 3a 3d 52 4e 44 53 45 45 44 ┆ND(LOW,HIGH) 0310 RNDX:=RNDSEED┆
0x44b20…44b40 2b 33 2e 31 34 31 35 39 1a 1c 30 33 32 30 20 52 4e 44 58 3a 3d 45 58 50 28 35 2e 30 2a 4c 4e 28 ┆+3.14159 0320 RNDX:=EXP(5.0*LN(┆
0x44b40…44b60 52 4e 44 58 29 29 1c 1c 30 33 33 30 20 52 4e 44 53 45 45 44 3a 3d 52 4e 44 58 2d 49 4e 54 28 52 ┆RNDX)) 0330 RNDSEED:=RNDX-INT(R┆
0x44b60…44b80 4e 44 58 29 1c 2b 30 33 34 30 20 52 4e 44 3a 3d 49 4e 54 28 28 52 4e 44 53 45 45 44 2a 28 48 49 ┆NDX) +0340 RND:=INT((RNDSEED*(HI┆
0x44b80…44ba0 47 48 2d 4c 4f 57 29 2b 4c 4f 57 29 2b 30 2e 35 29 2b 10 30 33 35 30 20 45 4e 44 50 52 4f 43 20 ┆GH-LOW)+LOW)+0.5)+ 0350 ENDPROC ┆
0x44ba0…44bc0 52 4e 44 10 12 32 31 34 38 20 2f 2f 20 54 41 4c 53 5b 54 28 49 29 3b 12 00 00 63 63 63 63 63 63 ┆RND 2148 // TALSÆT(I); cccccc┆
0x44bc0…44be0 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
[…0x1…]
0x44c00…44d00 (34, 0, 13) 0x63[0x100]
[…0x5…]
0x45200…45220 (34, 1, 3) ExtentHdr {name=»STRENGVA«, typ=»K«, seg=»A«, next=0x00, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0045,0c (0x045c00)}, f99=41 0e 00 fe 00 45 4e 54 45 46 ┆A ENTEF┆}
0x45220…45240 3a 30 30 31 30 20 2f 2f 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 53 74 72 65 6e 67 76 61 ┆:0010 // -------------- Strengva┆
0x45240…45260 72 69 61 62 65 6c 20 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 3a 2c 30 30 32 ┆riabel --------------------:,002┆
0x45260…45280 30 20 44 49 4d 20 41 24 20 4f 46 20 34 30 2c 42 24 20 4f 46 20 34 30 2c 43 24 20 4f 46 20 34 30 ┆0 DIM A$ OF 40,B$ OF 40,C$ OF 40┆
0x45280…452a0 2c 44 24 20 4f 46 20 34 30 2c 2d 30 30 33 30 20 41 24 3a 3d 22 4d 69 6e 20 6b 6f 6e 65 20 6f 67 ┆,D$ OF 40,-0030 A$:="Min kone og┆
0x452a0…452c0 20 6a 65 67 2c 20 76 69 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2d 2d 30 30 34 30 20 42 ┆ jeg, vi "--0040 B┆
0x452c0…452e0 24 3a 3d 22 64 65 6c 65 72 20 67 61 72 64 65 72 6f 62 65 73 6b 61 62 2e 48 75 6e 20 20 20 20 20 ┆$:="deler garderobeskab.Hun ┆
0x452e0…45300 20 20 20 20 20 20 22 2d 2d 30 30 35 30 20 43 24 3a 3d 22 74 61 27 72 20 2c 68 76 61 64 20 68 75 ┆ "--0050 C$:="ta'r ,hvad hu┆
0x45300…45320 (34, 1, 4) 6e 20 62 65 68 7c 76 65 72 2c 20 6f 67 20 20 20 20 20 20 20 20 22 2d 2d 30 30 36 30 20 44 24 3a ┆n behøver, og "--0060 D$:┆
0x45320…45340 3d 22 72 65 73 74 65 6e 20 64 65 74 20 66 7d 72 20 6a 65 67 2e 20 20 20 20 20 20 20 20 20 20 20 ┆="resten det får jeg. ┆
0x45340…45360 20 20 20 20 22 2d 13 30 30 37 30 20 50 52 49 4e 54 20 41 24 28 31 3a 31 36 29 13 1c 30 30 38 30 ┆ "- 0070 PRINT A$(1:16) 0080┆
0x45360…45380 20 50 52 49 4e 54 20 41 24 28 31 38 3a 33 29 2b 42 24 28 31 3a 31 39 29 1c 1c 30 30 39 30 20 50 ┆ PRINT A$(18:3)+B$(1:19) 0090 P┆
0x45380…453a0 52 49 4e 54 20 42 24 28 32 31 3a 34 29 2b 43 24 28 31 3a 32 33 29 1c 0d 30 31 30 30 20 50 52 49 ┆RINT B$(21:4)+C$(1:23) 0100 PRI┆
0x453a0…453c0 4e 54 20 44 24 0d 1e 45 30 37 39 20 2f 2f 20 72 20 6a 65 67 2e 20 20 20 20 20 20 20 20 20 20 20 ┆NT D$ E079 // r jeg. ┆
0x453c0…453e0 20 20 20 20 22 1e 00 00 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆ " cccccccccccccccccccccccc┆
0x453e0…45400 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 63 ┆cccccccccccccccccccccccccccccccc┆
0x45400…45500 (34, 1, 5) 0x63[0x100]
[…0x7…]
0x45c00…45c20 (34, 1, 13) 00 54 52 45 4e 47 56 41 4b 41 00 0a 00 00 00 00 00 00 00 00 00 00 41 0e 00 fe 00 45 4e 54 45 46 ┆ TRENGVAKA A ENTEF┆
0x45c20…45c40 32 20 4b 41 0f 00 01 50 48 20 20 20 20 20 20 4b 41 0f 00 04 47 41 46 46 45 4c 5f 46 4b 41 44 00 ┆2 KA PH KA GAFFEL_FKAD ┆
0x45c40…45c60 04 4f 4d 42 59 54 20 20 20 4b 41 44 00 08 53 54 52 45 4e 47 56 41 4b 41 45 00 02 00 00 00 00 00 ┆ OMBYT KAD STRENGVAKAE ┆
0x45c60…45c80 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 ┆ ┆
[…0x4…]
0x45d00…45e00 (34, 1, 14) 0x63[0x100]
[…0xa2…]