> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..).... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 51 08 01 00 8F 20 |*********.Q.... |
00000030: 2A 20 20 27 42 49 4E 47 4F 27 20 46 4F 52 20 36 |* 'BINGO' FOR 6|
00000040: 34 20 54 41 50 45 20 4F 52 20 44 49 53 4B 20 20 |4 TAPE OR DISK |
00000050: 2A 00 79 08 02 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.y.... ********|
00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A1 08 03 00 8F 20 |*********...... |
00000080: 2A 20 46 49 4C 45 20 44 45 4D 4F 4E 53 54 52 41 |* FILE DEMONSTRA|
00000090: 54 49 4F 4E 20 55 53 49 4E 47 20 46 49 56 45 20 |TION USING FIVE |
000000A0: 2A 00 C9 08 04 00 8F 20 2A 20 4C 45 54 54 45 52 |*...... * LETTER|
000000B0: 20 57 4F 52 44 53 3B 20 42 41 53 45 44 20 4F 4E | WORDS; BASED ON|
000000C0: 20 54 48 45 20 20 20 20 2A 00 F1 08 05 00 8F 20 | THE *...... |
000000D0: 2A 20 50 4F 50 55 4C 41 52 20 55 53 41 20 57 4F |* POPULAR USA WO|
000000E0: 52 44 20 47 41 4D 45 2E 20 20 20 20 20 20 20 20 |RD GAME. |
000000F0: 2A 00 19 09 06 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 09 07 00 3A 00 |*********.....:.|
00000120: 47 09 0A 00 85 20 22 44 45 56 49 43 45 20 4E 55 |G.... "DEVICE NU|
00000130: 4D 42 45 52 3A 20 31 3D 54 41 50 45 2C 20 38 3D |MBER: 1=TAPE, 8=|
00000140: 44 49 53 4B 22 3B 44 00 7B 09 0B 00 99 20 22 50 |DISK";D.{.... "P|
00000150: 52 45 53 53 20 27 46 27 20 54 4F 20 46 49 4C 45 |RESS 'F' TO FILE|
00000160: 20 57 4F 52 44 53 2C 20 27 53 27 20 54 4F 20 53 | WORDS, 'S' TO S|
00000170: 43 4F 52 45 20 54 48 45 4D 2E 22 00 94 09 0C 00 |CORE THEM.".....|
00000180: A1 20 58 24 3A 20 8B 20 58 24 B2 22 53 22 20 89 |. X$: . X$."S" .|
00000190: 20 32 30 30 00 A7 09 0D 00 8B 20 58 24 B3 B1 22 | 200...... X$.."|
000001A0: 46 22 20 89 20 31 32 00 AD 09 0F 00 3A 00 D4 09 |F" . 12.....:...|
000001B0: 61 00 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |a.. ------------|
000001C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000001D0: 2D 2D 2D 2D 00 FB 09 62 00 8F 20 42 55 49 4C 44 |----...b.. BUILD|
000001E0: 20 46 49 4C 45 20 4F 46 20 57 4F 52 44 53 20 4F | FILE OF WORDS O|
000001F0: 4E 20 44 49 53 4B 2F 54 41 50 45 00 22 0A 63 00 |N DISK/TAPE.".c.|
00000200: 8F 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |. --------------|
00000210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000220: 2D 2D 00 5C 0A 64 00 3A 3A 3A 20 8B 20 44 B2 31 |--.\.d.::: . D.1|
00000230: 20 A7 20 9F 20 31 2C 44 2C 32 2C 22 35 2D 4C 45 | . . 1,D,2,"5-LE|
00000240: 54 54 45 52 20 57 4F 52 44 53 22 20 20 20 20 20 |TTER WORDS" |
00000250: 3A 8F 20 54 41 50 45 20 46 49 4C 45 00 96 0A 65 |:. TAPE FILE...e|
00000260: 00 3A 3A 3A 20 8B 20 44 B2 38 20 A7 20 9F 20 31 |.::: . D.8 . . 1|
00000270: 2C 44 2C 32 2C 22 35 2D 4C 45 54 54 45 52 20 57 |,D,2,"5-LETTER W|
00000280: 4F 52 44 53 2C 53 2C 57 22 20 3A 8F 20 44 49 53 |ORDS,S,W" :. DIS|
00000290: 4B 20 46 49 4C 45 00 9F 0A 6E 00 85 20 57 24 00 |K FILE...n.. W$.|
000002A0: C7 0A 78 00 8B 20 C3 28 57 24 29 B3 B1 35 20 20 |..x.. .(W$)..5 |
000002B0: 89 20 31 31 30 3A 20 8F 20 35 20 4C 45 54 54 45 |. 110: . 5 LETTE|
000002C0: 52 53 20 4F 4E 4C 59 00 D1 0A 82 00 98 31 2C 57 |RS ONLY......1,W|
000002D0: 24 00 00 0B 8C 00 8B 20 57 24 B3 B1 22 45 4E 44 |$...... W$.."END|
000002E0: 2A 2A 22 20 89 20 31 31 30 3A 20 8F 20 53 49 47 |**" . 110: . SIG|
000002F0: 4E 41 4C 53 20 45 4E 44 20 4F 46 20 46 49 4C 45 |NALS END OF FILE|
00000300: 00 0B 0B 96 00 A0 20 31 3A 20 80 00 2D 0B C5 00 |...... 1: ..-...|
00000310: 8F 20 20 20 20 20 20 20 20 2D 2D 2D 2D 2D 2D 2D |. -------|
00000320: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 4F 0B |-------------.O.|
00000330: C6 00 8F 20 20 20 20 20 20 20 20 50 55 54 20 49 |... PUT I|
00000340: 4E 20 4C 45 54 54 45 52 20 56 41 4C 55 45 53 00 |N LETTER VALUES.|
00000350: 71 0B C7 00 8F 20 20 20 20 20 20 20 20 2D 2D 2D |q.... ---|
00000360: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000370: 2D 00 7D 0B C8 00 86 20 56 28 32 36 29 00 8C 0B |-.}.... V(26)...|
00000380: D2 00 81 20 4A B2 31 20 A4 20 32 36 00 B3 0B DC |... J.1 . 26....|
00000390: 00 99 20 C7 28 36 34 AA 4A 29 3B 20 20 20 20 20 |.. .(64.J); |
000003A0: 20 3A 8F 20 50 52 49 4E 54 53 20 41 20 54 48 52 | :. PRINTS A THR|
000003B0: 55 20 5A 00 DE 0B E6 00 85 20 22 20 56 41 4C 55 |U Z...... " VALU|
000003C0: 45 22 3B 20 56 28 4A 29 20 20 20 3A 8F 20 4C 45 |E"; V(J) :. LE|
000003D0: 54 54 45 52 20 56 41 4C 55 45 53 20 49 4E 00 E4 |TTER VALUES IN..|
000003E0: 0B F0 00 82 00 0B 0C 29 01 8F 20 20 20 20 2D 2D |.......).. --|
000003F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000400: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 32 0C 2A 01 |-----------.2.*.|
00000410: 8F 20 20 20 20 52 45 41 44 20 46 49 4C 45 20 26 |. READ FILE &|
00000420: 20 50 52 49 4E 54 20 57 4F 52 44 20 56 41 4C 55 | PRINT WORD VALU|
00000430: 45 53 00 59 0C 2B 01 8F 20 20 20 20 2D 2D 2D 2D |ES.Y.+.. ----|
00000440: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000450: 2D 2D 2D 2D 2D 2D 2D 2D 2D 00 8E 0C 2C 01 3A 3A |---------...,.::|
00000460: 3A 20 8B 20 44 B2 31 20 A7 20 9F 20 31 2C 44 2C |: . D.1 . . 1,D,|
00000470: 32 2C 22 35 2D 4C 45 54 54 45 52 20 57 4F 52 44 |2,"5-LETTER WORD|
00000480: 53 22 20 20 20 20 20 3A 8F 20 54 41 50 45 00 C3 |S" :. TAPE..|
00000490: 0C 2D 01 3A 3A 3A 20 8B 20 44 B2 38 20 A7 20 9F |.-.::: . D.8 . .|
000004A0: 20 31 2C 44 2C 32 2C 22 35 2D 4C 45 54 54 45 52 | 1,D,2,"5-LETTER|
000004B0: 20 57 4F 52 44 53 2C 53 2C 52 22 20 3A 8F 20 44 | WORDS,S,R" :. D|
000004C0: 49 53 4B 00 CD 0C 36 01 84 31 2C 57 24 00 E7 0C |ISK...6..1,W$...|
000004D0: 40 01 8B 20 57 24 B2 22 45 4E 44 2A 2A 22 20 A7 |@.. W$."END**" .|
000004E0: 20 A0 20 31 3A 20 80 00 10 0D 4A 01 99 20 57 24 | . 1: ....J.. W$|
000004F0: 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |; :|
00000500: 8F 20 50 52 49 4E 54 20 57 4F 52 44 20 2E 2E 2E |. PRINT WORD ...|
00000510: 00 3D 0D 54 01 53 B2 30 3A 20 81 20 4A B2 31 20 |.=.T.S.0: . J.1 |
00000520: A4 20 35 20 20 20 20 20 20 3A 8F 20 43 4F 4D 50 |. 5 :. COMP|
00000530: 55 54 45 20 49 54 53 20 53 43 4F 52 45 00 66 0D |UTE ITS SCORE.f.|
00000540: 5E 01 4C 24 B2 CA 28 57 24 2C 4A 29 20 20 20 20 |^.L$..(W$,J) |
00000550: 20 20 20 20 20 20 3A 8F 20 42 59 20 45 56 41 4C | :. BY EVAL|
00000560: 55 41 54 49 4E 47 00 8E 0D 68 01 41 B2 C6 28 4C |UATING...h.A..(L|
00000570: 24 29 20 AB 20 36 34 20 20 20 20 20 20 20 20 20 |$) . 64 |
00000580: 3A 8F 20 45 41 43 48 20 4C 45 54 54 45 52 00 A0 |:. EACH LETTER..|
00000590: 0D 72 01 53 B2 53 20 AA 20 56 28 41 29 3A 20 82 |.r.S.S . V(A): .|
000005A0: 00 CA 0D 7C 01 99 20 53 20 20 20 20 20 20 20 20 |...|.. S |
000005B0: 20 20 20 20 20 20 20 20 3A 8F 20 2E 2E 2E 20 50 | :. ... P|
000005C0: 52 49 4E 54 20 53 43 4F 52 45 00 D4 0D 86 01 89 |RINT SCORE......|
000005D0: 20 33 31 30 00 00 00 | 310... |
..).... ********************************
*.Q.... * 'BINGO' FOR 64 TAPE OR DISK
*.Y.... ********************************
*...... * FILE DEMONSTRATION USING FIVE
*.I.... * LETTER WORDS; BASED ON THE
*...... * POPULAR USA WORD GAME.
*...... ********************************
*.....:.G.... "DEVICE NUMBER: 1=TAPE, 8=
DISK";D.{.... "PRESS 'F' TO FILE WORDS,
'S' TO SCORE THEM."...... X$: . X$."S" .
200...... X$.."F" . 12.....:.T.A.. ----
----------------------------...B.. BUILD
FILE OF WORDS ON DISK/TAPE.".C.. ------
--------------------------.\.D.::: . D.1
. . 1,D,2,"5-LETTER WORDS" :. TAPE
FILE...E.::: . D.8 . . 1,D,2,"5-LETTER W
ORDS,S,W" :. DISK FILE...N.. W$.G.X.. C(
W$)..5 . 110: . 5 LETTERS ONLY.Q....1,W
$...... W$.."END**" . 110: . SIGNALS END
OF FILE..... 1: ..-.E.. -------
-------------.O.F.. PUT IN LETTER
VALUES.Q.G.. -------------------
-.}.H.. V(26)...R.. J.1 . 26...... G(64.
J); :. PRINTS A THRU Z...... " VALU
E"; V(J) :. LETTER VALUES IN.........)
.. -----------------------------.2.*.
. READ FILE & PRINT WORD VALUES.Y.+..
-----------------------------...,.::
: . D.1 . . 1,D,2,"5-LETTER WORDS" :
. TAPE.C.-.::: . D.8 . . 1,D,2,"5-LETTER
WORDS,S,R" :. DISK.M.6..1,W$...@.. W$."
END**" . 1: ....J.. W$; :
. PRINT WORD ....=.T.S.0: . J.1 . 5
:. COMPUTE ITS SCORE.F.^.L$.J(W$,J)
:. BY EVALUATING...H.A.F(L$) . 64
:. EACH LETTER. .R.S.S . V(A): .
.J.|.. S :. ... PRINT SCO
RE.T.... 310...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL