|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1280 (0x500)
Names: »MAST.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
└─ ⟦this⟧ »MAST.BAS«
0x000…020 ff e2 61 01 00 20 8f 20 50 52 4f 47 52 41 4d 20 4d 41 53 54 2e 42 41 53 00 04 62 0a 00 91 20 d0 ┆ a PROGRAM MAST.BAS b ┆ 0x020…040 0f 0c 29 3b 22 2a 2a 53 55 50 45 52 2d 4d 41 53 54 45 52 4d 49 4e 44 2a 2a 22 00 3f 62 14 00 91 ┆ );"**SUPER-MASTERMIND**" ?b ┆ 0x040…060 20 22 54 48 45 20 43 4f 4d 50 55 54 45 52 20 49 53 20 48 4f 4c 44 49 4e 47 20 41 20 34 20 44 49 ┆ "THE COMPUTER IS HOLDING A 4 DI┆ 0x060…080 47 49 54 20 4e 55 4d 42 45 52 2e 20 59 4f 55 20 48 41 56 45 22 00 7b 62 1e 00 91 20 22 54 4f 20 ┆GIT NUMBER. YOU HAVE" æb "TO ┆ 0x080…0a0 46 49 4e 44 20 54 48 49 53 20 4e 55 4d 42 45 52 20 49 4e 20 41 53 20 46 45 57 20 41 54 54 45 4d ┆FIND THIS NUMBER IN AS FEW ATTEM┆ 0x0a0…0c0 50 54 53 20 41 53 20 50 4f 53 53 49 42 4c 45 2e 22 00 b6 62 28 00 91 20 22 57 48 45 4e 20 59 4f ┆PTS AS POSSIBLE." b( "WHEN YO┆ 0x0c0…0e0 55 20 4d 41 54 43 48 20 41 20 44 49 47 49 54 2c 20 49 46 20 44 49 47 49 54 20 49 53 20 49 4e 20 ┆U MATCH A DIGIT, IF DIGIT IS IN ┆ 0x0e0…100 52 49 47 48 54 20 50 4c 41 43 45 22 00 ee 62 32 00 91 20 22 59 4f 55 20 53 43 4f 52 45 20 41 20 ┆RIGHT PLACE" b2 "YOU SCORE A ┆ 0x100…120 27 42 27 20 4f 54 48 45 52 57 49 53 45 20 41 20 27 57 27 2e 20 49 46 20 59 4f 55 20 57 49 53 48 ┆'B' OTHERWISE A 'W'. IF YOU WISH┆ 0x120…140 20 54 4f 22 00 0f 63 3c 00 91 20 22 54 48 52 4f 57 20 54 48 45 20 47 41 4d 45 20 54 59 50 45 20 ┆ TO" c< "THROW THE GAME TYPE ┆ 0x140…160 27 2d 31 27 22 00 1d 63 46 00 4d f0 11 20 3a 20 53 f0 11 00 23 63 50 00 bb 00 2a 63 5a 00 91 20 ┆'-1'" cF M : S #cP *cZ ┆ 0x160…180 00 31 63 64 00 91 20 00 3d 63 6e 00 88 20 4d f0 4d f2 12 00 4b 63 78 00 82 20 49 f0 12 20 ce 20 ┆ 1cd =cn M M Kcx I ┆ 0x180…1a0 15 00 60 63 82 00 88 20 41 28 49 29 f0 ff 85 28 0f 0a f4 ff 88 29 00 68 63 8c 00 83 20 49 00 72 ┆ `c A(I) ( ) hc I r┆ 0x1a0…1c0 63 96 00 88 20 4e f0 11 00 79 63 a0 00 91 20 00 8f 63 aa 00 91 20 22 34 20 44 49 47 49 54 20 4e ┆c N yc c "4 DIGIT N┆ 0x1c0…1e0 4f 2e 3d 22 2c 00 97 63 b4 00 85 20 5a 00 a7 63 be 00 8b 20 5a f1 11 20 cf 20 0e 08 02 00 bc 63 ┆O.=", c Z c Z c┆ 0x1e0…200 c8 00 88 20 58 28 12 29 f0 ff 85 28 5a f5 1c e8 03 29 00 d8 63 d2 00 88 20 58 28 13 29 f0 ff 85 ┆ X( ) (Z ) c X( ) ┆ 0x200…220 28 5a f5 0f 64 29 f3 0f 0a f4 58 28 12 29 00 fc 63 dc 00 88 20 58 28 14 29 f0 ff 85 28 5a f5 0f ┆(Z d) X( ) c X( ) (Z ┆ 0x220…240 0a 29 f3 0f 0a f4 58 28 13 29 f3 0f 64 f4 58 28 12 29 00 22 64 e6 00 88 20 58 28 15 29 f0 5a f3 ┆ ) X( ) d X( ) "d X( ) Z ┆ 0x240…260 58 28 12 29 f4 1c e8 03 f3 58 28 13 29 f4 0f 64 f3 58 28 14 29 f4 0f 0a 00 30 64 f0 00 42 f0 11 ┆X( ) X( ) d X( ) 0d B ┆ 0x260…280 20 3a 20 43 f0 11 00 3e 64 fa 00 82 20 49 f0 12 20 ce 20 15 00 52 64 04 01 4c 28 49 29 f0 11 20 ┆ : C >d I Rd L(I) ┆ 0x280…2a0 3a 20 4b 28 49 29 f0 11 00 5a 64 0e 01 83 20 49 00 68 64 18 01 82 20 49 f0 12 20 ce 20 15 00 7f ┆: K(I) Zd I hd I ┆ 0x2a0…2c0 64 22 01 8b 20 58 28 49 29 f1 ef 41 28 49 29 20 cf 20 0e 40 01 00 8b 64 2c 01 88 20 42 f0 42 f2 ┆d" X(I) A(I) @ d, B B ┆ 0x2c0…2e0 12 00 98 64 36 01 88 20 4c 28 49 29 f0 12 00 a0 64 40 01 83 20 49 00 ac 64 4a 01 88 20 4e f0 4e ┆ d6 L(I) d@ I dJ N N┆ 0x2e0…300 f2 12 00 bc 64 54 01 8b 20 42 f0 15 20 cf 20 0e cc 01 00 ca 64 5e 01 82 20 49 f0 12 20 ce 20 15 ┆ dT B d^ I ┆ 0x300…320 00 d8 64 68 01 82 20 4a f0 12 20 ce 20 15 00 f4 64 72 01 8b 20 4c 28 49 29 f0 12 20 f8 20 4c 28 ┆ dh J dr L(I) L(┆ 0x320…340 4a 29 f0 12 20 cf 20 0e a4 01 00 0b 65 7c 01 8b 20 58 28 49 29 f1 ef 41 28 4a 29 20 cf 20 0e a4 ┆J) eø X(I) A(J) ┆ 0x340…360 01 00 17 65 86 01 88 20 43 f0 43 f2 12 00 24 65 90 01 88 20 4b 28 4a 29 f0 12 00 2e 65 9a 01 89 ┆ e C C $e K(J) .e ┆ 0x360…380 20 0e ae 01 00 36 65 a4 01 83 20 4a 00 3e 65 ae 01 83 20 49 00 53 65 b8 01 91 20 42 3b 22 42 09 ┆ 6e J >e I Se B;"B ┆ 0x380…3a0 20 20 22 3b 43 3b 22 57 22 00 5d 65 c2 01 89 20 0e a0 00 00 69 65 cc 01 88 20 53 f0 53 f2 4e 00 ┆ ";C;"W" Åe ie S S N ┆ 0x3a0…3c0 79 65 d6 01 8b 20 4e f0 12 20 cf 20 0e f4 01 00 ac 65 e0 01 91 20 22 59 4f 55 20 48 41 56 45 20 ┆ye N e "YOU HAVE ┆ 0x3c0…3e0 46 4f 55 4e 44 20 54 48 45 20 4e 55 4d 42 45 52 20 49 4e 20 22 3b 4e 3b 22 41 54 54 45 4d 50 54 ┆FOUND THE NUMBER IN ";N;"ATTEMPT┆ 0x3e0…400 53 22 00 b6 65 ea 01 89 20 0e 1c 02 00 ca 65 f4 01 91 20 22 47 4f 4f 44 20 47 55 45 53 53 21 22 ┆S" e e "GOOD GUESS!"┆ 0x400…420 00 d4 65 fe 01 89 20 0e 1c 02 00 09 66 08 02 91 20 22 54 48 45 20 4e 55 4d 42 45 52 20 49 53 20 ┆ e f "THE NUMBER IS ┆ 0x420…440 22 3b 1c e8 03 f4 41 28 12 29 f2 0f 64 f4 41 28 13 29 f2 0f 0a f4 41 28 14 29 f2 41 28 15 29 00 ┆"; A( ) d A( ) A( ) A( ) ┆ 0x440…460 16 66 12 02 88 20 53 f0 53 f2 0f 64 00 42 66 1c 02 91 20 22 44 4f 20 59 4f 55 20 57 49 53 48 20 ┆ f S S d Bf "DO YOU WISH ┆ 0x460…480 54 4f 20 54 52 59 20 41 4e 4f 54 48 45 52 20 4e 55 4d 42 45 52 3f 22 2c 00 4b 66 26 02 85 20 51 ┆TO TRY ANOTHER NUMBER?", Kf& Q┆ 0x480…4a0 24 00 60 66 30 02 8b 20 51 24 f0 22 59 45 53 22 20 cf 20 0e 5a 00 00 82 66 3a 02 91 20 22 59 4f ┆$ `f0 Q$ "YES" Z f: "YO┆ 0x4a0…4c0 55 52 20 47 41 4d 45 20 41 56 45 52 41 47 45 20 49 53 20 22 3b 53 f5 4d 00 8d 66 44 02 8a 22 4d ┆UR GAME AVERAGE IS ";S M fD "M┆ 0x4c0…4e0 45 4e 55 00 00 00 1a f0 53 f2 0f 64 00 42 66 1c 02 91 20 22 44 4f 20 59 4f 55 20 57 49 53 48 20 ┆ENU S d Bf "DO YOU WISH ┆ 0x4e0…500 54 4f 20 54 52 59 20 41 4e 4f 54 48 45 52 20 4e 55 4d 42 45 52 3f 22 2c 00 4b 66 26 02 85 20 51 ┆TO TRY ANOTHER NUMBER?", Kf& Q┆