|
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 - download
Length: 2304 (0x900)
Names: »BOWL.BAS«
└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
└─ ⟦this⟧ »BOWL.BAS«
0x000…020 ff e2 61 01 00 20 8f 20 50 52 4f 47 52 41 4d 20 42 4f 57 4c 2e 42 41 53 00 e8 61 0a 00 bb 00 f1 ┆ a PROGRAM BOWL.BAS a ┆ 0x020…040 61 14 00 43 39 f0 12 00 fb 61 1e 00 50 30 f0 0f 4f 00 05 62 28 00 50 31 f0 0f 2b 00 19 62 32 00 ┆a C9 a P0 O b( P1 + b2 ┆ 0x040…060 86 20 43 28 0f 0f 29 2c 41 28 0f 32 2c 17 29 00 36 62 3c 00 91 20 22 57 45 4c 43 4f 4d 45 20 54 ┆ C( ),A( 2, ) 6b< "WELCOME T┆ 0x060…080 4f 20 54 48 45 20 41 4c 4c 45 59 22 00 3d 62 46 00 91 20 00 44 62 50 00 91 20 00 5f 62 5a 00 91 ┆O THE ALLEY" =bF DbP _bZ ┆ 0x080…0a0 20 22 57 41 4e 54 20 49 4e 53 54 52 55 43 54 49 4f 4e 53 22 3b 00 68 62 64 00 85 20 59 24 00 7b ┆ "WANT INSTRUCTIONS"; hbd Y$ æ┆ 0x0a0…0c0 62 6e 00 8b 20 59 24 f0 22 59 22 20 cf 20 0e 96 00 00 8e 62 78 00 8b 20 59 24 f0 22 4e 22 20 cf ┆bn Y$ "Y" bx Y$ "N" ┆ 0x0c0…0e0 20 0e e6 00 00 a0 62 82 00 8b 20 59 24 f0 22 22 20 cf 20 0e e6 00 00 aa 62 8c 00 89 20 0e 5a 00 ┆ b Y$ "" b Z ┆ 0x0e0…100 00 df 62 96 00 91 20 22 54 48 49 53 20 50 52 4f 47 52 41 4d 20 50 4c 41 59 53 20 54 45 4e 20 50 ┆ b "THIS PROGRAM PLAYS TEN P┆ 0x100…120 49 4e 20 42 4f 57 4c 49 4e 47 20 46 4f 52 20 55 50 20 54 4f 22 00 1d 63 a0 00 91 20 22 46 4f 55 ┆IN BOWLING FOR UP TO" c "FOU┆ 0x120…140 52 20 50 45 4f 50 4c 45 2e 20 20 54 48 45 20 43 4f 4d 50 55 54 45 52 20 4b 45 45 50 53 20 53 43 ┆R PEOPLE. THE COMPUTER KEEPS SC┆ 0x140…160 4f 52 45 20 41 4e 44 20 53 48 4f 57 53 20 59 4f 55 20 22 00 56 63 aa 00 91 20 22 48 4f 57 20 59 ┆ORE AND SHOWS YOU " Vc "HOW Y┆ 0x160…180 4f 55 20 57 45 4e 54 20 4f 4e 2e 20 20 59 4f 55 20 57 49 4c 4c 20 42 45 20 50 4c 41 59 49 4e 47 ┆OU WENT ON. YOU WILL BE PLAYING┆ 0x180…1a0 20 54 45 4e 20 46 52 41 4d 45 53 22 00 5d 63 b4 00 91 20 00 9b 63 be 00 91 20 22 4f 4e 20 54 48 ┆ TEN FRAMES" Åc c "ON TH┆ 0x1a0…1c0 45 20 50 49 4e 20 44 49 41 47 52 41 4d 20 27 22 3b ff 96 28 50 30 29 3b 22 27 20 4d 45 41 4e 53 ┆E PIN DIAGRAM '"; (P0);"' MEANS┆ 0x1c0…1e0 20 54 48 45 20 50 49 4e 20 49 53 20 44 4f 57 4e 22 00 d9 63 c8 00 91 20 22 41 4e 44 20 27 22 3b ┆ THE PIN IS DOWN" c "AND '";┆ 0x1e0…200 ff 96 28 50 31 29 3b 22 27 20 4d 45 41 4e 53 20 54 48 45 20 50 49 4e 20 49 53 20 53 54 41 4e 44 ┆ (P1);"' MEANS THE PIN IS STAND┆ 0x200…220 49 4e 47 2e 20 41 46 54 45 52 20 54 48 45 22 00 0a 64 d2 00 91 20 22 47 41 4d 45 20 54 48 45 20 ┆ING. AFTER THE" d "GAME THE ┆ 0x220…240 43 4f 4d 50 55 54 45 52 20 57 49 4c 4c 20 53 48 4f 57 20 59 4f 55 52 20 53 43 4f 52 45 53 2e 22 ┆COMPUTER WILL SHOW YOUR SCORES."┆ 0x240…260 00 11 64 dc 00 91 20 00 3d 64 e6 00 91 20 22 46 49 52 53 54 20 4f 46 20 41 4c 4c 2e 2e 2e 48 4f ┆ d =d "FIRST OF ALL...HO┆ 0x260…280 57 20 4d 41 4e 59 20 41 52 45 20 50 4c 41 59 49 4e 47 22 00 45 64 f0 00 85 20 52 00 55 64 fa 00 ┆W MANY ARE PLAYING" Ed R Ud ┆ 0x280…2a0 8b 20 52 f1 16 20 cf 20 0e 18 01 00 8f 64 04 01 91 20 22 53 4f 52 52 59 20 4f 4e 4c 59 20 55 50 ┆ R d "SORRY ONLY UP┆ 0x2a0…2c0 20 54 4f 20 46 4f 55 52 20 43 41 4e 20 50 4c 41 59 2e 20 48 4f 57 20 4d 41 4e 59 20 50 4c 41 59 ┆ TO FOUR CAN PLAY. HOW MANY PLAY┆ 0x2c0…2e0 45 52 53 22 3b 00 99 64 0e 01 89 20 0e f0 00 00 a0 64 18 01 91 20 00 b0 64 22 01 82 20 58 39 f0 ┆ERS"; d d d" X9 ┆ 0x2e0…300 11 20 ce 20 0f 32 00 bf 64 2c 01 82 20 59 39 f0 11 20 ce 20 17 00 ce 64 36 01 41 28 58 39 2c 59 ┆ 2 d, Y9 d6 A(X9,Y┆ 0x300…320 39 29 f0 11 00 d7 64 40 01 83 20 59 39 00 e0 64 4a 01 83 20 58 39 00 e8 64 54 01 46 f0 12 00 f6 ┆9) d@ Y9 dJ X9 dT F ┆ 0x320…340 64 5e 01 82 20 50 f0 12 20 ce 20 52 00 fe 64 68 01 4d f0 11 00 06 65 72 01 42 f0 12 00 0e 65 7c ┆d^ P R dh M er B eø┆ 0x340…360 01 4d f0 11 00 16 65 86 01 51 f0 11 00 26 65 90 01 82 20 43 38 f0 11 20 ce 20 0f 0f 00 32 65 9a ┆ M e Q &e C8 2e ┆ 0x360…380 01 43 28 43 38 29 f0 11 00 3b 65 a4 01 83 20 43 38 00 64 65 ae 01 8f 20 42 41 4c 4c 20 47 45 4e ┆ C(C8) ;e C8 de BALL GEN┆ 0x380…3a0 45 52 41 54 4f 52 20 55 53 49 4e 47 20 4d 4f 44 2d 31 35 20 53 59 53 54 45 4d 00 82 65 b8 01 91 ┆ERATOR USING MOD-15 SYSTEM e ┆ 0x3a0…3c0 20 22 50 4c 41 59 45 52 22 3b 50 3b 22 54 59 50 45 20 52 4f 4c 4c 22 3b 00 8b 65 c2 01 85 20 4e ┆ "PLAYER";P;"TYPE ROLL"; e N┆ 0x3c0…3e0 24 00 93 65 cc 01 4b f0 11 00 9b 65 d6 01 44 f0 11 00 aa 65 e0 01 82 20 49 f0 12 20 ce 20 0f 14 ┆$ e K e D e I ┆ 0x3e0…400 00 ba 65 ea 01 58 f0 ff 85 28 ff 88 f4 0f 64 29 00 c9 65 f4 01 82 20 4a f0 12 20 ce 20 0f 0a 00 ┆ e X ( d) e J ┆ 0x400…420 dc 65 fe 01 8b 20 58 f1 0f 0f f4 4a 20 cf 20 0e 12 02 00 e4 65 08 02 83 20 4a 00 f4 65 12 02 43 ┆ e X J e J e C┆ 0x420…440 28 0f 0f f4 4a f3 58 29 f0 12 00 fc 65 1c 02 83 20 49 00 0b 66 26 02 8f 20 50 49 4e 20 44 49 41 ┆( J X) e I f& PIN DIA┆ 0x440…460 47 00 33 66 30 02 91 20 22 50 4c 41 59 45 52 22 3b 50 3b 22 09 20 20 46 52 41 4d 45 22 3b 46 3b ┆G 3f0 "PLAYER";P;" FRAME";F;┆ 0x460…480 22 09 42 41 4c 4c 22 3b 42 00 41 66 3a 02 82 20 49 f0 11 20 ce 20 14 00 48 66 44 02 91 20 00 58 ┆" BALL";B Af: I HfD X┆ 0x480…4a0 66 4e 02 82 20 4a f0 12 20 ce 20 15 f3 49 00 62 66 58 02 4b f0 4b f2 12 00 75 66 62 02 8b 20 43 ┆fN J I bfX K K ufb C┆ 0x4a0…4c0 28 4b 29 f0 12 20 cf 20 0e 80 02 00 8b 66 6c 02 91 20 d0 49 29 3b ff 96 28 50 31 29 3b 22 20 22 ┆(K) fl I); (P1);" "┆ 0x4c0…4e0 3b 00 95 66 76 02 89 20 0e 8a 02 00 ab 66 80 02 91 20 d0 49 29 3b ff 96 28 50 30 29 3b 22 20 22 ┆; fv f I); (P0);" "┆ 0x4e0…500 3b 00 b3 66 8a 02 83 20 4a 00 bb 66 94 02 83 20 49 00 c2 66 9e 02 91 20 00 c9 66 a8 02 91 20 00 ┆; f J f I f f ┆ 0x500…520 d0 66 b2 02 91 20 00 e4 66 bc 02 8f 20 52 4f 4c 4c 20 41 4e 41 4c 59 53 49 53 00 f3 66 c6 02 82 ┆ f f ROLL ANALYSIS f ┆ 0x520…540 20 49 f0 12 20 ce 20 0f 0a 00 00 67 d0 02 44 f0 44 f2 43 28 49 29 00 08 67 da 02 83 20 49 00 1b ┆ I g D D C(I) g I ┆ 0x540…560 67 e4 02 8b 20 44 f3 4d f1 ef 11 20 cf 20 0e 02 03 00 2c 67 ee 02 91 20 22 47 55 54 54 45 52 21 ┆g D M ,g "GUTTER!┆ 0x560…580 21 22 00 36 67 f8 02 89 20 0e 7a 03 00 48 67 02 03 8b 20 44 f1 ef 0f 0a 20 cf 20 0e 66 03 00 59 ┆!" 6g z Hg D f Y┆ 0x580…5a0 67 0c 03 8b 20 42 f1 ef 12 20 cf 20 0e 34 03 00 72 67 16 03 91 20 22 53 54 52 49 4b 45 21 21 09 ┆g B 4 rg "STRIKE!! ┆ 0x5a0…5c0 53 43 4f 52 45 20 33 22 00 7a 67 20 03 51 f0 14 00 84 67 2a 03 89 20 0e a2 03 00 95 67 34 03 8b ┆SCORE 3" zg Q g* g4 ┆ 0x5c0…5e0 20 42 f1 ef 13 20 cf 20 0e 5c 03 00 ad 67 3e 03 91 20 22 53 50 41 52 45 21 21 09 53 43 4f 52 45 ┆ B Ø g> "SPARE!! SCORE┆ 0x5e0…600 20 32 22 00 b5 67 48 03 51 f0 13 00 bf 67 52 03 89 20 0e a2 03 00 c5 67 5c 03 90 00 d6 67 66 03 ┆ 2" gH Q gR gØ gf ┆ 0x600…620 8b 20 42 f1 ef 13 20 cf 20 0e 8e 03 00 f3 67 70 03 91 20 22 45 52 52 4f 52 21 21 09 53 43 4f 52 ┆ B gp "ERROR!! SCOR┆ 0x620…640 45 20 4f 4e 4c 59 20 31 22 00 fb 67 7a 03 51 f0 12 00 05 68 84 03 89 20 0e a2 03 00 16 68 8e 03 ┆E ONLY 1" gz Q h h ┆ 0x640…660 8b 20 42 f1 ef 12 20 cf 20 0e 5c 03 00 34 68 98 03 91 20 22 52 4f 4c 4c 20 59 4f 55 52 20 53 45 ┆ B Ø 4h "ROLL YOUR SE┆ 0x660…680 43 4f 4e 44 20 42 41 4c 4c 22 00 4c 68 a2 03 8f 20 53 54 4f 52 41 47 45 20 4f 46 20 53 43 4f 52 ┆COND BALL" Lh STORAGE OF SCOR┆ 0x680…6a0 45 53 00 53 68 ac 03 91 20 00 6b 68 b6 03 41 28 28 28 50 f3 12 29 f4 0f 0a 29 f2 46 2c 42 29 f0 ┆ES Sh kh A(((P ) ) F,B) ┆ 0x6a0…6c0 44 00 7b 68 c0 03 8b 20 42 f0 13 20 cf 20 0e fc 03 00 83 68 ca 03 42 f0 13 00 8b 68 d4 03 4d f0 ┆D æh B h B h M ┆ 0x6c0…6e0 44 00 9b 68 de 03 8b 20 51 f0 14 20 cf 20 0e a2 03 00 b5 68 e8 03 41 28 28 28 50 f3 12 29 f4 0f ┆D h Q h A(((P ) ┆ 0x6e0…700 0a 29 f2 46 2c 14 29 f0 44 f3 4d 00 c5 68 f2 03 8b 20 51 f0 11 20 cf 20 0e ae 01 00 dd 68 fc 03 ┆ ) F, ) D M h Q h ┆ 0x700…720 41 28 28 28 50 f3 12 29 f4 0f 0a 29 f2 46 2c 14 29 f0 51 00 e5 68 06 04 83 20 50 00 ef 68 10 04 ┆A(((P ) ) F, ) Q h P h ┆ 0x720…740 46 f0 46 f2 12 00 00 69 1a 04 8b 20 46 f1 0f 0b 20 cf 20 0e 5e 01 00 14 69 24 04 91 20 d0 0f 14 ┆F F i F ^ i$ ┆ 0x740…760 29 3b 22 46 52 41 4d 45 53 22 00 23 69 2e 04 82 20 49 f0 12 20 ce 20 0f 0a 00 36 69 38 04 91 20 ┆);"FRAMES" #i. I 6i8 ┆ 0x760…780 d0 15 f4 28 49 f2 12 29 29 3b 49 3b 00 3e 69 42 04 83 20 49 00 45 69 4c 04 91 20 00 4c 69 56 04 ┆ (I ));I; >iB I EiL LiV ┆ 0x780…7a0 91 20 00 5a 69 60 04 82 20 50 f0 12 20 ce 20 52 00 68 69 6a 04 82 20 49 f0 12 20 ce 20 14 00 79 ┆ Zi` P R hij I y┆ 0x7a0…7c0 69 74 04 8b 20 49 f1 ef 12 20 cf 20 0e 88 04 00 86 69 7e 04 91 20 22 31 53 54 22 3b 00 97 69 88 ┆it I iü "1ST"; i ┆ 0x7c0…7e0 04 8b 20 49 f1 ef 13 20 cf 20 0e 9c 04 00 a4 69 92 04 91 20 22 32 4e 44 22 3b 00 b5 69 9c 04 8b ┆ I i "2ND"; i ┆ 0x7e0…800 20 49 f1 ef 14 20 cf 20 0e b0 04 00 c4 69 a6 04 91 20 22 53 43 4f 52 45 22 3b 00 d3 69 b0 04 82 ┆ I i "SCORE"; i ┆ 0x800…820 20 4a f0 12 20 ce 20 0f 0a 00 f6 69 ba 04 91 20 d0 15 f4 28 4a f2 12 29 29 3b 41 28 28 28 50 f3 ┆ J i (J ));A(((P ┆ 0x820…840 12 29 f4 0f 0a 29 f2 4a 2c 49 29 3b 00 fe 69 c4 04 83 20 4a 00 05 6a ce 04 91 20 00 0d 6a d8 04 ┆ ) ) J,I); i J j j ┆ 0x840…860 83 20 49 00 14 6a e2 04 91 20 00 1c 6a ec 04 83 20 50 00 3e 6a f6 04 91 20 22 44 4f 20 59 4f 55 ┆ I j j P >j "DO YOU┆ 0x860…880 20 57 41 4e 54 20 41 4e 4f 54 48 45 52 20 47 41 4d 45 22 3b 00 47 6a 00 05 85 20 59 24 00 5a 6a ┆ WANT ANOTHER GAME"; Gj Y$ Zj┆ 0x880…8a0 0a 05 8b 20 59 24 f0 22 59 22 20 cf 20 0e b8 01 00 6b 6a 14 05 8b 20 43 39 f0 11 20 cf 20 0e 1e ┆ Y$ "Y" kj C9 ┆ 0x8a0…8c0 05 00 76 6a 1e 05 91 22 42 59 45 22 00 83 6a 28 05 8a 20 22 4d 45 4e 55 22 00 00 00 1a 6a d8 04 ┆ vj "BYE" j( "MENU" j ┆ 0x8c0…8e0 83 20 49 00 14 6a e2 04 91 20 00 1c 6a ec 04 83 20 50 00 3e 6a f6 04 91 20 22 44 4f 20 59 4f 55 ┆ I j j P >j "DO YOU┆ 0x8e0…900 20 57 41 4e 54 20 41 4e 4f 54 48 45 52 20 47 41 4d 45 22 3b 00 47 6a 00 05 85 20 59 24 00 5a 6a ┆ WANT ANOTHER GAME"; Gj Y$ Zj┆