|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1280 (0x500)
Names: »FORMAT.COM«
└─⟦1740f0707⟧ Bits:30002657 Diskette, der automatisk starter op med COMAL80S på 60k CP/M (ICL COMET MPS 3000)
└─⟦this⟧ »FORMAT.COM«
0x000…020 (0,) 55 53 45 31 3a 3d 31 31 30 30 30 0d 30 38 34 30 20 57 48 45 4e 20 22 33 22 0d 30 38 35 30 20 20 ┆USE1:=11000 0840 WHEN "3" 0850 ┆ 0x020…040 50 41 55 53 45 31 3a 3d 32 32 30 30 30 0d 30 38 36 30 20 4f 54 48 45 52 57 49 53 45 20 0d 30 38 ┆PAUSE1:=22000 0860 OTHERWISE 08┆ 0x040…060 37 30 20 20 47 4f 54 4f 20 54 49 44 31 0d 30 38 38 30 20 45 4e 44 43 41 53 45 20 0d 30 38 39 30 ┆70 GOTO TID1 0880 ENDCASE 0890┆ 0x060…080 20 2f 2f 0d 30 39 30 30 20 4c 41 42 45 4c 20 54 49 44 32 20 2f 2f 20 4c 20 4c 20 4c 20 4c 20 4c ┆ // 0900 LABEL TID2 // L L L L L┆ 0x080…0a0 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c ┆ L L L L L L L L L L L L L L L L┆ 0x0a0…0c0 20 4c 20 4c 20 4c 20 4c 20 4c 20 4c 0d 30 39 31 30 20 43 4c 45 41 52 20 0d 30 39 32 30 20 46 4f ┆ L L L L L L 0910 CLEAR 0920 FO┆ 0x0c0…0e0 52 20 50 3a 3d 31 20 54 4f 20 33 30 30 20 44 4f 20 0d 30 39 33 30 20 4e 45 58 54 20 50 0d 30 39 ┆R P:=1 TO 300 DO 0930 NEXT P 09┆ 0x0e0…100 34 30 20 43 55 52 53 4f 52 20 32 35 2c 20 38 0d 30 39 35 30 20 50 52 49 4e 54 20 22 48 76 6f 72 ┆40 CURSOR 25, 8 0950 PRINT "Hvor┆ 0x100…120 20 6c 61 6e 67 20 74 69 64 20 73 6b 61 6c 20 64 65 72 20 67 7d 22 0d 30 39 36 30 20 43 55 52 53 ┆ lang tid skal der gå" 0960 CURS┆ 0x120…140 4f 52 20 32 35 2c 20 31 30 0d 30 39 37 30 20 50 52 49 4e 54 20 22 66 72 61 20 73 76 61 72 65 74 ┆OR 25, 10 0970 PRINT "fra svaret┆ 0x140…160 20 65 72 20 67 69 76 65 74 22 0d 30 39 38 30 20 43 55 52 53 4f 52 20 32 35 2c 20 31 32 0d 30 39 ┆ er givet" 0980 CURSOR 25, 12 09┆ 0x160…180 39 30 20 50 52 49 4e 54 20 22 74 69 6c 20 6e 7b 73 74 65 20 73 70 7c 72 67 73 6d 7d 6c 20 73 74 ┆90 PRINT "til næste spørgsmål st┆ 0x180…1a0 69 6c 6c 65 73 20 3f 22 0d 31 30 30 30 20 43 55 52 53 4f 52 20 32 35 2c 20 31 35 0d 31 30 31 30 ┆illes ?" 1000 CURSOR 25, 15 1010┆ 0x1a0…1c0 20 50 52 49 4e 54 20 22 31 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 35 20 73 65 6b 75 6e 64 65 72 22 ┆ PRINT "1............5 sekunder"┆ 0x1c0…1e0 0d 31 30 32 30 20 43 55 52 53 4f 52 20 32 35 2c 20 31 37 0d 31 30 33 30 20 50 52 49 4e 54 20 22 ┆ 1020 CURSOR 25, 17 1030 PRINT "┆ 0x1e0…200 32 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 2e 31 35 20 73 65 6b 75 6e 64 65 72 22 0d 31 30 34 30 20 43 55 ┆2...........15 sekunder" 1040 CU┆ 0x200…220 (1,) c3 74 01 43 4f 50 59 52 49 47 48 54 20 28 43 29 20 31 39 37 38 2c 20 44 49 47 49 54 41 4c 20 52 ┆ t COPYRIGHT (C) 1978, DIGITAL R┆ 0x220…240 45 53 45 41 52 43 48 20 0e 01 cd 05 00 fe 61 d8 fe 7b d0 e6 5f c9 5f 0e 02 cd 05 00 c9 3e 0d cd ┆ESEARCH a æ _ _ > ┆ 0x240…260 36 01 3e 0a cd 36 01 c9 e5 cd 3d 01 e1 7e b7 c8 e5 cd 36 01 e1 23 c3 4d 01 4f 2a 01 00 11 18 00 ┆6 > 6 = ü 6 # M O* ┆ 0x260…280 19 e9 2a 01 00 11 21 00 19 e9 0e 14 c3 05 00 0e 0f c3 05 00 31 c1 04 21 69 03 cd 4d 01 3a 5d 00 ┆ * ! 1 !i M :Å ┆ 0x280…2a0 fe 20 ca d2 01 11 5c 00 cd 6f 01 3c c2 98 01 21 6c 04 cd 48 01 c3 57 03 af 32 7c 00 0e 10 c5 11 ┆ Ø o < !l H W 2ø ┆ 0x2a0…2c0 5c 00 cd 6a 01 c1 b7 c2 c9 01 0d c2 9e 01 21 00 09 e5 44 4d cd 62 01 11 5c 00 cd 6a 01 e1 b7 c2 ┆Ø j ! DM b Ø j ┆ 0x2c0…2e0 5d 02 11 80 00 19 c3 b1 01 21 83 04 cd 48 01 c3 57 03 21 78 03 cd 48 01 cd 28 01 fe 0d ca 5d 02 ┆Å ! H W !x H ( Å ┆ 0x2e0…300 d6 41 fe 04 da ed 01 cd 62 03 c3 d2 01 c6 41 32 a8 03 d6 41 32 42 00 cd 3d 01 21 9e 03 cd 4d 01 ┆ A b A2 A2B = ! M ┆ 0x300…320 cd 28 01 fe 0d c2 57 03 cd 3d 01 3e 05 32 a0 04 cd 15 f8 3e 00 32 43 00 3e 01 32 44 00 3e 0a 32 ┆ ( W = > 2 > 2C > 2D > 2┆ 0x320…340 45 00 21 80 07 22 40 00 cd 18 f8 28 0e 3a a0 04 3d 32 a0 04 30 f2 cd 3f 03 18 d0 21 80 1b 22 40 ┆E ! "@ ( : =2 0 ? ! "@┆ 0x340…360 00 3a 43 00 3c 32 43 00 fe 02 38 dc 11 00 09 21 80 07 01 80 00 ed b0 21 33 04 cd 4d 01 21 bc 03 ┆ :C <2C 8 ! !3 M ! ┆ 0x360…380 cd 48 01 cd 28 01 fe 0d ca 57 03 d6 41 fe 04 da 78 02 cd 62 03 c3 5d 02 c6 41 32 f8 03 d6 41 32 ┆ H ( W A x b Å A2 A2┆ 0x380…3a0 42 00 21 e9 03 cd 48 01 cd 28 01 fe 0d c2 57 03 cd 3d 01 11 80 07 21 00 09 01 80 00 ed b0 21 00 ┆B ! H ( W = ! ! ┆ 0x3a0…3c0 08 36 76 11 01 08 01 7f 01 ed b0 3e 05 32 a0 04 cd 15 f8 3e 00 32 43 00 3e 01 32 44 00 3e 0a 32 ┆ 6v > 2 > 2C > 2D > 2┆ 0x3c0…3e0 45 00 21 80 07 22 40 00 cd 1b f8 28 0e 3a a0 04 3d 32 a0 04 30 f2 cd 3f 03 18 d0 21 80 1b 22 40 ┆E ! "@ ( : =2 0 ? ! "@┆ 0x3e0…400 00 3a 43 00 3c 32 43 00 fe 02 38 dc 3e 05 32 a0 04 cd 15 f8 3e 00 32 43 00 21 00 31 22 40 00 cd ┆ :C <2C 8 > 2 > 2C ! 1"@ ┆ 0x400…420 (2,) 18 f8 28 0e 3a a0 04 3d 32 a0 04 30 f2 cd 3f 03 18 da 21 00 45 22 40 00 3a 43 00 3c 32 43 00 fe ┆ ( : =2 0 ? ! E"@ :C <2C ┆ 0x420…440 02 38 dc 11 80 07 21 00 31 01 00 28 1a be 20 09 23 13 0d 20 f7 10 f5 18 15 cd 3f 03 c3 ab 02 21 ┆ 8 ! 1 ( # ? !┆ 0x440…460 0c 04 cd 4d 01 cd 28 01 fe 0d c8 c3 57 03 21 33 04 cd 4d 01 c3 5d 02 3e 00 cd 59 01 cd 3d 01 c3 ┆ M ( W !3 M Å > Y = ┆ 0x460…480 00 00 21 45 04 cd 48 01 c9 53 59 53 47 45 4e 20 56 45 52 20 32 2e 30 00 53 4f 55 52 43 45 20 44 ┆ !E H SYSGEN VER 2.0 SOURCE D┆ 0x480…4a0 52 49 56 45 20 4e 41 4d 45 20 28 4f 52 20 52 45 54 55 52 4e 20 54 4f 20 53 4b 49 50 29 00 53 4f ┆RIVE NAME (OR RETURN TO SKIP) SO┆ 0x4a0…4c0 55 52 43 45 20 4f 4e 20 01 2c 20 54 48 45 4e 20 54 59 50 45 20 52 45 54 55 52 4e 00 44 45 53 54 ┆URCE ON , THEN TYPE RETURN DEST┆ 0x4c0…4e0 49 4e 41 54 49 4f 4e 20 44 52 49 56 45 20 4e 41 4d 45 20 28 4f 52 20 52 45 54 55 52 4e 20 54 4f ┆INATION DRIVE NAME (OR RETURN TO┆ 0x4e0…500 20 52 45 42 4f 4f 54 29 00 44 45 53 54 49 4e 41 54 49 4f 4e 20 4f 4e 20 00 2c 20 54 48 45 4e 20 ┆ REBOOT) DESTINATION ON , THEN ┆