00000000: 01 04 18 04 78 00 8F 20 41 4E 41 47 52 41 4D 20 |....x.. ANAGRAM |
00000010: 42 59 20 50 20 43 20 57 00 26 04 82 00 4D B2 36 |BY P C W.&...M.6|
00000020: 30 3A 4E B2 31 30 00 3E 04 8C 00 86 41 28 32 30 |0:N.10.>....A(20|
00000030: 29 2C 42 28 32 30 29 2C 41 24 28 32 30 29 00 56 |),B(20),A$(20).V|
00000040: 04 96 00 96 A5 52 28 58 29 B2 B5 28 58 AC BB 28 |.....R(X)..(X..(|
00000050: 54 49 29 AA 31 29 00 6B 04 A0 00 99 22 93 22 A3 |TI).1).k....".".|
00000060: 31 36 29 22 41 4E 41 47 52 41 4D 00 8E 04 AA 00 |16)"ANAGRAM.....|
00000070: 99 22 11 11 20 57 49 4C 4C 20 50 52 49 4E 54 20 |.".. WILL PRINT |
00000080: 41 4E 20 41 4E 47 41 47 52 41 4D 20 22 3B 00 B2 |AN ANGAGRAM ";..|
00000090: 04 B4 00 99 22 20 57 48 49 43 48 20 59 4F 55 20 |...." WHICH YOU |
000000A0: 48 41 56 45 20 20 11 54 4F 20 55 4E 53 43 52 41 |HAVE .TO UNSCRA|
000000B0: 22 3B 00 D4 04 BE 00 99 22 42 4C 45 20 57 49 54 |";......"BLE WIT|
000000C0: 48 49 4E 20 31 30 20 53 45 43 4F 4E 44 53 2E 4F |HIN 10 SECONDS.O|
000000D0: 4E 43 22 3B 00 F7 04 C8 00 99 22 45 20 59 4F 55 |NC";......"E YOU|
000000E0: 11 48 41 56 45 20 54 59 50 45 44 20 41 20 4C 45 |.HAVE TYPED A LE|
000000F0: 54 54 45 52 20 22 3B 00 1B 05 D2 00 99 22 49 20 |TTER ";......"I |
00000100: 57 4F 4E 54 27 54 20 4C 45 54 20 59 4F 55 20 44 |WONT'T LET YOU D|
00000110: 45 4C 2D 11 45 54 45 20 49 22 3B 00 3E 05 DC 00 |EL-.ETE I";.>...|
00000120: 99 22 54 20 41 4E 44 20 49 4E 43 4F 52 52 45 43 |."T AND INCORREC|
00000130: 54 20 4F 52 20 4F 56 45 52 54 49 4D 22 3B 00 61 |T OR OVERTIM";.a|
00000140: 05 E6 00 99 22 45 20 57 4F 52 44 53 20 20 11 57 |...."E WORDS .W|
00000150: 49 4C 4C 20 42 45 20 43 48 41 52 47 45 44 20 22 |ILL BE CHARGED "|
00000160: 3B 00 84 05 F0 00 99 22 41 54 20 54 48 45 20 46 |;......"AT THE F|
00000170: 55 4C 4C 20 31 30 20 53 45 43 4F 4E 44 20 20 20 |ULL 10 SECOND |
00000180: 11 52 22 3B 00 A2 05 FA 00 99 22 41 54 45 20 2D |.R";......"ATE -|
00000190: 20 53 4F 20 57 41 54 43 48 20 49 54 20 21 21 21 | SO WATCH IT !!!|
000001A0: 11 11 00 C1 05 04 01 99 22 41 46 54 45 52 22 3B |........"AFTER";|
000001B0: 4E 3B 22 57 4F 52 44 53 20 49 20 57 49 4C 4C 22 |N;"WORDS I WILL"|
000001C0: 3B 00 DC 05 0E 01 99 22 20 50 52 49 4E 54 20 59 |;......" PRINT Y|
000001D0: 4F 55 52 20 53 43 4F 52 45 2E 11 11 00 FB 05 18 |OUR SCORE.......|
000001E0: 01 99 A3 31 30 29 22 11 50 52 45 53 53 20 53 50 |...10)".PRESS SP|
000001F0: 41 43 45 20 54 4F 20 50 4C 41 59 00 10 06 22 01 |ACE TO PLAY...".|
00000200: A1 41 24 3A 8B 41 24 B3 B1 22 20 22 A7 32 39 30 |.A$:.A$.." ".290|
00000210: 00 30 06 2C 01 50 B2 33 32 36 30 37 3A 53 B2 30 |.0.,.P.32607:S.0|
00000220: 3A 4F B2 30 3A 43 B2 30 3A 57 B2 30 3A 47 B2 30 |:O.0:C.0:W.0:G.0|
00000230: 00 4D 06 36 01 99 22 93 11 11 11 11 11 11 11 11 |.M.6..".........|
00000240: 11 11 11 11 11 11 11 11 11 11 11 11 11 00 7E 06 |..............~.|
00000250: 40 01 99 22 CF A3 A3 D0 A3 A3 A3 D0 A3 A3 A3 D0 |@.."............|
00000260: A3 A3 A3 D0 A3 A3 A3 D0 A3 A3 A3 D0 A3 A3 A3 D0 |................|
00000270: A3 A3 A3 D0 A3 A3 A3 D0 A3 A3 A3 D0 22 3B 00 AC |............";..|
00000280: 06 4A 01 99 22 30 20 20 20 31 20 20 20 32 20 20 |.J.."0 1 2 |
00000290: 20 33 20 20 20 34 20 20 20 35 20 20 20 36 20 20 | 3 4 5 6 |
000002A0: 20 37 20 20 20 38 20 20 20 39 13 22 00 C6 06 54 | 7 8 9."...T|
000002B0: 01 99 22 11 48 45 52 45 20 49 53 20 54 48 45 20 |..".HERE IS THE |
000002C0: 57 4F 52 44 3A 2D 00 D6 06 5E 01 99 22 11 11 22 |WORD:-...^..".."|
000002D0: 3B A3 31 34 29 3B 00 E6 06 68 01 8F 20 46 49 4E |;.14);...h.. FIN|
000002E0: 44 20 57 4F 52 44 00 F4 06 72 01 8C 3A 52 B2 A5 |D WORD...r..:R..|
000002F0: 52 28 4D 29 00 05 07 7C 01 81 49 B2 31 A4 52 3A |R(M)...|..I.1.R:|
00000300: 87 57 24 3A 82 00 16 07 86 01 8F 20 41 4E 41 47 |.W$:....... ANAG|
00000310: 52 41 4D 20 49 54 00 32 07 90 01 4C B2 C3 28 57 |RAM IT.2...L..(W|
00000320: 24 29 3A 81 49 B2 31 A4 4C 3A 41 28 49 29 B2 49 |$):.I.1.L:A(I).I|
00000330: 3A 82 00 48 07 9A 01 81 49 B2 4C A4 31 A9 AB 31 |:..H....I.L.1..1|
00000340: 3A 52 B2 A5 52 28 49 29 00 62 07 A4 01 42 28 49 |:R..R(I).b...B(I|
00000350: 29 B2 41 28 52 29 3A 41 28 52 29 B2 41 28 49 29 |).A(R):A(R).A(I)|
00000360: 3A 82 00 7F 07 AE 01 8B 42 28 31 29 B2 31 A7 42 |:.......B(1).1.B|
00000370: 28 31 29 B2 42 28 32 29 3A 42 28 32 29 B2 31 00 |(1).B(2):B(2).1.|
00000380: 8A 07 B8 01 81 49 B2 31 A4 4C 00 A1 07 C2 01 99 |.....I.1.L......|
00000390: CA 28 57 24 2C 42 28 49 29 2C 31 29 2C 3A 82 3A |.(W$,B(I),1),:.:|
000003A0: 99 00 B5 07 CC 01 8F 20 49 4E 50 55 54 20 52 4F |....... INPUT RO|
000003B0: 55 54 49 4E 45 00 CC 07 D6 01 99 22 11 11 59 4F |UTINE......"..YO|
000003C0: 55 52 20 47 45 53 53 20 3F 20 22 3B 00 E5 07 E0 |UR GESS ? ";....|
000003D0: 01 4A B2 31 3A 4B B2 30 3A 47 24 B2 22 22 3A 97 |.J.1:K.0:G$."":.|
000003E0: 35 32 35 2C 30 00 EE 07 EA 01 41 B2 54 49 00 FF |525,0.....A.TI..|
000003F0: 07 F4 01 8B 54 49 AB 41 B1 31 35 A7 35 35 30 00 |....TI.A.15.550.|
00000400: 18 08 FE 01 A1 41 24 28 4A 29 3A 8B 41 24 28 4A |.....A$(J):.A$(J|
00000410: 29 B2 22 22 A7 35 30 30 00 30 08 08 02 47 24 B2 |)."".500.0...G$.|
00000420: 47 24 AA 41 24 28 4A 29 3A 99 41 24 28 4A 29 3B |G$.A$(J):.A$(J);|
00000430: 00 3D 08 12 02 8B 4A B2 4C A7 37 30 30 00 4C 08 |.=....J.L.700.L.|
00000440: 1C 02 4A B2 4A AA 31 3A 89 35 30 30 00 69 08 26 |..J.J.1:.500.i.&|
00000450: 02 4B B2 4B AA 31 3A 97 50 AA 4B 2C 32 32 36 3A |.K.K.1:.P.K,226:|
00000460: 8B 4B B3 34 30 A7 34 39 30 00 86 08 30 02 4F B2 |.K.40.490...0.O.|
00000470: 4F AA 31 3A 99 3A 99 22 11 11 4F 56 45 52 54 49 |O.1:.:."..OVERTI|
00000480: 4D 45 21 21 22 3B 00 97 08 44 02 8F 20 43 48 45 |ME!!";...D.. CHE|
00000490: 43 4B 20 57 4F 52 44 00 B4 08 4E 02 54 B2 31 30 |CK WORD...N.T.10|
000004A0: 3A 99 22 2D 54 48 45 20 57 4F 52 44 20 49 53 20 |:."-THE WORD IS |
000004B0: 22 3B 57 24 00 D2 08 58 02 53 B2 53 AA 54 3A 99 |";W$...X.S.S.T:.|
000004C0: 22 11 59 4F 55 52 20 53 43 4F 52 45 20 49 53 3A |".YOUR SCORE IS:|
000004D0: 2D 11 00 F2 08 62 02 99 43 3B 22 43 4F 52 52 45 |-....b..C;"CORRE|
000004E0: 43 54 20 20 22 3B 57 3B 22 57 4F 52 4E 47 20 20 |CT ";W;"WORNG |
000004F0: 22 3B 00 04 09 6C 02 99 4F 3B 22 4F 56 45 52 54 |";...l..O;"OVERT|
00000500: 49 4D 45 22 00 14 09 76 02 81 4A B2 31 A4 32 30 |IME"...v..J.1.20|
00000510: 30 30 3A 82 00 27 09 80 02 47 B2 47 AA 31 3A 8B |00:..'...G.G.1:.|
00000520: 47 B3 4E A7 33 31 30 00 46 09 8A 02 99 22 11 41 |G.N.310.F....".A|
00000530: 46 54 45 52 22 3B 4E 2C 22 57 4F 52 44 53 20 59 |FTER";N,"WORDS Y|
00000540: 4F 55 52 20 22 3B 00 5E 09 94 02 99 22 41 56 45 |OUR ";.^...."AVE|
00000550: 52 41 47 45 20 54 49 4D 45 20 49 53 22 3B 00 75 |RAGE TIME IS";.u|
00000560: 09 9E 02 99 28 B5 28 31 30 AC 53 AD 4E AA 2E 35 |....(.(10.S.N..5|
00000570: 29 29 AD 31 30 00 91 09 A8 02 97 35 32 35 2C 30 |)).10......525,0|
00000580: 3A 99 22 11 41 47 41 49 4E 20 28 59 2F 4E 29 3F |:.".AGAIN (Y/N)?|
00000590: 22 00 AB 09 AD 02 A1 47 24 3A 8B 47 24 B2 22 4E |"......G$:.G$."N|
000005A0: 22 A7 99 22 93 22 3A 89 37 35 30 00 C1 09 B2 02 |"..".":.750.....|
000005B0: 8B 47 24 B2 22 59 22 A7 99 22 93 22 3A 89 32 38 |.G$."Y"..".":.28|
000005C0: 30 00 CA 09 B7 02 89 36 38 35 00 DE 09 BC 02 99 |0......685......|
000005D0: 22 11 22 3A 8B 47 24 B2 57 24 A7 37 32 30 00 FB |".":.G$.W$.720..|
000005E0: 09 C6 02 57 B2 57 AA 31 3A 99 22 57 52 4F 4E 47 |...W.W.1:."WRONG|
000005F0: 20 21 21 21 22 3B 3A 89 35 39 30 00 1B 0A D0 02 | !!!";:.590.....|
00000600: 43 B2 43 AA 31 3A 54 B2 4B AD 34 3A 99 22 43 4F |C.C.1:T.K.4:."CO|
00000610: 52 52 45 43 54 20 21 21 21 22 3B 00 3B 0A DA 02 |RRECT !!!";.;...|
00000620: 99 22 59 4F 55 20 47 4F 54 20 49 54 20 49 4E 22 |."YOU GOT IT IN"|
00000630: 3B 54 3B 22 53 45 43 4F 4E 44 53 00 44 0A E4 02 |;T;"SECONDS.D...|
00000640: 89 36 30 30 00 75 0A EE 02 99 22 1D 1D 1D 1D 1D |.600.u....".....|
00000650: 1D 11 11 11 11 11 11 11 11 11 11 12 20 42 45 54 |............ BET|
00000660: 54 45 52 20 4C 55 43 4B 20 4E 45 58 54 20 54 49 |TER LUCK NEXT TI|
00000670: 4D 45 20 92 22 00 96 0A 20 03 83 41 44 55 4C 54 |ME ."... ..ADULT|
00000680: 2C 42 41 54 54 4C 45 2C 43 41 53 54 4C 45 2C 44 |,BATTLE,CASTLE,D|
00000690: 45 4E 54 49 53 54 00 B6 0A 2A 03 83 45 51 55 41 |ENTIST...*..EQUA|
000006A0: 54 45 2C 46 52 49 45 4E 44 2C 47 55 49 54 41 52 |TE,FRIEND,GUITAR|
000006B0: 2C 48 4F 55 53 45 00 D7 0A 34 03 83 49 4E 53 49 |,HOUSE...4..INSI|
000006C0: 44 45 2C 4A 41 4D 42 4F 52 45 2C 4B 49 4D 4F 4E |DE,JAMBORE,KIMON|
000006D0: 4F 2C 4C 45 47 41 4C 00 F8 0A 3E 03 83 4D 49 47 |O,LEGAL...>..MIG|
000006E0: 48 54 2C 4E 4F 42 4F 44 59 2C 4F 52 43 41 4C 45 |HT,NOBODY,ORCALE|
000006F0: 2C 50 49 43 54 55 52 45 00 1B 0B 48 03 83 51 55 |,PICTURE...H..QU|
00000700: 45 53 54 2C 52 55 42 42 45 52 2C 53 54 52 45 4E |EST,RUBBER,STREN|
00000710: 47 52 48 2C 54 4F 52 4E 41 44 4F 00 3B 0B 52 03 |GRH,TORNADO.;.R.|
00000720: 83 55 52 43 48 49 4E 2C 56 49 56 49 44 2C 57 49 |.URCHIN,VIVID,WI|
00000730: 54 4E 45 53 53 2C 59 45 41 53 54 00 5D 0B 5C 03 |TNESS,YEAST.].\.|
00000740: 83 5A 45 41 4C 4F 54 2C 41 4E 41 47 52 41 4D 2C |.ZEALOT,ANAGRAM,|
00000750: 42 52 49 47 48 54 2C 43 48 45 45 53 45 00 7F 0B |BRIGHT,CHEESE...|
00000760: 66 03 83 44 45 50 49 43 54 2C 45 4E 44 55 52 45 |f..DEPICT,ENDURE|
00000770: 2C 46 52 49 47 48 54 45 4E 2C 47 48 4F 53 54 00 |,FRIGHTEN,GHOST.|
00000780: 9F 0B 70 03 83 48 55 44 44 4C 45 2C 49 53 4C 41 |..p..HUDDLE,ISLA|
00000790: 4E 44 2C 4A 4F 55 53 54 2C 4B 49 54 54 45 4E 00 |ND,JOUST,KITTEN.|
000007A0: C2 0B 7A 03 83 4C 45 41 54 48 45 52 2C 4D 41 54 |..z..LEATHER,MAT|
000007B0: 41 44 4F 52 2C 4E 4F 49 53 45 2C 4F 42 56 49 4F |ADOR,NOISE,OBVIO|
000007C0: 55 53 00 E5 0B 84 03 83 50 52 45 56 49 45 57 2C |US......PREVIEW,|
000007D0: 51 55 49 45 54 4C 59 2C 52 49 42 42 4F 4E 2C 53 |QUIETLY,RIBBON,S|
000007E0: 54 52 49 41 4E 00 08 0C 8E 03 83 54 45 46 46 49 |TRIAN......TEFFI|
000007F0: 52 59 2C 55 4E 55 53 55 41 4C 2C 56 49 4F 4C 45 |RY,UNUSUAL,VIOLE|
00000800: 4E 54 2C 57 48 41 4C 45 00 27 0C 98 03 83 59 4F |NT,WHALE.'....YO|
00000810: 55 54 48 2C 5A 45 4E 49 54 48 2C 41 54 54 49 43 |UTH,ZENITH,ATTIC|
00000820: 2C 43 55 53 54 4F 4D 00 4A 0C A2 03 83 46 45 41 |,CUSTOM.J....FEA|
00000830: 54 48 45 52 2C 49 4E 54 45 52 45 53 54 2C 4C 49 |THER,INTEREST,LI|
00000840: 43 48 45 4E 2C 4E 55 52 53 45 00 6D 0C AC 03 83 |CHEN,NURSE.m....|
00000850: 50 41 53 53 49 56 45 2C 52 41 4E 43 49 44 2C 54 |PASSIVE,RANCID,T|
00000860: 52 45 4D 42 4C 45 2C 57 4F 4E 44 45 52 00 00 00 |REMBLE,WONDER...|
....X.. ANAGRAM BY P C W.&...M.60:N.10.>
....A(20),B(20),A$(20).V.....R(X)..(X..(
TI).1).K. ..".".16)"ANAGRAM......".. WIL
L PRINT AN ANGAGRAM ";......" WHICH YOU
HAVE .TO UNSCRA";.T...."BLE WITHIN 10 S
ECONDS.ONC";...H.."E YOU.HAVE TYPED A LE
TTER ";...R.."I WONT'T LET YOU DEL-.ETE
I";.>...."T AND INCORRECT OR OVERTIM";.A
...."E WORDS .WILL BE CHARGED ";......"
AT THE FULL 10 SECOND .R";......"ATE -
SO WATCH IT !!!...A...."AFTER";N;"WORDS
I WILL";......" PRINT YOUR SCORE.......
...10)".PRESS SPACE TO PLAY..."..A$:.A$.
." ".290.0.,.P.32607:S.0:O.0:C.0:W.0:G.0
.M.6..".......................~.@.."O..P
...P...P...P...P...P...P...P...P...P";..
.J.."0 1 2 3 4 5 6 7 8
9.".F.T..".HERE IS THE WORD:-.V.^..".."
;.14);...H.. FIND WORD...R..:R..R(M)...|
..I.1.R:.W$:....... ANAGRAM IT.2...L.C(W
$):.I.1.L:A(I).I:..H....I.L.1..1:R..R(I)
.B...B(I).A(R):A(R).A(I):......B(1).1.B
(1).B(2):B(2).1......I.1.L...B..J(W$,B(I
),1),:.:....L.. INPUT ROUTINE.L.V.."..YO
UR GESS ? ";.....J.1:K.0:G$."":.525,0...
..A.TI......TI.A.15.550......A$(J):.A$(J
)."".500.0...G$.G$.A$(J):.A$(J);.=....J.
L.700.L...J.J.1:.500.I.&.K.K.1:.P.K,226:
.K.40.490...0.O.O.1:.:."..OVERTIME!!";..
.D.. CHECK WORD...N.T.10:."-THE WORD IS
";W$.R.X.S.S.T:.".YOUR SCORE IS:-....B..
C;"CORRECT ";W;"WORNG ";...L..O;"OVERT
IME"...V..J.1.2000:..'...G.G.1:.G.N.310.
F....".AFTER";N,"WORDS YOUR ";.^...."AVE
RAGE TIME IS";.U....(.(10.S.N..5)).10...
...525,0:.".AGAIN (Y/N)?"......G$:.G$."N
"..".":.750.A....G$."Y"..".":.280.J....6
85......".":.G$.W$.720...F.W.W.1:."WRONG
!!!";:.590...P.C.C.1:T.K.4:."CORRECT !!
!";.;.Z.."YOU GOT IT IN";T;"SECONDS.D...
.600.U...."................. BETTER LUCK
NEXT TIME ."... ..ADULT,BATTLE,CASTLE,D
ENTIST...*..EQUATE,FRIEND,GUITAR,HOUSE.W
.4..INSIDE,JAMBORE,KIMONO,LEGAL...>..MIG
HT,NOBODY,ORCALE,PICTURE...H..QUEST,RUBB
ER,STRENGRH,TORNADO.;.R..URCHIN,VIVID,WI
TNESS,YEAST.].\..ZEALOT,ANAGRAM,BRIGHT,C
HEESE..F..DEPICT,ENDURE,FRIGHTEN,GHOST.
..P..HUDDLE,ISLAND,JOUST,KITTEN.B.Z..LEA
THER,MATADOR,NOISE,OBVIOUS......PREVIEW,
QUIETLY,RIBBON,STRIAN......TEFFIRY,UNUSU
AL,VIOLENT,WHALE.'....YOUTH,ZENITH,ATTIC
,CUSTOM.J....FEATHER,INTEREST,LICHEN,NUR
SE.M....PASSIVE,RANCID,TREMBLE,WONDER...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL