|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1024 (0x400)
Names: »TIME10.COM«
└─⟦09ad82a35⟧ Bits:30002863 PolyPascal-80 V3.10 for JET80 CP/M
└─ ⟦this⟧ »TIME10.COM«
0x000…020 21 00 00 39 22 0c 05 31 0c 05 3e 0f d3 7b 3e 03 d3 7b 21 10 04 0e 0d 3e 01 77 23 0d c2 19 01 3a ┆! 9" 1 > æ> æ! > w# :┆ 0x020…040 5d 00 e6 5f fe 53 c2 32 01 cd d7 01 cd 86 03 0d 0a 00 cd 38 01 c3 09 04 cd f4 03 21 10 04 0e 0d ┆Å _ S 2 8 ! ┆ 0x040…060 7d e6 0f cd a5 03 77 23 0d c2 40 01 2a 14 04 7c e6 03 cd 94 03 7d cd 94 03 2a 12 04 7c cd 94 03 ┆å w# @ * ø å * ø ┆ 0x060…080 7d cd 94 03 3e 3a cd 96 03 2a 10 04 7c cd 94 03 7d cd 94 03 3e 20 cd 96 03 3a 16 04 e6 07 6f 26 ┆å >: * ø å > : o&┆ 0x080…0a0 00 29 11 1d 04 19 5e 23 56 0e 09 cd 05 00 2a 17 04 7c b7 ca 99 01 cd 94 03 7d cd 94 03 3e 20 cd ┆ ) ^#V * ø å > ┆ 0x0a0…0c0 96 03 3a 1a 04 e6 01 ca ac 01 3e 0a 6f 26 00 3a 19 04 e6 0f 85 6f 2b 29 11 72 04 19 5e 23 56 0e ┆ : > o& : o+) r ^#V ┆ 0x0c0…0e0 09 cd 05 00 cd 86 03 31 39 00 3a 1c 04 cd 94 03 3a 1b 04 cd 94 03 c9 3e 80 32 80 00 cd 86 03 0d ┆ 19 : : > 2 ┆ 0x0e0…100 0a 0a 53 65 74 20 43 6c 6f 63 6b 2e 20 20 54 79 70 65 20 3c 63 74 6c 2d 43 3e 20 74 6f 20 45 78 ┆ Set Clock. Type <ctl-C> to Ex┆ 0x100…120 69 74 2e 0d 0a 0a 57 68 61 74 20 79 65 61 72 20 69 73 20 74 68 69 73 3f 20 28 65 2e 67 2e 20 38 ┆it. What year is this? (e.g. 8┆ 0x120…140 33 29 20 00 11 80 00 0e 0a cd 05 00 3a 81 00 b7 ca 43 02 21 82 00 7e e6 0f 32 1c 04 23 7e e6 0f ┆3) : C ! ü 2 #ü ┆ 0x140…160 32 1b 04 cd 86 03 0d 0a 4d 6f 6e 74 68 3f 20 28 4a 61 6e 20 3d 20 30 31 2c 20 46 65 62 20 3d 20 ┆2 Month? (Jan = 01, Feb = ┆ 0x160…180 30 32 2c 20 65 74 63 2e 29 20 00 11 80 00 0e 0a cd 05 00 3a 81 00 b7 ca 8a 02 3a 82 00 e6 0f 32 ┆02, etc.) : : 2┆ 0x180…1a0 1a 04 3a 83 00 e6 0f 32 19 04 cd 86 03 0d 0a 54 6f 64 61 79 27 73 20 64 61 74 65 3f 20 28 69 2e ┆ : 2 Today's date? (i.┆ 0x1a0…1c0 65 2e 20 30 31 20 74 6f 20 33 31 29 20 00 11 80 00 0e 0a cd 05 00 3a 81 00 b7 ca cd 02 3a 82 00 ┆e. 01 to 31) : : ┆ 0x1c0…1e0 e6 0f 32 18 04 3a 83 00 e6 0f 32 17 04 cd 86 03 0d 0a 57 68 61 74 20 64 61 79 20 69 73 20 69 74 ┆ 2 : 2 What day is it┆ 0x1e0…200 3f 20 28 69 65 2e 20 53 75 6e 64 61 79 20 3d 20 31 2c 20 4d 6f 6e 64 61 79 20 3d 20 32 2c 20 65 ┆? (ie. Sunday = 1, Monday = 2, e┆ 0x200…220 74 63 2e 29 20 00 11 80 00 0e 0a cd 05 00 3a 81 00 b7 ca 1e 03 3a 82 00 e6 0f 3d 32 16 04 cd 86 ┆tc.) : : =2 ┆ 0x220…240 03 0d 0a 57 68 61 74 20 74 69 6d 65 20 69 73 20 69 74 3f 20 28 69 65 2e 20 31 35 34 35 29 20 00 ┆ What time is it? (ie. 1545) ┆ 0x240…260 11 80 00 0e 0a cd 05 00 3a 81 00 b7 ca 71 03 3a 82 00 e6 0f f6 08 32 15 04 3a 83 00 e6 0f 32 14 ┆ : q : 2 : 2 ┆ 0x260…280 04 3a 84 00 e6 0f 32 13 04 3a 85 00 e6 0f 32 12 04 cd eb 03 21 10 04 0e 0d 5e 7d e6 0f cd c9 03 ┆ : 2 : 2 ! ^å ┆ 0x280…2a0 23 0d c2 79 03 c9 e1 7e 23 b7 ca 93 03 cd 96 03 c3 87 03 e9 c6 30 f5 e5 d5 c5 5f 0e 02 cd 05 00 ┆# y ü# 0 _ ┆ 0x2a0…2c0 c1 d1 e1 f1 c9 f5 cd eb 03 f1 f6 90 d3 79 e6 7f d3 79 cd fd 03 cd f4 03 3e 30 d3 79 cd 04 04 db ┆ y y >0 y ┆ 0x2c0…2e0 79 e6 0f f5 af d3 79 f1 c9 f5 cd eb 03 f1 f6 90 d3 79 e6 7f d3 79 cd fd 03 3e 50 b3 d3 79 f5 cd ┆y y y y >P y ┆ 0x2e0…300 04 04 f1 ee 40 d3 79 af d3 79 c9 3e cf d3 7b 3e 00 d3 7b c9 3e cf d3 7b 3e 0f d3 7b c9 3e 36 3d ┆ @ y y > æ> æ > æ> æ >6=┆ 0x300…320 c2 ff 03 c9 3e 03 c3 ff 03 2a 0c 05 f9 c9 3a 81 00 b7 ca 1e 03 3a 82 00 e6 0f 3d 32 16 2b 04 34 ┆ > * : : =2 + 4┆ 0x320…340 04 3d 04 47 04 53 04 5e 04 67 04 53 75 6e 64 61 79 2c 20 24 4d 6f 6e 64 61 79 2c 20 24 54 75 65 ┆ = G S ^ g Sunday, $Monday, $Tue┆ 0x340…360 73 64 61 79 2c 20 24 57 65 64 6e 65 73 64 61 79 2c 20 24 54 68 75 72 73 64 61 79 2c 20 24 46 72 ┆sday, $Wednesday, $Thursday, $Fr┆ 0x360…380 69 64 61 79 2c 20 24 53 61 74 75 72 64 61 79 2c 20 24 8a 04 93 04 9d 04 a4 04 ab 04 b0 04 b6 04 ┆iday, $Saturday, $ ┆ 0x380…3a0 bc 04 c4 04 cf 04 d8 04 e2 04 4a 61 6e 75 61 72 79 20 24 46 65 62 72 75 61 72 79 20 24 4d 61 72 ┆ January $February $Mar┆ 0x3a0…3c0 63 68 20 24 41 70 72 69 6c 20 24 4d 61 79 20 24 4a 75 6e 65 20 24 4a 75 6c 79 20 24 41 75 67 75 ┆ch $April $May $June $July $Augu┆ 0x3c0…3e0 73 74 20 24 53 65 70 74 65 6d 62 65 72 20 24 4f 63 74 6f 62 65 72 20 24 4e 6f 76 65 6d 62 65 72 ┆st $September $October $November┆ 0x3e0…400 20 24 44 65 63 65 6d 62 65 72 20 24 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ $December $ ┆