|
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 I Q V q r
Length: 69980 (0x1115c)
Description: Bits:30008760 50001599
Types: 8" Floppy Disk
| flag | nrec | reclen | rec_trk | t0 | tn | name | artifact |
|---|---|---|---|---|---|---|---|
| 0 | 3 | 40 | 130 | 0 | 0 | INDEX | ⟦ac4277447⟧ Q1_HexDump, reclen=40, q1file |
| 0 | 544 | 79 | 82 | 1 | 7 | V101_1:2 | ⟦decaf83c6⟧ Q1_Text, reclen=79, q1file |
| 0 | 167 | 79 | 82 | 8 | 10 | V41_1:2 | ⟦811bb0823⟧ Q1_Text, reclen=79, 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=»V101_1:2«, nrec=0x0220, reclen=0x004f, rectrack=0x0052, track0=0x0001, trackn=0x0007}
0x00050…00078 (0, 0, 2) Catalog {f0=0x0000, name=»V41_1:2 «, nrec=0x00a7, reclen=0x004f, rectrack=0x0052, track0=0x0008, trackn=0x000a}
0x00078…000a0 (0, 0, 3) 0x00[0x28]
[…0x7e…]
0x01450…0149f (1, 0, 0) DataSector[0x4f]
[…0x21f…]
0x0bc30…0bc50 (7, 0, 52) 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 28 52 4b 4f 4e ┆ PUT SKIP EDIT(RKON┆
0x0bc50…0bc70 54 4f 31 29 28 58 28 31 32 29 2c 41 28 34 31 29 29 28 54 31 34 29 28 41 28 33 33 29 29 28 54 34 ┆TO1)(X(12),A(41))(T14)(A(33))(T4┆
0x0bc70…0bc7f 29 28 41 29 3b 20 20 20 20 20 20 20 20 20 20 ┆)(A); ┆
0x0bc7f…0bc9f (7, 0, 53) 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 3d 52 2d 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R=R-1; ┆
0x0bc9f…0bcbf 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bcbf…0bcce 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bcce…0bcee (7, 0, 54) 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 20 ┆ END; ┆
0x0bcee…0bd0e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd0e…0bd1d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd1d…0bd3d (7, 0, 55) 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; ┆
0x0bd3d…0bd5d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd5d…0bd6c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bd6c…0bd8c (7, 0, 56) 20 20 20 20 20 20 20 20 45 4c 53 45 20 44 4f 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ELSE DO; ┆
0x0bd8c…0bdac 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bdac…0bdbb 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0bdbb…0bddb (7, 0, 57) 20 20 20 20 20 20 20 20 20 20 20 49 46 20 4b 4f 4e 54 4f 4e 52 3e 3d 4b 4f 4e 54 4f 32 20 54 48 ┆ IF KONTONR>=KONTO2 TH┆
0x0bddb…0bdfb 45 4e 20 4b 4f 4e 54 4f 4e 52 3d 27 39 39 39 39 39 39 39 39 39 39 39 27 3b 20 20 20 20 20 20 20 ┆EN KONTONR='99999999999'; ┆
0x0bdfb…0be0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0be0a…0be59 (7, 0, 58) 0x00[0x4f]
[…0x16…]
0x0c523…0c543 (7, 0, 81) 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 ┆ ┆
0x0c543…0c563 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 ┆ ┆
0x0c563…0c572 ff ff ff ff ff ff ff ff ff ff ff ff ff ff ff ┆ ┆
0x0c572…0c5c1 (8, 0, 0) DataSector[0x4f]
[…0xa6…]
0x0f8fb…0f91b (10, 0, 3) 20 20 20 20 20 20 20 20 46 53 54 52 3d 53 54 52 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ FSTR=STR; ┆
0x0f91b…0f93b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f93b…0f94a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f94a…0f96a (10, 0, 4) 20 20 20 20 20 20 20 20 4f 50 45 4e 20 46 49 4c 31 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ OPEN FIL1; ┆
0x0f96a…0f98a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f98a…0f999 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0f999…0f9e8 (10, 0, 5) 0x20[0x4f]
0x0f9e8…0fa08 (10, 0, 6) 20 20 20 20 20 20 20 20 43 41 4c 4c 20 46 52 41 45 47 41 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CALL FRAEGA; ┆
0x0fa08…0fa28 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fa28…0fa37 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fa37…0fa57 (10, 0, 7) 4c 30 3a 20 20 20 20 20 49 46 20 52 3c 35 20 54 48 45 4e 20 43 41 4c 4c 20 52 55 42 3b 20 20 20 ┆L0: IF R<5 THEN CALL RUB; ┆
0x0fa57…0fa77 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fa77…0fa86 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fa86…0faa6 (10, 0, 8) 4c 31 3a 20 20 20 20 20 49 46 20 46 49 4c 3d 31 20 54 48 45 4e 20 44 4f 3b 20 20 20 20 20 20 20 ┆L1: IF FIL=1 THEN DO; ┆
0x0faa6…0fac6 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fac6…0fad5 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fad5…0faf5 (10, 0, 9) 20 20 20 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 ┆ ON ENDFILE GO TO UT; ┆
0x0faf5…0fb15 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fb15…0fb24 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fb24…0fb44 (10, 0, 10) 20 20 20 20 20 20 20 20 20 20 20 52 45 41 44 20 46 49 4c 45 28 46 49 4c 31 29 20 49 4e 54 4f 28 ┆ READ FILE(FIL1) INTO(┆
0x0fb44…0fb64 4b 4f 4e 54 4f 53 54 52 29 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆KONTOSTR); ┆
0x0fb64…0fb73 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ┆
0x0fb73…0fbc2 (10, 0, 11) 0x00[0x4f]
[…0x46…]