P'BLEM P'NOUN.C3
FILE INFORMATION
FILENAME(S): P'BLEM P'NOUN.C3
FILE TYPE(S): PRG
FILE SIZE: 10.7K
FIRST SEEN: 2025-10-20 14:29:52
APPEARS ON: 1 disk(s)
FILE HASH
77829b87c20e8d29212b41e445bc44f952467a54ea1a5830d53328257dd13c32
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0009ED | P'BLEM P'NOUN.C3 | PRG | Treasure Chest - Klaus Der Suhler | 27 | 5 | 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 E4 08 23 00 8F 20 2B |UTINE **...#.. +|
000000D0: 2B 2B 20 49 4E 50 55 54 20 53 45 43 54 49 4F 4E |++ INPUT SECTION|
000000E0: 20 2B 2B 2B 00 FC 08 28 00 97 55 4F 2C 30 3A 55 | +++...(..UO,0:U|
000000F0: 52 24 B2 22 22 3A 55 49 24 B2 22 22 00 0C 09 2A |R$."":UI$.""...*|
00000100: 00 8B 55 4C B2 30 A7 55 4C B2 38 30 00 1F 09 2D |..UL.0.UL.80...-|
00000110: 00 99 22 20 20 9D 9D 22 3B 3A 97 55 43 2C 30 00 |.." ..";:.UC,0.|
00000120: 33 09 32 00 A1 55 49 24 3A 8B 55 49 24 B2 22 22 |3.2..UI$:.UI$.""|
00000130: A7 35 30 00 5D 09 37 00 8B 55 49 24 B2 C7 28 31 |.50.].7..UI$..(1|
00000140: 33 29 AF C3 28 55 52 24 29 B1 B2 31 A7 97 55 43 |3)..(UR$)..1..UC|
00000150: 2C 31 3A 99 22 20 9D 22 3B 3A 89 38 35 00 70 09 |,1:." .";:.85.p.|
00000160: 3C 00 8B 55 49 24 B2 C7 28 32 30 29 A7 31 30 35 |<..UI$..(20).105|
00000170: 00 84 09 3E 00 8B 20 C3 28 55 52 24 29 B2 B1 55 |...>.. .(UR$)..U|
00000180: 4C A7 35 30 00 A9 09 41 00 8D 31 32 30 3A 8F 20 |L.50...A..120:. |
00000190: 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 44 20 |CHECK FOR VALID |
000001A0: 43 48 41 52 41 43 54 45 52 00 B9 09 46 00 55 52 |CHARACTER...F.UR|
000001B0: 24 B2 55 52 24 AA 55 49 24 00 C3 09 4B 00 99 55 |$.UR$.UI$...K..U|
000001C0: 49 24 3B 00 CB 09 50 00 89 35 30 00 F0 09 55 00 |I$;...P..50...U.|
000001D0: 8F 20 2B 2B 2B 20 43 48 45 43 4B 20 46 4F 52 20 |. +++ CHECK FOR |
000001E0: 48 45 4C 50 20 52 45 51 55 45 53 54 20 2B 2B 2B |HELP REQUEST +++|
000001F0: 00 18 0A 5A 00 8B 55 52 24 B2 55 58 24 A7 31 39 |...Z..UR$.UX$.19|
00000200: 35 3A 8F 20 45 58 49 54 20 54 4F 20 48 45 4C 50 |5:. EXIT TO HELP|
00000210: 20 52 4F 55 54 49 4E 45 00 27 0A 5F 00 8B 55 46 | ROUTINE.'._..UF|
00000220: B2 31 A7 8D 32 34 30 00 34 0A 64 00 55 46 B2 30 |.1..240.4.d.UF.0|
00000230: 3A 99 3A 8E 00 4D 0A 66 00 8F 20 2B 2B 20 43 48 |:.:..M.f.. ++ CH|
00000240: 45 43 4B 20 44 45 4C 45 54 45 20 2B 2B 00 5E 0A |ECK DELETE ++.^.|
00000250: 69 00 8B C3 28 55 52 24 29 B3 31 A7 35 30 00 76 |i...(UR$).1.50.v|
00000260: 0A 6E 00 55 52 24 B2 C8 28 55 52 24 2C C3 28 55 |.n.UR$..(UR$,.(U|
00000270: 52 24 29 AB 31 29 00 88 0A 73 00 99 22 9D 20 20 |R$).1)...s..". |
00000280: 9D 9D 22 3B 3A 89 35 30 00 AF 0A 78 00 8F 20 2B |..";:.50...x.. +|
00000290: 2B 20 43 48 45 43 4B 20 46 4F 52 20 56 41 4C 49 |+ CHECK FOR VALI|
000002A0: 44 20 43 48 41 52 41 43 54 45 52 53 20 2B 2B 00 |D CHARACTERS ++.|
000002B0: C1 0A 7D 00 8B C3 28 55 53 24 29 B2 30 A7 31 35 |..}...(US$).0.15|
000002C0: 30 00 D1 0A 7F 00 55 53 24 B2 55 53 24 AA 55 58 |0.....US$.US$.UX|
000002D0: 24 00 E2 0A 82 00 81 55 53 B2 31 A4 C3 28 55 53 |$......US.1..(US|
000002E0: 24 29 00 F9 0A 87 00 8B 55 49 24 B2 CA 28 55 53 |$)......UI$..(US|
000002F0: 24 2C 55 53 2C 31 29 A7 8E 00 FF 0A 8C 00 82 00 |$,US,1).........|
00000300: 0C 0B 91 00 55 49 24 B2 22 22 3A 8E 00 27 0B 96 |....UI$."":..'..|
00000310: 00 8F 20 2A 2A 20 53 54 41 4E 44 41 52 44 20 49 |.. ** STANDARD I|
00000320: 4E 50 55 54 20 2A 2A 00 38 0B 98 00 8B C6 28 55 |NPUT **.8.....(U|
00000330: 49 24 29 B2 34 36 A7 8E 00 49 0B 9B 00 8B 55 49 |I$).46...I....UI|
00000340: 24 B2 C7 28 33 32 29 A7 8E 00 66 0B A0 00 8B C6 |$..(32)...f.....|
00000350: 28 55 49 24 29 B3 34 38 B0 C6 28 55 49 24 29 B1 |(UI$).48..(UI$).|
00000360: 35 37 A7 31 37 30 00 6C 0B A5 00 8E 00 89 0B AA |57.170.l........|
00000370: 00 8B C6 28 55 49 24 29 B3 36 35 B0 C6 28 55 49 |...(UI$).65..(UI|
00000380: 24 29 B1 39 30 A7 31 38 30 00 8F 0B AF 00 8E 00 |$).90.180.......|
00000390: B3 0B B4 00 8B C6 28 55 49 24 29 B3 31 39 33 B0 |......(UI$).193.|
000003A0: C6 28 55 49 24 29 B1 32 31 38 A7 55 49 24 B2 22 |.(UI$).218.UI$."|
000003B0: 22 3A 8E 00 D6 0B B9 00 8B C2 28 55 54 29 B2 55 |":........(UT).U|
000003C0: 55 25 A7 55 49 24 B2 C7 28 C6 28 55 49 24 29 AB |U%.UI$..(.(UI$).|
000003D0: 31 32 38 29 3A 8E 00 DC 0B BB 00 8E 00 E9 0B BE |128):...........|
000003E0: 00 55 49 24 B2 22 22 3A 8E 00 0E 0C C3 00 55 46 |.UI$."":......UF|
000003F0: B2 31 3A 8F 20 2B 2B 2B 20 48 45 4C 50 20 52 4F |.1:. +++ HELP RO|
00000400: 55 54 49 4E 45 20 45 58 49 54 20 2B 2B 2B 00 17 |UTINE EXIT +++..|
00000410: 0C C5 00 8D 32 35 30 00 20 0C C8 00 8D 32 34 35 |....250. ....245|
00000420: 00 3F 0C CD 00 81 55 51 B2 55 42 A4 28 55 32 25 |.?....UQ.UB.(U2%|
00000430: AC 32 35 36 AA 55 31 25 AA 55 33 25 AB 32 29 00 |.256.U1%.U3%.2).|
00000440: 5B 0C D2 00 55 51 25 28 55 51 AB 55 42 29 B2 C2 |[...UQ%(UQ.UB)..|
00000450: 28 55 51 29 3A 82 3A 99 22 93 22 00 6E 0C D7 00 |(UQ):.:.".".n...|
00000460: 55 5A B2 31 3A 55 56 25 B2 C2 28 55 54 29 00 77 |UZ.1:UV%..(UT).w|
00000470: 0C D8 00 89 33 30 30 00 9C 0C D9 00 55 5A B2 30 |....300.....UZ.0|
00000480: 3A 55 53 24 B2 55 4A 24 3A 55 47 24 B2 55 4B 24 |:US$.UJ$:UG$.UK$|
00000490: 3A 55 50 B2 55 4A 3A 55 4C B2 55 4B 00 D3 0C DA |:UP.UJ:UL.UK....|
000004A0: 00 8B C2 28 35 30 30 30 33 29 B2 30 A7 97 35 33 |...(50003).0..53|
000004B0: 32 38 31 2C 31 3A 99 22 93 22 3B 3A 97 35 33 32 |281,1:.".";:.532|
000004C0: 38 31 2C 36 3A 97 35 33 32 38 30 2C 31 34 3A 89 |81,6:.53280,14:.|
000004D0: 32 32 30 00 DD 0C DB 00 99 22 93 22 3B 00 0C 0D |220......".";...|
000004E0: DC 00 55 54 24 B2 55 4C 24 3A 97 55 54 2C 55 56 |..UT$.UL$:.UT,UV|
000004F0: 25 3A 81 55 51 B2 55 42 A4 28 55 32 25 AC 32 35 |%:.UQ.UB.(U2%.25|
00000500: 36 AA 55 31 25 AA 55 33 25 AB 33 29 00 21 0D E1 |6.U1%.U3%.3).!..|
00000510: 00 97 55 51 2C 55 51 25 28 55 51 AB 55 42 29 3A |..UQ,UQ%(UQ.UB):|
00000520: 82 00 2D 0D E6 00 97 55 31 2C 55 31 25 00 39 0D |..-....U1,U1%.9.|
00000530: E8 00 97 55 32 2C 55 32 25 00 45 0D E9 00 97 55 |...U2,U2%.E....U|
00000540: 34 2C 55 34 25 00 53 0D EA 00 97 55 33 2C 55 33 |4,U4%.S....U3,U3|
00000550: 25 AB 31 00 5B 0D EB 00 89 33 35 00 8D 0D F0 00 |%.1.[....35.....|
00000560: 55 44 25 B2 28 28 55 32 25 AC 32 35 36 AA 55 31 |UD%.((U2%.256.U1|
00000570: 25 AA 55 33 25 29 AB 55 42 29 AD 34 30 3A 99 C8 |%.U3%).UB).40:..|
00000580: 28 55 44 24 2C 55 44 25 AA 31 29 3A 8E 00 C8 0D |(UD$,UD%.1):....|
00000590: F5 00 99 C8 28 55 44 24 2C 32 34 29 3B 22 20 20 |....(UD$,24);" |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 12 20 48 45 4C 50 20 43 4F 4D 49 4E | . HELP COMIN|
000005C0: 47 20 92 20 20 22 3A 8E 00 F4 0D FA 00 55 31 25 |G . ":......U1%|
000005D0: B2 C2 28 55 31 29 3A 55 32 25 B2 C2 28 55 32 29 |..(U1):U2%..(U2)|
000005E0: 3A 55 33 25 B2 C2 28 55 33 29 3A 55 34 25 B2 C2 |:U3%..(U3):U4%..|
000005F0: 28 55 34 29 00 1C 0E FB 00 55 4A 24 B2 55 53 24 |(U4).....UJ$.US$|
00000600: 3A 55 4B 24 B2 55 47 24 3A 55 4C 24 B2 55 54 24 |:UK$.UG$:UL$.UT$|
00000610: 3A 55 4A B2 55 50 3A 55 4B B2 55 4C 00 22 0E FF |:UJ.UP:UK.UL."..|
00000620: 00 8E 00 33 0E 2C 01 8F 20 2A 2A 20 4D 45 4E 55 |...3.,.. ** MENU|
00000630: 20 2A 2A 00 39 0E 2D 01 3A 00 68 0E 2E 01 99 22 | **.9.-.:.h...."|
00000640: 93 22 3A 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 |.":.UT,UU%:..(50|
00000650: 30 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 39 3A |003).0..53281,9:|
00000660: 97 35 33 32 38 30 2C 38 00 6E 0E 2F 01 3A 00 8B |.53280,8.n./.:..|
00000670: 0E 31 01 99 22 13 20 20 20 20 20 20 20 20 20 20 |.1..". |
00000680: 20 20 20 20 20 20 4D 45 4E 55 22 00 BA 0E 36 01 | MENU"...6.|
00000690: 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |." -------------|
000006A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000006B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E0 0E 3B 01 99 |---------"...;..|
000006C0: 22 11 11 20 20 20 20 20 20 20 31 2E 20 20 20 50 |".. 1. P|
000006D0: 52 4F 42 4C 45 4D 20 50 52 4F 4E 4F 55 4E 53 22 |ROBLEM PRONOUNS"|
000006E0: 00 0A 0F 40 01 99 22 11 11 20 20 20 20 20 20 20 |...@..".. |
000006F0: 32 2E 20 20 20 53 54 55 44 45 4E 54 20 49 4E 53 |2. STUDENT INS|
00000700: 54 52 55 43 54 49 4F 4E 53 22 00 34 0F 45 01 99 |TRUCTIONS".4.E..|
00000710: 22 11 11 20 20 20 20 20 20 20 33 2E 20 20 20 54 |".. 3. T|
00000720: 45 41 43 48 45 52 20 49 4E 53 54 52 55 43 54 49 |EACHER INSTRUCTI|
00000730: 4F 4E 53 22 00 61 0F 4A 01 99 22 11 11 20 20 20 |ONS".a.J..".. |
00000740: 20 20 20 20 34 2E 20 20 20 4D 4F 44 49 46 49 43 | 4. MODIFIC|
00000750: 41 54 49 4F 4E 20 4F 46 20 50 52 4F 47 52 41 4D |ATION OF PROGRAM|
00000760: 22 00 7D 0F 4F 01 99 22 11 11 20 20 20 20 20 20 |".}.O..".. |
00000770: 20 35 2E 20 20 20 51 55 49 54 11 11 22 00 AC 0F | 5. QUIT.."...|
00000780: 54 01 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T.." -----------|
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 2D 22 00 D7 0F 59 |-----------"...Y|
000007B0: 01 99 22 11 11 20 20 20 20 20 20 20 50 52 45 53 |..".. PRES|
000007C0: 53 20 41 20 4E 55 4D 42 45 52 20 4B 45 59 20 28 |S A NUMBER KEY (|
000007D0: 31 2D 35 29 20 22 3B 00 00 10 5E 01 55 4C B2 31 |1-5) ";...^.UL.1|
000007E0: 3A 55 53 24 B2 22 31 32 33 34 35 22 3A 8D 33 35 |:US$."12345":.35|
000007F0: 3A 8F 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 |:. INPUT ROUTINE|
00000800: 00 12 10 5F 01 8B C3 28 55 52 24 29 B1 31 A7 33 |..._...(UR$).1.3|
00000810: 30 30 00 1D 10 60 01 55 53 24 B2 22 22 00 3E 10 |00...`.US$."".>.|
00000820: 63 01 91 C5 28 55 52 24 29 8D 31 30 30 30 2C 34 |c...(UR$).1000,4|
00000830: 30 30 2C 35 30 30 2C 36 30 30 2C 33 39 36 00 47 |00,500,600,396.G|
00000840: 10 68 01 89 33 30 30 00 6E 10 8B 01 8F 20 2A 2A |.h..300.n.... **|
00000850: 20 52 45 2D 45 4E 41 42 4C 45 20 53 54 4F 50 20 | RE-ENABLE STOP |
00000860: 4B 45 59 20 41 4E 44 20 45 4E 44 20 2A 2A 00 9D |KEY AND END **..|
00000870: 10 8C 01 8B C2 28 35 30 30 30 33 29 B3 B1 31 AF |.....(50003)..1.|
00000880: C2 28 35 30 30 30 33 29 B3 B1 31 36 30 AF C2 28 |.(50003)..160..(|
00000890: 35 30 30 30 33 29 B3 B1 30 A7 33 39 39 00 C7 10 |50003)..0.399...|
000008A0: 8D 01 9E 55 55 AA 37 31 3A 8B C2 28 35 30 30 30 |...UU.71:..(5000|
000008B0: 33 29 B2 30 A7 97 35 33 32 38 31 2C 36 3A 97 35 |3).0..53281,6:.5|
000008C0: 33 32 38 30 2C 31 34 00 D3 10 8E 01 99 22 9A 93 |3280,14......"..|
000008D0: 22 3A 80 00 DE 10 8F 01 8D 38 37 35 3A 8E 00 FF |":.......875:...|
000008E0: 10 90 01 8F 20 2A 2A 20 53 54 55 44 45 4E 54 20 |.... ** STUDENT |
000008F0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 |INSTRUCTIONS **.|
00000900: 08 11 92 01 99 22 93 22 00 37 11 95 01 99 22 93 |.....".".7....".|
00000910: 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 28 35 30 30 |":.UT,UL%:..(500|
00000920: 30 33 29 B2 30 A7 97 35 33 32 38 31 2C 30 3A 97 |03).0..53281,0:.|
00000930: 35 33 32 38 30 2C 30 00 58 11 9A 01 55 50 B2 30 |53280,0.X...UP.0|
00000940: 3A 55 47 24 B2 22 D3 54 55 44 45 4E 54 20 C9 4E |:UG$.".TUDENT .N|
00000950: 53 54 22 3A 8D 38 35 30 00 62 11 9F 01 8D 31 32 |ST":.850.b....12|
00000960: 31 30 00 6B 11 C6 01 55 50 B2 31 00 74 11 C7 01 |10.k...UP.1.t...|
00000970: 8D 38 35 30 00 A4 11 DB 01 99 22 11 11 1D 1D 1D |.850......".....|
00000980: 1D 1D C9 46 20 41 54 20 41 4E 59 20 54 49 4D 45 |...F AT ANY TIME|
00000990: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 54 | YOU WISH TO RET|
000009A0: 55 52 4E 22 00 C8 11 E0 01 99 22 11 20 54 4F 20 |URN"......". TO |
000009B0: 54 48 45 20 CD C5 CE D5 20 50 52 45 53 53 20 48 |THE .... PRESS H|
000009C0: 20 D2 C5 D4 D5 D2 CE 22 00 D1 11 E5 01 8D 38 33 | ......"......83|
000009D0: 35 00 E5 11 EA 01 8B 55 5A B2 31 A7 9E 55 50 25 |5......UZ.1..UP%|
000009E0: 3A 89 32 31 37 00 EB 11 F3 01 8E 00 0C 12 F4 01 |:.217...........|
000009F0: 8F 20 2A 2A 20 54 45 41 43 48 45 52 20 49 4E 53 |. ** TEACHER INS|
00000A00: 54 52 55 43 54 49 4F 4E 53 20 2A 2A 00 3C 12 F5 |TRUCTIONS **.<..|
00000A10: 01 99 22 93 22 3A 97 55 54 2C 55 4C 25 3A 8B C2 |..".":.UT,UL%:..|
00000A20: 28 35 30 30 30 33 29 B2 30 A7 97 35 33 32 38 31 |(50003).0..53281|
00000A30: 2C 32 3A 97 35 33 32 38 30 2C 31 30 00 5D 12 F6 |,2:.53280,10.]..|
00000A40: 01 55 50 B2 30 3A 55 47 24 B2 22 D4 45 41 43 48 |.UP.0:UG$.".EACH|
00000A50: 45 52 20 C9 4E 53 54 22 3A 8D 38 35 30 00 8B 12 |ER .NST":.850...|
00000A60: F7 01 99 22 11 11 20 20 20 20 20 20 D4 4F 20 54 |...".. .O T|
00000A70: 48 45 20 42 45 53 54 20 4F 46 20 4F 55 52 20 4B |HE BEST OF OUR K|
00000A80: 4E 4F 57 4C 45 44 47 45 2C 11 22 00 B4 12 F8 01 |NOWLEDGE,.".....|
00000A90: 99 22 20 20 20 54 48 49 53 20 50 52 4F 47 52 41 |." THIS PROGRA|
00000AA0: 4D 20 49 53 20 49 4E 20 54 48 45 20 50 55 42 4C |M IS IN THE PUBL|
00000AB0: 49 43 11 22 00 E0 12 F9 01 99 22 20 20 20 44 4F |IC."......" DO|
00000AC0: 4D 41 49 4E 2E 20 20 C9 46 20 54 48 49 53 20 49 |MAIN. .F THIS I|
00000AD0: 53 20 4E 4F 54 20 54 48 45 20 43 41 53 45 11 22 |S NOT THE CASE."|
00000AE0: 00 FD 12 FA 01 99 22 20 20 20 50 4C 45 41 53 45 |......" PLEASE|
00000AF0: 20 43 4F 4E 54 41 43 54 3A 11 11 11 22 00 27 13 | CONTACT:...".'.|
00000B00: FB 01 99 22 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 |..." .OMMOD|
00000B10: 4F 52 45 20 C2 55 53 49 4E 45 53 53 20 CD 41 43 |ORE .USINESS .AC|
00000B20: 48 49 4E 45 53 11 22 00 4A 13 FC 01 99 22 20 20 |HINES.".J...." |
00000B30: 20 20 20 20 20 20 20 20 33 33 37 30 20 D0 48 41 | 3370 .HA|
00000B40: 52 4D 41 43 59 20 C1 56 45 2E 00 6E 13 FD 01 99 |RMACY .VE..n....|
00000B50: 22 20 20 20 20 20 20 20 20 20 20 C1 47 49 4E 43 |" .GINC|
00000B60: 4F 55 52 54 2C 20 CF 4E 54 41 52 49 4F 22 00 90 |OURT, .NTARIO"..|
00000B70: 13 FE 01 99 22 20 20 20 20 20 20 20 20 20 20 C3 |...." .|
00000B80: 41 4E 41 44 41 20 20 20 CD 31 D7 20 32 CB 34 22 |ANADA .1. 2.4"|
00000B90: 00 B0 13 FF 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
00000BA0: 20 28 34 31 36 29 20 34 39 39 2D 34 32 39 32 22 | (416) 499-4292"|
00000BB0: 00 C6 13 00 02 55 50 B2 31 3A 8D 20 38 33 35 3A |.....UP.1:. 835:|
00000BC0: 8D 20 38 35 30 3A 00 F3 13 01 02 99 22 20 20 20 |. 850:......" |
00000BD0: 20 20 11 11 D0 52 4F 47 52 41 4D 20 CE 41 4D 45 | ...ROGRAM .AME|
00000BE0: 3A 20 D0 52 4F 42 4C 45 4D 20 D0 52 4F 4E 4F 55 |: .ROBLEM .RONOU|
00000BF0: 4E 53 11 00 1D 14 02 02 99 22 20 20 20 20 20 D7 |NS......." .|
00000C00: 52 49 54 54 45 4E 20 C2 59 20 20 3A 20 D3 45 52 |RITTEN .Y : .ER|
00000C10: 47 49 55 53 20 CD 41 54 43 5A 55 4B 11 00 46 14 |GIUS .ATCZUK..F.|
00000C20: 03 02 99 22 20 20 20 20 20 D5 50 47 52 41 44 45 |..." .PGRADE|
00000C30: 44 20 C2 59 20 3A 20 D3 54 45 50 48 45 4E 20 C6 |D .Y : .TEPHEN .|
00000C40: 45 4E 54 4F 4E 11 00 71 14 04 02 99 22 20 20 20 |ENTON..q...." |
00000C50: 20 20 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 | ..HIS PROGRAM |
00000C60: 57 49 4C 4C 20 52 55 4E 20 4F 4E 20 41 4E 59 11 |WILL RUN ON ANY.|
00000C70: 11 00 91 14 07 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000C80: 20 D0 C5 D4 20 36 34 20 C3 CF CD D0 D5 D4 C5 D2 | ... 64 ........|
00000C90: 11 00 B6 14 08 02 99 22 20 20 20 20 20 20 20 20 |......." |
00000CA0: 20 C3 CF CD CD CF C4 CF D2 C5 20 36 34 20 C3 CF | ......... 64 ..|
00000CB0: CD D0 D5 D4 C5 D2 00 BF 14 09 02 8D 38 33 35 00 |............835.|
00000CC0: D3 14 4E 02 8B 55 5A B2 31 A7 9E 55 50 25 3A 89 |..N..UZ.1..UP%:.|
00000CD0: 32 31 37 00 D9 14 57 02 8E 00 FF 14 58 02 8F 20 |217...W.....X.. |
00000CE0: 2A 2A 20 50 52 4F 47 52 41 4D 20 4D 4F 44 49 46 |** PROGRAM MODIF|
00000CF0: 49 43 41 54 49 4F 4E 20 49 4E 53 54 20 2A 2A 00 |ICATION INST **.|
00000D00: 10 15 59 02 99 22 93 22 3A 97 55 54 2C 55 4C 25 |..Y..".":.UT,UL%|
00000D10: 00 1E 15 5A 02 97 35 39 34 36 38 2C 31 34 00 3E |...Z..59468,14.>|
00000D20: 15 5D 02 55 50 B2 30 3A 55 47 24 B2 22 D0 52 4F |.].UP.0:UG$.".RO|
00000D30: 47 52 41 4D 20 CD 4F 44 22 3A 8D 38 35 30 00 6D |GRAM .OD":.850.m|
00000D40: 15 62 02 99 22 11 11 11 20 20 D4 4F 20 4D 4F 44 |.b.."... .O MOD|
00000D50: 49 46 59 20 54 48 45 20 44 41 54 41 20 4F 46 20 |IFY THE DATA OF |
00000D60: 54 48 49 53 20 50 52 4F 47 52 41 4D 22 00 9A 15 |THIS PROGRAM"...|
00000D70: 6C 02 99 22 11 20 59 4F 55 20 4D 55 53 54 20 43 |l..". YOU MUST C|
00000D80: 48 41 4E 47 45 20 54 48 45 20 C4 C1 D4 C1 20 53 |HANGE THE .... S|
00000D90: 54 41 54 45 4D 45 4E 54 53 22 00 BB 15 71 02 99 |TATEMENTS"...q..|
00000DA0: 22 11 20 53 54 41 52 54 49 4E 47 20 49 4E 20 4C |". STARTING IN L|
00000DB0: 49 4E 45 20 31 39 39 30 2E 20 22 00 E6 15 76 02 |INE 1990. "...v.|
00000DC0: 99 22 11 11 20 20 D9 4F 55 20 4D 55 53 54 20 41 |.".. .OU MUST A|
00000DD0: 4C 53 4F 20 43 48 41 4E 47 45 20 54 48 45 20 55 |LSO CHANGE THE U|
00000DE0: 50 50 45 52 20 22 00 13 16 7B 02 99 22 11 20 4C |PPER "...{..". L|
00000DF0: 49 4D 49 54 20 4F 46 20 54 48 45 20 C6 CF D2 20 |IMIT OF THE ... |
00000E00: 4C 4F 4F 50 20 49 4E 20 4C 49 4E 45 20 31 33 34 |LOOP IN LINE 134|
00000E10: 30 20 22 00 42 16 80 02 99 22 11 20 41 4E 44 20 |0 ".B....". AND |
00000E20: 54 48 45 20 46 49 52 53 54 20 4C 49 4D 49 54 20 |THE FIRST LIMIT |
00000E30: 4F 46 20 D8 24 20 49 4E 20 54 48 45 20 C4 C9 CD |OF .$ IN THE ...|
00000E40: 20 22 00 61 16 85 02 99 22 11 20 53 54 41 54 45 | ".a....". STATE|
00000E50: 4D 45 4E 54 20 49 4E 20 4C 49 4E 45 20 39 30 38 |MENT IN LINE 908|
00000E60: 22 00 6A 16 94 02 8D 38 33 35 00 7E 16 B2 02 8B |".j....835.~....|
00000E70: 55 5A B2 31 A7 9E 55 50 25 3A 89 32 31 37 00 84 |UZ.1..UP%:.217..|
00000E80: 16 BB 02 8E 00 A9 16 BC 02 8F 20 2A 2A 20 54 4F |.......... ** TO|
00000E90: 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 20 43 | USE 8032 LOAD C|
00000EA0: 42 4D 34 30 33 32 20 2A 2A 00 DF 16 C6 02 99 22 |BM4032 **......"|
00000EB0: 93 11 11 11 05 42 45 46 4F 52 45 20 52 55 4E 4E |.....BEFORE RUNN|
00000EC0: 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 4D |ING THIS PROGRAM|
00000ED0: 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 00 | ON AN 8032 ...|
00000EE0: 15 17 D0 02 99 22 20 20 20 20 20 20 4C 4F 41 44 |....." LOAD|
00000EF0: 20 54 48 45 20 27 43 42 4D 20 34 30 33 32 27 20 | THE 'CBM 4032' |
00000F00: 50 52 4F 47 52 41 4D 11 11 11 11 11 11 11 11 11 |PROGRAM.........|
00000F10: 11 11 11 11 22 00 20 17 DA 02 9E 55 55 AA 37 31 |....". ....UU.71|
00000F20: 00 26 17 E4 02 80 00 4B 17 1D 03 8F 20 2A 2A 20 |.&.....K.... ** |
00000F30: 54 4F 20 55 53 45 20 38 30 33 32 20 4C 4F 41 44 |TO USE 8032 LOAD|
00000F40: 20 43 42 4D 34 30 33 32 20 2A 2A 00 96 17 1E 03 | CBM4032 **.....|
00000F50: 99 22 93 11 11 11 42 45 46 4F 52 45 20 52 55 4E |."....BEFORE RUN|
00000F60: 4E 49 4E 47 20 54 48 49 53 20 50 52 4F 47 52 41 |NING THIS PROGRA|
00000F70: 4D 20 4F 4E 20 41 4E 20 38 30 33 32 20 20 11 11 |M ON AN 8032 ..|
00000F80: 4C 4F 41 44 20 43 42 4D 20 34 30 33 32 20 50 52 |LOAD CBM 4032 PR|
00000F90: 4F 47 52 41 4D 22 00 A2 17 1F 03 9E 31 30 39 33 |OGRAM"......1093|
00000FA0: 3A 80 00 C2 17 20 03 8F 20 2A 2A 20 54 20 49 20 |:.... .. ** T I |
00000FB0: 54 20 4C 20 45 20 20 20 50 20 41 20 47 20 45 20 |T L E P A G E |
00000FC0: 2A 2A 00 F6 17 22 03 99 22 93 11 1D 05 22 3B 3A |**...".."....";:|
00000FD0: 97 55 54 2C 55 55 25 3A 8B C2 28 35 30 30 30 33 |.UT,UU%:..(50003|
00000FE0: 29 B2 30 A7 97 35 33 32 38 30 2C 31 34 3A 97 35 |).0..53280,14:.5|
00000FF0: 33 32 38 31 2C 36 00 0C 18 24 03 81 49 B2 31 A4 |3281,6...$..I.1.|
00001000: 33 38 3A 99 22 12 A6 92 22 3B 3A 82 00 24 18 26 |38:."...";:..$.&|
00001010: 03 81 49 B2 31 A4 32 32 3A 99 22 11 9D 12 A6 92 |..I.1.22:.".....|
00001020: 22 3B 3A 82 00 3C 18 28 03 81 49 B2 31 A4 33 37 |";:..<.(..I.1.37|
00001030: 3A 99 22 9D 9D 12 A6 92 22 3B 3A 82 00 54 18 2A |:.".....";:..T.*|
00001040: 03 81 49 B2 31 A4 32 32 3A 99 22 91 9D 12 A6 92 |..I.1.22:.".....|
00001050: 22 3B 3A 82 00 79 18 2C 03 99 22 13 11 11 11 11 |";:..y.,..".....|
00001060: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001070: 1D 1D 1D 1D 12 A9 20 20 92 00 9B 18 2E 03 99 22 |...... ......."|
00001080: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001090: 1D 1D 12 20 92 20 20 12 20 92 A9 00 BC 18 30 03 |... . . .....0.|
000010A0: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............|
000010B0: 1D 1D 1D 1D 12 20 92 20 20 12 A3 DF 00 DA 18 32 |..... . ......2|
000010C0: 03 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
000010D0: 1D 1D 1D 1D 1D DF 12 20 20 92 00 02 19 34 03 99 |....... ....4..|
000010E0: 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 43 |"..............C|
000010F0: 20 4F 20 4D 20 4D 20 4F 20 44 20 4F 20 52 20 45 | O M M O D O R E|
00001100: 11 11 00 25 19 36 03 99 22 1D 1D 1D 1D 1D 1D 1D |...%.6..".......|
00001110: 1D 1D 1D 1D 1D 1D 1D 1D 45 44 55 43 41 54 49 4F |........EDUCATIO|
00001120: 4E 41 4C 11 11 00 44 19 38 03 99 22 1D 1D 1D 1D |NAL...D.8.."....|
00001130: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 53 4F 46 54 |............SOFT|
00001140: 57 41 52 45 00 5F 19 3A 03 8F 20 2A 2A 20 43 4F |WARE._.:.. ** CO|
00001150: 4D 4D 4F 44 4F 52 45 20 4C 4F 47 4F 20 2A 2A 00 |MMODORE LOGO **.|
00001160: 97 19 3B 03 99 C8 28 55 44 24 2C 32 34 29 3B 22 |..;...(UD$,24);"|
00001170: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 50 52 45 53 53 20 |..........PRESS |
00001180: 53 50 41 43 45 20 42 41 52 20 4F 52 20 57 41 49 |SPACE BAR OR WAI|
00001190: 54 92 22 3A 49 B2 30 00 B9 19 3C 03 A1 41 24 3A |T.":I.0...<..A$:|
000011A0: 8B 41 24 B3 B1 22 20 22 A7 49 B2 49 AA 31 3A 8B |.A$.." ".I.I.1:.|
000011B0: 49 B3 32 35 30 A7 38 32 38 00 DD 19 3E 03 54 31 |I.250.828...>.T1|
000011C0: 24 B2 22 22 3A 54 32 24 B2 22 22 3A 54 33 24 B2 |$."":T2$."":T3$.|
000011D0: 22 22 3A 54 34 24 B2 22 22 3A 49 B2 30 00 E6 19 |"":T4$."":I.0...|
000011E0: 40 03 89 33 30 30 00 02 1A 43 03 8F 20 2A 2A 20 |@..300...C.. ** |
000011F0: 53 50 41 43 45 20 42 41 52 20 50 52 45 53 53 20 |SPACE BAR PRESS |
00001200: 2A 2A 00 3D 1A 48 03 97 55 4F 2C 30 3A 99 C8 28 |**.=.H..UO,0:..(|
00001210: 55 44 24 2C 32 34 29 3B 22 1D 1D 1D 1D 1D 1D 12 |UD$,24);".......|
00001220: 50 52 45 53 53 20 53 50 41 43 45 20 42 41 52 20 |PRESS SPACE BAR |
00001230: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 54 1A |TO CONTINUE.".T.|
00001240: 4C 03 A1 55 49 24 3A 8B 55 49 24 B3 B1 22 20 22 |L..UI$:.UI$.." "|
00001250: A7 38 34 34 00 5A 1A 4E 03 8E 00 7A 1A 52 03 8F |.844.Z.N...z.R..|
00001260: 20 2A 2A 20 50 41 47 45 20 44 45 53 49 47 4E 20 | ** PAGE DESIGN |
00001270: 52 4F 55 54 49 4E 45 20 2A 2A 00 86 1A 54 03 55 |ROUTINE **...T.U|
00001280: 50 B2 55 50 AA 31 00 B0 1A 57 03 99 22 93 22 C8 |P.UP.1...W..".".|
00001290: 28 55 54 24 AA 55 50 24 2C 32 31 29 3B C9 28 55 |(UT$.UP$,21);.(U|
000012A0: 50 24 AA 55 47 24 AA C4 28 55 50 29 2C 31 38 29 |P$.UG$..(UP),18)|
000012B0: 00 DF 1A 5C 03 99 22 20 2D 2D 2D 2D 2D 2D 2D 2D |...\.." --------|
000012C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000012D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
000012E0: EE 1A 60 03 8B 55 48 B3 B1 30 A7 38 37 30 00 22 |..`..UH..0.870."|
000012F0: 1B 61 03 99 C8 28 55 44 24 2C 32 34 29 3B C8 28 |.a...(UD$,24);.(|
00001300: 55 50 24 2C 37 29 3B 22 48 45 4C 50 20 2D 20 50 |UP$,7);"HELP - P|
00001310: 52 45 53 53 20 20 20 48 20 3C 52 45 54 55 52 4E |RESS H <RETURN|
00001320: 3E 22 00 34 1B 66 03 97 55 4F 2C 30 3A 99 22 13 |>".4.f..UO,0:.".|
00001330: 11 22 3A 8E 00 53 1B 6B 03 8F 20 2A 2A 20 50 4C |.":..S.k.. ** PL|
00001340: 45 41 53 45 20 57 41 49 54 20 52 45 4D 41 52 4B |EASE WAIT REMARK|
00001350: 20 2A 2A 00 89 1B 70 03 99 C8 28 55 44 24 2C 32 | **...p...(UD$,2|
00001360: 34 29 3B 22 20 20 20 20 20 20 20 20 20 20 20 4F |4);" O|
00001370: 4E 45 20 4D 4F 4D 45 4E 54 20 50 4C 45 41 53 45 |NE MOMENT PLEASE|
00001380: 2E 2E 2E 20 20 20 20 20 22 00 8F 1B 75 03 8E 00 |... "...u...|
00001390: AC 1B 84 03 8F 20 2A 2A 20 53 45 54 20 55 50 20 |..... ** SET UP |
000013A0: 56 41 52 49 41 42 4C 45 53 20 2A 2A 00 F7 1B 85 |VARIABLES **....|
000013B0: 03 55 58 24 B2 22 48 22 3A 86 55 51 25 28 31 30 |.UX$."H":.UQ%(10|
000013C0: 30 30 29 3A 55 42 B2 33 32 37 36 38 3A 55 31 B2 |00):UB.32768:U1.|
000013D0: 31 39 36 3A 55 32 B2 31 39 37 3A 55 33 B2 31 39 |196:U2.197:U3.19|
000013E0: 38 3A 55 34 B2 32 31 36 3A 55 43 B2 31 36 37 3A |8:U4.216:UC.167:|
000013F0: 55 55 B2 31 30 32 34 00 35 1C 86 03 55 54 B2 35 |UU.1024.5...UT.5|
00001400: 39 34 36 38 3A 55 55 25 B2 31 32 3A 55 4C 25 B2 |9468:UU%.12:UL%.|
00001410: 31 34 3A 55 50 25 B2 31 31 34 36 3A 55 4D B2 33 |14:UP%.1146:UM.3|
00001420: 32 37 36 38 3A 55 4F B2 31 35 38 3A 97 20 35 30 |2768:UO.158:. 50|
00001430: 30 30 33 2C 30 00 78 1C 87 03 8B C2 28 35 30 30 |003,0.x.....(500|
00001440: 30 33 29 B2 30 A7 55 42 B2 31 30 32 34 3A 55 31 |03).0.UB.1024:U1|
00001450: B2 32 30 39 3A 55 32 B2 32 31 30 3A 55 33 B2 32 |.209:U2.210:U3.2|
00001460: 31 31 3A 55 34 B2 32 31 34 3A 55 43 B2 32 30 34 |11:U4.214:UC.204|
00001470: 3A 55 55 B2 32 30 34 38 00 B7 1C 88 03 8B C2 28 |:UU.2048.......(|
00001480: 35 30 30 30 33 29 B2 30 A7 55 54 B2 35 33 32 37 |50003).0.UT.5327|
00001490: 32 3A 55 55 25 B2 32 31 3A 55 4C 25 B2 32 33 3A |2:UU%.21:UL%.23:|
000014A0: 55 50 25 B2 32 31 33 39 3A 55 4D B2 31 30 32 34 |UP%.2139:UM.1024|
000014B0: 3A 55 4F B2 31 39 38 00 DB 1C 89 03 55 44 24 B2 |:UO.198.....UD$.|
000014C0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000014D0: 11 11 11 11 11 11 11 11 11 11 22 00 0D 1D 8A 03 |..........".....|
000014E0: 55 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |UP$." |
000014F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001500: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 39 1D | ".9.|
00001510: 8B 03 55 54 24 B2 22 20 D0 D2 CF C2 CC C5 CD 20 |..UT$." ....... |
00001520: D0 D2 CF CE CF D5 CE D3 22 3A 8F 20 50 52 4F 47 |........":. PROG|
00001530: 52 41 4D 20 54 49 54 4C 45 00 49 1D 8C 03 86 58 |RAM TITLE.I....X|
00001540: 24 28 32 30 2C 33 29 3A 8E 00 63 1D 8E 03 8F 20 |$(20,3):..c.... |
00001550: 2A 2A 20 53 45 54 20 56 41 52 49 41 42 4C 45 53 |** SET VARIABLES|
00001560: 20 2A 2A 00 6C 1D 93 03 8D 39 30 30 00 72 1D 94 | **.l....900.r..|
00001570: 03 3A 00 78 1D 95 03 3A 00 93 1D 98 03 8F 20 2A |.:.x...:...... *|
00001580: 2A 20 43 48 45 43 4B 20 46 4F 52 20 38 30 33 32 |* CHECK FOR 8032|
00001590: 20 2A 2A 00 B1 1D 9D 03 99 22 93 22 3A 99 22 A0 | **......".":.".|
000015A0: 22 3A 8F 20 53 48 49 46 54 45 44 20 53 50 41 43 |":. SHIFTED SPAC|
000015B0: 45 00 C8 1D A2 03 8B C2 28 55 42 AA 34 30 29 B3 |E.......(UB.40).|
000015C0: B1 39 36 A7 8D 37 30 30 00 E1 1D A3 03 8F 20 2A |.96..700...... *|
000015D0: 2A 20 4D 45 4D 4F 52 59 20 43 48 45 43 4B 20 2A |* MEMORY CHECK *|
000015E0: 2A 00 F5 1D A4 03 8B 20 B8 28 30 29 B1 32 30 30 |*...... .(0).200|
000015F0: 30 A7 39 33 37 00 23 1E A5 03 99 22 93 11 11 05 |0.937.#...."....|
00001600: 54 48 49 53 20 4D 41 43 48 49 4E 45 20 44 4F 45 |THIS MACHINE DOE|
00001610: 53 20 4E 4F 54 20 48 41 56 45 20 45 4E 4F 55 47 |S NOT HAVE ENOUG|
00001620: 48 11 22 00 47 1E A6 03 99 22 4D 45 4D 4F 52 59 |H.".G...."MEMORY|
00001630: 20 54 4F 20 52 55 4E 20 54 48 49 53 20 50 52 4F | TO RUN THIS PRO|
00001640: 47 52 41 4D 20 21 22 00 52 1E A7 03 9E 55 55 AA |GRAM !".R....UU.|
00001650: 37 31 00 58 1E A8 03 80 00 72 1E A9 03 99 22 93 |71.X.....r....".|
00001660: 05 22 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 39 |.":..(50003).0.9|
00001670: 36 32 00 A1 1E AC 03 8F 20 2A 2A 20 42 41 53 49 |62...... ** BASI|
00001680: 43 20 32 2E 30 20 20 4F 52 20 20 34 2E 30 20 20 |C 2.0 OR 4.0 |
00001690: 4F 52 20 20 43 2D 36 34 20 53 45 54 55 50 20 2A |OR C-64 SETUP *|
000016A0: 2A 00 DF 1E AD 03 97 31 30 37 35 2C 31 33 33 3A |*......1075,133:|
000016B0: 97 31 30 37 36 2C 31 34 34 3A 97 31 30 37 37 2C |.1076,144:.1077,|
000016C0: 32 33 34 3A 97 31 30 37 39 2C 34 3A 97 31 30 38 |234:.1079,4:.108|
000016D0: 30 2C 31 33 33 3A 97 31 30 38 31 2C 31 34 35 00 |0,133:.1081,145.|
000016E0: 15 1F AE 03 97 31 30 39 31 2C 31 35 35 3A 97 31 |.....1091,155:.1|
000016F0: 30 39 38 2C 31 33 33 3A 97 31 30 39 39 2C 31 34 |098,133:.1099,14|
00001700: 34 3A 97 31 31 30 30 2C 32 33 34 3A 97 31 31 30 |4:.1100,234:.110|
00001710: 33 2C 31 33 33 00 37 1F AF 03 97 31 31 30 34 2C |3,133.7....1104,|
00001720: 31 34 35 3A 97 31 31 30 35 2C 32 33 34 3A 97 31 |145:.1105,234:.1|
00001730: 30 38 32 2C 32 33 34 00 4E 1F B1 03 8B C2 28 35 |082,234.N.....(5|
00001740: 30 30 30 33 29 B3 B1 31 36 30 A7 39 35 35 00 7D |0003)..160.955.}|
00001750: 1F B6 03 97 31 30 39 33 2C 38 38 3A 97 31 30 39 |....1093,88:.109|
00001760: 34 2C 32 32 38 3A 97 31 30 39 37 2C 38 35 3A 97 |4,228:.1097,85:.|
00001770: 31 31 30 32 2C 32 32 38 3A 89 39 36 35 00 92 1F |1102,228:.965...|
00001780: BB 03 8B C2 28 35 30 30 30 33 29 B3 B1 31 A7 39 |....(50003)..1.9|
00001790: 39 30 00 C1 1F C0 03 97 31 30 39 33 2C 34 39 3A |90......1093,49:|
000017A0: 97 31 30 39 34 2C 32 33 30 3A 97 31 30 39 37 2C |.1094,230:.1097,|
000017B0: 34 36 3A 97 31 31 30 32 2C 32 33 30 3A 89 39 36 |46:.1102,230:.96|
000017C0: 35 00 FB 1F C2 03 97 32 30 39 39 2C 31 34 31 3A |5......2099,141:|
000017D0: 97 32 31 30 30 2C 32 30 3A 97 32 31 30 31 2C 33 |.2100,20:.2101,3|
000017E0: 3A 97 32 31 30 33 2C 38 3A 97 32 31 30 34 2C 31 |:.2103,8:.2104,1|
000017F0: 34 31 3A 97 32 31 30 35 2C 32 31 00 37 20 C3 03 |41:.2105,21.7 ..|
00001800: 97 32 31 30 36 2C 33 3A 97 32 31 31 35 2C 31 34 |.2106,3:.2115,14|
00001810: 35 3A 97 32 31 31 37 2C 35 32 3A 97 32 31 31 38 |5:.2117,52:.2118|
00001820: 2C 32 33 34 3A 97 32 31 32 31 2C 34 39 3A 97 32 |,234:.2121,49:.2|
00001830: 31 32 32 2C 31 34 31 00 71 20 C4 03 97 32 31 32 |122,141.q ...212|
00001840: 33 2C 32 30 3A 97 32 31 32 34 2C 33 3A 97 32 31 |3,20:.2124,3:.21|
00001850: 32 36 2C 32 33 34 3A 97 32 31 32 37 2C 31 34 31 |26,234:.2127,141|
00001860: 3A 97 32 31 32 38 2C 32 31 3A 97 32 31 32 39 2C |:.2128,21:.2129,|
00001870: 33 00 8F 20 C5 03 9E 55 55 AA 34 38 3A 8F 20 44 |3.. ...UU.48:. D|
00001880: 49 53 41 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 |ISABLE STOP KEY.|
00001890: A0 20 CA 03 8D 38 30 30 3A 8F 20 54 49 54 4C 45 |. ...800:. TITLE|
000018A0: 00 B0 20 D4 03 89 33 30 30 3A 8F 20 4D 45 4E 55 |.. ...300:. MENU|
000018B0: 00 E1 20 DE 03 99 22 93 54 48 45 20 50 47 4D 20 |.. ...".THE PGM |
000018C0: 57 49 4C 4C 20 4E 4F 54 20 57 4F 52 4B 20 4F 4E |WILL NOT WORK ON|
000018D0: 20 54 48 49 53 20 4D 41 43 48 49 4E 45 21 22 3A | THIS MACHINE!":|
000018E0: 80 00 16 21 E8 03 8B 55 5A B2 31 A7 9E 55 50 25 |...!...UZ.1..UP%|
000018F0: 3A 9E 55 50 25 3A 55 5A B2 30 3A 8F 20 2A 2A 20 |:.UP%:UZ.0:. ** |
00001900: 50 52 4F 47 52 41 4D 20 53 54 41 52 54 53 20 48 |PROGRAM STARTS H|
00001910: 45 52 45 20 2A 2A 00 42 21 E9 03 99 22 93 05 22 |ERE **.B!...".."|
00001920: 3B 3A 8C 3A 8B C2 28 35 30 30 30 33 29 B2 30 A7 |;:.:..(50003).0.|
00001930: 97 35 33 32 38 31 2C 36 3A 97 35 33 32 38 30 2C |.53281,6:.53280,|
00001940: 31 34 00 50 21 42 04 8C 3A 52 B2 30 3A 57 B2 30 |14.P!B..:R.0:W.0|
00001950: 00 5A 21 B0 04 89 31 33 32 30 00 8A 21 BA 04 99 |.Z!...1320..!...|
00001960: 22 11 11 20 20 D4 48 49 53 20 50 52 4F 47 52 41 |".. .HIS PROGRA|
00001970: 4D 20 49 53 20 49 4E 54 45 4E 44 45 44 20 54 4F |M IS INTENDED TO|
00001980: 20 47 49 56 45 20 59 4F 55 22 00 90 21 C4 04 99 | GIVE YOU"..!...|
00001990: 00 BC 21 CE 04 99 22 20 50 52 41 43 54 49 43 45 |..!..." PRACTICE|
000019A0: 20 57 49 54 48 20 54 48 45 20 4B 49 4E 44 53 20 | WITH THE KINDS |
000019B0: 4F 46 20 50 52 4F 4E 4F 55 4E 53 22 00 C2 21 D8 |OF PRONOUNS"..!.|
000019C0: 04 99 00 E8 21 E2 04 99 22 20 54 48 41 54 20 4D |....!..." THAT M|
000019D0: 41 4E 59 20 53 54 55 44 45 4E 54 53 20 4F 46 54 |ANY STUDENTS OFT|
000019E0: 45 4E 20 46 49 4E 44 22 00 EE 21 EC 04 99 00 1C |EN FIND"..!.....|
000019F0: 22 F6 04 99 22 20 44 49 46 46 49 43 55 4C 54 2E |"..." DIFFICULT.|
00001A00: 20 20 D0 4C 45 41 53 45 20 52 45 41 44 20 45 41 | .LEASE READ EA|
00001A10: 43 48 20 53 45 4E 54 45 4E 43 45 22 00 22 22 00 |CH SENTENCE"."".|
00001A20: 05 99 00 4F 22 0A 05 99 22 20 43 41 52 45 46 55 |...O"..." CAREFU|
00001A30: 4C 4C 59 2C 20 41 4E 44 20 44 45 43 49 44 45 20 |LLY, AND DECIDE |
00001A40: 4F 4E 20 54 48 45 20 43 4F 52 52 45 43 54 22 00 |ON THE CORRECT".|
00001A50: 6C 22 0F 05 99 3A 99 22 20 41 4E 53 57 45 52 20 |l"...:." ANSWER |
00001A60: 12 41 92 20 4F 52 20 12 42 92 2E 22 00 72 22 14 |.A. OR .B..".r".|
00001A70: 05 8F 00 7B 22 1E 05 8D 38 33 35 00 81 22 23 05 |...{"...835.."#.|
00001A80: 8E 00 8A 22 28 05 99 22 93 22 00 97 22 3C 05 81 |..."(..".".."<..|
00001A90: 20 49 B2 31 A4 32 30 00 B5 22 46 05 87 20 58 24 | I.1.20.."F.. X$|
00001AA0: 28 49 2C 31 29 2C 58 24 28 49 2C 32 29 2C 58 24 |(I,1),X$(I,2),X$|
00001AB0: 28 49 2C 33 29 00 BD 22 50 05 82 20 49 00 D8 22 |(I,3).."P.. I.."|
00001AC0: 5A 05 99 22 20 57 48 41 54 20 49 53 20 59 4F 55 |Z.." WHAT IS YOU|
00001AD0: 52 20 4E 41 4D 45 3F 22 00 FE 22 64 05 99 22 11 |R NAME?".."d..".|
00001AE0: 11 20 3F 20 22 3B 3A 55 53 24 B2 22 22 3A 55 4C |. ? ";:US$."":UL|
00001AF0: B2 31 30 3A 8D 33 35 3A 4E 24 B2 55 52 24 00 2B |.10:.35:N$.UR$.+|
00001B00: 23 6E 05 99 22 11 11 20 48 4F 57 20 4D 41 4E 59 |#n..".. HOW MANY|
00001B10: 20 51 55 45 53 54 49 4F 4E 53 20 28 31 20 54 4F | QUESTIONS (1 TO|
00001B20: 20 32 30 29 20 57 4F 55 4C 44 22 00 4B 23 82 05 | 20) WOULD".K#..|
00001B30: 99 22 11 20 59 4F 55 20 4C 49 4B 45 20 54 4F 20 |.". YOU LIKE TO |
00001B40: 54 52 59 2C 20 22 4E 24 22 3F 22 00 7C 23 A0 05 |TRY, "N$"?".|#..|
00001B50: 99 22 11 11 20 3F 20 22 3B 3A 55 53 24 B2 22 30 |.".. ? ";:US$."0|
00001B60: 31 32 33 34 35 36 37 38 39 22 3A 55 4C B2 32 3A |123456789":UL.2:|
00001B70: 8D 33 35 3A 51 B2 C5 28 55 52 24 29 00 85 23 AA |.35:Q..(UR$)..#.|
00001B80: 05 99 22 93 22 00 8B 23 B4 05 99 00 9C 23 BE 05 |.."."..#.....#..|
00001B90: 8B 20 51 B3 31 20 A7 20 31 35 30 30 00 AE 23 C8 |. Q.1 . 1500..#.|
00001BA0: 05 8B 20 51 B1 32 30 20 A7 20 31 35 30 30 00 BF |.. Q.20 . 1500..|
00001BB0: 23 D2 05 8B 30 B3 51 B3 32 31 A7 31 35 33 30 00 |#...0.Q.21.1530.|
00001BC0: DD 23 DC 05 99 22 20 50 4C 45 41 53 45 2C 22 4E |.#..." PLEASE,"N|
00001BD0: 24 22 2C 20 31 20 54 4F 20 32 30 2E 22 00 E3 23 |$", 1 TO 20."..#|
00001BE0: E6 05 99 00 EE 23 F0 05 89 20 31 33 39 30 00 FA |.....#... 1390..|
00001BF0: 23 FA 05 81 20 4A B2 31 A4 51 00 10 24 04 06 88 |#... J.1.Q..$...|
00001C00: 20 49 B2 B5 28 31 AA 32 30 AC BB 28 54 49 29 29 | I..(1.20..(TI))|
00001C10: 00 1F 24 0E 06 8B 47 B1 32 30 A7 31 35 34 30 00 |..$...G.20.1540.|
00001C20: 51 24 18 06 99 22 93 20 12 20 20 20 43 48 4F 4F |Q$...". . CHOO|
00001C30: 53 45 20 54 48 45 20 43 4F 52 52 45 43 54 20 50 |SE THE CORRECT P|
00001C40: 52 4F 4E 4F 55 4E 20 41 20 4F 52 20 42 20 20 92 |RONOUN A OR B .|
00001C50: 22 00 57 24 22 06 99 00 5D 24 2C 06 99 00 6E 24 |".W$"...]$,...n$|
00001C60: 36 06 99 22 20 22 3B 58 24 28 49 2C 31 29 00 95 |6.." ";X$(I,1)..|
00001C70: 24 40 06 99 22 11 11 20 3F 20 22 3B 3A 55 53 24 |$@..".. ? ";:US$|
00001C80: B2 22 41 42 22 3A 55 4C B2 31 3A 8D 33 35 3A 52 |."AB":UL.1:.35:R|
00001C90: 24 B2 55 52 24 00 AC 24 4A 06 8B 20 52 24 B2 58 |$.UR$..$J.. R$.X|
00001CA0: 24 28 49 2C 32 29 A7 20 31 36 33 30 00 C3 24 54 |$(I,2). 1630..$T|
00001CB0: 06 8B 20 52 24 B3 B1 58 24 28 49 2C 32 29 A7 31 |.. R$..X$(I,2).1|
00001CC0: 36 36 30 00 C9 24 5E 06 99 00 D3 24 68 06 8D 31 |660..$^....$h..1|
00001CD0: 36 39 30 00 DD 24 72 06 89 31 36 37 30 00 E7 24 |690..$r..1670..$|
00001CE0: 7C 06 8D 31 38 38 30 00 EF 24 86 06 82 20 4A 00 ||..1880..$... J.|
00001CF0: FA 24 90 06 89 20 32 35 39 30 00 00 25 9A 06 99 |.$... 2590..%...|
00001D00: 00 0C 25 A4 06 88 20 52 B2 52 AA 31 00 23 25 AE |..%... R.R.1.#%.|
00001D10: 06 88 20 56 20 B2 20 B5 28 31 AA 31 30 AC BB 28 |.. V . .(1.10..(|
00001D20: 30 29 29 00 32 25 B8 06 8B 56 B3 34 20 A7 31 37 |0)).2%...V.4 .17|
00001D30: 37 30 00 40 25 C2 06 8B 56 B3 38 A7 31 38 31 30 |70.@%...V.8.1810|
00001D40: 00 65 25 CC 06 99 22 20 56 45 52 59 20 47 4F 4F |.e%..." VERY GOO|
00001D50: 44 2C 20 22 4E 24 22 2C 20 4B 45 45 50 20 49 54 |D, "N$", KEEP IT|
00001D60: 20 55 50 21 22 00 6B 25 D6 06 99 00 75 25 E0 06 | UP!".k%....u%..|
00001D70: 89 31 38 32 30 00 97 25 EA 06 99 22 20 47 52 45 |.1820..%..." GRE|
00001D80: 41 54 2C 20 59 4F 55 27 52 45 20 44 4F 49 4E 47 |AT, YOU'RE DOING|
00001D90: 20 46 49 4E 45 2E 22 00 9D 25 F4 06 99 00 A3 25 | FINE."..%.....%|
00001DA0: FE 06 99 00 AD 25 08 07 89 31 38 32 30 00 CA 25 |.....%...1820..%|
00001DB0: 12 07 99 22 20 59 4F 55 27 56 45 20 47 4F 54 20 |..." YOU'VE GOT |
00001DC0: 49 54 2C 20 22 4E 24 22 21 22 00 D0 25 1C 07 99 |IT, "N$"!"..%...|
00001DD0: 00 D9 25 26 07 8D 38 33 35 00 E2 25 3A 07 99 22 |..%&..835..%:.."|
00001DE0: 93 22 00 E8 25 44 07 99 00 EE 25 4E 07 8E 00 F4 |."..%D....%N....|
00001DF0: 25 58 07 99 00 FE 25 62 07 57 B2 57 AA 31 00 21 |%X....%b.W.W.1.!|
00001E00: 26 6C 07 99 22 20 53 4F 52 52 59 2C 20 22 4E 24 |&l.." SORRY, "N$|
00001E10: 22 2C 20 59 4F 55 27 52 45 20 57 52 4F 4E 47 2E |", YOU'RE WRONG.|
00001E20: 22 00 27 26 76 07 99 00 50 26 80 07 99 22 20 54 |".'&v...P&..." T|
00001E30: 48 45 20 43 4F 52 52 45 43 54 20 41 4E 53 57 45 |HE CORRECT ANSWE|
00001E40: 52 20 49 53 20 22 58 24 28 49 2C 32 29 22 2E 22 |R IS "X$(I,2)"."|
00001E50: 00 56 26 8A 07 99 00 63 26 94 07 99 58 24 28 49 |.V&....c&...X$(I|
00001E60: 2C 33 29 00 69 26 9E 07 8F 00 72 26 A8 07 8D 38 |,3).i&....r&...8|
00001E70: 33 35 00 7B 26 B2 07 99 22 93 22 00 81 26 BC 07 |35.{&..."."..&..|
00001E80: 8E 00 BA 26 C6 07 83 22 28 41 2E 12 57 48 4F 92 |...&..."(A..WHO.|
00001E90: 2C 42 2E 12 57 48 4F 4D 92 29 44 4F 20 59 4F 55 |,B..WHOM.)DO YOU|
00001EA0: 20 54 48 49 4E 4B 20 59 4F 55 20 4C 49 4B 45 20 | THINK YOU LIKE |
00001EB0: 20 20 20 20 42 45 53 54 3F 22 00 C3 26 D0 07 83 | BEST?"..&...|
00001EC0: 22 42 22 00 FD 26 DA 07 83 22 20 42 45 43 41 55 |"B"..&..." BECAU|
00001ED0: 53 45 20 12 57 48 4F 4D 92 20 49 53 20 54 48 45 |SE .WHOM. IS THE|
00001EE0: 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 56 | OBJECT OF THE V|
00001EF0: 45 52 42 20 20 12 4C 49 4B 45 92 2E 22 00 37 27 |ERB .LIKE..".7'|
00001F00: E4 07 83 22 28 41 2E 12 57 48 4F 92 2C 42 2E 12 |..."(A..WHO.,B..|
00001F10: 57 48 4F 4D 92 29 44 4F 20 59 4F 55 20 54 48 49 |WHOM.)DO YOU THI|
00001F20: 4E 4B 20 57 4F 55 4C 44 20 52 45 41 44 20 20 20 |NK WOULD READ |
00001F30: 54 4F 20 55 53 3F 22 00 40 27 EE 07 83 22 41 22 |TO US?".@'..."A"|
00001F40: 00 7C 27 F8 07 83 22 20 12 57 48 4F 92 20 49 53 |.|'..." .WHO. IS|
00001F50: 20 54 48 45 20 53 55 42 4A 45 43 54 20 4F 46 20 | THE SUBJECT OF |
00001F60: 54 48 45 20 56 45 52 42 20 12 57 4F 55 4C 44 92 |THE VERB .WOULD.|
00001F70: 20 20 20 20 12 52 45 41 44 92 2E 22 00 C3 27 02 | .READ.."..'.|
00001F80: 08 83 22 48 45 20 41 53 4B 45 44 20 28 41 2E 12 |.."HE ASKED (A..|
00001F90: 57 48 4F 92 2C 42 2E 12 57 48 4F 4D 92 29 20 48 |WHO.,B..WHOM.) H|
00001FA0: 41 44 20 41 52 52 49 56 45 44 20 20 20 20 20 44 |AD ARRIVED D|
00001FB0: 55 52 49 4E 47 20 48 49 53 20 41 42 53 45 4E 43 |URING HIS ABSENC|
00001FC0: 45 2E 22 00 CC 27 0C 08 83 22 41 22 00 0B 28 16 |E."..'..."A"..(.|
00001FD0: 08 83 22 20 12 57 48 4F 92 20 49 53 20 54 48 45 |.." .WHO. IS THE|
00001FE0: 20 53 55 42 4A 45 43 54 20 4F 46 20 54 48 45 20 | SUBJECT OF THE |
00001FF0: 56 45 52 42 20 20 12 48 41 44 92 20 20 20 20 20 |VERB .HAD. |
00002000: 12 41 52 52 49 56 45 44 92 2E 22 00 49 28 20 08 |.ARRIVED..".I( .|
00002010: 83 22 48 45 20 42 4C 41 4D 45 44 20 28 41 2E 12 |."HE BLAMED (A..|
00002020: 55 53 92 2C 42 2E 12 57 45 92 29 41 43 43 4F 55 |US.,B..WE.)ACCOU|
00002030: 4E 54 41 4E 54 53 20 46 4F 52 20 20 20 20 54 48 |NTANTS FOR TH|
00002040: 45 20 45 52 52 4F 52 2E 22 00 52 28 2A 08 83 22 |E ERROR.".R(*.."|
00002050: 41 22 00 83 28 34 08 83 22 20 4F 42 4A 45 43 54 |A"..(4.." OBJECT|
00002060: 20 4F 46 20 54 48 45 20 56 45 52 42 20 12 42 4C | OF THE VERB .BL|
00002070: 41 4D 45 44 92 20 49 53 20 52 45 51 55 49 52 45 |AMED. IS REQUIRE|
00002080: 44 2E 22 00 D0 28 3E 08 83 22 53 48 49 50 20 54 |D."..(>.."SHIP T|
00002090: 48 45 20 4F 52 44 45 52 20 54 4F 20 28 41 2E 12 |HE ORDER TO (A..|
000020A0: 57 48 4F 45 56 45 52 92 2C 20 20 20 20 20 20 20 |WHOEVER., |
000020B0: 20 20 20 20 42 2E 12 57 48 4F 4D 45 56 45 52 92 | B..WHOMEVER.|
000020C0: 20 29 49 53 20 49 4E 20 43 48 41 52 47 45 2E 22 | )IS IN CHARGE."|
000020D0: 00 D9 28 48 08 83 22 41 22 00 0C 29 52 08 83 22 |..(H.."A"..)R.."|
000020E0: 20 12 57 48 4F 45 56 45 52 92 20 49 53 20 54 48 | .WHOEVER. IS TH|
000020F0: 45 20 53 55 42 4A 45 43 54 20 4F 46 20 54 48 45 |E SUBJECT OF THE|
00002100: 20 56 45 52 42 20 12 49 53 92 2E 22 00 59 29 5C | VERB .IS..".Y)\|
00002110: 08 83 22 59 4F 55 20 28 41 2E 12 57 48 4F 92 2C |.."YOU (A..WHO.,|
00002120: 42 2E 12 57 48 4F 4D 92 29 2C 20 49 20 54 48 49 |B..WHOM.), I THI|
00002130: 4E 4B 2C 43 41 4C 4C 20 4D 45 20 20 20 20 20 59 |NK,CALL ME Y|
00002140: 4F 55 52 20 46 52 49 45 4E 44 2C 48 41 56 45 20 |OUR FRIEND,HAVE |
00002150: 4C 45 46 54 20 4D 45 2E 22 00 62 29 66 08 83 22 |LEFT ME.".b)f.."|
00002160: 41 22 00 A7 29 70 08 83 22 20 59 4F 55 20 49 53 |A"..)p.." YOU IS|
00002170: 20 53 55 42 4A 45 43 54 20 4F 46 20 12 48 41 56 | SUBJECT OF .HAV|
00002180: 45 20 4C 45 46 54 92 3B 20 20 12 57 48 4F 92 20 |E LEFT.; .WHO. |
00002190: 4F 46 20 20 20 20 54 48 45 20 56 45 52 42 20 12 |OF THE VERB .|
000021A0: 43 41 4C 4C 92 2E 22 00 F3 29 7A 08 83 22 45 56 |CALL.."..)z.."EV|
000021B0: 45 52 59 42 4F 44 59 20 41 47 52 45 45 53 20 54 |ERYBODY AGREES T|
000021C0: 4F 20 56 4F 54 45 20 46 4F 52 20 28 41 2E 12 57 |O VOTE FOR (A..W|
000021D0: 48 4F 45 56 45 52 92 20 2C 42 2E 12 57 48 4F 4D |HOEVER. ,B..WHOM|
000021E0: 45 56 45 52 92 29 49 53 20 53 45 4C 45 43 54 45 |EVER.)IS SELECTE|
000021F0: 44 2E 22 00 FC 29 84 08 83 22 41 22 00 3C 2A 8E |D."..)..."A".<*.|
00002200: 08 83 22 20 12 57 48 4F 45 56 45 52 92 20 49 53 |.." .WHOEVER. IS|
00002210: 20 54 48 45 20 53 55 42 4A 45 43 54 20 4F 46 20 | THE SUBJECT OF |
00002220: 54 48 45 20 56 45 52 42 20 12 49 53 92 20 20 20 |THE VERB .IS. |
00002230: 12 53 45 4C 45 43 54 45 44 92 2E 22 00 87 2A 98 |.SELECTED.."..*.|
00002240: 08 83 22 57 49 4C 4C 20 59 4F 55 20 41 47 52 45 |.."WILL YOU AGRE|
00002250: 45 20 54 4F 20 52 45 4C 45 41 53 45 20 28 41 2E |E TO RELEASE (A.|
00002260: 12 20 55 53 20 92 2C 42 2E 12 20 57 45 92 20 29 |. US .,B.. WE. )|
00002270: 20 57 4F 4D 45 4E 20 46 52 4F 4D 20 4A 55 52 59 | WOMEN FROM JURY|
00002280: 20 44 55 54 59 3F 22 00 90 2A A2 08 83 22 41 22 | DUTY?"..*..."A"|
00002290: 00 DB 2A AC 08 83 22 20 12 55 53 92 20 49 53 20 |..*..." .US. IS |
000022A0: 54 48 45 20 4F 42 4A 45 43 54 20 4F 46 20 41 20 |THE OBJECT OF A |
000022B0: 12 54 4F 20 2B 20 41 20 56 45 52 42 92 20 20 20 |.TO + A VERB. |
000022C0: 20 20 20 20 50 48 52 41 53 45 20 12 20 54 4F 20 | PHRASE . TO |
000022D0: 52 45 4C 45 41 53 45 20 92 2E 22 00 1B 2B B6 08 |RELEASE .."..+..|
000022E0: 83 22 49 54 20 57 41 53 20 28 41 2E 12 48 45 52 |."IT WAS (A..HER|
000022F0: 92 2C 42 2E 12 53 48 45 92 29 20 57 48 4F 20 57 |.,B..SHE.) WHO W|
00002300: 41 53 20 41 43 43 55 53 45 44 20 4F 46 20 42 52 |AS ACCUSED OF BR|
00002310: 45 41 4B 49 4E 47 20 49 54 2E 22 00 24 2B C0 08 |EAKING IT.".$+..|
00002320: 83 22 42 22 00 69 2B CA 08 83 22 20 4E 4F 4D 49 |."B".i+..." NOMI|
00002330: 4E 41 54 49 56 45 20 43 41 53 45 20 52 45 51 55 |NATIVE CASE REQU|
00002340: 49 52 45 44 20 41 46 54 45 52 20 54 48 45 20 4E |IRED AFTER THE N|
00002350: 4F 4E 20 20 41 43 54 49 4F 4E 20 56 45 52 42 20 |ON ACTION VERB |
00002360: 12 20 57 41 53 20 92 2E 22 00 AD 2B D4 08 83 22 |. WAS .."..+..."|
00002370: 49 20 44 4F 20 4E 4F 54 20 4B 4E 4F 57 20 28 41 |I DO NOT KNOW (A|
00002380: 2E 12 57 48 4F 92 2C 42 2E 12 57 48 4F 4D 92 29 |..WHO.,B..WHOM.)|
00002390: 20 59 4F 55 20 54 4F 4C 44 20 20 20 41 42 4F 55 | YOU TOLD ABOU|
000023A0: 54 20 54 48 45 20 4D 4F 56 49 45 2E 22 00 B6 2B |T THE MOVIE."..+|
000023B0: DE 08 83 22 42 22 00 E9 2B E8 08 83 22 20 12 57 |..."B"..+..." .W|
000023C0: 48 4F 4D 92 20 49 53 20 54 48 45 20 4F 42 4A 45 |HOM. IS THE OBJE|
000023D0: 43 54 20 4F 46 20 54 48 45 20 56 45 52 42 20 12 |CT OF THE VERB .|
000023E0: 20 54 4F 4C 44 20 92 2E 22 00 2D 2C F2 08 83 22 | TOLD ..".-,..."|
000023F0: 45 56 45 52 59 42 4F 44 59 20 50 55 54 53 20 4F |EVERYBODY PUTS O|
00002400: 55 54 20 28 41 2E 12 54 48 45 49 52 92 2C 42 2E |UT (A..THEIR.,B.|
00002410: 12 48 49 53 92 29 20 42 45 53 54 20 45 46 46 4F |.HIS.) BEST EFFO|
00002420: 52 54 20 4F 4E 20 45 58 41 4D 53 2E 22 00 36 2C |RT ON EXAMS.".6,|
00002430: FC 08 83 22 42 22 00 7C 2C 06 09 83 22 20 54 48 |..."B".|,..." TH|
00002440: 45 20 41 4E 54 45 43 45 44 45 4E 54 20 12 20 45 |E ANTECEDENT . E|
00002450: 56 45 52 59 42 4F 44 59 20 92 20 41 4C 57 41 59 |VERYBODY . ALWAY|
00002460: 53 20 54 41 4B 45 53 20 41 20 53 49 4E 47 55 4C |S TAKES A SINGUL|
00002470: 41 52 20 50 52 4F 4E 4F 55 4E 2E 22 00 CA 2C 10 |AR PRONOUN."..,.|
00002480: 09 83 22 49 54 20 49 53 20 28 41 2E 12 20 49 20 |.."IT IS (A.. I |
00002490: 92 2C 42 2E 12 20 4D 45 20 92 29 20 46 52 4F 4D |.,B.. ME .) FROM|
000024A0: 20 57 48 4F 4D 20 48 45 20 20 20 20 20 20 20 57 | WHOM HE W|
000024B0: 49 53 48 45 53 20 54 4F 20 48 45 41 52 20 41 4E |ISHES TO HEAR AN|
000024C0: 20 41 50 4F 4C 4F 47 59 2E 22 00 D3 2C 1A 09 83 | APOLOGY."..,...|
000024D0: 22 41 22 00 17 2D 24 09 83 22 20 4E 4F 4D 49 4E |"A"..-$.." NOMIN|
000024E0: 41 54 49 56 45 20 43 41 53 45 20 41 4C 57 41 59 |ATIVE CASE ALWAY|
000024F0: 53 20 46 4F 4C 4C 4F 57 53 20 54 48 45 20 4E 4F |S FOLLOWS THE NO|
00002500: 4E 2D 20 41 43 54 49 4F 4E 20 56 45 52 42 20 12 |N- ACTION VERB .|
00002510: 20 49 53 20 92 2E 22 00 62 2D 2E 09 83 22 49 54 | IS ..".b-..."IT|
00002520: 20 47 4F 45 53 20 54 4F 20 4D 45 20 4F 52 20 28 | GOES TO ME OR (|
00002530: 41 2E 12 57 48 4F 4D 45 56 45 52 92 2C 42 2E 12 |A..WHOMEVER.,B..|
00002540: 57 48 4F 45 56 45 52 92 29 20 57 41 4E 54 53 20 |WHOEVER.) WANTS |
00002550: 54 48 45 20 55 53 45 44 20 4D 41 54 45 52 49 41 |THE USED MATERIA|
00002560: 4C 2E 00 6B 2D 38 09 83 22 42 22 00 A6 2D 42 09 |L..k-8.."B"..-B.|
00002570: 83 22 20 12 57 48 4F 45 56 45 52 92 20 49 53 20 |." .WHOEVER. IS |
00002580: 54 48 45 20 53 55 42 4A 45 43 54 20 4F 46 20 54 |THE SUBJECT OF T|
00002590: 48 45 20 56 45 52 42 20 20 20 20 20 20 12 57 41 |HE VERB .WA|
000025A0: 4E 54 53 92 2E 22 00 EE 2D 4C 09 83 22 49 54 20 |NTS.."..-L.."IT |
000025B0: 47 4F 45 53 20 54 4F 20 4D 45 20 4F 52 20 28 41 |GOES TO ME OR (A|
000025C0: 2E 12 57 48 4F 45 56 45 52 92 2C 42 2E 12 57 48 |..WHOEVER.,B..WH|
000025D0: 4F 4D 45 56 45 52 92 20 20 59 4F 55 20 57 41 4E |OMEVER. YOU WAN|
000025E0: 54 20 54 4F 20 48 41 56 45 20 49 54 2E 22 00 F7 |T TO HAVE IT."..|
000025F0: 2D 56 09 83 22 42 22 00 41 2E 60 09 83 22 20 42 |-V.."B".A.`.." B|
00002600: 4F 54 48 20 12 48 45 52 92 20 41 4E 44 20 12 57 |OTH .HER. AND .W|
00002610: 48 4F 4D 45 56 45 52 92 20 41 52 45 20 20 4F 42 |HOMEVER. ARE OB|
00002620: 4A 45 43 54 53 20 4F 46 20 20 20 54 48 45 20 50 |JECTS OF THE P|
00002630: 52 45 50 4F 53 49 54 49 4F 4E 20 12 54 4F 92 2E |REPOSITION .TO..|
00002640: 22 00 8E 2E 6A 09 83 22 54 49 4D 20 4A 4F 4E 45 |"...j.."TIM JONE|
00002650: 53 2C 28 41 2E 12 57 48 4F 92 2C 42 2E 12 57 48 |S,(A..WHO.,B..WH|
00002660: 4F 4D 92 29 2C 49 20 42 45 4C 49 45 56 45 20 43 |OM.),I BELIEVE C|
00002670: 41 4E 20 20 42 45 20 54 52 55 53 54 45 44 2C 20 |AN BE TRUSTED, |
00002680: 49 53 20 41 20 47 4F 4F 44 20 4D 41 4E 22 00 97 |IS A GOOD MAN"..|
00002690: 2E 74 09 83 22 41 22 00 C9 2E 7E 09 83 22 20 12 |.t.."A"...~.." .|
000026A0: 57 48 4F 92 20 49 53 20 54 48 45 20 53 55 42 4A |WHO. IS THE SUBJ|
000026B0: 45 43 54 20 4F 46 20 12 43 41 4E 20 42 45 20 54 |ECT OF .CAN BE T|
000026C0: 52 55 53 54 45 44 92 2E 22 00 0C 2F 88 09 83 22 |RUSTED.."../..."|
000026D0: 41 4E 59 42 4F 44 59 20 43 41 4E 20 42 52 49 4E |ANYBODY CAN BRIN|
000026E0: 47 20 28 41 2E 12 20 54 48 45 49 52 20 92 42 2E |G (A.. THEIR .B.|
000026F0: 12 20 48 49 53 20 92 29 20 20 20 20 42 4F 4F 4B |. HIS .) BOOK|
00002700: 53 20 54 4F 20 43 4C 41 53 53 2E 22 00 15 2F 92 |S TO CLASS."../.|
00002710: 09 83 22 42 22 00 58 2F 9C 09 83 22 20 41 4E 54 |.."B".X/..." ANT|
00002720: 45 43 45 44 45 4E 54 20 12 41 4E 59 42 4F 44 59 |ECEDENT .ANYBODY|
00002730: 92 20 52 45 51 55 49 52 45 53 20 41 20 53 49 4E |. REQUIRES A SIN|
00002740: 47 55 4C 41 52 20 20 50 52 4F 4E 4F 55 4E 20 12 |GULAR PRONOUN .|
00002750: 20 48 49 53 20 92 2E 22 00 9F 2F A6 09 83 22 44 | HIS .."../..."D|
00002760: 4F 4E 41 54 45 20 49 54 20 54 4F 20 28 41 2E 12 |ONATE IT TO (A..|
00002770: 57 48 4F 45 56 45 52 92 2C 42 2E 12 57 48 4F 4D |WHOEVER.,B..WHOM|
00002780: 2D 45 56 45 52 92 29 20 20 20 20 59 4F 55 20 57 |-EVER.) YOU W|
00002790: 49 53 48 20 54 4F 20 53 45 4C 45 43 54 2E 22 00 |ISH TO SELECT.".|
000027A0: A8 2F B0 09 83 22 42 22 00 EF 2F BA 09 83 22 20 |./..."B"../..." |
000027B0: 12 57 48 4F 4D 45 56 45 52 92 20 49 53 20 54 48 |.WHOMEVER. IS TH|
000027C0: 45 20 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 |E OBJECT OF THE |
000027D0: 20 20 20 20 20 20 20 20 20 20 50 52 45 50 4F 53 | PREPOS|
000027E0: 49 54 49 4F 4E 20 12 20 20 54 4F 20 20 92 22 00 |ITION . TO .".|
000027F0: 3D 30 C4 09 83 22 59 4F 55 20 57 49 4C 4C 20 47 |=0..."YOU WILL G|
00002800: 45 54 20 49 54 20 46 52 4F 4D 20 28 41 2E 12 57 |ET IT FROM (A..W|
00002810: 48 4F 45 56 45 52 92 2C 42 2E 12 57 48 4F 4D 2D |HOEVER.,B..WHOM-|
00002820: 92 20 12 45 56 45 52 92 29 20 59 4F 55 20 53 45 |. .EVER.) YOU SE|
00002830: 45 20 41 54 20 54 48 45 20 44 4F 4F 52 00 46 30 |E AT THE DOOR.F0|
00002840: CE 09 83 22 42 22 00 8C 30 D8 09 83 22 20 12 57 |..."B"..0..." .W|
00002850: 48 4F 4D 45 56 45 52 92 20 49 53 20 54 48 45 20 |HOMEVER. IS THE |
00002860: 4F 42 4A 45 43 54 20 4F 46 20 54 48 45 20 20 20 |OBJECT OF THE |
00002870: 20 20 20 20 20 20 20 20 50 52 45 50 4F 53 49 54 | PREPOSIT|
00002880: 49 4F 4E 20 12 46 52 4F 4D 92 2E 22 00 D1 30 E2 |ION .FROM.."..0.|
00002890: 09 83 22 48 45 20 57 41 53 20 43 55 52 49 4F 55 |.."HE WAS CURIOU|
000028A0: 53 20 49 4E 20 4B 4E 4F 57 49 4E 47 20 28 41 2E |S IN KNOWING (A.|
000028B0: 12 57 48 4F 92 2C 42 2E 12 57 48 4F 4D 92 20 29 |.WHO.,B..WHOM. )|
000028C0: 54 48 45 20 41 55 44 49 54 4F 52 20 57 41 53 2E |THE AUDITOR WAS.|
000028D0: 22 00 DA 30 EC 09 83 22 41 22 00 1D 31 F6 09 83 |"..0..."A"..1...|
000028E0: 22 20 4E 4F 4E 2D 41 43 54 49 4F 4E 20 56 45 52 |" NON-ACTION VER|
000028F0: 42 20 12 57 41 53 92 20 54 41 4B 45 53 20 54 48 |B .WAS. TAKES TH|
00002900: 45 20 20 20 20 20 20 20 20 20 20 20 4E 4F 4D 49 |E NOMI|
00002910: 4E 41 54 49 56 45 20 43 41 53 45 2E 22 00 6A 31 |NATIVE CASE.".j1|
00002920: 00 0A 83 22 45 41 43 48 20 4F 46 20 54 48 45 4D |..."EACH OF THEM|
00002930: 20 42 45 4C 49 45 56 45 53 20 49 4E 20 28 41 2E | BELIEVES IN (A.|
00002940: 12 48 49 53 92 2C 42 2E 12 54 48 45 49 52 92 20 |.HIS.,B..THEIR. |
00002950: 29 50 4F 57 45 52 20 54 4F 20 53 45 4C 4C 20 54 |)POWER TO SELL T|
00002960: 48 45 20 47 4F 4F 44 53 2E 22 00 73 31 0A 0A 83 |HE GOODS.".s1...|
00002970: 22 41 22 00 B7 31 14 0A 83 22 20 41 4E 54 45 43 |"A"..1..." ANTEC|
00002980: 45 44 45 4E 54 20 12 45 41 43 48 92 20 41 4C 57 |EDENT .EACH. ALW|
00002990: 41 59 53 20 54 41 4B 45 53 20 41 20 20 20 20 20 |AYS TAKES A |
000029A0: 20 20 20 20 20 53 49 4E 47 55 4C 41 52 20 50 52 | SINGULAR PR|
000029B0: 4F 4E 4F 55 4E 2E 22 00 E6 31 1E 0A 99 22 20 22 |ONOUN."..1..." "|
000029C0: 3B 4E 24 20 22 20 59 4F 55 20 48 41 56 45 20 44 |;N$ " YOU HAVE D|
000029D0: 4F 4E 45 20 22 52 AA 57 22 20 51 55 45 53 54 49 |ONE "R.W" QUESTI|
000029E0: 4F 4E 53 2E 92 22 00 11 32 28 0A 99 22 11 11 20 |ONS.."..2(..".. |
000029F0: 59 4F 55 20 47 4F 54 20 22 52 22 20 52 49 47 48 |YOU GOT "R" RIGH|
00002A00: 54 20 41 4E 44 20 22 57 22 20 57 52 4F 4E 47 2E |T AND "W" WRONG.|
00002A10: 22 00 44 32 32 0A 99 22 11 11 20 59 4F 55 20 47 |".D22..".. YOU G|
00002A20: 4F 54 20 22 B5 28 31 30 30 AC 52 AD 28 52 AA 57 |OT ".(100.R.(R.W|
00002A30: 29 29 22 50 45 52 43 45 4E 54 20 43 4F 52 52 45 |))"PERCENT CORRE|
00002A40: 43 54 2E 22 00 74 32 3C 0A 99 22 11 11 20 44 4F |CT.".t2<..".. DO|
00002A50: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 44 4F 20 | YOU WISH TO DO |
00002A60: 41 4E 59 20 4D 4F 52 45 20 51 55 45 53 54 49 4F |ANY MORE QUESTIO|
00002A70: 4E 53 3F 22 00 95 32 46 0A 99 22 11 11 20 20 20 |NS?"..2F..".. |
00002A80: 20 20 20 20 20 12 20 59 45 53 20 92 4F 52 12 20 | . YES .OR. |
00002A90: 4E 4F 20 92 22 00 BE 32 5A 0A 99 22 11 20 3F 20 |NO ."..2Z..". ? |
00002AA0: 22 3B 3A 55 53 24 B2 22 59 45 53 4E 4F 22 3A 55 |";:US$."YESNO":U|
00002AB0: 4C B2 33 3A 8D 33 35 3A 4D 24 B2 55 52 24 00 DB |L.3:.35:M$.UR$..|
00002AC0: 32 64 0A 8B C8 28 4D 24 2C 31 29 B2 22 59 22 20 |2d...(M$,1)."Y" |
00002AD0: A7 99 22 93 22 3A 89 31 33 39 30 00 E1 32 E6 0A |..".":.1390..2..|
00002AE0: 8E 00 00 00 |.... |
.......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 **
...#.. +++ INPUT SECTION +++...(..UO,0:U
R$."":UI$.""...*..UL.0.UL.80...-.." .."
;:.UC,0.3.2..UI$:.UI$."".50.].7..UI$.G(1
3).C(UR$)..1..UC,1:." .";:.85.P.<..UI$.G
(20).105...>.. C(UR$)..UL.50...A..120:.
CHECK FOR VALID CHARACTER...F.UR$.UR$.UI
$.C.K..UI$;.K.P..50...U.. +++ CHECK FOR
HELP REQUEST +++...Z..UR$.UX$.195:. EXIT
TO HELP ROUTINE.'._..UF.1..240.4.D.UF.0
:.:..M.F.. ++ CHECK DELETE ++.^.I..C(UR$
).1.50.V.N.UR$.H(UR$,C(UR$).1)...S..".
..";:.50...X.. ++ CHECK FOR VALID CHARAC
TERS ++.A.}..C(US$).0.150.Q..US$.US$.UX
$......US.1.C(US$)......UI$.J(US$,US,1).
............UI$."":..'.... ** STANDARD I
NPUT **.8....F(UI$).46...I....UI$.G(32).
..F. ..F(UI$).48.F(UI$).57.170.L........
..F(UI$).65.F(UI$).90.180............F(U
I$).193.F(UI$).218.UI$."":..V....B(UT).U
U%.UI$.G(F(UI$).128):............UI$."":
....C.UF.1:. +++ HELP ROUTINE EXIT +++..
.E..250. .H..245.?.M..UQ.UB.(U2%.256.U1%
.U3%.2).[.R.UQ%(UQ.UB).B(UQ):.:.".".N.W.
UZ.1:UV%.B(UT).W.X..300...Y.UZ.0:US$.UJ$
:UG$.UK$:UP.UJ:UL.UK.S.Z..B(50003).0..53
281,1:.".";:.53281,6:.53280,14:.220.....
.".";.....UT$.UL$:.UT,UV%:.UQ.UB.(U2%.25
6.U1%.U3%.3).!....UQ,UQ%(UQ.UB):..-....U
1,U1%.9....U2,U2%.E....U4,U4%.S....U3,U3
%.1.[....35.....UD%.((U2%.256.U1%.U3%).U
B).40:.H(UD$,UD%.1):..H....H(UD$,24);"
. HELP COMING . ":.
.....U1%.B(U1):U2%.B(U2):U3%.B(U3):U4%.B
(U4).....UJ$.US$:UK$.UG$:UL$.UT$:UJ.UP:U
K.UL.".....3.,.. ** MENU **.9.-.:.H...."
.":.UT,UU%:.B(50003).0..53281,9:.53280,8
.N./.:...1..". MENU"...6.
." -------------------------------------
-"...;..".. 1. PROBLEM PRONOUNS"
...@..".. 2. STUDENT INSTRUCTION
S".4.E..".. 3. TEACHER INSTRUCTI
ONS".A.J..".. 4. MODIFICATION OF
PROGRAM".}.O..".. 5. QUIT.."...
T.." -----------------------------------
---".W.Y..".. PRESS A NUMBER KEY (
1-5) ";...^.UL.1:US$."12345":.35:. INPUT
ROUTINE..._..C(UR$).1.300...`.US$."".>.
C..E(UR$).1000,400,500,600,396.G.H..300.
N.... ** RE-ENABLE STOP KEY AND END **..
....B(50003)..1.B(50003)..160.B(50003)..
0.399.G....UU.71:.B(50003).0..53281,6:.5
3280,14.S...."..":.......875:....... **
STUDENT INSTRUCTIONS **......".".7....".
":.UT,UL%:.B(50003).0..53281,0:.53280,0.
X...UP.0:UG$."STUDENT INST":.850.B....12
10.K.F.UP.1.T.G..850......".......IF AT
ANY TIME YOU WISH TO RETURN".H....". TO
THE MENU PRESS H RETURN".Q....835......U
Z.1..UP%:.217............ ** TEACHER INS
TRUCTIONS **.<....".":.UT,UL%:.B(50003).
0..53281,2:.53280,10.]...UP.0:UG$."TEACH
ER INST":.850......".. TO THE BEST
OF OUR KNOWLEDGE,."......" THIS PROGRA
M IS IN THE PUBLIC."......" DOMAIN. I
F THIS IS NOT THE CASE."......" PLEASE
CONTACT:...".'...." COMMODORE BUSI
NESS MACHINES.".J...." 3370 PHA
RMACY AVE..N...." AGINCOURT, ON
TARIO"......" CANADA M1W 2K4"
......" (416) 499-4292".F...UP.
1:. 835:. 850:......" ..PROGRAM NAME
: PROBLEM PRONOUNS......." WRITTEN B
Y : SERGIUS MATCZUK..F...." UPGRADE
D BY : STEPHEN FENTON..Q...." .THIS
PROGRAM WILL RUN ON ANY........"
PET 64 COMPUTER......." COMMODO
RE 64 COMPUTER......835.S.N..UZ.1..UP%:.
217.Y.W.....X.. ** PROGRAM MODIFICATION
INST **...Y..".":.UT,UL%...Z..59468,14.>
.].UP.0:UG$."PROGRAM MOD":.850.M.B.."...
TO MODIFY THE DATA OF THIS PROGRAM"...
L..". YOU MUST CHANGE THE DATA STATEMENT
S"...Q..". STARTING IN LINE 1990. "...V.
.".. YOU MUST ALSO CHANGE THE UPPER "..
.{..". LIMIT OF THE FOR LOOP IN LINE 134
0 ".B....". AND THE FIRST LIMIT OF X$ IN
THE DIM ".A....". STATEMENT IN LINE 908
".J....835.~....UZ.1..UP%:.217..........
.. ** TO USE 8032 LOAD CBM4032 **...F.."
.....BEFORE RUNNING THIS PROGRAM ON AN 8
032 .....P.." LOAD THE 'CBM 4032'
PROGRAM.............". .Z..UU.71.&.....K
.... ** TO USE 8032 LOAD CBM4032 **.....
."....BEFORE RUNNING THIS PROGRAM ON AN
8032 ..LOAD CBM 4032 PROGRAM"......1093
:..B. .. ** T I T L E P A G E **..."..
"....";:.UT,UU%:.B(50003).0..53280,14:.5
3281,6...$..I.1.38:."...";:..$.&..I.1.22
:.".....";:..<.(..I.1.37:.".....";:..T.*
..I.1.22:.".....";:..Y.,..".............
.............. ......."................
... . . .....0.."................... .
....Z.2..".................... ....4..
"..............C O M M O D O R E...%.6..
"...............EDUCATIONAL...D.8.."....
............SOFTWARE._.:.. ** COMMODORE
LOGO **...;..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...C.. ** SPACE BA
R PRESS **.=.H..UO,0:.H(UD$,24);".......
PRESS SPACE BAR TO CONTINUE.".T.L..UI$:.
UI$.." ".844.Z.N...Z.R.. ** PAGE DESIGN
ROUTINE **...T.UP.UP.1...W.."."H(UT$.UP$
,21);I(UP$.UG$.D(UP),18)...\.." --------
------------------------------"...`..UH.
.0.870.".A..H(UD$,24);H(UP$,7);"HELP - P
RESS H <RETURN>".4.F..UO,0:."..":..S.K
.. ** PLEASE WAIT REMARK **...P..H(UD$,2
4);" ONE MOMENT PLEASE...
"...U........ ** SET UP VARIABLES **....
.UX$."H":.UQ%(1000):UB.32768:U1.196:U2.1
97:U3.198:U4.216:UC.167:UU.1024.5...UT.5
9468:UU%.12:UL%.14:UP%.1146:UM.32768:UO.
158:. 50003,0.X....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:UO.198.....UD$.".......
..................".....UP$."
".9...UT$."
PROBLEM PRONOUNS":. PROGRAM TITLE.I....X
$(20,3):..C.... ** SET VARIABLES **.L...
.900.R...:.X...:...... ** CHECK FOR 8032
**......".":." ":. SHIFTED SPACE.H....B
(UB.40)..96..700...... ** MEMORY CHECK *
*...... .(0).2000.937.#...."....THIS MAC
HINE DOES NOT HAVE ENOUGH.".G...."MEMORY
TO RUN THIS PROGRAM !".R....UU.71.X....
.R...."..":.B(50003).0.962...... ** BASI
C 2.0 OR 4.0 OR C-64 SETUP **......1
075,133:.1076,144:.1077,234:.1079,4:.108
0,133:.1081,145......1091,155:.1098,133:
.1099,144:.1100,234:.1103,133.7....1104,
145:.1105,234:.1082,234.N....B(50003)..1
60.955.}....1093,88:.1094,228:.1097,85:.
1102,228:.965......B(50003)..1.990.A....
1093,49:.1094,230:.1097,46:.1102,230:.96
5...B..2099,141:.2100,20:.2101,3:.2103,8
:.2104,141:.2105,21.7 C..2106,3:.2115,14
5:.2117,52:.2118,234:.2121,49:.2122,141.
Q D..2123,20:.2124,3:.2126,234:.2127,141
:.2128,21:.2129,3.. E..UU.48:. DISABLE S
TOP KEY. J..800:. TITLE.. T..300:. MENU
.. ...".THE PGM WILL NOT WORK ON THIS MA
CHINE!":...!...UZ.1..UP%:.UP%:UZ.0:. **
PROGRAM STARTS HERE **.B!..."..";:.:.B(5
0003).0..53281,6:.53280,14.P!B..:R.0:W.0
.Z!...1320..!...".. THIS PROGRAM IS INT
ENDED TO GIVE YOU"..!D....!N.." PRACTICE
WITH THE KINDS OF PRONOUNS".B!X....!...
" THAT MANY STUDENTS OFTEN FIND"..!.....
"..." DIFFICULT. PLEASE READ EACH SENTE
NCE".""....O"..." CAREFULLY, AND DECIDE
ON THE CORRECT".L"...:." ANSWER .A. OR .
B..".R"....{"...835.."#...."(..".".."<..
I.1.20.."F.. X$(I,1),X$(I,2),X$(I,3).."
P.. I.X"Z.." WHAT IS YOUR NAME?".."D..".
. ? ";:US$."":UL.10:.35:N$.UR$.+#N.."..
HOW MANY QUESTIONS (1 TO 20) WOULD".K#..
.". YOU LIKE TO TRY, "N$"?".|# ..".. ? "
;:US$."0123456789":UL.2:.35:Q.E(UR$)..#.
.."."..#.....#... Q.1 . 1500..#H.. Q.20
. 1500..#R..0.Q.21.1530..#..." PLEASE,"N
$", 1 TO 20."..#.....#... 1390..#... J.1
.Q..$... I..(1.20..(TI))..$...G.20.1540.
Q$...". . CHOOSE THE CORRECT PRONOUN A
OR B .".W$"...]$,...N$6.." ";X$(I,1)..
$@..".. ? ";:US$."AB":UL.1:.35:R$.UR$..$
J.. R$.X$(I,2). 1630.C$T.. R$..X$(I,2).1
660.I$^...S$H..1690..$R..1670..$|..1880.
.$... J..$... 2590..%.....%... R.R.1.#%.
.. V . .(1.10..(0)).2%...V.4 .1770.@%B..
V.8.1810.E%L.." VERY GOOD, "N$", KEEP IT
UP!".K%V...U%...1820..%..." GREAT, YOU'
RE DOING FINE."..%.....%.....%...1820.J%
..." YOU'VE GOT IT, "N$"!".P%....Y%&..83
5..%:.."."..%D....%N....%X....%B.W.W.1.!
&L.." SORRY, "N$", YOU'RE WRONG.".'&V...
P&..." THE CORRECT ANSWER IS "X$(I,2)"."
.V&....C&...X$(I,3).I&....R&...835.{&...
"."..&.....&F.."(A..WHO.,B..WHOM.)DO YOU
THINK YOU LIKE BEST?".C&P.."B"..&Z.
." BECAUSE .WHOM. IS THE OBJECT OF THE V
ERB .LIKE..".7'..."(A..WHO.,B..WHOM.)DO
YOU THINK WOULD READ TO US?".@'..."A"
.|'..." .WHO. IS THE SUBJECT OF THE VERB
.WOULD. .READ..".C'..."HE ASKED (A..
WHO.,B..WHOM.) HAD ARRIVED DURING HI
S ABSENCE.".L'..."A"..(..." .WHO. IS THE
SUBJECT OF THE VERB .HAD. .ARRIVED
..".I( .."HE BLAMED (A..US.,B..WE.)ACCOU
NTANTS FOR THE ERROR.".R(*.."A"..(4..
" OBJECT OF THE VERB .BLAMED. IS REQUIRE
D.".P(>.."SHIP THE ORDER TO (A..WHOEVER.
, B..WHOMEVER. )IS IN CHARGE."
.Y(H.."A"..)R.." .WHOEVER. IS THE SUBJEC
T OF THE VERB .IS..".Y)\.."YOU (A..WHO.,
B..WHOM.), I THINK,CALL ME YOUR FRIE
ND,HAVE LEFT ME.".B)F.."A"..)P.." YOU IS
SUBJECT OF .HAVE LEFT.; .WHO. OF TH
E VERB .CALL.."..)Z.."EVERYBODY AGREES T
O VOTE FOR (A..WHOEVER. ,B..WHOMEVER.)IS
SELECTED."..)..."A".<*..." .WHOEVER. IS
THE SUBJECT OF THE VERB .IS. .SELECTE
D.."..*..."WILL YOU AGREE TO RELEASE (A.
. US .,B.. WE. ) WOMEN FROM JURY DUTY?".
.*..."A"..*..." .US. IS THE OBJECT OF A
.TO + A VERB. PHRASE . TO RELEASE
.."..+..."IT WAS (A..HER.,B..SHE.) WHO W
AS ACCUSED OF BREAKING IT.".$+..."B".I+J
.." NOMINATIVE CASE REQUIRED AFTER THE N
ON ACTION VERB . WAS .."..+T.."I DO NOT
KNOW (A..WHO.,B..WHOM.) YOU TOLD ABOU
T THE MOVIE."..+..."B"..+..." .WHOM. IS
THE OBJECT OF THE VERB . TOLD ..".-,..."
EVERYBODY PUTS OUT (A..THEIR.,B..HIS.) B
EST EFFORT ON EXAMS.".6,..."B".|,..." TH
E ANTECEDENT . EVERYBODY . ALWAYS TAKES
A SINGULAR PRONOUN.".J,..."IT IS (A.. I
.,B.. ME .) FROM WHOM HE WISHES TO
HEAR AN APOLOGY.".S,..."A"..-$.." NOMIN
ATIVE CASE ALWAYS FOLLOWS THE NON- ACTIO
N VERB . IS ..".B-..."IT GOES TO ME OR (
A..WHOMEVER.,B..WHOEVER.) WANTS THE USED
MATERIAL..K-8.."B"..-B.." .WHOEVER. IS
THE SUBJECT OF THE VERB .WANTS.."..
-L.."IT GOES TO ME OR (A..WHOEVER.,B..WH
OMEVER. YOU WANT TO HAVE IT."..-V.."B".
A.`.." BOTH .HER. AND .WHOMEVER. ARE OB
JECTS OF THE PREPOSITION .TO.."...J.."
TIM JONES,(A..WHO.,B..WHOM.),I BELIEVE C
AN BE TRUSTED, IS A GOOD MAN"...T.."A".
I.~.." .WHO. IS THE SUBJECT OF .CAN BE T
RUSTED.."../..."ANYBODY CAN BRING (A.. T
HEIR .B.. HIS .) BOOKS TO CLASS."../.
.."B".X/..." ANTECEDENT .ANYBODY. REQUIR
ES A SINGULAR PRONOUN . HIS .."../..."D
ONATE IT TO (A..WHOEVER.,B..WHOM-EVER.)
YOU WISH TO SELECT."../..."B"../..."
.WHOMEVER. IS THE OBJECT OF THE
PREPOSITION . TO .".=0D.."YOU WILL G
ET IT FROM (A..WHOEVER.,B..WHOM-. .EVER.
) YOU SEE AT THE DOOR.F0N.."B"..0X.." .W
HOMEVER. IS THE OBJECT OF THE
PREPOSITION .FROM..".Q0..."HE WAS CURIOU
S IN KNOWING (A..WHO.,B..WHOM. )THE AUDI
TOR WAS.".Z0..."A"..1..." NON-ACTION VER
B .WAS. TAKES THE NOMINATIVE C
ASE.".J1..."EACH OF THEM BELIEVES IN (A.
.HIS.,B..THEIR. )POWER TO SELL THE GOODS
.".S1..."A"..1..." ANTECEDENT .EACH. ALW
AYS TAKES A SINGULAR PRONOUN.".
.1..." ";N$ " YOU HAVE DONE "R.W" QUESTI
ONS.."..2(..".. YOU GOT "R" RIGHT AND "W
" WRONG.".D22..".. YOU GOT ".(100.R.(R.W
))"PERCENT CORRECT.".T2<..".. DO YOU WIS
H TO DO ANY MORE QUESTIONS?"..2F.."..
. YES .OR. NO ."..2Z..". ? ";:US$."
YESNO":UL.3:.35:M$.UR$..2D..H(M$,1)."Y"
..".":.1390..2......
> CLICK IMAGE PREVIEW FOR FULL MODAL