|
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 B D H I L M N P Q R T V
Length: 89856 (0x15f00)
Description: Bits:30004600 DEMO1 - COMAL demoprogram
Types: 5¼" Floppy Disk, ImdContainer
| basis | type | name | artifact |
|---|---|---|---|
| 5 | K | BALLON | ⟦7c952a183⟧ Mikados TextFile, Mikados_K |
| 10 | K | DATA | ⟦d87a39315⟧ Mikados TextFile, Mikados_K |
| 10 | K | HESTSPIL | ⟦970245351⟧ Mikados TextFile, Mikados_K |
| 10 | K | LIFE1 | ⟦6f54cd99f⟧ Mikados TextFile, Mikados_K |
| 3 | K | NORMAL | ⟦076333b71⟧ Mikados TextFile, Mikados_K |
| 2 | K | PLOTE | ⟦309dc9cf1⟧ Mikados TextFile, Mikados_K |
| 5 | K | QUICKSRT | ⟦ef5f818cf⟧ Mikados TextFile, Mikados_K |
| 5 | K | RENTE | ⟦5a3798a18⟧ Mikados TextFile, Mikados_K |
| 4 | K | TVSPIL | ⟦21e707166⟧ Mikados TextFile, Mikados_K |
| 10 | K | VSKAK | ⟦b291729ec⟧ Mikados TextFile, Mikados_K |
0x00000…00030 (0, 0, 1) DiskLabel {plidn=»PLADELAGER«, ledig={DA 0011,00 (0x009900)}, plart=»COMAL«, pldto=»19.03.1980«, plbtg=»DEMO1 «, pluda=»vvvvvvvvvv«}
0x00030…00040 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvv┆
0x00040…00060 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┆
[…0x5…]
0x00100…00200 (0, 0, 2) EmptyDirSect
[…0x1…]
0x00300…00400 (0, 0, 4) DirSect {
0x00300…00400 dent = [ // 0x300 @0x0
0x00300…00400 [0x00]: DirEnt {name=»LIFE1 «, typ=»K«, seg=»A«, seg0={DA 0001,08 (0x001100)}}
0x00300…00400 [0x01]: DirEnt {name=»PLOTE «, typ=»K«, seg=»A«, seg0={DA 0004,05 (0x002900)}}
0x00300…00400 [0x02]: DirEnt {name=»RENTE «, typ=»K«, seg=»A«, seg0={DA 0006,04 (0x003a00)}}
0x00300…00400 [0x03]:
0x00300…00400 [0x04]:
0x00300…00400 [0x05]:
0x00300…00400 [0x06]:
0x00300…00400 [0x07]:
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=»TVSPIL «, typ=»K«, seg=»A«, seg0={DA 0004,01 (0x002500)}}
0x00500…00600 [0x01]: DirEnt {name=»DATA «, typ=»K«, seg=»A«, seg0={DA 000b,04 (0x006700)}}
0x00500…00600 [0x02]:
0x00500…00600 [0x03]:
0x00500…00600 [0x04]:
0x00500…00600 [0x05]:
0x00500…00600 [0x06]:
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
[…0x2…]
0x00900…00a00 (1, 0, 1) DirSect {
0x00900…00a00 dent = [ // 0x900 @0x0
0x00900…00a00 [0x00]: DirEnt {name=»QUICKSRT«, typ=»K«, seg=»A«, seg0={DA 0005,03 (0x003000)}}
0x00900…00a00 [0x01]:
0x00900…00a00 [0x02]:
0x00900…00a00 [0x03]:
0x00900…00a00 [0x04]:
0x00900…00a00 [0x05]:
0x00900…00a00 [0x06]:
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 (1, 0, 2) EmptyDirSect
0x00b00…00c00 (1, 0, 3) DirSect {
0x00b00…00c00 dent = [ // 0xb00 @0x0
0x00b00…00c00 [0x00]: DirEnt {name=»NORMAL «, typ=»K«, seg=»A«, seg0={DA 0005,00 (0x002d00)}}
0x00b00…00c00 [0x01]: DirEnt {name=»VSKAK «, typ=»K«, seg=»A«, seg0={DA 0008,01 (0x004900)}}
0x00b00…00c00 [0x02]:
0x00b00…00c00 [0x03]:
0x00b00…00c00 [0x04]:
0x00b00…00c00 [0x05]:
0x00b00…00c00 [0x06]:
0x00b00…00c00 [0x07]:
0x00b00…00c00 [0x08]:
0x00b00…00c00 [0x09]:
0x00b00…00c00 [0x0a]:
0x00b00…00c00 [0x0b]:
0x00b00…00c00 [0x0c]:
0x00b00…00c00 [0x0d]:
0x00b00…00c00 [0x0e]:
0x00b00…00c00 [0x0f]:
0x00b00…00c00 [0x10]:
0x00b00…00c00 [0x11]:
0x00b00…00c00 [0x12]:
0x00b00…00c00 ]
0x00b00…00c00 }
0x00c00…00d00 (1, 0, 4) EmptyDirSect
0x00d00…00e00 (1, 0, 5) DirSect {
0x00d00…00e00 dent = [ // 0xd00 @0x0
0x00d00…00e00 [0x00]: DirEnt {name=»BALLON «, typ=»K«, seg=»A«, seg0={DA 0007,05 (0x004400)}}
0x00d00…00e00 [0x01]: DirEnt {name=»HESTSPIL«, typ=»K«, seg=»A«, seg0={DA 000e,07 (0x008500)}}
0x00d00…00e00 [0x02]:
0x00d00…00e00 [0x03]:
0x00d00…00e00 [0x04]:
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 (1, 0, 6) EmptyDirSect
[…0x2…]
0x01100…01120 (1, 0, 9) ExtentHdr {name=»LIFE1 «, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 0003,00 (0x001b00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0003,00 (0x001b00)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x01120…01140 09 30 31 30 30 20 52 45 4d 20 09 2e 30 31 31 30 20 52 45 4d 20 46 4f 52 4d 5d 4c 2e 2e 2e 2e 2e ┆ 0100 REM .0110 REM FORMÅL.....┆
0x01140…01160 2e 3a 20 20 44 45 4d 4f 53 54 52 41 54 49 4f 4e 53 20 50 52 4f 47 52 41 4d 2e 2e 09 30 31 32 30 ┆.: DEMOSTRATIONS PROGRAM.. 0120┆
0x01160…01180 20 52 45 4d 20 09 34 30 31 33 30 20 52 45 4d 20 50 52 4f 47 52 41 4d 20 4e 41 56 4e 3a 20 20 47 ┆ REM 40130 REM PROGRAM NAVN: G┆
0x01180…011a0 41 4d 45 20 4f 46 20 4c 49 56 45 20 28 50 5d 20 44 49 53 4b 3a 20 4c 49 46 45 29 34 31 30 31 34 ┆AME OF LIVE (PÅ DISK: LIFE)41014┆
0x011a0…011c0 30 20 52 45 4d 20 50 52 4f 47 52 41 4d 4d 5c 52 2e 2e 3a 20 20 28 55 4b 45 4e 44 54 29 20 2c 20 ┆0 REM PROGRAMMØR..: (UKENDT) , ┆
0x011c0…011e0 44 44 45 20 31 37 2f 30 35 2f 31 39 37 39 31 2b 30 31 35 30 20 52 45 4d 20 53 50 52 4f 47 2e 2e ┆DDE 17/05/19791+0150 REM SPROG..┆
0x011e0…01200 2e 2e 2e 2e 2e 3a 20 20 44 44 45 20 43 4f 4d 41 4c 20 46 4f 52 54 4f 4c 4b 45 52 2b 24 30 31 36 ┆.....: DDE COMAL FORTOLKER+$016┆
0x01200…01220 (2, 0, 1) 30 20 52 45 4d 20 56 45 52 53 49 4f 4e 20 4e 4f 2e 2e 3a 20 20 45 35 41 20 20 28 4c 49 46 45 31 ┆0 REM VERSION NO..: E5A (LIFE1┆
0x01220…01240 29 24 09 30 31 37 30 20 52 45 4d 20 09 22 30 31 38 30 20 52 45 4d 20 56 41 52 49 41 42 45 4c 4c ┆)$ 0170 REM "0180 REM VARIABELL┆
0x01240…01260 49 53 54 45 2c 20 53 45 20 49 20 4c 49 46 45 2e 22 09 30 31 39 30 20 52 45 4d 20 09 27 30 32 30 ┆ISTE, SE I LIFE." 0190 REM '020┆
0x01260…01280 30 20 52 45 4d 20 44 49 4d 45 4e 53 49 4f 4e 45 52 49 4e 47 20 41 46 20 56 41 52 49 41 42 4c 45 ┆0 REM DIMENSIONERING AF VARIABLE┆
0x01280…012a0 52 4e 45 2e 27 09 30 32 31 30 20 52 45 4d 20 09 4a 30 32 32 30 20 4f 4e 31 3d 39 3b 4d 41 58 52 ┆RNE.' 0210 REM J0220 ON1=9;MAXR┆
0x012a0…012c0 4f 57 3d 32 34 3b 4d 41 58 43 4f 4c 3d 34 31 3b 4d 41 58 52 4f 57 31 3d 4d 41 58 52 4f 57 2b 31 ┆OW=24;MAXCOL=41;MAXROW1=MAXROW+1┆
0x012c0…012e0 3b 4d 41 58 43 4f 4c 31 3d 4d 41 58 43 4f 4c 2b 31 3b 52 4f 57 2c 43 4f 4c 3d 30 4a 30 30 32 33 ┆;MAXCOL1=MAXCOL+1;ROW,COL=0J0023┆
0x012e0…01300 30 20 44 49 4d 20 41 43 54 42 4f 41 52 44 28 4d 41 58 52 4f 57 31 2c 4d 41 58 43 4f 4c 31 29 2c ┆0 DIM ACTBOARD(MAXROW1,MAXCOL1),┆
0x01300…01320 (2, 0, 2) 4c 49 4e 45 24 28 4d 41 58 43 4f 4c 29 30 31 30 32 34 30 20 44 49 4d 20 53 41 56 42 4f 41 52 44 ┆LINE$(MAXCOL)010240 DIM SAVBOARD┆
0x01320…01340 28 4d 41 58 52 4f 57 31 2c 4d 41 58 43 4f 4c 31 29 2c 53 50 41 43 45 24 28 4d 41 58 43 4f 4c 29 ┆(MAXROW1,MAXCOL1),SPACE$(MAXCOL)┆
0x01340…01360 31 2b 30 32 35 30 20 49 2c 4a 2c 47 45 4e 45 52 41 54 49 4f 4e 2c 41 4c 49 56 45 43 4f 55 4e 54 ┆1+0250 I,J,GENERATION,ALIVECOUNT┆
0x01360…01380 3d 30 3b 53 50 41 43 45 24 3d 22 20 22 2b 19 30 32 36 30 20 46 4f 52 20 52 4f 57 3d 31 20 54 4f ┆=0;SPACE$=" "+ 0260 FOR ROW=1 TO┆
0x01380…013a0 20 4d 41 58 52 4f 57 31 19 19 30 32 37 30 20 46 4f 52 20 43 4f 4c 3d 31 20 54 4f 20 4d 41 58 43 ┆ MAXROW1 0270 FOR COL=1 TO MAXC┆
0x013a0…013c0 4f 4c 31 19 2a 30 32 38 30 20 41 43 54 42 4f 41 52 44 28 52 4f 57 2c 43 4f 4c 29 2c 53 41 56 42 ┆OL1 *0280 ACTBOARD(ROW,COL),SAVB┆
0x013c0…013e0 4f 41 52 44 28 52 4f 57 2c 43 4f 4c 29 3d 30 2a 0d 30 32 39 30 20 4e 45 58 54 20 43 4f 4c 0d 0d ┆OARD(ROW,COL)=0* 0290 NEXT COL ┆
0x013e0…01400 30 33 30 30 20 4e 45 58 54 20 52 4f 57 0d 16 30 33 31 30 20 46 4f 52 20 49 3d 32 20 54 4f 20 4d ┆0300 NEXT ROW 0310 FOR I=2 TO M┆
0x01400…01420 (2, 0, 3) 41 58 43 4f 4c 16 16 30 33 32 30 20 53 50 41 43 45 24 3d 53 50 41 43 45 24 2b 22 20 22 16 0b 30 ┆AXCOL 0320 SPACE$=SPACE$+" " 0┆
0x01420…01440 33 33 30 20 4e 45 58 54 20 49 0b 09 30 33 34 30 20 52 45 4d 20 09 16 30 33 35 30 20 52 45 4d 20 ┆330 NEXT I 0340 REM 0350 REM ┆
0x01440…01460 48 4f 56 45 44 50 52 4f 47 52 41 4d 2e 16 09 30 33 36 30 20 52 45 4d 20 09 18 30 33 37 30 20 45 ┆HOVEDPROGRAM. 0360 REM 0370 E┆
0x01460…01480 58 45 43 20 52 45 41 44 47 45 4e 45 52 41 54 49 4f 4e 18 0b 30 33 38 30 20 43 4c 45 41 52 20 0b ┆XEC READGENERATION 0380 CLEAR ┆
0x01480…014a0 10 30 33 39 30 20 43 55 52 53 4f 52 20 32 30 2c 31 10 1f 30 34 30 30 20 50 52 49 4e 54 20 22 47 ┆ 0390 CURSOR 20,1 0400 PRINT "G┆
0x014a0…014c0 45 4e 45 52 41 54 49 4f 4e 20 4e 4f 2e 20 20 20 30 22 1f 19 30 34 31 30 20 45 58 45 43 20 50 52 ┆ENERATION NO. 0" 0410 EXEC PR┆
0x014c0…014e0 49 4e 54 47 45 4e 45 52 41 54 49 4f 4e 19 0c 30 34 32 30 20 52 45 50 45 41 54 20 0c 18 30 34 33 ┆INTGENERATION 0420 REPEAT 043┆
0x014e0…01500 30 20 45 58 45 43 20 4e 45 58 54 47 45 4e 45 52 41 54 49 4f 4e 18 0f 30 34 34 30 20 43 55 52 53 ┆0 EXEC NEXTGENERATION 0440 CURS┆
0x01500…01520 (2, 0, 4) 4f 52 20 31 2c 31 0f 17 30 34 35 30 20 55 4e 54 49 4c 20 41 4c 49 56 45 43 4f 55 4e 54 3d 30 17 ┆OR 1,1 0450 UNTIL ALIVECOUNT=0 ┆
0x01520…01540 10 30 34 36 30 20 43 55 52 53 4f 52 20 34 31 2c 31 10 1d 30 34 37 30 20 50 52 49 4e 54 20 22 44 ┆ 0460 CURSOR 41,1 0470 PRINT "D┆
0x01540…01560 45 41 44 22 3b 43 48 52 28 32 37 29 3b 22 54 22 1d 11 30 34 38 30 20 43 55 52 53 4f 52 20 31 35 ┆EAD";CHR(27);"T" 0480 CURSOR 15┆
0x01560…01580 2c 32 34 11 25 30 34 39 30 20 50 52 49 4e 54 20 22 50 52 4f 47 52 41 4d 20 46 5b 52 44 49 47 54 ┆,24 %0490 PRINT "PROGRAM FÆRDIGT┆
0x01580…015a0 21 22 3b 43 48 52 28 31 31 29 25 0f 30 35 30 30 20 47 4f 20 54 4f 20 30 35 30 30 0f 17 30 35 31 ┆!";CHR(11)% 0500 GO TO 0500 051┆
0x015a0…015c0 30 20 45 4e 44 20 3b 48 4f 56 45 44 50 52 4f 47 52 41 4d 2e 17 09 30 35 32 30 20 52 45 4d 20 09 ┆0 END ;HOVEDPROGRAM. 0520 REM ┆
0x015c0…015e0 17 30 35 33 30 20 50 52 4f 43 20 43 4c 45 41 52 42 4f 41 52 44 28 42 29 17 19 30 35 34 30 20 46 ┆ 0530 PROC CLEARBOARD(B) 0540 F┆
0x015e0…01600 4f 52 20 52 4f 57 3d 31 20 54 4f 20 4d 41 58 52 4f 57 31 19 19 30 35 35 30 20 46 4f 52 20 43 4f ┆OR ROW=1 TO MAXROW1 0550 FOR CO┆
0x01600…01620 (2, 0, 5) 4c 3d 31 20 54 4f 20 4d 41 58 43 4f 4c 31 19 11 30 35 36 30 20 42 28 52 4f 57 2c 43 4f 4c 29 3d ┆L=1 TO MAXCOL1 0560 B(ROW,COL)=┆
0x01620…01640 30 11 0d 30 35 37 30 20 4e 45 58 54 20 43 4f 4c 0d 0d 30 35 38 30 20 4e 45 58 54 20 52 4f 57 0d ┆0 0570 NEXT COL 0580 NEXT ROW ┆
0x01640…01660 18 30 35 39 30 20 45 4e 44 50 52 4f 43 20 3b 43 4c 45 41 52 42 4f 41 52 44 18 09 30 36 30 30 20 ┆ 0590 ENDPROC ;CLEARBOARD 0600 ┆
0x01660…01680 52 45 4d 20 09 1e 30 36 31 30 20 50 52 4f 43 20 53 45 54 43 45 4c 4c 28 42 2c 52 4f 57 57 2c 43 ┆REM 0610 PROC SETCELL(B,ROWW,C┆
0x01680…016a0 4f 4c 4c 29 1e 28 30 36 32 30 20 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 2d 31 29 3d 42 28 52 4f ┆OLL) (0620 B(ROWW-1,COLL-1)=B(RO┆
0x016a0…016c0 57 57 2d 31 2c 43 4f 4c 4c 2d 31 29 2b 31 28 24 30 36 33 30 20 42 28 52 4f 57 57 2d 31 2c 43 4f ┆WW-1,COLL-1)+1($0630 B(ROWW-1,CO┆
0x016c0…016e0 4c 4c 29 3d 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 29 2b 31 24 28 30 36 34 30 20 42 28 52 4f 57 ┆LL)=B(ROWW-1,COLL)+1$(0640 B(ROW┆
0x016e0…01700 57 2d 31 2c 43 4f 4c 4c 2b 31 29 3d 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 2b 31 29 2b 31 28 24 ┆W-1,COLL+1)=B(ROWW-1,COLL+1)+1($┆
0x01700…01720 (2, 0, 6) 30 36 35 30 20 42 28 52 4f 57 57 2c 43 4f 4c 4c 2d 31 29 3d 42 28 52 4f 57 57 2c 43 4f 4c 4c 2d ┆0650 B(ROWW,COLL-1)=B(ROWW,COLL-┆
0x01720…01740 31 29 2b 31 24 22 30 36 36 30 20 42 28 52 4f 57 57 2c 43 4f 4c 4c 29 3d 42 28 52 4f 57 57 2c 43 ┆1)+1$"0660 B(ROWW,COLL)=B(ROWW,C┆
0x01740…01760 4f 4c 4c 29 2b 4f 4e 31 22 24 30 36 37 30 20 42 28 52 4f 57 57 2c 43 4f 4c 4c 2b 31 29 3d 42 28 ┆OLL)+ON1"$0670 B(ROWW,COLL+1)=B(┆
0x01760…01780 52 4f 57 57 2c 43 4f 4c 4c 2b 31 29 2b 31 24 28 30 36 38 30 20 42 28 52 4f 57 57 2b 31 2c 43 4f ┆ROWW,COLL+1)+1$(0680 B(ROWW+1,CO┆
0x01780…017a0 4c 4c 2d 31 29 3d 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 2d 31 29 2b 31 28 24 30 36 39 30 20 42 ┆LL-1)=B(ROWW+1,COLL-1)+1($0690 B┆
0x017a0…017c0 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 29 3d 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 29 2b 31 24 28 ┆(ROWW+1,COLL)=B(ROWW+1,COLL)+1$(┆
0x017c0…017e0 30 37 30 30 20 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 2b 31 29 3d 42 28 52 4f 57 57 2b 31 2c 43 ┆0700 B(ROWW+1,COLL+1)=B(ROWW+1,C┆
0x017e0…01800 4f 4c 4c 2b 31 29 2b 31 28 1c 30 37 31 30 20 41 4c 49 56 45 43 4f 55 4e 54 3d 41 4c 49 56 45 43 ┆OLL+1)+1( 0710 ALIVECOUNT=ALIVEC┆
0x01800…01820 (2, 0, 7) 4f 55 4e 54 2b 31 1c 15 30 37 32 30 20 45 4e 44 50 52 4f 43 20 3b 53 45 54 43 45 4c 4c 15 09 30 ┆OUNT+1 0720 ENDPROC ;SETCELL 0┆
0x01820…01840 37 33 30 20 52 45 4d 20 09 21 30 37 34 30 20 50 52 4f 43 20 52 45 4d 4f 56 45 43 45 4c 4c 28 42 ┆730 REM !0740 PROC REMOVECELL(B┆
0x01840…01860 2c 52 4f 57 57 2c 43 4f 4c 4c 29 21 28 30 37 35 30 20 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 2d ┆,ROWW,COLL)!(0750 B(ROWW-1,COLL-┆
0x01860…01880 31 29 3d 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 2d 31 29 2d 31 28 24 30 37 36 30 20 42 28 52 4f ┆1)=B(ROWW-1,COLL-1)-1($0760 B(RO┆
0x01880…018a0 57 57 2d 31 2c 43 4f 4c 4c 29 3d 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 29 2d 31 24 28 30 37 37 ┆WW-1,COLL)=B(ROWW-1,COLL)-1$(077┆
0x018a0…018c0 30 20 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c 2b 31 29 3d 42 28 52 4f 57 57 2d 31 2c 43 4f 4c 4c ┆0 B(ROWW-1,COLL+1)=B(ROWW-1,COLL┆
0x018c0…018e0 2b 31 29 2d 31 28 24 30 37 38 30 20 42 28 52 4f 57 57 2c 43 4f 4c 4c 2d 31 29 3d 42 28 52 4f 57 ┆+1)-1($0780 B(ROWW,COLL-1)=B(ROW┆
0x018e0…01900 57 2c 43 4f 4c 4c 2d 31 29 2d 31 24 22 30 37 39 30 20 42 28 52 4f 57 57 2c 43 4f 4c 4c 29 3d 42 ┆W,COLL-1)-1$"0790 B(ROWW,COLL)=B┆
0x01900…01920 (2, 0, 8) 28 52 4f 57 57 2c 43 4f 4c 4c 29 2d 4f 4e 31 22 24 30 38 30 30 20 42 28 52 4f 57 57 2c 43 4f 4c ┆(ROWW,COLL)-ON1"$0800 B(ROWW,COL┆
0x01920…01940 4c 2b 31 29 3d 42 28 52 4f 57 57 2c 43 4f 4c 4c 2b 31 29 2d 31 24 28 30 38 31 30 20 42 28 52 4f ┆L+1)=B(ROWW,COLL+1)-1$(0810 B(RO┆
0x01940…01960 57 57 2b 31 2c 43 4f 4c 4c 2d 31 29 3d 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 2d 31 29 2d 31 28 ┆WW+1,COLL-1)=B(ROWW+1,COLL-1)-1(┆
0x01960…01980 24 30 38 32 30 20 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 29 3d 42 28 52 4f 57 57 2b 31 2c 43 4f ┆$0820 B(ROWW+1,COLL)=B(ROWW+1,CO┆
0x01980…019a0 4c 4c 29 2d 31 24 28 30 38 33 30 20 42 28 52 4f 57 57 2b 31 2c 43 4f 4c 4c 2b 31 29 3d 42 28 52 ┆LL)-1$(0830 B(ROWW+1,COLL+1)=B(R┆
0x019a0…019c0 4f 57 57 2b 31 2c 43 4f 4c 4c 2b 31 29 2d 31 28 1c 30 38 34 30 20 41 4c 49 56 45 43 4f 55 4e 54 ┆OWW+1,COLL+1)-1( 0840 ALIVECOUNT┆
0x019c0…019e0 3d 41 4c 49 56 45 43 4f 55 4e 54 2d 31 1c 18 30 38 35 30 20 45 4e 44 50 52 4f 43 20 3b 52 45 4d ┆=ALIVECOUNT-1 0850 ENDPROC ;REM┆
0x019e0…01a00 4f 56 45 43 45 4c 4c 18 09 30 38 36 30 20 52 45 4d 20 09 18 30 38 37 30 20 50 52 4f 43 20 52 45 ┆OVECELL 0860 REM 0870 PROC RE┆
0x01a00…01a20 (2, 0, 9) 41 44 47 45 4e 45 52 41 54 49 4f 4e 18 23 30 38 38 30 20 52 4f 57 2c 52 4f 57 4d 49 4e 2c 52 4f ┆ADGENERATION #0880 ROW,ROWMIN,RO┆
0x01a20…01a40 57 4d 41 58 2c 52 4f 57 30 3d 4d 41 58 52 4f 57 31 23 23 30 38 39 30 20 43 4f 4c 2c 43 4f 4c 4d ┆WMAX,ROW0=MAXROW1##0890 COL,COLM┆
0x01a40…01a60 49 4e 2c 43 4f 4c 4d 41 58 2c 43 4f 4c 30 3d 4d 41 58 43 4f 4c 31 23 11 30 39 30 30 20 47 45 4e ┆IN,COLMAX,COL0=MAXCOL1# 0900 GEN┆
0x01a60…01a80 45 52 41 54 49 4f 4e 3d 30 11 11 30 39 31 30 20 41 4c 49 56 45 43 4f 55 4e 54 3d 30 11 1e 30 39 ┆ERATION=0 0910 ALIVECOUNT=0 09┆
0x01a80…01aa0 32 30 20 45 58 45 43 20 43 4c 45 41 52 42 4f 41 52 44 28 53 41 56 42 4f 41 52 44 29 1e 1b 30 39 ┆20 EXEC CLEARBOARD(SAVBOARD) 09┆
0x01aa0…01ac0 33 30 20 52 4f 57 4d 49 4e 3d 4d 41 58 52 4f 57 3b 52 4f 57 4d 41 58 3d 30 1b 1b 30 39 34 30 20 ┆30 ROWMIN=MAXROW;ROWMAX=0 0940 ┆
0x01ac0…01ae0 43 4f 4c 4d 49 4e 3d 4d 41 58 43 4f 4c 3b 43 4f 4c 4d 41 58 3d 30 1b 0a 30 39 35 30 20 52 4f 57 ┆COLMIN=MAXCOL;COLMAX=0 0950 ROW┆
0x01ae0…01b00 3d 31 0a 20 30 39 36 30 20 50 52 49 4e 54 20 22 50 4c 45 41 53 45 20 45 4e 54 45 52 20 43 4f 4c ┆=1 0960 PRINT "PLEASE ENTER COL┆
0x01b00…01b20 (3, 0, 1) ExtentHdr {name=»LIFE1 «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0001,08 (0x001100)}, nextfile={DA 0004,01 (0x002500)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x01b20…01b40 4f 4e 59 22 20 18 30 39 37 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 4d 41 58 43 4f 4c 2d 31 18 26 ┆ONY" 0970 FOR I=1 TO MAXCOL-1 &┆
0x01b40…01b60 30 39 38 30 20 4c 49 4e 45 24 28 49 3a 31 29 3d 43 48 52 28 49 2b 34 38 2d 49 4e 54 28 49 2f 31 ┆0980 LINE$(I:1)=CHR(I+48-INT(I/1┆
0x01b60…01b80 30 29 2a 31 30 29 26 0b 30 39 39 30 20 4e 45 58 54 20 49 0b 15 31 30 30 30 20 50 52 49 4e 54 20 ┆0)*10)& 0990 NEXT I 1000 PRINT ┆
0x01b80…01ba0 22 20 20 22 3b 4c 49 4e 45 24 15 19 31 30 31 30 20 57 48 49 4c 45 20 52 4f 57 3c 4d 41 58 52 4f ┆" ";LINE$ 1010 WHILE ROW<MAXRO┆
0x01ba0…01bc0 57 20 44 4f 20 19 3b 31 30 32 30 20 4c 49 4e 45 24 3d 43 48 52 28 49 4e 54 28 52 4f 57 2f 31 30 ┆W DO ;1020 LINE$=CHR(INT(ROW/10┆
0x01bc0…01be0 29 2b 34 38 29 2b 43 48 52 28 28 52 4f 57 2d 49 4e 54 28 52 4f 57 2f 31 30 29 2a 31 30 29 2b 34 ┆)+48)+CHR((ROW-INT(ROW/10)*10)+4┆
0x01be0…01c00 38 29 3b 11 31 30 33 30 20 50 52 49 4e 54 20 4c 49 4e 45 24 3b 11 11 31 30 34 30 20 4c 49 4e 45 ┆8); 1030 PRINT LINE$; 1040 LINE┆
0x01c00…01c20 (3, 0, 2) 24 3d 53 50 41 43 45 24 11 10 31 30 35 30 20 49 4e 50 55 54 20 4c 49 4e 45 24 10 22 31 30 36 30 ┆$=SPACE$ 1050 INPUT LINE$ "1060┆
0x01c20…01c40 20 49 46 20 4c 49 4e 45 24 3d 22 20 22 20 54 48 45 4e 20 45 58 49 54 20 3b 57 48 49 4c 45 22 19 ┆ IF LINE$=" " THEN EXIT ;WHILE" ┆
0x01c40…01c60 31 30 37 30 20 4a 3d 4d 41 58 43 4f 4c 31 2d 4c 45 4e 28 4c 49 4e 45 24 29 19 11 31 30 38 30 20 ┆1070 J=MAXCOL1-LEN(LINE$) 1080 ┆
0x01c60…01c80 46 4f 52 20 49 3d 31 20 54 4f 20 4a 11 14 31 30 39 30 20 4c 49 4e 45 24 3d 4c 49 4e 45 24 2b 22 ┆FOR I=1 TO J 1090 LINE$=LINE$+"┆
0x01c80…01ca0 20 22 14 0b 31 31 30 30 20 4e 45 58 54 20 49 0b 0e 31 31 31 30 20 52 4f 57 3d 52 4f 57 2b 31 0e ┆ " 1100 NEXT I 1110 ROW=ROW+1 ┆
0x01ca0…01cc0 0a 31 31 32 30 20 43 4f 4c 3d 31 0a 19 31 31 33 30 20 57 48 49 4c 45 20 43 4f 4c 3c 4d 41 58 43 ┆ 1120 COL=1 1130 WHILE COL<MAXC┆
0x01cc0…01ce0 4f 4c 20 44 4f 20 19 0e 31 31 34 30 20 43 4f 4c 3d 43 4f 4c 2b 31 0e 1f 31 31 35 30 20 49 46 20 ┆OL DO 1140 COL=COL+1 1150 IF ┆
0x01ce0…01d00 4c 49 4e 45 24 28 43 4f 4c 2d 31 29 3c 3e 22 20 22 20 54 48 45 4e 20 1f 23 31 31 36 30 20 45 58 ┆LINE$(COL-1)<>" " THEN #1160 EX┆
0x01d00…01d20 (3, 0, 3) 45 43 20 53 45 54 43 45 4c 4c 28 53 41 56 42 4f 41 52 44 2c 52 4f 57 2c 43 4f 4c 29 23 22 31 31 ┆EC SETCELL(SAVBOARD,ROW,COL)#"11┆
0x01d20…01d40 37 30 20 49 46 20 52 4f 57 3c 52 4f 57 4d 49 4e 20 54 48 45 4e 20 52 4f 57 4d 49 4e 3d 52 4f 57 ┆70 IF ROW<ROWMIN THEN ROWMIN=ROW┆
0x01d40…01d60 22 22 31 31 38 30 20 49 46 20 43 4f 4c 3c 43 4f 4c 4d 49 4e 20 54 48 45 4e 20 43 4f 4c 4d 49 4e ┆""1180 IF COL<COLMIN THEN COLMIN┆
0x01d60…01d80 3d 43 4f 4c 22 22 31 31 39 30 20 49 46 20 52 4f 57 3e 52 4f 57 4d 41 58 20 54 48 45 4e 20 52 4f ┆=COL""1190 IF ROW>ROWMAX THEN RO┆
0x01d80…01da0 57 4d 41 58 3d 52 4f 57 22 22 31 32 30 30 20 49 46 20 43 4f 4c 3e 43 4f 4c 4d 41 58 20 54 48 45 ┆WMAX=ROW""1200 IF COL>COLMAX THE┆
0x01da0…01dc0 4e 20 43 4f 4c 4d 41 58 3d 43 4f 4c 22 0b 31 32 31 30 20 45 4e 44 49 46 20 0b 0e 31 32 32 30 20 ┆N COLMAX=COL" 1210 ENDIF 1220 ┆
0x01dc0…01de0 45 4e 44 57 48 49 4c 45 20 0e 0e 31 32 33 30 20 45 4e 44 57 48 49 4c 45 20 0e 09 31 32 34 30 20 ┆ENDWHILE 1230 ENDWHILE 1240 ┆
0x01de0…01e00 52 45 4d 20 09 25 31 32 35 30 20 52 45 4d 20 50 55 54 20 54 48 45 20 46 49 47 55 52 45 20 49 4e ┆REM %1250 REM PUT THE FIGURE IN┆
0x01e00…01e20 (3, 0, 4) 20 54 48 45 20 4d 49 44 44 4c 45 25 09 31 32 36 30 20 52 45 4d 20 09 2b 31 32 37 30 20 52 4f 57 ┆ THE MIDDLE% 1260 REM +1270 ROW┆
0x01e20…01e40 30 3d 28 28 4d 41 58 52 4f 57 31 2d 52 4f 57 4d 49 4e 2d 52 4f 57 4d 41 58 29 20 44 49 56 20 32 ┆0=((MAXROW1-ROWMIN-ROWMAX) DIV 2┆
0x01e40…01e60 29 2b 31 2b 2b 31 32 38 30 20 43 4f 4c 30 3d 28 28 4d 41 58 43 4f 4c 31 2d 43 4f 4c 4d 49 4e 2d ┆)+1++1280 COL0=((MAXCOL1-COLMIN-┆
0x01e60…01e80 43 4f 4c 4d 41 58 29 20 44 49 56 20 32 29 2b 31 2b 21 31 32 39 30 20 46 4f 52 20 52 4f 57 3d 52 ┆COLMAX) DIV 2)+1+!1290 FOR ROW=R┆
0x01e80…01ea0 4f 57 4d 49 4e 2d 31 20 54 4f 20 52 4f 57 4d 41 58 2b 31 21 21 31 33 30 30 20 46 4f 52 20 43 4f ┆OWMIN-1 TO ROWMAX+1!!1300 FOR CO┆
0x01ea0…01ec0 4c 3d 43 4f 4c 4d 49 4e 2d 31 20 54 4f 20 43 4f 4c 4d 41 58 2b 31 21 32 31 33 31 30 20 41 43 54 ┆L=COLMIN-1 TO COLMAX+1!21310 ACT┆
0x01ec0…01ee0 42 4f 41 52 44 28 52 4f 57 2b 52 4f 57 30 2c 43 4f 4c 2b 43 4f 4c 30 29 3d 53 41 56 42 4f 41 52 ┆BOARD(ROW+ROW0,COL+COL0)=SAVBOAR┆
0x01ee0…01f00 44 28 52 4f 57 2c 43 4f 4c 29 32 0d 31 33 32 30 20 4e 45 58 54 20 43 4f 4c 0d 0d 31 33 33 30 20 ┆D(ROW,COL)2 1320 NEXT COL 1330 ┆
0x01f00…01f20 (3, 0, 5) 4e 45 58 54 20 52 4f 57 0d 1e 31 33 34 30 20 45 58 45 43 20 43 4c 45 41 52 42 4f 41 52 44 28 53 ┆NEXT ROW 1340 EXEC CLEARBOARD(S┆
0x01f20…01f40 41 56 42 4f 41 52 44 29 1e 1c 31 33 35 30 20 45 4e 44 50 52 4f 43 20 3b 52 45 41 44 47 45 4e 45 ┆AVBOARD) 1350 ENDPROC ;READGENE┆
0x01f40…01f60 52 41 54 49 4f 4e 1c 09 31 33 36 30 20 52 45 4d 20 09 15 31 33 37 30 20 50 52 4f 43 20 43 45 4c ┆RATION 1360 REM 1370 PROC CEL┆
0x01f60…01f80 4c 4f 4e 28 59 2c 58 29 15 09 31 33 38 30 20 52 45 4d 20 09 3e 31 33 39 30 20 52 45 4d 20 57 52 ┆LON(Y,X) 1380 REM >1390 REM WR┆
0x01f80…01fa0 49 54 45 20 54 57 4f 20 53 54 41 52 53 20 49 4e 20 50 4f 53 49 54 49 4f 4e 20 28 58 2d 31 2c 59 ┆ITE TWO STARS IN POSITION (X-1,Y┆
0x01fa0…01fc0 29 20 41 53 20 41 20 4c 49 56 49 4e 47 20 43 45 4c 4c 2e 3e 09 31 34 30 30 20 52 45 4d 20 09 11 ┆) AS A LIVING CELL.> 1400 REM ┆
0x01fc0…01fe0 31 34 31 30 20 43 55 52 53 4f 52 20 58 2d 31 2c 59 11 12 31 34 32 30 20 50 52 49 4e 54 20 22 3c ┆1410 CURSOR X-1,Y 1420 PRINT "<┆
0x01fe0…02000 53 3e 2a 2a 22 12 14 31 34 33 30 20 45 4e 44 50 52 4f 43 20 3b 43 45 4c 4c 4f 4e 14 09 31 34 34 ┆S>**" 1430 ENDPROC ;CELLON 144┆
0x02000…02020 (3, 0, 6) 30 20 52 45 4d 20 09 16 31 34 35 30 20 50 52 4f 43 20 43 45 4c 4c 4f 46 46 28 59 2c 58 29 16 09 ┆0 REM 1450 PROC CELLOFF(Y,X) ┆
0x02020…02040 31 34 36 30 20 52 45 4d 20 09 3c 31 34 37 30 20 52 45 4d 20 57 52 49 54 45 20 54 57 4f 20 53 50 ┆1460 REM <1470 REM WRITE TWO SP┆
0x02040…02060 41 43 45 53 20 49 4e 20 50 4f 53 49 54 49 4f 4e 20 28 58 2d 31 2c 59 29 20 41 53 20 41 20 44 45 ┆ACES IN POSITION (X-1,Y) AS A DE┆
0x02060…02080 41 44 20 43 45 4c 4c 3c 09 31 34 38 30 20 52 45 4d 20 09 11 31 34 39 30 20 43 55 52 53 4f 52 20 ┆AD CELL< 1480 REM 1490 CURSOR ┆
0x02080…020a0 58 2d 31 2c 59 11 12 31 35 30 30 20 50 52 49 4e 54 20 22 3c 53 3e 20 20 22 12 15 31 35 31 30 20 ┆X-1,Y 1500 PRINT "<S> " 1510 ┆
0x020a0…020c0 45 4e 44 50 52 4f 43 20 3b 43 45 4c 4c 4f 46 46 15 09 31 35 32 30 20 52 45 4d 20 09 18 31 35 33 ┆ENDPROC ;CELLOFF 1520 REM 153┆
0x020c0…020e0 30 20 50 52 4f 43 20 4e 45 58 54 47 45 4e 45 52 41 54 49 4f 4e 18 10 31 35 34 30 20 52 4f 57 3d ┆0 PROC NEXTGENERATION 1540 ROW=┆
0x020e0…02100 4d 41 58 52 4f 57 31 10 10 31 35 35 30 20 43 4f 4c 3d 4d 41 58 43 4f 4c 31 10 1c 31 35 36 30 20 ┆MAXROW1 1550 COL=MAXCOL1 1560 ┆
0x02100…02120 (3, 0, 7) 47 45 4e 45 52 41 54 49 4f 4e 3d 47 45 4e 45 52 41 54 49 4f 4e 2b 31 1c 16 31 35 37 30 20 46 4f ┆GENERATION=GENERATION+1 1570 FO┆
0x02120…02140 52 20 49 3d 32 20 54 4f 20 4d 41 58 52 4f 57 16 16 31 35 38 30 20 46 4f 52 20 4a 3d 32 20 54 4f ┆R I=2 TO MAXROW 1580 FOR J=2 TO┆
0x02140…02160 20 4d 41 58 43 4f 4c 16 20 31 35 39 30 20 53 41 56 42 4f 41 52 44 28 49 2c 4a 29 3d 41 43 54 42 ┆ MAXCOL 1590 SAVBOARD(I,J)=ACTB┆
0x02160…02180 4f 41 52 44 28 49 2c 4a 29 20 0b 31 36 30 30 20 4e 45 58 54 20 4a 0b 0b 31 36 31 30 20 4e 45 58 ┆OARD(I,J) 1600 NEXT J 1610 NEX┆
0x02180…021a0 54 20 49 0b 10 31 36 32 30 20 43 55 52 53 4f 52 20 33 33 2c 31 10 26 31 36 33 30 20 50 52 49 4e ┆T I 1620 CURSOR 33,1 &1630 PRIN┆
0x021a0…021c0 54 20 55 53 49 4e 47 20 22 3c 53 3e 20 23 23 23 23 22 3a 47 45 4e 45 52 41 54 49 4f 4e 26 18 31 ┆T USING "<S> ####":GENERATION& 1┆
0x021c0…021e0 36 34 30 20 46 4f 52 20 52 4f 57 3d 32 20 54 4f 20 4d 41 58 52 4f 57 18 18 31 36 35 30 20 46 4f ┆640 FOR ROW=2 TO MAXROW 1650 FO┆
0x021e0…02200 52 20 43 4f 4c 3d 32 20 54 4f 20 4d 41 58 43 4f 4c 18 1f 31 36 36 30 20 43 41 53 45 20 53 41 56 ┆R COL=2 TO MAXCOL 1660 CASE SAV┆
0x02200…02220 (3, 0, 8) 42 4f 41 52 44 28 52 4f 57 2c 43 4f 4c 29 20 4f 46 20 1f 0b 31 36 37 30 20 57 48 45 4e 20 33 0b ┆BOARD(ROW,COL) OF 1670 WHEN 3 ┆
0x02220…02240 09 31 36 38 30 20 52 45 4d 20 09 1c 31 36 39 30 20 52 45 4d 20 41 20 4e 45 57 20 43 45 4c 4c 20 ┆ 1680 REM 1690 REM A NEW CELL ┆
0x02240…02260 49 53 20 42 4f 52 4e 21 1c 09 31 37 30 30 20 52 45 4d 20 09 23 31 37 31 30 20 45 58 45 43 20 53 ┆IS BORN! 1700 REM #1710 EXEC S┆
0x02260…02280 45 54 43 45 4c 4c 28 41 43 54 42 4f 41 52 44 2c 52 4f 57 2c 43 4f 4c 29 23 1f 31 37 32 30 20 45 ┆ETCELL(ACTBOARD,ROW,COL)# 1720 E┆
0x02280…022a0 58 45 43 20 43 45 4c 4c 4f 4e 28 52 4f 57 2c 28 43 4f 4c 2d 31 29 2a 32 29 1f 1d 31 37 33 30 20 ┆XEC CELLON(ROW,(COL-1)*2) 1730 ┆
0x022a0…022c0 57 48 45 4e 20 39 2c 31 30 2c 31 33 2c 31 34 2c 31 35 2c 31 36 2c 31 37 1d 09 31 37 34 30 20 52 ┆WHEN 9,10,13,14,15,16,17 1740 R┆
0x022c0…022e0 45 4d 20 09 2f 31 37 35 30 20 52 45 4d 20 41 20 43 45 4c 4c 20 44 49 45 53 2e 20 49 46 20 39 20 ┆EM /1750 REM A CELL DIES. IF 9 ┆
0x022e0…02300 4f 52 20 31 30 20 46 4f 52 20 4c 4f 4e 45 4c 49 4e 45 53 53 2f 35 31 37 36 30 20 52 45 4d 20 5f ┆OR 10 FOR LONELINESS/51760 REM _┆
0x02300…02320 (3, 0, 9) 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 31 33 20 54 4f 20 31 37 20 42 45 43 41 55 53 45 20 ┆ IF 13 TO 17 BECAUSE ┆
0x02320…02340 54 4f 4f 20 43 52 4f 57 44 45 44 35 09 31 37 37 30 20 52 45 4d 20 09 26 31 37 38 30 20 45 58 45 ┆TOO CROWDED5 1770 REM &1780 EXE┆
0x02340…02360 43 20 52 45 4d 4f 56 45 43 45 4c 4c 28 41 43 54 42 4f 41 52 44 2c 52 4f 57 2c 43 4f 4c 29 26 20 ┆C REMOVECELL(ACTBOARD,ROW,COL)& ┆
0x02360…02380 31 37 39 30 20 45 58 45 43 20 43 45 4c 4c 4f 46 46 28 52 4f 57 2c 28 43 4f 4c 2d 31 29 2a 32 29 ┆1790 EXEC CELLOFF(ROW,(COL-1)*2)┆
0x02380…023a0 20 0d 31 38 30 30 20 45 4e 44 43 41 53 45 20 0d 0d 31 38 31 30 20 4e 45 58 54 20 43 4f 4c 0d 0d ┆ 1800 ENDCASE 1810 NEXT COL ┆
0x023a0…023c0 31 38 32 30 20 4e 45 58 54 20 52 4f 57 0d 1c 31 38 33 30 20 45 4e 44 50 52 4f 43 20 3b 4e 45 58 ┆1820 NEXT ROW 1830 ENDPROC ;NEX┆
0x023c0…023e0 54 47 45 4e 45 52 41 54 49 4f 4e 1c 09 31 38 34 30 20 52 45 4d 20 09 19 31 38 35 30 20 50 52 4f ┆TGENERATION 1840 REM 1850 PRO┆
0x023e0…02400 43 20 50 52 49 4e 54 47 45 4e 45 52 41 54 49 4f 4e 19 18 31 38 36 30 20 46 4f 52 20 52 4f 57 3d ┆C PRINTGENERATION 1860 FOR ROW=┆
0x02400…02420 (4, 0, 1) 32 20 54 4f 20 4d 41 58 52 4f 57 18 18 31 38 37 30 20 46 4f 52 20 43 4f 4c 3d 32 20 54 4f 20 4d ┆2 TO MAXROW 1870 FOR COL=2 TO M┆
0x02420…02440 41 58 43 4f 4c 18 3b 31 38 38 30 20 49 46 20 41 43 54 42 4f 41 52 44 28 52 4f 57 2c 43 4f 4c 29 ┆AXCOL ;1880 IF ACTBOARD(ROW,COL)┆
0x02440…02460 3e 38 20 54 48 45 4e 20 45 58 45 43 20 43 45 4c 4c 4f 4e 28 52 4f 57 2c 28 43 4f 4c 2d 31 29 2a ┆>8 THEN EXEC CELLON(ROW,(COL-1)*┆
0x02460…02480 32 29 3b 0d 31 38 39 30 20 4e 45 58 54 20 43 4f 4c 0d 0d 31 39 30 30 20 4e 45 58 54 20 52 4f 57 ┆2); 1890 NEXT COL 1900 NEXT ROW┆
0x02480…024a0 0d 1d 31 39 31 30 20 45 4e 44 50 52 4f 43 20 3b 50 52 49 4e 54 47 45 4e 45 52 41 54 49 4f 4e 1d ┆ 1910 ENDPROC ;PRINTGENERATION ┆
0x024a0…024c0 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…]
0x02500…02520 (4, 0, 2) ExtentHdr {name=»TVSPIL «, typ=»K«, seg=»A«, next=0x00, basis=0x0004, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,05 (0x002900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x02520…02540 0b 30 31 30 30 20 43 4c 45 41 52 20 0b 1c 30 31 31 30 20 46 4f 52 20 52 4f 57 3d 31 20 54 4f 20 ┆ 0100 CLEAR 0110 FOR ROW=1 TO ┆
0x02540…02560 37 36 20 53 54 45 50 20 31 31 1c 1b 30 31 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 2a 2a 2a 2a ┆76 STEP 11 0130 PRINT "<S>*****┆
0x02560…02580 2a 2a 2a 2a 2a 2a 22 1b 0d 30 31 34 30 20 4e 45 58 54 20 52 4f 57 0d 12 30 31 34 35 20 50 52 49 ┆******" 0140 NEXT ROW 0145 PRI┆
0x02580…025a0 4e 54 20 22 3c 53 3e 2a 2a 22 12 14 30 31 35 30 20 46 4f 52 20 43 4f 4c 3d 31 20 54 4f 20 32 34 ┆NT "<S>**" 0150 FOR COL=1 TO 24┆
0x025a0…025c0 14 12 30 31 36 30 20 43 55 52 53 4f 52 20 37 39 2c 43 4f 4c 12 2a 30 31 37 30 20 49 46 20 43 4f ┆ 0160 CURSOR 79,COL *0170 IF CO┆
0x025c0…025e0 4c 3c 31 30 20 4f 52 20 43 4f 4c 3e 31 34 20 54 48 45 4e 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 ┆L<10 OR COL>14 THEN PRINT "<S>*"┆
0x025e0…02600 2a 0d 30 31 38 30 20 4e 45 58 54 20 43 4f 4c 0d 1d 30 31 39 30 20 46 4f 52 20 52 4f 57 3d 36 38 ┆* 0180 NEXT COL 0190 FOR ROW=68┆
0x02600…02620 (4, 0, 3) 20 54 4f 20 31 20 53 54 45 50 20 2d 31 31 1d 12 30 32 30 30 20 43 55 52 53 4f 52 20 52 4f 57 2c ┆ TO 1 STEP -11 0200 CURSOR ROW,┆
0x02620…02640 32 34 12 1b 30 32 31 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 22 1b ┆24 0210 PRINT "<S>***********" ┆
0x02640…02660 0d 30 32 32 30 20 4e 45 58 54 20 52 4f 57 0d 1c 30 32 33 30 20 46 4f 52 20 43 4f 4c 3d 32 34 20 ┆ 0220 NEXT ROW 0230 FOR COL=24 ┆
0x02660…02680 54 4f 20 32 20 53 54 45 50 20 2d 31 1c 11 30 32 34 30 20 43 55 52 53 4f 52 20 31 2c 43 4f 4c 11 ┆TO 2 STEP -1 0240 CURSOR 1,COL ┆
0x02680…026a0 11 30 32 35 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 11 0d 30 32 36 30 20 4e 45 58 54 20 43 4f ┆ 0250 PRINT "<S>*" 0260 NEXT CO┆
0x026a0…026c0 4c 0d 0c 30 32 37 30 20 52 45 50 45 41 54 20 0c 0d 30 32 38 30 20 59 44 45 4c 54 41 3d 31 0d 0d ┆L 0270 REPEAT 0280 YDELTA=1 ┆
0x026c0…026e0 30 32 39 30 20 58 44 45 4c 54 41 3d 31 0d 08 30 33 30 30 20 5a 3d 30 08 17 30 33 31 30 20 58 3d ┆0290 XDELTA=1 0300 Z=0 0310 X=┆
0x026e0…02700 49 4e 54 28 52 4e 44 28 5a 29 2a 37 35 2b 32 29 17 17 30 33 32 30 20 59 3d 49 4e 54 28 52 4e 44 ┆INT(RND(Z)*75+2) 0320 Y=INT(RND┆
0x02700…02720 (4, 0, 4) 28 5a 29 2a 32 30 2b 32 29 17 0c 30 33 33 30 20 52 45 50 45 41 54 20 0c 29 30 33 34 30 20 49 46 ┆(Z)*20+2) 0330 REPEAT )0340 IF┆
0x02720…02740 20 58 3e 37 38 2e 35 20 4f 52 20 58 3c 32 20 54 48 45 4e 20 58 44 45 4c 54 41 3d 2d 58 44 45 4c ┆ X>78.5 OR X<2 THEN XDELTA=-XDEL┆
0x02740…02760 54 41 29 27 30 33 35 30 20 49 46 20 59 3e 32 33 20 4f 52 20 59 3c 32 20 54 48 45 4e 20 59 44 45 ┆TA)'0350 IF Y>23 OR Y<2 THEN YDE┆
0x02760…02780 4c 54 41 3d 2d 59 44 45 4c 54 41 27 30 30 33 36 30 20 49 46 20 58 3d 37 39 20 41 4e 44 20 28 59 ┆LTA=-YDELTA'00360 IF X=79 AND (Y┆
0x02780…027a0 3d 3e 39 2e 35 20 41 4e 44 20 59 3c 3d 31 34 2e 35 29 20 54 48 45 4e 20 45 58 49 54 20 30 0f 30 ┆=>9.5 AND Y<=14.5) THEN EXIT 0 0┆
0x027a0…027c0 33 37 30 20 43 55 52 53 4f 52 20 58 2c 59 0f 0f 30 33 38 30 20 59 3d 59 2b 59 44 45 4c 54 41 0f ┆370 CURSOR X,Y 0380 Y=Y+YDELTA ┆
0x027c0…027e0 0f 30 33 39 30 20 58 3d 58 2b 58 44 45 4c 54 41 0f 0e 30 34 30 30 20 55 4e 54 49 4c 20 30 3d 31 ┆ 0390 X=X+XDELTA 0400 UNTIL 0=1┆
0x027e0…02800 0e 11 30 34 31 30 20 43 55 52 53 4f 52 20 36 35 2c 31 32 11 1d 30 34 32 30 20 50 52 49 4e 54 20 ┆ 0410 CURSOR 65,12 0420 PRINT ┆
0x02800…02820 (4, 0, 5) 22 3c 53 3e 4d 20 20 41 20 20 41 20 20 4c 20 20 21 22 1d 15 30 34 33 30 20 46 4f 52 20 56 45 4e ┆"<S>M A A L !" 0430 FOR VEN┆
0x02820…02840 54 3d 31 20 54 4f 20 31 30 15 0e 30 34 34 30 20 4e 45 58 54 20 56 45 4e 54 0e 11 30 34 35 30 20 ┆T=1 TO 10 0440 NEXT VENT 0450 ┆
0x02840…02860 43 55 52 53 4f 52 20 36 35 2c 31 32 11 1a 30 34 36 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 ┆CURSOR 65,12 0460 PRINT " ┆
0x02860…02880 20 20 20 20 20 20 2e 22 1a 0e 30 34 37 30 20 55 4e 54 49 4c 20 30 3d 31 0e 00 00 00 00 00 00 00 ┆ ." 0470 UNTIL 0=1 ┆
0x02880…028a0 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…]
0x02900…02920 (4, 0, 6) ExtentHdr {name=»PLOTE «, typ=»K«, seg=»A«, next=0x01, basis=0x0002, nextext={DA 0004,07 (0x002b00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0004,07 (0x002b00)}, f99=41 04 00 fe 00 00 00 00 00 00 ┆A ┆}
0x02920…02940 30 30 31 30 30 20 44 45 46 20 44 41 45 4d 50 45 54 53 56 28 58 29 3d 31 34 2a 45 58 50 28 2d 58 ┆00100 DEF DAEMPETSV(X)=14*EXP(-X┆
0x02940…02960 2f 50 29 2a 43 4f 53 28 58 2f 32 2e 35 29 2b 31 32 30 12 30 31 31 30 20 44 49 4d 20 41 4b 53 45 ┆/P)*COS(X/2.5)+120 0110 DIM AKSE┆
0x02960…02980 24 28 38 30 29 12 0c 30 31 32 30 20 52 45 50 45 41 54 20 0c 19 30 31 33 30 20 46 4f 52 20 50 3d ┆$(80) 0120 REPEAT 0130 FOR P=┆
0x02980…029a0 35 20 54 4f 20 32 35 20 53 54 45 50 20 35 19 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 1a 30 31 35 ┆5 TO 25 STEP 5 0140 CLEAR 015┆
0x029a0…029c0 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 37 31 20 53 54 45 50 20 31 30 1a 1d 30 31 36 30 20 41 4b ┆0 FOR I=1 TO 71 STEP 10 0160 AK┆
0x029c0…029e0 53 45 24 28 49 3a 31 30 29 3d 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 0b 30 31 37 30 20 4e 45 58 ┆SE$(I:10)="----------" 0170 NEX┆
0x029e0…02a00 54 20 49 0b 10 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 16 30 31 39 30 20 50 52 49 4e ┆T I 0180 CURSOR 1,12 0190 PRIN┆
0x02a00…02a20 (4, 0, 7) 54 20 41 4b 53 45 24 28 31 3a 37 39 29 16 0f 30 31 39 35 20 43 55 52 53 4f 52 20 31 2c 31 0f 12 ┆T AKSE$(1:79) 0195 CURSOR 1,1 ┆
0x02a20…02a40 30 32 30 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 32 33 12 0e 30 32 30 35 20 50 52 49 4e 54 20 22 ┆0200 FOR I=1 TO 23 0205 PRINT "┆
0x02a40…02a60 49 22 0e 0b 30 32 31 30 20 4e 45 58 54 20 49 0b 11 30 32 31 35 20 50 52 49 4e 54 20 22 3c 53 3e ┆I" 0210 NEXT I 0215 PRINT "<S>┆
0x02a60…02a80 49 22 11 12 30 32 34 30 20 46 4f 52 20 58 3d 31 20 54 4f 20 37 39 12 17 30 32 35 30 20 4c 45 54 ┆I" 0240 FOR X=1 TO 79 0250 LET┆
0x02a80…02aa0 20 59 3d 44 41 45 4d 50 45 54 53 56 28 58 29 17 0f 30 32 36 30 20 43 55 52 53 4f 52 20 58 2c 59 ┆ Y=DAEMPETSV(X) 0260 CURSOR X,Y┆
0x02aa0…02ac0 0f 12 30 32 37 30 20 50 52 49 4e 54 20 22 3c 53 3e 2a 22 3b 12 0b 30 32 38 30 20 4e 45 58 54 20 ┆ 0270 PRINT "<S>*"; 0280 NEXT ┆
0x02ac0…02ae0 58 0b 10 30 32 39 30 20 43 55 52 53 4f 52 20 31 2c 32 34 10 15 30 33 30 30 20 46 4f 52 20 56 45 ┆X 0290 CURSOR 1,24 0300 FOR VE┆
0x02ae0…02b00 4e 54 3d 31 20 54 4f 20 31 30 15 0e 30 33 31 30 20 4e 45 58 54 20 56 45 4e 54 0e 0b 30 33 32 30 ┆NT=1 TO 10 0310 NEXT VENT 0320┆
0x02b00…02b20 (4, 0, 8) ExtentHdr {name=»PLOTE «, typ=»K«, seg=»B«, next=0x01, basis=0x0002, nextext={DA 0000,00 (0x000000)}, prevext={DA 0004,05 (0x002900)}, nextfile={DA 0005,00 (0x002d00)}, f99=41 04 00 20 00 00 00 00 00 00 ┆A ┆}
0x02b20…02b40 20 4e 45 58 54 20 50 0b 0e 30 33 33 30 20 55 4e 54 49 4c 20 31 3d 30 0e 0a 30 33 34 30 20 53 54 ┆ NEXT P 0330 UNTIL 1=0 0340 ST┆
0x02b40…02b60 4f 50 20 0a 00 00 00 00 58 2f 32 2e 35 29 2b 31 32 30 12 30 31 31 30 20 44 49 4d 20 41 4b 53 45 ┆OP X/2.5)+120 0110 DIM AKSE┆
0x02b60…02b80 24 28 38 30 29 12 0c 30 31 32 30 20 52 45 50 45 41 54 20 0c 19 30 31 33 30 20 46 4f 52 20 50 3d ┆$(80) 0120 REPEAT 0130 FOR P=┆
0x02b80…02ba0 35 20 54 4f 20 32 35 20 53 54 45 50 20 35 19 0b 30 31 34 30 20 43 4c 45 41 52 20 0b 1a 30 31 35 ┆5 TO 25 STEP 5 0140 CLEAR 015┆
0x02ba0…02bc0 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 37 31 20 53 54 45 50 20 31 30 1a 1d 30 31 36 30 20 41 4b ┆0 FOR I=1 TO 71 STEP 10 0160 AK┆
0x02bc0…02be0 53 45 24 28 49 3a 31 30 29 3d 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 22 1d 0b 30 31 37 30 20 4e 45 58 ┆SE$(I:10)="----------" 0170 NEX┆
0x02be0…02c00 54 20 49 0b 10 30 31 38 30 20 43 55 52 53 4f 52 20 31 2c 31 32 10 16 30 31 39 30 20 50 52 49 4e ┆T I 0180 CURSOR 1,12 0190 PRIN┆
0x02c00…02d00 (4, 0, 9) 0x00[0x100]
0x02d00…02d20 (5, 0, 1) ExtentHdr {name=»NORMAL «, typ=»K«, seg=»A«, next=0x00, basis=0x0003, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,03 (0x003000)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x02d20…02d40 30 30 30 30 30 20 52 45 4d 20 47 52 41 46 49 53 4b 20 46 52 45 4d 53 54 49 4c 4c 49 4e 47 20 41 ┆00000 REM GRAFISK FREMSTILLING A┆
0x02d40…02d60 46 20 4e 4f 52 4d 41 4c 46 4f 52 44 45 4c 49 4e 47 30 09 30 30 31 30 20 52 45 4d 20 09 11 30 30 ┆F NORMALFORDELING0 0010 REM 00┆
0x02d60…02d80 32 30 20 44 49 4d 20 4c 49 4e 24 28 32 30 29 11 1f 30 30 33 30 20 4c 49 4e 24 3d 22 20 23 23 23 ┆20 DIM LIN$(20) 0030 LIN$=" ###┆
0x02d80…02da0 23 2e 23 23 20 20 20 23 23 2e 23 23 23 23 20 22 1f 12 30 30 34 30 20 44 49 4d 20 47 52 41 46 24 ┆#.## ##.#### " 0040 DIM GRAF$┆
0x02da0…02dc0 28 36 30 29 12 20 30 30 35 30 20 50 52 49 4e 54 20 22 49 6e 64 74 61 73 74 20 6d 69 64 64 65 6c ┆(60) 0050 PRINT "Indtast middel┆
0x02dc0…02de0 76 7b 72 64 69 22 20 11 30 30 36 30 20 49 4e 50 55 54 20 4d 49 44 44 45 4c 11 0b 30 30 37 30 20 ┆værdi" 0060 INPUT MIDDEL 0070 ┆
0x02de0…02e00 50 52 49 4e 54 20 0b 1f 30 30 38 30 20 50 52 49 4e 54 20 22 49 4e 44 54 41 53 54 20 53 50 52 45 ┆PRINT 0080 PRINT "INDTAST SPRE┆
0x02e00…02e20 (5, 0, 2) 44 4e 49 4e 47 20 22 1f 10 30 30 39 30 20 49 4e 50 55 54 20 53 50 52 45 44 10 0b 30 31 30 30 20 ┆DNING " 0090 INPUT SPRED 0100 ┆
0x02e20…02e40 50 52 49 4e 54 20 0b 4a 30 31 31 30 20 50 52 49 4e 54 20 22 58 2d 56 5b 52 44 49 20 3a 20 46 52 ┆PRINT J0110 PRINT "X-VÆRDI : FR┆
0x02e40…02e60 45 4b 56 45 4e 53 20 3a 20 4d 49 44 44 45 4c 56 5b 52 44 49 20 3d 22 3b 4d 49 44 44 45 4c 3b 22 ┆EKVENS : MIDDELVÆRDI =";MIDDEL;"┆
0x02e60…02e80 53 50 52 45 44 4e 49 4e 47 20 3d 22 3b 53 50 52 45 44 4a 0b 30 31 32 30 20 50 52 49 4e 54 20 0b ┆SPREDNING =";SPREDJ 0120 PRINT ┆
0x02e80…02ea0 38 30 31 33 30 20 46 4f 52 20 58 3d 4d 49 44 44 45 4c 2d 32 2a 53 50 52 45 44 20 54 4f 20 4d 49 ┆80130 FOR X=MIDDEL-2*SPRED TO MI┆
0x02ea0…02ec0 44 44 45 4c 2b 32 2a 53 50 52 45 44 20 53 54 45 50 20 53 50 52 45 44 2f 34 38 39 30 31 34 30 20 ┆DDEL+2*SPRED STEP SPRED/4890140 ┆
0x02ec0…02ee0 50 58 3d 31 2f 53 50 52 45 44 2f 53 51 52 28 32 2a 33 2e 31 34 31 35 29 2a 45 58 50 28 2d 28 58 ┆PX=1/SPRED/SQR(2*3.1415)*EXP(-(X┆
0x02ee0…02f00 2d 4d 49 44 44 45 4c 29 2a 28 58 2d 4d 49 44 44 45 4c 29 29 39 1a 30 31 35 30 20 50 52 49 4e 54 ┆-MIDDEL)*(X-MIDDEL))9 0150 PRINT┆
0x02f00…02f20 (5, 0, 3) 20 55 53 49 4e 47 20 4c 49 4e 24 3a 58 2c 50 58 1a 1b 30 31 36 30 20 49 4e 44 3d 49 4e 54 28 50 ┆ USING LIN$:X,PX 0160 IND=INT(P┆
0x02f20…02f40 58 2a 36 30 2f 30 2e 34 2b 30 2e 35 29 1b 12 30 31 37 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 36 ┆X*60/0.4+0.5) 0170 FOR I=1 TO 6┆
0x02f40…02f60 30 12 13 30 31 38 30 20 47 52 41 46 24 28 49 3a 31 29 3d 22 20 22 13 0b 30 31 39 30 20 4e 45 58 ┆0 0180 GRAF$(I:1)=" " 0190 NEX┆
0x02f60…02f80 54 20 49 0b 17 30 32 30 30 20 47 52 41 46 24 28 49 4e 44 2b 31 3a 31 29 3d 22 58 22 17 10 30 32 ┆T I 0200 GRAF$(IND+1:1)="X" 02┆
0x02f80…02fa0 31 30 20 50 52 49 4e 54 20 47 52 41 46 24 10 0b 30 32 32 30 20 4e 45 58 54 20 58 0b 09 30 32 33 ┆10 PRINT GRAF$ 0220 NEXT X 023┆
0x02fa0…02fc0 30 20 45 4e 44 20 09 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 ┆0 END ┆
0x02fc0…02fe0 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…]
0x03000…03020 (5, 0, 4) ExtentHdr {name=»QUICKSRT«, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0005,08 (0x003500)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0005,08 (0x003500)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x03020…03040 22 30 30 31 30 20 52 45 4d 20 44 44 45 20 54 45 53 54 50 52 4f 47 52 41 4d 20 51 55 49 43 4b 53 ┆"0010 REM DDE TESTPROGRAM QUICKS┆
0x03040…03060 4f 52 54 22 10 30 30 32 30 20 44 49 4d 20 4d 41 54 24 28 36 29 10 09 30 30 33 30 20 52 45 4d 20 ┆ORT" 0020 DIM MAT$(6) 0030 REM ┆
0x03060…03080 09 0f 30 30 34 30 20 50 52 4f 43 20 51 55 49 43 4b 0f 09 30 30 35 30 20 4d 3d 31 32 09 12 30 30 ┆ 0040 PROC QUICK 0050 M=12 00┆
0x03080…030a0 36 30 20 44 49 4d 20 53 54 41 4b 28 4d 2c 32 29 12 14 30 30 37 30 20 56 45 4e 53 54 3d 31 3b 48 ┆60 DIM STAK(M,2) 0070 VENST=1;H┆
0x030a0…030c0 5c 4a 52 45 3d 32 14 26 30 30 38 30 20 53 2c 53 54 41 4b 28 31 2c 56 45 4e 53 54 29 3d 31 3b 53 ┆ØJRE=2 &0080 S,STAK(1,VENST)=1;S┆
0x030c0…030e0 54 41 4b 28 31 2c 48 5c 4a 52 45 29 3d 4e 26 0c 30 30 39 30 20 52 45 50 45 41 54 20 0c 2a 30 31 ┆TAK(1,HØJRE)=N& 0090 REPEAT *01┆
0x030e0…03100 30 30 20 56 3d 53 54 41 4b 28 53 2c 56 45 4e 53 54 29 3b 48 3d 53 54 41 4b 28 53 2c 48 5c 4a 52 ┆00 V=STAK(S,VENST);H=STAK(S,HØJR┆
0x03100…03120 (5, 0, 5) 45 29 3b 53 3d 53 2d 31 2a 0c 30 31 31 30 20 52 45 50 45 41 54 20 0c 1e 30 31 32 30 20 49 3d 56 ┆E);S=S-1* 0110 REPEAT 0120 I=V┆
0x03120…03140 3b 4a 3d 48 3b 58 3d 41 28 49 4e 54 28 28 56 2b 48 29 2f 32 29 29 1e 0c 30 31 33 30 20 52 45 50 ┆;J=H;X=A(INT((V+H)/2)) 0130 REP┆
0x03140…03160 45 41 54 20 0c 11 30 31 34 30 20 57 48 49 4c 45 20 41 28 49 29 3c 58 11 0a 30 31 35 30 20 49 3d ┆EAT 0140 WHILE A(I)<X 0150 I=┆
0x03160…03180 49 2b 31 0a 0e 30 31 36 30 20 45 4e 44 57 48 49 4c 45 20 0e 11 30 31 37 30 20 57 48 49 4c 45 20 ┆I+1 0160 ENDWHILE 0170 WHILE ┆
0x03180…031a0 58 3c 41 28 4a 29 11 0a 30 31 38 30 20 4a 3d 4a 2d 31 0a 0e 30 31 39 30 20 45 4e 44 57 48 49 4c ┆X<A(J) 0180 J=J-1 0190 ENDWHIL┆
0x031a0…031c0 45 20 0e 12 30 32 30 30 20 49 46 20 49 3c 3d 4a 20 54 48 45 4e 20 12 1c 30 32 31 30 20 57 3d 41 ┆E 0200 IF I<=J THEN 0210 W=A┆
0x031c0…031e0 28 49 29 3b 41 28 49 29 3d 41 28 4a 29 3b 41 28 4a 29 3d 57 1c 10 30 32 32 30 20 49 3d 49 2b 31 ┆(I);A(I)=A(J);A(J)=W 0220 I=I+1┆
0x031e0…03200 3b 4a 3d 4a 2d 31 10 0b 30 32 33 30 20 45 4e 44 49 46 20 0b 0e 30 32 34 30 20 55 4e 54 49 4c 20 ┆;J=J-1 0230 ENDIF 0240 UNTIL ┆
0x03200…03220 (5, 0, 6) 49 3e 4a 0e 11 30 32 35 30 20 49 46 20 49 3c 48 20 54 48 45 4e 20 11 0a 30 32 36 30 20 53 3d 53 ┆I>J 0250 IF I<H THEN 0260 S=S┆
0x03220…03240 2b 31 0a 14 30 32 37 30 20 53 54 41 4b 28 53 2c 56 45 4e 53 54 29 3d 49 14 14 30 32 38 30 20 53 ┆+1 0270 STAK(S,VENST)=I 0280 S┆
0x03240…03260 54 41 4b 28 53 2c 48 5c 4a 52 45 29 3d 48 14 0b 30 32 39 30 20 45 4e 44 49 46 20 0b 08 30 33 30 ┆TAK(S,HØJRE)=H 0290 ENDIF 030┆
0x03260…03280 30 20 48 3d 4a 08 0f 30 33 31 30 20 55 4e 54 49 4c 20 56 3d 3e 48 0f 0e 30 33 32 30 20 55 4e 54 ┆0 H=J 0310 UNTIL V=>H 0320 UNT┆
0x03280…032a0 49 4c 20 53 3d 30 0e 17 30 33 33 30 20 45 4e 44 50 52 4f 43 20 3b 51 55 49 43 4b 53 4f 52 54 17 ┆IL S=0 0330 ENDPROC ;QUICKSORT ┆
0x032a0…032c0 09 30 33 34 30 20 52 45 4d 20 09 1b 30 33 35 30 20 52 45 4d 20 2a 2a 20 48 4f 56 45 44 50 52 4f ┆ 0340 REM 0350 REM ** HOVEDPRO┆
0x032c0…032e0 47 52 41 4d 20 2a 2a 1b 1e 30 33 36 30 20 50 52 49 4e 54 20 22 51 55 49 43 4b 53 4f 52 54 20 50 ┆GRAM ** 0360 PRINT "QUICKSORT P┆
0x032e0…03300 52 4f 47 52 41 4d 22 1e 0b 30 33 37 30 20 50 52 49 4e 54 20 0b 42 30 33 38 30 20 50 52 49 4e 54 ┆ROGRAM" 0370 PRINT B0380 PRINT┆
0x03300…03320 (5, 0, 7) 20 22 50 52 4f 47 52 41 4d 4d 45 54 20 47 45 4e 45 52 45 52 20 45 54 20 42 52 55 47 45 52 42 45 ┆ "PROGRAMMET GENERER ET BRUGERBE┆
0x03320…03340 53 54 45 4d 54 20 41 4e 54 41 4c 20 54 49 4c 46 41 45 4c 44 49 47 45 22 42 40 30 33 39 30 20 50 ┆STEMT ANTAL TILFAELDIGE"B@0390 P┆
0x03340…03360 52 49 4e 54 20 22 54 41 4c 20 49 20 49 4e 54 45 52 56 41 4c 4c 45 54 20 5b 30 3a 31 30 30 5d 2c ┆RINT "TAL I INTERVALLET Æ0:100Å,┆
0x03360…03380 20 48 56 4f 52 45 46 54 45 52 20 44 49 53 53 45 20 53 4f 52 54 45 52 45 53 22 40 22 30 34 30 30 ┆ HVOREFTER DISSE SORTERES"@"0400┆
0x03380…033a0 20 50 52 49 4e 54 20 22 45 46 54 45 52 20 53 54 49 47 45 4e 44 45 20 56 41 45 52 44 49 22 22 0b ┆ PRINT "EFTER STIGENDE VAERDI"" ┆
0x033a0…033c0 30 34 31 30 20 50 52 49 4e 54 20 0b 32 30 34 32 30 20 50 52 49 4e 54 20 22 41 4e 54 41 4c 20 45 ┆0410 PRINT 20420 PRINT "ANTAL E┆
0x033c0…033e0 4c 45 4d 45 4e 54 45 52 2c 20 44 45 52 20 4f 45 4e 53 4b 45 53 20 53 4f 52 54 45 52 45 54 22 32 ┆LEMENTER, DER OENSKES SORTERET"2┆
0x033e0…03400 0c 30 34 33 30 20 49 4e 50 55 54 20 4e 0c 0d 30 34 34 30 20 44 49 4d 20 41 28 4e 29 0d 34 30 34 ┆ 0430 INPUT N 0440 DIM A(N) 404┆
0x03400…03420 (5, 0, 8) 35 30 20 50 52 49 4e 54 20 22 46 4f 45 4c 47 45 4e 44 45 22 3b 4e 3b 22 54 49 4c 46 41 45 4c 44 ┆50 PRINT "FOELGENDE";N;"TILFAELD┆
0x03420…03440 49 47 45 20 54 41 4c 20 53 4f 52 54 45 52 45 53 3a 22 34 12 30 34 36 30 20 4d 41 54 24 3d 22 23 ┆IGE TAL SORTERES:"4 0460 MAT$="#┆
0x03440…03460 23 23 23 2e 23 22 12 11 30 34 37 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 4e 11 14 30 34 38 30 20 ┆###.#" 0470 FOR I=1 TO N 0480 ┆
0x03460…03480 41 28 49 29 3d 52 4e 44 28 49 29 2a 31 30 30 14 1b 30 34 39 30 20 50 52 49 4e 54 20 55 53 49 4e ┆A(I)=RND(I)*100 0490 PRINT USIN┆
0x03480…034a0 47 20 4d 41 54 24 3a 41 28 49 29 3b 1b 0b 30 35 30 30 20 4e 45 58 54 20 49 0b 0b 30 35 31 30 20 ┆G MAT$:A(I); 0500 NEXT I 0510 ┆
0x034a0…034c0 50 52 49 4e 54 20 0b 0f 30 35 32 30 20 45 58 45 43 20 51 55 49 43 4b 0f 0b 30 35 33 30 20 50 52 ┆PRINT 0520 EXEC QUICK 0530 PR┆
0x034c0…034e0 49 4e 54 20 0b 22 30 35 34 30 20 50 52 49 4e 54 20 22 52 45 53 55 4c 54 41 54 20 41 46 20 53 4f ┆INT "0540 PRINT "RESULTAT AF SO┆
0x034e0…03500 52 54 45 52 49 4e 47 22 22 11 30 35 35 30 20 46 4f 52 20 49 3d 31 20 54 4f 20 4e 11 1b 30 35 36 ┆RTERING"" 0550 FOR I=1 TO N 056┆
0x03500…03520 (5, 0, 9) ExtentHdr {name=»QUICKSRT«, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0005,03 (0x003000)}, nextfile={DA 0006,04 (0x003a00)}, f99=00 00 00 20 00 00 00 00 00 00 ┆ ┆}
0x03520…03540 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 4d 41 54 24 3a 41 28 49 29 3b 1b 0b 30 35 37 30 20 4e ┆0 PRINT USING MAT$:A(I); 0570 N┆
0x03540…03560 45 58 54 20 49 0b 09 30 35 38 30 20 45 4e 44 20 09 00 00 36 29 10 09 30 30 33 30 20 52 45 4d 20 ┆EXT I 0580 END 6) 0030 REM ┆
0x03560…03580 09 0f 30 30 34 30 20 50 52 4f 43 20 51 55 49 43 4b 0f 09 30 30 35 30 20 4d 3d 31 32 09 12 30 30 ┆ 0040 PROC QUICK 0050 M=12 00┆
0x03580…035a0 36 30 20 44 49 4d 20 53 54 41 4b 28 4d 2c 32 29 12 14 30 30 37 30 20 56 45 4e 53 54 3d 31 3b 48 ┆60 DIM STAK(M,2) 0070 VENST=1;H┆
0x035a0…035c0 5c 4a 52 45 3d 32 14 26 30 30 38 30 20 53 2c 53 54 41 4b 28 31 2c 56 45 4e 53 54 29 3d 31 3b 53 ┆ØJRE=2 &0080 S,STAK(1,VENST)=1;S┆
0x035c0…035e0 54 41 4b 28 31 2c 48 5c 4a 52 45 29 3d 4e 26 0c 30 30 39 30 20 52 45 50 45 41 54 20 0c 2a 30 31 ┆TAK(1,HØJRE)=N& 0090 REPEAT *01┆
0x035e0…03600 30 30 20 56 3d 53 54 41 4b 28 53 2c 56 45 4e 53 54 29 3b 48 3d 53 54 41 4b 28 53 2c 48 5c 4a 52 ┆00 V=STAK(S,VENST);H=STAK(S,HØJR┆
0x03600…03700 (6, 0, 1) 0x00[0x100]
[…0x3…]
0x03a00…03a20 (6, 0, 5) ExtentHdr {name=»RENTE «, typ=»K«, seg=»A«, next=0x01, basis=0x0005, nextext={DA 0007,00 (0x003f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0007,00 (0x003f00)}, f99=41 04 00 fe 00 45 4e 54 45 20 ┆A ENTE ┆}
0x03a20…03a40 1a 30 31 30 30 20 44 49 4d 20 54 45 4b 53 54 24 28 32 30 29 2c 53 56 24 28 31 29 1a 11 30 31 31 ┆ 0100 DIM TEKST$(20),SV$(1) 011┆
0x03a40…03a60 30 20 44 49 4d 20 4c 49 4e 24 28 35 30 29 11 15 30 31 32 30 20 44 49 4d 20 53 4c 55 54 4c 49 4e ┆0 DIM LIN$(50) 0120 DIM SLUTLIN┆
0x03a60…03a80 24 28 37 30 29 15 3e 30 31 33 30 20 4c 49 4e 24 3d 22 23 23 23 23 23 23 23 2e 23 23 20 20 20 23 ┆$(70) >0130 LIN$="#######.## #┆
0x03a80…03aa0 23 23 23 23 23 23 2e 23 23 20 20 20 20 23 23 23 23 23 23 23 2e 23 23 20 20 20 23 23 23 23 23 23 ┆######.## #######.## ######┆
0x03aa0…03ac0 23 2e 23 23 22 3e 48 30 31 34 30 20 53 4c 55 54 4c 49 4e 24 3d 22 49 20 41 4c 54 20 42 45 54 41 ┆#.##">H0140 SLUTLIN$="I ALT BETA┆
0x03ac0…03ae0 4c 54 20 52 45 4e 54 45 3a 20 23 23 23 23 23 23 23 2e 23 23 20 4f 56 45 52 20 41 4e 54 41 4c 20 ┆LT RENTE: #######.## OVER ANTAL ┆
0x03ae0…03b00 48 41 4c 56 41 41 52 3a 20 23 23 23 23 23 22 48 0c 30 31 34 35 20 52 45 50 45 41 54 20 0c 0b 30 ┆HALVAAR: #####"H 0145 REPEAT 0┆
0x03b00…03b20 (6, 0, 6) 31 35 30 20 43 4c 45 41 52 20 0b 0f 30 31 36 30 20 43 55 52 53 4f 52 20 31 2c 35 0f 2c 30 31 37 ┆150 CLEAR 0160 CURSOR 1,5 ,017┆
0x03b20…03b40 30 20 50 52 49 4e 54 20 54 41 42 28 32 30 29 2c 22 52 45 4e 54 45 42 45 52 45 47 4e 49 4e 47 53 ┆0 PRINT TAB(20),"RENTEBEREGNINGS┆
0x03b40…03b60 20 50 52 4f 47 52 41 4d 22 2c 10 30 31 38 30 20 43 55 52 53 4f 52 20 32 30 2c 38 10 22 30 31 39 ┆ PROGRAM", 0180 CURSOR 20,8 "019┆
0x03b60…03b80 30 20 49 4e 50 55 54 20 22 49 4e 44 54 41 53 54 20 54 45 4b 53 54 20 22 2c 54 45 4b 53 54 24 22 ┆0 INPUT "INDTAST TEKST ",TEKST$"┆
0x03b80…03ba0 11 30 32 30 30 20 43 55 52 53 4f 52 20 32 30 2c 31 30 11 23 30 32 31 30 20 49 4e 50 55 54 20 22 ┆ 0200 CURSOR 20,10 #0210 INPUT "┆
0x03ba0…03bc0 49 4e 44 54 41 53 54 20 48 4f 56 45 44 53 54 4f 4c 20 22 2c 48 4f 56 23 0f 30 32 32 30 20 4c 45 ┆INDTAST HOVEDSTOL ",HOV# 0220 LE┆
0x03bc0…03be0 54 20 58 30 3d 48 4f 56 0f 11 30 32 33 30 20 43 55 52 53 4f 52 20 32 30 2c 31 32 11 2a 30 32 34 ┆T X0=HOV 0230 CURSOR 20,12 *024┆
0x03be0…03c00 30 20 49 4e 50 55 54 20 22 49 4e 44 54 41 53 54 20 52 45 4e 54 45 46 4f 44 28 49 20 25 20 50 2e ┆0 INPUT "INDTAST RENTEFOD(I % P.┆
0x03c00…03c20 (6, 0, 7) 41 2e 29 20 22 2c 52 2a 12 30 32 35 30 20 4c 45 54 20 52 3d 52 2f 32 2f 31 30 30 12 11 30 32 36 ┆A.) ",R* 0250 LET R=R/2/100 026┆
0x03c20…03c40 30 20 43 55 52 53 4f 52 20 32 30 2c 31 34 11 29 30 32 37 30 20 49 4e 50 55 54 20 22 49 4e 44 54 ┆0 CURSOR 20,14 )0270 INPUT "INDT┆
0x03c40…03c60 41 53 54 20 48 41 4c 56 41 41 52 4c 49 47 20 59 44 45 4c 53 45 20 22 2c 59 29 11 30 32 38 30 20 ┆AST HALVAARLIG YDELSE ",Y) 0280 ┆
0x03c60…03c80 4c 45 54 20 58 31 3d 48 4f 56 2a 52 11 0b 30 32 39 30 20 43 4c 45 41 52 20 0b 1c 30 33 30 30 20 ┆LET X1=HOV*R 0290 CLEAR 0300 ┆
0x03c80…03ca0 49 46 20 28 58 31 2d 59 29 3e 28 2d 30 2e 30 31 29 20 54 48 45 4e 20 1c 10 30 33 31 30 20 43 55 ┆IF (X1-Y)>(-0.01) THEN 0310 CU┆
0x03ca0…03cc0 52 53 4f 52 20 31 2c 31 30 10 3f 30 33 32 30 20 50 52 49 4e 54 20 22 44 45 4e 20 4f 50 47 49 56 ┆RSOR 1,10 ?0320 PRINT "DEN OPGIV┆
0x03cc0…03ce0 4e 45 20 48 4f 56 45 44 53 54 4f 4c 20 4b 41 4e 20 49 4b 4b 45 20 41 4d 4f 52 54 49 53 45 52 45 ┆NE HOVEDSTOL KAN IKKE AMORTISERE┆
0x03ce0…03d00 53 20 4d 45 44 20 44 45 4e 22 3f 2c 30 33 33 30 20 50 52 49 4e 54 20 22 47 49 56 4e 45 20 52 45 ┆S MED DEN"?,0330 PRINT "GIVNE RE┆
0x03d00…03d20 (6, 0, 8) 4e 54 45 20 4f 47 20 44 45 4e 20 47 49 56 4e 45 20 59 44 45 4c 53 45 22 2c 0a 30 33 34 30 20 53 ┆NTE OG DEN GIVNE YDELSE", 0340 S┆
0x03d20…03d40 54 4f 50 20 0a 0b 30 33 35 30 20 45 4e 44 49 46 20 0b 0c 30 33 36 30 20 54 4f 54 52 46 3d 30 0c ┆TOP 0350 ENDIF 0360 TOTRF=0 ┆
0x03d40…03d60 0b 30 33 37 30 20 50 52 49 4e 54 20 0b 0b 30 33 38 30 20 50 52 49 4e 54 20 0b 11 30 33 39 30 20 ┆ 0370 PRINT 0380 PRINT 0390 ┆
0x03d60…03d80 50 52 49 4e 54 20 54 45 4b 53 54 24 11 0b 30 34 30 30 20 50 52 49 4e 54 20 0b 3f 30 34 31 30 20 ┆PRINT TEKST$ 0400 PRINT ?0410 ┆
0x03d80…03da0 50 52 49 4e 54 20 22 20 48 4f 56 45 44 53 54 4f 4c 20 20 20 20 20 20 20 59 44 45 4c 53 45 20 20 ┆PRINT " HOVEDSTOL YDELSE ┆
0x03da0…03dc0 20 20 20 20 20 20 20 52 45 4e 54 45 20 20 20 20 20 20 20 41 46 44 52 41 47 22 3f 0b 30 34 32 30 ┆ RENTE AFDRAG"? 0420┆
0x03dc0…03de0 20 50 52 49 4e 54 20 0b 10 30 34 33 30 20 4c 45 54 20 41 4e 54 41 4c 3d 30 10 14 30 34 34 30 20 ┆ PRINT 0430 LET ANTAL=0 0440 ┆
0x03de0…03e00 57 48 49 4c 45 20 58 30 3e 59 2d 58 30 2a 52 14 10 30 34 35 30 20 4c 45 54 20 52 46 3d 58 30 2a ┆WHILE X0>Y-X0*R 0450 LET RF=X0*┆
0x03e00…03e20 (6, 0, 9) 52 10 14 30 34 36 30 20 4c 45 54 20 41 46 44 52 41 47 3d 59 2d 52 46 14 17 30 34 37 30 20 4c 45 ┆R 0460 LET AFDRAG=Y-RF 0470 LE┆
0x03e20…03e40 54 20 54 4f 54 52 46 3d 52 46 2b 54 4f 54 52 46 17 16 30 34 38 30 20 4c 45 54 20 41 4e 54 41 4c ┆T TOTRF=RF+TOTRF 0480 LET ANTAL┆
0x03e40…03e60 3d 41 4e 54 41 4c 2b 31 16 24 30 34 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 4c 49 4e 24 3a ┆=ANTAL+1 $0490 PRINT USING LIN$:┆
0x03e60…03e80 58 30 2c 59 2c 52 46 2c 41 46 44 52 41 47 24 0b 30 35 30 30 20 50 52 49 4e 54 20 0b 15 30 35 31 ┆X0,Y,RF,AFDRAG$ 0500 PRINT 051┆
0x03e80…03ea0 30 20 4c 45 54 20 58 30 3d 58 30 2d 41 46 44 52 41 47 15 0e 30 35 32 30 20 45 4e 44 57 48 49 4c ┆0 LET X0=X0-AFDRAG 0520 ENDWHIL┆
0x03ea0…03ec0 45 20 0e 10 30 35 33 30 20 4c 45 54 20 52 46 3d 58 30 2a 52 10 12 30 35 34 30 20 4c 45 54 20 41 ┆E 0530 LET RF=X0*R 0540 LET A┆
0x03ec0…03ee0 46 44 52 41 47 3d 58 30 12 0d 30 35 35 30 20 4c 45 54 20 58 30 3d 30 0d 14 30 35 36 30 20 4c 45 ┆FDRAG=X0 0550 LET X0=0 0560 LE┆
0x03ee0…03f00 54 20 59 3d 41 46 44 52 41 47 2b 52 46 14 17 30 35 37 30 20 4c 45 54 20 54 4f 54 52 46 3d 54 4f ┆T Y=AFDRAG+RF 0570 LET TOTRF=TO┆
0x03f00…03f20 (7, 0, 1) ExtentHdr {name=»RENTE «, typ=»K«, seg=»B«, next=0x01, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0006,04 (0x003a00)}, nextfile={DA 0007,05 (0x004400)}, f99=41 04 00 20 00 45 4e 54 45 20 ┆A ENTE ┆}
0x03f20…03f40 54 52 46 2b 52 46 17 16 30 35 38 30 20 4c 45 54 20 41 4e 54 41 4c 3d 41 4e 54 41 4c 2b 31 16 24 ┆TRF+RF 0580 LET ANTAL=ANTAL+1 $┆
0x03f40…03f60 30 35 39 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 4c 49 4e 24 3a 58 30 2c 59 2c 52 46 2c 41 46 ┆0590 PRINT USING LIN$:X0,Y,RF,AF┆
0x03f60…03f80 44 52 41 47 24 0b 30 36 30 30 20 50 52 49 4e 54 20 0b 0b 30 36 31 30 20 50 52 49 4e 54 20 0b 25 ┆DRAG$ 0600 PRINT 0610 PRINT %┆
0x03f80…03fa0 30 36 32 30 20 50 52 49 4e 54 20 55 53 49 4e 47 20 53 4c 55 54 4c 49 4e 24 3a 54 4f 54 52 46 2c ┆0620 PRINT USING SLUTLIN$:TOTRF,┆
0x03fa0…03fc0 41 4e 54 41 4c 25 0b 30 36 32 32 20 50 52 49 4e 54 20 0b 0b 30 36 32 33 20 50 52 49 4e 54 20 0b ┆ANTAL% 0622 PRINT 0623 PRINT ┆
0x03fc0…03fe0 0b 30 36 32 34 20 50 52 49 4e 54 20 0b 33 30 36 33 30 20 49 4e 50 55 54 20 22 53 4b 41 4c 20 44 ┆ 0624 PRINT 30630 INPUT "SKAL D┆
0x03fe0…04000 55 20 50 52 30 56 45 20 45 4e 44 4e 55 20 45 4e 47 41 4e 47 20 28 4a 2f 4e 29 3a 20 22 2c 53 56 ┆U PR0VE ENDNU ENGANG (J/N): ",SV┆
0x04000…04020 (7, 0, 2) 24 33 13 30 36 34 30 20 55 4e 54 49 4c 20 53 56 24 3c 3e 22 4a 22 13 00 00 00 00 00 00 00 00 00 ┆$3 0640 UNTIL SV$<>"J" ┆
0x04020…04040 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 ┆ ┆
[…0x6…]
0x04100…04200 (7, 0, 3) 0x00[0x100]
[…0x2…]
0x04400…04420 (7, 0, 6) ExtentHdr {name=»BALLON «, typ=»K«, seg=»A«, next=0x00, basis=0x0005, nextext={DA 0000,00 (0x000000)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0008,01 (0x004900)}, f99=00 00 00 fe 00 00 00 00 00 00 ┆ ┆}
0x04420…04440 19 30 30 31 30 20 52 45 4d 20 42 41 4c 4c 4f 4e 4f 50 53 54 49 47 4e 49 4e 47 19 09 30 30 32 30 ┆ 0010 REM BALLONOPSTIGNING 0020┆
0x04440…04460 20 47 3d 32 31 09 09 30 30 33 30 20 48 3d 31 32 09 09 30 30 34 30 20 4e 3d 32 33 09 31 30 30 35 ┆ G=21 0030 H=12 0040 N=23 1005┆
0x04460…04480 30 20 44 45 46 20 52 41 44 49 41 4e 28 44 45 47 52 45 45 53 29 3d 44 45 47 52 45 45 53 2a 28 32 ┆0 DEF RADIAN(DEGREES)=DEGREES*(2┆
0x04480…044a0 2a 33 2e 31 34 31 35 39 32 2f 33 36 30 29 31 2d 30 30 36 30 20 44 45 46 20 53 49 4e 55 53 28 41 ┆*3.141592/360)1-0060 DEF SINUS(A┆
0x044a0…044c0 4e 47 4c 45 29 3d 53 49 4e 28 52 41 44 49 41 4e 28 41 4e 47 4c 45 29 29 2a 32 35 2b 47 2d 2f 30 ┆NGLE)=SIN(RADIAN(ANGLE))*25+G-/0┆
0x044c0…044e0 30 37 30 20 44 45 46 20 43 4f 53 49 4e 55 53 28 41 4e 47 4c 45 29 3d 43 4f 53 28 52 41 44 49 41 ┆070 DEF COSINUS(ANGLE)=COS(RADIA┆
0x044e0…04500 4e 28 41 4e 47 4c 45 29 29 2a 31 30 2b 48 2f 0b 30 30 38 30 20 43 4c 45 41 52 20 0b 0c 30 30 38 ┆N(ANGLE))*10+H/ 0080 CLEAR 008┆
0x04500…04520 (7, 0, 7) 35 20 52 45 50 45 41 54 20 0c 26 30 30 38 38 20 50 52 49 4e 54 20 54 41 42 28 35 35 29 3b 22 42 ┆5 REPEAT &0088 PRINT TAB(55);"B┆
0x04520…04540 61 6c 6c 6f 6e 6f 70 73 74 69 67 6e 69 6e 67 2e 22 26 11 30 30 39 30 20 46 4f 52 20 42 3d 31 20 ┆allonopstigning."& 0090 FOR B=1 ┆
0x04540…04560 54 4f 20 35 11 0a 30 31 30 30 20 47 3d 47 2b 35 0a 1a 30 31 31 30 20 46 4f 52 20 56 3d 31 20 54 ┆TO 5 0100 G=G+5 0110 FOR V=1 T┆
0x04560…04580 4f 20 33 36 30 20 53 54 45 50 20 32 1a 1f 30 31 32 30 20 43 55 52 53 4f 52 20 53 49 4e 55 53 28 ┆O 360 STEP 2 0120 CURSOR SINUS(┆
0x04580…045a0 56 29 2c 43 4f 53 49 4e 55 53 28 56 29 1f 14 30 31 33 30 20 50 52 49 4e 54 20 22 3c 53 3e 22 3b ┆V),COSINUS(V) 0130 PRINT "<S>";┆
0x045a0…045c0 22 2a 22 14 0b 30 31 34 30 20 4e 45 58 54 20 56 0b 0b 30 31 35 30 20 4e 45 58 54 20 42 0b 12 30 ┆"*" 0140 NEXT V 0150 NEXT B 0┆
0x045c0…045e0 31 36 30 20 46 4f 52 20 4a 3d 31 20 54 4f 20 31 31 12 10 30 31 37 30 20 43 55 52 53 4f 52 20 33 ┆160 FOR J=1 TO 11 0170 CURSOR 3┆
0x045e0…04600 36 2c 4a 10 14 30 31 38 30 20 50 52 49 4e 54 20 22 3c 53 3e 22 3b 22 7c 22 14 0e 30 31 39 30 20 ┆6,J 0180 PRINT "<S>";"ø" 0190 ┆
0x04600…04620 (7, 0, 8) 4c 45 54 20 4e 3d 4e 2d 31 0e 10 30 32 30 30 20 43 55 52 53 4f 52 20 33 36 2c 4e 10 14 30 32 31 ┆LET N=N-1 0200 CURSOR 36,N 021┆
0x04620…04640 30 20 50 52 49 4e 54 20 22 3c 53 3e 22 3b 22 7c 22 14 0b 30 32 32 30 20 4e 45 58 54 20 4a 0b 12 ┆0 PRINT "<S>";"ø" 0220 NEXT J ┆
0x04640…04660 30 32 33 30 20 46 4f 52 20 4b 3d 31 20 54 4f 20 37 31 12 12 30 32 34 30 20 49 46 20 4b 3d 33 36 ┆0230 FOR K=1 TO 71 0240 IF K=36┆
0x04660…04680 20 54 48 45 4e 20 12 0a 30 32 35 30 20 4b 3d 4b 2b 31 0a 0b 30 32 36 30 20 45 4e 44 49 46 20 0b ┆ THEN 0250 K=K+1 0260 ENDIF ┆
0x04680…046a0 10 30 32 37 30 20 43 55 52 53 4f 52 20 4b 2c 31 32 10 14 30 32 38 30 20 50 52 49 4e 54 20 22 3c ┆ 0270 CURSOR K,12 0280 PRINT "<┆
0x046a0…046c0 53 3e 22 3b 22 2d 22 14 0b 30 32 39 30 20 4e 45 58 54 20 4b 0b 12 30 33 30 30 20 46 4f 52 20 4c ┆S>";"-" 0290 NEXT K 0300 FOR L┆
0x046c0…046e0 3d 31 20 54 4f 20 31 31 12 13 30 33 31 30 20 46 4f 52 20 4d 3d 31 20 54 4f 20 31 30 30 13 11 30 ┆=1 TO 11 0310 FOR M=1 TO 100 0┆
0x046e0…04700 33 32 30 20 52 45 4d 20 56 45 4e 54 45 54 49 44 11 0b 30 33 33 30 20 4e 45 58 54 20 4d 0b 0f 30 ┆320 REM VENTETID 0330 NEXT M 0┆
0x04700…04720 (7, 0, 9) 33 34 30 20 43 41 53 45 20 4c 20 4f 46 20 0f 11 30 33 35 30 20 43 55 52 53 4f 52 20 33 36 2c 31 ┆340 CASE L OF 0350 CURSOR 36,1┆
0x04720…04740 32 11 0e 30 33 36 30 20 50 52 49 4e 54 20 22 20 22 0e 16 30 33 37 30 20 57 48 45 4e 20 31 2c 33 ┆2 0360 PRINT " " 0370 WHEN 1,3┆
0x04740…04760 2c 35 2c 37 2c 39 2c 31 31 16 11 30 33 38 30 20 43 55 52 53 4f 52 20 33 36 2c 31 32 11 0e 30 33 ┆,5,7,9,11 0380 CURSOR 36,12 03┆
0x04760…04780 39 30 20 50 52 49 4e 54 20 22 2a 22 0e 0d 30 34 30 30 20 45 4e 44 43 41 53 45 20 0d 0b 30 34 31 ┆90 PRINT "*" 0400 ENDCASE 041┆
0x04780…047a0 30 20 4e 45 58 54 20 4c 0b 0e 30 34 32 30 20 4f 3d 52 4e 44 28 2d 31 29 0e 12 30 34 33 30 20 46 ┆0 NEXT L 0420 O=RND(-1) 0430 F┆
0x047a0…047c0 4f 52 20 4e 3d 31 20 54 4f 20 32 34 12 13 30 34 34 30 20 46 4f 52 20 50 3d 31 20 54 4f 20 31 30 ┆OR N=1 TO 24 0440 FOR P=1 TO 10┆
0x047c0…047e0 30 13 0e 30 34 35 30 20 52 45 4d 20 56 45 4e 54 45 0e 0b 30 34 36 30 20 4e 45 58 54 20 50 0b 10 ┆0 0450 REM VENTE 0460 NEXT P ┆
0x047e0…04800 30 34 37 30 20 4f 3d 52 4e 44 28 30 29 2a 32 30 10 0b 30 34 38 30 20 4f 3d 4f 2b 32 30 0b 10 30 ┆0470 O=RND(0)*20 0480 O=O+20 0┆
0x04800…04820 (8, 0, 1) 34 39 30 20 43 55 52 53 4f 52 20 4f 2c 32 34 10 23 30 35 30 30 20 50 52 49 4e 54 20 22 7e 5e 20 ┆490 CURSOR O,24 #0500 PRINT "ü^ ┆
0x04820…04840 60 20 40 7c 20 20 23 20 7e 7e 20 24 20 2e 2e 2c 5b 20 29 22 23 0b 30 35 31 30 20 4e 45 58 54 20 ┆` @ø # üü $ ..,Æ )"# 0510 NEXT ┆
0x04840…04860 4e 0b 12 30 35 32 30 20 46 4f 52 20 51 3d 31 20 54 4f 20 32 35 12 0b 30 35 33 30 20 50 52 49 4e ┆N 0520 FOR Q=1 TO 25 0530 PRIN┆
0x04860…04880 54 20 0b 0b 30 35 34 30 20 4e 45 58 54 20 51 0b 17 30 35 35 30 20 4c 45 54 20 47 3d 32 31 3b 48 ┆T 0540 NEXT Q 0550 LET G=21;H┆
0x04880…048a0 3d 31 32 3b 4e 3d 32 33 17 0b 30 35 36 30 20 43 4c 45 41 52 20 0b 0e 30 35 36 35 20 55 4e 54 49 ┆=12;N=23 0560 CLEAR 0565 UNTI┆
0x048a0…048c0 4c 20 31 3d 30 0e 09 30 35 37 30 20 45 4e 44 20 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆L 1=0 0570 END ┆
0x048c0…048e0 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…]
0x04900…04920 (8, 0, 2) ExtentHdr {name=»VSKAK «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 0009,02 (0x005300)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 0009,02 (0x005300)}, f99=41 08 00 fe 00 00 00 00 00 00 ┆A ┆}
0x04920…04940 0b 30 31 30 30 20 43 4c 45 41 52 20 0b 11 30 31 31 30 20 46 4f 52 20 58 3d 31 20 54 4f 20 35 11 ┆ 0100 CLEAR 0110 FOR X=1 TO 5 ┆
0x04940…04960 0b 30 31 32 30 20 50 52 49 4e 54 20 0b 0b 30 31 33 30 20 4e 45 58 54 20 58 0b 1b 30 31 34 30 20 ┆ 0120 PRINT 0130 NEXT X 0140 ┆
0x04960…04980 46 4f 52 20 58 3d 31 33 20 54 4f 20 31 30 20 53 54 45 50 20 2d 31 1b 14 30 31 35 30 20 50 52 49 ┆FOR X=13 TO 10 STEP -1 0150 PRI┆
0x04980…049a0 4e 54 20 54 41 42 28 34 38 29 3b 58 14 0b 30 31 36 30 20 4e 45 58 54 20 58 0b 19 30 31 37 30 20 ┆NT TAB(48);X 0160 NEXT X 0170 ┆
0x049a0…049c0 46 4f 52 20 58 3d 39 20 54 4f 20 31 20 53 54 45 50 20 2d 31 19 14 30 31 38 30 20 50 52 49 4e 54 ┆FOR X=9 TO 1 STEP -1 0180 PRINT┆
0x049c0…049e0 20 54 41 42 28 34 39 29 3b 58 14 0b 30 31 39 30 20 4e 45 58 54 20 58 0b 30 30 32 30 30 20 50 52 ┆ TAB(49);X 0190 NEXT X 00200 PR┆
0x049e0…04a00 49 4e 54 20 54 41 42 28 35 30 29 3b 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆INT TAB(50);" ┆
0x04a00…04a20 (8, 0, 3) 20 31 20 31 20 31 20 31 22 30 30 30 32 31 30 20 50 52 49 4e 54 20 54 41 42 28 35 30 29 3b 22 20 ┆ 1 1 1 1"000210 PRINT TAB(50);" ┆
0x04a20…04a40 20 31 20 32 20 33 20 34 20 35 20 36 20 37 20 38 20 39 20 30 20 31 20 32 20 33 22 30 0f 30 32 32 ┆ 1 2 3 4 5 6 7 8 9 0 1 2 3"0 022┆
0x04a40…04a60 30 20 52 41 4e 44 4f 4d 49 5a 45 20 0f 0f 30 32 33 30 20 54 2c 4d 2c 46 2c 50 4d 3d 30 0f 14 30 ┆0 RANDOMIZE 0230 T,M,F,PM=0 0┆
0x04a60…04a80 32 34 30 20 44 49 4d 20 56 28 35 30 29 2c 5a 28 35 30 29 14 20 30 32 35 30 20 44 49 4d 20 53 28 ┆240 DIM V(50),Z(50) 0250 DIM S(┆
0x04a80…04aa0 32 29 2c 52 28 32 29 2c 4d 58 28 32 35 29 2c 4d 59 28 32 35 29 20 33 30 32 36 30 20 44 49 4d 20 ┆2),R(2),MX(25),MY(25) 30260 DIM ┆
0x04aa0…04ac0 41 28 31 35 2c 31 35 29 2c 48 28 31 35 2c 31 35 29 2c 53 54 24 28 31 29 2c 4b 28 32 35 36 2c 33 ┆A(15,15),H(15,15),ST$(1),K(256,3┆
0x04ac0…04ae0 29 2c 4c 28 32 35 36 2c 33 29 33 10 30 32 37 30 20 43 55 52 53 4f 52 20 32 34 2c 31 10 28 30 32 ┆),L(256,3)3 0270 CURSOR 24,1 (02┆
0x04ae0…04b00 38 30 20 50 52 49 4e 54 20 22 56 41 47 41 42 4f 4e 44 53 4b 41 4b 20 2d 20 35 20 50 41 41 20 53 ┆80 PRINT "VAGABONDSKAK - 5 PAA S┆
0x04b00…04b20 (8, 0, 4) 54 52 49 42 45 22 28 25 30 32 39 30 20 50 52 49 4e 54 20 54 41 42 28 32 39 29 3b 22 53 50 49 4c ┆TRIBE"(%0290 PRINT TAB(29);"SPIL┆
0x04b20…04b40 4c 45 50 4c 41 4e 20 31 33 2a 31 33 22 25 12 30 33 30 30 20 46 4f 52 20 58 3d 36 20 54 4f 20 31 ┆LEPLAN 13*13"% 0300 FOR X=6 TO 1┆
0x04b40…04b60 38 12 10 30 33 31 30 20 43 55 52 53 4f 52 20 35 32 2c 58 10 22 30 33 32 30 20 3b 20 22 3a 20 3a ┆8 0310 CURSOR 52,X "0320 ; ": :┆
0x04b60…04b80 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 20 3a 22 22 0b 30 33 33 30 20 4e 45 ┆ : : : : : : : : : : :"" 0330 NE┆
0x04b80…04ba0 58 54 20 58 0b 18 30 33 34 30 20 4f 50 45 4e 20 22 44 45 4d 4f 31 3a 44 41 54 41 22 2c 52 18 2f ┆XT X 0340 OPEN "DEMO1:DATA",R /┆
0x04ba0…04bc0 30 33 35 30 20 49 46 20 53 54 41 54 55 53 28 22 44 45 4d 4f 31 3a 44 41 54 41 22 29 3c 3e 30 20 ┆0350 IF STATUS("DEMO1:DATA")<>0 ┆
0x04bc0…04be0 54 48 45 4e 20 47 4f 20 54 4f 20 30 33 34 30 2f 23 30 33 36 30 20 57 48 49 4c 45 20 53 54 41 54 ┆THEN GO TO 0340/#0360 WHILE STAT┆
0x04be0…04c00 55 53 28 22 44 45 4d 4f 31 3a 44 41 54 41 22 29 3c 3e 31 39 23 2d 30 33 37 30 20 47 45 54 20 22 ┆US("DEMO1:DATA")<>19#-0370 GET "┆
0x04c00…04c20 (8, 0, 5) 44 45 4d 4f 31 3a 44 41 54 41 22 3a 58 32 2c 59 32 2c 5a 32 2c 56 32 2c 58 31 2c 59 31 2c 5a 31 ┆DEMO1:DATA":X2,Y2,Z2,V2,X1,Y1,Z1┆
0x04c20…04c40 2c 56 31 2d 44 30 33 38 30 20 4b 28 58 32 2b 31 2c 59 32 2b 31 29 3d 56 32 3b 4b 28 58 31 2b 31 ┆,V1-D0380 K(X2+1,Y2+1)=V2;K(X1+1┆
0x04c40…04c60 2c 59 31 2b 31 29 3d 56 31 3b 4c 28 58 32 2b 31 2c 59 32 2b 31 29 3d 5a 32 3b 4c 28 58 31 2b 31 ┆,Y1+1)=V1;L(X2+1,Y2+1)=Z2;L(X1+1┆
0x04c60…04c80 2c 59 31 2b 31 29 3d 5a 31 44 0e 30 33 39 30 20 45 4e 44 57 48 49 4c 45 20 0e 12 30 34 30 30 20 ┆,Y1+1)=Z1D 0390 ENDWHILE 0400 ┆
0x04c80…04ca0 46 4f 52 20 58 3d 32 20 54 4f 20 31 34 12 12 30 34 31 30 20 46 4f 52 20 59 3d 32 20 54 4f 20 31 ┆FOR X=2 TO 14 0410 FOR Y=2 TO 1┆
0x04ca0…04cc0 34 12 14 30 34 32 30 20 41 28 58 2c 59 29 2c 48 28 58 2c 59 29 3d 30 14 0b 30 34 33 30 20 4e 45 ┆4 0420 A(X,Y),H(X,Y)=0 0430 NE┆
0x04cc0…04ce0 58 54 20 59 0b 0b 30 34 34 30 20 4e 45 58 54 20 58 0b 12 30 34 35 30 20 46 4f 52 20 58 3d 31 20 ┆XT Y 0440 NEXT X 0450 FOR X=1 ┆
0x04ce0…04d00 54 4f 20 31 35 12 25 30 34 36 30 20 41 28 58 2c 31 29 2c 41 28 58 2c 31 35 29 2c 41 28 31 2c 58 ┆TO 15 %0460 A(X,1),A(X,15),A(1,X┆
0x04d00…04d20 (8, 0, 6) 29 2c 41 28 31 35 2c 58 29 3d 2d 31 25 0b 30 34 37 30 20 4e 45 58 54 20 58 0b 11 30 34 38 30 20 ┆),A(15,X)=-1% 0470 NEXT X 0480 ┆
0x04d20…04d40 50 52 49 4e 54 20 43 48 52 28 37 29 11 29 30 34 39 30 20 49 4e 50 55 54 20 22 56 49 4c 20 44 55 ┆PRINT CHR(7) )0490 INPUT "VIL DU┆
0x04d40…04d60 20 53 50 49 4c 4c 45 20 42 4c 49 4e 44 54 20 3f 21 20 22 2c 53 54 24 29 18 30 35 30 30 20 49 46 ┆ SPILLE BLINDT ?! ",ST$) 0500 IF┆
0x04d60…04d80 20 53 54 24 3d 22 4a 22 20 54 48 45 4e 20 46 3d 31 18 21 30 35 31 30 20 49 4e 50 55 54 20 22 48 ┆ ST$="J" THEN F=1 !0510 INPUT "H┆
0x04d80…04da0 56 49 4c 4b 45 54 20 4e 49 56 45 41 55 20 3f 20 22 2c 4e 49 21 16 30 35 32 30 20 4c 49 4d 3d 28 ┆VILKET NIVEAU ? ",NI! 0520 LIM=(┆
0x04da0…04dc0 4e 49 2d 31 29 2a 37 30 30 2b 32 30 16 21 30 35 33 30 20 49 4e 50 55 54 20 22 56 49 4c 20 44 55 ┆NI-1)*700+20 !0530 INPUT "VIL DU┆
0x04dc0…04de0 20 53 54 41 52 54 45 20 3f 20 22 2c 53 54 24 21 15 30 35 34 30 20 49 46 20 53 54 24 3d 22 4e 22 ┆ STARTE ? ",ST$! 0540 IF ST$="N"┆
0x04de0…04e00 20 54 48 45 4e 20 15 0d 30 35 35 30 20 41 28 38 2c 38 29 3d 31 0d 11 30 35 36 30 20 43 55 52 53 ┆ THEN 0550 A(8,8)=1 0560 CURS┆
0x04e00…04e20 (8, 0, 7) 4f 52 20 36 34 2c 31 32 11 0e 30 35 37 30 20 50 52 49 4e 54 20 22 78 22 0e 0f 30 35 38 30 20 43 ┆OR 64,12 0570 PRINT "x" 0580 C┆
0x04e20…04e40 55 52 53 4f 52 20 31 2c 39 0f 20 30 35 39 30 20 50 52 49 4e 54 20 22 4d 49 54 20 54 52 40 4b 20 ┆URSOR 1,9 0590 PRINT "MIT TR@K ┆
0x04e40…04e60 3a 20 22 3b 37 3b 22 3a 22 3b 37 20 0c 30 36 30 30 20 45 58 2c 45 59 3d 38 0c 0b 30 36 31 30 20 ┆: ";7;":";7 0600 EX,EY=8 0610 ┆
0x04e60…04e80 45 4e 44 49 46 20 0b 10 30 36 32 30 20 43 55 52 53 4f 52 20 31 2c 31 31 10 30 30 36 33 30 20 50 ┆ENDIF 0620 CURSOR 1,11 00630 P┆
0x04e80…04ea0 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 20 20 20 ┆RINT " ┆
0x04ea0…04ec0 20 20 20 20 20 20 20 20 20 22 30 30 30 36 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 ┆ "000640 PRINT " ┆
0x04ec0…04ee0 20 20 20 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 30 10 30 36 ┆ "0 06┆
0x04ee0…04f00 35 30 20 43 55 52 53 4f 52 20 31 2c 31 31 10 1c 30 36 36 30 20 49 4e 50 55 54 20 22 44 49 54 20 ┆50 CURSOR 1,11 0660 INPUT "DIT ┆
0x04f00…04f20 (8, 0, 8) 54 52 40 4b 20 3a 20 22 2c 58 2c 59 1c 28 30 36 37 30 20 49 46 20 58 3e 31 33 20 4f 52 20 58 3c ┆TR@K : ",X,Y (0670 IF X>13 OR X<┆
0x04f20…04f40 31 20 4f 52 20 59 3e 31 33 20 4f 52 20 59 3c 31 20 54 48 45 4e 20 28 1a 30 36 37 35 20 50 52 49 ┆1 OR Y>13 OR Y<1 THEN ( 0675 PRI┆
0x04f40…04f60 4e 54 20 22 55 44 45 4e 46 4f 52 20 42 41 4e 45 4e 22 1a 18 30 36 38 30 20 46 4f 52 20 44 43 4f ┆NT "UDENFOR BANEN" 0680 FOR DCO┆
0x04f60…04f80 55 4e 54 3d 31 20 54 4f 20 33 30 30 18 10 30 36 39 30 20 4e 45 58 54 20 44 43 4f 55 4e 54 10 0f ┆UNT=1 TO 300 0690 NEXT DCOUNT ┆
0x04f80…04fa0 30 37 31 30 20 47 4f 20 54 4f 20 30 36 32 30 0f 0a 30 37 32 30 20 45 4c 53 45 20 0a 1a 30 37 33 ┆0710 GO TO 0620 0720 ELSE 073┆
0x04fa0…04fc0 30 20 49 46 20 41 28 58 2b 31 2c 59 2b 31 29 3d 30 20 54 48 45 4e 20 1a 11 30 37 34 30 20 41 28 ┆0 IF A(X+1,Y+1)=0 THEN 0740 A(┆
0x04fc0…04fe0 58 2b 31 2c 59 2b 31 29 3d 32 11 0a 30 37 35 30 20 45 4c 53 45 20 0a 29 30 37 36 30 20 50 52 49 ┆X+1,Y+1)=2 0750 ELSE )0760 PRI┆
0x04fe0…05000 4e 54 20 22 49 4b 4b 45 20 45 54 20 54 4f 4d 54 20 46 45 4c 54 2c 20 50 52 30 56 20 49 47 45 4e ┆NT "IKKE ET TOMT FELT, PR0V IGEN┆
0x05000…05020 (8, 0, 9) 22 29 18 30 37 37 30 20 46 4f 52 20 44 43 4f 55 4e 54 3d 31 20 54 4f 20 33 30 30 18 10 30 37 38 ┆") 0770 FOR DCOUNT=1 TO 300 078┆
0x05020…05040 30 20 4e 45 58 54 20 44 43 4f 55 4e 54 10 0f 30 37 39 30 20 47 4f 20 54 4f 20 30 36 32 30 0f 0b ┆0 NEXT DCOUNT 0790 GO TO 0620 ┆
0x05040…05060 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 11 30 38 32 30 20 49 ┆0800 ENDIF 0810 ENDIF 0820 I┆
0x05060…05080 46 20 54 3d 30 20 54 48 45 4e 20 11 16 30 38 33 30 20 49 46 20 53 54 24 3c 3e 22 4e 22 20 54 48 ┆F T=0 THEN 0830 IF ST$<>"N" TH┆
0x05080…050a0 45 4e 20 16 12 30 38 34 30 20 45 58 3d 58 2b 31 3b 45 59 3d 59 2b 31 12 0b 30 38 35 30 20 45 4e ┆EN 0840 EX=X+1;EY=Y+1 0850 EN┆
0x050a0…050c0 44 49 46 20 0b 10 30 38 36 30 20 42 3d 58 2b 31 3b 43 3d 59 2b 31 10 0a 30 38 37 30 20 45 4c 53 ┆DIF 0860 B=X+1;C=Y+1 0870 ELS┆
0x050c0…050e0 45 20 0a 10 30 38 38 30 20 42 3d 58 2b 31 3b 43 3d 59 2b 31 10 0b 30 38 39 30 20 45 4e 44 49 46 ┆E 0880 B=X+1;C=Y+1 0890 ENDIF┆
0x050e0…05100 20 0b 1b 30 39 30 30 20 49 46 20 46 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 30 39 33 30 1b 17 ┆ 0900 IF F=1 THEN GO TO 0930 ┆
0x05100…05120 (9, 0, 1) 30 39 31 30 20 43 55 52 53 4f 52 20 35 30 2b 32 2a 58 2c 31 39 2d 59 17 0e 30 39 32 30 20 50 52 ┆0910 CURSOR 50+2*X,19-Y 0920 PR┆
0x05120…05140 49 4e 54 20 22 6f 22 0e 0a 30 39 33 30 20 54 3d 54 2b 31 0a 0d 30 39 34 30 20 52 45 53 54 4f 52 ┆INT "o" 0930 T=T+1 0940 RESTOR┆
0x05140…05160 45 20 0d 14 30 39 35 30 20 46 4f 52 20 52 45 54 4e 3d 31 20 54 4f 20 34 14 0d 30 39 36 30 20 52 ┆E 0950 FOR RETN=1 TO 4 0960 R┆
0x05160…05180 45 41 44 20 55 2c 57 0d 0c 30 39 37 30 20 49 31 2c 49 32 3d 30 0c 0c 30 39 38 30 20 52 45 50 45 ┆EAD U,W 0970 I1,I2=0 0980 REPE┆
0x05180…051a0 41 54 20 0c 0c 30 39 39 30 20 49 31 3d 49 31 2b 31 0c 16 31 30 30 30 20 58 3d 42 2b 55 2a 49 31 ┆AT 0990 I1=I1+1 1000 X=B+U*I1┆
0x051a0…051c0 3b 59 3d 43 2b 57 2a 49 31 16 14 31 30 31 30 20 55 4e 54 49 4c 20 41 28 58 2c 59 29 3c 3e 32 14 ┆;Y=C+W*I1 1010 UNTIL A(X,Y)<>2 ┆
0x051c0…051e0 23 31 30 32 30 20 49 46 20 41 28 58 2c 59 29 3d 30 20 41 4e 44 20 48 28 58 2c 59 29 3d 30 20 54 ┆#1020 IF A(X,Y)=0 AND H(X,Y)=0 T┆
0x051e0…05200 48 45 4e 20 23 13 31 30 33 30 20 48 28 58 2c 59 29 3d 31 3b 4d 3d 4d 2b 31 13 12 31 30 34 30 20 ┆HEN # 1030 H(X,Y)=1;M=M+1 1040 ┆
0x05200…05220 (9, 0, 2) 56 28 4d 29 3d 58 3b 5a 28 4d 29 3d 59 12 0b 31 30 35 30 20 45 4e 44 49 46 20 0b 0c 31 30 36 30 ┆V(M)=X;Z(M)=Y 1050 ENDIF 1060┆
0x05220…05240 20 52 45 50 45 41 54 20 0c 0c 31 30 37 30 20 49 32 3d 49 32 2b 31 0c 16 31 30 38 30 20 58 3d 42 ┆ REPEAT 1070 I2=I2+1 1080 X=B┆
0x05240…05260 2d 55 2a 49 32 3b 59 3d 43 2d 57 2a 49 32 16 14 31 30 39 30 20 55 4e 54 49 4c 20 41 28 58 2c 59 ┆-U*I2;Y=C-W*I2 1090 UNTIL A(X,Y┆
0x05260…05280 29 3c 3e 32 14 23 31 31 30 30 20 49 46 20 41 28 58 2c 59 29 3d 30 20 41 4e 44 20 48 28 58 2c 59 ┆)<>2 #1100 IF A(X,Y)=0 AND H(X,Y┆
0x05280…052a0 29 3d 30 20 54 48 45 4e 20 23 13 31 31 31 30 20 4d 3d 4d 2b 31 3b 48 28 58 2c 59 29 3d 31 13 12 ┆)=0 THEN # 1110 M=M+1;H(X,Y)=1 ┆
0x052a0…052c0 31 31 32 30 20 56 28 4d 29 3d 58 3b 5a 28 4d 29 3d 59 12 0b 31 31 33 30 20 45 4e 44 49 46 20 0b ┆1120 V(M)=X;Z(M)=Y 1130 ENDIF ┆
0x052c0…052e0 1f 31 31 34 30 20 49 46 20 49 31 2b 49 32 3e 35 20 54 48 45 4e 20 47 4f 20 54 4f 20 32 36 34 30 ┆ 1140 IF I1+I2>5 THEN GO TO 2640┆
0x052e0…05300 1f 0e 31 31 35 30 20 4e 45 58 54 20 52 45 54 4e 0e 0d 31 31 36 30 20 52 45 53 54 4f 52 45 20 0d ┆ 1150 NEXT RETN 1160 RESTORE ┆
0x05300…05320 (9, 0, 3) ExtentHdr {name=»VSKAK «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 000a,03 (0x005d00)}, prevext={DA 0008,01 (0x004900)}, nextfile={DA 000a,03 (0x005d00)}, f99=41 08 00 25 00 00 00 00 00 00 ┆A % ┆}
0x05320…05340 14 31 31 37 30 20 46 4f 52 20 52 45 54 4e 3d 31 20 54 4f 20 34 14 0d 31 31 38 30 20 52 45 41 44 ┆ 1170 FOR RETN=1 TO 4 1180 READ┆
0x05340…05360 20 55 2c 57 0d 0c 31 31 39 30 20 49 31 2c 49 32 3d 30 0c 0c 31 32 30 30 20 52 45 50 45 41 54 20 ┆ U,W 1190 I1,I2=0 1200 REPEAT ┆
0x05360…05380 0c 0c 31 32 31 30 20 49 31 3d 49 31 2b 31 0c 18 31 32 32 30 20 58 3d 45 58 2b 55 2a 49 31 3b 59 ┆ 1210 I1=I1+1 1220 X=EX+U*I1;Y┆
0x05380…053a0 3d 45 59 2b 57 2a 49 31 18 14 31 32 33 30 20 55 4e 54 49 4c 20 41 28 58 2c 59 29 3c 3e 31 14 23 ┆=EY+W*I1 1230 UNTIL A(X,Y)<>1 #┆
0x053a0…053c0 31 32 34 30 20 49 46 20 41 28 58 2c 59 29 3d 30 20 41 4e 44 20 48 28 58 2c 59 29 3d 30 20 54 48 ┆1240 IF A(X,Y)=0 AND H(X,Y)=0 TH┆
0x053c0…053e0 45 4e 20 23 13 31 32 35 30 20 48 28 58 2c 59 29 3d 31 3b 4d 3d 4d 2b 31 13 12 31 32 36 30 20 56 ┆EN # 1250 H(X,Y)=1;M=M+1 1260 V┆
0x053e0…05400 28 4d 29 3d 58 3b 5a 28 4d 29 3d 59 12 0b 31 32 37 30 20 45 4e 44 49 46 20 0b 0c 31 32 38 30 20 ┆(M)=X;Z(M)=Y 1270 ENDIF 1280 ┆
0x05400…05420 (9, 0, 4) 52 45 50 45 41 54 20 0c 0c 31 32 39 30 20 49 32 3d 49 32 2b 31 0c 18 31 33 30 30 20 58 3d 45 58 ┆REPEAT 1290 I2=I2+1 1300 X=EX┆
0x05420…05440 2d 55 2a 49 32 3b 59 3d 45 59 2d 57 2a 49 32 18 14 31 33 31 30 20 55 4e 54 49 4c 20 41 28 58 2c ┆-U*I2;Y=EY-W*I2 1310 UNTIL A(X,┆
0x05440…05460 59 29 3c 3e 31 14 23 31 33 32 30 20 49 46 20 41 28 58 2c 59 29 3d 30 20 41 4e 44 20 48 28 58 2c ┆Y)<>1 #1320 IF A(X,Y)=0 AND H(X,┆
0x05460…05480 59 29 3d 30 20 54 48 45 4e 20 23 13 31 33 33 30 20 4d 3d 4d 2b 31 3b 48 28 58 2c 59 29 3d 31 13 ┆Y)=0 THEN # 1330 M=M+1;H(X,Y)=1 ┆
0x05480…054a0 12 31 33 34 30 20 56 28 4d 29 3d 58 3b 5a 28 4d 29 3d 59 12 0b 31 33 35 30 20 45 4e 44 49 46 20 ┆ 1340 V(M)=X;Z(M)=Y 1350 ENDIF ┆
0x054a0…054c0 0b 0e 31 33 36 30 20 4e 45 58 54 20 52 45 54 4e 0e 11 31 33 37 30 20 4f 2c 4d 41 58 3d 31 3b 50 ┆ 1360 NEXT RETN 1370 O,MAX=1;P┆
0x054c0…054e0 4c 3d 30 11 1c 31 33 38 30 20 49 46 20 41 28 56 28 4f 29 2c 5a 28 4f 29 29 3d 30 20 54 48 45 4e ┆L=0 1380 IF A(V(O),Z(O))=0 THEN┆
0x054e0…05500 20 1c 0d 31 33 39 30 20 52 45 53 54 4f 52 45 20 0d 0e 31 34 30 30 20 4c 31 2c 4b 31 2c 50 3d 30 ┆ 1390 RESTORE 1400 L1,K1,P=0┆
0x05500…05520 (9, 0, 5) 0e 14 31 34 31 30 20 46 4f 52 20 52 45 54 4e 3d 31 20 54 4f 20 34 14 0d 31 34 32 30 20 52 45 41 ┆ 1410 FOR RETN=1 TO 4 1420 REA┆
0x05520…05540 44 20 55 2c 57 0d 1a 31 34 33 30 20 52 28 31 29 2c 52 28 32 29 2c 53 28 31 29 2c 53 28 32 29 3d ┆D U,W 1430 R(1),R(2),S(1),S(2)=┆
0x05540…05560 30 1a 21 31 34 34 30 20 49 46 20 41 28 56 28 4f 29 2b 55 2c 5a 28 4f 29 2b 57 29 3d 2d 31 20 54 ┆0 !1440 IF A(V(O)+U,Z(O)+W)=-1 T┆
0x05560…05580 48 45 4e 20 21 10 31 34 35 30 20 53 28 31 29 2c 53 28 32 29 3d 31 10 0f 31 34 36 30 20 47 4f 20 ┆HEN ! 1450 S(1),S(2)=1 1460 GO ┆
0x05580…055a0 54 4f 20 31 37 30 30 0f 0b 31 34 37 30 20 45 4e 44 49 46 20 0b 17 31 34 38 30 20 44 3d 41 28 56 ┆TO 1700 1470 ENDIF 1480 D=A(V┆
0x055a0…055c0 28 4f 29 2b 55 2c 5a 28 4f 29 2b 57 29 17 11 31 34 39 30 20 49 46 20 44 3d 30 20 54 48 45 4e 20 ┆(O)+U,Z(O)+W) 1490 IF D=0 THEN ┆
0x055c0…055e0 11 2e 31 35 30 30 20 49 46 20 41 28 56 28 4f 29 2b 32 2a 55 2c 5a 28 4f 29 2b 32 2a 57 29 3c 31 ┆ .1500 IF A(V(O)+2*U,Z(O)+2*W)<1┆
0x055e0…05600 20 54 48 45 4e 20 47 4f 20 54 4f 20 31 37 30 30 2e 1b 31 35 31 30 20 44 3d 41 28 56 28 4f 29 2b ┆ THEN GO TO 1700. 1510 D=A(V(O)+┆
0x05600…05620 (9, 0, 6) 32 2a 55 2c 5a 28 4f 29 2b 32 2a 57 29 1b 0a 31 35 32 30 20 45 4c 53 45 20 0a 10 31 35 33 30 20 ┆2*U,Z(O)+2*W) 1520 ELSE 1530 ┆
0x05620…05640 52 28 44 29 2c 53 28 44 29 3d 31 10 0b 31 35 34 30 20 45 4e 44 49 46 20 0b 08 31 35 35 30 20 4e ┆R(D),S(D)=1 1540 ENDIF 1550 N┆
0x05640…05660 3d 31 08 0a 31 35 36 30 20 4e 3d 4e 2b 31 0a 1b 31 35 37 30 20 49 46 20 4e 3e 34 20 54 48 45 4e ┆=1 1560 N=N+1 1570 IF N>4 THEN┆
0x05660…05680 20 47 4f 20 54 4f 20 31 37 30 30 1b 1c 31 35 38 30 20 4e 4e 3d 41 28 56 28 4f 29 2b 4e 2a 55 2c ┆ GO TO 1700 1580 NN=A(V(O)+N*U,┆
0x05680…056a0 5a 28 4f 29 2b 4e 2a 57 29 1c 12 31 35 39 30 20 49 46 20 4e 4e 3d 30 20 54 48 45 4e 20 12 3f 31 ┆Z(O)+N*W) 1590 IF NN=0 THEN ?1┆
0x056a0…056c0 36 30 30 20 49 46 20 41 28 56 28 4f 29 2b 28 4e 2b 31 29 2a 55 2c 5a 28 4f 29 2b 28 4e 2b 31 29 ┆600 IF A(V(O)+(N+1)*U,Z(O)+(N+1)┆
0x056c0…056e0 2a 57 29 3d 44 20 41 4e 44 20 4e 3c 3e 34 20 54 48 45 4e 20 47 4f 20 54 4f 20 31 35 36 30 3f 0f ┆*W)=D AND N<>4 THEN GO TO 1560? ┆
0x056e0…05700 31 36 31 30 20 47 4f 20 54 4f 20 31 37 30 30 0f 0b 31 36 32 30 20 45 4e 44 49 46 20 0b 12 31 36 ┆1610 GO TO 1700 1620 ENDIF 16┆
0x05700…05720 (9, 0, 7) 33 30 20 49 46 20 4e 4e 3d 44 20 54 48 45 4e 20 12 1f 31 36 34 30 20 52 28 44 29 3d 52 28 44 29 ┆30 IF NN=D THEN 1640 R(D)=R(D)┆
0x05720…05740 2b 49 4e 54 28 32 2a 2a 28 4e 2d 31 29 2b 2e 31 29 1f 0a 31 36 35 30 20 45 4c 53 45 20 0a 14 31 ┆+INT(2**(N-1)+.1) 1650 ELSE 1┆
0x05740…05760 36 36 30 20 53 28 33 2d 44 29 3d 53 28 33 2d 44 29 2b 31 14 0f 31 36 37 30 20 47 4f 20 54 4f 20 ┆660 S(3-D)=S(3-D)+1 1670 GO TO ┆
0x05760…05780 31 37 30 30 0f 0b 31 36 38 30 20 45 4e 44 49 46 20 0b 0f 31 36 39 30 20 47 4f 20 54 4f 20 31 35 ┆1700 1680 ENDIF 1690 GO TO 15┆
0x05780…057a0 36 30 0f 21 31 37 30 30 20 49 46 20 41 28 56 28 4f 29 2d 55 2c 5a 28 4f 29 2d 57 29 3d 2d 31 20 ┆60 !1700 IF A(V(O)-U,Z(O)-W)=-1 ┆
0x057a0…057c0 54 48 45 4e 20 21 1c 31 37 31 30 20 53 28 31 29 3d 53 28 31 29 2b 31 3b 53 28 32 29 3d 53 28 32 ┆THEN ! 1710 S(1)=S(1)+1;S(2)=S(2┆
0x057c0…057e0 29 2b 31 1c 0f 31 37 32 30 20 47 4f 20 54 4f 20 31 39 36 30 0f 0b 31 37 33 30 20 45 4e 44 49 46 ┆)+1 1720 GO TO 1960 1730 ENDIF┆
0x057e0…05800 20 0b 20 31 37 34 30 20 49 46 20 41 28 56 28 4f 29 2d 55 2c 5a 28 4f 29 2d 57 29 3d 30 20 54 48 ┆ 1740 IF A(V(O)-U,Z(O)-W)=0 TH┆
0x05800…05820 (9, 0, 8) 45 4e 20 20 2e 31 37 35 30 20 49 46 20 41 28 56 28 4f 29 2d 32 2a 55 2c 5a 28 4f 29 2d 32 2a 57 ┆EN .1750 IF A(V(O)-2*U,Z(O)-2*W┆
0x05820…05840 29 3c 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 31 39 36 30 2e 1b 31 37 36 30 20 45 3d 41 28 56 28 ┆)<1 THEN GO TO 1960. 1760 E=A(V(┆
0x05840…05860 4f 29 2d 32 2a 55 2c 5a 28 4f 29 2d 32 2a 57 29 1b 0a 31 37 37 30 20 45 4c 53 45 20 0a 17 31 37 ┆O)-2*U,Z(O)-2*W) 1770 ELSE 17┆
0x05860…05880 38 30 20 45 3d 41 28 56 28 4f 29 2d 55 2c 5a 28 4f 29 2d 57 29 17 1d 31 37 39 30 20 52 28 45 29 ┆80 E=A(V(O)-U,Z(O)-W) 1790 R(E)┆
0x05880…058a0 3d 52 28 45 29 2b 31 36 3b 53 28 45 29 3d 53 28 45 29 2b 31 1d 0b 31 38 30 30 20 45 4e 44 49 46 ┆=R(E)+16;S(E)=S(E)+1 1800 ENDIF┆
0x058a0…058c0 20 0b 19 31 38 31 30 20 49 46 20 45 3c 3e 44 20 54 48 45 4e 20 45 58 45 43 20 50 54 19 08 31 38 ┆ 1810 IF E<>D THEN EXEC PT 18┆
0x058c0…058e0 32 30 20 4e 3d 33 08 0a 31 38 33 30 20 4e 3d 4e 2b 31 0a 1b 31 38 34 30 20 49 46 20 4e 3e 36 20 ┆20 N=3 1830 N=N+1 1840 IF N>6 ┆
0x058e0…05900 54 48 45 4e 20 47 4f 20 54 4f 20 31 39 35 30 1b 24 31 38 35 30 20 4e 4e 3d 41 28 56 28 4f 29 2b ┆THEN GO TO 1950 $1850 NN=A(V(O)+┆
0x05900…05920 (9, 0, 9) 28 32 2d 4e 29 2a 55 2c 5a 28 4f 29 2b 28 32 2d 4e 29 2a 57 29 24 12 31 38 36 30 20 49 46 20 4e ┆(2-N)*U,Z(O)+(2-N)*W)$ 1860 IF N┆
0x05920…05940 4e 3d 30 20 54 48 45 4e 20 12 3f 31 38 37 30 20 49 46 20 41 28 56 28 4f 29 2b 28 31 2d 4e 29 2a ┆N=0 THEN ?1870 IF A(V(O)+(1-N)*┆
0x05940…05960 55 2c 5a 28 4f 29 2b 28 31 2d 4e 29 2a 57 29 3d 45 20 41 4e 44 20 4e 3c 3e 36 20 54 48 45 4e 20 ┆U,Z(O)+(1-N)*W)=E AND N<>6 THEN ┆
0x05960…05980 47 4f 20 54 4f 20 31 38 33 30 3f 0f 31 38 38 30 20 47 4f 20 54 4f 20 31 39 35 30 0f 0b 31 38 39 ┆GO TO 1830? 1880 GO TO 1950 189┆
0x05980…059a0 30 20 45 4e 44 49 46 20 0b 12 31 39 30 30 20 49 46 20 4e 4e 3d 45 20 54 48 45 4e 20 12 1f 31 39 ┆0 ENDIF 1900 IF NN=E THEN 19┆
0x059a0…059c0 31 30 20 52 28 45 29 3d 52 28 45 29 2b 49 4e 54 28 32 2a 2a 28 4e 2b 31 29 2b 2e 31 29 1f 0f 31 ┆10 R(E)=R(E)+INT(2**(N+1)+.1) 1┆
0x059c0…059e0 39 32 30 20 47 4f 20 54 4f 20 31 38 33 30 0f 0b 31 39 33 30 20 45 4e 44 49 46 20 0b 14 31 39 34 ┆920 GO TO 1830 1930 ENDIF 194┆
0x059e0…05a00 30 20 53 28 33 2d 45 29 3d 53 28 33 2d 45 29 2b 31 14 08 31 39 35 30 20 44 3d 45 08 0c 31 39 36 ┆0 S(3-E)=S(3-E)+1 1950 D=E 196┆
0x05a00…05a20 (10, 0, 1) 30 20 45 58 45 43 20 50 54 0c 0e 31 39 37 30 20 4e 45 58 54 20 52 45 54 4e 0e 0c 31 39 38 30 20 ┆0 EXEC PT 1970 NEXT RETN 1980 ┆
0x05a20…05a40 50 52 4f 43 20 50 54 0c 11 31 39 39 30 20 49 46 20 44 3d 31 20 54 48 45 4e 20 11 19 32 30 30 30 ┆PROC PT 1990 IF D=1 THEN 2000┆
0x05a40…05a60 20 50 3d 50 2b 4b 28 52 28 31 29 2b 31 2c 53 28 32 29 2b 31 29 19 21 32 30 31 30 20 4b 31 3d 4b ┆ P=P+K(R(1)+1,S(2)+1) !2010 K1=K┆
0x05a60…05a80 31 2b 4b 28 52 28 31 29 2b 31 2c 53 28 32 29 2b 31 29 20 4d 4f 44 20 35 21 0a 32 30 32 30 20 45 ┆1+K(R(1)+1,S(2)+1) MOD 5! 2020 E┆
0x05a80…05aa0 4c 53 45 20 0a 11 32 30 33 30 20 49 46 20 44 3d 32 20 54 48 45 4e 20 11 19 32 30 34 30 20 50 3d ┆LSE 2030 IF D=2 THEN 2040 P=┆
0x05aa0…05ac0 50 2b 4c 28 52 28 32 29 2b 31 2c 53 28 31 29 2b 31 29 19 21 32 30 35 30 20 4c 31 3d 4c 31 2b 4c ┆P+L(R(2)+1,S(1)+1) !2050 L1=L1+L┆
0x05ac0…05ae0 28 52 28 32 29 2b 31 2c 53 28 31 29 2b 31 29 20 4d 4f 44 20 35 21 0b 32 30 36 30 20 45 4e 44 49 ┆(R(2)+1,S(1)+1) MOD 5! 2060 ENDI┆
0x05ae0…05b00 46 20 0b 0b 32 30 37 30 20 45 4e 44 49 46 20 0b 0d 32 30 38 30 20 45 4e 44 50 52 4f 43 20 0d 17 ┆F 2070 ENDIF 2080 ENDPROC ┆
0x05b00…05b20 (10, 0, 2) 32 30 39 30 20 49 46 20 50 3d 3e 31 30 30 30 30 30 20 54 48 45 4e 20 17 1d 32 31 30 30 20 43 55 ┆2090 IF P=>100000 THEN 2100 CU┆
0x05b20…05b40 52 53 4f 52 20 34 38 2b 32 2a 56 28 4f 29 2c 32 30 2d 5a 28 4f 29 1d 0e 32 31 31 30 20 50 52 49 ┆RSOR 48+2*V(O),20-Z(O) 2110 PRI┆
0x05b40…05b60 4e 54 20 22 78 22 0e 11 32 31 32 30 20 50 52 49 4e 54 20 43 48 52 28 37 29 11 0f 32 31 33 30 20 ┆NT "x" 2120 PRINT CHR(7) 2130 ┆
0x05b60…05b80 43 55 52 53 4f 52 20 31 2c 39 0f 2c 32 31 34 30 20 50 52 49 4e 54 20 22 20 20 20 20 20 20 20 20 ┆CURSOR 1,9 ,2140 PRINT " ┆
0x05b80…05ba0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 2c 0f 32 31 35 30 20 43 ┆ ", 2150 C┆
0x05ba0…05bc0 55 52 53 4f 52 20 31 2c 39 0f 29 32 31 36 30 20 50 52 49 4e 54 20 22 4d 49 54 20 54 52 40 4b 3a ┆URSOR 1,9 )2160 PRINT "MIT TR@K:┆
0x05bc0…05be0 20 22 3b 56 28 4f 29 2d 31 3b 22 3a 22 3b 5a 28 4f 29 2d 31 29 10 32 31 37 30 20 43 55 52 53 4f ┆ ";V(O)-1;":";Z(O)-1) 2170 CURSO┆
0x05be0…05c00 52 20 31 2c 31 32 10 11 32 31 38 30 20 50 52 49 4e 54 20 43 48 52 28 37 29 11 16 32 31 39 30 20 ┆R 1,12 2180 PRINT CHR(7) 2190 ┆
0x05c00…05c20 (10, 0, 3) 50 52 49 4e 54 20 22 4a 45 47 20 56 41 4e 44 54 22 16 1c 32 32 30 30 20 50 52 49 4e 54 20 22 54 ┆PRINT "JEG VANDT" 2200 PRINT "T┆
0x05c20…05c40 41 4b 20 46 4f 52 20 53 50 49 4c 4c 45 54 22 1c 09 32 32 31 30 20 45 4e 44 20 09 0b 32 32 32 30 ┆AK FOR SPILLET" 2210 END 2220┆
0x05c40…05c60 20 45 4e 44 49 46 20 0b 10 32 32 33 30 20 43 41 53 45 20 4c 31 20 4f 46 20 10 0f 32 32 34 30 20 ┆ ENDIF 2230 CASE L1 OF 2240 ┆
0x05c60…05c80 57 48 45 4e 20 35 2c 36 2c 37 0f 0d 32 32 35 30 20 50 3d 50 2b 36 30 30 30 0d 0b 32 32 36 30 20 ┆WHEN 5,6,7 2250 P=P+6000 2260 ┆
0x05c80…05ca0 57 48 45 4e 20 34 0b 0d 32 32 37 30 20 50 3d 50 2b 32 30 30 30 0d 0d 32 32 38 30 20 45 4e 44 43 ┆WHEN 4 2270 P=P+2000 2280 ENDC┆
0x05ca0…05cc0 41 53 45 20 0d 10 32 32 39 30 20 43 41 53 45 20 4b 31 20 4f 46 20 10 0f 32 33 30 30 20 57 48 45 ┆ASE 2290 CASE K1 OF 2300 WHE┆
0x05cc0…05ce0 4e 20 35 2c 36 2c 37 0f 0d 32 33 31 30 20 50 3d 50 2b 38 30 30 30 0d 0b 32 33 32 30 20 57 48 45 ┆N 5,6,7 2310 P=P+8000 2320 WHE┆
0x05ce0…05d00 4e 20 34 0b 0d 32 33 33 30 20 50 3d 50 2b 33 30 30 30 0d 0d 32 33 34 30 20 45 4e 44 43 41 53 45 ┆N 4 2330 P=P+3000 2340 ENDCASE┆
0x05d00…05d20 (10, 0, 4) ExtentHdr {name=»VSKAK «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 0009,02 (0x005300)}, nextfile={DA 000b,04 (0x006700)}, f99=41 08 00 25 00 00 00 00 00 00 ┆A % ┆}
0x05d20…05d40 20 0d 17 32 33 35 30 20 49 46 20 50 3e 31 30 30 30 2a 4e 49 20 54 48 45 4e 20 17 0c 32 33 36 30 ┆ 2350 IF P>1000*NI THEN 2360┆
0x05d40…05d60 20 50 4c 3d 50 4c 2b 31 0c 1a 32 33 37 30 20 56 28 50 4c 29 3d 56 28 4f 29 3b 5a 28 50 4c 29 3d ┆ PL=PL+1 2370 V(PL)=V(O);Z(PL)=┆
0x05d60…05d80 5a 28 4f 29 1a 0a 32 33 38 30 20 45 4c 53 45 20 0a 13 32 33 39 30 20 48 28 56 28 4f 29 2c 5a 28 ┆Z(O) 2380 ELSE 2390 H(V(O),Z(┆
0x05d80…05da0 4f 29 29 3d 30 13 0b 32 34 30 30 20 45 4e 44 49 46 20 0b 23 32 34 31 30 20 49 46 20 50 3e 50 4d ┆O))=0 2400 ENDIF #2410 IF P>PM┆
0x05da0…05dc0 2d 4c 49 4d 20 41 4e 44 20 50 3c 50 4d 2b 4c 49 4d 20 54 48 45 4e 20 23 1e 32 34 32 30 20 4d 58 ┆-LIM AND P<PM+LIM THEN # 2420 MX┆
0x05dc0…05de0 28 4d 41 58 29 3d 56 28 4f 29 3b 4d 59 28 4d 41 58 29 3d 5a 28 4f 29 1e 0e 32 34 33 30 20 4d 41 ┆(MAX)=V(O);MY(MAX)=Z(O) 2430 MA┆
0x05de0…05e00 58 3d 4d 41 58 2b 31 0e 0a 32 34 34 30 20 45 4c 53 45 20 0a 16 32 34 35 30 20 49 46 20 50 3e 50 ┆X=MAX+1 2440 ELSE 2450 IF P>P┆
0x05e00…05e20 (10, 0, 5) 4d 2b 4c 49 4d 20 54 48 45 4e 20 16 25 32 34 36 30 20 50 4d 3d 50 3b 4d 58 28 31 29 3d 56 28 4f ┆M+LIM THEN %2460 PM=P;MX(1)=V(O┆
0x05e20…05e40 29 3b 4d 59 28 31 29 3d 5a 28 4f 29 3b 4d 41 58 3d 32 25 0b 32 34 37 30 20 45 4e 44 49 46 20 0b ┆);MY(1)=Z(O);MAX=2% 2470 ENDIF ┆
0x05e40…05e60 0b 32 34 38 30 20 45 4e 44 49 46 20 0b 0b 32 34 39 30 20 45 4e 44 49 46 20 0b 0a 32 35 30 30 20 ┆ 2480 ENDIF 2490 ENDIF 2500 ┆
0x05e60…05e80 4f 3d 4f 2b 31 0a 1c 32 35 31 30 20 49 46 20 4d 3d 3e 4f 20 54 48 45 4e 20 47 4f 20 54 4f 20 31 ┆O=O+1 2510 IF M=>O THEN GO TO 1┆
0x05e80…05ea0 33 38 30 1c 27 32 35 32 30 20 52 4e 3d 49 4e 54 28 52 4e 44 28 35 29 2a 31 30 30 30 30 29 20 4d ┆380 '2520 RN=INT(RND(5)*10000) M┆
0x05ea0…05ec0 4f 44 20 28 4d 41 58 2d 31 29 2b 31 27 17 32 35 33 30 20 41 28 4d 58 28 52 4e 29 2c 4d 59 28 52 ┆OD (MAX-1)+1' 2530 A(MX(RN),MY(R┆
0x05ec0…05ee0 4e 29 29 3d 31 17 11 32 35 34 30 20 50 52 49 4e 54 20 43 48 52 28 37 29 11 1b 32 35 35 30 20 49 ┆N))=1 2540 PRINT CHR(7) 2550 I┆
0x05ee0…05f00 46 20 46 3d 31 20 54 48 45 4e 20 47 4f 20 54 4f 20 32 35 38 30 1b 21 32 35 36 30 20 43 55 52 53 ┆F F=1 THEN GO TO 2580 !2560 CURS┆
0x05f00…05f20 (10, 0, 6) 4f 52 20 34 38 2b 32 2a 4d 58 28 52 4e 29 2c 32 30 2d 4d 59 28 52 4e 29 21 0e 32 35 37 30 20 50 ┆OR 48+2*MX(RN),20-MY(RN)! 2570 P┆
0x05f20…05f40 52 49 4e 54 20 22 78 22 0e 0f 32 35 38 30 20 43 55 52 53 4f 52 20 31 2c 39 0f 34 32 35 39 30 20 ┆RINT "x" 2580 CURSOR 1,9 42590 ┆
0x05f40…05f60 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 20 20 ┆PRINT " ┆
0x05f60…05f80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 34 0f 32 36 30 30 20 43 55 52 53 4f 52 20 31 2c 39 ┆ "4 2600 CURSOR 1,9┆
0x05f80…05fa0 0f 2d 32 36 31 30 20 50 52 49 4e 54 20 22 4d 49 54 20 54 52 40 4b 3a 20 22 3b 4d 58 28 52 4e 29 ┆ -2610 PRINT "MIT TR@K: ";MX(RN)┆
0x05fa0…05fc0 2d 31 3b 22 3a 22 3b 4d 59 28 52 4e 29 2d 31 2d 22 32 36 32 30 20 45 58 3d 4d 58 28 52 4e 29 3b ┆-1;":";MY(RN)-1-"2620 EX=MX(RN);┆
0x05fc0…05fe0 45 59 3d 4d 59 28 52 4e 29 3b 50 4d 3d 30 3b 4d 3d 50 4c 22 0f 32 36 33 30 20 47 4f 20 54 4f 20 ┆EY=MY(RN);PM=0;M=PL" 2630 GO TO ┆
0x05fe0…06000 30 36 32 30 0f 15 32 36 34 30 20 50 52 49 4e 54 20 22 44 55 20 56 41 4e 44 54 22 15 0f 32 36 35 ┆0620 2640 PRINT "DU VANDT" 265┆
0x06000…06020 (10, 0, 7) 30 20 47 4f 20 54 4f 20 32 32 30 30 0f 1a 32 36 36 30 20 44 41 54 41 20 31 2c 30 2c 31 2c 31 2c ┆0 GO TO 2200 2660 DATA 1,0,1,1,┆
0x06020…06040 30 2c 31 2c 2d 31 2c 31 1a 32 32 36 37 30 20 52 45 4d 20 42 59 20 46 4c 45 4d 4d 49 4e 47 20 4e ┆0,1,-1,1 22670 REM BY FLEMMING N┆
0x06040…06060 49 45 4c 53 45 4e 20 41 4e 44 20 50 41 4c 4c 45 20 43 48 52 49 53 54 45 4e 53 45 4e 32 00 00 00 ┆IELSEN AND PALLE CHRISTENSEN2 ┆
0x06060…06080 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…]
0x06100…06200 (10, 0, 8) 0x00[0x100]
[…0x5…]
0x06700…06720 (11, 0, 5) ExtentHdr {name=»DATA «, typ=»K«, seg=»A«, next=0x02, basis=0x000a, nextext={DA 000c,05 (0x007100)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000c,05 (0x007100)}, f99=41 0b 00 ff 00 00 00 00 00 00 ┆A ┆}
0x06720…06740 20 07 be 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 07 ae 00 00 01 80 00 00 10 9c 40 00 11 c3 50 ┆ @ P @ P┆
0x06740…06760 00 20 20 07 a6 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 a2 00 00 01 80 00 00 0b 83 a0 00 0c ┆ p ┆
0x06760…06780 bb b0 00 20 20 07 bc 00 00 01 80 00 00 0a c8 c0 00 0c af 30 00 07 ba 00 00 01 80 00 00 0e 8c a0 ┆ 0 ┆
0x06780…067a0 00 0f 94 70 00 20 20 07 b6 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 ac 00 00 01 80 00 00 0a ┆ p p ┆
0x067a0…067c0 ee 40 00 0c be d0 00 20 20 07 aa 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 a4 00 00 01 80 00 ┆ @ p ┆
0x067c0…067e0 00 09 fb 00 00 0c a2 a0 00 20 20 07 b4 00 00 01 80 00 00 0a d5 00 00 0c a3 e0 00 07 ae 00 00 02 ┆ ┆
0x067e0…06800 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 a6 00 00 02 80 00 00 0b a4 20 00 0c af 30 00 07 a2 00 ┆ @ P 0 ┆
0x06800…06820 (11, 0, 6) 00 02 80 00 00 0b a4 20 00 0c af 30 00 20 20 07 a0 00 00 02 80 00 00 00 00 00 00 00 00 00 00 07 ┆ 0 ┆
0x06820…06840 ac 00 00 02 80 00 00 0b 89 e0 00 0c af 30 00 20 20 07 aa 00 00 02 80 00 00 0e 8c a0 00 0f 94 70 ┆ 0 p┆
0x06840…06860 00 07 a4 00 00 02 80 00 00 09 fa 00 00 0a b5 40 00 20 20 07 a0 00 00 01 80 00 00 09 96 00 00 0a ┆ @ ┆
0x06860…06880 bb 80 00 06 bc 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 06 9c 00 00 01 80 00 00 0e 8c a0 ┆ @ P ┆
0x06880…068a0 00 0f 94 70 00 06 8c 00 00 01 80 00 00 0a e6 c0 00 0c bb b0 00 20 20 06 84 00 00 01 80 00 00 08 ┆ p ┆
0x068a0…068c0 c8 00 00 0a b5 40 00 06 b8 00 00 01 80 00 00 0a af c0 00 0c af 30 00 20 20 06 b4 00 00 01 80 00 ┆ @ 0 ┆
0x068c0…068e0 00 0b 90 20 00 0c af 30 00 06 ac 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 20 20 06 98 00 00 01 ┆ 0 p ┆
0x068e0…06900 80 00 00 09 e2 00 00 0c a2 a0 00 06 94 00 00 01 80 00 00 0a ee 00 00 0c a2 a0 00 20 20 06 88 00 ┆ ┆
0x06900…06920 (11, 0, 7) 00 01 80 00 00 07 be 00 00 07 c8 00 00 06 a8 00 00 01 80 00 00 07 c8 00 00 08 c8 00 00 20 20 06 ┆ ┆
0x06920…06940 9c 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 06 8c 00 00 02 80 00 00 0b a1 a0 00 0c af 30 00 20 ┆ 0 0 ┆
0x06940…06960 20 06 84 00 00 02 80 00 00 00 00 00 00 00 00 00 00 06 80 00 00 02 80 00 00 00 00 00 00 00 00 00 ┆ ┆
0x06960…06980 00 20 20 06 98 00 00 02 80 00 00 09 e1 00 00 0a b1 80 00 06 94 00 00 02 80 00 00 09 fa 00 00 0a ┆ ┆
0x06980…069a0 b5 40 00 20 20 06 88 00 00 02 80 00 00 04 f0 00 00 07 be 00 00 06 80 00 00 01 80 00 00 04 f0 00 ┆ @ ┆
0x069a0…069c0 00 06 c8 00 00 20 20 04 f0 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 03 e0 00 00 00 00 00 00 0e ┆ @ P ┆
0x069c0…069e0 8c a0 00 0f 94 70 00 20 20 02 c0 00 00 00 00 00 00 0a e1 80 00 0c bb a0 00 01 80 00 00 00 00 00 ┆ p ┆
0x069e0…06a00 00 04 a0 00 00 08 fa 00 00 20 20 04 e0 00 00 00 00 00 00 09 fb 80 00 0c af 30 00 04 d0 00 00 00 ┆ 0 ┆
0x06a00…06a20 (11, 0, 8) 00 00 00 0b 90 20 00 0c af 30 00 20 20 04 b0 00 00 00 00 00 00 0b 9c a0 00 0c bb b0 00 03 c0 00 ┆ 0 ┆
0x06a20…06a40 00 00 00 00 00 07 cc 00 00 0c a2 a0 00 20 20 03 a0 00 00 00 00 00 00 0a e1 80 00 0c a2 a0 00 02 ┆ ┆
0x06a40…06a60 80 00 00 00 00 00 00 04 a0 00 00 07 c8 00 00 20 20 04 a0 00 00 00 00 00 00 06 c8 00 00 07 fa 00 ┆ ┆
0x06a60…06a80 00 03 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 02 c0 00 00 01 80 00 00 08 c8 00 00 0a ┆ 0 ┆
0x06a80…06aa0 af 00 00 01 80 00 00 01 80 00 00 04 f0 00 00 07 96 00 00 20 20 00 00 00 00 01 80 00 00 00 00 00 ┆ ┆
0x06aa0…06ac0 00 00 00 00 00 03 c0 00 00 01 80 00 00 09 82 00 00 0a b5 40 00 20 20 03 a0 00 00 01 80 00 00 08 ┆ @ ┆
0x06ac0…06ae0 c8 00 00 0a bb 80 00 02 80 00 00 01 80 00 00 04 f0 00 00 06 c8 00 00 20 20 00 00 00 00 00 00 00 ┆ ┆
0x06ae0…06b00 00 00 00 00 00 00 00 00 00 06 fc 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 06 f8 00 00 01 ┆ @ P ┆
0x06b00…06b20 (11, 0, 9) 80 00 00 0a bc 40 00 0c af 30 00 06 f4 00 00 01 80 00 00 0b af 60 00 0c af 30 00 20 20 06 ec 00 ┆ @ 0 ` 0 ┆
0x06b20…06b40 00 01 80 00 00 10 9c 40 00 11 c3 50 00 06 e8 00 00 01 80 00 00 0a fa c0 00 0c af 30 00 20 20 06 ┆ @ P 0 ┆
0x06b40…06b60 dc 00 00 02 80 00 00 10 9c 40 00 11 c3 50 00 06 cc 00 00 02 80 00 00 10 9c 40 00 11 c3 50 00 20 ┆ @ P @ P ┆
0x06b60…06b80 20 06 c4 00 00 02 80 00 00 00 00 00 00 00 00 00 00 06 c0 00 00 02 80 00 00 00 00 00 00 00 00 00 ┆ ┆
0x06b80…06ba0 00 20 20 06 d8 00 00 02 80 00 00 0b a2 e0 00 0c af 30 00 06 d4 00 00 02 80 00 00 0b a2 e0 00 0c ┆ 0 ┆
0x06ba0…06bc0 af 30 00 20 20 06 c8 00 00 02 80 00 00 0b a2 e0 00 0c af 30 00 05 f8 00 00 01 80 00 00 10 9c 40 ┆ 0 0 @┆
0x06bc0…06be0 00 11 c3 50 00 20 20 05 f0 00 00 01 80 00 00 0a af c0 00 0c af 30 00 05 e8 00 00 01 80 00 00 0b ┆ P 0 ┆
0x06be0…06c00 90 20 00 0c af 30 00 20 20 05 d8 00 00 01 80 00 00 0b 9c a0 00 0c af 30 00 05 d0 00 00 01 80 00 ┆ 0 0 ┆
0x06c00…06c20 (12, 0, 1) 00 09 96 00 00 0a bb 80 00 20 20 05 b8 00 00 02 80 00 00 10 9c 40 00 11 c3 50 00 05 98 00 00 02 ┆ @ P ┆
0x06c20…06c40 80 00 00 00 00 00 00 00 00 00 00 20 20 05 88 00 00 02 80 00 00 00 00 00 00 00 00 00 00 05 80 00 ┆ ┆
0x06c40…06c60 00 02 80 00 00 00 00 00 00 00 00 00 00 20 20 05 b0 00 00 02 80 00 00 0b a2 e0 00 0c af 30 00 05 ┆ 0 ┆
0x06c60…06c80 a8 00 00 02 80 00 00 0b a4 20 00 0c af 30 00 20 20 05 90 00 00 02 80 00 00 00 00 00 00 00 00 00 ┆ 0 ┆
0x06c80…06ca0 00 04 f0 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 04 e0 00 00 01 80 00 00 09 fb 80 00 0c ┆ @ P ┆
0x06ca0…06cc0 af 30 00 04 d0 00 00 01 80 00 00 0b 83 a0 00 0c af 30 00 20 20 04 b0 00 00 01 80 00 00 0b 90 20 ┆ 0 0 ┆
0x06cc0…06ce0 00 0c af 30 00 04 a0 00 00 01 80 00 00 07 c8 00 00 07 c8 00 00 20 20 03 e0 00 00 02 80 00 00 00 ┆ 0 ┆
0x06ce0…06d00 00 00 00 00 00 00 00 02 c0 00 00 02 80 00 00 00 00 00 00 00 00 00 00 20 20 01 80 00 00 02 80 00 ┆ ┆
0x06d00…06d20 (12, 0, 2) 00 00 00 00 00 00 00 00 00 00 00 00 00 02 80 00 00 00 00 00 00 00 00 00 00 20 20 03 c0 00 00 02 ┆ ┆
0x06d20…06d40 80 00 00 00 00 00 00 00 00 00 00 03 a0 00 00 02 80 00 00 00 00 00 00 00 00 00 00 20 20 02 80 00 ┆ ┆
0x06d40…06d60 00 02 80 00 00 00 00 00 00 00 00 00 00 07 de 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 ┆ @ P ┆
0x06d60…06d80 dc 00 00 01 80 00 00 0a bc 40 00 0c af 30 00 07 da 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 20 ┆ @ 0 p ┆
0x06d80…06da0 20 07 d6 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 d4 00 00 01 80 00 00 09 96 00 00 0a bb 80 ┆ p ┆
0x06da0…06dc0 00 20 20 07 ce 00 00 02 80 00 00 0b af 60 00 0c af 30 00 07 c6 00 00 02 80 00 00 0b a2 e0 00 0c ┆ ` 0 ┆
0x06dc0…06de0 af 30 00 20 20 07 c2 00 00 02 80 00 00 0b a2 e0 00 0c af 30 00 07 c0 00 00 02 80 00 00 00 00 00 ┆ 0 0 ┆
0x06de0…06e00 00 00 00 00 00 20 20 07 cc 00 00 02 80 00 00 09 fa 00 00 0a b5 40 00 07 ca 00 00 02 80 00 00 0b ┆ @ ┆
0x06e00…06e20 (12, 0, 3) 89 e0 00 0c af 30 00 20 20 07 c4 00 00 02 80 00 00 09 e1 00 00 0a af 00 00 08 ff 00 00 00 00 00 ┆ 0 ┆
0x06e20…06e40 00 10 9c 40 00 11 c3 50 00 20 20 08 f7 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 08 f3 00 00 00 ┆ @ P @ P ┆
0x06e40…06e60 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f1 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 08 fe 00 ┆ @ P @ P ┆
0x06e60…06e80 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 fd 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 08 ┆ @ P @ P ┆
0x06e80…06ea0 fb 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f6 00 00 00 00 00 00 10 9c 40 00 11 c3 50 ┆ @ P @ P┆
0x06ea0…06ec0 00 08 f5 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f2 00 00 00 00 00 00 10 9c 40 00 11 ┆ @ P @ ┆
0x06ec0…06ee0 c3 50 00 08 fa 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f7 00 00 01 80 00 00 10 9c 40 ┆ P @ P @┆
0x06ee0…06f00 00 11 c3 50 00 08 f3 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f1 00 00 01 80 00 00 10 ┆ P @ P ┆
0x06f00…06f20 (12, 0, 4) 9c 40 00 11 c3 50 00 08 f0 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f6 00 00 01 80 00 ┆ @ P @ P ┆
0x06f20…06f40 00 10 9c 40 00 11 c3 50 00 08 f5 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 08 f2 00 00 01 ┆ @ P @ P ┆
0x06f40…06f60 80 00 00 10 9c 40 00 11 c3 50 00 08 f0 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 07 fe 00 ┆ @ P @ P ┆
0x06f60…06f80 00 00 00 00 00 10 9c 40 00 11 c3 50 00 07 ee 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 07 ┆ @ P @ P ┆
0x06f80…06fa0 e6 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 07 e2 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 ┆ @ P @ P ┆
0x06fa0…06fc0 20 07 fc 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 fa 00 00 00 00 00 00 10 9c 40 00 11 c3 50 ┆ p @ P┆
0x06fc0…06fe0 00 20 20 07 f6 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 07 ec 00 00 00 00 00 00 0e 8c a0 00 0f ┆ @ P ┆
0x06fe0…07000 94 70 00 20 20 07 ea 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 07 e4 00 00 00 00 00 00 0e 8c a0 ┆ p @ P ┆
0x07000…07020 (12, 0, 5) 00 0f 94 70 00 20 20 07 f4 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 e0 00 00 00 00 00 00 0e ┆ p p ┆
0x07020…07040 8c a0 00 0f 94 70 00 20 20 06 fc 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 06 dc 00 00 00 00 00 ┆ p @ P ┆
0x07040…07060 00 10 9c 40 00 11 c3 50 00 20 20 06 cc 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 06 c4 00 00 00 ┆ @ P @ P ┆
0x07060…07080 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 06 f8 00 00 00 00 00 00 0b af 60 00 0c c1 f0 00 06 f4 00 ┆ p ` ┆
0x07080…070a0 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 06 ec 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 06 ┆ p @ P ┆
0x070a0…070c0 d8 00 00 00 00 00 00 0a fa c0 00 0c bb b0 00 20 20 06 d4 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 ┆ p┆
0x070c0…070e0 00 06 c8 00 00 00 00 00 00 0a ee 40 00 0c bb b0 00 20 20 06 e8 00 00 00 00 00 00 0a fa c0 00 0c ┆ @ ┆
0x070e0…07100 bb b0 00 06 dc 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 06 cc 00 00 01 80 00 00 10 9c 40 ┆ @ P @┆
0x07100…07120 (12, 0, 6) ExtentHdr {name=»DATA «, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 000d,06 (0x007b00)}, prevext={DA 000b,04 (0x006700)}, nextfile={DA 000d,06 (0x007b00)}, f99=41 0b 00 20 00 00 00 00 00 00 ┆A ┆}
0x07120…07140 00 11 c3 50 00 06 c4 00 00 01 80 00 00 08 cb 00 00 0c af 30 00 20 20 06 c0 00 00 01 80 00 00 08 ┆ P 0 ┆
0x07140…07160 c8 00 00 0a af 00 00 06 d8 00 00 01 80 00 00 0a fa c0 00 0c bb b0 00 20 20 06 d4 00 00 01 80 00 ┆ ┆
0x07160…07180 00 0e 8c a0 00 0f 94 70 00 06 c8 00 00 01 80 00 00 0a e6 c0 00 0c bb b0 00 20 20 06 c0 00 00 00 ┆ p ┆
0x07180…071a0 00 00 00 0a fa 80 00 0c bb a0 00 05 f8 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 05 b8 00 ┆ @ P ┆
0x071a0…071c0 00 00 00 00 00 10 9c 40 00 11 c3 50 00 05 98 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 05 ┆ @ P p ┆
0x071c0…071e0 88 00 00 00 00 00 00 0a fa 80 00 0c bb a0 00 05 f0 00 00 00 00 00 00 0a bc 40 00 0c af 30 00 20 ┆ @ 0 ┆
0x071e0…07200 20 05 e8 00 00 00 00 00 00 0b 9c a0 00 0c bb b0 00 05 d8 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 ┆ p┆
0x07200…07220 (12, 0, 7) 00 20 20 05 b0 00 00 00 00 00 00 0a bc 40 00 0c af 30 00 05 a8 00 00 00 00 00 00 0b 89 e0 00 0c ┆ @ 0 ┆
0x07220…07240 bb b0 00 20 20 05 90 00 00 00 00 00 00 09 fb 00 00 0c a2 a0 00 05 d0 00 00 00 00 00 00 09 b0 00 ┆ ┆
0x07240…07260 00 0c a2 a0 00 20 20 05 b8 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 05 98 00 00 01 80 00 00 08 ┆ @ P ┆
0x07260…07280 cb 00 00 0c af 30 00 20 20 05 88 00 00 01 80 00 00 07 c8 00 00 0a af 00 00 05 80 00 00 01 80 00 ┆ 0 ┆
0x07280…072a0 00 04 a0 00 00 07 96 00 00 20 20 05 b0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 05 a8 00 00 01 ┆ 0 ┆
0x072a0…072c0 80 00 00 0a ee 40 00 0c bb b0 00 20 20 05 90 00 00 01 80 00 00 08 c8 00 00 0a b5 40 00 05 80 00 ┆ @ @ ┆
0x072c0…072e0 00 00 00 00 00 04 a0 00 00 08 fa 00 00 20 20 08 ef 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 08 ┆ @ P ┆
0x072e0…07300 e7 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 e3 00 00 00 00 00 00 0b af 60 00 0c c1 f0 ┆ p ` ┆
0x07300…07320 (12, 0, 8) 00 08 e1 00 00 00 00 00 00 0a bc 40 00 0c af 30 00 20 20 08 ee 00 00 00 00 00 00 0e 8c a0 00 0f ┆ @ 0 ┆
0x07320…07340 94 70 00 08 ed 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 eb 00 00 00 00 00 00 0e 8c a0 ┆ p p ┆
0x07340…07360 00 0f 94 70 00 08 e6 00 00 00 00 00 00 0a bc 40 00 0c be d0 00 20 20 08 e5 00 00 00 00 00 00 0a ┆ p @ ┆
0x07360…07380 fa c0 00 0c be d0 00 08 e2 00 00 00 00 00 00 0a be c0 00 0c af 30 00 20 20 08 ea 00 00 00 00 00 ┆ 0 ┆
0x07380…073a0 00 0a be c0 00 0c be d0 00 08 e7 00 00 01 80 00 00 0b 83 a0 00 0c be d0 00 20 20 08 e3 00 00 01 ┆ ┆
0x073a0…073c0 80 00 00 0a bc 40 00 0c af 30 00 08 e1 00 00 01 80 00 00 0a af c0 00 0c af 30 00 20 20 08 e0 00 ┆ @ 0 0 ┆
0x073c0…073e0 00 01 80 00 00 09 fb 80 00 0c af 30 00 08 e6 00 00 01 80 00 00 0a bc 40 00 0c af 30 00 20 20 08 ┆ 0 @ 0 ┆
0x073e0…07400 e5 00 00 01 80 00 00 0a c8 c0 00 0c af 30 00 08 e2 00 00 01 80 00 00 0a af c0 00 0c af 30 00 20 ┆ 0 0 ┆
0x07400…07420 (12, 0, 9) 20 08 e0 00 00 00 00 00 00 09 fb 80 00 0c af 30 00 08 df 00 00 00 00 00 00 10 9c 40 00 11 c3 50 ┆ 0 @ P┆
0x07420…07440 00 20 20 08 d7 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 08 d3 00 00 00 00 00 00 0e 8c a0 00 0f ┆ @ P ┆
0x07440…07460 94 70 00 20 20 08 d1 00 00 00 00 00 00 0b 9c a0 00 0c c1 f0 00 08 de 00 00 00 00 00 00 0e 8c a0 ┆ p ┆
0x07460…07480 00 0f 94 70 00 20 20 08 dd 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 08 db 00 00 00 00 00 00 0e ┆ p p ┆
0x07480…074a0 8c a0 00 0f 94 70 00 20 20 08 d6 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 08 d5 00 00 00 00 00 ┆ p p ┆
0x074a0…074c0 00 0e 8c a0 00 0f 94 70 00 20 20 08 d2 00 00 00 00 00 00 0b 96 60 00 0c c1 f0 00 08 da 00 00 00 ┆ p ` ┆
0x074c0…074e0 00 00 00 0b 9c a0 00 0c c1 f0 00 20 20 08 d7 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 08 d3 00 ┆ @ P ┆
0x074e0…07500 00 01 80 00 00 0b af 60 00 0c af 30 00 20 20 08 d1 00 00 01 80 00 00 0b 90 20 00 0c af 30 00 08 ┆ ` 0 0 ┆
0x07500…07520 (13, 0, 1) d0 00 00 01 80 00 00 0b 83 a0 00 0c af 30 00 20 20 08 d6 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 ┆ 0 p┆
0x07520…07540 00 08 d5 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 d2 00 00 01 80 00 00 0b 90 20 00 0c ┆ p ┆
0x07540…07560 af 30 00 08 d0 00 00 00 00 00 00 0b 90 20 00 0c af 30 00 20 20 08 bf 00 00 00 00 00 00 10 9c 40 ┆ 0 0 @┆
0x07560…07580 00 11 c3 50 00 08 b7 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 08 b3 00 00 00 00 00 00 10 ┆ P @ P ┆
0x07580…075a0 9c 40 00 11 c3 50 00 08 b1 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 be 00 00 00 00 00 ┆ @ P p ┆
0x075a0…075c0 00 0e 8c a0 00 0f 94 70 00 08 bd 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 bb 00 00 00 ┆ p p ┆
0x075c0…075e0 00 00 00 10 9c 40 00 11 c3 50 00 08 b6 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 b5 00 ┆ @ P p ┆
0x075e0…07600 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 08 b2 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 ┆ p p ┆
0x07600…07620 (13, 0, 2) ba 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 08 b7 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 ┆ p @ P ┆
0x07620…07640 20 08 b3 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 08 b1 00 00 01 80 00 00 0b 9c a0 00 0c af 30 ┆ @ P 0┆
0x07640…07660 00 20 20 08 b0 00 00 01 80 00 00 0b 90 20 00 0c af 30 00 08 b6 00 00 01 80 00 00 0e 8c a0 00 0f ┆ 0 ┆
0x07660…07680 94 70 00 20 20 08 b5 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 08 b2 00 00 01 80 00 00 0e 8c a0 ┆ p p ┆
0x07680…076a0 00 0f 94 70 00 20 20 08 b0 00 00 00 00 00 00 0b 9c a0 00 0c bb b0 00 07 de 00 00 00 00 00 00 10 ┆ p ┆
0x076a0…076c0 9c 40 00 11 c3 50 00 20 20 07 ce 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 c6 00 00 00 00 00 ┆ @ P p ┆
0x076c0…076e0 00 0a fa 00 00 0c bb 80 00 20 20 07 c2 00 00 00 00 00 00 0a bc 40 00 0c af 30 00 07 dc 00 00 00 ┆ @ 0 ┆
0x076e0…07700 00 00 00 0a bc 40 00 0c c1 f0 00 20 20 07 da 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 d6 00 ┆ @ p ┆
0x07700…07720 (13, 0, 3) 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 07 cc 00 00 00 00 00 00 09 fb 00 00 0c be c0 00 07 ┆ p ┆
0x07720…07740 ca 00 00 00 00 00 00 0a fa c0 00 0c be d0 00 20 20 07 c4 00 00 00 00 00 00 0a 99 00 00 0c a2 a0 ┆ ┆
0x07740…07760 00 07 d4 00 00 00 00 00 00 0a 99 00 00 0c a5 c0 00 20 20 07 ce 00 00 01 80 00 00 0e 8c a0 00 0f ┆ ┆
0x07760…07780 94 70 00 07 c6 00 00 01 80 00 00 0a fa c0 00 0c bb b0 00 20 20 07 c2 00 00 01 80 00 00 0a fa c0 ┆ p ┆
0x07780…077a0 00 0c af 30 00 07 c0 00 00 01 80 00 00 09 82 00 00 0a b5 40 00 20 20 07 cc 00 00 01 80 00 00 09 ┆ 0 @ ┆
0x077a0…077c0 e2 00 00 0c a2 a0 00 07 ca 00 00 01 80 00 00 0a ee 40 00 0c be d0 00 20 20 07 c4 00 00 01 80 00 ┆ @ ┆
0x077c0…077e0 00 09 e2 00 00 0c a2 a0 00 07 c0 00 00 00 00 00 00 07 cc 00 00 0c a2 a0 00 20 20 07 be 00 00 00 ┆ ┆
0x077e0…07800 00 00 00 10 9c 40 00 11 c3 50 00 07 ae 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 20 20 07 a6 00 ┆ @ P @ P ┆
0x07800…07820 (13, 0, 4) 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 a2 00 00 00 00 00 00 0b 89 e0 00 0c bb b0 00 20 20 07 ┆ p ┆
0x07820…07840 bc 00 00 00 00 00 00 0a fa c0 00 0c be d0 00 07 ba 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 ┆ p ┆
0x07840…07860 20 07 b6 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 ac 00 00 00 00 00 00 0a fa c0 00 0c be d0 ┆ p ┆
0x07860…07880 00 20 20 07 aa 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 07 a4 00 00 00 00 00 00 0a ee 00 00 0c ┆ p ┆
0x07880…078a0 ad 40 00 20 20 07 b4 00 00 00 00 00 00 0a f3 00 00 0c ad 40 00 07 a0 00 00 00 00 00 00 0a e1 80 ┆ @ @ ┆
0x078a0…078c0 00 0c a2 a0 00 20 20 06 bc 00 00 00 00 00 00 10 9c 40 00 11 c3 50 00 06 9c 00 00 00 00 00 00 0e ┆ @ P ┆
0x078c0…078e0 8c a0 00 0f 94 70 00 20 20 06 8c 00 00 00 00 00 00 0a ee 40 00 0c bb b0 00 06 84 00 00 00 00 00 ┆ p @ ┆
0x078e0…07900 00 09 fb 00 00 0c a2 a0 00 20 20 06 b8 00 00 00 00 00 00 0a be c0 00 0c af 30 00 06 b4 00 00 00 ┆ 0 ┆
0x07900…07920 (13, 0, 5) 00 00 00 0b 96 60 00 0c be d0 00 20 20 06 ac 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 06 98 00 ┆ ` p ┆
0x07920…07940 00 00 00 00 00 0a a3 00 00 0c a2 a0 00 20 20 06 94 00 00 00 00 00 00 0a ee 00 00 0c ad 40 00 06 ┆ @ ┆
0x07940…07960 88 00 00 00 00 00 00 07 c8 00 00 07 c8 00 00 20 20 06 a8 00 00 00 00 00 00 08 96 00 00 09 96 00 ┆ ┆
0x07960…07980 00 06 80 00 00 00 00 00 00 04 a0 00 00 07 c8 00 00 20 20 08 af 00 00 00 00 00 00 10 9c 40 00 11 ┆ @ ┆
0x07980…079a0 c3 50 00 08 a7 00 00 00 00 00 00 0e 8c a0 00 0f 94 70 00 20 20 08 a3 00 00 00 00 00 00 0a fa c0 ┆ P p ┆
0x079a0…079c0 00 0c bb b0 00 08 a1 00 00 00 00 00 00 09 b0 00 00 0c a2 a0 00 20 20 08 ae 00 00 00 00 00 00 0a ┆ ┆
0x079c0…079e0 be c0 00 0c be d0 00 08 ad 00 00 00 00 00 00 0b 9c a0 00 0c be d0 00 20 20 08 ab 00 00 00 00 00 ┆ ┆
0x079e0…07a00 00 0e 8c a0 00 0f 94 70 00 08 a6 00 00 00 00 00 00 0a 99 00 00 0c a8 e0 00 20 20 08 a5 00 00 00 ┆ p ┆
0x07a00…07a20 (13, 0, 6) 00 00 00 0a fa c0 00 0c bb b0 00 08 a2 00 00 00 00 00 00 08 96 00 00 09 96 00 00 20 20 08 aa 00 ┆ ┆
0x07a20…07a40 00 00 00 00 00 08 fa 00 00 08 c8 00 00 08 a7 00 00 01 80 00 00 0b a9 20 00 0c af 30 00 20 20 08 ┆ 0 ┆
0x07a40…07a60 a3 00 00 01 80 00 00 0a fa c0 00 0c b0 70 00 08 a1 00 00 01 80 00 00 09 96 00 00 0a bb 80 00 20 ┆ p ┆
0x07a60…07a80 20 08 a0 00 00 01 80 00 00 07 c8 00 00 07 c8 00 00 08 a6 00 00 01 80 00 00 09 96 00 00 0a bb 80 ┆ ┆
0x07a80…07aa0 00 20 20 08 a5 00 00 01 80 00 00 0a d5 00 00 0c a3 e0 00 08 a2 00 00 01 80 00 00 07 c8 00 00 08 ┆ ┆
0x07aa0…07ac0 82 00 00 20 20 08 a0 00 00 00 00 00 00 06 c8 00 00 07 fa 00 00 07 fe 00 00 01 80 00 00 10 9c 40 ┆ @┆
0x07ac0…07ae0 00 11 c3 50 00 20 20 07 ee 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 07 e6 00 00 01 80 00 00 10 ┆ P @ P ┆
0x07ae0…07b00 9c 40 00 11 c3 50 00 20 20 07 e2 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 07 fc 00 00 01 80 00 ┆ @ P @ P ┆
0x07b00…07b20 (13, 0, 7) ExtentHdr {name=»DATA «, typ=»K«, seg=»C«, next=0x02, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000c,05 (0x007100)}, nextfile={DA 000e,07 (0x008500)}, f99=41 0b 00 20 00 00 00 00 00 00 ┆A ┆}
0x07b20…07b40 00 0b 83 a0 00 0c af 30 00 20 20 07 fa 00 00 01 80 00 00 10 9c 40 00 11 c3 50 00 07 f6 00 00 01 ┆ 0 @ P ┆
0x07b40…07b60 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 ec 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 ea 00 ┆ @ P p ┆
0x07b60…07b80 00 01 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 e4 00 00 01 80 00 00 0e 8c a0 00 0f 94 70 00 07 ┆ @ P p ┆
0x07b80…07ba0 f4 00 00 01 80 00 00 0b a9 20 00 0c af 30 00 20 20 07 ee 00 00 02 80 00 00 10 9c 40 00 11 c3 50 ┆ 0 @ P┆
0x07ba0…07bc0 00 07 e6 00 00 02 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 e2 00 00 02 80 00 00 10 9c 40 00 11 ┆ @ P @ ┆
0x07bc0…07be0 c3 50 00 07 e0 00 00 02 80 00 00 00 00 00 00 00 00 00 00 20 20 07 ec 00 00 02 80 00 00 0b af 60 ┆ P `┆
0x07be0…07c00 00 0c af 30 00 07 ea 00 00 02 80 00 00 10 9c 40 00 11 c3 50 00 20 20 07 e4 00 00 02 80 00 00 0b ┆ 0 @ P ┆
0x07c00…07c20 (13, 0, 8) a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 ┆ 0 0 ┆
0x07c20…07c40 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 ┆ 0 0 ┆
0x07c40…07c60 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 ┆ 0 0 ┆
0x07c60…07c80 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 ┆ 0 0 ┆
0x07c80…07ca0 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 ┆ 0 0 ┆
0x07ca0…07cc0 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 ┆ 0 0┆
0x07cc0…07ce0 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c ┆ 0 ┆
0x07ce0…07d00 af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 ┆ 0 0 ┆
0x07d00…07d20 (13, 0, 9) 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a ┆ 0 0 ┆
0x07d20…07d40 e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 ┆ 0 0 ┆
0x07d40…07d60 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 ┆ 0 0 ┆
0x07d60…07d80 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 ┆ 0 0 ┆
0x07d80…07da0 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 ┆ 0 0 ┆
0x07da0…07dc0 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 ┆ 0 0┆
0x07dc0…07de0 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c ┆ 0 ┆
0x07de0…07e00 af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 ┆ 0 0 ┆
0x07e00…07e20 (14, 0, 1) 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b ┆ 0 0 ┆
0x07e20…07e40 a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 ┆ 0 0 ┆
0x07e40…07e60 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 ┆ 0 0 ┆
0x07e60…07e80 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 ┆ 0 0 ┆
0x07e80…07ea0 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 ┆ 0 0 ┆
0x07ea0…07ec0 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 ┆ 0 0 ┆
0x07ec0…07ee0 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 ┆ 0 0┆
0x07ee0…07f00 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c ┆ 0 ┆
0x07f00…07f20 (14, 0, 2) af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 ┆ 0 0 ┆
0x07f20…07f40 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a ┆ 0 0 ┆
0x07f40…07f60 e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 ┆ 0 0 ┆
0x07f60…07f80 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 ┆ 0 0 ┆
0x07f80…07fa0 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 ┆ 0 0 ┆
0x07fa0…07fc0 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 ┆ 0 0 ┆
0x07fc0…07fe0 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 ┆ 0 0┆
0x07fe0…08000 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c ┆ 0 ┆
0x08000…08020 (14, 0, 3) af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b a9 20 ┆ 0 0 ┆
0x08020…08040 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 00 0b ┆ 0 0 ┆
0x08040…08060 a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 80 00 ┆ 0 0 ┆
0x08060…08080 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 00 02 ┆ 0 0 ┆
0x08080…080a0 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 e4 00 ┆ 0 0 ┆
0x080a0…080c0 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 20 07 ┆ 0 0 ┆
0x080c0…080e0 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 00 20 ┆ 0 0 ┆
0x080e0…08100 20 07 e4 00 00 02 80 00 00 0b a9 20 00 0c af 30 00 07 e0 00 00 01 80 00 00 0a e1 c0 00 0c af 30 ┆ 0 0┆
0x08100…08120 (14, 0, 4) 00 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 00 ┆ ┆
0x08120…08140 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 ┆ ┆
[…0x6…]
0x08200…08300 (14, 0, 5) 0x00[0x100]
[…0x2…]
0x08500…08520 (14, 0, 8) ExtentHdr {name=»HESTSPIL«, typ=»K«, seg=»A«, next=0x01, basis=0x000a, nextext={DA 000f,08 (0x008f00)}, prevext={DA 0000,00 (0x000000)}, nextfile={DA 000f,08 (0x008f00)}, f99=41 0e 00 fe 00 00 00 00 00 00 ┆A ┆}
0x08520…08540 2a 30 31 30 30 20 52 45 4d 20 2d 2d 20 20 48 20 45 20 53 20 54 20 45 20 56 20 5b 20 44 20 44 20 ┆*0100 REM -- H E S T E V Æ D D ┆
0x08540…08560 45 20 4c 20 5c 20 42 20 20 2d 2d 2a 2b 30 31 31 30 20 52 45 4d 20 53 50 43 2f 31 20 43 4f 4d 41 ┆E L Ø B --*+0110 REM SPC/1 COMA┆
0x08560…08580 4c 2e 20 20 53 54 45 45 4e 20 4f 4c 53 45 4e 20 32 30 2e 30 32 2e 38 30 2b 09 30 31 32 30 20 52 ┆L. STEEN OLSEN 20.02.80+ 0120 R┆
0x08580…085a0 45 4d 20 09 09 30 31 33 30 20 52 45 4d 20 09 1a 30 31 35 30 20 44 49 4d 20 48 45 53 54 45 28 35 ┆EM 0130 REM 0150 DIM HESTE(5┆
0x085a0…085c0 29 2c 53 56 41 52 24 28 31 29 1a 0b 30 31 36 30 20 43 4c 45 41 52 20 0b 10 30 31 37 30 20 43 55 ┆),SVAR$(1) 0160 CLEAR 0170 CU┆
0x085c0…085e0 52 53 4f 52 20 32 30 2c 33 10 24 30 31 38 30 20 3b 20 22 48 20 45 20 53 20 54 20 45 20 56 20 5b ┆RSOR 20,3 $0180 ; "H E S T E V Æ┆
0x085e0…08600 20 44 20 44 20 45 20 4c 20 5c 20 42 20 20 22 24 10 30 31 39 30 20 43 55 52 53 4f 52 20 32 30 2c ┆ D D E L Ø B "$ 0190 CURSOR 20,┆
0x08600…08620 (14, 0, 9) 34 10 22 30 32 30 30 20 3b 20 22 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆4 "0200 ; "---------------------┆
0x08620…08640 2d 2d 2d 2d 22 22 10 30 32 31 30 20 43 55 52 53 4f 52 20 35 2c 32 30 10 46 30 32 32 30 20 3b 20 ┆----"" 0210 CURSOR 5,20 F0220 ; ┆
0x08640…08660 22 49 20 44 45 54 54 45 20 53 50 49 4c 20 4b 41 4e 20 44 55 20 53 50 49 4c 4c 45 52 20 45 54 20 ┆"I DETTE SPIL KAN DU SPILLER ET ┆
0x08660…08680 42 45 4c 5c 42 20 50 5d 20 45 4e 20 48 45 53 54 2c 20 44 45 52 20 44 45 4c 54 41 47 45 52 22 46 ┆BELØB PÅ EN HEST, DER DELTAGER"F┆
0x08680…086a0 10 30 32 33 30 20 43 55 52 53 4f 52 20 35 2c 32 31 10 48 30 32 34 30 20 3b 20 22 49 20 45 54 20 ┆ 0230 CURSOR 5,21 H0240 ; "I ET ┆
0x086a0…086c0 48 45 53 54 45 56 5b 44 44 45 4c 5c 42 2e 20 55 44 20 46 52 41 20 48 45 53 54 45 4e 45 53 20 53 ┆HESTEVÆDDELØB. UD FRA HESTENES S┆
0x086c0…086e0 4c 55 54 50 4c 41 43 45 52 49 4e 47 20 42 45 52 45 47 4e 45 53 20 4f 44 44 53 22 48 10 30 32 35 ┆LUTPLACERING BEREGNES ODDS"H 025┆
0x086e0…08700 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 25 30 32 36 30 20 3b 20 22 4f 47 20 44 55 20 54 49 4c ┆0 CURSOR 5,22 %0260 ; "OG DU TIL┆
0x08700…08720 (15, 0, 1) 44 45 4c 45 53 20 45 56 54 2e 20 47 45 56 49 4e 53 54 2e 22 25 10 30 32 37 30 20 43 55 52 53 4f ┆DELES EVT. GEVINST."% 0270 CURSO┆
0x08720…08740 52 20 35 2c 32 33 10 30 30 32 38 30 20 49 4e 50 55 54 20 22 54 41 53 54 20 52 45 54 55 52 4e 2c ┆R 5,23 00280 INPUT "TAST RETURN,┆
0x08740…08760 20 4e 5d 52 20 44 55 20 45 52 20 4b 4c 41 52 20 20 22 2c 53 56 41 52 24 30 0c 30 32 39 30 20 52 ┆ NÅR DU ER KLAR ",SVAR$0 0290 R┆
0x08760…08780 45 50 45 41 54 20 0c 10 30 33 30 30 20 4b 41 50 49 54 41 4c 3d 31 45 34 10 0c 30 33 31 30 20 52 ┆EPEAT 0300 KAPITAL=1E4 0310 R┆
0x08780…087a0 45 50 45 41 54 20 0c 0b 30 33 32 30 20 43 4c 45 41 52 20 0b 1b 30 33 33 30 20 4f 44 44 53 2c 53 ┆EPEAT 0320 CLEAR 0330 ODDS,S┆
0x087a0…087c0 4c 55 54 2c 46 4c 59 54 54 41 4c 4c 45 52 3d 30 1b 13 30 33 34 30 20 46 4f 52 20 54 41 4c 3d 31 ┆LUT,FLYTTALLER=0 0340 FOR TAL=1┆
0x087c0…087e0 20 54 4f 20 35 13 11 30 33 35 30 20 48 45 53 54 45 28 54 41 4c 29 3d 30 11 19 30 33 36 30 20 45 ┆ TO 5 0350 HESTE(TAL)=0 0360 E┆
0x087e0…08800 58 45 43 20 53 4b 52 49 56 53 54 52 45 47 28 54 41 4c 29 19 1a 30 33 37 30 20 45 58 45 43 20 53 ┆XEC SKRIVSTREG(TAL) 0370 EXEC S┆
0x08800…08820 (15, 0, 2) 4b 52 49 56 48 45 53 54 28 37 2c 54 41 4c 29 1a 0d 30 33 38 30 20 4e 45 58 54 20 54 41 4c 0d 15 ┆KRIVHEST(7,TAL) 0380 NEXT TAL ┆
0x08820…08840 30 33 39 30 20 46 4f 52 20 54 41 4c 31 3d 31 20 54 4f 20 32 30 15 13 30 34 30 30 20 43 55 52 53 ┆0390 FOR TAL1=1 TO 20 0400 CURS┆
0x08840…08860 4f 52 20 37 39 2c 54 41 4c 31 13 0d 30 34 31 30 20 3b 20 22 3c 53 3e 21 22 0d 0e 30 34 32 30 20 ┆OR 79,TAL1 0410 ; "<S>!" 0420 ┆
0x08860…08880 4e 45 58 54 20 54 41 4c 31 0e 10 30 34 33 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 2f 30 34 34 ┆NEXT TAL1 0430 CURSOR 5,22 /044┆
0x08880…088a0 30 20 3b 20 22 4b 41 50 49 54 41 4c 20 54 49 4c 20 52 5d 44 49 47 48 45 44 3a 20 20 22 3b 4b 41 ┆0 ; "KAPITAL TIL RÅDIGHED: ";KA┆
0x088a0…088c0 50 49 54 41 4c 3b 22 20 4b 52 2e 22 2f 0c 30 34 35 30 20 52 45 50 45 41 54 20 0c 10 30 34 36 30 ┆PITAL;" KR."/ 0450 REPEAT 0460┆
0x088c0…088e0 20 43 55 52 53 4f 52 20 35 2c 32 33 10 17 30 34 37 30 20 53 50 49 4c 48 45 53 54 2c 49 4e 44 53 ┆ CURSOR 5,23 0470 SPILHEST,INDS┆
0x088e0…08900 41 54 53 3d 30 17 31 30 34 38 30 20 45 44 49 54 20 22 48 56 49 4c 4b 45 4e 20 48 45 53 54 20 53 ┆ATS=0 10480 EDIT "HVILKEN HEST S┆
0x08900…08920 (15, 0, 3) 50 49 4c 4c 45 52 20 44 55 20 50 5d 3a 20 22 2c 53 50 49 4c 48 45 53 54 31 3f 30 34 39 30 20 55 ┆PILLER DU PÅ: ",SPILHEST1?0490 U┆
0x08920…08940 4e 54 49 4c 20 53 50 49 4c 48 45 53 54 3e 30 20 41 4e 44 20 53 50 49 4c 48 45 53 54 3c 36 20 41 ┆NTIL SPILHEST>0 AND SPILHEST<6 A┆
0x08940…08960 4e 44 20 53 50 49 4c 48 45 53 54 3d 49 4e 54 28 53 50 49 4c 48 45 53 54 29 3f 0c 30 35 30 30 20 ┆ND SPILHEST=INT(SPILHEST)? 0500 ┆
0x08960…08980 52 45 50 45 41 54 20 0c 11 30 35 31 30 20 43 55 52 53 4f 52 20 34 30 2c 32 33 11 28 30 35 32 30 ┆REPEAT 0510 CURSOR 40,23 (0520┆
0x08980…089a0 20 45 44 49 54 20 22 48 56 4f 52 20 4d 45 47 45 54 20 28 49 20 4b 52 2e 29 3a 20 22 2c 49 4e 44 ┆ EDIT "HVOR MEGET (I KR.): ",IND┆
0x089a0…089c0 53 41 54 53 28 29 30 35 33 30 20 55 4e 54 49 4c 20 49 4e 44 53 41 54 53 3c 3d 4b 41 50 49 54 41 ┆SATS()0530 UNTIL INDSATS<=KAPITA┆
0x089c0…089e0 4c 20 41 4e 44 20 49 4e 44 53 41 54 53 3e 30 29 1c 30 35 34 30 20 4b 41 50 49 54 41 4c 3d 4b 41 ┆L AND INDSATS>0) 0540 KAPITAL=KA┆
0x089e0…08a00 50 49 54 41 4c 2d 49 4e 44 53 41 54 53 1c 31 30 35 35 30 20 52 45 50 45 41 54 20 3b 4b 5c 52 20 ┆PITAL-INDSATS 10550 REPEAT ;KØR ┆
0x08a00…08a20 (15, 0, 4) 49 47 45 4e 4e 45 4d 20 54 49 4c 20 56 49 4e 44 45 52 48 45 53 54 20 45 52 20 46 55 4e 44 45 54 ┆IGENNEM TIL VINDERHEST ER FUNDET┆
0x08a20…08a40 31 0a 30 35 36 30 20 54 41 4c 3d 30 0a 0c 30 35 37 30 20 52 45 50 45 41 54 20 0c 32 30 35 38 30 ┆1 0560 TAL=0 0570 REPEAT 20580┆
0x08a40…08a60 20 46 4c 59 54 3d 52 4e 44 28 30 29 3b 54 41 4c 3d 54 41 4c 2b 31 3b 46 4c 59 54 54 41 4c 4c 45 ┆ FLYT=RND(0);TAL=TAL+1;FLYTTALLE┆
0x08a60…08a80 52 3d 46 4c 59 54 54 41 4c 4c 45 52 2b 31 32 15 30 35 39 30 20 49 46 20 46 4c 59 54 3c 2e 37 20 ┆R=FLYTTALLER+12 0590 IF FLYT<.7 ┆
0x08a80…08aa0 54 48 45 4e 20 15 1e 30 36 30 30 20 48 45 53 54 50 4f 53 49 54 49 4f 4e 3d 48 45 53 54 45 28 54 ┆THEN 0600 HESTPOSITION=HESTE(T┆
0x08aa0…08ac0 41 4c 29 2b 37 1e 24 30 36 31 30 20 45 58 45 43 20 53 4c 45 54 48 45 53 54 28 48 45 53 54 50 4f ┆AL)+7 $0610 EXEC SLETHEST(HESTPO┆
0x08ac0…08ae0 53 49 54 49 4f 4e 2c 54 41 4c 29 24 1c 30 36 32 30 20 48 45 53 54 45 28 54 41 4c 29 3d 48 45 53 ┆SITION,TAL)$ 0620 HESTE(TAL)=HES┆
0x08ae0…08b00 54 45 28 54 41 4c 29 2b 31 1c 1b 30 36 33 30 20 49 46 20 46 4c 59 54 54 41 4c 4c 45 52 3e 35 30 ┆TE(TAL)+1 0630 IF FLYTTALLER>50┆
0x08b00…08b20 (15, 0, 5) 20 54 48 45 4e 20 1b 10 30 36 34 30 20 46 4c 59 54 3d 52 4e 44 28 30 29 10 44 30 36 35 30 20 49 ┆ THEN 0640 FLYT=RND(0) D0650 I┆
0x08b20…08b40 46 20 46 4c 59 54 3e 2e 37 20 54 48 45 4e 20 46 4c 59 54 54 41 4c 4c 45 52 3d 46 4c 59 54 54 41 ┆F FLYT>.7 THEN FLYTTALLER=FLYTTA┆
0x08b40…08b60 4c 4c 45 52 2b 31 3b 48 45 53 54 45 28 54 41 4c 29 3d 48 45 53 54 45 28 54 41 4c 29 2b 31 44 0b ┆LLER+1;HESTE(TAL)=HESTE(TAL)+1D ┆
0x08b60…08b80 30 36 36 30 20 45 4e 44 49 46 20 0b 20 30 36 37 30 20 48 45 53 54 50 4f 53 49 53 49 54 49 4f 4e ┆0660 ENDIF 0670 HESTPOSISITION┆
0x08b80…08ba0 3d 48 45 53 54 45 28 54 41 4c 29 2b 37 20 25 30 36 38 30 20 45 58 45 43 20 53 4b 52 49 56 48 45 ┆=HESTE(TAL)+7 %0680 EXEC SKRIVHE┆
0x08ba0…08bc0 53 54 28 48 45 53 54 50 4f 53 49 54 49 4f 4e 2c 54 41 4c 29 25 1c 30 36 39 30 20 49 46 20 46 4c ┆ST(HESTPOSITION,TAL)% 0690 IF FL┆
0x08bc0…08be0 59 54 54 41 4c 4c 45 52 3e 33 30 30 20 54 48 45 4e 20 1c 0b 30 37 30 30 20 54 41 4c 31 3d 31 0b ┆YTTALLER>300 THEN 0700 TAL1=1 ┆
0x08be0…08c00 0c 30 37 31 30 20 52 45 50 45 41 54 20 0c 23 30 37 32 30 20 49 46 20 48 45 53 54 45 28 54 41 4c ┆ 0710 REPEAT #0720 IF HESTE(TAL┆
0x08c00…08c20 (15, 0, 6) 31 29 3d 3e 37 30 20 54 48 45 4e 20 53 4c 55 54 3d 31 23 20 30 37 33 30 20 49 46 20 53 4c 55 54 ┆1)=>70 THEN SLUT=1# 0730 IF SLUT┆
0x08c20…08c40 3c 3e 31 20 54 48 45 4e 20 54 41 4c 31 3d 54 41 4c 31 2b 31 20 19 30 37 34 30 20 55 4e 54 49 4c ┆<>1 THEN TAL1=TAL1+1 0740 UNTIL┆
0x08c40…08c60 20 54 41 4c 31 3e 35 20 4f 52 20 53 4c 55 54 19 0b 30 37 35 30 20 45 4e 44 49 46 20 0b 0b 30 37 ┆ TAL1>5 OR SLUT 0750 ENDIF 07┆
0x08c60…08c80 36 30 20 45 4e 44 49 46 20 0b 19 30 37 37 30 20 55 4e 54 49 4c 20 54 41 4c 3d 3e 35 20 4f 52 20 ┆60 ENDIF 0770 UNTIL TAL=>5 OR ┆
0x08c80…08ca0 53 4c 55 54 19 0f 30 37 38 30 20 55 4e 54 49 4c 20 53 4c 55 54 0f 10 30 37 39 30 20 54 41 4c 3d ┆SLUT 0780 UNTIL SLUT 0790 TAL=┆
0x08ca0…08cc0 37 30 3b 4f 4b 3d 30 10 0c 30 38 30 30 20 52 45 50 45 41 54 20 0c 1a 30 38 31 30 20 54 41 4c 3d ┆70;OK=0 0800 REPEAT 0810 TAL=┆
0x08cc0…08ce0 54 41 4c 2d 31 3b 54 41 4c 32 3d 30 3b 4f 4b 3d 30 1a 0c 30 38 32 30 20 52 45 50 45 41 54 20 0c ┆TAL-1;TAL2=0;OK=0 0820 REPEAT ┆
0x08ce0…08d00 10 30 38 33 30 20 54 41 4c 32 3d 54 41 4c 32 2b 31 10 34 30 38 34 30 20 49 46 20 54 41 4c 32 3c ┆ 0830 TAL2=TAL2+1 40840 IF TAL2<┆
0x08d00…08d20 (15, 0, 7) 3e 54 41 4c 31 20 54 48 45 4e 20 49 46 20 48 45 53 54 45 28 54 41 4c 32 29 3d 54 41 4c 20 54 48 ┆>TAL1 THEN IF HESTE(TAL2)=TAL TH┆
0x08d20…08d40 45 4e 20 4f 4b 3d 31 34 1a 30 38 35 30 20 55 4e 54 49 4c 20 4f 4b 3d 31 20 4f 52 20 54 41 4c 32 ┆EN OK=14 0850 UNTIL OK=1 OR TAL2┆
0x08d40…08d60 3d 3e 35 1a 0f 30 38 36 30 20 55 4e 54 49 4c 20 4f 4b 3d 31 0f 2b 30 38 37 30 20 4f 44 44 53 3d ┆=>5 0860 UNTIL OK=1 +0870 ODDS=┆
0x08d60…08d80 49 4e 54 28 45 58 50 28 31 2f 28 48 45 53 54 45 28 54 41 4c 32 29 2d 37 30 29 29 2a 32 30 2b 31 ┆INT(EXP(1/(HESTE(TAL2)-70))*20+1┆
0x08d80…08da0 29 2b 1b 30 38 38 30 20 49 46 20 53 50 49 4c 48 45 53 54 3d 54 41 4c 31 20 54 48 45 4e 20 1b 10 ┆)+ 0880 IF SPILHEST=TAL1 THEN ┆
0x08da0…08dc0 30 38 39 30 20 43 55 52 53 4f 52 20 35 2c 32 32 10 48 30 39 30 30 20 3b 20 22 3c 53 3e 20 20 20 ┆0890 CURSOR 5,22 H0900 ; "<S> ┆
0x08dc0…08de0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08de0…08e00 20 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 48 10 30 39 31 30 ┆ "H 0910┆
0x08e00…08e20 (15, 0, 8) 20 43 55 52 53 4f 52 20 35 2c 32 32 10 40 30 39 32 30 20 3b 20 22 44 49 4e 20 48 45 53 54 20 28 ┆ CURSOR 5,22 @0920 ; "DIN HEST (┆
0x08e20…08e40 4e 52 2e 22 3b 54 41 4c 31 3b 22 20 56 41 4e 44 54 22 3b 43 48 52 28 37 29 3b 22 20 20 4d 45 44 ┆NR.";TAL1;" VANDT";CHR(7);" MED┆
0x08e40…08e60 20 4f 44 44 53 3a 20 20 22 3b 4f 44 44 53 40 10 30 39 33 30 20 43 55 52 53 4f 52 20 35 2c 32 33 ┆ ODDS: ";ODDS@ 0930 CURSOR 5,23┆
0x08e60…08e80 10 48 30 39 34 30 20 3b 20 22 3c 53 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ H0940 ; "<S> ┆
0x08e80…08ea0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08ea0…08ec0 20 20 20 20 20 20 20 20 20 22 48 21 30 39 35 30 20 4b 41 50 49 54 41 4c 3d 4b 41 50 49 54 41 4c ┆ "H!0950 KAPITAL=KAPITAL┆
0x08ec0…08ee0 2b 4f 44 44 53 2a 49 4e 44 53 41 54 53 21 10 30 39 36 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 ┆+ODDS*INDSATS! 0960 CURSOR 5,23 ┆
0x08ee0…08f00 47 30 39 37 30 20 3b 20 22 44 55 20 56 41 4e 44 54 3a 20 20 22 3b 4f 44 44 53 2a 49 4e 44 53 41 ┆G0970 ; "DU VANDT: ";ODDS*INDSA┆
0x08f00…08f20 (15, 0, 9) ExtentHdr {name=»HESTSPIL«, typ=»K«, seg=»B«, next=0x01, basis=0x000a, nextext={DA 0000,00 (0x000000)}, prevext={DA 000e,07 (0x008500)}, nextfile={DA 0011,00 (0x009900)}, f99=41 0e 00 20 00 00 00 00 00 00 ┆A ┆}
0x08f20…08f40 54 53 3b 22 20 4b 52 2e 2c 20 20 4f 47 20 48 41 52 20 4e 55 20 3a 20 20 22 3b 4b 41 50 49 54 41 ┆TS;" KR., OG HAR NU : ";KAPITA┆
0x08f40…08f60 4c 3b 22 20 4b 52 2e 22 47 0a 30 39 38 30 20 45 4c 53 45 20 0a 10 30 39 39 30 20 43 55 52 53 4f ┆L;" KR."G 0980 ELSE 0990 CURSO┆
0x08f60…08f80 52 20 35 2c 32 32 10 46 31 30 30 30 20 3b 20 22 3c 53 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆R 5,22 F1000 ; "<S> ┆
0x08f80…08fa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x08fa0…08fc0 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 10 31 30 31 30 20 43 55 52 53 4f 52 20 35 2c 32 32 ┆ "F 1010 CURSOR 5,22┆
0x08fc0…08fe0 10 3b 31 30 32 30 20 3b 20 22 44 49 4e 20 48 45 53 54 20 56 41 4e 44 54 20 49 4b 4b 45 22 3b 43 ┆ ;1020 ; "DIN HEST VANDT IKKE";C┆
0x08fe0…09000 48 52 28 37 29 3b 22 20 20 20 20 4f 44 44 53 20 42 4c 45 56 3a 20 20 22 3b 4f 44 44 53 3b 10 31 ┆HR(7);" ODDS BLEV: ";ODDS; 1┆
0x09000…09020 (16, 0, 1) 30 33 30 20 43 55 52 53 4f 52 20 35 2c 32 33 10 46 31 30 34 30 20 3b 20 22 3c 53 3e 20 20 20 20 ┆030 CURSOR 5,23 F1040 ; "<S> ┆
0x09020…09040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x09040…09060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 46 10 31 30 35 30 20 43 55 ┆ "F 1050 CU┆
0x09060…09080 52 53 4f 52 20 35 2c 32 33 10 47 31 30 36 30 20 3b 20 22 56 49 4e 44 45 52 20 42 4c 45 56 20 48 ┆RSOR 5,23 G1060 ; "VINDER BLEV H┆
0x09080…090a0 45 53 54 20 4e 52 2e 3a 20 20 22 3b 54 41 4c 31 3b 22 20 20 44 49 4e 20 4b 41 50 49 54 41 4c 3a ┆EST NR.: ";TAL1;" DIN KAPITAL:┆
0x090a0…090c0 20 20 22 3b 4b 41 50 49 54 41 4c 3b 22 20 4b 52 2e 22 47 0b 31 30 37 30 20 45 4e 44 49 46 20 0b ┆ ";KAPITAL;" KR."G 1070 ENDIF ┆
0x090c0…090e0 17 31 30 38 30 20 49 46 20 4b 41 50 49 54 41 4c 3e 30 20 54 48 45 4e 20 17 10 31 30 39 30 20 43 ┆ 1080 IF KAPITAL>0 THEN 1090 C┆
0x090e0…09100 55 52 53 4f 52 20 35 2c 32 34 10 27 31 31 30 30 20 49 4e 50 55 54 20 22 56 49 4c 20 44 55 20 53 ┆URSOR 5,24 '1100 INPUT "VIL DU S┆
0x09100…09120 (16, 0, 2) 50 49 4c 4c 45 20 49 47 45 4e 20 20 22 2c 53 56 41 52 24 27 0b 31 31 31 30 20 45 4e 44 49 46 20 ┆PILLE IGEN ",SVAR$' 1110 ENDIF ┆
0x09120…09140 0b 31 31 31 32 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3c 3e 22 4a 22 20 41 4e 44 20 53 56 41 52 ┆ 11120 UNTIL SVAR$<>"J" AND SVAR┆
0x09140…09160 24 3c 3e 22 6a 22 20 4f 52 20 4b 41 50 49 54 41 4c 3d 30 31 10 31 31 33 30 20 43 55 52 53 4f 52 ┆$<>"j" OR KAPITAL=01 1130 CURSOR┆
0x09160…09180 20 35 2c 32 34 10 17 31 31 34 30 20 49 46 20 4b 41 50 49 54 41 4c 3e 30 20 54 48 45 4e 20 17 28 ┆ 5,24 1140 IF KAPITAL>0 THEN (┆
0x09180…091a0 31 31 35 30 20 49 4e 50 55 54 20 22 56 49 4c 20 44 55 20 50 52 5c 56 45 20 46 4f 52 46 52 41 20 ┆1150 INPUT "VIL DU PRØVE FORFRA ┆
0x091a0…091c0 20 22 2c 53 56 41 52 24 28 0a 31 31 36 30 20 45 4c 53 45 20 0a 3b 31 31 37 30 20 49 4e 50 55 54 ┆ ",SVAR$( 1160 ELSE ;1170 INPUT┆
0x091c0…091e0 20 22 53 4c 55 54 20 4d 45 44 20 50 45 4e 47 45 4e 45 2c 20 20 56 49 4c 20 44 55 20 50 52 5c 56 ┆ "SLUT MED PENGENE, VIL DU PRØV┆
0x091e0…09200 45 20 46 4f 52 46 52 41 20 20 22 2c 53 56 41 52 24 3b 0b 31 31 38 30 20 45 4e 44 49 46 20 0b 24 ┆E FORFRA ",SVAR$; 1180 ENDIF $┆
0x09200…09220 (16, 0, 3) 31 31 39 30 20 55 4e 54 49 4c 20 53 56 41 52 24 3c 3e 22 4a 22 20 41 4e 44 20 53 56 41 52 24 3c ┆1190 UNTIL SVAR$<>"J" AND SVAR$<┆
0x09220…09240 3e 22 6a 22 24 17 31 32 30 30 20 50 52 4f 43 20 53 4b 52 49 56 53 54 52 45 47 28 49 29 17 11 31 ┆>"j"$ 1200 PROC SKRIVSTREG(I) 1┆
0x09240…09260 32 31 30 20 43 55 52 53 4f 52 20 31 2c 49 2a 34 11 12 31 32 32 30 20 46 4f 52 20 4a 3d 31 20 54 ┆210 CURSOR 1,I*4 1220 FOR J=1 T┆
0x09260…09280 4f 20 37 39 12 0d 31 32 33 30 20 3b 20 22 3c 53 3e 2d 22 0d 0b 31 32 34 30 20 4e 45 58 54 20 4a ┆O 79 1230 ; "<S>-" 1240 NEXT J┆
0x09280…092a0 0b 14 31 32 35 30 20 43 55 52 53 4f 52 20 37 39 2c 49 2a 34 2d 32 14 08 31 32 36 30 20 3b 20 49 ┆ 1250 CURSOR 79,I*4-2 1260 ; I┆
0x092a0…092c0 08 1b 31 32 37 30 20 45 4e 44 50 52 4f 43 20 3b 53 4b 52 49 56 53 54 52 45 47 28 49 29 1b 09 31 ┆ 1270 ENDPROC ;SKRIVSTREG(I) 1┆
0x092c0…092e0 32 38 30 20 52 45 4d 20 09 18 31 32 39 30 20 50 52 4f 43 20 53 4b 52 49 56 48 45 53 54 28 4b 2c ┆280 REM 1290 PROC SKRIVHEST(K,┆
0x092e0…09300 4c 29 18 11 31 33 30 30 20 46 4f 52 20 4d 3d 31 20 54 4f 20 33 11 15 31 33 31 30 20 43 55 52 53 ┆L) 1300 FOR M=1 TO 3 1310 CURS┆
0x09300…09320 (16, 0, 4) 4f 52 20 4b 2d 4d 2c 4c 2a 34 2d 32 15 0d 31 33 32 30 20 3b 20 22 3c 53 3e 3d 22 0d 0b 31 33 33 ┆OR K-M,L*4-2 1320 ; "<S>=" 133┆
0x09320…09340 30 20 4e 45 58 54 20 4d 0b 18 31 33 34 30 20 46 4f 52 20 4d 3d 32 20 54 4f 20 34 20 53 54 45 50 ┆0 NEXT M 1340 FOR M=2 TO 4 STEP┆
0x09340…09360 20 32 18 15 31 33 35 30 20 43 55 52 53 4f 52 20 4b 2d 4d 2c 4c 2a 34 2d 31 15 0d 31 33 36 30 20 ┆ 2 1350 CURSOR K-M,L*4-1 1360 ┆
0x09360…09380 3b 20 22 3c 53 3e 2f 22 0d 0b 31 33 37 30 20 4e 45 58 54 20 4d 0b 13 31 33 38 30 20 43 55 52 53 ┆; "<S>/" 1370 NEXT M 1380 CURS┆
0x09380…093a0 4f 52 20 4b 2c 4c 2a 34 2d 33 13 0d 31 33 39 30 20 3b 20 22 3c 53 3e 2f 22 0d 15 31 34 30 30 20 ┆OR K,L*4-3 1390 ; "<S>/" 1400 ┆
0x093a0…093c0 43 55 52 53 4f 52 20 4b 2d 34 2c 4c 2a 34 2d 32 15 0d 31 34 31 30 20 3b 20 22 3c 53 3e 2d 22 0d ┆CURSOR K-4,L*4-2 1410 ; "<S>-" ┆
0x093c0…093e0 1c 31 34 32 30 20 45 4e 44 50 52 4f 43 20 3b 53 4b 52 49 56 48 45 53 54 28 4b 2c 4c 29 1c 09 31 ┆ 1420 ENDPROC ;SKRIVHEST(K,L) 1┆
0x093e0…09400 34 33 30 20 52 45 4d 20 09 17 31 34 34 30 20 50 52 4f 43 20 53 4c 45 54 48 45 53 54 28 4e 2c 4f ┆430 REM 1440 PROC SLETHEST(N,O┆
0x09400…09420 (16, 0, 5) 29 17 11 31 34 35 30 20 46 4f 52 20 50 3d 31 20 54 4f 20 33 11 15 31 34 36 30 20 43 55 52 53 4f ┆) 1450 FOR P=1 TO 3 1460 CURSO┆
0x09420…09440 52 20 4e 2d 36 2c 4f 2a 34 2d 50 15 14 31 34 37 30 20 3b 20 22 3c 53 3e 20 20 20 20 20 20 20 20 ┆R N-6,O*4-P 1470 ; "<S> ┆
0x09440…09460 22 14 0b 31 34 38 30 20 4e 45 58 54 20 50 0b 1b 31 34 39 30 20 45 4e 44 50 52 4f 43 20 3b 53 4c ┆" 1480 NEXT P 1490 ENDPROC ;SL┆
0x09460…09480 45 54 48 45 53 54 28 4e 2c 4f 29 1b 00 00 3b 53 4c 45 54 48 45 53 54 28 4e 2c 4f 29 1b 00 00 28 ┆ETHEST(N,O) ;SLETHEST(N,O) (┆
0x09480…094a0 4e 2c 4f 29 17 11 31 35 31 30 20 46 4f 52 20 50 3d 31 20 54 4f 20 33 11 15 31 35 32 30 20 43 55 ┆N,O) 1510 FOR P=1 TO 3 1520 CU┆
0x094a0…094c0 52 53 4f 52 20 4e 2d 36 2c 4f 2a 34 2d 50 15 14 31 35 33 30 20 3b 20 22 3c 53 3e 20 20 20 20 20 ┆RSOR N-6,O*4-P 1530 ; "<S> ┆
0x094c0…094e0 20 20 20 22 14 0b 31 35 34 30 20 4e 45 58 54 20 50 0b 1b 31 35 35 30 20 45 4e 44 50 52 4f 43 20 ┆ " 1540 NEXT P 1550 ENDPROC ┆
0x094e0…09500 3b 53 4c 45 54 48 45 53 54 28 4e 2c 4f 29 1b 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆;SLETHEST(N,O) ┆
0x09500…09600 (16, 0, 6) 0x00[0x100]
[…0x3…]
0x09900…09920 (17, 0, 1) 00 45 53 54 53 50 49 4c 4b 42 01 0a 00 00 00 00 0e 00 07 00 00 00 41 0e 00 20 00 00 00 00 00 00 ┆ ESTSPILKB A ┆
0x09920…09940 2a 30 31 30 30 20 52 45 4d 20 2d 2d 20 20 48 20 45 20 53 20 54 20 45 20 56 20 5b 20 44 20 44 20 ┆*0100 REM -- H E S T E V Æ D D ┆
0x09940…09960 45 20 4c 20 5c 20 42 20 20 2d 2d 2a 2b 30 31 31 30 20 52 45 4d 20 53 50 43 2f 31 20 43 4f 4d 41 ┆E L Ø B --*+0110 REM SPC/1 COMA┆
0x09960…09980 4c 2e 20 20 53 54 45 45 4e 20 4f 4c 53 45 4e 20 32 30 2e 30 32 2e 38 30 2b 09 30 31 32 30 20 52 ┆L. STEEN OLSEN 20.02.80+ 0120 R┆
0x09980…099a0 45 4d 20 09 09 30 31 33 30 20 52 45 4d 20 09 1a 30 31 35 30 20 44 49 4d 20 48 45 53 54 45 28 35 ┆EM 0130 REM 0150 DIM HESTE(5┆
0x099a0…099c0 29 2c 53 56 41 52 24 28 31 29 1a 0b 30 31 36 30 20 43 4c 45 41 52 20 0b 10 30 31 37 30 20 43 55 ┆),SVAR$(1) 0160 CLEAR 0170 CU┆
0x099c0…099e0 52 53 4f 52 20 32 30 2c 33 10 24 30 31 38 30 20 3b 20 22 48 20 45 20 53 20 54 20 45 20 56 20 5b ┆RSOR 20,3 $0180 ; "H E S T E V Æ┆
0x099e0…09a00 20 44 20 44 20 45 20 4c 20 5c 20 42 20 20 22 24 10 30 31 39 30 20 43 55 52 53 4f 52 20 32 30 2c ┆ D D E L Ø B "$ 0190 CURSOR 20,┆
0x09a00…09b00 (17, 0, 2) 0x00[0x100]
[…0xc4…]