HANGMATH WORD.C3
FILE INFORMATION
FILENAME(S): HANGMATH WORD.C3
FILE TYPE(S): PRG
FILE SIZE: 11.4K
FIRST SEEN: 2025-11-02 16:26:32
APPEARS ON: 1 disk(s)
FILE HASH
3a2665df78379c2479232c1c1ba83266afca1c09c3fc18b65bc80b5c2a091615
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCHU LERN 9 | HANGMATH WORD.C3 | PRG | Treasure Chest - Murdock | 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 8D 14 03 A9 08 8D 15 03 58 60 20 EA |"x.=........X` .|
00000040: FF A9 FF 85 91 4C 34 EA 78 A9 31 8D 14 03 A9 EA |.....L4.x.1.....|
00000050: 8D 15 03 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 A1 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 00 C6 17 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000FB0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000FC0: CD D0 D5 D4 C5 D2 00 CF 17 09 02 8D 38 33 35 00 |............835.|
00000FD0: E3 17 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000FE0: 32 31 37 00 E9 17 57 02 8E 00 0F 18 58 02 8F 20 |217...W.....X.. |
00000FF0: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00001000: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00001010: 20 18 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 | .Y..".":.UT,UL%|
00001020: 00 40 18 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 |.@.].UP.0:UG$.".|
00001030: 52 4F 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 |ROGRAM .OD":.850|
00001040: 00 70 18 62 02 3A 20 20 99 22 11 20 20 20 20 D4 |.p.b.: .". .|
00001050: 48 45 20 57 4F 52 44 53 20 43 41 4E 20 42 45 20 |HE WORDS CAN BE |
00001060: 45 41 53 49 4C 59 20 43 48 41 4E 47 45 44 2E 22 |EASILY CHANGED."|
00001070: 00 9E 18 64 02 3A 20 20 99 22 11 20 20 20 D4 48 |...d.: .". .H|
00001080: 45 59 20 43 41 4E 20 42 45 20 43 48 41 4E 47 45 |EY CAN BE CHANGE|
00001090: 44 20 42 59 20 43 48 41 4E 47 49 4E 47 22 00 CE |D BY CHANGING"..|
000010A0: 18 66 02 3A 20 20 99 22 11 20 20 20 41 4E 59 20 |.f.: .". ANY |
000010B0: 4F 52 20 41 4C 4C 20 4F 46 20 54 48 45 20 57 4F |OR ALL OF THE WO|
000010C0: 52 44 53 20 46 52 4F 4D 20 4C 49 4E 45 22 00 FD |RDS FROM LINE"..|
000010D0: 18 68 02 3A 20 20 99 22 11 20 20 20 31 36 37 30 |.h.: .". 1670|
000010E0: 20 54 4F 20 32 35 32 35 2E 20 D4 48 45 52 45 20 | TO 2525. .HERE |
000010F0: 49 53 20 41 20 4D 41 58 49 4D 55 4D 22 00 2B 19 |IS A MAXIMUM".+.|
00001100: 6A 02 3A 20 20 99 22 11 20 20 20 4F 46 20 31 30 |j.: .". OF 10|
00001110: 30 20 57 4F 52 44 53 20 54 48 41 54 20 43 41 4E |0 WORDS THAT CAN|
00001120: 20 42 45 20 53 54 4F 52 45 44 22 00 59 19 6C 02 | BE STORED".Y.l.|
00001130: 3A 20 20 99 22 11 20 20 20 46 52 4F 4D 20 41 24 |: .". FROM A$|
00001140: 28 31 29 20 54 4F 20 41 24 28 31 30 30 29 2E 20 |(1) TO A$(100). |
00001150: D4 48 45 52 45 20 49 53 22 00 88 19 6E 02 3A 20 |.HERE IS"...n.: |
00001160: 20 99 22 11 20 20 20 41 4C 53 4F 20 41 20 4D 41 | .". ALSO A MA|
00001170: 58 49 4D 55 4D 20 4F 46 20 31 36 20 4C 45 54 54 |XIMUM OF 16 LETT|
00001180: 45 52 53 20 50 45 52 22 00 9C 19 70 02 3A 20 20 |ERS PER"...p.: |
00001190: 99 22 11 20 20 20 57 4F 52 44 2E 22 00 AD 19 72 |.". WORD."...r|
000011A0: 02 3A 20 20 8D 38 33 35 3A 8D 38 35 30 00 DE 19 |.: .835:.850...|
000011B0: 74 02 3A 20 20 99 22 11 11 11 11 20 20 20 20 C1 |t.: .".... .|
000011C0: 46 54 45 52 20 43 48 41 4E 47 49 4E 47 20 54 48 |FTER CHANGING TH|
000011D0: 45 20 57 4F 52 44 53 2C 20 4C 49 4E 45 22 00 06 |E WORDS, LINE"..|
000011E0: 1A 76 02 3A 20 20 99 22 11 20 20 20 32 35 32 37 |.v.: .". 2527|
000011F0: 20 4D 55 53 54 20 42 45 20 43 48 41 4E 47 45 44 | MUST BE CHANGED|
00001200: 20 54 4F 4F 2E 22 00 32 1A 78 02 3A 20 20 99 22 | TOO.".2.x.: ."|
00001210: 11 11 20 20 20 20 20 20 32 35 32 37 20 D2 3D C9 |.. 2527 .=.|
00001220: CE D4 28 12 38 35 92 2A D2 CE C4 28 32 29 29 2B |..(.85.*...(2))+|
00001230: 31 22 00 50 1A 7A 02 3A 20 20 99 22 20 20 20 20 |1".P.z.: ." |
00001240: 20 20 20 20 20 20 20 20 20 20 20 20 20 5E 5E 22 | ^^"|
00001250: 00 80 1A 7C 02 3A 20 20 99 22 11 11 20 20 20 20 |...|.: .".. |
00001260: C3 48 41 4E 47 45 20 54 48 49 53 20 4E 55 4D 42 |.HANGE THIS NUMB|
00001270: 45 52 20 54 4F 20 54 48 45 20 54 4F 54 41 4C 22 |ER TO THE TOTAL"|
00001280: 00 AE 1A 7E 02 3A 20 20 99 22 11 20 20 20 4E 55 |...~.: .". NU|
00001290: 4D 42 45 52 20 4F 46 20 57 4F 52 44 53 20 54 48 |MBER OF WORDS TH|
000012A0: 41 54 20 41 52 45 20 54 48 45 52 45 2E 22 00 B7 |AT ARE THERE."..|
000012B0: 1A 94 02 8D 38 33 35 00 CB 1A B2 02 8B 55 5A B2 |....835......UZ.|
000012C0: 31 A7 9E 55 50 25 3A 89 32 31 37 00 D1 1A BB 02 |1..UP%:.217.....|
000012D0: 8E 00 F6 1A BC 02 8F 20 2A 2A 20 54 4F 20 55 53 |....... ** TO US|
000012E0: 45 20 38 30 33 32 20 4C 4F 41 44 20 43 42 4D 34 |E 8032 LOAD CBM4|
000012F0: 30 33 32 20 2A 2A 00 2C 1B C6 02 99 22 93 11 11 |032 **.,...."...|
00001300: 11 05 42 45 46 4F 52 45 20 52 55 4E 4E 49 4E 47 |..BEFORE RUNNING|
00001310: 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 4F 4E | THIS PROGRAM ON|
00001320: 20 41 4E 20 38 30 33 32 20 20 11 11 00 62 1B D0 | AN 8032 ...b..|
00001330: 02 99 22 20 20 20 20 20 20 4C 4F 41 44 20 54 48 |.." LOAD TH|
00001340: 45 20 27 43 42 4D 20 34 30 33 32 27 20 50 52 4F |E 'CBM 4032' PRO|
00001350: 47 52 41 4D 11 11 11 11 11 11 11 11 11 11 11 11 |GRAM............|
00001360: 11 22 00 6D 1B DA 02 9E 55 55 AA 37 31 00 73 1B |.".m....UU.71.s.|
00001370: E4 02 80 00 93 1B 20 03 8F 20 2A 2A 20 54 20 49 |...... .. ** T I|
00001380: 20 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 | T L E P A G E|
00001390: 20 2A 2A 00 C7 1B 22 03 99 22 93 11 1D 05 22 3B | **...".."....";|
000013A0: 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 |:.UT,UU%:..(5000|
000013B0: 33 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 |3).0..53280,14:.|
000013C0: 35 33 32 38 31 2C 36 00 DD 1B 24 03 81 49 B2 31 |53281,6...$..I.1|
000013D0: A4 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 F5 1B |.38:."...";:....|
000013E0: 26 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 |&..I.1.22:."....|
000013F0: 92 22 3B 3A 82 00 0D 1C 28 03 81 49 B2 31 A4 33 |.";:....(..I.1.3|
00001400: 37 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 25 1C |7:.".....";:..%.|
00001410: 2A 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 |*..I.1.22:."....|
00001420: 92 22 3B 3A 82 00 4A 1C 2C 03 99 22 13 11 11 11 |.";:..J.,.."....|
00001430: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001440: 1D 1D 1D 1D 1D 12 A9 20 20 92 00 6C 1C 2E 03 99 |....... ..l....|
00001450: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001460: 1D 1D 1D 12 20 92 20 20 12 20 92 A9 00 8D 1C 30 |.... . . .....0|
00001470: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00001480: 1D 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 AB 1C |...... . ......|
00001490: 32 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |2.."............|
000014A0: 1D 1D 1D 1D 1D 1D DF 12 20 20 92 00 D3 1C 34 03 |........ ....4.|
000014B0: 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000014C0: 43 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 |C O M M O D O R |
000014D0: 45 11 11 00 F6 1C 36 03 99 22 1D 1D 1D 1D 1D 1D |E.....6.."......|
000014E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 |.........EDUCATI|
000014F0: 4F 4E 41 4C 11 11 00 15 1D 38 03 99 22 1D 1D 1D |ONAL.....8.."...|
00001500: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 |.............SOF|
00001510: 54 57 41 52 45 00 30 1D 3A 03 8F 20 2A 2A 20 43 |TWARE.0.:.. ** C|
00001520: 4F 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A |OMMODORE LOGO **|
00001530: 00 68 1D 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B |.h.;...(UD$,24);|
00001540: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |"..........PRESS|
00001550: 20 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 | SPACE BAR OR WA|
00001560: 49 54 92 22 3A 49 B2 30 00 8A 1D 3C 03 A1 41 24 |IT.":I.0...<..A$|
00001570: 3A 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A |:.A$.." ".I.I.1:|
00001580: 8B 49 B3 32 35 30 A7 38 32 38 00 AE 1D 3E 03 54 |.I.250.828...>.T|
00001590: 31 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 |1$."":T2$."":T3$|
000015A0: B2 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 B7 |."":T4$."":I.0..|
000015B0: 1D 40 03 89 33 30 30 00 D3 1D 43 03 8F 20 2A 2A |.@..300...C.. **|
000015C0: 20 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 | SPACE BAR PRESS|
000015D0: 20 2A 2A 00 08 1E 48 03 99 C8 28 55 44 24 2C 32 | **...H...(UD$,2|
000015E0: 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 |4);".......PRESS|
000015F0: 20 53 50 41 43 45 20 42 41 52 20 54 4F 20 43 4F | SPACE BAR TO CO|
00001600: 4E 54 49 4E 55 45 92 22 00 1F 1E 4C 03 A1 55 49 |NTINUE."...L..UI|
00001610: 24 3A 8B 55 49 24 B3 B1 22 20 22 A7 38 34 34 00 |$:.UI$.." ".844.|
00001620: 25 1E 4E 03 8E 00 45 1E 52 03 8F 20 2A 2A 20 50 |%.N...E.R.. ** P|
00001630: 41 47 45 20 44 45 53 49 47 4E 20 52 4F 55 54 49 |AGE DESIGN ROUTI|
00001640: 4E 45 20 2A 2A 00 51 1E 54 03 55 50 B2 55 50 AA |NE **.Q.T.UP.UP.|
00001650: 31 00 78 1E 57 03 99 22 93 22 C8 28 55 54 24 AA |1.x.W..".".(UT$.|
00001660: 55 50 24 2C 32 31 29 3B C8 28 55 47 24 AA 55 50 |UP$,21);.(UG$.UP|
00001670: 24 2C 31 34 29 3B 55 50 00 A7 1E 5C 03 99 22 20 |$,14);UP...\.." |
00001680: 2D 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 22 00 DB 1E 61 03 99 C8 28 55 |------"...a...(U|
000016B0: 44 24 2C 32 34 29 3B C8 28 55 50 24 2C 36 29 3B |D$,24);.(UP$,6);|
000016C0: 22 48 45 4C 50 20 2D 20 50 52 45 53 53 20 20 20 |"HELP - PRESS |
000016D0: 48 20 3C 52 45 54 55 52 4E 3E 22 00 E7 1E 66 03 |H <RETURN>"...f.|
000016E0: 99 22 13 11 22 3A 8E 00 06 1F 6B 03 8F 20 2A 2A |."..":....k.. **|
000016F0: 20 50 4C 45 41 53 45 20 57 41 49 54 20 52 45 4D | PLEASE WAIT REM|
00001700: 41 52 4B 20 2A 2A 00 3C 1F 70 03 99 C8 28 55 44 |ARK **.<.p...(UD|
00001710: 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 20 |$,24);" |
00001720: 20 20 4F 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 | ONE MOMENT PLE|
00001730: 41 53 45 2E 2E 2E 20 20 20 20 20 22 00 42 1F 75 |ASE... ".B.u|
00001740: 03 8E 00 5F 1F 84 03 8F 20 2A 2A 20 53 45 54 20 |..._.... ** SET |
00001750: 55 50 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 |UP VARIABLES **.|
00001760: AA 1F 85 03 55 58 24 B2 22 C8 22 3A 86 55 51 25 |....UX$.".":.UQ%|
00001770: 28 31 30 30 30 29 3A 55 42 B2 33 32 37 36 38 3A |(1000):UB.32768:|
00001780: 55 31 B2 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 |U1.196:U2.197:U3|
00001790: B2 31 39 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 |.198:U4.216:UC.1|
000017A0: 36 37 3A 55 55 B2 31 30 32 34 00 E1 1F 86 03 55 |67:UU.1024.....U|
000017B0: 54 B2 35 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 |T.59468:UU%.12:U|
000017C0: 4C 25 B2 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 |L%.14:UP%.1146:U|
000017D0: 4D B2 33 32 37 36 38 3A 97 20 35 30 30 30 33 2C |M.32768:. 50003,|
000017E0: 30 00 24 20 87 03 8B C2 28 35 30 30 30 33 29 B2 |0.$ ....(50003).|
000017F0: 30 A7 55 42 B2 31 30 32 34 3A 55 31 B2 32 30 39 |0.UB.1024:U1.209|
00001800: 3A 55 32 B2 32 31 30 3A 55 33 B2 32 31 31 3A 55 |:U2.210:U3.211:U|
00001810: 34 B2 32 31 34 3A 55 43 B2 32 30 34 3A 55 55 B2 |4.214:UC.204:UU.|
00001820: 32 30 34 38 00 5C 20 88 03 8B C2 28 35 30 30 30 |2048.\ ....(5000|
00001830: 33 29 B2 30 A7 55 54 B2 35 33 32 37 32 3A 55 55 |3).0.UT.53272:UU|
00001840: 25 B2 32 31 3A 55 4C 25 B2 32 33 3A 55 50 25 B2 |%.21:UL%.23:UP%.|
00001850: 32 31 33 39 3A 55 4D B2 31 30 32 34 00 80 20 89 |2139:UM.1024.. .|
00001860: 03 55 44 24 B2 22 13 11 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 22 |..............."|
00001880: 00 B2 20 8A 03 55 50 24 B2 22 20 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 22 00 FD 20 8B 03 55 54 24 B2 22 20 C8 C1 CE | ".. ..UT$." ...|
000018C0: C7 CD C1 D4 C8 20 20 A0 A0 A0 A0 A0 22 3A 8F 20 |..... .....":. |
000018D0: 50 4C 41 43 45 20 50 52 4F 47 52 41 4D 20 54 49 |PLACE PROGRAM TI|
000018E0: 54 4C 45 20 48 45 52 45 20 21 21 21 21 21 21 21 |TLE HERE !!!!!!!|
000018F0: 21 21 21 21 21 21 21 21 21 21 2A 2A 2A 00 03 21 |!!!!!!!!!!***..!|
00001900: 8C 03 8E 00 1D 21 8E 03 8F 20 2A 2A 20 53 45 54 |.....!... ** SET|
00001910: 20 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 3A 21 | VARIABLES **.:!|
00001920: 8F 03 86 50 24 28 32 30 29 3A 86 41 24 28 31 30 |...P$(20):.A$(10|
00001930: 30 29 3A 86 51 24 28 32 30 29 00 43 21 93 03 8D |0):.Q$(20).C!...|
00001940: 39 30 30 00 5E 21 98 03 8F 20 2A 2A 20 43 48 45 |900.^!... ** CHE|
00001950: 43 4B 20 46 4F 52 20 38 30 33 32 20 2A 2A 00 7C |CK FOR 8032 **.||
00001960: 21 9D 03 99 22 93 22 3A 99 22 A0 22 3A 8F 20 53 |!...".":.".":. S|
00001970: 48 49 46 54 45 44 20 53 50 41 43 45 00 93 21 A2 |HIFTED SPACE..!.|
00001980: 03 8B C2 28 55 42 AA 34 30 29 B3 B1 39 36 A7 8D |...(UB.40)..96..|
00001990: 37 30 30 00 AC 21 A3 03 8F 20 2A 2A 20 4D 45 4D |700..!... ** MEM|
000019A0: 4F 52 59 20 43 48 45 43 4B 20 2A 2A 00 C0 21 A4 |ORY CHECK **..!.|
000019B0: 03 8B 20 B8 28 30 29 B1 32 30 30 30 A7 39 33 37 |.. .(0).2000.937|
000019C0: 00 EE 21 A5 03 99 22 93 11 11 05 54 48 49 53 20 |..!..."....THIS |
000019D0: 4D 41 43 48 49 4E 45 20 44 4F 45 53 20 4E 4F 54 |MACHINE DOES NOT|
000019E0: 20 48 41 56 45 20 45 4E 4F 55 47 48 11 22 00 12 | HAVE ENOUGH."..|
000019F0: 22 A6 03 99 22 4D 45 4D 4F 52 59 20 54 4F 20 52 |"..."MEMORY TO R|
00001A00: 55 4E 20 54 48 49 53 20 50 52 4F 47 52 41 4D 20 |UN THIS PROGRAM |
00001A10: 21 22 00 1D 22 A7 03 9E 55 55 AA 37 31 00 23 22 |!".."...UU.71.#"|
00001A20: A8 03 80 00 3D 22 A9 03 99 22 93 05 22 3A 8B C2 |....="..."..":..|
00001A30: 28 35 30 30 30 33 29 B2 30 A7 39 36 32 00 6C 22 |(50003).0.962.l"|
00001A40: AC 03 8F 20 2A 2A 20 42 41 53 49 43 20 32 2E 30 |... ** BASIC 2.0|
00001A50: 20 20 4F 52 20 20 34 2E 30 20 20 4F 52 20 20 43 | OR 4.0 OR C|
00001A60: 2D 36 34 20 53 45 54 55 50 20 2A 2A 00 AA 22 AD |-64 SETUP **..".|
00001A70: 03 97 31 30 37 35 2C 31 33 33 3A 97 31 30 37 36 |..1075,133:.1076|
00001A80: 2C 31 34 34 3A 97 31 30 37 37 2C 32 33 34 3A 97 |,144:.1077,234:.|
00001A90: 31 30 37 39 2C 34 3A 97 31 30 38 30 2C 31 33 33 |1079,4:.1080,133|
00001AA0: 3A 97 31 30 38 31 2C 31 34 35 00 E0 22 AE 03 97 |:.1081,145.."...|
00001AB0: 31 30 39 31 2C 31 35 35 3A 97 31 30 39 38 2C 31 |1091,155:.1098,1|
00001AC0: 33 33 3A 97 31 30 39 39 2C 31 34 34 3A 97 31 31 |33:.1099,144:.11|
00001AD0: 30 30 2C 32 33 34 3A 97 31 31 30 33 2C 31 33 33 |00,234:.1103,133|
00001AE0: 00 02 23 AF 03 97 31 31 30 34 2C 31 34 35 3A 97 |..#...1104,145:.|
00001AF0: 31 31 30 35 2C 32 33 34 3A 97 31 30 38 32 2C 32 |1105,234:.1082,2|
00001B00: 33 34 00 19 23 B1 03 8B C2 28 35 30 30 30 33 29 |34..#....(50003)|
00001B10: B3 B1 31 36 30 A7 39 35 35 00 48 23 B6 03 97 31 |..160.955.H#...1|
00001B20: 30 39 33 2C 38 38 3A 97 31 30 39 34 2C 32 32 38 |093,88:.1094,228|
00001B30: 3A 97 31 30 39 37 2C 38 35 3A 97 31 31 30 32 2C |:.1097,85:.1102,|
00001B40: 32 32 38 3A 89 39 36 35 00 5D 23 BB 03 8B C2 28 |228:.965.]#....(|
00001B50: 35 30 30 30 33 29 B3 B1 31 A7 39 39 30 00 8C 23 |50003)..1.990..#|
00001B60: C0 03 97 31 30 39 33 2C 34 39 3A 97 31 30 39 34 |...1093,49:.1094|
00001B70: 2C 32 33 30 3A 97 31 30 39 37 2C 34 36 3A 97 31 |,230:.1097,46:.1|
00001B80: 31 30 32 2C 32 33 30 3A 89 39 36 35 00 C6 23 C2 |102,230:.965..#.|
00001B90: 03 97 32 30 39 39 2C 31 34 31 3A 97 32 31 30 30 |..2099,141:.2100|
00001BA0: 2C 32 30 3A 97 32 31 30 31 2C 33 3A 97 32 31 30 |,20:.2101,3:.210|
00001BB0: 33 2C 38 3A 97 32 31 30 34 2C 31 34 31 3A 97 32 |3,8:.2104,141:.2|
00001BC0: 31 30 35 2C 32 31 00 02 24 C3 03 97 32 31 30 36 |105,21..$...2106|
00001BD0: 2C 33 3A 97 32 31 31 35 2C 31 34 35 3A 97 32 31 |,3:.2115,145:.21|
00001BE0: 31 37 2C 35 32 3A 97 32 31 31 38 2C 32 33 34 3A |17,52:.2118,234:|
00001BF0: 97 32 31 32 31 2C 34 39 3A 97 32 31 32 32 2C 31 |.2121,49:.2122,1|
00001C00: 34 31 00 3C 24 C4 03 97 32 31 32 33 2C 32 30 3A |41.<$...2123,20:|
00001C10: 97 32 31 32 34 2C 33 3A 97 32 31 32 36 2C 32 33 |.2124,3:.2126,23|
00001C20: 34 3A 97 32 31 32 37 2C 31 34 31 3A 97 32 31 32 |4:.2127,141:.212|
00001C30: 38 2C 32 31 3A 97 32 31 32 39 2C 33 00 5A 24 C5 |8,21:.2129,3.Z$.|
00001C40: 03 9E 55 55 AA 34 38 3A 8F 20 44 49 53 41 42 4C |..UU.48:. DISABL|
00001C50: 45 20 53 54 4F 50 20 4B 45 59 00 6B 24 CA 03 8D |E STOP KEY.k$...|
00001C60: 38 30 30 3A 8F 20 54 49 54 4C 45 00 7B 24 D4 03 |800:. TITLE.{$..|
00001C70: 89 33 30 30 3A 8F 20 4D 45 4E 55 00 AC 24 DE 03 |.300:. MENU..$..|
00001C80: 99 22 93 54 48 45 20 50 47 4D 20 57 49 4C 4C 20 |.".THE PGM WILL |
00001C90: 4E 4F 54 20 57 4F 52 4B 20 4F 4E 20 54 48 49 53 |NOT WORK ON THIS|
00001CA0: 20 4D 41 43 48 49 4E 45 21 22 3A 80 00 E1 24 E8 | MACHINE!":...$.|
00001CB0: 03 8B 55 5A B2 31 A7 9E 55 50 25 3A 9E 55 50 25 |..UZ.1..UP%:.UP%|
00001CC0: 3A 55 5A B2 30 3A 8F 20 2A 2A 20 50 52 4F 47 52 |:UZ.0:. ** PROGR|
00001CD0: 41 4D 20 53 54 41 52 54 53 20 48 45 52 45 20 2A |AM STARTS HERE *|
00001CE0: 2A 00 0D 25 E9 03 99 22 93 05 22 3B 3A 8C 3A 8B |*..%..."..";:.:.|
00001CF0: C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 |.(50003).0..5328|
00001D00: 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 00 1B 25 |1,6:.53280,14..%|
00001D10: DC 05 45 B2 30 3A 45 24 B2 22 22 00 3B 25 F0 05 |..E.0:E$."".;%..|
00001D20: 99 22 93 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
00001D30: 20 20 48 41 4E 47 4D 41 54 48 22 00 6A 25 F5 05 | HANGMATH".j%..|
00001D40: 99 22 20 2D 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 22 00 A1 25 FA 05 3A |---------"..%..:|
00001D70: 20 20 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 55 | ..(UD$,24);.(U|
00001D80: 50 24 2C 35 29 3B 22 48 45 4C 50 20 2D 20 50 52 |P$,5);"HELP - PR|
00001D90: 45 53 53 20 20 20 3F 20 3C 52 45 54 55 52 4E 3E |ESS ? <RETURN>|
00001DA0: 22 00 B8 25 04 06 99 22 13 11 11 11 11 11 11 11 |"..%..."........|
00001DB0: 11 11 11 11 11 11 11 22 00 D7 25 18 06 99 22 20 |......."..%..." |
00001DC0: 20 4C 45 54 54 45 52 53 20 55 53 45 44 20 41 4C | LETTERS USED AL|
00001DD0: 52 45 41 44 59 3D 22 00 DD 25 22 06 99 00 F3 25 |READY="..%"....%|
00001DE0: 2C 06 99 22 20 20 47 55 45 53 53 20 4E 55 4D 42 |,.." GUESS NUMB|
00001DF0: 45 52 22 00 1D 26 36 06 99 3A 99 3A 99 20 22 20 |ER"..&6..:.:. " |
00001E00: 20 12 45 4E 54 45 52 20 43 4F 4D 50 4C 45 54 45 | .ENTER COMPLETE|
00001E10: 20 57 4F 52 44 20 54 4F 20 57 49 4E 22 00 27 26 | WORD TO WIN".'&|
00001E20: 54 06 88 20 4C B2 30 00 38 26 5E 06 81 20 49 20 |T.. L.0.8&^.. I |
00001E30: B2 20 31 20 A4 20 32 30 00 49 26 68 06 88 20 50 |. 1 . 20.I&h.. P|
00001E40: 24 28 49 29 B2 22 A4 20 22 00 51 26 72 06 82 20 |$(I).". ".Q&r.. |
00001E50: 49 00 5B 26 7C 06 88 20 43 B2 31 00 72 26 86 06 |I.[&|.. C.1.r&..|
00001E60: 41 24 28 31 29 B2 22 50 59 54 48 41 47 4F 52 41 |A$(1)."PYTHAGORA|
00001E70: 53 22 00 87 26 90 06 41 24 28 32 29 B2 22 53 59 |S"..&..A$(2)."SY|
00001E80: 4D 4D 45 54 52 59 22 00 9B 26 9A 06 41 24 28 33 |MMETRY"..&..A$(3|
00001E90: 29 B2 22 46 4F 52 4D 55 4C 41 22 00 AF 26 A4 06 |)."FORMULA"..&..|
00001EA0: 41 24 28 34 29 B2 22 50 59 52 41 4D 49 44 22 00 |A$(4)."PYRAMID".|
00001EB0: C5 26 AE 06 41 24 28 35 29 B2 22 52 45 43 54 41 |.&..A$(5)."RECTA|
00001EC0: 4E 47 4C 45 22 00 DA 26 B8 06 41 24 28 36 29 B2 |NGLE"..&..A$(6).|
00001ED0: 22 54 52 49 41 4E 47 4C 45 22 00 EF 26 C2 06 41 |"TRIANGLE"..&..A|
00001EE0: 24 28 37 29 B2 22 41 44 44 49 54 49 4F 4E 22 00 |$(7)."ADDITION".|
00001EF0: 09 27 CC 06 41 24 28 38 29 B2 22 41 50 50 52 4F |.'..A$(8)."APPRO|
00001F00: 58 49 4D 41 54 49 4F 4E 22 00 21 27 D6 06 41 24 |XIMATION".!'..A$|
00001F10: 28 39 29 B2 22 53 55 42 54 52 41 43 54 49 4F 4E |(9)."SUBTRACTION|
00001F20: 22 00 3D 27 E0 06 41 24 28 31 30 29 B2 22 4D 55 |".='..A$(10)."MU|
00001F30: 4C 54 49 50 4C 49 43 41 54 49 4F 4E 22 00 55 27 |LTIPLICATION".U'|
00001F40: EA 06 41 24 28 31 31 29 B2 22 53 54 41 54 49 53 |..A$(11)."STATIS|
00001F50: 54 49 43 53 22 00 6E 27 F4 06 41 24 28 31 32 29 |TICS".n'..A$(12)|
00001F60: B2 22 50 52 4F 42 41 42 49 4C 49 54 59 22 00 85 |."PROBABILITY"..|
00001F70: 27 FE 06 41 24 28 31 33 29 B2 22 48 49 53 54 4F |'..A$(13)."HISTO|
00001F80: 47 52 41 4D 22 00 97 27 08 07 41 24 28 31 34 29 |GRAM"..'..A$(14)|
00001F90: B2 22 43 55 42 45 22 00 AD 27 12 07 41 24 28 31 |."CUBE"..'..A$(1|
00001FA0: 35 29 B2 22 50 41 52 41 4C 4C 45 4C 22 00 C5 27 |5)."PARALLEL"..'|
00001FB0: 1C 07 41 24 28 31 36 29 B2 22 43 4F 4F 52 44 49 |..A$(16)."COORDI|
00001FC0: 4E 41 54 45 22 00 D9 27 26 07 41 24 28 31 37 29 |NATE"..'&.A$(17)|
00001FD0: B2 22 53 51 55 41 52 45 22 00 ED 27 30 07 41 24 |."SQUARE"..'0.A$|
00001FE0: 28 31 38 29 B2 22 4D 41 54 52 49 58 22 00 01 28 |(18)."MATRIX"..(|
00001FF0: 3A 07 41 24 28 31 39 29 B2 22 43 49 52 43 4C 45 |:.A$(19)."CIRCLE|
00002000: 22 00 16 28 44 07 41 24 28 32 30 29 B2 22 52 48 |"..(D.A$(20)."RH|
00002010: 4F 4D 42 55 53 22 00 29 28 4E 07 41 24 28 32 31 |OMBUS".)(N.A$(21|
00002020: 29 B2 22 47 52 41 50 48 22 00 42 28 58 07 41 24 |)."GRAPH".B(X.A$|
00002030: 28 32 32 29 B2 22 4D 41 54 48 45 4D 41 54 49 43 |(22)."MATHEMATIC|
00002040: 53 22 00 57 28 62 07 41 24 28 32 33 29 B2 22 41 |S".W(b.A$(23)."A|
00002050: 4C 47 45 42 52 41 22 00 6D 28 6C 07 41 24 28 32 |LGEBRA".m(l.A$(2|
00002060: 34 29 B2 22 47 45 4F 4D 45 54 52 59 22 00 7F 28 |4)."GEOMETRY"..(|
00002070: 76 07 41 24 28 32 35 29 B2 22 41 58 45 53 22 00 |v.A$(25)."AXES".|
00002080: 93 28 80 07 41 24 28 32 36 29 B2 22 4F 52 49 47 |.(..A$(26)."ORIG|
00002090: 49 4E 22 00 A8 28 8A 07 41 24 28 32 37 29 B2 22 |IN"..(..A$(27)."|
000020A0: 48 45 58 41 47 4F 4E 22 00 BE 28 94 07 41 24 28 |HEXAGON"..(..A$(|
000020B0: 32 38 29 B2 22 43 4F 4D 50 55 54 45 52 22 00 D2 |28)."COMPUTER"..|
000020C0: 28 9E 07 41 24 28 32 39 29 B2 22 56 45 52 54 45 |(..A$(29)."VERTE|
000020D0: 58 22 00 E9 28 A8 07 41 24 28 33 30 29 B2 22 43 |X"..(..A$(30)."C|
000020E0: 41 4C 43 55 4C 41 54 45 22 00 FF 28 B2 07 41 24 |ALCULATE"..(..A$|
000020F0: 28 33 31 29 B2 22 45 56 41 4C 55 41 54 45 22 00 |(31)."EVALUATE".|
00002100: 13 29 BC 07 41 24 28 33 32 29 B2 22 46 49 47 55 |.)..A$(32)."FIGU|
00002110: 52 45 22 00 29 29 C6 07 41 24 28 33 33 29 B2 22 |RE".))..A$(33)."|
00002120: 46 52 41 43 54 49 4F 4E 22 00 3E 29 D0 07 41 24 |FRACTION".>)..A$|
00002130: 28 33 34 29 B2 22 44 45 43 49 4D 41 4C 22 00 52 |(34)."DECIMAL".R|
00002140: 29 DA 07 41 24 28 33 35 29 B2 22 4E 55 4D 42 45 |)..A$(35)."NUMBE|
00002150: 52 22 00 64 29 E4 07 41 24 28 33 36 29 B2 22 41 |R".d)..A$(36)."A|
00002160: 52 45 41 22 00 77 29 EE 07 41 24 28 33 37 29 B2 |REA".w)..A$(37).|
00002170: 22 54 4F 54 41 4C 22 00 8F 29 F8 07 41 24 28 33 |"TOTAL"..)..A$(3|
00002180: 38 29 B2 22 50 45 52 43 45 4E 54 41 47 45 22 00 |8)."PERCENTAGE".|
00002190: A1 29 02 08 41 24 28 33 39 29 B2 22 46 49 4E 44 |.)..A$(39)."FIND|
000021A0: 22 00 B4 29 0C 08 41 24 28 34 30 29 B2 22 52 41 |"..)..A$(40)."RA|
000021B0: 54 49 4F 22 00 C9 29 16 08 41 24 28 34 31 29 B2 |TIO"..)..A$(41).|
000021C0: 22 41 56 45 52 41 47 45 22 00 DC 29 20 08 41 24 |"AVERAGE"..) .A$|
000021D0: 28 34 32 29 B2 22 41 4E 47 4C 45 22 00 F2 29 2A |(42)."ANGLE"..)*|
000021E0: 08 41 24 28 34 33 29 B2 22 44 49 41 47 4F 4E 41 |.A$(43)."DIAGONA|
000021F0: 4C 22 00 08 2A 34 08 41 24 28 34 34 29 B2 22 45 |L"..*4.A$(44)."E|
00002200: 51 55 41 54 49 4F 4E 22 00 1B 2A 3E 08 41 24 28 |QUATION"..*>.A$(|
00002210: 34 35 29 B2 22 50 4C 41 4E 45 22 00 2F 2A 48 08 |45)."PLANE"./*H.|
00002220: 41 24 28 34 36 29 B2 22 4D 45 44 49 41 4E 22 00 |A$(46)."MEDIAN".|
00002230: 41 2A 52 08 41 24 28 34 37 29 B2 22 4D 4F 44 45 |A*R.A$(47)."MODE|
00002240: 22 00 53 2A 5C 08 41 24 28 34 38 29 B2 22 4D 45 |".S*\.A$(48)."ME|
00002250: 41 4E 22 00 67 2A 66 08 41 24 28 34 39 29 B2 22 |AN".g*f.A$(49)."|
00002260: 56 45 43 54 4F 52 22 00 7C 2A 70 08 41 24 28 35 |VECTOR".|*p.A$(5|
00002270: 30 29 B2 22 50 4F 4C 59 47 4F 4E 22 00 95 2A 7A |0)."POLYGON"..*z|
00002280: 08 41 24 28 35 31 29 B2 22 45 4E 4C 41 52 47 45 |.A$(51)."ENLARGE|
00002290: 4D 45 4E 54 22 00 A8 2A 84 08 41 24 28 35 32 29 |MENT"..*..A$(52)|
000022A0: B2 22 53 43 41 4C 45 22 00 BC 2A 8E 08 41 24 28 |."SCALE"..*..A$(|
000022B0: 35 33 29 B2 22 46 41 43 54 4F 52 22 00 CF 2A 98 |53)."FACTOR"..*.|
000022C0: 08 41 24 28 35 34 29 B2 22 50 52 49 4D 45 22 00 |.A$(54)."PRIME".|
000022D0: E7 2A A2 08 41 24 28 35 35 29 B2 22 43 45 4E 54 |.*..A$(55)."CENT|
000022E0: 49 4D 45 54 52 45 22 00 FD 2A AC 08 41 24 28 35 |IMETRE"..*..A$(5|
000022F0: 36 29 B2 22 4D 55 4C 54 49 50 4C 45 22 00 10 2B |6)."MULTIPLE"..+|
00002300: B6 08 41 24 28 35 37 29 B2 22 4D 45 54 52 45 22 |..A$(57)."METRE"|
00002310: 00 24 2B C0 08 41 24 28 35 38 29 B2 22 53 45 43 |.$+..A$(58)."SEC|
00002320: 4F 4E 44 22 00 3A 2B CA 08 41 24 28 35 39 29 B2 |OND".:+..A$(59).|
00002330: 22 4B 49 4C 4F 47 52 41 4D 22 00 4C 2B D4 08 41 |"KILOGRAM".L+..A|
00002340: 24 28 36 30 29 B2 22 41 52 45 41 22 00 60 2B DE |$(60)."AREA".`+.|
00002350: 08 41 24 28 36 31 29 B2 22 56 4F 4C 55 4D 45 22 |.A$(61)."VOLUME"|
00002360: 00 73 2B E8 08 41 24 28 36 32 29 B2 22 53 50 45 |.s+..A$(62)."SPE|
00002370: 45 44 22 00 87 2B F2 08 41 24 28 36 33 29 B2 22 |ED"..+..A$(63)."|
00002380: 4D 45 54 52 49 43 22 00 9A 2B FC 08 41 24 28 36 |METRIC"..+..A$(6|
00002390: 34 29 B2 22 57 48 4F 4C 45 22 00 AF 2B 06 09 41 |4)."WHOLE"..+..A|
000023A0: 24 28 36 35 29 B2 22 42 45 41 52 49 4E 47 22 00 |$(65)."BEARING".|
000023B0: C1 2B 10 09 41 24 28 36 36 29 B2 22 4C 49 4E 45 |.+..A$(66)."LINE|
000023C0: 22 00 D3 2B 1A 09 41 24 28 36 37 29 B2 22 4E 4F |"..+..A$(67)."NO|
000023D0: 44 45 22 00 E4 2B 24 09 41 24 28 36 38 29 B2 22 |DE"..+$.A$(68)."|
000023E0: 41 52 43 22 00 F8 2B 2E 09 41 24 28 36 39 29 B2 |ARC"..+..A$(69).|
000023F0: 22 52 45 47 49 4F 4E 22 00 0B 2C 38 09 41 24 28 |"REGION"..,8.A$(|
00002400: 37 30 29 B2 22 53 4F 4C 49 44 22 00 1E 2C 42 09 |70)."SOLID"..,B.|
00002410: 41 24 28 37 31 29 B2 22 41 4E 47 4C 45 22 00 34 |A$(71)."ANGLE".4|
00002420: 2C 4C 09 41 24 28 37 32 29 B2 22 52 4F 54 41 54 |,L.A$(72)."ROTAT|
00002430: 49 4F 4E 22 00 4D 2C 56 09 41 24 28 37 33 29 B2 |ION".M,V.A$(73).|
00002440: 22 54 52 41 4E 53 4C 41 54 49 4F 4E 22 00 61 2C |"TRANSLATION".a,|
00002450: 60 09 41 24 28 37 34 29 B2 22 57 45 49 47 48 54 |`.A$(74)."WEIGHT|
00002460: 22 00 73 2C 6A 09 41 24 28 37 35 29 B2 22 55 4E |".s,j.A$(75)."UN|
00002470: 49 54 22 00 87 2C 74 09 41 24 28 37 36 29 B2 22 |IT"..,t.A$(76)."|
00002480: 48 45 49 47 48 54 22 00 9B 2C 7E 09 41 24 28 37 |HEIGHT"..,~.A$(7|
00002490: 37 29 B2 22 52 41 44 49 55 53 22 00 AD 2C 88 09 |7)."RADIUS"..,..|
000024A0: 41 24 28 37 38 29 B2 22 43 4F 4E 45 22 00 C0 2C |A$(78)."CONE"..,|
000024B0: 92 09 41 24 28 37 39 29 B2 22 53 4C 4F 50 45 22 |..A$(79)."SLOPE"|
000024C0: 00 D8 2C 9C 09 41 24 28 38 30 29 B2 22 52 45 46 |..,..A$(80)."REF|
000024D0: 4C 45 43 54 49 4F 4E 22 00 ED 2C A6 09 41 24 28 |LECTION"..,..A$(|
000024E0: 38 31 29 B2 22 50 52 4F 44 55 43 54 22 00 FE 2C |81)."PRODUCT"..,|
000024F0: B0 09 41 24 28 38 32 29 B2 22 53 55 4D 22 00 11 |..A$(82)."SUM"..|
00002500: 2D BA 09 41 24 28 38 33 29 B2 22 53 54 41 54 45 |-..A$(83)."STATE|
00002510: 22 00 27 2D C4 09 41 24 28 38 34 29 B2 22 41 43 |".'-..A$(84)."AC|
00002520: 43 55 52 41 43 59 22 00 3B 2D CE 09 41 24 28 38 |CURACY".;-..A$(8|
00002530: 35 29 B2 22 54 41 42 4C 45 53 22 00 49 2D CF 09 |5)."TABLES".I-..|
00002540: 41 24 28 38 36 29 B2 22 22 00 57 2D D0 09 41 24 |A$(86)."".W-..A$|
00002550: 28 38 37 29 B2 22 22 00 65 2D D1 09 41 24 28 38 |(87)."".e-..A$(8|
00002560: 38 29 B2 22 22 00 73 2D D2 09 41 24 28 38 39 29 |8)."".s-..A$(89)|
00002570: B2 22 22 00 81 2D D3 09 41 24 28 39 30 29 B2 22 |.""..-..A$(90)."|
00002580: 22 00 8F 2D D4 09 41 24 28 39 31 29 B2 22 22 00 |"..-..A$(91)."".|
00002590: 9D 2D D5 09 41 24 28 39 32 29 B2 22 22 00 AB 2D |.-..A$(92).""..-|
000025A0: D6 09 41 24 28 39 33 29 B2 22 22 00 B9 2D D7 09 |..A$(93).""..-..|
000025B0: 41 24 28 39 34 29 B2 22 22 00 C7 2D D8 09 41 24 |A$(94).""..-..A$|
000025C0: 28 39 35 29 B2 22 22 00 D5 2D D9 09 41 24 28 39 |(95).""..-..A$(9|
000025D0: 36 29 B2 22 22 00 E3 2D DA 09 41 24 28 39 37 29 |6).""..-..A$(97)|
000025E0: B2 22 22 00 F1 2D DB 09 41 24 28 39 38 29 B2 22 |.""..-..A$(98)."|
000025F0: 22 00 FF 2D DC 09 41 24 28 39 39 29 B2 22 22 00 |"..-..A$(99)."".|
00002600: 0E 2E DD 09 41 24 28 31 30 30 29 B2 22 22 00 21 |....A$(100)."".!|
00002610: 2E DF 09 52 B2 B5 28 38 35 AC BB 28 32 29 29 AA |...R..(85..(2)).|
00002620: 31 00 30 2E E2 09 88 20 43 24 B2 41 24 28 52 29 |1.0.... C$.A$(R)|
00002630: 00 3E 2E EC 09 88 20 4C B2 C3 28 43 24 29 00 48 |.>.... L..(C$).H|
00002640: 2E F6 09 8D 32 38 34 30 00 79 2E 00 0A 8D 33 33 |....2840.y....33|
00002650: 33 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 |30:."...........|
00002660: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002670: 1D 1D 1D 1D 1D 1D 22 3B 43 00 B2 2E 05 0A 99 C8 |......";C.......|
00002680: 28 55 44 24 2C 31 39 29 3B 22 20 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 22 00 CC 2E 0A 0A 81 20 49 5A B2 31 20 A4 20 | "...... IZ.1 . |
000026C0: 31 30 3A A1 20 42 24 3A 82 20 49 5A 00 F6 2E 0C |10:. B$:. IZ....|
000026D0: 0A 99 C8 28 55 44 24 2C 31 39 29 3B 22 20 20 54 |...(UD$,19);" T|
000026E0: 59 50 45 20 4C 45 54 54 45 52 20 4F 52 20 57 4F |YPE LETTER OR WO|
000026F0: 52 44 2E 20 22 3B 00 2D 2F 0F 0A 55 4C B2 31 36 |RD. ";.-/..UL.16|
00002700: 3A 55 53 24 B2 22 C8 41 42 43 44 45 46 47 48 49 |:US$.".ABCDEFGHI|
00002710: 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 |JKLMNOPQRSTUVWXY|
00002720: 5A 22 3A 8D 33 35 3A 42 24 B2 55 52 24 00 41 2F |Z":.35:B$.UR$.A/|
00002730: 11 0A 8B C3 28 55 52 24 29 B2 31 36 A7 99 22 91 |....(UR$).16..".|
00002740: 22 00 52 2F 13 0A 8B 42 24 B2 22 53 54 4F 50 22 |".R/...B$."STOP"|
00002750: A7 8E 00 67 2F 14 0A 8B 20 C3 28 42 24 29 B2 4C |...g/... .(B$).L|
00002760: 20 A7 20 32 37 33 30 00 7C 2F 1E 0A 8B 20 C3 28 | . 2730.|/... .(|
00002770: 42 24 29 B2 31 20 89 20 32 36 32 30 00 8D 2F 32 |B$).1 . 2620../2|
00002780: 0A 43 B2 43 AA 31 3A 89 20 32 35 36 30 00 97 2F |.C.C.1:. 2560../|
00002790: 3C 0A 43 B2 43 AA 31 00 A4 2F 46 0A 45 24 B2 45 |<.C.C.1../F.E$.E|
000027A0: 24 AA 42 24 00 D0 2F 50 0A 99 C8 28 55 44 24 2C |$.B$../P...(UD$,|
000027B0: 31 36 29 3B 22 1D 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 22 45 24 |............."E$|
000027D0: 00 E0 2F 5A 0A 81 20 49 20 B2 20 31 20 A4 20 4C |../Z.. I . 1 . L|
000027E0: 00 FC 2F 64 0A 8B 20 CA 28 43 24 2C 49 2C 31 29 |../d.. .(C$,I,1)|
000027F0: B2 42 24 20 A7 20 8D 20 32 37 31 30 00 04 30 6E |.B$ . . 2710..0n|
00002800: 0A 82 20 49 00 1A 30 78 0A 8D 20 32 38 34 30 3A |.. I..0x.. 2840:|
00002810: 8B 46 B2 31 A7 46 B2 30 3A 8E 00 25 30 82 0A 89 |.F.1.F.0:..%0...|
00002820: 20 32 35 36 30 00 2B 30 8C 0A 8E 00 3E 30 96 0A | 2560.+0....>0..|
00002830: 88 20 50 24 28 49 29 B2 42 24 AA 22 20 22 00 44 |. P$(I).B$." ".D|
00002840: 30 A0 0A 8E 00 54 30 AA 0A 81 20 49 20 B2 20 31 |0....T0... I . 1|
00002850: 20 A4 20 4C 00 7A 30 B4 0A 8B 20 CA 28 43 24 2C | . L.z0... .(C$,|
00002860: 49 2C 31 29 B3 B1 CA 28 42 24 2C 49 2C 31 29 20 |I,1)...(B$,I,1) |
00002870: A7 20 46 4C B2 31 3A 49 B2 4C 00 80 30 D2 0A 82 |. FL.1:I.L..0...|
00002880: 00 95 30 D7 0A 8B 46 4C B2 31 A7 46 4C B2 30 3A |..0...FL.1.FL.0:|
00002890: 89 32 36 30 30 00 A6 30 DC 0A 8B 20 45 B1 39 20 |.2600..0... E.9 |
000028A0: A7 20 32 38 30 30 00 D6 30 E6 0A 99 22 93 11 11 |. 2800..0..."...|
000028B0: 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 20 |.......... |
000028C0: 20 20 20 20 20 20 20 20 20 20 20 20 12 59 4F 55 | .YOU|
000028D0: 20 57 4F 4E 21 22 00 DF 30 F0 0A 8D 38 33 35 00 | WON!"..0...835.|
000028E0: E5 30 FA 0A 8E 00 EB 30 0E 0B 80 00 F9 30 18 0B |.0.....0.....0..|
000028F0: 8F 20 44 49 53 50 4C 41 59 00 04 31 22 0B 99 22 |. DISPLAY..1".."|
00002900: 13 11 11 22 00 1A 31 2C 0B 99 A3 28 33 38 AB 32 |..."..1,...(38.2|
00002910: AC 4C 29 AD 32 29 22 20 22 3B 00 26 31 36 0B 81 |.L).2)" ";.&16..|
00002920: 20 49 B2 31 A4 4C 00 32 31 40 0B 99 50 24 28 49 | I.1.L.21@..P$(I|
00002930: 29 3B 00 38 31 4A 0B 82 00 44 31 54 0B 99 22 11 |);.81J...D1T..".|
00002940: 20 20 20 22 00 52 31 5E 0B 81 20 49 B2 31 20 A4 | ".R1^.. I.1 .|
00002950: 20 4C 00 6C 31 68 0B 8B 20 50 24 28 49 29 B3 B1 | L.l1h.. P$(I)..|
00002960: 51 24 28 49 29 20 A7 20 32 39 36 30 00 72 31 72 |Q$(I) . 2960.r1r|
00002970: 0B 82 00 7C 31 7C 0B 45 B2 45 AA 31 00 87 31 86 |...|1|.E.E.1..1.|
00002980: 0B 89 20 32 39 39 30 00 95 31 90 0B 81 20 49 B2 |.. 2990..1... I.|
00002990: 20 31 A4 20 4C 00 A7 31 9A 0B 88 20 51 24 28 49 | 1. L..1... Q$(I|
000029A0: 29 B2 50 24 28 49 29 00 AD 31 A4 0B 82 00 B3 31 |).P$(I)..1.....1|
000029B0: AE 0B 8F 00 C4 31 B8 0B 8B 20 45 B2 30 20 A7 20 |.....1... E.0 . |
000029C0: 33 33 32 30 00 F4 31 C2 0B 99 22 13 11 11 11 11 |3320..1...".....|
000029D0: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................|
000029E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 A3 A3 A3 A3 A3 |................|
000029F0: A3 A3 13 22 00 05 32 CC 0B 8B 20 45 B2 31 20 A7 |..."..2... E.1 .|
00002A00: 20 33 33 32 30 00 2F 32 D6 0B 99 22 13 11 11 11 | 3320./2..."....|
00002A10: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................|
00002A20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D CE CD 13 22 00 |..............".|
00002A30: 40 32 E0 0B 8B 20 45 B2 32 20 A7 20 33 33 32 30 |@2... E.2 . 3320|
00002A40: 00 4D 32 EA 0B 99 22 13 11 11 11 11 22 00 5C 32 |.M2...".....".\2|
00002A50: F4 0B 81 20 49 B2 20 31 20 A4 20 38 00 69 32 FE |... I. 1 . 8.i2.|
00002A60: 0B 99 A3 31 37 29 22 A7 22 00 71 32 08 0C 82 20 |...17)".".q2... |
00002A70: 49 00 7A 32 12 0C 99 22 13 22 00 8B 32 1C 0C 8B |I.z2..."."..2...|
00002A80: 20 45 B2 33 20 A7 20 33 33 32 30 00 B1 32 26 0C | E.3 . 3320..2&.|
00002A90: 99 22 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
00002AA0: 1D 1D 1D 1D 1D 1D 1D 1D A4 A4 A4 A4 A4 A4 A4 13 |................|
00002AB0: 22 00 C2 32 30 0C 8B 20 45 B2 34 20 A7 20 33 33 |"..20.. E.4 . 33|
00002AC0: 32 30 00 E4 32 3A 0C 99 22 13 11 11 11 11 11 1D |20..2:..".......|
00002AD0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002AE0: 1D CE 13 22 00 F5 32 44 0C 8B 20 45 B2 35 20 A7 |..."..2D.. E.5 .|
00002AF0: 20 33 33 32 30 00 1C 33 4E 0C 99 22 13 11 11 11 | 3320..3N.."....|
00002B00: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B10: 1D 1D 1D 1D 1D 1D 1D 1D 1D A7 13 22 00 2D 33 58 |...........".-3X|
00002B20: 0C 8B 20 45 B2 36 20 A7 20 33 33 32 30 00 55 33 |.. E.6 . 3320.U3|
00002B30: 62 0C 99 22 13 11 11 11 11 11 11 1D 1D 1D 1D 1D |b.."............|
00002B40: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B50: 1D 1D CE CD 22 00 77 33 6C 0C 99 22 1D 1D 1D 1D |....".w3l.."....|
00002B60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002B70: 1D 1D 1D CD CE 13 22 00 88 33 76 0C 8B 20 45 B2 |......"..3v.. E.|
00002B80: 37 20 A7 20 33 33 32 30 00 B4 33 80 0C 99 22 13 |7 . 3320..3...".|
00002B90: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002BA0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 D0 |................|
00002BB0: CF A3 13 22 00 C5 33 8A 0C 8B 20 45 B2 38 20 A7 |..."..3... E.8 .|
00002BC0: 20 33 33 32 30 00 F1 33 94 0C 99 22 13 11 11 11 | 3320..3..."....|
00002BD0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002BE0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A7 A5 13 |................|
00002BF0: 22 00 02 34 9E 0C 8B 20 45 B2 39 20 A7 20 33 33 |"..4... E.9 . 33|
00002C00: 32 30 00 35 34 A8 0C 99 22 13 11 11 11 11 11 11 |20.54...".......|
00002C10: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002C20: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D CE CD 13 22 20 |.............." |
00002C30: 20 20 20 20 20 00 64 34 B2 0C 99 22 13 11 11 11 | .d4..."....|
00002C40: 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |................|
00002C50: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A3 20 |............... |
00002C60: 20 A3 13 22 00 84 34 BC 0C 99 22 13 11 11 11 11 | .."..4...".....|
00002C70: 11 11 11 20 20 59 4F 55 20 41 52 45 20 44 45 41 |... YOU ARE DEA|
00002C80: 44 21 13 22 00 A1 34 C6 0C 99 22 13 11 11 11 11 |D!."..4...".....|
00002C90: 11 11 11 11 20 20 59 4F 55 20 4D 49 53 53 45 44 |.... YOU MISSED|
00002CA0: 22 00 B3 34 D0 0C 99 22 20 20 12 22 3B 43 24 3A |"..4..." .";C$:|
00002CB0: 46 B2 31 00 DD 34 D2 0C 99 22 11 11 11 11 11 11 |F.1..4..."......|
00002CC0: 11 20 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 22 00 04 35 | "..5|
00002CE0: D5 0C 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |...".. |
00002CF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002D00: 20 20 20 22 00 3A 35 D6 0C 3A 20 20 99 C8 28 55 | ".:5..: ..(U|
00002D10: 44 24 2C 32 34 29 3B 22 20 20 20 20 20 20 20 20 |D$,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 22 00 43 35 DA 0C 8D | ".C5...|
00002D40: 38 33 35 00 49 35 F8 0C 8E 00 7F 35 02 0D 3A 20 |835.I5.....5..: |
00002D50: 20 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 48 | ..(UD$,24);" H|
00002D60: 45 4C 50 20 2D 20 50 52 45 53 53 20 53 48 49 46 |ELP - PRESS SHIF|
00002D70: 54 45 44 20 48 20 3C 52 45 54 55 52 4E 3E 22 00 |TED H <RETURN>".|
00002D80: AE 35 0C 0D 99 20 C8 28 55 44 24 2C 32 31 29 22 |.5... .(UD$,21)"|
00002D90: 20 20 12 45 4E 54 45 52 20 43 4F 4D 50 4C 45 54 | .ENTER COMPLET|
00002DA0: 45 20 57 4F 52 44 20 54 4F 20 57 49 4E 22 00 B4 |E WORD TO WIN"..|
00002DB0: 35 16 0D 8E 00 00 00 FF |5....... |
.......910.*.... ** ML STOP KEY DISABLE
**.U...."X.=........X` ......L4.X.1.....
...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.F...." COMMODORE 64 COMPUTER.O
....835...N..UZ.1..UP%:.217...W.....X..
** PROGRAM MODIFICATION INST **. .Y.."."
:.UT,UL%.@.].UP.0:UG$."PROGRAM MOD":.850
.P.B.: .". THE WORDS CAN BE EASILY C
HANGED."...D.: .". THEY CAN BE CHANGE
D BY CHANGING".N.F.: .". ANY OR ALL O
F THE WORDS FROM LINE"...H.: .". 1670
TO 2525. THERE IS A MAXIMUM".+.J.: .".
OF 100 WORDS THAT CAN BE STORED".Y.L.
: .". FROM A$(1) TO A$(100). THERE IS
"...N.: .". ALSO A MAXIMUM OF 16 LETT
ERS PER"...P.: .". WORD."...R.: .835
:.850...T.: .".... AFTER CHANGING TH
E WORDS, LINE"...V.: .". 2527 MUST BE
CHANGED TOO.".2.X.: .".. 2527 R=I
NT(.85.*RND(2))+1".P.Z.: ."
^^"...|.: .".. CHANGE THIS NUMB
ER TO THE TOTAL"...~.: .". NUMBER OF
WORDS THAT ARE THERE."......835.K....UZ.
1..UP%:.217.Q.......... ** TO USE 8032 L
OAD CBM4032 **.,.F..".....BEFORE RUNNING
THIS PROGRAM ON AN 8032 ...B.P.."
LOAD THE 'CBM 4032' PROGRAM............
.".M.Z..UU.71.S....... .. ** T I T L E
P A G E **.G.".."....";:.UT,UU%:.B(5000
3).0..53280,14:.53281,6...$..I.1.38:."..
.";:....&..I.1.22:.".....";:....(..I.1.3
7:.".....";:..%.*..I.1.22:.".....";:..J.
,.."........................... ..L....
"................... . . .....0..".....
.............. . ......2.."............
........ ..S.4.."..............C O M M
O D O R E.....6.."...............EDUCATI
ONAL.....8.."................SOFTWARE.0.
:.. ** COMMODORE LOGO **.H.;..H(UD$,24);
"..........PRESS SPACE BAR OR WAIT.":I.0
...<..A$:.A$.." ".I.I.1:.I.250.828...>.T
1$."":T2$."":T3$."":T4$."":I.0...@..300.
S.C.. ** SPACE BAR PRESS **...H..H(UD$,2
4);".......PRESS SPACE BAR TO CONTINUE."
...L..UI$:.UI$.." ".844.%.N...E.R.. ** P
AGE DESIGN ROUTINE **.Q.T.UP.UP.1.X.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... ".B.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:U
L%.14:UP%.1146:UM.32768:. 50003,0.$ ...B
(50003).0.UB.1024:U1.209:U2.210:U3.211:U
4.214:UC.204:UU.2048.\ ...B(50003).0.UT.
53272:UU%.21:UL%.23:UP%.2139:UM.1024.. .
.UD$.".........................".. ..UP$
."
".. ..UT$." HANGMATH ":. PLACE PR
OGRAM TITLE HERE !!!!!!!!!!!!!!!!!***..!
.....!... ** SET VARIABLES **.:!...P$(20
):.A$(100):.Q$(20).C!...900.^!... ** CHE
CK FOR 8032 **.|!...".":." ":. SHIFTED S
PACE..!...B(UB.40)..96..700..!... ** MEM
ORY CHECK **..!... .(0).2000.937..!...".
...THIS MACHINE DOES NOT HAVE ENOUGH."..
"..."MEMORY TO RUN THIS PROGRAM !".."...
UU.71.#"....="..."..":.B(50003).0.962.L"
... ** BASIC 2.0 OR 4.0 OR C-64 SETU
P **.."...1075,133:.1076,144:.1077,234:.
1079,4:.1080,133:.1081,145.."...1091,155
:.1098,133:.1099,144:.1100,234:.1103,133
..#...1104,145:.1105,234:.1082,234..#...
B(50003)..160.955.H#...1093,88:.1094,228
:.1097,85:.1102,228:.965.]#...B(50003)..
1.990..#...1093,49:.1094,230:.1097,46:.1
102,230:.965.F#B..2099,141:.2100,20:.210
1,3:.2103,8:.2104,141:.2105,21..$C..2106
,3:.2115,145:.2117,52:.2118,234:.2121,49
:.2122,141.<$D..2123,20:.2124,3:.2126,23
4:.2127,141:.2128,21:.2129,3.Z$E..UU.48:
. DISABLE STOP KEY.K$J..800:. TITLE.{$T.
.300:. MENU..$...".THE PGM WILL NOT WORK
ON THIS MACHINE!":...$...UZ.1..UP%:.UP%
:UZ.0:. ** PROGRAM STARTS HERE **..%..."
..";:.:.B(50003).0..53281,6:.53280,14..%
..E.0:E$."".;%...". HANGMA
TH".J%..." -----------------------------
---------"..%..: .H(UD$,24);H(UP$,5);"H
ELP - PRESS ? <RETURN>"..%..."........
.......".W%..." LETTERS USED ALREADY=".
.%"....%,.." GUESS NUMBER"..&6..:.:. "
.ENTER COMPLETE WORD TO WIN".'&T.. L.0.
8&^.. I . 1 . 20.I&H.. P$(I).". ".Q&R..
I.[&|.. C.1.R&..A$(1)."PYTHAGORAS"..&..A
$(2)."SYMMETRY"..&..A$(3)."FORMULA"..&..
A$(4)."PYRAMID".E&..A$(5)."RECTANGLE".Z&
..A$(6)."TRIANGLE"..&B.A$(7)."ADDITION".
.'L.A$(8)."APPROXIMATION".!'V.A$(9)."SUB
TRACTION".='..A$(10)."MULTIPLICATION".U'
..A$(11)."STATISTICS".N'..A$(12)."PROBAB
ILITY"..'..A$(13)."HISTOGRAM"..'..A$(14)
."CUBE"..'..A$(15)."PARALLEL".E'..A$(16)
."COORDINATE".Y'&.A$(17)."SQUARE"..'0.A$
(18)."MATRIX"..(:.A$(19)."CIRCLE"..(D.A$
(20)."RHOMBUS".)(N.A$(21)."GRAPH".B(X.A$
(22)."MATHEMATICS".W(B.A$(23)."ALGEBRA".
M(L.A$(24)."GEOMETRY".(V.A$(25)."AXES".
.(..A$(26)."ORIGIN"..(..A$(27)."HEXAGON"
..(..A$(28)."COMPUTER".R(..A$(29)."VERTE
X"..(..A$(30)."CALCULATE"..(..A$(31)."EV
ALUATE"..)..A$(32)."FIGURE".))F.A$(33)."
FRACTION".>)P.A$(34)."DECIMAL".R)Z.A$(35
)."NUMBER".D)..A$(36)."AREA".W)..A$(37).
"TOTAL"..)..A$(38)."PERCENTAGE"..)..A$(3
9)."FIND"..)..A$(40)."RATIO".I)..A$(41).
"AVERAGE"..) .A$(42)."ANGLE"..)*.A$(43).
"DIAGONAL"..*4.A$(44)."EQUATION"..*>.A$(
45)."PLANE"./*H.A$(46)."MEDIAN".A*R.A$(4
7)."MODE".S*\.A$(48)."MEAN".G*F.A$(49)."
VECTOR".|*P.A$(50)."POLYGON"..*Z.A$(51).
"ENLARGEMENT"..*..A$(52)."SCALE"..*..A$(
53)."FACTOR".O*..A$(54)."PRIME"..*..A$(5
5)."CENTIMETRE"..*..A$(56)."MULTIPLE"..+
..A$(57)."METRE".$+..A$(58)."SECOND".:+J
.A$(59)."KILOGRAM".L+T.A$(60)."AREA".`+.
.A$(61)."VOLUME".S+..A$(62)."SPEED"..+..
A$(63)."METRIC"..+..A$(64)."WHOLE"..+..A
$(65)."BEARING".A+..A$(66)."LINE".S+..A$
(67)."NODE"..+$.A$(68)."ARC"..+..A$(69).
"REGION"..,8.A$(70)."SOLID"..,B.A$(71)."
ANGLE".4,L.A$(72)."ROTATION".M,V.A$(73).
"TRANSLATION".A,`.A$(74)."WEIGHT".S,J.A$
(75)."UNIT"..,T.A$(76)."HEIGHT"..,~.A$(7
7)."RADIUS"..,..A$(78)."CONE"..,..A$(79)
."SLOPE".X,..A$(80)."REFLECTION"..,..A$(
81)."PRODUCT"..,..A$(82)."SUM"..-..A$(83
)."STATE".'-D.A$(84)."ACCURACY".;-N.A$(8
5)."TABLES".I-O.A$(86)."".W-P.A$(87)."".
E-Q.A$(88)."".S-R.A$(89).""..-S.A$(90)."
"..-T.A$(91).""..-U.A$(92).""..-V.A$(93)
.""..-W.A$(94)."".G-X.A$(95)."".U-Y.A$(9
6).""..-Z.A$(97).""..-..A$(98).""..-..A$
(99)."".....A$(100)."".!...R..(85..(2)).
1.0.... C$.A$(R).>.... L.C(C$).H....2840
.Y....3330:."...........................
......";C......H(UD$,19);"
".L.... IZ.1 .
10:. B$:. IZ......H(UD$,19);" TYPE LETT
ER OR WORD. ";.-/..UL.16:US$."HABCDEFGHI
JKLMNOPQRSTUVWXYZ":.35:B$.UR$.A/...C(UR$
).16..".".R/...B$."STOP"...G/... C(B$).L
. 2730.|/... C(B$).1 . 2620../2.C.C.1:.
2560../<.C.C.1../F.E$.E$.B$.P/P..H(UD$,
16);"........................"E$../Z.. I
. 1 . L../D.. J(C$,I,1).B$ . . 2710..0N
.. I..0X.. 2840:.F.1.F.0:..%0... 2560.+0
....>0... P$(I).B$." ".D0 ...T0... I . 1
. L.Z0... J(C$,I,1)..J(B$,I,1) . FL.1:I
.L..0R....0W..FL.1.FL.0:.2600..0... E.9
. 2800.V0...".............
.YOU WON!"..0...835..0.....0.....0..
. DISPLAY..1".."..."..1,...(38.2.L).2)"
";.&16.. I.1.L.21@..P$(I);.81J...D1T..".
".R1^.. I.1 . L.L1H.. P$(I)..Q$(I) .
2960.R1R...|1|.E.E.1..1... 2990..1... I.
1. L..1... Q$(I).P$(I)..1.....1....D1..
. E.0 . 3320..1B..".....................
..................."..2L.. E.1 . 3320./2
V.."...............................NM.".
@2... E.2 . 3320.M2...".....".\2... I. 1
. 8.I2....17)".".Q2... I.Z2..."."..2...
E.3 . 3320..2&.."......................
........".B20.. E.4 . 3320..2:..".......
.................N."..2D.. E.5 . 3320..3
N.."...............................".-3X
.. E.6 . 3320.U3B.."....................
..........NM".W3L.."....................
...MN."..3V.. E.7 . 3320..3...".........
.......................PO..".E3... E.8 .
3320..3..."............................
........"..4... E.9 . 3320.54...".......
...........................NM." .D4
..."...................................
.."..4..."........ YOU ARE DEAD!."..4F
.."......... YOU MISSED"..4P.." .";C$:
F.1..4R..".......
"..5U.."..
".:5V.: .H(UD$,24);"
".C5Z..835.I5....5..:
.H(UD$,24);" HELP - PRESS SHIFTED H <R
ETURN>"..5... H(UD$,21)" .ENTER COMPLET
E WORD TO WIN"..5.......
> CLICK IMAGE PREVIEW FOR FULL MODAL