SCRAMBLE 7.C3
FILE INFORMATION
FILENAME(S): SCRAMBLE 7.C3
FILE TYPE(S): PRG
FILE SIZE: 10.2K
FIRST SEEN: 2025-10-20 14:31:37
APPEARS ON: 1 disk(s)
FILE HASH
955503b64c2bbc4d53e10c1e3d80998e3e3e80de0e39a5a80f0e58aa1763955a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PD LERN | SCRAMBLE 7.C3 | PRG | Treasure Chest - Klaus Der Suhler | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0A 08 01 00 89 39 31 30 00 2A 08 02 00 8F |.......910.*....|
00000010: 20 2A 2A 20 4D 4C 20 53 54 4F 50 20 4B 45 59 20 | ** ML STOP KEY |
00000020: 44 49 53 41 42 4C 45 20 2A 2A 00 55 08 03 00 99 |DISABLE **.U....|
00000030: 22 78 A9 3D 85 90 EA A9 04 85 91 EA 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 9B 4C 58 E4 78 A9 55 85 90 EA A9 E4 |.....LX.x.U.....|
00000050: 85 91 EA 58 60 00 74 08 04 00 99 22 78 68 68 68 |...X`.t...."xhhh|
00000060: AA 68 A8 68 68 68 68 68 68 68 98 48 8A 48 58 60 |.h.hhhhhhh.H.HX`|
00000070: 31 31 31 22 00 85 08 05 00 99 22 68 68 68 68 68 |111"......"hhhhh|
00000080: 68 68 60 31 22 00 A7 08 06 00 8F 20 2A 2A 20 34 |hh`1"...... ** 4|
00000090: 20 2D 20 50 4F 50 20 4D 4C 20 53 55 42 52 4F 55 | - POP ML SUBROU|
000000A0: 54 49 4E 45 20 2A 2A 00 C8 08 0A 00 8F 20 2A 2A |TINE **...... **|
000000B0: 47 45 4E 45 52 41 4C 20 49 4E 50 55 54 20 52 4F |GENERAL INPUT RO|
000000C0: 55 54 49 4E 45 20 2A 2A 00 E4 08 23 00 8F 20 2B |UTINE **...#.. +|
000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION|
000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U|
000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*|
00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 1F 09 2D |..UL.0.UL.80...-|
00000110: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.|
00000120: 33 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |3.2..UI$:.UI$.""|
00000130: A7 35 30 00 5D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.].7..UI$..(1|
00000140: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000150: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 70 09 |,1:." .";:.85.p.|
00000160: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
00000170: 00 84 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
00000180: 4C A7 35 30 00 A9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
00000190: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001A0: 43 48 41 52 41 43 54 45 52 00 B9 09 46 00 55 52 |CHARACTER...F.UR|
000001B0: 24 B2 55 52 24 AA 55 49 24 00 C3 09 4B 00 99 55 |$.UR$.UI$...K..U|
000001C0: 49 24 3B 00 CB 09 50 00 89 35 30 00 F0 09 55 00 |I$;...P..50...U.|
000001D0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
000001E0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
000001F0: 00 18 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |...Z..UR$.UX$.19|
00000200: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000210: 20 52 4F 55 54 49 4E 45 00 27 0A 5F 00 8B 55 46 | ROUTINE.'._..UF|
00000220: B2 31 A7 8D 32 34 30 00 34 0A 64 00 55 46 B2 30 |.1..240.4.d.UF.0|
00000230: 3A 99 3A 8E 00 4D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..M.f.. ++ CH|
00000240: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5E 0A |ECK DELETE ++.^.|
00000250: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 76 |i...(UR$).1.50.v|
00000260: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
00000270: 52 24 29 AB 31 29 00 88 0A 73 00 99 22 9D 20 20 |R$).1)...s..". |
00000280: 9D 9D 22 3B 3A 89 35 30 00 AF 0A 78 00 8F 20 2B |..";:.50...x.. +|
00000290: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002A0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002B0: C1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002C0: 30 00 D1 0A 7F 00 55 53 24 B2 55 53 24 AA 55 58 |0.....US$.US$.UX|
000002D0: 24 00 E2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |$......US.1..(US|
000002E0: 24 29 00 F9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
000002F0: 24 2C 55 53 2C 31 29 A7 8E 00 FF 0A 8C 00 82 00 |$,US,1).........|
00000300: 0C 0B 91 00 55 49 24 B2 22 22 3A 8E 00 27 0B 96 |....UI$."":..'..|
00000310: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000320: 4E 50 55 54 20 2A 2A 00 38 0B 98 00 8B C6 28 55 |NPUT **.8.....(U|
00000330: 49 24 29 B2 34 36 A7 8E 00 49 0B 9B 00 8B 55 49 |I$).46...I....UI|
00000340: 24 B2 C7 28 33 32 29 A7 8E 00 66 0B A0 00 8B C6 |$..(32)...f.....|
00000350: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000360: 35 37 A7 31 37 30 00 6C 0B A5 00 8E 00 89 0B AA |57.170.l........|
00000370: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
00000380: 24 29 B1 39 30 A7 31 38 30 00 8F 0B AF 00 8E 00 |$).90.180.......|
00000390: B3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
000003A0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003B0: 22 3A 8E 00 D6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003C0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003D0: 31 32 38 29 3A 8E 00 DC 0B BB 00 8E 00 E9 0B BE |128):...........|
000003E0: 00 55 49 24 B2 22 22 3A 8E 00 0E 0C C3 00 55 46 |.UI$."":......UF|
000003F0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
00000400: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 17 |UTINE EXIT +++..|
00000410: 0C C5 00 8D 32 35 30 00 20 0C C8 00 8D 32 34 35 |....250. ....245|
00000420: 00 3F 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |.?....UQ.UB.(U2%|
00000430: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000440: 5B 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |[...UQ%(UQ.UB)..|
00000450: 28 55 51 29 3A 82 3A 99 22 93 22 00 6E 0C D7 00 |(UQ):.:.".".n...|
00000460: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 77 |UZ.1:UV%..(UT).w|
00000470: 0C D8 00 89 33 30 30 00 9C 0C D9 00 55 5A B2 30 |....300.....UZ.0|
00000480: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
00000490: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 D3 0C DA |:UP.UJ:UL.UK....|
000004A0: 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |...(50003).0..53|
000004B0: 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 |281,1:.".";:.532|
000004C0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 |81,6:.53280,14:.|
000004D0: 32 32 30 00 DD 0C DB 00 99 22 93 22 3B 00 0C 0D |220......".";...|
000004E0: DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 |..UT$.UL$:.UT,UV|
000004F0: 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |%:.UQ.UB.(U2%.25|
00000500: 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 21 0D E1 |6.U1%.U3%.3).!..|
00000510: 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A |..UQ,UQ%(UQ.UB):|
00000520: 82 00 2D 0D E6 00 97 55 31 2C 55 31 25 00 39 0D |..-....U1,U1%.9.|
00000530: E8 00 97 55 32 2C 55 32 25 00 45 0D E9 00 97 55 |...U2,U2%.E....U|
00000540: 34 2C 55 34 25 00 53 0D EA 00 97 55 33 2C 55 33 |4,U4%.S....U3,U3|
00000550: 25 AB 31 00 5B 0D EB 00 89 33 35 00 8D 0D F0 00 |%.1.[....35.....|
00000560: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000570: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000580: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 C8 0D |(UD$,UD%.1):....|
00000590: F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |....(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E | . HELP COMIN|
000005C0: 47 20 92 20 20 22 3A 8E 00 F4 0D FA 00 55 31 25 |G . ":......U1%|
000005D0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005E0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005F0: 28 55 34 29 00 1C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
00000600: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000610: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 22 0E FF |:UJ.UP:UK.UL."..|
00000620: 00 8E 00 33 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...3.,.. ** MENU|
00000630: 20 2A 2A 00 39 0E 2D 01 3A 00 68 0E 2E 01 99 22 | **.9.-.:.h...."|
00000640: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000650: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000660: 97 35 33 32 38 30 2C 38 00 6E 0E 2F 01 3A 00 8B |.53280,8.n./.:..|
00000670: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000680: 20 20 20 20 20 20 4D 45 4E 55 22 00 BA 0E 36 01 | MENU"...6.|
00000690: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 DA 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 53 |".. 1. S|
000006D0: 43 52 41 4D 42 4C 45 20 37 22 00 04 0F 40 01 99 |CRAMBLE 7"...@..|
000006E0: 22 11 11 20 20 20 20 20 20 20 32 2E 20 20 20 53 |".. 2. S|
000006F0: 54 55 44 45 4E 54 20 49 4E 53 54 52 55 43 54 49 |TUDENT INSTRUCTI|
00000700: 4F 4E 53 22 00 2E 0F 45 01 99 22 11 11 20 20 20 |ONS"...E..".. |
00000710: 20 20 20 20 33 2E 20 20 20 54 45 41 43 48 45 52 | 3. TEACHER|
00000720: 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 00 5B | INSTRUCTIONS".[|
00000730: 0F 4A 01 99 22 11 11 20 20 20 20 20 20 20 34 2E |.J..".. 4.|
00000740: 20 20 20 4D 4F 44 49 46 49 43 41 54 49 4F 4E 20 | MODIFICATION |
00000750: 4F 46 20 50 52 4F 47 52 41 4D 22 00 77 0F 4F 01 |OF PROGRAM".w.O.|
00000760: 99 22 11 11 20 20 20 20 20 20 20 35 2E 20 20 20 |.".. 5. |
00000770: 51 55 49 54 11 11 22 00 A6 0F 54 01 99 22 20 2D |QUIT.."...T.." -|
00000780: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00000790: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000007A0: 2D 2D 2D 2D 2D 22 00 D1 0F 59 01 99 22 11 11 20 |-----"...Y..".. |
000007B0: 20 20 20 20 20 20 50 52 45 53 53 20 41 20 4E 55 | PRESS A NU|
000007C0: 4D 42 45 52 20 4B 45 59 20 28 31 2D 35 29 20 22 |MBER KEY (1-5) "|
000007D0: 3B 00 FA 0F 5E 01 55 4C B2 31 3A 55 53 24 B2 22 |;...^.UL.1:US$."|
000007E0: 31 32 33 34 35 22 3A 8D 33 35 3A 8F 20 49 4E 50 |12345":.35:. INP|
000007F0: 55 54 20 52 4F 55 54 49 4E 45 00 0C 10 5F 01 8B |UT ROUTINE..._..|
00000800: C3 28 55 52 24 29 B1 31 A7 33 30 30 00 17 10 60 |.(UR$).1.300...`|
00000810: 01 55 53 24 B2 22 22 00 38 10 63 01 91 C5 28 55 |.US$."".8.c...(U|
00000820: 52 24 29 8D 31 30 30 30 2C 34 30 30 2C 35 30 30 |R$).1000,400,500|
00000830: 2C 36 30 30 2C 33 39 36 00 41 10 68 01 89 33 30 |,600,396.A.h..30|
00000840: 30 00 68 10 8B 01 8F 20 2A 2A 20 52 45 2D 45 4E |0.h.... ** RE-EN|
00000850: 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 20 41 4E |ABLE STOP KEY AN|
00000860: 44 20 45 4E 44 20 2A 2A 00 97 10 8C 01 8B C2 28 |D END **.......(|
00000870: 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 30 30 30 |50003)..1..(5000|
00000880: 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 30 33 29 |3)..160..(50003)|
00000890: B3 B1 30 A7 33 39 39 00 C1 10 8D 01 9E 55 55 AA |..0.399......UU.|
000008A0: 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 |71:..(50003).0..|
000008B0: 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 |53281,6:.53280,1|
000008C0: 34 00 CD 10 8E 01 99 22 9A 93 22 3A 80 00 D8 10 |4......"..":....|
000008D0: 8F 01 8D 38 37 35 3A 8E 00 F9 10 90 01 8F 20 2A |...875:....... *|
000008E0: 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 55 |* STUDENT INSTRU|
000008F0: 43 54 49 4F 4E 53 20 2A 2A 00 28 11 95 01 99 22 |CTIONS **.(...."|
00000900: 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 |.":.UT,UL%:..(50|
00000910: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A |003).0..53281,0:|
00000920: 97 35 33 32 38 30 2C 30 00 49 11 9A 01 55 50 B2 |.53280,0.I...UP.|
00000930: 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 |0:UG$.".TUDENT .|
00000940: 4E 53 54 22 3A 8D 38 35 30 00 4F 11 C7 01 8F 00 |NST":.850.O.....|
00000950: 55 11 CC 01 8F 00 86 11 D1 01 99 22 11 11 11 11 |U.........."....|
00000960: 11 11 20 20 20 20 20 C9 4E 20 54 48 49 53 20 47 |.. .N THIS G|
00000970: 41 4D 45 2C 20 C9 27 4C 4C 20 47 49 56 45 20 59 |AME, .'LL GIVE Y|
00000980: 4F 55 20 41 20 22 00 B6 11 D3 01 99 22 11 20 53 |OU A "......". S|
00000990: 43 52 41 4D 42 4C 45 44 20 57 4F 52 44 20 41 4E |CRAMBLED WORD AN|
000009A0: 44 20 54 48 45 20 46 49 52 53 54 20 4C 45 54 54 |D THE FIRST LETT|
000009B0: 45 52 20 49 4E 22 00 DD 11 D5 01 99 22 11 20 54 |ER IN"......". T|
000009C0: 48 45 20 57 4F 52 44 2E 20 20 C9 54 20 49 53 20 |HE WORD. .T IS |
000009D0: 55 50 20 54 4F 20 59 4F 55 20 54 4F 22 00 FA 11 |UP TO YOU TO"...|
000009E0: D6 01 99 22 11 20 55 4E 53 43 52 41 4D 42 4C 45 |...". UNSCRAMBLE|
000009F0: 20 49 54 2E 22 3A 8D 38 33 35 00 2E 12 E0 01 8D | IT.":.835......|
00000A00: 38 35 30 3A 99 22 11 11 20 CE 4F 54 45 3A 11 11 |850:.".. .OTE:..|
00000A10: 11 D4 4F 20 41 44 56 41 4E 43 45 20 46 52 4F 4D |..O ADVANCE FROM|
00000A20: 20 4F 4E 45 20 51 55 45 53 54 49 4F 4E 22 00 58 | ONE QUESTION".X|
00000A30: 12 E3 01 99 22 11 20 54 4F 20 54 48 45 20 4E 45 |....". TO THE NE|
00000A40: 58 54 20 50 52 45 53 53 20 54 48 45 20 D3 D0 C1 |XT PRESS THE ...|
00000A50: C3 C5 20 42 41 52 2E 22 00 82 12 E5 01 99 22 11 |.. BAR."......".|
00000A60: 20 C9 46 20 41 54 20 41 4E 59 54 49 4D 45 20 59 | .F AT ANYTIME Y|
00000A70: 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 55 52 |OU WISH TO RETUR|
00000A80: 4E 22 00 B3 12 E8 01 99 22 11 20 54 4F 20 54 48 |N"......". TO TH|
00000A90: 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 20 41 |E .... PRESS H A|
00000AA0: 4E 44 20 54 48 45 4E 20 48 49 54 20 D2 C5 D4 D5 |ND THEN HIT ....|
00000AB0: D2 CE 22 00 BC 12 E9 01 8D 38 33 35 00 D0 12 EA |.."......835....|
00000AC0: 01 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 |..UZ.1..UP%:.217|
00000AD0: 00 D6 12 F3 01 8E 00 F7 12 F4 01 8F 20 2A 2A 20 |............ ** |
00000AE0: 54 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 |TEACHER INSTRUCT|
00000AF0: 49 4F 4E 53 20 2A 2A 00 27 13 F5 01 99 22 93 22 |IONS **.'...."."|
00000B00: 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 30 |:.UT,UL%:..(5000|
00000B10: 33 29 B2 30 A7 97 35 33 32 38 31 2C 32 3A 97 35 |3).0..53281,2:.5|
00000B20: 33 32 38 30 2C 31 30 00 48 13 F6 01 55 50 B2 30 |3280,10.H...UP.0|
00000B30: 3A 55 47 24 B2 22 D4 45 41 43 48 45 52 20 C9 4E |:UG$.".EACHER .N|
00000B40: 53 54 22 3A 8D 38 35 30 00 76 13 F7 01 99 22 11 |ST":.850.v....".|
00000B50: 11 20 20 20 20 20 20 D4 4F 20 54 48 45 20 42 45 |. .O THE BE|
00000B60: 53 54 20 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 |ST OF OUR KNOWLE|
00000B70: 44 47 45 2C 11 22 00 9F 13 F8 01 99 22 20 20 20 |DGE,."......" |
00000B80: 54 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |THIS PROGRAM IS |
00000B90: 49 4E 20 54 48 45 20 50 55 42 4C 49 43 11 22 00 |IN THE PUBLIC.".|
00000BA0: CB 13 F9 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E |....." DOMAIN.|
00000BB0: 20 20 C9 46 20 54 48 49 53 20 49 53 20 4E 4F 54 | .F THIS IS NOT|
00000BC0: 20 54 48 45 20 43 41 53 45 11 22 00 E8 13 FA 01 | THE CASE.".....|
00000BD0: 99 22 20 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 |." PLEASE CONT|
00000BE0: 41 43 54 3A 11 11 11 22 00 12 14 FB 01 99 22 20 |ACT:..."......" |
00000BF0: 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 | .OMMODORE .|
00000C00: 55 53 49 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 |USINESS .ACHINES|
00000C10: 11 22 00 35 14 FC 01 99 22 20 20 20 20 20 20 20 |.".5...." |
00000C20: 20 20 20 33 33 37 30 20 D0 48 41 52 4D 41 43 59 | 3370 .HARMACY|
00000C30: 20 C1 56 45 2E 00 59 14 FD 01 99 22 20 20 20 20 | .VE..Y...." |
00000C40: 20 20 20 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C | .GINCOURT,|
00000C50: 20 CF 4E 54 41 52 49 4F 22 00 7B 14 FE 01 99 22 | .NTARIO".{...."|
00000C60: 20 20 20 20 20 20 20 20 20 20 C3 41 4E 41 44 41 | .ANADA|
00000C70: 20 20 20 CD 31 D7 20 32 CB 34 22 00 9B 14 FF 01 | .1. 2.4".....|
00000C80: 99 22 20 20 20 20 20 20 20 20 20 20 28 34 31 36 |." (416|
00000C90: 29 20 34 39 39 2D 34 32 39 32 22 00 AC 14 00 02 |) 499-4292".....|
00000CA0: 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 D3 14 01 |. 835:. 850:....|
00000CB0: 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 52 41 |.." ...ROGRA|
00000CC0: 4D 20 CE 41 4D 45 3A 20 D3 43 52 41 4D 42 4C 45 |M .AME: .CRAMBLE|
00000CD0: 20 34 11 00 F7 14 02 02 99 22 20 20 20 20 20 D7 | 4......." .|
00000CE0: 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 C3 41 52 |RITTEN .Y : .AR|
00000CF0: 4C 20 D2 45 49 44 11 00 1B 15 03 02 99 22 20 20 |L .EID......." |
00000D00: 20 20 20 D5 50 47 52 41 44 45 44 20 C2 59 20 3A | .PGRADED .Y :|
00000D10: 20 20 20 20 20 20 20 20 20 20 11 00 46 15 04 02 | ..F...|
00000D20: 99 22 20 20 20 20 20 11 D4 48 49 53 20 50 52 4F |." ..HIS PRO|
00000D30: 47 52 41 4D 20 57 49 4C 4C 20 52 55 4E 20 4F 4E |GRAM WILL RUN ON|
00000D40: 20 41 4E 59 11 11 00 66 15 07 02 99 22 20 20 20 | ANY...f...." |
00000D50: 20 20 20 20 20 20 D0 C5 D4 20 36 34 20 C3 CF CD | ... 64 ...|
00000D60: D0 D5 D4 C5 D2 11 00 8B 15 08 02 99 22 20 20 20 |............" |
00000D70: 20 20 20 20 20 20 C3 CF CD CD CF C4 CF D2 C5 20 | ......... |
00000D80: 36 34 20 C3 CF CD D0 D5 D4 C5 D2 00 99 15 09 02 |64 .............|
00000D90: 8D 38 33 35 3A 8D 38 35 30 00 C4 15 0A 02 99 22 |.835:.850......"|
00000DA0: 11 11 20 20 20 20 20 20 D4 48 49 53 20 50 52 4F |.. .HIS PRO|
00000DB0: 47 52 41 4D 20 49 53 20 44 45 53 49 47 4E 45 44 |GRAM IS DESIGNED|
00000DC0: 20 54 4F 22 00 EF 15 0B 02 99 22 11 20 48 45 4C | TO"......". HEL|
00000DD0: 50 20 53 54 55 44 45 4E 54 53 20 57 49 54 48 20 |P STUDENTS WITH |
00000DE0: 54 48 45 49 52 20 53 50 45 4C 4C 49 4E 47 22 00 |THEIR SPELLING".|
00000DF0: 00 16 0D 02 99 22 11 20 53 4B 49 4C 4C 53 2E 22 |.....". SKILLS."|
00000E00: 00 2E 16 12 02 99 22 11 11 20 20 20 20 20 D4 48 |......".. .H|
00000E10: 45 20 57 4F 52 44 53 20 43 41 4E 20 42 45 20 45 |E WORDS CAN BE E|
00000E20: 41 53 49 4C 59 20 43 48 41 4E 47 45 44 22 00 5C |ASILY CHANGED".\|
00000E30: 16 17 02 99 22 11 20 54 4F 20 57 4F 52 44 53 20 |....". TO WORDS |
00000E40: 54 48 41 54 20 59 4F 55 20 46 45 45 4C 20 59 4F |THAT YOU FEEL YO|
00000E50: 55 52 20 53 54 55 44 45 4E 54 53 22 00 89 16 1C |UR STUDENTS"....|
00000E60: 02 99 22 11 20 53 48 4F 55 4C 44 20 4B 4E 4F 57 |..". SHOULD KNOW|
00000E70: 2E 20 20 C9 46 20 59 4F 55 20 57 49 53 48 20 54 |. .F YOU WISH T|
00000E80: 4F 20 43 48 41 4E 47 45 22 00 B3 16 21 02 99 22 |O CHANGE"...!.."|
00000E90: 11 20 57 4F 52 44 53 2C 20 54 48 45 4E 20 43 4F |. WORDS, THEN CO|
00000EA0: 4E 53 55 4C 54 20 54 48 45 20 50 52 4F 47 52 41 |NSULT THE PROGRA|
00000EB0: 4D 20 22 00 D7 16 26 02 99 22 11 20 4D 4F 44 49 |M "...&..". MODI|
00000EC0: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 52 55 43 |FICATION INSTRUC|
00000ED0: 54 49 4F 4E 53 2E 22 00 E0 16 44 02 8D 38 33 35 |TIONS."...D..835|
00000EE0: 00 F4 16 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |...N..UZ.1..UP%:|
00000EF0: 89 32 31 37 00 FA 16 57 02 8E 00 20 17 58 02 8F |.217...W... .X..|
00000F00: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI|
00000F10: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **|
00000F20: 00 31 17 59 02 99 22 93 22 3A 97 55 54 2C 55 4C |.1.Y..".":.UT,UL|
00000F30: 25 00 51 17 5D 02 55 50 B2 30 3A 55 47 24 B2 22 |%.Q.].UP.0:UG$."|
00000F40: D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 |.ROGRAM .OD":.85|
00000F50: 30 00 81 17 62 02 99 22 11 11 11 11 11 20 20 C9 |0...b.."..... .|
00000F60: 46 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 48 |F YOU WANT TO CH|
00000F70: 41 4E 47 45 20 54 48 45 20 4C 49 53 54 20 4F 46 |ANGE THE LIST OF|
00000F80: 22 00 AC 17 67 02 99 22 11 20 57 4F 52 44 53 2C |"...g..". WORDS,|
00000F90: 20 54 48 45 4E 20 4C 49 53 54 20 4C 49 4E 45 53 | THEN LIST LINES|
00000FA0: 20 31 34 38 30 2D 31 35 32 30 2E 22 00 DA 17 6C | 1480-1520."...l|
00000FB0: 02 99 22 11 11 20 20 D0 4C 45 41 53 45 20 44 4F |..".. .LEASE DO|
00000FC0: 20 4E 4F 54 20 49 4E 43 52 45 41 53 45 20 4F 52 | NOT INCREASE OR|
00000FD0: 20 44 45 43 52 45 41 53 45 22 00 04 18 71 02 99 | DECREASE"...q..|
00000FE0: 22 11 20 54 48 45 20 4E 55 4D 42 45 52 20 4F 46 |". THE NUMBER OF|
00000FF0: 20 57 4F 52 44 53 20 49 4E 20 54 48 45 20 4C 49 | WORDS IN THE LI|
00001000: 53 54 2E 22 00 12 18 76 02 8D 38 33 35 3A 8D 38 |ST."...v..835:.8|
00001010: 35 30 00 3F 18 7B 02 99 22 11 11 20 CE 4F 54 45 |50.?.{..".. .OTE|
00001020: 3A 11 11 11 D7 48 45 4E 20 43 48 41 4E 47 49 4E |:....HEN CHANGIN|
00001030: 47 20 57 4F 52 44 53 2C 20 41 56 4F 49 44 22 00 |G WORDS, AVOID".|
00001040: 7D 18 80 02 99 22 11 20 4D 41 4B 49 4E 47 20 44 |}....". MAKING D|
00001050: 41 54 41 20 53 54 41 54 45 4D 45 4E 54 53 20 4D |ATA STATEMENTS M|
00001060: 4F 52 45 20 54 48 41 4E 20 54 57 4F 20 20 20 20 |ORE THAN TWO |
00001070: 11 4C 49 4E 45 53 20 4C 4F 4E 47 2E 22 00 AA 18 |.LINES LONG."...|
00001080: 85 02 99 22 11 11 20 20 20 20 20 C9 46 20 54 48 |...".. .F TH|
00001090: 49 53 20 48 41 50 50 45 4E 53 2C 20 54 48 45 4E |IS HAPPENS, THEN|
000010A0: 20 54 41 4B 45 20 54 48 45 22 00 DA 18 8A 02 99 | TAKE THE"......|
000010B0: 22 11 20 4C 41 53 54 20 57 4F 52 44 20 49 4E 20 |". LAST WORD IN |
000010C0: 54 48 45 20 53 54 41 54 45 4D 45 4E 54 2C 20 41 |THE STATEMENT, A|
000010D0: 4E 44 20 50 55 54 20 49 54 22 00 11 19 8F 02 99 |ND PUT IT"......|
000010E0: 22 11 20 49 4E 20 49 54 53 20 4F 57 4E 20 53 45 |". IN ITS OWN SE|
000010F0: 50 41 52 41 54 45 20 44 41 54 41 20 53 54 41 54 |PARATE DATA STAT|
00001100: 45 4D 45 4E 54 2E 22 3A 8D 38 33 35 3A 8D 38 35 |EMENT.":.835:.85|
00001110: 30 00 3F 19 95 02 99 22 11 20 20 C9 46 20 4F 4E |0.?....". .F ON|
00001120: 45 20 57 41 4E 54 53 20 54 4F 20 43 48 41 4E 47 |E WANTS TO CHANG|
00001130: 45 20 54 48 45 20 57 4F 52 44 20 44 4F 47 22 00 |E THE WORD DOG".|
00001140: 6F 19 96 02 99 22 11 20 54 4F 20 54 48 45 20 57 |o....". TO THE W|
00001150: 4F 52 44 20 43 4F 4D 50 55 54 45 52 20 54 48 45 |ORD COMPUTER THE|
00001160: 20 4C 49 4E 45 20 57 4F 55 4C 44 20 42 45 22 00 | LINE WOULD BE".|
00001170: 87 19 97 02 99 22 11 20 43 48 41 4E 47 45 44 20 |.....". CHANGED |
00001180: 46 52 4F 4D 3A 11 22 00 D1 19 99 02 99 22 11 20 |FROM:."......". |
00001190: 31 34 38 30 20 44 41 54 41 20 41 50 50 4C 45 2C |1480 DATA APPLE,|
000011A0: 44 4F 47 2C 42 49 52 44 2C 48 45 4C 4C 4F 2C 48 |DOG,BIRD,HELLO,H|
000011B0: 45 4C 50 2C 4F 55 54 2C 59 45 4C 4C 4F 57 2C 4D |ELP,OUT,YELLOW,M|
000011C0: 45 4C 54 2C 4F 52 41 4E 47 45 2C 44 4F 4E 45 22 |ELT,ORANGE,DONE"|
000011D0: 3B 00 E7 19 9A 02 99 22 20 42 45 4C 4F 57 2C 46 |;......" BELOW,F|
000011E0: 45 45 4C 49 4E 47 22 00 F5 19 9B 02 99 22 11 20 |EELING"......". |
000011F0: 54 4F 3A 11 22 00 2D 1A 9C 02 99 22 11 20 31 34 |TO:.".-....". 14|
00001200: 38 30 20 44 41 54 41 20 41 50 50 4C 45 2C 43 4F |80 DATA APPLE,CO|
00001210: 4D 50 55 54 45 52 2C 43 41 54 2C 42 49 52 44 2C |MPUTER,CAT,BIRD,|
00001220: 48 45 4C 4C 4F 2C 48 45 4C 50 2C 22 3B 00 57 1A |HELLO,HELP,";.W.|
00001230: 9D 02 99 22 20 4F 55 54 2C 59 45 4C 4C 4F 57 2C |..." OUT,YELLOW,|
00001240: 4D 45 4C 54 2C 4F 52 41 4E 47 45 2C 44 4F 4E 45 |MELT,ORANGE,DONE|
00001250: 2C 42 45 4C 4F 57 22 00 71 1A 9E 02 99 22 20 31 |,BELOW".q...." 1|
00001260: 34 38 31 20 44 41 54 41 20 46 45 45 4C 49 4E 47 |481 DATA FEELING|
00001270: 22 00 7A 1A AD 02 8D 38 33 35 00 8E 1A B2 02 8B |".z....835......|
00001280: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 94 |UZ.1..UP%:.217..|
00001290: 1A BB 02 8E 00 B9 1A BC 02 8F 20 2A 2A 20 54 4F |.......... ** TO|
000012A0: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
000012B0: 42 4D 34 30 33 32 20 2A 2A 00 EF 1A C6 02 99 22 |BM4032 **......"|
000012C0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
000012D0: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
000012E0: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
000012F0: 25 1B D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |%...." LOAD|
00001300: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00001310: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00001320: 11 11 11 11 22 00 30 1B DA 02 9E 55 55 AA 37 31 |....".0....UU.71|
00001330: 00 36 1B E4 02 80 00 5B 1B 1D 03 8F 20 2A 2A 20 |.6.....[.... ** |
00001340: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00001350: 20 43 42 4D 34 30 33 32 20 2A 2A 00 A6 1B 1E 03 | CBM4032 **.....|
00001360: 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 55 4E |."....BEFORE RUN|
00001370: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
00001380: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
00001390: 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 50 52 |LOAD CBM 4032 PR|
000013A0: 4F 47 52 41 4D 22 00 B2 1B 1F 03 9E 31 30 39 33 |OGRAM"......1093|
000013B0: 3A 80 00 D2 1B 20 03 8F 20 2A 2A 20 54 20 49 20 |:.... .. ** T I |
000013C0: 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 |T L E P A G E |
000013D0: 2A 2A 00 06 1C 22 03 99 22 93 11 1D 05 22 3B 3A |**...".."....";:|
000013E0: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
000013F0: 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 |).0..53280,14:.5|
00001400: 33 32 38 31 2C 36 00 1C 1C 24 03 81 49 B2 31 A4 |3281,6...$..I.1.|
00001410: 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 34 1C 26 |38:."...";:..4.&|
00001420: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 |..I.1.22:.".....|
00001430: 22 3B 3A 82 00 4C 1C 28 03 81 49 B2 31 A4 33 37 |";:..L.(..I.1.37|
00001440: 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 64 1C 2A |:.".....";:..d.*|
00001450: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
00001460: 22 3B 3A 82 00 89 1C 2C 03 99 22 13 11 11 11 11 |";:....,..".....|
00001470: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001480: 1D 1D 1D 1D 12 A9 20 20 92 00 AB 1C 2E 03 99 22 |...... ......."|
00001490: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000014A0: 1D 1D 12 20 92 20 20 12 20 92 A9 00 CC 1C 30 03 |... . . .....0.|
000014B0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000014C0: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 EA 1C 32 |..... . ......2|
000014D0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000014E0: 1D 1D 1D 1D 1D DF 12 20 20 92 00 12 1D 34 03 99 |....... ....4..|
000014F0: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
00001500: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
00001510: 11 11 00 35 1D 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |...5.6..".......|
00001520: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
00001530: 4E 41 4C 11 11 00 54 1D 38 03 99 22 1D 1D 1D 1D |NAL...T.8.."....|
00001540: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
00001550: 57 41 52 45 00 6F 1D 3A 03 8F 20 2A 2A 20 43 4F |WARE.o.:.. ** CO|
00001560: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
00001570: A7 1D 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..;...(UD$,24);"|
00001580: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00001590: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
000015A0: 54 92 22 3A 49 B2 30 00 C9 1D 3C 03 A1 41 24 3A |T.":I.0...<..A$:|
000015B0: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
000015C0: 49 B3 32 35 30 A7 38 32 38 00 ED 1D 3E 03 54 31 |I.250.828...>.T1|
000015D0: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
000015E0: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 F6 1D |"":T4$."":I.0...|
000015F0: 40 03 89 33 30 30 00 12 1E 43 03 8F 20 2A 2A 20 |@..300...C.. ** |
00001600: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
00001610: 2A 2A 00 4D 1E 48 03 97 55 4F 2C 30 3A 99 C8 28 |**.M.H..UO,0:..(|
00001620: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00001630: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001640: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 64 1E |TO CONTINUE.".d.|
00001650: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001660: A7 38 34 34 00 6A 1E 4E 03 8E 00 8A 1E 52 03 8F |.844.j.N.....R..|
00001670: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001680: 52 4F 55 54 49 4E 45 20 2A 2A 00 96 1E 54 03 55 |ROUTINE **...T.U|
00001690: 50 B2 55 50 AA 31 00 C0 1E 57 03 99 22 93 22 C8 |P.UP.1...W..".".|
000016A0: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
000016B0: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
000016C0: 00 EF 1E 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------|
000016D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000016F0: FE 1E 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 32 |..`..UH..0.870.2|
00001700: 1F 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |.a...(UD$,24);.(|
00001710: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P|
00001720: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN|
00001730: 3E 22 00 44 1F 66 03 97 55 4F 2C 30 3A 99 22 13 |>".D.f..UO,0:.".|
00001740: 11 22 3A 8E 00 63 1F 6B 03 8F 20 2A 2A 20 50 4C |.":..c.k.. ** PL|
00001750: 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B |EASE WAIT REMARK|
00001760: 20 2A 2A 00 99 1F 70 03 99 C8 28 55 44 24 2C 32 | **...p...(UD$,2|
00001770: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F |4);" O|
00001780: 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 |NE MOMENT PLEASE|
00001790: 2E 2E 2E 20 20 20 20 20 22 00 9F 1F 75 03 8E 00 |... "...u...|
000017A0: BC 1F 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 |..... ** SET UP |
000017B0: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 07 20 85 |VARIABLES **.. .|
000017C0: 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 |.UX$."H":.UQ%(10|
000017D0: 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 |00):UB.32768:U1.|
000017E0: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
000017F0: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
00001800: 55 55 B2 31 30 32 34 00 45 20 86 03 55 54 B2 35 |UU.1024.E ..UT.5|
00001810: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00001820: 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 |14:UP%.1146:UM.3|
00001830: 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 |2768:UO.158:. 50|
00001840: 30 30 33 2C 30 00 88 20 87 03 8B C2 28 35 30 30 |003,0.. ....(500|
00001850: 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 |03).0.UB.1024:U1|
00001860: B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 |.209:U2.210:U3.2|
00001870: 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 |11:U4.214:UC.204|
00001880: 3A 55 55 B2 32 30 34 38 00 C7 20 88 03 8B C2 28 |:UU.2048.. ....(|
00001890: 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 |50003).0.UT.5327|
000018A0: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
000018B0: 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 |UP%.2139:UM.1024|
000018C0: 3A 55 4F B2 31 39 38 00 EB 20 89 03 55 44 24 B2 |:UO.198.. ..UD$.|
000018D0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000018E0: 11 11 11 11 11 11 11 11 11 11 22 00 1D 21 8A 03 |.........."..!..|
000018F0: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
00001900: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001910: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 43 21 | ".C!|
00001920: 8B 03 55 54 24 B2 22 20 D3 C3 D2 C1 CD C2 CC C5 |..UT$." ........|
00001930: 20 37 22 3A 8F 20 50 52 4F 47 52 41 4D 20 54 49 | 7":. PROGRAM TI|
00001940: 54 4C 45 00 49 21 8C 03 8E 00 63 21 8E 03 8F 20 |TLE.I!....c!... |
00001950: 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 |** SET VARIABLES|
00001960: 20 2A 2A 00 6C 21 93 03 8D 39 30 30 00 72 21 94 | **.l!...900.r!.|
00001970: 03 3A 00 78 21 95 03 3A 00 93 21 98 03 8F 20 2A |.:.x!..:..!... *|
00001980: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
00001990: 20 2A 2A 00 B1 21 9D 03 99 22 93 22 3A 99 22 A0 | **..!...".":.".|
000019A0: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
000019B0: 45 00 C8 21 A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E..!....(UB.40).|
000019C0: B1 39 36 A7 8D 37 30 30 00 E1 21 A3 03 8F 20 2A |.96..700..!... *|
000019D0: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
000019E0: 2A 00 F5 21 A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*..!... .(0).200|
000019F0: 30 A7 39 33 37 00 23 22 A5 03 99 22 93 11 11 05 |0.937.#"..."....|
00001A00: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001A10: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001A20: 48 11 22 00 47 22 A6 03 99 22 4D 45 4D 4F 52 59 |H.".G"..."MEMORY|
00001A30: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001A40: 47 52 41 4D 20 21 22 00 52 22 A7 03 9E 55 55 AA |GRAM !".R"...UU.|
00001A50: 37 31 00 58 22 A8 03 80 00 72 22 A9 03 99 22 93 |71.X"....r"...".|
00001A60: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
00001A70: 36 32 00 A1 22 AC 03 8F 20 2A 2A 20 42 41 53 49 |62.."... ** BASI|
00001A80: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
00001A90: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
00001AA0: 2A 00 DF 22 AD 03 97 31 30 37 35 2C 31 33 33 3A |*.."...1075,133:|
00001AB0: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
00001AC0: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
00001AD0: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
00001AE0: 15 23 AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |.#...1091,155:.1|
00001AF0: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001B00: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001B10: 33 2C 31 33 33 00 37 23 AF 03 97 31 31 30 34 2C |3,133.7#...1104,|
00001B20: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001B30: 30 38 32 2C 32 33 34 00 4E 23 B1 03 8B C2 28 35 |082,234.N#....(5|
00001B40: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 7D |0003)..160.955.}|
00001B50: 23 B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |#...1093,88:.109|
00001B60: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
00001B70: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 92 23 |1102,228:.965..#|
00001B80: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
00001B90: 39 30 00 C1 23 C0 03 97 31 30 39 33 2C 34 39 3A |90..#...1093,49:|
00001BA0: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
00001BB0: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
00001BC0: 35 00 FB 23 C2 03 97 32 30 39 39 2C 31 34 31 3A |5..#...2099,141:|
00001BD0: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
00001BE0: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
00001BF0: 34 31 3A 97 32 31 30 35 2C 32 31 00 37 24 C3 03 |41:.2105,21.7$..|
00001C00: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001C10: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001C20: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001C30: 31 32 32 2C 31 34 31 00 71 24 C4 03 97 32 31 32 |122,141.q$...212|
00001C40: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001C50: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001C60: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001C70: 33 00 8F 24 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3..$...UU.48:. D|
00001C80: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001C90: A0 24 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |.$...800:. TITLE|
00001CA0: 00 B0 24 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |..$...300:. MENU|
00001CB0: 00 E1 24 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |..$...".THE PGM |
00001CC0: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
00001CD0: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
00001CE0: 80 00 16 25 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |...%...UZ.1..UP%|
00001CF0: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001D00: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001D10: 45 52 45 20 2A 2A 00 42 25 E9 03 99 22 93 05 22 |ERE **.B%...".."|
00001D20: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001D30: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001D40: 31 34 00 4E 25 4C 04 97 55 54 2C 55 4C 25 00 57 |14.N%L..UT,UL%.W|
00001D50: 25 51 04 8D 38 37 35 00 A4 25 56 04 53 24 B2 22 |%Q..875..%V.S$."|
00001D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001D80: 20 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ..............|
00001D90: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001DA0: 9D 9D 9D 9D 00 AD 25 5B 04 57 B2 36 30 00 BF 25 |......%[.W.60..%|
00001DB0: 60 04 8B 48 5A B1 30 A7 20 89 20 31 31 36 35 00 |`..HZ.0. . 1165.|
00001DC0: CA 25 62 04 86 57 24 28 57 29 00 D5 25 63 04 86 |.%b..W$(W)..%c..|
00001DD0: 48 28 31 33 29 00 E2 25 64 04 86 52 48 24 28 31 |H(13)..%d..RH$(1|
00001DE0: 30 29 00 EB 25 65 04 48 5A B2 31 00 F1 25 69 04 |0)..%e.HZ.1..%i.|
00001DF0: 8C 00 03 26 6A 04 81 4A B2 31 A4 57 3A 87 57 24 |...&j..J.1.W:.W$|
00001E00: 28 4A 29 00 24 26 6F 04 8B C3 28 57 24 28 4A 29 |(J).$&o...(W$(J)|
00001E10: 29 B3 33 B0 C3 28 57 24 28 4A 29 29 B1 31 32 A7 |).3..(W$(J)).12.|
00001E20: 4B 32 B2 31 00 6F 26 74 04 8B 4B 32 B2 31 A7 99 |K2.1.o&t..K2.1..|
00001E30: 22 13 CE CF A0 D7 CF D2 C4 D3 A0 D7 C9 D4 C8 A0 |"...............|
00001E40: CC C5 D3 D3 A0 D4 C8 C1 CE A0 32 20 CC C5 D4 D4 |..........2 ....|
00001E50: C5 D2 D3 A0 CF D2 A0 A0 A0 A0 CD CF D2 C5 A0 D4 |................|
00001E60: C8 C1 CE A0 31 32 A0 CC C5 D4 D4 C5 D2 D3 22 00 |....12........".|
00001E70: 7B 26 75 04 8B 4B 32 B2 31 A7 8E 00 93 26 79 04 |{&u..K2.1....&y.|
00001E80: 82 3A 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8D |.:.".":.UT,UL%:.|
00001E90: 38 35 30 00 A5 26 8D 04 50 24 B2 22 43 4F 4E 54 |850..&..P$."CONT|
00001EA0: 49 4E 55 45 22 00 D4 26 92 04 99 22 13 11 11 11 |INUE"..&..."....|
00001EB0: 11 11 11 20 C9 46 20 59 4F 55 20 57 49 53 48 20 |... .F YOU WISH |
00001EC0: 54 4F 20 53 45 45 20 41 4C 4C 22 57 22 20 57 4F |TO SEE ALL"W" WO|
00001ED0: 52 44 53 22 00 00 27 97 04 99 22 11 20 42 45 46 |RDS"..'...". BEF|
00001EE0: 4F 52 45 20 42 45 47 49 4E 4E 49 4E 47 2C 20 54 |ORE BEGINNING, T|
00001EF0: 48 45 4E 20 50 52 45 53 53 1D 27 59 27 2E 11 22 |HEN PRESS.'Y'.."|
00001F00: 00 1E 27 9C 04 99 22 20 C9 46 20 4E 4F 54 20 54 |..'..." .F NOT T|
00001F10: 48 45 4E 20 50 52 45 53 53 20 27 4E 27 2E 00 2D |HEN PRESS 'N'..-|
00001F20: 27 A1 04 99 22 11 11 11 20 3F 20 22 3B 00 4B 27 |'..."... ? ";.K'|
00001F30: A6 04 55 53 24 B2 22 59 4E 22 3A 55 4C B2 31 3A |..US$."YN":UL.1:|
00001F40: 8D 33 35 3A 5A 5A 24 B2 55 52 24 00 5E 27 AB 04 |.35:ZZ$.UR$.^'..|
00001F50: 8B 5A 5A 24 B2 22 59 22 A7 89 31 32 30 38 00 71 |.ZZ$."Y"..1208.q|
00001F60: 27 B0 04 8B 5A 5A 24 B2 22 4E 22 A7 89 31 32 38 |'...ZZ$."N"..128|
00001F70: 31 00 7D 27 B8 04 47 B2 30 3A 44 B2 30 00 95 27 |1.}'..G.0:D.0..'|
00001F80: BA 04 99 22 11 22 3B 3A 55 48 B2 31 3A 8D 38 35 |...".";:UH.1:.85|
00001F90: 30 3A 41 B2 31 00 B0 27 BF 04 81 47 B2 47 A4 47 |0:A.1..'...G.G.G|
00001FA0: AA 33 30 3A 99 A6 41 29 57 24 28 47 29 22 11 22 |.30:..A)W$(G)"."|
00001FB0: 00 C1 27 C4 04 8B 47 B2 30 A7 99 22 13 11 11 22 |..'...G.0.."..."|
00001FC0: 3B 00 EF 27 C9 04 41 24 B2 C4 28 47 29 3A 8B CA |;..'..A$..(G):..|
00001FD0: 28 41 24 2C 33 2C 31 29 B2 22 30 22 A7 99 22 13 |(A$,3,1)."0"..".|
00001FE0: 11 11 22 3B 3A 41 B2 31 33 3A 44 B2 44 AA 31 00 |..";:A.13:D.D.1.|
00001FF0: FD 27 CE 04 8B 44 B1 31 A7 41 B2 32 36 00 19 28 |.'...D.1.A.26..(|
00002000: D3 04 8B 47 B1 57 AB 31 A7 50 24 B2 22 42 45 47 |...G.W.1.P$."BEG|
00002010: 49 4E 22 3A 89 31 32 34 33 00 1F 28 D8 04 82 00 |IN":.1243..(....|
00002020: 28 28 DB 04 8D 38 33 35 00 2E 28 DD 04 3A 00 34 |((...835..(..:.4|
00002030: 28 E2 04 3A 00 52 28 EC 04 8B 47 B3 57 A7 99 22 |(..:.R(...G.W.."|
00002040: 91 91 22 3B 3A 41 B2 30 3A 44 B2 30 3A 89 31 32 |..";:A.0:D.0:.12|
00002050: 31 30 00 65 28 01 05 55 50 B2 30 3A 43 55 B2 30 |10.e(..UP.0:CU.0|
00002060: 3A 52 49 B2 30 00 77 28 23 05 43 24 B2 22 22 3A |:RI.0.w(#.C$."":|
00002070: 59 B2 30 3A 46 B2 30 00 8F 28 32 05 43 55 B2 43 |Y.0:F.0..(2.CU.C|
00002080: 55 AA 31 3A 8B 43 55 B2 31 31 A7 31 37 30 30 00 |U.1:.CU.11.1700.|
00002090: B1 28 34 05 55 47 24 B2 22 D1 55 45 53 54 49 4F |.(4.UG$.".UESTIO|
000020A0: 4E 22 3A 55 48 B2 31 3A 8D 38 35 30 3A 8D 38 37 |N":UH.1:.850:.87|
000020B0: 35 00 E3 28 3C 05 99 22 13 11 11 11 11 11 11 11 |5..(<.."........|
000020C0: 11 11 11 11 11 11 20 22 53 24 22 D5 4E 53 43 52 |...... "S$".NSCR|
000020D0: 41 4D 42 4C 45 20 54 48 45 20 57 4F 52 44 3A 20 |AMBLE THE WORD: |
000020E0: 22 53 24 00 03 29 41 05 41 B2 B5 28 57 AC BB 28 |"S$..)A.A..(W..(|
000020F0: 31 29 29 AA 31 3A 52 48 24 28 43 55 29 B2 57 24 |1)).1:RH$(CU).W$|
00002100: 28 41 29 00 12 29 42 05 8B 43 55 B2 31 A7 31 33 |(A)..)B..CU.1.13|
00002110: 35 30 00 3C 29 44 05 81 4E 57 B2 31 A4 43 55 AB |50.<)D..NW.1.CU.|
00002120: 31 3A 8B 52 48 24 28 43 55 29 B2 52 48 24 28 4E |1:.RH$(CU).RH$(N|
00002130: 57 29 A7 89 31 33 34 35 3A 82 4E 57 00 5C 29 46 |W)..1345:.NW.\)F|
00002140: 05 42 24 B2 57 24 28 41 29 3A 4B B2 C3 28 42 24 |.B$.W$(A):K..(B$|
00002150: 29 3A 8B 4B B1 31 32 A7 31 33 34 35 00 99 29 4B |):.K.12.1345..)K|
00002160: 05 99 22 13 11 11 11 11 11 11 11 11 11 20 D4 48 |..".......... .H|
00002170: 45 20 46 49 52 53 54 20 4C 45 54 54 45 52 20 49 |E FIRST LETTER I|
00002180: 4E 20 54 48 45 20 57 4F 52 44 20 49 53 20 12 22 |N THE WORD IS ."|
00002190: CA 28 42 24 2C 31 2C 31 29 00 D0 29 50 05 99 22 |.(B$,1,1)..)P.."|
000021A0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000021B0: 11 11 11 22 53 24 A6 31 34 29 22 92 3F 20 11 22 |..."S$.14)".? ."|
000021C0: 3B 3A 81 56 B2 31 A4 4B 3A 99 22 2D 22 3B 3A 82 |;:.V.1.K:."-";:.|
000021D0: 00 E7 29 55 05 44 B2 B5 28 4B AC BB 28 31 29 29 |..)U.D..(K..(1))|
000021E0: AA 31 3A 44 52 B2 30 00 03 2A 5A 05 54 B2 54 AA |.1:DR.0..*Z.T.T.|
000021F0: 31 3A 8B 44 B2 48 28 54 29 A7 54 B2 30 3A 89 31 |1:.D.H(T).T.0:.1|
00002200: 33 36 35 00 11 2A 5F 05 8B 54 B3 4B A7 31 33 37 |365..*_..T.K.137|
00002210: 30 00 26 2A 64 05 59 B2 59 AA 31 3A 48 28 59 29 |0.&*d.Y.Y.1:H(Y)|
00002220: B2 44 3A 54 B2 30 00 3A 2A 69 05 43 24 B2 43 24 |.D:T.0.:*i.C$.C$|
00002230: AA CA 28 42 24 2C 44 2C 31 29 00 48 2A 6E 05 8B |..(B$,D,1).H*n..|
00002240: 59 B3 4B A7 31 33 36 35 00 58 2A 73 05 8B 43 24 |Y.K.1365.X*s..C$|
00002250: B2 42 24 A7 31 33 34 35 00 5E 2A 78 05 3A 00 67 |.B$.1345.^*x.:.g|
00002260: 2A 7D 05 8D 38 36 35 00 86 2A 7E 05 99 22 13 11 |*}..865..*~.."..|
00002270: 11 11 11 11 11 11 11 11 11 11 11 11 22 A6 32 32 |............".22|
00002280: 29 22 12 22 43 24 00 BC 2A 82 05 99 A6 31 36 29 |)"."C$..*....16)|
00002290: 22 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
000022A0: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 11 11 | ...............|
000022B0: 22 3B 3A 50 B2 4B 3A 89 31 35 33 30 00 CD 2A 87 |";:P.K:.1530..*.|
000022C0: 05 8B 5A 4C B3 50 AA 31 A7 31 34 30 35 00 0C 2B |..ZL.P.1.1405..+|
000022D0: 8C 05 43 47 B2 B5 28 54 49 AD 36 30 29 3A 8B 49 |..CG..(TI.60):.I|
000022E0: 4E 24 B2 42 24 A7 54 59 B2 54 59 AA 31 3A 4D 24 |N$.B$.TY.TY.1:M$|
000022F0: B2 22 20 D9 4F 55 20 47 55 45 53 53 45 44 20 49 |." .OU GUESSED I|
00002300: 54 21 22 AA 53 24 3A 52 48 32 B2 30 00 45 2B 91 |T!".S$:RH2.0.E+.|
00002310: 05 8B 49 4E 24 B3 B1 42 24 A7 4D 24 B2 22 20 D3 |..IN$..B$.M$." .|
00002320: 4F 52 52 59 2E 20 D9 4F 55 20 44 49 44 20 4E 4F |ORRY. .OU DID NO|
00002330: 54 20 47 55 45 53 53 20 49 54 21 22 AA 53 24 3A |T GUESS IT!".S$:|
00002340: 52 48 32 B2 31 00 4E 2B 95 05 8D 38 35 30 00 81 |RH2.1.N+...850..|
00002350: 2B 96 05 8B 52 48 32 B2 31 A7 20 99 22 13 11 11 |+...RH2.1. ."...|
00002360: 11 11 11 11 11 11 11 11 11 11 11 20 22 53 24 22 |........... "S$"|
00002370: D4 48 45 20 57 4F 52 44 20 57 41 53 20 12 22 42 |.HE WORD WAS ."B|
00002380: 24 00 C7 2B 97 05 8B 52 48 32 B2 30 A7 99 22 13 |$..+...RH2.0..".|
00002390: 11 11 11 11 11 11 11 11 11 11 11 11 11 20 C9 54 |............. .T|
000023A0: 20 54 4F 4F 4B 20 59 4F 55 22 43 47 22 53 45 43 | TOOK YOU"CG"SEC|
000023B0: 4F 4E 44 53 2E 22 3A 52 49 B2 52 49 AA 31 3A 43 |ONDS.":RI.RI.1:C|
000023C0: 53 B2 43 53 AA 43 47 00 DB 2B 9B 05 99 22 13 11 |S.CS.CG..+..."..|
000023D0: 11 11 11 11 11 11 11 11 22 4D 24 00 E4 2B A0 05 |........"M$..+..|
000023E0: 8D 38 33 35 00 00 2C B4 05 46 B2 30 3A 54 B2 30 |.835..,..F.0:T.0|
000023F0: 3A 59 B2 30 3A 4B B2 30 3A 4D 24 B2 22 22 3A 8C |:Y.0:K.0:M$."":.|
00002400: 00 1B 2C BE 05 81 4D B2 31 A4 31 33 3A 48 28 4D |..,...M.1.13:H(M|
00002410: 29 B2 30 3A 82 3A 89 31 33 31 35 00 30 2C C3 05 |).0:.:.1315.0,..|
00002420: 8F 2A 47 52 41 44 45 20 37 20 57 4F 52 44 53 2A |.*GRADE 7 WORDS*|
00002430: 00 7B 2C C8 05 83 41 42 4F 56 45 2C 41 49 52 50 |.{,...ABOVE,AIRP|
00002440: 4C 41 4E 45 2C 41 50 50 4C 45 53 2C 41 4E 47 45 |LANE,APPLES,ANGE|
00002450: 4C 2C 41 4E 49 4D 41 4C 53 2C 41 53 4B 45 44 2C |L,ANIMALS,ASKED,|
00002460: 41 4C 41 52 4D 2C 41 4D 4F 4E 47 2C 41 4C 49 56 |ALARM,AMONG,ALIV|
00002470: 45 2C 41 52 54 2C 42 41 4B 45 52 00 C0 2C CD 05 |E,ART,BAKER..,..|
00002480: 83 52 4F 55 47 48 4E 45 53 53 2C 50 52 49 45 53 |.ROUGHNESS,PRIES|
00002490: 54 2C 42 4F 55 51 55 45 54 2C 42 41 4E 51 55 45 |T,BOUQUET,BANQUE|
000024A0: 54 2C 52 45 4C 49 41 42 4C 45 2C 50 4F 53 54 50 |T,RELIABLE,POSTP|
000024B0: 4F 4E 45 2C 41 47 45 4E 43 59 2C 4A 45 57 45 4C |ONE,AGENCY,JEWEL|
000024C0: 00 03 2D D2 05 83 42 45 54 54 45 52 2C 42 45 52 |..-...BETTER,BER|
000024D0: 52 59 2C 42 45 44 54 49 4D 45 2C 42 45 54 57 45 |RY,BEDTIME,BETWE|
000024E0: 45 4E 2C 42 49 47 47 45 52 2C 42 45 4C 4F 4E 47 |EN,BIGGER,BELONG|
000024F0: 2C 42 52 55 53 48 2C 42 4F 54 54 4C 45 2C 42 55 |,BRUSH,BOTTLE,BU|
00002500: 49 4C 44 00 46 2D D7 05 83 51 4F 55 54 41 54 49 |ILD.F-...QOUTATI|
00002510: 4F 4E 2C 43 48 49 4E 4F 4F 4B 2C 4C 41 43 52 4F |ON,CHINOOK,LACRO|
00002520: 53 53 45 2C 41 42 53 54 52 41 43 54 2C 4D 45 52 |SSE,ABSTRACT,MER|
00002530: 43 48 41 4E 54 2C 43 52 49 4D 49 4E 41 4C 2C 41 |CHANT,CRIMINAL,A|
00002540: 53 48 41 4D 45 44 00 8A 2D DC 05 83 43 41 42 49 |SHAMED..-...CABI|
00002550: 4E 2C 43 41 4D 45 4C 2C 43 41 4E 44 4C 45 2C 43 |N,CAMEL,CANDLE,C|
00002560: 41 4E 4E 4F 54 2C 43 41 56 45 2C 43 48 41 53 45 |ANNOT,CAVE,CHASE|
00002570: 2C 43 4C 4F 55 44 2C 43 48 45 45 53 45 2C 43 48 |,CLOUD,CHEESE,CH|
00002580: 45 53 54 2C 43 41 54 54 4C 45 00 96 2D E1 05 83 |EST,CATTLE..-...|
00002590: 50 52 4F 56 45 4E 00 DC 2D E6 05 83 44 41 4E 47 |PROVEN..-...DANG|
000025A0: 45 52 2C 44 41 52 4B 45 52 2C 44 4F 43 54 4F 52 |ER,DARKER,DOCTOR|
000025B0: 2C 44 52 55 4D 2C 44 49 52 54 59 2C 44 45 45 50 |,DRUM,DIRTY,DEEP|
000025C0: 2C 44 4F 4E 4B 45 59 2C 44 52 41 57 49 4E 47 2C |,DONKEY,DRAWING,|
000025D0: 44 55 52 49 4E 47 2C 44 45 4C 41 59 00 FC 2D EB |DURING,DELAY..-.|
000025E0: 05 83 45 41 52 54 48 2C 45 58 43 49 54 45 2C 45 |..EARTH,EXCITE,E|
000025F0: 4C 45 50 48 41 4E 54 2C 45 43 48 4F 00 1E 2E F0 |LEPHANT,ECHO....|
00002600: 05 83 41 4C 54 48 4F 55 47 48 2C 41 43 48 45 2C |..ALTHOUGH,ACHE,|
00002610: 4F 4E 49 4F 4E 2C 50 4C 45 41 53 41 4E 54 00 38 |ONION,PLEASANT.8|
00002620: 2E FA 05 49 4E 24 B2 22 20 22 3A 5A 54 B2 54 49 |...IN$." ":ZT.TI|
00002630: AA 31 35 3A 5A 43 B2 32 00 43 2E FC 05 99 22 91 |.15:ZC.2.C....".|
00002640: 91 22 3B 00 78 2E FD 05 55 53 24 B2 22 22 3A 55 |.";.x...US$."":U|
00002650: 4C B2 C3 28 42 24 29 3A 54 49 24 B2 22 30 30 30 |L..(B$):TI$."000|
00002660: 30 30 30 22 3A 8D 33 35 3A 49 4E 24 B2 55 52 24 |000":.35:IN$.UR$|
00002670: 3A 55 50 B2 55 50 AB 31 00 82 2E FE 05 89 31 34 |:UP.UP.1......14|
00002680: 32 30 00 97 2E 00 06 A1 5A 24 3A 8B 5A 24 B3 B1 |20......Z$:.Z$..|
00002690: 22 22 A7 31 35 36 30 00 C8 2E 04 06 8B 5A 54 B3 |"".1560......ZT.|
000026A0: B2 54 49 A7 99 CA 28 22 12 20 92 22 2C 5A 43 2C |.TI...(". .",ZC,|
000026B0: 33 29 3B 22 9D 22 3B 3A 5A 43 B2 33 AB 5A 43 3A |3);".";:ZC.3.ZC:|
000026C0: 5A 54 B2 54 49 AA 31 35 00 CE 2E 09 06 3A 00 D8 |ZT.TI.15.....:..|
000026D0: 2E 13 06 89 31 35 33 36 00 EE 2E 18 06 5A B2 C6 |....1536.....Z..|
000026E0: 28 5A 24 29 3A 5A 4C B2 C3 28 49 4E 24 29 00 02 |(Z$):ZL..(IN$)..|
000026F0: 2F 1D 06 8B 5A B2 31 33 B0 5A B2 32 30 A7 31 36 |/...Z.13.Z.20.16|
00002700: 30 30 00 16 2F 22 06 8B 5A B3 36 35 B0 5A B1 39 |00../"..Z.65.Z.9|
00002710: 30 A7 31 36 30 30 00 22 2F 27 06 5A 24 B2 C7 28 |0.1600."/'.Z$..(|
00002720: 5A 29 00 31 2F 2C 06 8B 5A 4C B1 50 A7 31 35 33 |Z).1/,..ZL.P.153|
00002730: 35 00 4B 2F 31 06 49 4E 24 B2 49 4E 24 AA 5A 24 |5.K/1.IN$.IN$.Z$|
00002740: 3A 8B 44 52 B2 30 A7 99 5A 24 3B 00 51 2F 36 06 |:.DR.0..Z$;.Q/6.|
00002750: 3A 00 67 2F 40 06 8B 5A B2 31 33 AF 5A 4C B3 50 |:.g/@..Z.13.ZL.P|
00002760: AA 31 A7 31 35 33 35 00 8D 2F 45 06 8B 5A B2 31 |.1.1535../E..Z.1|
00002770: 33 A7 49 4E 24 B2 CA 28 49 4E 24 2C 32 29 3A 99 |3.IN$..(IN$,2):.|
00002780: 22 20 22 43 52 24 3B 3A 89 31 34 31 35 00 C0 2F |" "CR$;:.1415../|
00002790: 4A 06 8B 5A B2 32 30 AF 5A 4C B1 31 A7 5A 4C B2 |J..Z.20.ZL.1.ZL.|
000027A0: 5A 4C AB 31 3A 49 4E 24 B2 C8 28 49 4E 24 2C 5A |ZL.1:IN$..(IN$,Z|
000027B0: 4C 29 3A 99 22 20 9D 9D 22 3B 3A 89 31 35 33 35 |L):." ..";:.1535|
000027C0: 00 CA 2F 4F 06 89 31 35 33 36 00 DF 2F A4 06 55 |../O..1536../..U|
000027D0: 47 24 B2 22 22 3A 55 50 B2 30 3A 8D 38 35 30 00 |G$."":UP.0:.850.|
000027E0: F9 2F A9 06 99 22 13 11 11 11 11 11 11 20 D9 CF |./..."....... ..|
000027F0: D5 D2 A0 D3 C3 CF D2 C5 22 00 0C 30 AA 06 99 22 |........"..0..."|
00002800: 20 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 29 30 AE | ..........".)0.|
00002810: 06 99 22 11 11 20 C3 CF D2 D2 C5 C3 D4 A0 C1 CE |..".. ..........|
00002820: D3 D7 C5 D2 D3 3A 22 52 49 00 4B 30 B3 06 99 22 |.....:"RI.K0..."|
00002830: 11 11 20 C9 CE C3 CF D2 D2 C5 C3 D4 A0 C1 CE D3 |.. .............|
00002840: D7 C5 D2 D3 3A 22 31 30 AB 52 49 00 5A 30 B4 06 |....:"10.RI.Z0..|
00002850: 8B 52 49 B2 30 A7 31 37 32 30 00 80 30 B5 06 4D |.RI.0.1720..0..M|
00002860: 47 B2 B5 28 43 53 AD 52 49 29 3A 8B 43 53 AD 52 |G..(CS.RI):.CS.R|
00002870: 49 AB 4D 47 B2 B1 2E 35 A7 4D 47 B2 4D 47 AA 31 |I.MG...5.MG.MG.1|
00002880: 00 AE 30 B6 06 99 22 11 11 20 C1 D6 C5 D2 C1 C7 |..0...".. ......|
00002890: C5 A0 D4 C9 CD C5 20 C6 CF D2 A0 C3 CF D2 D2 C5 |...... .........|
000028A0: C3 D4 20 C1 CE D3 D7 C5 D2 D3 3A 22 4D 47 00 B7 |.. .......:"MG..|
000028B0: 30 B8 06 8D 38 33 35 00 BD 30 BD 06 8E 00 00 00 |0...835..0......|
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......LX.X.U.....
...X`.T...."XHHH.H.HHHHHHH.H.HX`111"....
.."HHHHHHH`1"...... ** 4 - POP ML SUBROU
TINE **.H.... **GENERAL INPUT ROUTINE **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-.." .."
;:.UC,0.3.2..UI$:.UI$."".50.].7..UI$.G(1
3).C(UR$)..1..UC,1:." .";:.85.P.<..UI$.G
(20).105...>.. C(UR$)..UL.50...A..120:.
CHECK FOR VALID CHARACTER...F.UR$.UR$.UI
$.C.K..UI$;.K.P..50...U.. +++ CHECK FOR
HELP REQUEST +++...Z..UR$.UX$.195:. EXIT
TO HELP ROUTINE.'._..UF.1..240.4.D.UF.0
:.:..M.F.. ++ CHECK DELETE ++.^.I..C(UR$
).1.50.V.N.UR$.H(UR$,C(UR$).1)...S..".
..";:.50...X.. ++ CHECK FOR VALID CHARAC
TERS ++.A.}..C(US$).0.150.Q..US$.US$.UX
$......US.1.C(US$)......UI$.J(US$,US,1).
............UI$."":..'.... ** STANDARD I
NPUT **.8....F(UI$).46...I....UI$.G(32).
..F. ..F(UI$).48.F(UI$).57.170.L........
..F(UI$).65.F(UI$).90.180............F(U
I$).193.F(UI$).218.UI$."":..V....B(UT).U
U%.UI$.G(F(UI$).128):............UI$."":
....C.UF.1:. +++ HELP ROUTINE EXIT +++..
.E..250. .H..245.?.M..UQ.UB.(U2%.256.U1%
.U3%.2).[.R.UQ%(UQ.UB).B(UQ):.:.".".N.W.
UZ.1:UV%.B(UT).W.X..300...Y.UZ.0:US$.UJ$
:UG$.UK$:UP.UJ:UL.UK.S.Z..B(50003).0..53
281,1:.".";:.53281,6:.53280,14:.220.....
.".";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.25
6.U1%.U3%.3).!....UQ,UQ%(UQ.UB):..-....U
1,U1%.9....U2,U2%.E....U4,U4%.S....U3,U3
%.1.[....35.....UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..H....H(UD$,24);"
. HELP COMING . ":.
.....U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B
(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:U
K.UL.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-".Z.;..".. 1. SCRAMBLE 7"...@..
".. 2. STUDENT INSTRUCTIONS"...E
..".. 3. TEACHER INSTRUCTIONS".[
.J..".. 4. MODIFICATION OF PROGR
AM".W.O..".. 5. QUIT.."...T.." -
-------------------------------------".Q
.Y..".. PRESS A NUMBER KEY (1-5) "
;...^.UL.1:US$."12345":.35:. INPUT ROUTI
NE..._..C(UR$).1.300...`.US$."".8.C..E(U
R$).1000,400,500,600,396.A.H..300.H....
** RE-ENABLE STOP KEY AND END **......B(
50003)..1.B(50003)..160.B(50003)..0.399.
A....UU.71:.B(50003).0..53281,6:.53280,1
4.M...."..":..X....875:....... ** STUDEN
T INSTRUCTIONS **.(....".":.UT,UL%:.B(50
003).0..53281,0:.53280,0.I...UP.0:UG$."S
TUDENT INST":.850.O.G...U.L.....Q.."....
.. IN THIS GAME, I'LL GIVE YOU A "..
.S..". SCRAMBLED WORD AND THE FIRST LETT
ER IN"...U..". THE WORD. IT IS UP TO YO
U TO"...V..". UNSCRAMBLE IT.":.835......
850:.".. NOTE:...TO ADVANCE FROM ONE QUE
STION".X....". TO THE NEXT PRESS THE SPA
CE BAR."......". IF AT ANYTIME YOU WISH
TO RETURN"......". TO THE MENU PRESS H A
ND THEN HIT RETURN"......835.P....UZ.1..
UP%:.217.V.......... ** TEACHER INSTRUCT
IONS **.'....".":.UT,UL%:.B(50003).0..53
281,2:.53280,10.H...UP.0:UG$."TEACHER IN
ST":.850.V....".. TO THE BEST OF OU
R KNOWLEDGE,."......" THIS PROGRAM IS
IN THE PUBLIC.".K...." DOMAIN. IF THI
S IS NOT THE CASE."......" PLEASE CONT
ACT:..."......" COMMODORE BUSINESS
MACHINES.".5...." 3370 PHARMACY
AVE..Y...." AGINCOURT, ONTARIO
".{...." CANADA M1W 2K4".....
." (416) 499-4292"...... 835:.
850:.S...." ..PROGRAM NAME: SCRAMBLE
4......." WRITTEN BY : CARL REID..
....." UPGRADED BY : ..F...
." .THIS PROGRAM WILL RUN ON ANY...F
...." PET 64 COMPUTER......."
COMMODORE 64 COMPUTER......835:.85
0.D....".. THIS PROGRAM IS DESIGNED
TO"......". HELP STUDENTS WITH THEIR SP
ELLING"......". SKILLS."......".. TH
E WORDS CAN BE EASILY CHANGED".\....". T
O WORDS THAT YOU FEEL YOUR STUDENTS"....
..". SHOULD KNOW. IF YOU WISH TO CHANGE
"...!..". WORDS, THEN CONSULT THE PROGRA
M ".W.&..". MODIFICATION INSTRUCTIONS.".
..D..835...N..UZ.1..UP%:.217...W... .X..
** PROGRAM MODIFICATION INST **.1.Y..".
":.UT,UL%.Q.].UP.0:UG$."PROGRAM MOD":.85
0...B.."..... IF YOU WANT TO CHANGE THE
LIST OF"...G..". WORDS, THEN LIST LINES
1480-1520.".Z.L..".. PLEASE DO NOT INC
REASE OR DECREASE"...Q..". THE NUMBER OF
WORDS IN THE LIST."...V..835:.850.?.{..
".. NOTE:...WHEN CHANGING WORDS, AVOID".
}....". MAKING DATA STATEMENTS MORE THAN
TWO .LINES LONG."......".. IF TH
IS HAPPENS, THEN TAKE THE".Z....". LAST
WORD IN THE STATEMENT, AND PUT IT"......
". IN ITS OWN SEPARATE DATA STATEMENT.":
.835:.850.?....". IF ONE WANTS TO CHANG
E THE WORD DOG".O....". TO THE WORD COMP
UTER THE LINE WOULD BE"......". CHANGED
FROM:.".Q....". 1480 DATA APPLE,DOG,BIRD
,HELLO,HELP,OUT,YELLOW,MELT,ORANGE,DONE"
;......" BELOW,FEELING"......". TO:.".-.
...". 1480 DATA APPLE,COMPUTER,CAT,BIRD,
HELLO,HELP,";.W...." OUT,YELLOW,MELT,ORA
NGE,DONE,BELOW".Q...." 1481 DATA FEELING
".Z....835......UZ.1..UP%:.217..........
.. ** TO USE 8032 LOAD CBM4032 **...F.."
.....BEFORE RUNNING THIS PROGRAM ON AN 8
032 ...%.P.." LOAD THE 'CBM 4032'
PROGRAM.............".0.Z..UU.71.6.....[
.... ** TO USE 8032 LOAD CBM4032 **.....
."....BEFORE RUNNING THIS PROGRAM ON AN
8032 ..LOAD CBM 4032 PROGRAM"......1093
:..R. .. ** T I T L E P A G E **..."..
"....";:.UT,UU%:.B(50003).0..53280,14:.5
3281,6...$..I.1.38:."...";:..4.&..I.1.22
:.".....";:..L.(..I.1.37:.".....";:..D.*
..I.1.22:.".....";:....,..".............
.............. ......."................
... . . ...L.0.."................... .
......2..".................... ....4..
"..............C O M M O D O R E...5.6..
"...............EDUCATIONAL...T.8.."....
............SOFTWARE.O.:.. ** COMMODORE
LOGO **...;..H(UD$,24);"..........PRESS
SPACE BAR OR WAIT.":I.0.I.<..A$:.A$.." "
.I.I.1:.I.250.828...>.T1$."":T2$."":T3$.
"":T4$."":I.0...@..300...C.. ** SPACE BA
R PRESS **.M.H..UO,0:.H(UD$,24);".......
PRESS SPACE BAR TO CONTINUE.".D.L..UI$:.
UI$.." ".844.J.N.....R.. ** PAGE DESIGN
ROUTINE **...T.UP.UP.1...W.."."H(UT$.UP$
,21);I(UP$.UG$.D(UP),18)...\.." --------
------------------------------"...`..UH.
.0.870.2.A..H(UD$,24);H(UP$,7);"HELP - P
RESS H <RETURN>".D.F..UO,0:."..":..C.K
.. ** PLEASE WAIT REMARK **...P..H(UD$,2
4);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **.. .
.UX$."H":.UQ%(1000):UB.32768:U1.196:U2.1
97:U3.198:U4.216:UC.167:UU.1024.E ..UT.5
9468:UU%.12:UL%.14:UP%.1146:UM.32768:UO.
158:. 50003,0.. ...B(50003).0.UB.1024:U1
.209:U2.210:U3.211:U4.214:UC.204:UU.2048
.G ...B(50003).0.UT.53272:UU%.21:UL%.23:
UP%.2139:UM.1024:UO.198.. ..UD$.".......
.................."..!..UP$."
".C!..UT$."
SCRAMBLE 7":. PROGRAM TITLE.I!....C!...
** SET VARIABLES **.L!...900.R!..:.X!..:
..!... ** CHECK FOR 8032 **..!...".":."
":. SHIFTED SPACE.H!...B(UB.40)..96..700
..!... ** MEMORY CHECK **..!... .(0).200
0.937.#"..."....THIS MACHINE DOES NOT HA
VE ENOUGH.".G"..."MEMORY TO RUN THIS PRO
GRAM !".R"...UU.71.X"....R"..."..":.B(50
003).0.962.."... ** BASIC 2.0 OR 4.0
OR C-64 SETUP **.."...1075,133:.1076,14
4:.1077,234:.1079,4:.1080,133:.1081,145.
.#...1091,155:.1098,133:.1099,144:.1100,
234:.1103,133.7#...1104,145:.1105,234:.1
082,234.N#...B(50003)..160.955.}#...1093
,88:.1094,228:.1097,85:.1102,228:.965..#
...B(50003)..1.990.A#...1093,49:.1094,23
0:.1097,46:.1102,230:.965..#B..2099,141:
.2100,20:.2101,3:.2103,8:.2104,141:.2105
,21.7$C..2106,3:.2115,145:.2117,52:.2118
,234:.2121,49:.2122,141.Q$D..2123,20:.21
24,3:.2126,234:.2127,141:.2128,21:.2129,
3..$E..UU.48:. DISABLE STOP KEY. $J..800
:. TITLE..$T..300:. MENU..$...".THE PGM
WILL NOT WORK ON THIS MACHINE!":...%...U
Z.1..UP%:.UP%:UZ.0:. ** PROGRAM STARTS H
ERE **.B%..."..";:.:.B(50003).0..53281,6
:.53280,14.N%L..UT,UL%.W%Q..875..%V.S$."
......
..............................%[.W.60..%
`..HZ.0. . 1165.J%B..W$(W).U%C..H(13)..%
D..RH$(10)..%E.HZ.1..%I....&J..J.1.W:.W$
(J).$&O..C(W$(J)).3.C(W$(J)).12.K2.1.O&T
..K2.1..".NO WORDS WITH LESS THAN 2 LETT
ERS OR MORE THAN 12 LETTERS".{&U..K2.
1....&Y..:.".":.UT,UL%:.850..&..P$."CONT
INUE".T&..."....... IF YOU WISH TO SEE A
LL"W" WORDS"..'...". BEFORE BEGINNING, T
HEN PRESS.'Y'.."..'..." IF NOT THEN PRES
S 'N'..-'..."... ? ";.K'..US$."YN":UL.1:
.35:ZZ$.UR$.^'...ZZ$."Y"..1208.Q'...ZZ$.
"N"..1281.}'..G.0:D.0..'...".";:UH.1:.85
0:A.1..'...G.G.G.30:..A)W$(G)".".A'D..G.
0.."...";..'I.A$.D(G):.J(A$,3,1)."0"..".
..";:A.13:D.D.1..'N..D.1.A.26..(S..G.W.1
.P$."BEGIN":.1243..(X...((...835..(..:.4
(..:.R(...G.W.."..";:A.0:D.0:.1210.E(..U
P.0:CU.0:RI.0.W(#.C$."":Y.0:F.0..(2.CU.C
U.1:.CU.11.1700..(4.UG$."QUESTION":UH.1:
.850:.875..(<..".............. "S$"UNSCR
AMBLE THE WORD: "S$..)A.A..(W..(1)).1:RH
$(CU).W$(A)..)B..CU.1.1350.<)D..NW.1.CU.
1:.RH$(CU).RH$(NW)..1345:.NW.\)F.B$.W$(A
):K.C(B$):.K.12.1345..)K..".......... TH
E FIRST LETTER IN THE WORD IS ."J(B$,1,1
).P)P.."..................."S$.14)".? ."
;:.V.1.K:."-";:...)U.D..(K..(1)).1:DR.0.
.*Z.T.T.1:.D.H(T).T.0:.1365..*_..T.K.137
0.&*D.Y.Y.1:H(Y).D:T.0.:*I.C$.C$.J(B$,D,
1).H*N..Y.K.1365.X*S..C$.B$.1345.^*X.:.G
*}..865..*~.."..............".22)"."C$..
*....16)"... ...............
";:P.K:.1530.M*...ZL.P.1.1405..+..CG..(T
I.60):.IN$.B$.TY.TY.1:M$." YOU GUESSED I
T!".S$:RH2.0.E+...IN$..B$.M$." SORRY. YO
U DID NOT GUESS IT!".S$:RH2.1.N+...850..
+...RH2.1. .".............. "S$"THE WORD
WAS ."B$.G+...RH2.0..".............. IT
TOOK YOU"CG"SECONDS.":RI.RI.1:CS.CS.CG.
.+...".........."M$..+ ..835..,..F.0:T.0
:Y.0:K.0:M$."":...,...M.1.13:H(M).0:.:.1
315.0,C..*GRADE 7 WORDS*.{,H..ABOVE,AIRP
LANE,APPLES,ANGEL,ANIMALS,ASKED,ALARM,AM
ONG,ALIVE,ART,BAKER..,M..ROUGHNESS,PRIES
T,BOUQUET,BANQUET,RELIABLE,POSTPONE,AGEN
CY,JEWEL..-R..BETTER,BERRY,BEDTIME,BETWE
EN,BIGGER,BELONG,BRUSH,BOTTLE,BUILD.F-W.
.QOUTATION,CHINOOK,LACROSSE,ABSTRACT,MER
CHANT,CRIMINAL,ASHAMED..-...CABIN,CAMEL,
CANDLE,CANNOT,CAVE,CHASE,CLOUD,CHEESE,CH
EST,CATTLE..-...PROVEN..-...DANGER,DARKE
R,DOCTOR,DRUM,DIRTY,DEEP,DONKEY,DRAWING,
DURING,DELAY..-...EARTH,EXCITE,ELEPHANT,
ECHO......ALTHOUGH,ACHE,ONION,PLEASANT.8
...IN$." ":ZT.TI.15:ZC.2.C...."..";.X...
US$."":UL.C(B$):TI$."000000":.35:IN$.UR$
:UP.UP.1......1420......Z$:.Z$.."".1560.
H....ZT..TI..J(". .",ZC,3);".";:ZC.3.ZC:
ZT.TI.15.N...:.X....1536.....Z.F(Z$):ZL.
C(IN$)../...Z.13.Z.20.1600../"..Z.65.Z.9
0.1600."/'.Z$.G(Z).1/,..ZL.P.1535.K/1.IN
$.IN$.Z$:.DR.0..Z$;.Q/6.:.G/@..Z.13.ZL.P
.1.1535../E..Z.13.IN$.J(IN$,2):." "CR$;:
.1415../J..Z.20.ZL.1.ZL.ZL.1:IN$.H(IN$,Z
L):." ..";:.1535.J/O..1536../..UG$."":UP
.0:.850../..."....... YOUR SCORE"..0..."
..........".)0...".. CORRECT ANSWERS:"R
I.K0...".. INCORRECT ANSWERS:"10.RI.Z0..
.RI.0.1720..0..MG..(CS.RI):.CS.RI.MG...5
.MG.MG.1..0...".. AVERAGE TIME FOR CORRE
CT ANSWERS:"MG..0...835..0......
> CLICK IMAGE PREVIEW FOR FULL MODAL