HANGMATH WORD.C3
FILE INFORMATION
FILENAME(S): HANGMATH WORD.C3
FILE TYPE(S): PRG
FILE SIZE: 11.4K
FIRST SEEN: 2025-10-20 14:31:29
APPEARS ON: 2 disk(s)
FILE HASH
891d0db12888986a34f54421e6080f275ac182ad02ec85c0f13c3b573e90bf64
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| GAMES | HANGMATH WORD.C3 | PRG | Treasure Chest - Klaus Der Suhler | 21 | 3 | DOWNLOAD FILE |
| ICHAELS ISK 2 | HANGMATH WORD.C3 | PRG | Treasure Chest - Thunderbird | 21 | 1 | 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 CE 08 0F 00 3A 00 D4 |UTINE **.....:..|
000000D0: 08 1E 00 3A 00 F0 08 23 00 8F 20 2B 2B 2B 20 49 |...:...#.. +++ I|
000000E0: 4E 50 55 54 20 53 45 43 54 49 4F 4E 20 2B 2B 2B |NPUT SECTION +++|
000000F0: 00 02 09 28 00 55 52 24 B2 22 22 3A 55 49 24 B2 |...(.UR$."":UI$.|
00000100: 22 22 00 12 09 2A 00 8B 55 4C B2 30 A7 55 4C B2 |""...*..UL.0.UL.|
00000110: 38 30 00 25 09 2D 00 99 22 20 20 9D 9D 22 3B 3A |80.%.-.." ..";:|
00000120: 97 55 43 2C 30 00 39 09 32 00 A1 55 49 24 3A 8B |.UC,0.9.2..UI$:.|
00000130: 55 49 24 B2 22 22 A7 35 30 00 63 09 37 00 8B 55 |UI$."".50.c.7..U|
00000140: 49 24 B2 C7 28 31 33 29 AF C3 28 55 52 24 29 B1 |I$..(13)..(UR$).|
00000150: B2 31 A7 97 55 43 2C 31 3A 99 22 20 9D 22 3B 3A |.1..UC,1:." .";:|
00000160: 89 38 35 00 76 09 3C 00 8B 55 49 24 B2 C7 28 32 |.85.v.<..UI$..(2|
00000170: 30 29 A7 31 30 35 00 8A 09 3E 00 8B 20 C3 28 55 |0).105...>.. .(U|
00000180: 52 24 29 B2 B1 55 4C A7 35 30 00 AF 09 41 00 8D |R$)..UL.50...A..|
00000190: 31 32 30 3A 8F 20 43 48 45 43 4B 20 46 4F 52 20 |120:. CHECK FOR |
000001A0: 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 52 00 |VALID CHARACTER.|
000001B0: BF 09 46 00 55 52 24 B2 55 52 24 AA 55 49 24 00 |..F.UR$.UR$.UI$.|
000001C0: C9 09 4B 00 99 55 49 24 3B 00 D1 09 50 00 89 35 |..K..UI$;...P..5|
000001D0: 30 00 F6 09 55 00 8F 20 2B 2B 2B 20 43 48 45 43 |0...U.. +++ CHEC|
000001E0: 4B 20 46 4F 52 20 48 45 4C 50 20 52 45 51 55 45 |K FOR HELP REQUE|
000001F0: 53 54 20 2B 2B 2B 00 1E 0A 5A 00 8B 55 52 24 B2 |ST +++...Z..UR$.|
00000200: 55 58 24 A7 31 39 35 3A 8F 20 45 58 49 54 20 54 |UX$.195:. EXIT T|
00000210: 4F 20 48 45 4C 50 20 52 4F 55 54 49 4E 45 00 2D |O HELP ROUTINE.-|
00000220: 0A 5F 00 8B 55 46 B2 31 A7 8D 32 34 30 00 3A 0A |._..UF.1..240.:.|
00000230: 64 00 55 46 B2 30 3A 99 3A 8E 00 53 0A 66 00 8F |d.UF.0:.:..S.f..|
00000240: 20 2B 2B 20 43 48 45 43 4B 20 44 45 4C 45 54 45 | ++ CHECK DELETE|
00000250: 20 2B 2B 00 64 0A 69 00 8B C3 28 55 52 24 29 B3 | ++.d.i...(UR$).|
00000260: 31 A7 35 30 00 7C 0A 6E 00 55 52 24 B2 C8 28 55 |1.50.|.n.UR$..(U|
00000270: 52 24 2C C3 28 55 52 24 29 AB 31 29 00 8E 0A 73 |R$,.(UR$).1)...s|
00000280: 00 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 30 00 B5 |..". ..";:.50..|
00000290: 0A 78 00 8F 20 2B 2B 20 43 48 45 43 4B 20 46 4F |.x.. ++ CHECK FO|
000002A0: 52 20 56 41 4C 49 44 20 43 48 41 52 41 43 54 45 |R VALID CHARACTE|
000002B0: 52 53 20 2B 2B 00 C7 0A 7D 00 8B C3 28 55 53 24 |RS ++...}...(US$|
000002C0: 29 B2 30 A7 31 35 30 00 D8 0A 82 00 81 55 53 B2 |).0.150......US.|
000002D0: 31 A4 C3 28 55 53 24 29 00 EF 0A 87 00 8B 55 49 |1..(US$)......UI|
000002E0: 24 B2 CA 28 55 53 24 2C 55 53 2C 31 29 A7 8E 00 |$..(US$,US,1)...|
000002F0: F5 0A 8C 00 82 00 02 0B 91 00 55 49 24 B2 22 22 |..........UI$.""|
00000300: 3A 8E 00 1D 0B 96 00 8F 20 2A 2A 20 53 54 41 4E |:....... ** STAN|
00000310: 44 41 52 44 20 49 4E 50 55 54 20 2A 2A 00 2E 0B |DARD INPUT **...|
00000320: 98 00 8B C6 28 55 49 24 29 B2 34 36 A7 8E 00 3F |....(UI$).46...?|
00000330: 0B 9B 00 8B 55 49 24 B2 C7 28 33 32 29 A7 8E 00 |....UI$..(32)...|
00000340: 5C 0B A0 00 8B C6 28 55 49 24 29 B3 34 38 B0 C6 |\.....(UI$).48..|
00000350: 28 55 49 24 29 B1 35 37 A7 31 37 30 00 62 0B A5 |(UI$).57.170.b..|
00000360: 00 8E 00 7F 0B AA 00 8B C6 28 55 49 24 29 B3 36 |.........(UI$).6|
00000370: 35 B0 C6 28 55 49 24 29 B1 39 30 A7 31 38 30 00 |5..(UI$).90.180.|
00000380: 85 0B AF 00 8E 00 A9 0B B4 00 8B C6 28 55 49 24 |............(UI$|
00000390: 29 B3 31 39 33 B0 C6 28 55 49 24 29 B1 32 31 38 |).193..(UI$).218|
000003A0: A7 55 49 24 B2 22 22 3A 8E 00 CC 0B B9 00 8B C2 |.UI$."":........|
000003B0: 28 55 54 29 B2 55 55 25 A7 55 49 24 B2 C7 28 C6 |(UT).UU%.UI$..(.|
000003C0: 28 55 49 24 29 AB 31 32 38 29 3A 8E 00 D2 0B BB |(UI$).128):.....|
000003D0: 00 8E 00 DF 0B BE 00 55 49 24 B2 22 22 3A 8E 00 |.......UI$."":..|
000003E0: 04 0C C3 00 55 46 B2 31 3A 8F 20 2B 2B 2B 20 48 |....UF.1:. +++ H|
000003F0: 45 4C 50 20 52 4F 55 54 49 4E 45 20 45 58 49 54 |ELP ROUTINE EXIT|
00000400: 20 2B 2B 2B 00 0D 0C C5 00 8D 32 35 30 00 16 0C | +++......250...|
00000410: C8 00 8D 32 34 35 00 35 0C CD 00 81 55 51 B2 55 |...245.5....UQ.U|
00000420: 42 A4 28 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 |B.(U2%.256.U1%.U|
00000430: 33 25 AB 32 29 00 51 0C D2 00 55 51 25 28 55 51 |3%.2).Q...UQ%(UQ|
00000440: AB 55 42 29 B2 C2 28 55 51 29 3A 82 3A 99 22 93 |.UB)..(UQ):.:.".|
00000450: 22 00 64 0C D7 00 55 5A B2 31 3A 55 56 25 B2 C2 |".d...UZ.1:UV%..|
00000460: 28 55 54 29 00 6D 0C D8 00 89 33 30 30 00 92 0C |(UT).m....300...|
00000470: D9 00 55 5A B2 30 3A 55 53 24 B2 55 4A 24 3A 55 |..UZ.0:US$.UJ$:U|
00000480: 47 24 B2 55 4B 24 3A 55 50 B2 55 4A 3A 55 4C B2 |G$.UK$:UP.UJ:UL.|
00000490: 55 4B 00 C9 0C DA 00 8B C2 28 35 30 30 30 33 29 |UK.......(50003)|
000004A0: B2 30 A7 97 35 33 32 38 31 2C 31 3A 99 22 93 22 |.0..53281,1:."."|
000004B0: 3B 3A 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |;:.53281,6:.5328|
000004C0: 30 2C 31 34 3A 89 32 32 30 00 D3 0C DB 00 99 22 |0,14:.220......"|
000004D0: 93 22 3B 00 02 0D DC 00 55 54 24 B2 55 4C 24 3A |.";.....UT$.UL$:|
000004E0: 97 55 54 2C 55 56 25 3A 81 55 51 B2 55 42 A4 28 |.UT,UV%:.UQ.UB.(|
000004F0: 55 32 25 AC 32 35 36 AA 55 31 25 AA 55 33 25 AB |U2%.256.U1%.U3%.|
00000500: 33 29 00 17 0D E1 00 97 55 51 2C 55 51 25 28 55 |3)......UQ,UQ%(U|
00000510: 51 AB 55 42 29 3A 82 00 23 0D E6 00 97 55 31 2C |Q.UB):..#....U1,|
00000520: 55 31 25 00 2F 0D E8 00 97 55 32 2C 55 32 25 00 |U1%./....U2,U2%.|
00000530: 3B 0D E9 00 97 55 34 2C 55 34 25 00 49 0D EA 00 |;....U4,U4%.I...|
00000540: 97 55 33 2C 55 33 25 AB 31 00 51 0D EB 00 89 33 |.U3,U3%.1.Q....3|
00000550: 35 00 83 0D F0 00 55 44 25 B2 28 28 55 32 25 AC |5.....UD%.((U2%.|
00000560: 32 35 36 AA 55 31 25 AA 55 33 25 29 AB 55 42 29 |256.U1%.U3%).UB)|
00000570: AD 34 30 3A 99 C8 28 55 44 24 2C 55 44 25 AA 31 |.40:..(UD$,UD%.1|
00000580: 29 3A 8E 00 BE 0D F5 00 99 C8 28 55 44 24 2C 32 |):........(UD$,2|
00000590: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 20 |4);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 12 20 48 45 4C 50 | . HELP|
000005B0: 20 43 4F 4D 49 4E 47 20 92 20 20 22 3A 8E 00 EA | COMING . ":...|
000005C0: 0D FA 00 55 31 25 B2 C2 28 55 31 29 3A 55 32 25 |...U1%..(U1):U2%|
000005D0: B2 C2 28 55 32 29 3A 55 33 25 B2 C2 28 55 33 29 |..(U2):U3%..(U3)|
000005E0: 3A 55 34 25 B2 C2 28 55 34 29 00 FC 0D FB 00 55 |:U4%..(U4).....U|
000005F0: 4A 24 B2 55 53 24 3A 55 4A B2 55 4C 00 1C 0E FC |J$.US$:UJ.UL....|
00000600: 00 55 4A 24 B2 55 53 24 3A 55 4B 24 B2 55 47 24 |.UJ$.US$:UK$.UG$|
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 DE 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 42 |".. 1. B|
000006D0: 45 47 49 4E 20 48 41 4E 47 4D 41 54 48 22 00 08 |EGIN HANGMATH"..|
000006E0: 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 32 2E |.@..".. 2.|
000006F0: 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 54 52 | STUDENT INSTR|
00000700: 55 43 54 49 4F 4E 53 22 00 32 0F 42 01 99 22 11 |UCTIONS".2.B..".|
00000710: 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 45 41 |. 3. TEA|
00000720: 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E |CHER INSTRUCTION|
00000730: 53 22 00 60 0F 45 01 99 22 11 11 20 20 20 20 20 |S".`.E..".. |
00000740: 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 43 41 54 | 4. MODIFICAT|
00000750: 49 4F 4E 53 20 4F 46 20 50 52 4F 47 52 41 4D 22 |IONS OF PROGRAM"|
00000760: 00 7C 0F 4F 01 99 22 11 11 20 20 20 20 20 20 20 |.|.O..".. |
00000770: 35 2E 20 20 20 51 55 49 54 11 11 22 00 AB 0F 54 |5. QUIT.."...T|
00000780: 01 99 22 20 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 2D 2D 2D 2D 2D 22 00 D6 0F 59 01 |----------"...Y.|
000007B0: 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 53 |.".. PRESS|
000007C0: 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 31 | A NUMBER KEY (1|
000007D0: 2D 35 29 20 22 3B 00 FF 0F 5E 01 55 4C B2 31 3A |-5) ";...^.UL.1:|
000007E0: 55 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 3A |US$."12345":.35:|
000007F0: 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 00 |. INPUT ROUTINE.|
00000800: 0A 10 60 01 55 53 24 B2 22 22 00 2B 10 63 01 91 |..`.US$."".+.c..|
00000810: C5 28 55 52 24 29 8D 31 30 30 30 2C 34 30 30 2C |.(UR$).1000,400,|
00000820: 35 30 30 2C 36 30 30 2C 33 39 36 00 34 10 68 01 |500,600,396.4.h.|
00000830: 89 33 30 30 00 5B 10 8B 01 8F 20 2A 2A 20 52 45 |.300.[.... ** RE|
00000840: 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 |-ENABLE STOP KEY|
00000850: 20 41 4E 44 20 45 4E 44 20 2A 2A 00 8A 10 8C 01 | AND END **.....|
00000860: 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF C2 28 35 |..(50003)..1..(5|
00000870: 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 35 30 30 |0003)..160..(500|
00000880: 30 33 29 B3 B1 30 A7 33 39 39 00 B4 10 8D 01 9E |03)..0.399......|
00000890: 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 33 29 B2 |UU.71:..(50003).|
000008A0: 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 |0..53281,6:.5328|
000008B0: 30 2C 31 34 00 C0 10 8E 01 99 22 9A 93 22 3A 80 |0,14......"..":.|
000008C0: 00 CB 10 8F 01 8D 38 37 35 3A 8E 00 EC 10 90 01 |......875:......|
000008D0: 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 49 4E 53 |. ** STUDENT INS|
000008E0: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 1B 11 95 |TRUCTIONS **....|
000008F0: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000900: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000910: 2C 30 3A 97 35 33 32 38 30 2C 30 00 3C 11 9A 01 |,0:.53280,0.<...|
00000920: 55 50 B2 30 3A 55 47 24 B2 22 D3 54 55 44 45 4E |UP.0:UG$.".TUDEN|
00000930: 54 20 C9 4E 53 54 22 3A 8D 38 35 30 00 6D 11 9C |T .NST":.850.m..|
00000940: 01 3A 20 20 99 22 11 11 11 11 20 20 20 20 D2 45 |.: .".... .E|
00000950: 4D 45 4D 42 45 52 20 54 4F 20 48 49 54 20 3C 52 |MEMBER TO HIT <R|
00000960: 45 54 55 52 4E 3E 20 41 46 54 45 52 22 00 99 11 |ETURN> AFTER"...|
00000970: 9E 01 3A 20 20 99 22 20 20 20 54 59 50 49 4E 47 |..: ." TYPING|
00000980: 20 59 4F 55 52 20 41 4E 53 57 45 52 2E 20 D4 48 | YOUR ANSWER. .H|
00000990: 49 53 20 54 45 4C 4C 53 22 00 C6 11 A0 01 3A 20 |IS TELLS".....: |
000009A0: 20 99 22 20 20 20 54 48 45 20 43 4F 4D 50 55 54 | ." THE COMPUT|
000009B0: 45 52 20 54 4F 20 41 43 43 45 50 54 20 57 48 41 |ER TO ACCEPT WHA|
000009C0: 54 20 59 4F 55 22 00 E0 11 A2 01 3A 20 20 99 22 |T YOU".....: ."|
000009D0: 20 20 20 48 41 56 45 20 54 59 50 45 44 2E 11 22 | HAVE TYPED.."|
000009E0: 00 0F 12 A4 01 3A 20 20 99 22 20 20 20 20 D4 59 |.....: ." .Y|
000009F0: 50 45 20 3C D3 48 49 46 54 45 44 20 48 3E 20 41 |PE <.HIFTED H> A|
00000A00: 54 20 41 4E 59 20 54 49 4D 45 20 54 4F 20 22 00 |T ANY TIME TO ".|
00000A10: 3F 12 A6 01 3A 20 20 99 22 20 20 20 52 45 54 55 |?...: ." RETU|
00000A20: 52 4E 20 54 4F 20 54 48 45 20 4D 45 4E 55 20 46 |RN TO THE MENU F|
00000A30: 4F 52 20 48 45 4C 50 2E 20 20 D9 4F 55 20 22 00 |OR HELP. .OU ".|
00000A40: 6E 12 A8 01 3A 20 20 99 22 20 20 20 57 49 4C 4C |n...: ." WILL|
00000A50: 20 42 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 | BE RETURNED TO |
00000A60: 54 48 45 20 50 4C 41 43 45 20 49 4E 20 22 00 9E |THE PLACE IN "..|
00000A70: 12 AA 01 3A 20 20 99 22 20 20 20 54 48 45 20 50 |...: ." THE P|
00000A80: 52 4F 47 52 41 4D 20 57 48 45 52 45 20 59 4F 55 |ROGRAM WHERE YOU|
00000A90: 20 4C 45 46 54 20 4F 46 46 20 41 53 20 22 00 CC | LEFT OFF AS "..|
00000AA0: 12 AC 01 3A 20 20 99 22 20 20 20 53 4F 4F 4E 20 |...: ." SOON |
00000AB0: 41 53 20 54 48 45 20 4F 50 54 49 4F 4E 20 46 52 |AS THE OPTION FR|
00000AC0: 4F 4D 20 54 48 45 20 4D 45 4E 55 22 00 E6 12 AE |OM THE MENU"....|
00000AD0: 01 3A 20 20 99 22 20 20 20 49 53 20 43 4F 4D 50 |.: ." IS COMP|
00000AE0: 4C 45 54 45 2E 22 00 F7 12 B1 01 3A 20 20 8D 38 |LETE.".....: .8|
00000AF0: 33 35 3A 8D 38 35 30 00 2B 13 B2 01 3A 20 20 99 |35:.850.+...: .|
00000B00: 22 11 11 11 11 20 20 20 20 C8 41 4E 47 2D 4D 41 |".... .ANG-MA|
00000B10: 54 48 20 49 53 20 41 20 C8 41 4E 47 4D 41 4E 20 |TH IS A .ANGMAN |
00000B20: 57 48 49 43 48 20 55 53 45 53 22 00 58 13 B4 01 |WHICH USES".X...|
00000B30: 3A 20 20 99 22 20 20 20 4D 41 54 48 45 4D 41 54 |: ." MATHEMAT|
00000B40: 49 43 53 20 54 45 52 4D 49 4E 4F 4C 4F 47 59 2E |ICS TERMINOLOGY.|
00000B50: 20 20 C7 55 45 53 53 22 00 82 13 B6 01 3A 20 20 | .UESS".....: |
00000B60: 99 22 20 20 20 54 48 45 20 57 4F 52 44 20 42 45 |." THE WORD BE|
00000B70: 46 4F 52 45 20 59 4F 55 20 41 52 45 20 48 55 4E |FORE YOU ARE HUN|
00000B80: 47 2E 00 B0 13 B8 01 3A 20 20 99 22 20 20 20 D9 |G......: ." .|
00000B90: 4F 55 20 48 41 56 45 20 54 4F 20 45 4E 54 45 52 |OU HAVE TO ENTER|
00000BA0: 20 54 48 45 20 57 48 4F 4C 45 20 57 4F 52 44 22 | THE WHOLE WORD"|
00000BB0: 00 DC 13 BA 01 3A 20 20 99 22 20 20 20 54 4F 20 |.....: ." TO |
00000BC0: 57 49 4E 2E 20 20 D9 4F 55 20 41 52 45 20 4E 4F |WIN. .OU ARE NO|
00000BD0: 54 20 50 45 4E 41 4C 49 5A 45 44 22 00 06 14 BB |T PENALIZED"....|
00000BE0: 01 3A 20 20 99 22 20 20 20 49 46 20 59 4F 55 20 |.: ." IF YOU |
00000BF0: 47 55 45 53 53 20 54 48 45 20 57 52 4F 4E 47 20 |GUESS THE WRONG |
00000C00: 57 4F 52 44 2E 22 00 34 14 BC 01 3A 20 20 99 22 |WORD.".4...: ."|
00000C10: 11 20 20 20 20 D4 48 45 20 43 4F 4D 50 55 54 45 |. .HE COMPUTE|
00000C20: 52 20 44 4F 45 53 20 4E 4F 54 20 43 48 45 43 4B |R DOES NOT CHECK|
00000C30: 20 49 46 22 00 64 14 BE 01 3A 20 20 99 22 20 20 | IF".d...: ." |
00000C40: 20 59 4F 55 20 47 55 45 53 53 45 44 20 54 48 45 | YOU GUESSED THE|
00000C50: 20 53 41 4D 45 20 4C 45 54 54 45 52 20 54 57 49 | SAME LETTER TWI|
00000C60: 43 45 2E 22 00 92 14 C0 01 3A 20 20 99 22 20 20 |CE.".....: ." |
00000C70: 20 C9 54 20 4A 55 53 54 20 50 52 49 4E 54 53 20 | .T JUST PRINTS |
00000C80: 41 20 4C 49 53 54 20 4F 46 20 4C 45 54 54 45 52 |A LIST OF LETTER|
00000C90: 53 22 00 BF 14 C2 01 3A 20 20 99 22 20 20 20 41 |S".....: ." A|
00000CA0: 4C 52 45 41 44 59 20 55 53 45 44 20 53 4F 20 42 |LREADY USED SO B|
00000CB0: 45 20 43 41 52 45 46 55 4C 20 57 48 45 4E 22 00 |E CAREFUL WHEN".|
00000CC0: DF 14 C4 01 3A 20 20 99 22 20 20 20 4D 41 4B 49 |....: ." MAKI|
00000CD0: 4E 47 20 59 4F 55 52 20 47 55 45 53 53 2E 22 00 |NG YOUR GUESS.".|
00000CE0: E8 14 E5 01 8D 38 33 35 00 FC 14 EA 01 8B 55 5A |.....835......UZ|
00000CF0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 02 15 F3 |.1..UP%:.217....|
00000D00: 01 8E 00 23 15 F4 01 8F 20 2A 2A 20 54 45 41 43 |...#.... ** TEAC|
00000D10: 48 45 52 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 |HER INSTRUCTIONS|
00000D20: 20 2A 2A 00 53 15 F5 01 99 22 93 22 3A 97 55 54 | **.S....".":.UT|
00000D30: 2C 55 4C 25 3A 8B C2 28 35 30 30 30 33 29 B2 30 |,UL%:..(50003).0|
00000D40: A7 97 35 33 32 38 31 2C 32 3A 97 35 33 32 38 30 |..53281,2:.53280|
00000D50: 2C 31 30 00 75 15 F6 01 55 50 B2 30 3A 55 47 24 |,10.u...UP.0:UG$|
00000D60: B2 22 D4 45 41 43 48 45 52 20 C9 4E 53 54 2E 22 |.".EACHER .NST."|
00000D70: 3A 8D 38 35 30 00 A3 15 F7 01 99 22 11 11 20 20 |:.850......".. |
00000D80: 20 20 20 20 D4 4F 20 54 48 45 20 42 45 53 54 20 | .O THE BEST |
00000D90: 4F 46 20 4F 55 52 20 4B 4E 4F 57 4C 45 44 47 45 |OF OUR KNOWLEDGE|
00000DA0: 2C 11 22 00 CC 15 F8 01 99 22 20 20 20 54 48 49 |,."......" THI|
00000DB0: 53 20 50 52 4F 47 52 41 4D 20 49 53 20 49 4E 20 |S PROGRAM IS IN |
00000DC0: 54 48 45 20 50 55 42 4C 49 43 11 22 00 F8 15 F9 |THE PUBLIC."....|
00000DD0: 01 99 22 20 20 20 44 4F 4D 41 49 4E 2E 20 20 C9 |.." DOMAIN. .|
00000DE0: 46 20 54 48 49 53 20 49 53 20 4E 4F 54 20 54 48 |F THIS IS NOT TH|
00000DF0: 45 20 43 41 53 45 11 22 00 15 16 FA 01 99 22 20 |E CASE."......" |
00000E00: 20 20 50 4C 45 41 53 45 20 43 4F 4E 54 41 43 54 | PLEASE CONTACT|
00000E10: 3A 11 11 11 22 00 3F 16 FB 01 99 22 20 20 20 20 |:...".?...." |
00000E20: 20 20 C3 4F 4D 4D 4F 44 4F 52 45 20 C2 55 53 49 | .OMMODORE .USI|
00000E30: 4E 45 53 53 20 CD 41 43 48 49 4E 45 53 11 22 00 |NESS .ACHINES.".|
00000E40: 62 16 FC 01 99 22 20 20 20 20 20 20 20 20 20 20 |b...." |
00000E50: 33 33 37 30 20 D0 48 41 52 4D 41 43 59 20 C1 56 |3370 .HARMACY .V|
00000E60: 45 2E 00 86 16 FD 01 99 22 20 20 20 20 20 20 20 |E......." |
00000E70: 20 20 20 C1 47 49 4E 43 4F 55 52 54 2C 20 CF 4E | .GINCOURT, .N|
00000E80: 54 41 52 49 4F 22 00 A8 16 FE 01 99 22 20 20 20 |TARIO"......" |
00000E90: 20 20 20 20 20 20 20 C3 41 4E 41 44 41 20 20 20 | .ANADA |
00000EA0: CD 31 D7 20 32 CB 34 22 00 C8 16 FF 01 99 22 20 |.1. 2.4"......" |
00000EB0: 20 20 20 20 20 20 20 20 20 28 34 31 36 29 20 34 | (416) 4|
00000EC0: 39 39 2D 34 32 39 32 22 00 DE 16 00 02 55 50 B2 |99-4292".....UP.|
00000ED0: 31 3A 8D 20 38 33 35 3A 8D 20 38 35 30 3A 00 07 |1:. 835:. 850:..|
00000EE0: 17 01 02 99 22 20 20 20 20 20 11 11 D0 52 4F 47 |...." ...ROG|
00000EF0: 52 41 4D 20 CE 41 4D 45 3A 20 C8 41 4E 47 4D 41 |RAM .AME: .ANGMA|
00000F00: 54 48 20 20 20 11 22 00 30 17 02 02 99 22 20 20 |TH .".0...." |
00000F10: 20 20 20 D7 52 49 54 54 45 4E 20 C2 59 20 20 3A | .RITTEN .Y :|
00000F20: 20 C4 2E 20 CE 2E 20 D3 4D 49 54 48 20 11 20 22 | .. .. .MITH . "|
00000F30: 00 57 17 03 02 99 22 20 20 20 20 20 D5 50 47 52 |.W...." .PGR|
00000F40: 41 44 45 44 20 C2 59 20 3A 20 C4 45 52 45 4B 20 |ADED .Y : .EREK |
00000F50: CC 45 45 20 20 11 22 00 82 17 04 02 99 22 20 20 |.EE ."......" |
00000F60: 20 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D | ..HIS PROGRAM|
00000F70: 20 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 | WILL RUN ON ANY|
00000F80: 11 11 00 A2 17 07 02 99 22 20 20 20 20 20 20 20 |........" |
00000F90: 20 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 | ... 64 .......|
00000FA0: D2 11 00 C7 17 08 02 99 22 20 20 20 20 20 20 20 |........" |
00000FB0: 20 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 | ......... 64 .|
00000FC0: CF CD D0 D5 D4 C5 D2 00 D0 17 09 02 8D 38 33 35 |.............835|
00000FD0: 00 E4 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A |...N..UZ.1..UP%:|
00000FE0: 89 32 31 37 00 EA 17 57 02 8E 00 10 18 58 02 8F |.217...W.....X..|
00000FF0: 20 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 | ** PROGRAM MODI|
00001000: 46 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A |FICATION INST **|
00001010: 00 21 18 59 02 99 22 93 22 3A 97 55 54 2C 55 4C |.!.Y..".":.UT,UL|
00001020: 25 00 41 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 |%.A.].UP.0:UG$."|
00001030: D0 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 |.ROGRAM .OD":.85|
00001040: 30 00 71 18 62 02 3A 20 20 99 22 11 20 20 20 20 |0.q.b.: .". |
00001050: D4 48 45 20 57 4F 52 44 53 20 43 41 4E 20 42 45 |.HE WORDS CAN BE|
00001060: 20 45 41 53 49 4C 59 20 43 48 41 4E 47 45 44 2E | EASILY CHANGED.|
00001070: 22 00 9F 18 64 02 3A 20 20 99 22 11 20 20 20 D4 |"...d.: .". .|
00001080: 48 45 59 20 43 41 4E 20 42 45 20 43 48 41 4E 47 |HEY CAN BE CHANG|
00001090: 45 44 20 42 59 20 43 48 41 4E 47 49 4E 47 22 00 |ED BY CHANGING".|
000010A0: CF 18 66 02 3A 20 20 99 22 11 20 20 20 41 4E 59 |..f.: .". ANY|
000010B0: 20 4F 52 20 41 4C 4C 20 4F 46 20 54 48 45 20 57 | OR ALL OF THE W|
000010C0: 4F 52 44 53 20 46 52 4F 4D 20 4C 49 4E 45 22 00 |ORDS FROM LINE".|
000010D0: FE 18 68 02 3A 20 20 99 22 11 20 20 20 31 36 37 |..h.: .". 167|
000010E0: 30 20 54 4F 20 32 35 32 35 2E 20 D4 48 45 52 45 |0 TO 2525. .HERE|
000010F0: 20 49 53 20 41 20 4D 41 58 49 4D 55 4D 22 00 2C | IS A MAXIMUM".,|
00001100: 19 6A 02 3A 20 20 99 22 11 20 20 20 4F 46 20 31 |.j.: .". OF 1|
00001110: 30 30 20 57 4F 52 44 53 20 54 48 41 54 20 43 41 |00 WORDS THAT CA|
00001120: 4E 20 42 45 20 53 54 4F 52 45 44 22 00 5A 19 6C |N BE STORED".Z.l|
00001130: 02 3A 20 20 99 22 11 20 20 20 46 52 4F 4D 20 41 |.: .". FROM A|
00001140: 24 28 31 29 20 54 4F 20 41 24 28 31 30 30 29 2E |$(1) TO A$(100).|
00001150: 20 D4 48 45 52 45 20 49 53 22 00 89 19 6E 02 3A | .HERE IS"...n.:|
00001160: 20 20 99 22 11 20 20 20 41 4C 53 4F 20 41 20 4D | .". ALSO A M|
00001170: 41 58 49 4D 55 4D 20 4F 46 20 31 36 20 4C 45 54 |AXIMUM OF 16 LET|
00001180: 54 45 52 53 20 50 45 52 22 00 9D 19 70 02 3A 20 |TERS PER"...p.: |
00001190: 20 99 22 11 20 20 20 57 4F 52 44 2E 22 00 AE 19 | .". WORD."...|
000011A0: 72 02 3A 20 20 8D 38 33 35 3A 8D 38 35 30 00 DF |r.: .835:.850..|
000011B0: 19 74 02 3A 20 20 99 22 11 11 11 11 20 20 20 20 |.t.: .".... |
000011C0: C1 46 54 45 52 20 43 48 41 4E 47 49 4E 47 20 54 |.FTER CHANGING T|
000011D0: 48 45 20 57 4F 52 44 53 2C 20 4C 49 4E 45 22 00 |HE WORDS, LINE".|
000011E0: 07 1A 76 02 3A 20 20 99 22 11 20 20 20 32 35 32 |..v.: .". 252|
000011F0: 37 20 4D 55 53 54 20 42 45 20 43 48 41 4E 47 45 |7 MUST BE CHANGE|
00001200: 44 20 54 4F 4F 2E 22 00 33 1A 78 02 3A 20 20 99 |D TOO.".3.x.: .|
00001210: 22 11 11 20 20 20 20 20 20 32 35 32 37 20 D2 3D |".. 2527 .=|
00001220: C9 CE D4 28 12 38 35 92 2A D2 CE C4 28 32 29 29 |...(.85.*...(2))|
00001230: 2B 31 22 00 51 1A 7A 02 3A 20 20 99 22 20 20 20 |+1".Q.z.: ." |
00001240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 5E 5E | ^^|
00001250: 22 00 81 1A 7C 02 3A 20 20 99 22 11 11 20 20 20 |"...|.: .".. |
00001260: 20 C3 48 41 4E 47 45 20 54 48 49 53 20 4E 55 4D | .HANGE THIS NUM|
00001270: 42 45 52 20 54 4F 20 54 48 45 20 54 4F 54 41 4C |BER TO THE TOTAL|
00001280: 22 00 AF 1A 7E 02 3A 20 20 99 22 11 20 20 20 4E |"...~.: .". N|
00001290: 55 4D 42 45 52 20 4F 46 20 57 4F 52 44 53 20 54 |UMBER OF WORDS T|
000012A0: 48 41 54 20 41 52 45 20 54 48 45 52 45 2E 22 00 |HAT ARE THERE.".|
000012B0: B8 1A 94 02 8D 38 33 35 00 CC 1A B2 02 8B 55 5A |.....835......UZ|
000012C0: B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 D2 1A BB |.1..UP%:.217....|
000012D0: 02 8E 00 F7 1A BC 02 8F 20 2A 2A 20 54 4F 20 55 |........ ** TO U|
000012E0: 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D |SE 8032 LOAD CBM|
000012F0: 34 30 33 32 20 2A 2A 00 2D 1B C6 02 99 22 93 11 |4032 **.-...."..|
00001300: 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E |...BEFORE RUNNIN|
00001310: 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F |G THIS PROGRAM O|
00001320: 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 63 1B |N AN 8032 ...c.|
00001330: D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 |..." LOAD T|
00001340: 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 |HE 'CBM 4032' PR|
00001350: 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 |OGRAM...........|
00001360: 11 11 22 00 6E 1B DA 02 9E 55 55 AA 37 31 00 74 |..".n....UU.71.t|
00001370: 1B E4 02 80 00 94 1B 20 03 8F 20 2A 2A 20 54 20 |....... .. ** T |
00001380: 49 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 |I T L E P A G |
00001390: 45 20 2A 2A 00 C8 1B 22 03 99 22 93 11 1D 05 22 |E **...".."...."|
000013A0: 3B 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 |;:.UT,UU%:..(500|
000013B0: 30 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A |03).0..53280,14:|
000013C0: 97 35 33 32 38 31 2C 36 00 DE 1B 24 03 81 49 B2 |.53281,6...$..I.|
000013D0: 31 A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 F6 |1.38:."...";:...|
000013E0: 1B 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 |.&..I.1.22:."...|
000013F0: A6 92 22 3B 3A 82 00 0E 1C 28 03 81 49 B2 31 A4 |..";:....(..I.1.|
00001400: 33 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 26 |37:.".....";:..&|
00001410: 1C 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 |.*..I.1.22:."...|
00001420: A6 92 22 3B 3A 82 00 4B 1C 2C 03 99 22 13 11 11 |..";:..K.,.."...|
00001430: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001440: 1D 1D 1D 1D 1D 1D 12 A9 20 20 92 00 6D 1C 2E 03 |........ ..m...|
00001450: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00001460: 1D 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 8E 1C |..... . . .....|
00001470: 30 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |0.."............|
00001480: 1D 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 AC |....... . .....|
00001490: 1C 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.2.."...........|
000014A0: 1D 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 D4 1C 34 |......... ....4|
000014B0: 03 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000014C0: 1D 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 |.C O M M O D O R|
000014D0: 20 45 11 11 00 F7 1C 36 03 99 22 1D 1D 1D 1D 1D | E.....6..".....|
000014E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 |..........EDUCAT|
000014F0: 49 4F 4E 41 4C 11 11 00 16 1D 38 03 99 22 1D 1D |IONAL.....8.."..|
00001500: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F |..............SO|
00001510: 46 54 57 41 52 45 00 31 1D 3A 03 8F 20 2A 2A 20 |FTWARE.1.:.. ** |
00001520: 43 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A |COMMODORE LOGO *|
00001530: 2A 00 69 1D 3B 03 99 C8 28 55 44 24 2C 32 34 29 |*.i.;...(UD$,24)|
00001540: 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |;"..........PRES|
00001550: 53 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 |S SPACE BAR OR W|
00001560: 41 49 54 92 22 3A 49 B2 30 00 8B 1D 3C 03 A1 41 |AIT.":I.0...<..A|
00001570: 24 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 |$:.A$.." ".I.I.1|
00001580: 3A 8B 49 B3 32 35 30 A7 38 32 38 00 AF 1D 3E 03 |:.I.250.828...>.|
00001590: 54 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 |T1$."":T2$."":T3|
000015A0: 24 B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 |$."":T4$."":I.0.|
000015B0: B8 1D 40 03 89 33 30 30 00 D4 1D 43 03 8F 20 2A |..@..300...C.. *|
000015C0: 2A 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 |* SPACE BAR PRES|
000015D0: 53 20 2A 2A 00 09 1E 48 03 99 C8 28 55 44 24 2C |S **...H...(UD$,|
000015E0: 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 |24);".......PRES|
000015F0: 53 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 |S SPACE BAR TO C|
00001600: 4F 4E 54 49 4E 55 45 92 22 00 20 1E 4C 03 A1 55 |ONTINUE.". .L..U|
00001610: 49 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 |I$:.UI$.." ".844|
00001620: 00 26 1E 4E 03 8E 00 46 1E 52 03 8F 20 2A 2A 20 |.&.N...F.R.. ** |
00001630: 50 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 |PAGE DESIGN ROUT|
00001640: 49 4E 45 20 2A 2A 00 52 1E 54 03 55 50 B2 55 50 |INE **.R.T.UP.UP|
00001650: AA 31 00 79 1E 57 03 99 22 93 22 C8 28 55 54 24 |.1.y.W..".".(UT$|
00001660: AA 55 50 24 2C 32 31 29 3B C8 28 55 47 24 AA 55 |.UP$,21);.(UG$.U|
00001670: 50 24 2C 31 34 29 3B 55 50 00 A8 1E 5C 03 99 22 |P$,14);UP...\.."|
00001680: 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D | ---------------|
00001690: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000016A0: 2D 2D 2D 2D 2D 2D 2D 22 00 DC 1E 61 03 99 C8 28 |-------"...a...(|
000016B0: 55 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 36 29 |UD$,24);.(UP$,6)|
000016C0: 3B 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 |;"HELP - PRESS |
000016D0: 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 E8 1E 66 | H <RETURN>"...f|
000016E0: 03 99 22 13 11 22 3A 8E 00 07 1F 6B 03 8F 20 2A |.."..":....k.. *|
000016F0: 2A 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 |* PLEASE WAIT RE|
00001700: 4D 41 52 4B 20 2A 2A 00 3D 1F 70 03 99 C8 28 55 |MARK **.=.p...(U|
00001710: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,24);" |
00001720: 20 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C | ONE MOMENT PL|
00001730: 45 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 43 1F |EASE... ".C.|
00001740: 75 03 8E 00 60 1F 84 03 8F 20 2A 2A 20 53 45 54 |u...`.... ** SET|
00001750: 20 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A | UP VARIABLES **|
00001760: 00 AB 1F 85 03 55 58 24 B2 22 C8 22 3A 86 55 51 |.....UX$.".":.UQ|
00001770: 25 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 |%(1000):UB.32768|
00001780: 3A 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 |:U1.196:U2.197:U|
00001790: 33 B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 |3.198:U4.216:UC.|
000017A0: 31 36 37 3A 55 55 B2 31 30 32 34 00 E2 1F 86 03 |167:UU.1024.....|
000017B0: 55 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A |UT.59468:UU%.12:|
000017C0: 55 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A |UL%.14:UP%.1146:|
000017D0: 55 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 33 |UM.32768:. 50003|
000017E0: 2C 30 00 25 20 87 03 8B C2 28 35 30 30 30 33 29 |,0.% ....(50003)|
000017F0: B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 |.0.UB.1024:U1.20|
00001800: 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A |9:U2.210:U3.211:|
00001810: 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 |U4.214:UC.204:UU|
00001820: B2 32 30 34 38 00 5D 20 88 03 8B C2 28 35 30 30 |.2048.] ....(500|
00001830: 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 |03).0.UT.53272:U|
00001840: 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 |U%.21:UL%.23:UP%|
00001850: B2 32 31 33 39 3A 55 4D B2 31 30 32 34 00 81 20 |.2139:UM.1024.. |
00001860: 89 03 55 44 24 B2 22 13 11 11 11 11 11 11 11 11 |..UD$.".........|
00001870: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001880: 22 00 B3 20 8A 03 55 50 24 B2 22 20 20 20 20 20 |".. ..UP$." |
00001890: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018B0: 20 20 22 00 FE 20 8B 03 55 54 24 B2 22 20 C8 C1 | ".. ..UT$." ..|
000018C0: CE C7 CD C1 D4 C8 20 20 A0 A0 A0 A0 A0 22 3A 8F |...... .....":.|
000018D0: 20 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 | PLACE PROGRAM T|
000018E0: 49 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 |ITLE HERE !!!!!!|
000018F0: 21 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 04 |!!!!!!!!!!!***..|
00001900: 21 8C 03 8E 00 1E 21 8E 03 8F 20 2A 2A 20 53 45 |!.....!... ** SE|
00001910: 54 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 3B |T VARIABLES **.;|
00001920: 21 8F 03 86 50 24 28 32 30 29 3A 86 41 24 28 31 |!...P$(20):.A$(1|
00001930: 30 30 29 3A 86 51 24 28 32 30 29 00 44 21 93 03 |00):.Q$(20).D!..|
00001940: 8D 39 30 30 00 5F 21 98 03 8F 20 2A 2A 20 43 48 |.900._!... ** CH|
00001950: 45 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 |ECK FOR 8032 **.|
00001960: 7D 21 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 |}!...".":.".":. |
00001970: 53 48 49 46 54 45 44 20 53 50 41 43 45 00 94 21 |SHIFTED SPACE..!|
00001980: A2 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 |....(UB.40)..96.|
00001990: 8D 37 30 30 00 AD 21 A3 03 8F 20 2A 2A 20 4D 45 |.700..!... ** ME|
000019A0: 4D 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 C1 21 |MORY CHECK **..!|
000019B0: A4 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 |... .(0).2000.93|
000019C0: 37 00 EF 21 A5 03 99 22 93 11 11 05 54 48 49 53 |7..!..."....THIS|
000019D0: 20 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F | MACHINE DOES NO|
000019E0: 54 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 |T HAVE ENOUGH.".|
000019F0: 13 22 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 |."..."MEMORY TO |
00001A00: 52 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D |RUN THIS PROGRAM|
00001A10: 20 21 22 00 1E 22 A7 03 9E 55 55 AA 37 31 00 24 | !".."...UU.71.$|
00001A20: 22 A8 03 80 00 3E 22 A9 03 99 22 93 05 22 3A 8B |"....>"..."..":.|
00001A30: C2 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 6D |.(50003).0.962.m|
00001A40: 22 AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E |"... ** BASIC 2.|
00001A50: 30 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 |0 OR 4.0 OR |
00001A60: 43 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 AB 22 |C-64 SETUP **.."|
00001A70: AD 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 |...1075,133:.107|
00001A80: 36 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A |6,144:.1077,234:|
00001A90: 97 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 |.1079,4:.1080,13|
00001AA0: 33 3A 97 31 30 38 31 2C 31 34 35 00 E1 22 AE 03 |3:.1081,145.."..|
00001AB0: 97 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C |.1091,155:.1098,|
00001AC0: 31 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 |133:.1099,144:.1|
00001AD0: 31 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 |100,234:.1103,13|
00001AE0: 33 00 03 23 AF 03 97 31 31 30 34 2C 31 34 35 3A |3..#...1104,145:|
00001AF0: 97 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C |.1105,234:.1082,|
00001B00: 32 33 34 00 1A 23 B1 03 8B C2 28 35 30 30 30 33 |234..#....(50003|
00001B10: 29 B3 B1 31 36 30 A7 39 35 35 00 49 23 B6 03 97 |)..160.955.I#...|
00001B20: 31 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 |1093,88:.1094,22|
00001B30: 38 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 |8:.1097,85:.1102|
00001B40: 2C 32 32 38 3A 89 39 36 35 00 5E 23 BB 03 8B C2 |,228:.965.^#....|
00001B50: 28 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 8D |(50003)..1.990..|
00001B60: 23 C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 |#...1093,49:.109|
00001B70: 34 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 |4,230:.1097,46:.|
00001B80: 31 31 30 32 2C 32 33 30 3A 89 39 36 35 00 C7 23 |1102,230:.965..#|
00001B90: C2 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 |...2099,141:.210|
00001BA0: 30 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 |0,20:.2101,3:.21|
00001BB0: 30 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 |03,8:.2104,141:.|
00001BC0: 32 31 30 35 2C 32 31 00 03 24 C3 03 97 32 31 30 |2105,21..$...210|
00001BD0: 36 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 |6,3:.2115,145:.2|
00001BE0: 31 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 |117,52:.2118,234|
00001BF0: 3A 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C |:.2121,49:.2122,|
00001C00: 31 34 31 00 3D 24 C4 03 97 32 31 32 33 2C 32 30 |141.=$...2123,20|
00001C10: 3A 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 |:.2124,3:.2126,2|
00001C20: 33 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 |34:.2127,141:.21|
00001C30: 32 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 5B 24 |28,21:.2129,3.[$|
00001C40: C5 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 |...UU.48:. DISAB|
00001C50: 4C 45 20 53 54 4F 50 20 4B 45 59 00 6C 24 CA 03 |LE STOP KEY.l$..|
00001C60: 8D 38 30 30 3A 8F 20 54 49 54 4C 45 00 7C 24 D4 |.800:. TITLE.|$.|
00001C70: 03 89 33 30 30 3A 8F 20 4D 45 4E 55 00 AD 24 DE |..300:. MENU..$.|
00001C80: 03 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C |..".THE PGM WILL|
00001C90: 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 | NOT WORK ON THI|
00001CA0: 53 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 E2 24 |S MACHINE!":...$|
00001CB0: E8 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 |...UZ.1..UP%:.UP|
00001CC0: 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 |%:UZ.0:. ** PROG|
00001CD0: 52 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 |RAM STARTS HERE |
00001CE0: 2A 2A 00 0E 25 E9 03 99 22 93 05 22 3B 3A 8C 3A |**..%..."..";:.:|
00001CF0: 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 |..(50003).0..532|
00001D00: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 1C |81,6:.53280,14..|
00001D10: 25 DC 05 45 B2 30 3A 45 24 B2 22 22 00 3C 25 F0 |%..E.0:E$."".<%.|
00001D20: 05 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00001D30: 20 20 20 48 41 4E 47 4D 41 54 48 22 00 6B 25 F5 | HANGMATH".k%.|
00001D40: 05 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.." ------------|
00001D50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00001D60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 A2 25 FA 05 |----------"..%..|
00001D70: 3A 20 20 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |: ..(UD$,24);.(|
00001D80: 55 50 24 2C 35 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,5);"HELP - P|
00001D90: 52 45 53 53 20 20 20 3F 20 3C 52 45 54 55 52 4E |RESS ? <RETURN|
00001DA0: 3E 22 00 B9 25 04 06 99 22 13 11 11 11 11 11 11 |>"..%...".......|
00001DB0: 11 11 11 11 11 11 11 11 22 00 D8 25 18 06 99 22 |........"..%..."|
00001DC0: 20 20 4C 45 54 54 45 52 53 20 55 53 45 44 20 41 | LETTERS USED A|
00001DD0: 4C 52 45 41 44 59 3D 22 00 DE 25 22 06 99 00 F4 |LREADY="..%"....|
00001DE0: 25 2C 06 99 22 20 20 47 55 45 53 53 20 4E 55 4D |%,.." GUESS NUM|
00001DF0: 42 45 52 22 00 1E 26 36 06 99 3A 99 3A 99 20 22 |BER"..&6..:.:. "|
00001E00: 20 20 12 45 4E 54 45 52 20 43 4F 4D 50 4C 45 54 | .ENTER COMPLET|
00001E10: 45 20 57 4F 52 44 20 54 4F 20 57 49 4E 22 00 28 |E WORD TO WIN".(|
00001E20: 26 54 06 88 20 4C B2 30 00 39 26 5E 06 81 20 49 |&T.. L.0.9&^.. I|
00001E30: 20 B2 20 31 20 A4 20 32 30 00 4A 26 68 06 88 20 | . 1 . 20.J&h.. |
00001E40: 50 24 28 49 29 B2 22 A4 20 22 00 52 26 72 06 82 |P$(I).". ".R&r..|
00001E50: 20 49 00 5C 26 7C 06 88 20 43 B2 31 00 73 26 86 | I.\&|.. C.1.s&.|
00001E60: 06 41 24 28 31 29 B2 22 50 59 54 48 41 47 4F 52 |.A$(1)."PYTHAGOR|
00001E70: 41 53 22 00 88 26 90 06 41 24 28 32 29 B2 22 53 |AS"..&..A$(2)."S|
00001E80: 59 4D 4D 45 54 52 59 22 00 9C 26 9A 06 41 24 28 |YMMETRY"..&..A$(|
00001E90: 33 29 B2 22 46 4F 52 4D 55 4C 41 22 00 B0 26 A4 |3)."FORMULA"..&.|
00001EA0: 06 41 24 28 34 29 B2 22 50 59 52 41 4D 49 44 22 |.A$(4)."PYRAMID"|
00001EB0: 00 C6 26 AE 06 41 24 28 35 29 B2 22 52 45 43 54 |..&..A$(5)."RECT|
00001EC0: 41 4E 47 4C 45 22 00 DB 26 B8 06 41 24 28 36 29 |ANGLE"..&..A$(6)|
00001ED0: B2 22 54 52 49 41 4E 47 4C 45 22 00 F0 26 C2 06 |."TRIANGLE"..&..|
00001EE0: 41 24 28 37 29 B2 22 41 44 44 49 54 49 4F 4E 22 |A$(7)."ADDITION"|
00001EF0: 00 0A 27 CC 06 41 24 28 38 29 B2 22 41 50 50 52 |..'..A$(8)."APPR|
00001F00: 4F 58 49 4D 41 54 49 4F 4E 22 00 22 27 D6 06 41 |OXIMATION"."'..A|
00001F10: 24 28 39 29 B2 22 53 55 42 54 52 41 43 54 49 4F |$(9)."SUBTRACTIO|
00001F20: 4E 22 00 3E 27 E0 06 41 24 28 31 30 29 B2 22 4D |N".>'..A$(10)."M|
00001F30: 55 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 00 56 |ULTIPLICATION".V|
00001F40: 27 EA 06 41 24 28 31 31 29 B2 22 53 54 41 54 49 |'..A$(11)."STATI|
00001F50: 53 54 49 43 53 22 00 6F 27 F4 06 41 24 28 31 32 |STICS".o'..A$(12|
00001F60: 29 B2 22 50 52 4F 42 41 42 49 4C 49 54 59 22 00 |)."PROBABILITY".|
00001F70: 86 27 FE 06 41 24 28 31 33 29 B2 22 48 49 53 54 |.'..A$(13)."HIST|
00001F80: 4F 47 52 41 4D 22 00 98 27 08 07 41 24 28 31 34 |OGRAM"..'..A$(14|
00001F90: 29 B2 22 43 55 42 45 22 00 AE 27 12 07 41 24 28 |)."CUBE"..'..A$(|
00001FA0: 31 35 29 B2 22 50 41 52 41 4C 4C 45 4C 22 00 C6 |15)."PARALLEL"..|
00001FB0: 27 1C 07 41 24 28 31 36 29 B2 22 43 4F 4F 52 44 |'..A$(16)."COORD|
00001FC0: 49 4E 41 54 45 22 00 DA 27 26 07 41 24 28 31 37 |INATE"..'&.A$(17|
00001FD0: 29 B2 22 53 51 55 41 52 45 22 00 EE 27 30 07 41 |)."SQUARE"..'0.A|
00001FE0: 24 28 31 38 29 B2 22 4D 41 54 52 49 58 22 00 02 |$(18)."MATRIX"..|
00001FF0: 28 3A 07 41 24 28 31 39 29 B2 22 43 49 52 43 4C |(:.A$(19)."CIRCL|
00002000: 45 22 00 17 28 44 07 41 24 28 32 30 29 B2 22 52 |E"..(D.A$(20)."R|
00002010: 48 4F 4D 42 55 53 22 00 2A 28 4E 07 41 24 28 32 |HOMBUS".*(N.A$(2|
00002020: 31 29 B2 22 47 52 41 50 48 22 00 43 28 58 07 41 |1)."GRAPH".C(X.A|
00002030: 24 28 32 32 29 B2 22 4D 41 54 48 45 4D 41 54 49 |$(22)."MATHEMATI|
00002040: 43 53 22 00 58 28 62 07 41 24 28 32 33 29 B2 22 |CS".X(b.A$(23)."|
00002050: 41 4C 47 45 42 52 41 22 00 6E 28 6C 07 41 24 28 |ALGEBRA".n(l.A$(|
00002060: 32 34 29 B2 22 47 45 4F 4D 45 54 52 59 22 00 80 |24)."GEOMETRY"..|
00002070: 28 76 07 41 24 28 32 35 29 B2 22 41 58 45 53 22 |(v.A$(25)."AXES"|
00002080: 00 94 28 80 07 41 24 28 32 36 29 B2 22 4F 52 49 |..(..A$(26)."ORI|
00002090: 47 49 4E 22 00 A9 28 8A 07 41 24 28 32 37 29 B2 |GIN"..(..A$(27).|
000020A0: 22 48 45 58 41 47 4F 4E 22 00 BF 28 94 07 41 24 |"HEXAGON"..(..A$|
000020B0: 28 32 38 29 B2 22 43 4F 4D 50 55 54 45 52 22 00 |(28)."COMPUTER".|
000020C0: D3 28 9E 07 41 24 28 32 39 29 B2 22 56 45 52 54 |.(..A$(29)."VERT|
000020D0: 45 58 22 00 EA 28 A8 07 41 24 28 33 30 29 B2 22 |EX"..(..A$(30)."|
000020E0: 43 41 4C 43 55 4C 41 54 45 22 00 00 29 B2 07 41 |CALCULATE"..)..A|
000020F0: 24 28 33 31 29 B2 22 45 56 41 4C 55 41 54 45 22 |$(31)."EVALUATE"|
00002100: 00 14 29 BC 07 41 24 28 33 32 29 B2 22 46 49 47 |..)..A$(32)."FIG|
00002110: 55 52 45 22 00 2A 29 C6 07 41 24 28 33 33 29 B2 |URE".*)..A$(33).|
00002120: 22 46 52 41 43 54 49 4F 4E 22 00 3F 29 D0 07 41 |"FRACTION".?)..A|
00002130: 24 28 33 34 29 B2 22 44 45 43 49 4D 41 4C 22 00 |$(34)."DECIMAL".|
00002140: 53 29 DA 07 41 24 28 33 35 29 B2 22 4E 55 4D 42 |S)..A$(35)."NUMB|
00002150: 45 52 22 00 65 29 E4 07 41 24 28 33 36 29 B2 22 |ER".e)..A$(36)."|
00002160: 41 52 45 41 22 00 78 29 EE 07 41 24 28 33 37 29 |AREA".x)..A$(37)|
00002170: B2 22 54 4F 54 41 4C 22 00 90 29 F8 07 41 24 28 |."TOTAL"..)..A$(|
00002180: 33 38 29 B2 22 50 45 52 43 45 4E 54 41 47 45 22 |38)."PERCENTAGE"|
00002190: 00 A2 29 02 08 41 24 28 33 39 29 B2 22 46 49 4E |..)..A$(39)."FIN|
000021A0: 44 22 00 B5 29 0C 08 41 24 28 34 30 29 B2 22 52 |D"..)..A$(40)."R|
000021B0: 41 54 49 4F 22 00 CA 29 16 08 41 24 28 34 31 29 |ATIO"..)..A$(41)|
000021C0: B2 22 41 56 45 52 41 47 45 22 00 DD 29 20 08 41 |."AVERAGE"..) .A|
000021D0: 24 28 34 32 29 B2 22 41 4E 47 4C 45 22 00 F3 29 |$(42)."ANGLE"..)|
000021E0: 2A 08 41 24 28 34 33 29 B2 22 44 49 41 47 4F 4E |*.A$(43)."DIAGON|
000021F0: 41 4C 22 00 09 2A 34 08 41 24 28 34 34 29 B2 22 |AL"..*4.A$(44)."|
00002200: 45 51 55 41 54 49 4F 4E 22 00 1C 2A 3E 08 41 24 |EQUATION"..*>.A$|
00002210: 28 34 35 29 B2 22 50 4C 41 4E 45 22 00 30 2A 48 |(45)."PLANE".0*H|
00002220: 08 41 24 28 34 36 29 B2 22 4D 45 44 49 41 4E 22 |.A$(46)."MEDIAN"|
00002230: 00 42 2A 52 08 41 24 28 34 37 29 B2 22 4D 4F 44 |.B*R.A$(47)."MOD|
00002240: 45 22 00 54 2A 5C 08 41 24 28 34 38 29 B2 22 4D |E".T*\.A$(48)."M|
00002250: 45 41 4E 22 00 68 2A 66 08 41 24 28 34 39 29 B2 |EAN".h*f.A$(49).|
00002260: 22 56 45 43 54 4F 52 22 00 7D 2A 70 08 41 24 28 |"VECTOR".}*p.A$(|
00002270: 35 30 29 B2 22 50 4F 4C 59 47 4F 4E 22 00 96 2A |50)."POLYGON"..*|
00002280: 7A 08 41 24 28 35 31 29 B2 22 45 4E 4C 41 52 47 |z.A$(51)."ENLARG|
00002290: 45 4D 45 4E 54 22 00 A9 2A 84 08 41 24 28 35 32 |EMENT"..*..A$(52|
000022A0: 29 B2 22 53 43 41 4C 45 22 00 BD 2A 8E 08 41 24 |)."SCALE"..*..A$|
000022B0: 28 35 33 29 B2 22 46 41 43 54 4F 52 22 00 D0 2A |(53)."FACTOR"..*|
000022C0: 98 08 41 24 28 35 34 29 B2 22 50 52 49 4D 45 22 |..A$(54)."PRIME"|
000022D0: 00 E8 2A A2 08 41 24 28 35 35 29 B2 22 43 45 4E |..*..A$(55)."CEN|
000022E0: 54 49 4D 45 54 52 45 22 00 FE 2A AC 08 41 24 28 |TIMETRE"..*..A$(|
000022F0: 35 36 29 B2 22 4D 55 4C 54 49 50 4C 45 22 00 11 |56)."MULTIPLE"..|
00002300: 2B B6 08 41 24 28 35 37 29 B2 22 4D 45 54 52 45 |+..A$(57)."METRE|
00002310: 22 00 25 2B C0 08 41 24 28 35 38 29 B2 22 53 45 |".%+..A$(58)."SE|
00002320: 43 4F 4E 44 22 00 3B 2B CA 08 41 24 28 35 39 29 |COND".;+..A$(59)|
00002330: B2 22 4B 49 4C 4F 47 52 41 4D 22 00 4D 2B D4 08 |."KILOGRAM".M+..|
00002340: 41 24 28 36 30 29 B2 22 41 52 45 41 22 00 61 2B |A$(60)."AREA".a+|
00002350: DE 08 41 24 28 36 31 29 B2 22 56 4F 4C 55 4D 45 |..A$(61)."VOLUME|
00002360: 22 00 74 2B E8 08 41 24 28 36 32 29 B2 22 53 50 |".t+..A$(62)."SP|
00002370: 45 45 44 22 00 88 2B F2 08 41 24 28 36 33 29 B2 |EED"..+..A$(63).|
00002380: 22 4D 45 54 52 49 43 22 00 9B 2B FC 08 41 24 28 |"METRIC"..+..A$(|
00002390: 36 34 29 B2 22 57 48 4F 4C 45 22 00 B0 2B 06 09 |64)."WHOLE"..+..|
000023A0: 41 24 28 36 35 29 B2 22 42 45 41 52 49 4E 47 22 |A$(65)."BEARING"|
000023B0: 00 C2 2B 10 09 41 24 28 36 36 29 B2 22 4C 49 4E |..+..A$(66)."LIN|
000023C0: 45 22 00 D4 2B 1A 09 41 24 28 36 37 29 B2 22 4E |E"..+..A$(67)."N|
000023D0: 4F 44 45 22 00 E5 2B 24 09 41 24 28 36 38 29 B2 |ODE"..+$.A$(68).|
000023E0: 22 41 52 43 22 00 F9 2B 2E 09 41 24 28 36 39 29 |"ARC"..+..A$(69)|
000023F0: B2 22 52 45 47 49 4F 4E 22 00 0C 2C 38 09 41 24 |."REGION"..,8.A$|
00002400: 28 37 30 29 B2 22 53 4F 4C 49 44 22 00 1F 2C 42 |(70)."SOLID"..,B|
00002410: 09 41 24 28 37 31 29 B2 22 41 4E 47 4C 45 22 00 |.A$(71)."ANGLE".|
00002420: 35 2C 4C 09 41 24 28 37 32 29 B2 22 52 4F 54 41 |5,L.A$(72)."ROTA|
00002430: 54 49 4F 4E 22 00 4E 2C 56 09 41 24 28 37 33 29 |TION".N,V.A$(73)|
00002440: B2 22 54 52 41 4E 53 4C 41 54 49 4F 4E 22 00 62 |."TRANSLATION".b|
00002450: 2C 60 09 41 24 28 37 34 29 B2 22 57 45 49 47 48 |,`.A$(74)."WEIGH|
00002460: 54 22 00 74 2C 6A 09 41 24 28 37 35 29 B2 22 55 |T".t,j.A$(75)."U|
00002470: 4E 49 54 22 00 88 2C 74 09 41 24 28 37 36 29 B2 |NIT"..,t.A$(76).|
00002480: 22 48 45 49 47 48 54 22 00 9C 2C 7E 09 41 24 28 |"HEIGHT"..,~.A$(|
00002490: 37 37 29 B2 22 52 41 44 49 55 53 22 00 AE 2C 88 |77)."RADIUS"..,.|
000024A0: 09 41 24 28 37 38 29 B2 22 43 4F 4E 45 22 00 C1 |.A$(78)."CONE"..|
000024B0: 2C 92 09 41 24 28 37 39 29 B2 22 53 4C 4F 50 45 |,..A$(79)."SLOPE|
000024C0: 22 00 D9 2C 9C 09 41 24 28 38 30 29 B2 22 52 45 |"..,..A$(80)."RE|
000024D0: 46 4C 45 43 54 49 4F 4E 22 00 EE 2C A6 09 41 24 |FLECTION"..,..A$|
000024E0: 28 38 31 29 B2 22 50 52 4F 44 55 43 54 22 00 FF |(81)."PRODUCT"..|
000024F0: 2C B0 09 41 24 28 38 32 29 B2 22 53 55 4D 22 00 |,..A$(82)."SUM".|
00002500: 12 2D BA 09 41 24 28 38 33 29 B2 22 53 54 41 54 |.-..A$(83)."STAT|
00002510: 45 22 00 28 2D C4 09 41 24 28 38 34 29 B2 22 41 |E".(-..A$(84)."A|
00002520: 43 43 55 52 41 43 59 22 00 3C 2D CE 09 41 24 28 |CCURACY".<-..A$(|
00002530: 38 35 29 B2 22 54 41 42 4C 45 53 22 00 4A 2D CF |85)."TABLES".J-.|
00002540: 09 41 24 28 38 36 29 B2 22 22 00 58 2D D0 09 41 |.A$(86)."".X-..A|
00002550: 24 28 38 37 29 B2 22 22 00 66 2D D1 09 41 24 28 |$(87)."".f-..A$(|
00002560: 38 38 29 B2 22 22 00 74 2D D2 09 41 24 28 38 39 |88)."".t-..A$(89|
00002570: 29 B2 22 22 00 82 2D D3 09 41 24 28 39 30 29 B2 |).""..-..A$(90).|
00002580: 22 22 00 90 2D D4 09 41 24 28 39 31 29 B2 22 22 |""..-..A$(91).""|
00002590: 00 9E 2D D5 09 41 24 28 39 32 29 B2 22 22 00 AC |..-..A$(92).""..|
000025A0: 2D D6 09 41 24 28 39 33 29 B2 22 22 00 BA 2D D7 |-..A$(93).""..-.|
000025B0: 09 41 24 28 39 34 29 B2 22 22 00 C8 2D D8 09 41 |.A$(94).""..-..A|
000025C0: 24 28 39 35 29 B2 22 22 00 D6 2D D9 09 41 24 28 |$(95).""..-..A$(|
000025D0: 39 36 29 B2 22 22 00 E4 2D DA 09 41 24 28 39 37 |96).""..-..A$(97|
000025E0: 29 B2 22 22 00 F2 2D DB 09 41 24 28 39 38 29 B2 |).""..-..A$(98).|
000025F0: 22 22 00 00 2E DC 09 41 24 28 39 39 29 B2 22 22 |"".....A$(99).""|
00002600: 00 0F 2E DD 09 41 24 28 31 30 30 29 B2 22 22 00 |.....A$(100)."".|
00002610: 22 2E DF 09 52 B2 B5 28 38 35 AC BB 28 32 29 29 |"...R..(85..(2))|
00002620: AA 31 00 31 2E E2 09 88 20 43 24 B2 41 24 28 52 |.1.1.... C$.A$(R|
00002630: 29 00 3F 2E EC 09 88 20 4C B2 C3 28 43 24 29 00 |).?.... L..(C$).|
00002640: 49 2E F6 09 8D 32 38 34 30 00 7A 2E 00 0A 8D 33 |I....2840.z....3|
00002650: 33 33 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 |330:."..........|
00002660: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002670: 1D 1D 1D 1D 1D 1D 1D 22 3B 43 00 B3 2E 05 0A 99 |.......";C......|
00002680: C8 28 55 44 24 2C 31 39 29 3B 22 20 20 20 20 20 |.(UD$,19);" |
00002690: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000026B0: 20 20 22 00 CD 2E 0A 0A 81 20 49 5A B2 31 20 A4 | "...... IZ.1 .|
000026C0: 20 31 30 3A A1 20 42 24 3A 82 20 49 5A 00 F7 2E | 10:. B$:. IZ...|
000026D0: 0C 0A 99 C8 28 55 44 24 2C 31 39 29 3B 22 20 20 |....(UD$,19);" |
000026E0: 54 59 50 45 20 4C 45 54 54 45 52 20 4F 52 20 57 |TYPE LETTER OR W|
000026F0: 4F 52 44 2E 20 22 3B 00 2E 2F 0F 0A 55 4C B2 31 |ORD. ";../..UL.1|
00002700: 36 3A 55 53 24 B2 22 C8 41 42 43 44 45 46 47 48 |6:US$.".ABCDEFGH|
00002710: 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 |IJKLMNOPQRSTUVWX|
00002720: 59 5A 22 3A 8D 33 35 3A 42 24 B2 55 52 24 00 42 |YZ":.35:B$.UR$.B|
00002730: 2F 11 0A 8B C3 28 55 52 24 29 B2 31 36 A7 99 22 |/....(UR$).16.."|
00002740: 91 22 00 53 2F 13 0A 8B 42 24 B2 22 53 54 4F 50 |.".S/...B$."STOP|
00002750: 22 A7 8E 00 68 2F 14 0A 8B 20 C3 28 42 24 29 B2 |"...h/... .(B$).|
00002760: 4C 20 A7 20 32 37 33 30 00 7D 2F 1E 0A 8B 20 C3 |L . 2730.}/... .|
00002770: 28 42 24 29 B2 31 20 89 20 32 36 32 30 00 8E 2F |(B$).1 . 2620../|
00002780: 32 0A 43 B2 43 AA 31 3A 89 20 32 35 36 30 00 98 |2.C.C.1:. 2560..|
00002790: 2F 3C 0A 43 B2 43 AA 31 00 A5 2F 46 0A 45 24 B2 |/<.C.C.1../F.E$.|
000027A0: 45 24 AA 42 24 00 D1 2F 50 0A 99 C8 28 55 44 24 |E$.B$../P...(UD$|
000027B0: 2C 31 36 29 3B 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |,16);"..........|
000027C0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 45 |.............."E|
000027D0: 24 00 E1 2F 5A 0A 81 20 49 20 B2 20 31 20 A4 20 |$../Z.. I . 1 . |
000027E0: 4C 00 FD 2F 64 0A 8B 20 CA 28 43 24 2C 49 2C 31 |L../d.. .(C$,I,1|
000027F0: 29 B2 42 24 20 A7 20 8D 20 32 37 31 30 00 05 30 |).B$ . . 2710..0|
00002800: 6E 0A 82 20 49 00 1B 30 78 0A 8D 20 32 38 34 30 |n.. I..0x.. 2840|
00002810: 3A 8B 46 B2 31 A7 46 B2 30 3A 8E 00 26 30 82 0A |:.F.1.F.0:..&0..|
00002820: 89 20 32 35 36 30 00 2C 30 8C 0A 8E 00 3F 30 96 |. 2560.,0....?0.|
00002830: 0A 88 20 50 24 28 49 29 B2 42 24 AA 22 20 22 00 |.. P$(I).B$." ".|
00002840: 45 30 A0 0A 8E 00 55 30 AA 0A 81 20 49 20 B2 20 |E0....U0... I . |
00002850: 31 20 A4 20 4C 00 7B 30 B4 0A 8B 20 CA 28 43 24 |1 . L.{0... .(C$|
00002860: 2C 49 2C 31 29 B3 B1 CA 28 42 24 2C 49 2C 31 29 |,I,1)...(B$,I,1)|
00002870: 20 A7 20 46 4C B2 31 3A 49 B2 4C 00 81 30 D2 0A | . FL.1:I.L..0..|
00002880: 82 00 96 30 D7 0A 8B 46 4C B2 31 A7 46 4C B2 30 |...0...FL.1.FL.0|
00002890: 3A 89 32 36 30 30 00 A7 30 DC 0A 8B 20 45 B1 39 |:.2600..0... E.9|
000028A0: 20 A7 20 32 38 30 30 00 D7 30 E6 0A 99 22 93 11 | . 2800..0..."..|
000028B0: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
000028C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 12 59 4F | .YO|
000028D0: 55 20 57 4F 4E 21 22 00 E0 30 F0 0A 8D 38 33 35 |U WON!"..0...835|
000028E0: 00 E6 30 FA 0A 8E 00 EC 30 0E 0B 80 00 FA 30 18 |..0.....0.....0.|
000028F0: 0B 8F 20 44 49 53 50 4C 41 59 00 05 31 22 0B 99 |.. DISPLAY..1"..|
00002900: 22 13 11 11 22 00 1B 31 2C 0B 99 A3 28 33 38 AB |"..."..1,...(38.|
00002910: 32 AC 4C 29 AD 32 29 22 20 22 3B 00 27 31 36 0B |2.L).2)" ";.'16.|
00002920: 81 20 49 B2 31 A4 4C 00 33 31 40 0B 99 50 24 28 |. I.1.L.31@..P$(|
00002930: 49 29 3B 00 39 31 4A 0B 82 00 45 31 54 0B 99 22 |I);.91J...E1T.."|
00002940: 11 20 20 20 22 00 53 31 5E 0B 81 20 49 B2 31 20 |. ".S1^.. I.1 |
00002950: A4 20 4C 00 6D 31 68 0B 8B 20 50 24 28 49 29 B3 |. L.m1h.. P$(I).|
00002960: B1 51 24 28 49 29 20 A7 20 32 39 36 30 00 73 31 |.Q$(I) . 2960.s1|
00002970: 72 0B 82 00 7D 31 7C 0B 45 B2 45 AA 31 00 88 31 |r...}1|.E.E.1..1|
00002980: 86 0B 89 20 32 39 39 30 00 96 31 90 0B 81 20 49 |... 2990..1... I|
00002990: B2 20 31 A4 20 4C 00 A8 31 9A 0B 88 20 51 24 28 |. 1. L..1... Q$(|
000029A0: 49 29 B2 50 24 28 49 29 00 AE 31 A4 0B 82 00 B4 |I).P$(I)..1.....|
000029B0: 31 AE 0B 8F 00 C5 31 B8 0B 8B 20 45 B2 30 20 A7 |1.....1... E.0 .|
000029C0: 20 33 33 32 30 00 F5 31 C2 0B 99 22 13 11 11 11 | 3320..1..."....|
000029D0: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................|
000029E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 |................|
000029F0: A3 A3 A3 13 22 00 06 32 CC 0B 8B 20 45 B2 31 20 |...."..2... E.1 |
00002A00: A7 20 33 33 32 30 00 30 32 D6 0B 99 22 13 11 11 |. 3320.02..."...|
00002A10: 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |................|
00002A20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D CE CD 13 22 |..............."|
00002A30: 00 41 32 E0 0B 8B 20 45 B2 32 20 A7 20 33 33 32 |.A2... E.2 . 332|
00002A40: 30 00 4E 32 EA 0B 99 22 13 11 11 11 11 22 00 5D |0.N2...".....".]|
00002A50: 32 F4 0B 81 20 49 B2 20 31 20 A4 20 38 00 6A 32 |2... I. 1 . 8.j2|
00002A60: FE 0B 99 A3 31 37 29 22 A7 22 00 72 32 08 0C 82 |....17)".".r2...|
00002A70: 20 49 00 7B 32 12 0C 99 22 13 22 00 8C 32 1C 0C | I.{2..."."..2..|
00002A80: 8B 20 45 B2 33 20 A7 20 33 33 32 30 00 B2 32 26 |. E.3 . 3320..2&|
00002A90: 0C 99 22 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00002AA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D A4 A4 A4 A4 A4 A4 A4 |................|
00002AB0: 13 22 00 C3 32 30 0C 8B 20 45 B2 34 20 A7 20 33 |."..20.. E.4 . 3|
00002AC0: 33 32 30 00 E5 32 3A 0C 99 22 13 11 11 11 11 11 |320..2:.."......|
00002AD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002AE0: 1D 1D CE 13 22 00 F6 32 44 0C 8B 20 45 B2 35 20 |...."..2D.. E.5 |
00002AF0: A7 20 33 33 32 30 00 1D 33 4E 0C 99 22 13 11 11 |. 3320..3N.."...|
00002B00: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B10: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A7 13 22 00 2E 33 |............"..3|
00002B20: 58 0C 8B 20 45 B2 36 20 A7 20 33 33 32 30 00 56 |X.. E.6 . 3320.V|
00002B30: 33 62 0C 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D |3b.."...........|
00002B40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B50: 1D 1D 1D CE CD 22 00 78 33 6C 0C 99 22 1D 1D 1D |.....".x3l.."...|
00002B60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B70: 1D 1D 1D 1D CD CE 13 22 00 89 33 76 0C 8B 20 45 |......."..3v.. E|
00002B80: B2 37 20 A7 20 33 33 32 30 00 B5 33 80 0C 99 22 |.7 . 3320..3..."|
00002B90: 13 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
00002BA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 |................|
00002BB0: D0 CF A3 13 22 00 C6 33 8A 0C 8B 20 45 B2 38 20 |...."..3... E.8 |
00002BC0: A7 20 33 33 32 30 00 F2 33 94 0C 99 22 13 11 11 |. 3320..3..."...|
00002BD0: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002BE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A7 A5 |................|
00002BF0: 13 22 00 03 34 9E 0C 8B 20 45 B2 39 20 A7 20 33 |."..4... E.9 . 3|
00002C00: 33 32 30 00 36 34 A8 0C 99 22 13 11 11 11 11 11 |320.64..."......|
00002C10: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002C20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D CE CD 13 22 |..............."|
00002C30: 20 20 20 20 20 20 00 65 34 B2 0C 99 22 13 11 11 | .e4..."...|
00002C40: 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |................|
00002C50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 |................|
00002C60: 20 20 A3 13 22 00 85 34 BC 0C 99 22 13 11 11 11 | .."..4..."....|
00002C70: 11 11 11 11 20 20 59 4F 55 20 41 52 45 20 44 45 |.... YOU ARE DE|
00002C80: 41 44 21 13 22 00 A2 34 C6 0C 99 22 13 11 11 11 |AD!."..4..."....|
00002C90: 11 11 11 11 11 20 20 59 4F 55 20 4D 49 53 53 45 |..... YOU MISSE|
00002CA0: 44 22 00 B4 34 D0 0C 99 22 20 20 12 22 3B 43 24 |D"..4..." .";C$|
00002CB0: 3A 46 B2 31 00 DE 34 D2 0C 99 22 11 11 11 11 11 |:F.1..4...".....|
00002CC0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002CD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 05 | "..|
00002CE0: 35 D5 0C 99 22 11 11 20 20 20 20 20 20 20 20 20 |5...".. |
00002CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D00: 20 20 20 20 22 00 3B 35 D6 0C 3A 20 20 99 C8 28 | ".;5..: ..(|
00002D10: 55 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 |UD$,24);" |
00002D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D30: 20 20 20 20 20 20 20 20 20 20 22 00 44 35 DA 0C | ".D5..|
00002D40: 8D 38 33 35 00 4A 35 F8 0C 8E 00 80 35 02 0D 3A |.835.J5.....5..:|
00002D50: 20 20 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 | ..(UD$,24);" |
00002D60: 48 45 4C 50 20 2D 20 50 52 45 53 53 20 53 48 49 |HELP - PRESS SHI|
00002D70: 46 54 45 44 20 48 20 3C 52 45 54 55 52 4E 3E 22 |FTED H <RETURN>"|
00002D80: 00 AF 35 0C 0D 99 20 C8 28 55 44 24 2C 32 31 29 |..5... .(UD$,21)|
00002D90: 22 20 20 12 45 4E 54 45 52 20 43 4F 4D 50 4C 45 |" .ENTER COMPLE|
00002DA0: 54 45 20 57 4F 52 44 20 54 4F 20 57 49 4E 22 00 |TE WORD TO WIN".|
00002DB0: B5 35 16 0D 8E 00 00 00 |.5...... |
.......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 **
.N...:.T...:...#.. +++ INPUT SECTION +++
...(.UR$."":UI$.""...*..UL.0.UL.80.%.-..
" ..";:.UC,0.9.2..UI$:.UI$."".50.C.7..U
I$.G(13).C(UR$)..1..UC,1:." .";:.85.V.<.
.UI$.G(20).105...>.. C(UR$)..UL.50...A..
120:. CHECK FOR VALID CHARACTER...F.UR$.
UR$.UI$.I.K..UI$;.Q.P..50...U.. +++ CHEC
K FOR HELP REQUEST +++...Z..UR$.UX$.195:
. EXIT TO HELP ROUTINE.-._..UF.1..240.:.
D.UF.0:.:..S.F.. ++ CHECK DELETE ++.D.I.
.C(UR$).1.50.|.N.UR$.H(UR$,C(UR$).1)...S
..". ..";:.50...X.. ++ CHECK FOR VALID
CHARACTERS ++.G.}..C(US$).0.150.X....US.
1.C(US$)......UI$.J(US$,US,1)...........
..UI$."":....... ** STANDARD INPUT **...
...F(UI$).46...?....UI$.G(32)...\. ..F(U
I$).48.F(UI$).57.170.B.........F(UI$).6
5.F(UI$).90.180............F(UI$).193.F(
UI$).218.UI$."":..L....B(UT).UU%.UI$.G(F
(UI$).128):..R.........UI$."":....C.UF.1
:. +++ HELP ROUTINE EXIT +++...E..250...
H..245.5.M..UQ.UB.(U2%.256.U1%.U3%.2).Q.
R.UQ%(UQ.UB).B(UQ):.:.".".D.W.UZ.1:UV%.B
(UT).M.X..300...Y.UZ.0:US$.UJ$:UG$.UK$:U
P.UJ:UL.UK.I.Z..B(50003).0..53281,1:."."
;:.53281,6:.53280,14:.220.S....".";.....
UT$.UL$:.UT,UV%:.UQ.UB.(U2%.256.U1%.U3%.
3)......UQ,UQ%(UQ.UB):..#....U1,U1%./...
.U2,U2%.;....U4,U4%.I....U3,U3%.1.Q....3
5.....UD%.((U2%.256.U1%.U3%).UB).40:.H(U
D$,UD%.1):.......H(UD$,24);"
. HELP COMING . ":......U1%.B
(U1):U2%.B(U2):U3%.B(U3):U4%.B(U4).....U
J$.US$:UJ.UL.....UJ$.US$:UK$.UG$:UJ.UP:U
K.UL.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-"...;..".. 1. BEGIN HANGMATH"..
.@..".. 2. STUDENT INSTRUCTIONS"
.2.B..".. 3. TEACHER INSTRUCTION
S".`.E..".. 4. MODIFICATIONS OF
PROGRAM".|.O..".. 5. QUIT.."...T
.." ------------------------------------
--".V.Y..".. PRESS A NUMBER KEY (1
-5) ";...^.UL.1:US$."12345":.35:. INPUT
ROUTINE...`.US$."".+.C..E(UR$).1000,400,
500,600,396.4.H..300.[.... ** RE-ENABLE
STOP KEY AND END **......B(50003)..1.B(5
0003)..160.B(50003)..0.399......UU.71:.B
(50003).0..53281,6:.53280,14......"..":.
.K....875:....... ** STUDENT INSTRUCTION
S **......".":.UT,UL%:.B(50003).0..53281
,0:.53280,0.<...UP.0:UG$."STUDENT INST":
.850.M...: .".... REMEMBER TO HIT <R
ETURN> AFTER".....: ." TYPING YOUR AN
SWER. THIS TELLS".F. .: ." THE COMPUT
ER TO ACCEPT WHAT YOU".....: ." HAVE
TYPED..".....: ." TYPE <SHIFTED H> A
T ANY TIME TO ".?...: ." RETURN TO TH
E MENU FOR HELP. YOU ".N...: ." WILL
BE RETURNED TO THE PLACE IN ".....: ."
THE PROGRAM WHERE YOU LEFT OFF AS ".L
...: ." SOON AS THE OPTION FROM THE M
ENU".....: ." IS COMPLETE.".....: .8
35:.850.+...: .".... HANG-MATH IS A
HANGMAN WHICH USES".X...: ." MATHEMAT
ICS TERMINOLOGY. GUESS".....: ." THE
WORD BEFORE YOU ARE HUNG......: ." Y
OU HAVE TO ENTER THE WHOLE WORD".....:
." TO WIN. YOU ARE NOT PENALIZED"....
.: ." IF YOU GUESS THE WRONG WORD.".4
...: .". THE COMPUTER DOES NOT CHECK
IF".D...: ." YOU GUESSED THE SAME LE
TTER TWICE.".....: ." IT JUST PRINTS
A LIST OF LETTERS"...B.: ." ALREADY U
SED SO BE CAREFUL WHEN"...D.: ." MAKI
NG YOUR GUESS."......835......UZ.1..UP%:
.217.......#.... ** TEACHER INSTRUCTIONS
**.S....".":.UT,UL%:.B(50003).0..53281,
2:.53280,10.U...UP.0:UG$."TEACHER INST."
:.850......".. TO THE BEST OF OUR K
NOWLEDGE,.".L...." THIS PROGRAM IS IN
THE PUBLIC."......" DOMAIN. IF THIS I
S NOT THE CASE."......" PLEASE CONTACT
:...".?...." COMMODORE BUSINESS MAC
HINES.".B...." 3370 PHARMACY AV
E......." AGINCOURT, ONTARIO"..
...." CANADA M1W 2K4".H...."
(416) 499-4292".....UP.1:. 835:
. 850:......" ..PROGRAM NAME: HANGMA
TH .".0...." WRITTEN BY : D. N. S
MITH . ".W...." UPGRADED BY : DEREK
LEE ."......" .THIS PROGRAM WILL RU
N ON ANY........" PET 64 COMPUTE
R..G...." COMMODORE 64 COMPUTER.
P....835...N..UZ.1..UP%:.217...W.....X..
** PROGRAM MODIFICATION INST **.!.Y..".
":.UT,UL%.A.].UP.0:UG$."PROGRAM MOD":.85
0.Q.B.: .". THE WORDS CAN BE EASILY
CHANGED."...D.: .". THEY CAN BE CHANG
ED BY CHANGING".O.F.: .". ANY OR ALL
OF THE WORDS FROM LINE"...H.: .". 167
0 TO 2525. THERE IS A MAXIMUM".,.J.: ."
. OF 100 WORDS THAT CAN BE STORED".Z.L
.: .". FROM A$(1) TO A$(100). THERE I
S"...N.: .". ALSO A MAXIMUM OF 16 LET
TERS PER"...P.: .". WORD."...R.: .83
5:.850...T.: .".... AFTER CHANGING T
HE WORDS, LINE"...V.: .". 2527 MUST B
E CHANGED TOO.".3.X.: .".. 2527 R=
INT(.85.*RND(2))+1".Q.Z.: ."
^^"...|.: .".. CHANGE THIS NUM
BER TO THE TOTAL"...~.: .". NUMBER OF
WORDS THAT ARE THERE."......835.L....UZ
.1..UP%:.217.R.......... ** TO USE 8032
LOAD CBM4032 **.-.F..".....BEFORE RUNNIN
G THIS PROGRAM ON AN 8032 ...C.P.."
LOAD THE 'CBM 4032' PROGRAM...........
..".N.Z..UU.71.T....... .. ** T I T L E
P A G E **.H.".."....";:.UT,UU%:.B(500
03).0..53280,14:.53281,6...$..I.1.38:.".
..";:....&..I.1.22:.".....";:....(..I.1.
37:.".....";:..&.*..I.1.22:.".....";:..K
.,.."........................... ..M...
."................... . . .....0.."....
............... . ......2.."...........
......... ..T.4.."..............C O M M
O D O R E.....6.."...............EDUCAT
IONAL.....8.."................SOFTWARE.1
.:.. ** COMMODORE LOGO **.I.;..H(UD$,24)
;"..........PRESS SPACE BAR OR WAIT.":I.
0...<..A$:.A$.." ".I.I.1:.I.250.828...>.
T1$."":T2$."":T3$."":T4$."":I.0...@..300
.T.C.. ** SPACE BAR PRESS **...H..H(UD$,
24);".......PRESS SPACE BAR TO CONTINUE.
". .L..UI$:.UI$.." ".844.&.N...F.R.. **
PAGE DESIGN ROUTINE **.R.T.UP.UP.1.Y.W..
"."H(UT$.UP$,21);H(UG$.UP$,14);UP...\.."
--------------------------------------"
...A..H(UD$,24);H(UP$,6);"HELP - PRESS
H <RETURN>"...F.."..":....K.. ** PLEASE
WAIT REMARK **.=.P..H(UD$,24);"
ONE MOMENT PLEASE... ".C.U...`...
. ** SET UP VARIABLES **.....UX$."H":.UQ
%(1000):UB.32768:U1.196:U2.197:U3.198:U4
.216:UC.167:UU.1024.....UT.59468:UU%.12:
UL%.14:UP%.1146:UM.32768:. 50003,0.% ...
B(50003).0.UB.1024:U1.209:U2.210:U3.211:
U4.214:UC.204:UU.2048.] ...B(50003).0.UT
.53272:UU%.21:UL%.23:UP%.2139:UM.1024..
..UD$.".........................".. ..UP
$."
".. ..UT$." HANGMATH ":. PLACE P
ROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***..
!.....!... ** SET VARIABLES **.;!...P$(2
0):.A$(100):.Q$(20).D!...900._!... ** CH
ECK FOR 8032 **.}!...".":." ":. SHIFTED
SPACE..!...B(UB.40)..96..700..!... ** ME
MORY CHECK **.A!... .(0).2000.937..!..."
....THIS MACHINE DOES NOT HAVE ENOUGH.".
."..."MEMORY TO RUN THIS PROGRAM !".."..
.UU.71.$"....>"..."..":.B(50003).0.962.M
"... ** BASIC 2.0 OR 4.0 OR C-64 SET
UP **.."...1075,133:.1076,144:.1077,234:
.1079,4:.1080,133:.1081,145.."...1091,15
5:.1098,133:.1099,144:.1100,234:.1103,13
3..#...1104,145:.1105,234:.1082,234..#..
.B(50003)..160.955.I#...1093,88:.1094,22
8:.1097,85:.1102,228:.965.^#...B(50003).
.1.990..#...1093,49:.1094,230:.1097,46:.
1102,230:.965.G#B..2099,141:.2100,20:.21
01,3:.2103,8:.2104,141:.2105,21..$C..210
6,3:.2115,145:.2117,52:.2118,234:.2121,4
9:.2122,141.=$D..2123,20:.2124,3:.2126,2
34:.2127,141:.2128,21:.2129,3.[$E..UU.48
:. DISABLE STOP KEY.L$J..800:. TITLE.|$T
..300:. MENU..$...".THE PGM WILL NOT WOR
K ON THIS MACHINE!":...$...UZ.1..UP%:.UP
%:UZ.0:. ** PROGRAM STARTS HERE **..%...
"..";:.:.B(50003).0..53281,6:.53280,14..
%..E.0:E$."".<%...". HANGM
ATH".K%..." ----------------------------
----------"..%..: .H(UD$,24);H(UP$,5);"
HELP - PRESS ? <RETURN>"..%...".......
........".X%..." LETTERS USED ALREADY="
..%"....%,.." GUESS NUMBER"..&6..:.:. "
.ENTER COMPLETE WORD TO WIN".(&T.. L.0
.9&^.. I . 1 . 20.J&H.. P$(I).". ".R&R..
I.\&|.. C.1.S&..A$(1)."PYTHAGORAS"..&..
A$(2)."SYMMETRY"..&..A$(3)."FORMULA"..&.
.A$(4)."PYRAMID".F&..A$(5)."RECTANGLE"..
&..A$(6)."TRIANGLE"..&B.A$(7)."ADDITION"
..'L.A$(8)."APPROXIMATION"."'V.A$(9)."SU
BTRACTION".>'..A$(10)."MULTIPLICATION".V
'..A$(11)."STATISTICS".O'..A$(12)."PROBA
BILITY"..'..A$(13)."HISTOGRAM"..'..A$(14
)."CUBE"..'..A$(15)."PARALLEL".F'..A$(16
)."COORDINATE".Z'&.A$(17)."SQUARE"..'0.A
$(18)."MATRIX"..(:.A$(19)."CIRCLE"..(D.A
$(20)."RHOMBUS".*(N.A$(21)."GRAPH".C(X.A
$(22)."MATHEMATICS".X(B.A$(23)."ALGEBRA"
.N(L.A$(24)."GEOMETRY"..(V.A$(25)."AXES"
..(..A$(26)."ORIGIN"..(..A$(27)."HEXAGON
"..(..A$(28)."COMPUTER".S(..A$(29)."VERT
EX"..(..A$(30)."CALCULATE"..)..A$(31)."E
VALUATE"..)..A$(32)."FIGURE".*)F.A$(33).
"FRACTION".?)P.A$(34)."DECIMAL".S)Z.A$(3
5)."NUMBER".E)..A$(36)."AREA".X)..A$(37)
."TOTAL"..)..A$(38)."PERCENTAGE"..)..A$(
39)."FIND"..)..A$(40)."RATIO".J)..A$(41)
."AVERAGE"..) .A$(42)."ANGLE"..)*.A$(43)
."DIAGONAL"..*4.A$(44)."EQUATION"..*>.A$
(45)."PLANE".0*H.A$(46)."MEDIAN".B*R.A$(
47)."MODE".T*\.A$(48)."MEAN".H*F.A$(49).
"VECTOR".}*P.A$(50)."POLYGON"..*Z.A$(51)
."ENLARGEMENT"..*..A$(52)."SCALE"..*..A$
(53)."FACTOR".P*..A$(54)."PRIME"..*..A$(
55)."CENTIMETRE"..*..A$(56)."MULTIPLE"..
+..A$(57)."METRE".%+..A$(58)."SECOND".;+
J.A$(59)."KILOGRAM".M+T.A$(60)."AREA".A+
..A$(61)."VOLUME".T+..A$(62)."SPEED"..+.
.A$(63)."METRIC"..+..A$(64)."WHOLE"..+..
A$(65)."BEARING".B+..A$(66)."LINE".T+..A
$(67)."NODE"..+$.A$(68)."ARC"..+..A$(69)
."REGION"..,8.A$(70)."SOLID"..,B.A$(71).
"ANGLE".5,L.A$(72)."ROTATION".N,V.A$(73)
."TRANSLATION".B,`.A$(74)."WEIGHT".T,J.A
$(75)."UNIT"..,T.A$(76)."HEIGHT"..,~.A$(
77)."RADIUS"..,..A$(78)."CONE".A,..A$(79
)."SLOPE".Y,..A$(80)."REFLECTION"..,..A$
(81)."PRODUCT"..,..A$(82)."SUM"..-..A$(8
3)."STATE".(-D.A$(84)."ACCURACY".<-N.A$(
85)."TABLES".J-O.A$(86)."".X-P.A$(87).""
.F-Q.A$(88)."".T-R.A$(89).""..-S.A$(90).
""..-T.A$(91).""..-U.A$(92).""..-V.A$(93
).""..-W.A$(94)."".H-X.A$(95)."".V-Y.A$(
96).""..-Z.A$(97).""..-..A$(98)."".....A
$(99)."".....A$(100).""."...R..(85..(2))
.1.1.... C$.A$(R).?.... L.C(C$).I....284
0.Z....3330:."..........................
.......";C......H(UD$,19);"
".M.... IZ.1 .
10:. B$:. IZ......H(UD$,19);" TYPE LET
TER OR WORD. ";../..UL.16:US$."HABCDEFGH
IJKLMNOPQRSTUVWXYZ":.35:B$.UR$.B/...C(UR
$).16..".".S/...B$."STOP"...H/... C(B$).
L . 2730.}/... C(B$).1 . 2620../2.C.C.1:
. 2560../<.C.C.1../F.E$.E$.B$.Q/P..H(UD$
,16);"........................"E$../Z..
I . 1 . L../D.. J(C$,I,1).B$ . . 2710..0
N.. I..0X.. 2840:.F.1.F.0:..&0... 2560.,
0....?0... P$(I).B$." ".E0 ...U0... I .
1 . L.{0... J(C$,I,1)..J(B$,I,1) . FL.1:
I.L..0R....0W..FL.1.FL.0:.2600..0... E.9
. 2800.W0...".............
.YOU WON!"..0...835..0.....0.....0.
.. DISPLAY..1".."..."..1,...(38.2.L).2)"
";.'16.. I.1.L.31@..P$(I);.91J...E1T.."
. ".S1^.. I.1 . L.M1H.. P$(I)..Q$(I) .
2960.S1R...}1|.E.E.1..1... 2990..1... I
. 1. L..1... Q$(I).P$(I)..1.....1....E1.
.. E.0 . 3320..1B.."....................
...................."..2L.. E.1 . 3320.0
2V.."...............................NM."
.A2... E.2 . 3320.N2...".....".]2... I.
1 . 8.J2....17)".".R2... I.{2..."."..2..
. E.3 . 3320..2&..".....................
.........".C20.. E.4 . 3320..2:.."......
..................N."..2D.. E.5 . 3320..
3N.."..............................."..3
X.. E.6 . 3320.V3B.."...................
...........NM".X3L.."...................
....MN."..3V.. E.7 . 3320..3..."........
........................PO..".F3... E.8
. 3320..3..."...........................
........."..4... E.9 . 3320.64..."......
............................NM." .E
4..."...................................
.."..4..."........ YOU ARE DEAD!."..4
F.."......... YOU MISSED"..4P.." .";C$
:F.1..4R..".......
"..5U.."..
".;5V.: .H(UD$,24);"
".D5Z..835.J5.....5..:
.H(UD$,24);" HELP - PRESS SHIFTED H <
RETURN>"..5... H(UD$,21)" .ENTER COMPLE
TE WORD TO WIN"..5......
> CLICK IMAGE PREVIEW FOR FULL MODAL