> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 E8 03 8F 20 4D 49 4E 49 57 4F 52 44 |....... MINIWORD|
00000010: 50 52 4F 2E 34 00 29 08 F2 03 8F 20 52 20 4D 41 |PRO.4.).... R MA|
00000020: 43 4E 41 55 47 48 54 4F 4E 00 4C 08 F7 03 8F 20 |CNAUGHTON.L.... |
00000030: 20 20 20 4D 4F 44 49 46 49 45 44 20 46 4F 52 20 | MODIFIED FOR |
00000040: 43 4F 4D 4D 4F 44 4F 52 45 2D 36 34 00 62 08 F9 |COMMODORE-64.b..|
00000050: 03 8F 20 42 59 20 57 2E 20 4D 2E 20 53 54 52 4F |.. BY W. M. STRO|
00000060: 4D 45 00 78 08 FC 03 8F 20 57 45 53 54 20 48 55 |ME.x.... WEST HU|
00000070: 4D 42 45 52 20 43 20 49 00 89 08 06 04 8F 20 4D |MBER C I...... M|
00000080: 41 52 43 48 20 31 39 38 32 00 A5 08 0B 04 8F 20 |ARCH 1982...... |
00000090: 52 45 56 49 53 45 44 20 46 45 42 52 55 41 52 59 |REVISED FEBRUARY|
000000A0: 20 31 39 38 33 00 BA 08 10 04 86 20 41 24 28 32 | 1983...... A$(2|
000000B0: 35 29 2C 43 24 28 32 35 35 29 00 DB 08 12 04 97 |5),C$(255)......|
000000C0: 35 33 32 37 32 2C 32 33 3A 8F 20 55 50 50 45 52 |53272,23:. UPPER|
000000D0: 2F 4C 4F 57 45 52 20 43 41 53 45 00 FA 08 15 04 |/LOWER CASE.....|
000000E0: 49 44 B2 38 3A 8F 20 49 4E 50 55 54 20 38 2D 44 |ID.8:. INPUT 8-D|
000000F0: 49 53 4B 20 31 2D 54 41 50 45 00 1A 09 1A 04 4F |ISK 1-TAPE.....O|
00000100: 44 B2 38 3A 8F 20 4F 55 54 50 55 54 20 38 2D 44 |D.8:. OUTPUT 8-D|
00000110: 49 53 4B 20 31 2D 54 41 50 45 00 55 09 1C 04 51 |ISK 1-TAPE.U...Q|
00000120: 43 B2 32 30 34 3A 51 4C B2 32 30 39 3A 51 48 B2 |C.204:QL.209:QH.|
00000130: 32 31 30 3A 51 50 B2 32 31 31 3A 51 51 B2 32 31 |210:QP.211:QQ.21|
00000140: 32 3A 57 44 B2 34 30 3A 4C 53 B2 32 35 3A 53 43 |2:WD.40:LS.25:SC|
00000150: B2 31 30 32 34 00 63 09 1F 04 4E 24 B2 22 46 49 |.1024.c...N$."FI|
00000160: 4C 45 22 00 7E 09 2E 04 99 22 93 D4 48 49 4E 4B |LE".~...."..HINK|
00000170: 49 4E 47 2E 2E 2E 20 22 3A 8D 31 38 37 30 00 B8 |ING... ":.1870..|
00000180: 09 4C 04 43 55 B2 53 43 AA 57 44 AC 32 3A 43 52 |.L.CU.SC.WD.2:CR|
00000190: B2 53 43 AA 57 44 3A 43 58 B2 43 52 AA 28 4C 53 |.SC.WD:CX.CR.(LS|
000001A0: AB 31 29 AC 57 44 AB 33 3A 43 54 B2 43 52 AA 28 |.1).WD.3:CT.CR.(|
000001B0: 4C 53 AB 32 29 AC 57 44 00 C7 09 60 04 43 4D B2 |LS.2).WD...`.CM.|
000001C0: 53 43 AA 57 44 AC 32 00 07 0A 6A 04 97 51 51 2C |SC.WD.2...j..QQ,|
000001D0: 30 3A 99 22 13 5C 12 D7 52 49 54 45 92 20 20 20 |0:.".\..RITE. |
000001E0: 20 20 20 5C D3 41 56 45 20 20 20 20 20 5C CC 4F | \.AVE \.O|
000001F0: 41 44 20 20 20 20 20 20 20 5C D0 52 49 4E 54 22 |AD \.RINT"|
00000200: 3B 3A 97 51 43 2C 30 00 38 0A 74 04 99 22 C0 C0 |;:.QC,0.8.t.."..|
00000210: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000220: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000230: C0 C0 C0 C0 C0 C0 22 3B 00 4C 0A 7E 04 A1 43 24 |......";.L.~..C$|
00000240: 3A 8B 43 24 B2 22 22 A7 31 31 35 30 00 58 0A 88 |:.C$."".1150.X..|
00000250: 04 43 B2 C6 28 43 24 29 00 89 0A 92 04 43 50 B2 |.C..(C$).....CP.|
00000260: C2 28 51 4C 29 AA 32 35 36 AC C2 28 51 48 29 AA |.(QL).256..(QH).|
00000270: C2 28 51 50 29 3A 97 51 43 2C 31 3A 97 43 50 2C |.(QP):.QC,1:.CP,|
00000280: C2 28 43 50 29 AF 31 32 37 00 A7 0A 9C 04 8B 43 |.(CP).127......C|
00000290: 50 B1 43 4D A7 43 4D B2 43 50 3A 8B 43 4D B1 43 |P.CM.CM.CP:.CM.C|
000002A0: 58 A7 43 4D B2 43 58 00 B8 0A A6 04 8B 43 24 B2 |X.CM.CX......C$.|
000002B0: 22 5C 22 A7 31 34 36 30 00 CD 0A B0 04 8B 28 43 |"\".1460......(C|
000002C0: AF 31 32 37 29 B1 33 31 A7 31 33 31 30 00 FD 0A |.127).31.1310...|
000002D0: BA 04 8B 28 43 B2 31 33 B0 43 B2 31 34 31 29 AF |...(C.13.C.141).|
000002E0: 43 50 B3 43 54 AB 57 44 A7 97 51 43 2C 31 3A 43 |CP.CT.WD..QC,1:C|
000002F0: 24 B2 C7 28 31 33 29 3A 89 31 33 31 30 00 1D 0B |$..(13):.1310...|
00000300: C4 04 8B 43 24 B2 22 13 22 A7 99 22 13 11 11 22 |...C$.".".."..."|
00000310: 3B 3A 97 51 43 2C 30 3A 89 31 31 35 30 00 46 0B |;:.QC,0:.1150.F.|
00000320: CE 04 8B 43 B2 32 30 AF 43 50 B1 43 55 20 A7 99 |...C.20.CP.CU ..|
00000330: 22 9D 22 3B 3A 8D 31 33 35 30 3A 97 51 43 2C 30 |".";:.1350:.QC,0|
00000340: 3A 89 31 31 35 30 00 55 0B D8 04 8B 43 B2 32 39 |:.1150.U....C.29|
00000350: A7 31 33 31 30 00 6C 0B E2 04 8B 43 B2 31 35 37 |.1310.l....C.157|
00000360: AF 43 50 B1 43 55 20 A7 31 33 32 30 00 90 0B EC |.CP.CU .1320....|
00000370: 04 8B 43 B2 31 34 38 AF 43 50 B3 43 58 20 A7 8D |..C.148.CP.CX ..|
00000380: 31 33 38 30 3A 97 51 43 2C 30 3A 89 31 31 35 30 |1380:.QC,0:.1150|
00000390: 00 A1 0B F6 04 8B 43 24 B2 22 93 22 A7 31 34 31 |......C$.".".141|
000003A0: 30 00 BA 0B 00 05 8B 43 24 B2 22 11 22 AF 43 50 |0......C$.".".CP|
000003B0: B3 43 54 AB 32 A7 31 33 31 30 00 D6 0B 0A 05 8B |.CT.2.1310......|
000003C0: 43 24 B2 22 91 22 AF 43 50 B1 43 55 AA 57 44 AB |C$.".".CP.CU.WD.|
000003D0: 31 A7 31 33 32 30 00 E6 0B 14 05 97 51 43 2C 30 |1.1320......QC,0|
000003E0: 3A 89 31 31 35 30 00 FD 0B 1E 05 8B 43 50 B1 43 |:.1150......CP.C|
000003F0: 58 A7 97 51 43 2C 30 3A 89 31 31 35 30 00 0C 0C |X..QC,0:.1150...|
00000400: 28 05 99 43 24 3B 3A 97 51 43 2C 30 00 1D 0C 32 |(..C$;:.QC,0...2|
00000410: 05 8B 43 B2 33 34 A7 97 20 51 51 2C 30 00 27 0C |..C.34.. QQ,0.'.|
00000420: 3C 05 89 31 31 35 30 00 40 0C 46 05 81 49 B2 43 |<..1150.@.F..I.C|
00000430: 50 AB 31 A4 43 4D 3A 97 49 2C C2 28 49 AA 31 29 |P.1.CM:.I,.(I.1)|
00000440: 00 4F 0C 50 05 82 49 3A 43 4D B2 43 4D AB 31 00 |.O.P..I:CM.CM.1.|
00000450: 5B 0C 5A 05 97 49 2C 33 32 3A 8E 00 77 0C 64 05 |[.Z..I,32:..w.d.|
00000460: 81 49 B2 43 4D AA 31 A4 43 50 A9 AB 31 3A 97 49 |.I.CM.1.CP..1:.I|
00000470: 2C C2 28 49 AB 31 29 00 7E 0C 6E 05 82 49 00 93 |,.(I.1).~.n..I..|
00000480: 0C 78 05 97 43 50 2C 33 32 3A 43 4D B2 43 4D AA |.x..CP,32:CM.CM.|
00000490: 31 3A 8E 00 C7 0C 82 05 99 22 13 5C 12 C3 4C 45 |1:.......".\..LE|
000004A0: 41 52 3F 28 D9 2F CE 29 92 5C D3 41 56 45 20 20 |AR?(./.).\.AVE |
000004B0: 20 20 20 5C CC 4F 41 44 20 20 20 20 20 20 20 5C | \.OAD \|
000004C0: D0 52 49 4E 54 22 3B 00 F8 0C 8C 05 99 22 C0 C0 |.RINT";......"..|
000004D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000004F0: C0 C0 C0 C0 C0 C0 22 3B 00 0C 0D 96 05 A1 43 24 |......";......C$|
00000500: 3A 8B 43 24 B2 22 22 A7 31 34 33 30 00 1E 0D A0 |:.C$."".1430....|
00000510: 05 8B 43 24 B3 B1 22 59 22 A7 31 31 33 30 00 2D |..C$.."Y".1130.-|
00000520: 0D AA 05 99 22 93 22 3A 89 31 31 32 30 00 65 0D |....".":.1120.e.|
00000530: B4 05 97 51 51 2C 30 3A 99 22 13 5C D7 52 49 54 |...QQ,0:.".\.RIT|
00000540: 45 20 20 20 20 20 20 5C D3 41 56 45 20 20 20 20 |E \.AVE |
00000550: 20 5C CC 4F 41 44 20 20 20 20 20 20 20 5C D0 52 | \.OAD \.R|
00000560: 49 4E 54 22 3B 00 96 0D BE 05 99 22 C0 C0 C0 C0 |INT";......"....|
00000570: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000580: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000590: C0 C0 C0 C0 22 3B 00 AC 0D C8 05 A1 43 43 24 3A |....";......CC$:|
000005A0: 8B 43 43 24 B2 22 22 A7 31 34 38 30 00 BE 0D CA |.CC$."".1480....|
000005B0: 05 8B 43 43 24 B2 22 50 22 A7 31 37 39 30 00 D0 |..CC$."P".1790..|
000005C0: 0D CD 05 8B 43 43 24 B2 22 57 22 A7 31 31 33 30 |....CC$."W".1130|
000005D0: 00 E2 0D D2 05 8B 43 43 24 B2 22 53 22 A7 31 35 |......CC$."S".15|
000005E0: 32 35 00 F4 0D DC 05 8B 43 43 24 B2 22 4C 22 A7 |25......CC$."L".|
000005F0: 31 36 35 35 00 FE 0D F0 05 89 31 34 38 30 00 14 |1655......1480..|
00000600: 0E F5 05 8B 49 44 B2 38 B0 4F 44 B2 38 A7 20 8D |....ID.8.OD.8. .|
00000610: 36 30 30 30 00 48 0E FA 05 99 22 13 5C D7 52 49 |6000.H....".\.RI|
00000620: 54 45 20 20 20 20 20 20 5C 12 D3 41 56 45 92 20 |TE \..AVE. |
00000630: 20 20 20 20 5C CC 4F 41 44 20 20 20 20 20 20 20 | \.OAD |
00000640: 5C D0 52 49 4E 54 22 3B 00 79 0E 04 06 99 22 C0 |\.RINT";.y....".|
00000650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000670: C0 C0 C0 C0 C0 C0 C0 22 3B 00 8E 0E 0E 06 4C 4E |.......";.....LN|
00000680: B2 B5 28 28 43 4D AB 43 52 29 AD 34 30 29 00 A1 |..((CM.CR).40)..|
00000690: 0E 18 06 8B 43 4D AB 43 52 B2 34 30 A7 31 31 33 |....CM.CR.40.113|
000006A0: 30 00 B6 0E 22 06 81 4C B2 31 A4 4C 4E 3A 41 24 |0..."..L.1.LN:A$|
000006B0: 28 4C 29 B2 22 22 00 D0 0E 2C 06 81 4D B2 30 A4 |(L).""...,..M.0.|
000006C0: 57 44 AB 31 3A 43 B2 43 52 AA 57 44 AC 4C AA 4D |WD.1:C.CR.WD.L.M|
000006D0: 00 DF 0E 36 06 8B 43 B1 43 58 A7 31 36 31 30 00 |...6..C.CX.1610.|
000006E0: 03 0F 40 06 41 24 28 4C 29 B2 41 24 28 4C 29 AA |..@.A$(L).A$(L).|
000006F0: 43 24 28 C2 28 43 29 29 3A 97 43 2C 33 32 3A 82 |C$(.(C)):.C,32:.|
00000700: 4D 2C 4C 00 1B 0F 4A 06 99 22 13 11 11 22 3A 8B |M,L...J.."...":.|
00000710: 4F 44 B2 31 A7 9F 33 2C 31 2C 31 00 3C 0F 54 06 |OD.1..3,1,1.<.T.|
00000720: 8B 4F 44 B2 38 A7 9F 33 2C 38 2C 33 2C 22 40 30 |.OD.8..3,8,3,"@0|
00000730: 3A 22 AA 4E 24 AA 22 2C 53 2C 57 22 00 62 0F 5E |:".N$.",S,W".b.^|
00000740: 06 98 33 2C 4C 4E 3B C7 28 31 33 29 3B 3A 81 4C |..3,LN;.(13);:.L|
00000750: B2 31 A4 4C 4E 3A 98 33 2C 41 24 28 4C 29 3B 3A |.1.LN:.3,A$(L);:|
00000760: 82 4C 00 69 0F 68 06 A0 33 00 86 0F 6D 06 99 22 |.L.i.h..3...m.."|
00000770: 93 11 22 3A 81 4C B2 31 A4 4C 4E 3A 99 41 24 28 |..":.L.1.LN:.A$(|
00000780: 4C 29 3B 3A 82 4C 00 90 0F 72 06 89 31 34 36 30 |L);:.L...r..1460|
00000790: 00 A6 0F 77 06 8B 49 44 B2 38 B0 4F 44 B2 38 A7 |...w..ID.8.OD.8.|
000007A0: 20 8D 36 30 30 30 00 DA 0F 7C 06 99 22 13 5C D7 | .6000...|..".\.|
000007B0: 52 49 54 45 20 20 20 20 20 20 5C D3 41 56 45 20 |RITE \.AVE |
000007C0: 20 20 20 20 5C 12 CC 4F 41 44 92 20 20 20 20 20 | \..OAD. |
000007D0: 20 20 5C D0 52 49 4E 54 22 3B 00 0B 10 86 06 99 | \.RINT";......|
000007E0: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
000007F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000800: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 1C 10 90 06 |.........";.....|
00000810: 8B 49 44 B2 31 A7 9F 33 2C 31 2C 30 00 3C 10 9A |.ID.1..3,1,0.<..|
00000820: 06 8B 49 44 B2 38 A7 9F 33 2C 38 2C 33 2C 22 30 |..ID.8..3,8,3,"0|
00000830: 3A 22 AA 4E 24 AA 22 2C 53 2C 52 22 00 4E 10 A4 |:".N$.",S,R".N..|
00000840: 06 99 22 13 11 11 22 3B 3A 84 33 2C 4C 4E 00 5A |.."...";:.3,LN.Z|
00000850: 10 AE 06 81 4C B2 31 A4 4C 4E 00 66 10 B8 06 81 |....L.1.LN.f....|
00000860: 4D B2 31 A4 57 44 00 7D 10 BD 06 8B 4C B2 32 33 |M.1.WD.}....L.23|
00000870: AF 4D B1 B2 57 44 AB 31 A7 31 37 35 30 00 94 10 |.M..WD.1.1750...|
00000880: C2 06 A1 23 33 2C 43 24 3A 99 43 24 3B 3A 97 20 |...#3,C$:.C$;:. |
00000890: 51 51 2C 30 00 9D 10 D6 06 82 4D 2C 4C 00 A4 10 |QQ,0......M,L...|
000008A0: E0 06 A0 33 00 C1 10 EA 06 43 4D B2 4C 4E AC 34 |...3.....CM.LN.4|
000008B0: 30 AA 43 52 3A 8B 43 4D B1 43 58 A7 43 4D B2 43 |0.CR:.CM.CX.CM.C|
000008C0: 58 00 CB 10 F4 06 89 31 31 33 30 00 FF 10 FE 06 |X......1130.....|
000008D0: 99 22 13 5C D7 52 49 54 45 20 20 20 20 20 20 5C |.".\.RITE \|
000008E0: D3 41 56 45 20 20 20 20 20 5C CC 4F 41 44 20 20 |.AVE \.OAD |
000008F0: 20 20 20 20 20 5C 12 D0 52 49 4E 54 92 22 3B 00 | \..RINT.";.|
00000900: 30 11 08 07 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |0...."..........|
00000910: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000920: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
00000930: 00 3B 11 12 07 9F 34 2C 34 2C 37 00 53 11 1C 07 |.;....4,4,7.S...|
00000940: 4C 4E B2 B5 28 2E 35 AA 28 43 4D AB 43 52 29 AD |LN..(.5.(CM.CR).|
00000950: 34 30 29 00 7F 11 26 07 81 4C B2 31 A4 4C 4E 3A |40)...&..L.1.LN:|
00000960: 98 34 2C 22 22 A3 32 30 29 3B 3A 8B C2 28 35 33 |.4,"".20);:..(53|
00000970: 32 37 32 29 B2 32 33 A7 98 34 2C 22 93 22 3B 00 |272).23..4,".";.|
00000980: 97 11 30 07 81 4D B2 30 A4 33 39 3A 43 B2 43 52 |..0..M.0.39:C.CR|
00000990: AA 34 30 AC 4C AA 4D 00 BA 11 3A 07 98 34 2C 43 |.40.L.M...:..4,C|
000009A0: 24 28 C2 28 43 29 29 3B 3A 82 4D 3A 98 34 3A 82 |$(.(C));:.M:.4:.|
000009B0: 4C 3A 98 34 3A 98 34 3A A0 34 00 C4 11 44 07 89 |L:.4:.4:.4...D..|
000009C0: 31 31 33 30 00 E0 11 4E 07 81 49 B2 30 A4 33 31 |1130...N..I.0.31|
000009D0: 3A 43 24 28 49 29 B2 C7 28 49 AA 36 34 29 3A 82 |:C$(I)..(I.64):.|
000009E0: 00 FA 11 5D 07 81 49 B2 33 32 A4 36 33 3A 43 24 |...]..I.32.63:C$|
000009F0: 28 49 29 B2 C7 28 49 29 3A 82 00 18 12 62 07 81 |(I)..(I):....b..|
00000A00: 49 B2 36 34 A4 39 35 3A 43 24 28 49 29 B2 C7 28 |I.64.95:C$(I)..(|
00000A10: 49 AA 31 32 38 29 3A 82 00 36 12 6C 07 81 49 B2 |I.128):..6.l..I.|
00000A20: 39 36 A4 31 32 37 3A 43 24 28 49 29 B2 C7 28 49 |96.127:C$(I)..(I|
00000A30: AA 36 34 29 3A 82 00 3C 12 76 07 8E 00 6E 12 70 |.64):..<.v...n.p|
00000A40: 17 99 22 13 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00000A50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A60: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 94 | ";..|
00000A70: 12 7A 17 99 22 13 D7 48 41 54 20 49 53 20 54 48 |.z.."..HAT IS TH|
00000A80: 45 20 46 49 4C 45 20 4E 41 4D 45 22 3B 3A 8D 36 |E FILE NAME";:.6|
00000A90: 30 30 30 30 00 B9 12 84 17 8B C3 28 49 4E 24 29 |0000.......(IN$)|
00000AA0: B2 30 A7 20 49 4E 24 B2 4E 24 3A 99 4E 24 3A 81 |.0. IN$.N$:.N$:.|
00000AB0: 49 B2 31 A4 35 30 30 3A 82 00 C6 12 8E 17 4E 24 |I.1.500:......N$|
00000AC0: B2 49 4E 24 3A 8E 00 DD 12 60 EA 8F 20 49 4E 50 |.IN$:....`.. INP|
00000AD0: 55 54 20 52 4F 55 54 49 4E 45 20 23 31 00 FC 12 |UT ROUTINE #1...|
00000AE0: 6A EA 54 46 B2 32 30 3A 54 54 B2 30 3A 49 4E 24 |j.TF.20:TT.0:IN$|
00000AF0: B2 22 22 3A 99 22 3F 20 A6 9D 22 3B 00 1A 13 74 |."":."? ..";...t|
00000B00: EA A1 43 24 3A 54 54 B2 54 54 AA 31 3A 8B 54 54 |..C$:TT.TT.1:.TT|
00000B10: B1 54 46 A7 99 22 20 9D 22 3B 00 33 13 7E EA 8B |.TF.." .";.3.~..|
00000B20: 54 54 B1 54 46 AC 32 A7 99 22 A6 9D 22 3B 3A 54 |TT.TF.2.."..";:T|
00000B30: 54 B2 30 00 44 13 88 EA 8B 43 24 B2 22 22 A7 36 |T.0.D....C$."".6|
00000B40: 30 30 32 30 00 52 13 92 EA 4C 45 B2 C3 28 49 4E |0020.R...LE..(IN|
00000B50: 24 29 00 8C 13 9C EA 8B 43 24 B2 22 92 22 AF C2 |$)......C$."."..|
00000B60: 28 37 38 38 29 B2 38 38 A7 97 37 38 38 2C 38 35 |(788).88..788,85|
00000B70: 3A 89 36 30 30 32 30 3A 8F 20 52 45 2D 45 4E 41 |:.60020:. RE-ENA|
00000B80: 42 4C 45 20 53 54 4F 50 20 4B 45 59 00 B6 13 A6 |BLE STOP KEY....|
00000B90: EA 8B 28 C6 28 43 24 29 AF 31 32 37 29 B1 33 31 |..(.(C$).127).31|
00000BA0: AF 43 24 B3 B1 C7 28 33 34 29 AF 4C 45 B3 31 36 |.C$...(34).LE.16|
00000BB0: A7 36 30 31 31 30 00 D7 13 B0 EA 8B 43 24 B2 C7 |.60110......C$..|
00000BC0: 28 31 33 29 A7 20 49 4E B2 C5 28 49 4E 24 29 3A |(13). IN..(IN$):|
00000BD0: 99 22 20 22 3B 3A 8E 00 04 14 BA EA 8B 43 24 B2 |." ";:.......C$.|
00000BE0: C7 28 32 30 29 AF 4C 45 B1 30 A7 49 4E 24 B2 C8 |.(20).LE.0.IN$..|
00000BF0: 28 49 4E 24 2C 4C 45 AB 31 29 3A 99 22 9D A6 20 |(IN$,LE.1):.".. |
00000C00: 9D 9D 22 3B 00 0F 14 C4 EA 89 36 30 30 32 30 00 |..";......60020.|
00000C10: 2E 14 CE EA 49 4E 24 B2 49 4E 24 AA 43 24 3A 99 |....IN$.IN$.C$:.|
00000C20: 43 24 22 A6 9D 22 3B 3A 89 36 30 30 32 30 00 00 |C$"..";:.60020..|
00000C30: 00 |. |
....... MINIWORDPRO.4.).... R MACNAUGHTO
N.L.... MODIFIED FOR COMMODORE-64.B..
.. BY W. M. STROME.X.... WEST HUMBER C I
...... MARCH 1982...... REVISED FEBRUARY
1983...... A$(25),C$(255)......53272,23
:. UPPER/LOWER CASE.....ID.8:. INPUT 8-D
ISK 1-TAPE.....OD.8:. OUTPUT 8-DISK 1-TA
PE.U...QC.204:QL.209:QH.210:QP.211:QQ.21
2:WD.40:LS.25:SC.1024.C...N$."FILE".~...
.".THINKING... ":.1870...L.CU.SC.WD.2:CR
.SC.WD:CX.CR.(LS.1).WD.3:CT.CR.(LS.2).WD
.G.`.CM.SC.WD.2...J..QQ,0:.".\.WRITE.
\SAVE \LOAD \PRINT";:.QC,0.
8.T.."..................................
......";.L.~..C$:.C$."".1150.X...C.F(C$)
.....CP.B(QL).256.B(QH).B(QP):.QC,1:.CP,
B(CP).127......CP.CM.CM.CP:.CM.CX.CM.CX.
.....C$."\".1460.M....(C.127).31.1310...
...(C.13.C.141).CP.CT.WD..QC,1:C$.G(13):
.1310...D..C$.".".."...";:.QC,0:.1150.F.
N..C.20.CP.CU ..".";:.1350:.QC,0:.1150.U
.X..C.29.1310.L....C.157.CP.CU .1320....
..C.148.CP.CX ..1380:.QC,0:.1150......C$
.".".1410......C$.".".CP.CT.2.1310.V....
C$.".".CP.CU.WD.1.1320......QC,0:.1150..
....CP.CX..QC,0:.1150...(..C$;:.QC,0...2
..C.34.. QQ,0.'.<..1150.@.F..I.CP.1.CM:.
I,B(I.1).O.P..I:CM.CM.1.[.Z..I,32:..W.D.
.I.CM.1.CP..1:.I,B(I.1).~.N..I...X..CP,3
2:CM.CM.1:..G....".\.CLEAR?(Y/N).\SAVE
\LOAD \PRINT";......"..........
..............................";......C$
:.C$."".1430... ..C$.."Y".1130.-....".":
.1120.E....QQ,0:.".\WRITE \SAVE
\LOAD \PRINT";......"............
............................";...H..CC$:
.CC$."".1480...J..CC$."P".1790.P.M..CC$.
"W".1130...R..CC$."S".1525......CC$."L".
1655......1480......ID.8.OD.8. .6000.H..
..".\WRITE \.SAVE. \LOAD
\PRINT";.Y....".........................
...............";.....LN..((CM.CR).40)..
....CM.CR.40.1130..."..L.1.LN:A$(L)."".P
.,..M.0.WD.1:C.CR.WD.L.M...6..C.CX.1610.
..@.A$(L).A$(L).C$(B(C)):.C,32:.M,L...J.
."...":.OD.1..3,1,1.<.T..OD.8..3,8,3,"@0
:".N$.",S,W".B.^..3,LN;G(13);:.L.1.LN:.3
,A$(L);:.L.I.H. 3...M.."..":.L.1.LN:.A$(
L);:.L...R..1460...W..ID.8.OD.8. .6000.Z
.|..".\WRITE \SAVE \.LOAD.
\PRINT";......".......................
.................";......ID.1..3,1,0.<..
..ID.8..3,8,3,"0:".N$.",S,R".N...."...";
:.3,LN.Z....L.1.LN.F....M.1.WD.}....L.23
.M..WD.1.1750...B..#3,C$:.C$;:. QQ,0...V
..M,L..... 3.A...CM.LN.40.CR:.CM.CX.CM.C
X.K....1130......".\WRITE \SAVE
\LOAD \.PRINT.";.0...."..........
..............................";.;....4,
4,7.S...LN..(.5.(CM.CR).40)..&..L.1.LN:
.4,"".20);:.B(53272).23..4,".";...0..M.0
.39:C.CR.40.L.M...:..4,C$(B(C));:.M:.4:.
L:.4:.4: 4.D.D..1130...N..I.0.31:C$(I).G
(I.64):....]..I.32.63:C$(I).G(I):....B..
I.64.95:C$(I).G(I.128):..6.L..I.96.127:C
$(I).G(I.64):..<.V...N.P..".
";...Z..".WH
AT IS THE FILE NAME";:.60000......C(IN$)
.0. IN$.N$:.N$:.I.1.500:..F...N$.IN$:...
.`.. INPUT ROUTINE #1...J.TF.20:TT.0:IN$
."":."? ..";...T..C$:TT.TT.1:.TT.TF.." .
";.3.~..TT.TF.2.."..";:TT.0.D....C$."".6
0020.R...LE.C(IN$)......C$.".".B(788).88
..788,85:.60020:. RE-ENABLE STOP KEY....
..(F(C$).127).31.C$..G(34).LE.16.60110.W
....C$.G(13). IN.E(IN$):." ";:.......C$.
G(20).LE.0.IN$.H(IN$,LE.1):.".. ..";...D
..60020...N.IN$.IN$.C$:.C$"..";:.60020..
.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL