|
DataMuseum.dkPresents historical artifacts from the history of: Q1 computer |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Q1 computer Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: 8 B I K Q q r
Length: 94156 (0x16fcc)
Description: Bits:30008748 50001581
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 91 | 79 | 82 | 1 | 2 | BILDRED3 | ⟦aea540e20⟧ Q1_Text, reclen=79, q1file |
| 0 | 3 | 40 | 130 | 0 | 0 | INDEX | ⟦d1a10dc08⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 1 | 475 | 16 | 3 | 12 | KTOBESKR | ⟦d3fdcffcb⟧ Q1_HexDump, reclen=475, q1file |
0x00000…00028 (0, 0, 0) Catalog {f0=0x0000, name=»INDEX «, nrec=0x0003, reclen=0x0028, rectrack=0x0082, track0=0x0000, trackn=0x0000}
0x00028…00050 (0, 0, 1) Catalog {f0=0x0000, name=»BILDRED3«, nrec=0x005b, reclen=0x004f, rectrack=0x0052, track0=0x0001, trackn=0x0002}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»KTOBESKR«, nrec=0x0001, reclen=0x01db, rectrack=0x0010, track0=0x0003, trackn=0x000c}
0x00078…000a0 (0, 0, 3) 0x00[0x28]
[…0x7e…]
0x01450…0149f (1, 0, 0) DataSector[0x4f]
[…0x5a…]
0x03065…03085 (2, 0, 9) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03085…030a5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x030a5…030b4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x030b4…03103 (2, 0, 10) 0x20[0x4f]
0x03103…03123 (2, 0, 11) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 52 41 44 29 20 ┆ PUT FILE (D) EDIT (RAD) ┆
0x03123…03143 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(47)); ┆
0x03143…03152 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03152…03172 (2, 0, 12) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03172…03192 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03192…031a1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x031a1…031c1 (2, 0, 13) 20 20 20 20 20 20 20 20 4a 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = 1; ┆
0x031c1…031e1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x031e1…031f0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x031f0…03210 (2, 0, 14) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 30 30 3b 20 20 20 20 20 20 20 ┆ DO I = 1 TO 1000; ┆
0x03210…03230 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03230…0323f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0323f…0325f (2, 0, 15) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0325f…0327f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0327f…0328e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0328e…032dd (2, 0, 16) 0x20[0x4f]
0x032dd…032fd (2, 0, 17) 20 20 20 20 4c 32 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L2: ┆
0x032fd…0331d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0331d…0332c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0332c…0334c (2, 0, 18) 20 20 20 20 20 20 20 20 52 41 44 20 3d 20 44 55 4d 4d 59 20 28 4a 29 3b 20 20 20 20 20 20 20 20 ┆ RAD = DUMMY (J); ┆
0x0334c…0336c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0336c…0337b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0337b…0339b (2, 0, 19) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 54 59 50 49 53 54 20 28 52 41 44 2c 34 37 29 3b 20 20 20 ┆ CALL TYPIST (RAD,47); ┆
0x0339b…033bb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x033bb…033ca 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x033ca…033ea (2, 0, 20) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 52 41 44 29 3b 20 20 20 20 ┆ GET SKIP LIST (RAD); ┆
0x033ea…0340a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0340a…03419 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03419…03439 (2, 0, 21) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 20 28 49 29 3b 20 20 20 20 20 20 20 20 ┆ CALL KEYFUN (I); ┆
0x03439…03459 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03459…03468 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03468…03488 (2, 0, 22) 20 20 20 20 20 20 20 20 44 55 4d 4d 59 20 28 4a 29 20 3d 20 52 41 44 3b 20 20 20 20 20 20 20 20 ┆ DUMMY (J) = RAD; ┆
0x03488…034a8 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x034a8…034b7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x034b7…034d7 (2, 0, 23) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 52 41 44 29 20 ┆ PUT FILE (D) EDIT (RAD) ┆
0x034d7…034f7 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(47)); ┆
0x034f7…03506 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03506…03526 (2, 0, 24) 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 31 38 20 54 48 45 4e 20 47 4f 20 54 4f 20 53 4b 52 ┆ IF I = 18 THEN GO TO SKR┆
0x03526…03546 49 56 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IV; ┆
0x03546…03555 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03555…03575 (2, 0, 25) 20 20 20 20 20 20 20 20 4a 20 3d 20 4a 20 2b 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = J + 1; ┆
0x03575…03595 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03595…035a4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x035a4…035c4 (2, 0, 26) 20 20 20 20 20 20 20 20 49 46 20 4a 20 3e 20 31 30 20 54 48 45 4e 20 4a 20 3d 20 31 3b 20 20 20 ┆ IF J > 10 THEN J = 1; ┆
0x035c4…035e4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x035e4…035f3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x035f3…03613 (2, 0, 27) 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 32 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 ┆ IF I = 21 THEN DO; ┆
0x03613…03633 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03633…03642 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03642…03662 (2, 0, 28) 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 33 29 20 45 44 49 54 20 28 27 ┆ PUT SKIP (3) EDIT ('┆
0x03662…03682 4b 4f 4e 54 4f 4e 55 4d 4d 45 52 3a 27 29 20 28 41 28 31 34 29 29 20 28 50 29 20 28 41 28 35 29 ┆KONTONUMMER:') (A(14)) (P) (A(5)┆
0x03682…03691 29 20 20 53 4b 49 50 20 28 33 29 3b 20 20 20 ┆) SKIP (3); ┆
0x03691…036b1 (2, 0, 29) 20 20 20 20 20 20 20 20 20 20 20 20 44 4f 20 4b 20 3d 20 31 20 54 4f 20 31 30 3b 20 20 20 20 20 ┆ DO K = 1 TO 10; ┆
0x036b1…036d1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x036d1…036e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x036e0…03700 (2, 0, 30) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 41 44 20 3d 20 44 55 4d 4d 59 20 28 4b 29 3b ┆ RAD = DUMMY (K);┆
0x03700…03720 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03720…0372f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0372f…0374f (2, 0, 31) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 45 44 49 54 20 28 27 ┆ PUT SKIP EDIT ('┆
0x0374f…0376f 20 27 29 20 28 41 28 32 30 29 29 20 28 4b 29 20 28 50 27 5a 39 27 2c 58 28 38 29 29 20 28 52 41 ┆ ') (A(20)) (K) (P'Z9',X(8)) (RA┆
0x0376f…0377e 44 29 20 28 41 28 34 37 29 29 3b 20 20 20 20 ┆D) (A(47)); ┆
0x0377e…0379e (2, 0, 32) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0379e…037be 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x037be…037cd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x037cd…037ed (2, 0, 33) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 28 36 29 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ PUT SKIP (6); ┆
0x037ed…0380d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0380d…0381c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0381c…0383c (2, 0, 34) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0383c…0385c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0385c…0386b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0386b…0388b (2, 0, 35) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L2; ┆
0x0388b…038ab 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x038ab…038ba 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x038ba…038da (2, 0, 36) 4c 33 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆L30: ┆
0x038da…038fa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x038fa…03909 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03909…03929 (2, 0, 37) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 30 30 3b 20 20 20 20 20 20 20 ┆ DO I = 1 TO 1000; ┆
0x03929…03949 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03949…03958 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03958…03978 (2, 0, 38) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03978…03998 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03998…039a7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x039a7…039c7 (2, 0, 39) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 53 45 4f 46 20 28 4b 54 4f 42 45 53 4b 52 29 3b 20 20 20 ┆ CALL SEOF (KTOBESKR); ┆
0x039c7…039e7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x039e7…039f6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x039f6…03a16 (2, 0, 40) 20 20 20 20 20 20 20 20 44 4f 20 49 20 3d 20 31 20 54 4f 20 31 30 3b 20 20 20 20 20 20 20 20 20 ┆ DO I = 1 TO 10; ┆
0x03a16…03a36 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03a36…03a45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03a45…03a65 (2, 0, 41) 20 20 20 20 20 20 20 20 52 41 44 20 3d 20 42 4c 41 4e 4b 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ RAD = BLANK; ┆
0x03a65…03a85 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03a85…03a94 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03a94…03ab4 (2, 0, 42) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 52 41 44 29 20 ┆ PUT FILE (D) EDIT (RAD) ┆
0x03ab4…03ad4 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆(A(47)); ┆
0x03ad4…03ae3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03ae3…03b03 (2, 0, 43) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03b03…03b23 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b23…03b32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b32…03b52 (2, 0, 44) 20 20 20 20 20 20 20 20 4a 20 3d 20 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ J = 1; ┆
0x03b52…03b72 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b72…03b81 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03b81…03ba1 (2, 0, 45) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 34 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L40; ┆
0x03ba1…03bc1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03bc1…03bd0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03bd0…03bf0 (2, 0, 46) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03bf0…03c10 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03c10…03c1f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03c1f…03c3f (2, 0, 47) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 53 4b 52 49 56 4e 59 3b 20 20 20 20 20 20 20 20 20 20 ┆ GO TO SKRIVNY; ┆
0x03c3f…03c5f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03c5f…03c6e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03c6e…03c8e (2, 0, 48) 20 20 20 20 20 20 20 20 4b 4f 4e 54 4f 20 3d 20 50 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ KONTO = P; ┆
0x03c8e…03cae 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03cae…03cbd 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03cbd…03d0c (2, 0, 49) 0x20[0x4f]
0x03d0c…03d2c (2, 0, 50) 20 20 20 20 53 4b 52 49 56 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SKRIV: ┆
0x03d2c…03d4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03d4c…03d5b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03d5b…03d7b (2, 0, 51) 20 20 20 20 20 20 20 20 49 46 20 53 57 4e 59 20 3d 20 27 31 27 20 54 48 45 4e 20 44 4f 3b 20 20 ┆ IF SWNY = '1' THEN DO; ┆
0x03d7b…03d9b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03d9b…03daa 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03daa…03dca (2, 0, 52) 20 20 20 20 20 20 20 20 20 20 20 20 53 57 4e 59 20 3d 20 27 30 27 3b 20 20 20 20 20 20 20 20 20 ┆ SWNY = '0'; ┆
0x03dca…03dea 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03dea…03df9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03df9…03e19 (2, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 53 4b 52 49 56 4e 59 3b 20 20 20 20 20 20 ┆ GO TO SKRIVNY; ┆
0x03e19…03e39 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e39…03e48 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e48…03e68 (2, 0, 54) 20 20 20 20 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x03e68…03e88 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e88…03e97 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03e97…03eb7 (2, 0, 55) 20 20 20 20 20 20 20 20 52 45 57 52 49 54 45 20 46 49 4c 45 20 28 4b 54 4f 42 45 53 4b 52 29 20 ┆ REWRITE FILE (KTOBESKR) ┆
0x03eb7…03ed7 46 52 4f 4d 20 28 4b 4f 4e 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FROM (KONTO); ┆
0x03ed7…03ee6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03ee6…03f06 (2, 0, 56) 2f 2a 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 53 4b 49 50 20 45 44 49 54 20 28 ┆/* PUT FILE (D) SKIP EDIT (┆
0x03f06…03f26 27 54 52 59 43 4b 20 46 31 20 4f 4d 20 42 49 4c 44 45 4e 20 53 4b 41 4c 4c 20 4b 4f 50 49 45 52 ┆'TRYCK F1 OM BILDEN SKALL KOPIER┆
0x03f26…03f35 41 53 27 29 20 28 41 28 34 37 29 29 3b 20 20 ┆AS') (A(47)); ┆
0x03f35…03f55 (2, 0, 57) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 29 3b 20 20 20 20 20 20 ┆ GET SKIP LIST (S); ┆
0x03f55…03f75 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03f75…03f84 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03f84…03fa4 (2, 0, 58) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 4b 45 59 46 55 4e 20 28 49 29 3b 20 20 20 20 20 20 20 20 ┆ CALL KEYFUN (I); ┆
0x03fa4…03fc4 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03fc4…03fd3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x03fd3…03ff3 (2, 0, 59) 20 20 20 20 20 20 20 20 49 46 20 49 20 3d 20 31 37 20 54 48 45 4e 20 47 4f 20 54 4f 20 4b 4f 50 ┆ IF I = 17 THEN GO TO KOP┆
0x03ff3…04013 49 41 3b 20 20 20 20 20 20 20 20 20 20 20 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆IA; */ ┆
0x04013…04022 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04022…04042 (2, 0, 60) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x04042…04062 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04062…04071 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04071…04091 (2, 0, 61) 53 4b 52 49 56 4e 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆SKRIVNY: ┆
0x04091…040b1 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x040b1…040c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x040c0…040e0 (2, 0, 62) 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 4b 54 4f 42 45 53 4b 52 29 20 46 52 ┆ WRITE FILE (KTOBESKR) FR┆
0x040e0…04100 4f 4d 20 28 4b 4f 4e 54 4f 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OM (KONTO); ┆
0x04100…0410f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0410f…0412f (2, 0, 63) 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 4b 54 4f 42 45 53 4b 52 3b 20 20 20 20 20 20 20 20 20 ┆ CLOSE KTOBESKR; ┆
0x0412f…0414f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0414f…0415e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0415e…0417e (2, 0, 64) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L0; ┆
0x0417e…0419e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0419e…041ad 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x041ad…041cd (2, 0, 65) 2f 2a 20 20 4b 4f 50 49 41 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆/* KOPIA: ┆
0x041cd…041ed 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x041ed…041fc 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x041fc…0421c (2, 0, 66) 20 20 20 20 20 20 20 20 50 55 54 20 46 49 4c 45 20 28 44 29 20 45 44 49 54 20 28 27 56 49 4c 4b ┆ PUT FILE (D) EDIT ('VILK┆
0x0421c…0423c 45 54 20 42 49 4c 44 4e 55 4d 4d 45 52 20 53 4b 41 4c 4c 20 56 41 52 41 20 4b 4f 50 49 41 27 29 ┆ET BILDNUMMER SKALL VARA KOPIA')┆
0x0423c…0424b 20 28 41 28 34 37 29 29 3b 20 20 20 20 20 20 ┆ (A(47)); ┆
0x0424b…0426b (2, 0, 67) 20 20 20 20 20 20 20 20 47 45 54 20 53 4b 49 50 20 4c 49 53 54 20 28 53 29 3b 20 20 20 20 20 20 ┆ GET SKIP LIST (S); ┆
0x0426b…0428b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0428b…0429a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0429a…042ba (2, 0, 68) 20 20 20 20 20 20 20 20 49 20 3d 20 53 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ I = S; ┆
0x042ba…042da 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x042da…042e9 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x042e9…04309 (2, 0, 69) 20 20 20 20 20 20 20 20 49 46 20 49 20 3e 20 35 30 20 7c 20 49 20 3c 20 31 20 54 48 45 4e 20 47 ┆ IF I > 50 ö I < 1 THEN G┆
0x04309…04329 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O TO L1; ┆
0x04329…04338 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04338…04358 (2, 0, 70) 20 20 20 20 20 20 20 20 55 4e 53 50 45 43 20 28 42 49 4c 44 46 49 4c 29 20 3d 20 28 49 20 2d 20 ┆ UNSPEC (BILDFIL) = (I - ┆
0x04358…04378 31 29 20 2a 20 31 32 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆1) * 12; ┆
0x04378…04387 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04387…043a7 (2, 0, 71) 20 20 20 20 20 20 20 20 4f 4e 20 45 52 52 4f 52 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 20 20 ┆ ON ERROR GO TO UT; ┆
0x043a7…043c7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x043c7…043d6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x043d6…043f6 (2, 0, 72) 20 20 20 20 20 20 20 20 4f 4e 20 45 4e 44 46 49 4c 45 20 47 4f 20 54 4f 20 55 54 3b 20 20 20 20 ┆ ON ENDFILE GO TO UT; ┆
0x043f6…04416 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04416…04425 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04425…04445 (2, 0, 73) 20 20 20 20 20 20 20 20 57 52 49 54 45 20 46 49 4c 45 20 28 42 49 4c 44 46 49 4c 29 20 46 52 4f ┆ WRITE FILE (BILDFIL) FRO┆
0x04445…04465 4d 20 28 44 55 4d 4d 59 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆M (DUMMY); ┆
0x04465…04474 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04474…04494 (2, 0, 74) 20 20 20 20 20 20 20 20 47 4f 20 54 4f 20 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GO TO L1; ┆
0x04494…044b4 2a 2f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆*/ ┆
0x044b4…044c3 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x044c3…044e3 (2, 0, 75) 20 20 20 20 55 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ UT: ┆
0x044e3…04503 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04503…04512 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04512…04532 (2, 0, 76) 20 20 20 20 20 20 20 20 50 55 54 20 53 4b 49 50 20 4c 49 53 54 20 28 27 55 54 20 20 27 2c 20 4f ┆ PUT SKIP LIST ('UT ', O┆
0x04532…04552 4e 43 4f 44 45 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆NCODE); ┆
0x04552…04561 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x04561…045b0 (2, 0, 77) 0x20[0x4f]
0x045b0…045d0 (2, 0, 78) 20 20 20 20 20 20 20 20 49 46 20 4f 4e 43 4f 44 45 20 3d 20 34 20 54 48 45 4e 20 47 4f 20 54 4f ┆ IF ONCODE = 4 THEN GO TO┆
0x045d0…045f0 20 4c 33 30 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ L30; ┆
0x045f0…045ff 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x045ff…0461f (2, 0, 79) 20 20 20 20 20 20 20 20 43 4c 4f 53 45 20 4b 54 4f 42 45 53 4b 52 3b 20 20 20 20 20 20 20 20 20 ┆ CLOSE KTOBESKR; ┆
0x0461f…0463f 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0463f…0464e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0464e…0466e (2, 0, 80) 20 20 20 20 20 20 20 20 45 4e 44 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ END; ┆
0x0466e…0468e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0468e…0469d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0469d…046ec (2, 0, 81) 0x20[0x4f]
0x046ec…048c7 (3, 0, 0) DataSector[0x1db]
0x048c7…048e7 (3, 0, 1) 06 00 59 49 23 44 77 49 0d 59 06 00 0f 00 12 00 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ YI#DwI Y ┆
0x048e7…04907 a2 05 b5 05 59 06 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 ┆ Y ┆
0x04907…04927 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 ┆ ┆
[…0xb…]
0x04a87…04aa2 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 ┆ ┆
0x04aa2…04c7d (3, 0, 2) 0x00[0x1db]
[…0x4c…]
0x0d981…0d9a1 (7, 0, 15) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0d9a1…0d9c1 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0xc…]
0x0db41…0db5c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0db5c…0dd37 (8, 0, 0) 0x00[0x1db]
[…0x3e…]
0x15041…15061 (11, 0, 15) 01 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x15061…15081 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
[…0xc…]
0x15201…1521c ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x1521c…153f7 (12, 0, 0) 0x00[0x1db]
[…0xf…]