CHAR EDITOR
FILE INFORMATION
FILENAME(S): CHAR EDITOR
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-10-19 22:48:30
APPEARS ON: 3 disk(s)
FILE HASH
060adddadfc5f3bbfe2eebd1bf308cf2b8f5da6dd01560e00fa0d1beb99b61cd
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| UTILITY 64 | CHAR EDITOR | PRG | Radd Maxx | 22 | 6 | DOWNLOAD FILE |
| GRAPHX05 | CHAR EDITOR | PRG | Treasure Chest - Spook | 26 | 2 | DOWNLOAD FILE |
| C64 STARTER KIT | CHAR EDITOR | PRG | Curtcool, Bo | 16 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 2D 08 56 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..-.V.. ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 08 |*************.Y.|
00000030: 57 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |W.. * |
00000040: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000050: 20 20 20 20 20 20 20 20 2A 00 85 08 58 00 8F 20 | *...X.. |
00000060: 2A 20 20 20 20 20 20 20 20 20 20 20 20 43 52 45 |* CRE|
00000070: 41 54 45 44 20 46 4F 52 20 20 20 20 20 20 20 20 |ATED FOR |
00000080: 20 20 20 20 2A 00 B1 08 59 00 8F 20 2A 20 20 20 | *...Y.. * |
00000090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000B0: 2A 00 DD 08 5A 00 8F 20 2A 20 20 54 48 45 20 43 |*...Z.. * THE C|
000000C0: 4F 4D 4D 4F 44 4F 52 45 20 45 44 55 43 41 54 49 |OMMODORE EDUCATI|
000000D0: 4F 4E 41 4C 20 47 52 4F 55 50 20 20 2A 00 09 09 |ONAL GROUP *...|
000000E0: 5B 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |[.. * |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000100: 20 20 20 20 20 20 20 20 2A 00 35 09 5C 00 8F 20 | *.5.\.. |
00000110: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000120: 20 42 59 20 20 20 20 20 20 20 20 20 20 20 20 20 | BY |
00000130: 20 20 20 20 2A 00 61 09 5D 00 8F 20 2A 20 20 20 | *.a.].. * |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 2A 00 8D 09 5E 00 8F 20 2A 20 20 20 20 20 20 20 |*...^.. * |
00000170: 20 20 47 41 52 52 59 20 47 2E 20 4B 49 5A 49 41 | GARRY G. KIZIA|
00000180: 4B 20 20 20 20 20 20 20 20 20 20 20 2A 00 B9 09 |K *...|
00000190: 5F 00 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |_.. * |
000001A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001B0: 20 20 20 20 20 20 20 20 2A 00 E5 09 60 00 8F 20 | *...`.. |
000001C0: 2A 20 20 20 20 20 20 20 20 20 43 4F 50 59 52 49 |* COPYRI|
000001D0: 47 48 54 20 20 31 39 38 32 20 20 20 20 20 20 20 |GHT 1982 |
000001E0: 20 20 20 20 2A 00 11 0A 61 00 8F 20 2A 20 20 20 | *...a.. * |
000001F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000210: 2A 00 3D 0A 62 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.=.b.. ********|
00000220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000230: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 43 0A |*************.C.|
00000240: 63 00 3A 00 56 0A 64 00 8B 20 56 B2 30 20 A7 20 |c.:.V.d.. V.0 . |
00000250: 8D 20 31 31 32 30 00 70 0A 6E 00 99 20 C8 28 56 |. 1120.p.n.. .(V|
00000260: 24 2C 37 29 A3 31 38 29 C8 28 42 4C 24 2C 39 29 |$,7).18).(BL$,9)|
00000270: 00 86 0A 78 00 99 3A 99 20 A3 31 38 29 C8 28 42 |...x..:. .18).(B|
00000280: 4C 24 2C 31 36 29 00 A9 0A 82 00 8D 20 36 31 30 |L$,16)...... 610|
00000290: 3A 8D 20 31 31 36 30 3A 8D 20 36 32 30 3A 8D 20 |:. 1160:. 620:. |
000002A0: 38 36 30 3A 8D 20 36 35 30 00 CA 0A 8C 00 81 20 |860:. 650...... |
000002B0: 49 B2 30 20 A4 20 37 3A 50 B2 C2 28 4C AA 49 29 |I.0 . 7:P..(L.I)|
000002C0: 3A 97 20 5A AA 49 2C 50 3A 82 00 E2 0A 96 00 8D |:. Z.I,P:.......|
000002D0: 20 35 37 30 3A 58 B2 30 3A 59 B2 30 3A 8D 20 35 | 570:X.0:Y.0:. 5|
000002E0: 39 30 00 FF 0A A0 00 50 B2 31 31 34 38 AA 58 AA |90.....P.1148.X.|
000002F0: 59 AC 34 30 3A 51 B2 C2 28 50 29 3A 52 B2 51 00 |Y.40:Q..(P):R.Q.|
00000300: 17 0B AA 00 52 B2 28 A8 52 AF 31 32 38 29 B0 28 |....R.(.R.128).(|
00000310: A8 31 32 38 AF 52 29 00 21 0B B4 00 97 20 50 2C |.128.R).!.... P,|
00000320: 52 00 47 0B BE 00 81 20 49 B2 31 20 A4 20 33 30 |R.G.... I.1 . 30|
00000330: 3A A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |:. A$:. A$."" . |
00000340: 82 3A 89 20 31 37 30 00 51 0B C8 00 97 20 50 2C |.:. 170.Q.... P,|
00000350: 51 00 70 0B D2 00 8B 20 41 24 B2 22 1D 22 20 A7 |Q.p.... A$."." .|
00000360: 20 58 B2 28 58 AA 31 29 AF 37 3A 89 20 31 36 30 | X.(X.1).7:. 160|
00000370: 00 8F 0B DC 00 8B 20 41 24 B2 22 9D 22 20 A7 20 |...... A$."." . |
00000380: 58 B2 28 58 AB 31 29 AF 37 3A 89 20 31 36 30 00 |X.(X.1).7:. 160.|
00000390: AE 0B E6 00 8B 20 41 24 B2 22 11 22 20 A7 20 59 |..... A$."." . Y|
000003A0: B2 28 59 AA 31 29 AF 37 3A 89 20 31 36 30 00 CD |.(Y.1).7:. 160..|
000003B0: 0B F0 00 8B 20 41 24 B2 22 91 22 20 A7 20 59 B2 |.... A$."." . Y.|
000003C0: 28 59 AB 31 29 AF 37 3A 89 20 31 36 30 00 01 0C |(Y.1).7:. 160...|
000003D0: FA 00 8B 20 41 24 B2 44 45 24 20 A7 20 58 B2 28 |... A$.DE$ . X.(|
000003E0: 58 AB 31 29 AF 37 3A 50 B2 31 31 34 38 AA 58 AA |X.1).7:P.1148.X.|
000003F0: 59 AC 34 30 3A 97 20 50 2C 34 36 3A 54 B2 5A AA |Y.40:. P,46:T.Z.|
00000400: 59 00 24 0C 04 01 8B 20 41 24 B2 44 45 24 20 A7 |Y.$.... A$.DE$ .|
00000410: 20 97 20 54 2C C2 28 54 29 AF 48 28 58 29 3A 89 | . T,.(T).H(X):.|
00000420: 20 31 36 30 00 5E 0C 0E 01 8B 20 41 24 B2 22 20 | 160.^.... A$." |
00000430: 22 20 A7 20 97 20 50 2C 34 36 3A 54 B2 5A AA 59 |" . . P,46:T.Z.Y|
00000440: 3A 97 20 54 2C C2 28 54 29 AF 48 28 58 29 3A 58 |:. T,.(T).H(X):X|
00000450: B2 28 58 AA 31 29 AF 37 3A 89 20 31 36 30 00 98 |.(X.1).7:. 160..|
00000460: 0C 18 01 8B 20 41 24 B2 22 2E 22 20 A7 20 97 20 |.... A$."." . . |
00000470: 50 2C 38 31 3A 54 B2 5A AA 59 3A 97 20 54 2C C2 |P,81:T.Z.Y:. T,.|
00000480: 28 54 29 B0 4D 28 58 29 3A 58 B2 28 58 AA 31 29 |(T).M(X):X.(X.1)|
00000490: AF 37 3A 89 20 31 36 30 00 C1 0C 22 01 8B 20 41 |.7:. 160...".. A|
000004A0: 24 B2 22 93 22 20 A7 20 8D 20 36 32 30 3A 8D 20 |$."." . . 620:. |
000004B0: 36 34 30 3A 58 B2 30 3A 59 B2 30 3A 89 20 31 36 |640:X.0:Y.0:. 16|
000004C0: 30 00 FB 0C 2C 01 8B 20 41 24 B2 22 51 22 20 A7 |0...,.. A$."Q" .|
000004D0: 20 8D 20 36 32 30 3A 8D 20 36 34 30 3A 44 43 B2 | . 620:. 640:DC.|
000004E0: 33 32 3A 8D 20 35 39 30 3A 44 43 B2 32 35 35 3A |32:. 590:DC.255:|
000004F0: 8D 20 36 35 30 3A 89 20 31 34 30 00 18 0D 36 01 |. 650:. 140...6.|
00000500: 8B 20 41 24 B2 22 13 22 20 A7 20 58 B2 30 3A 59 |. A$."." . X.0:Y|
00000510: B2 30 3A 89 20 31 36 30 00 3B 0D 40 01 8B 20 41 |.0:. 160.;.@.. A|
00000520: 24 B2 43 52 24 20 A7 20 58 B2 30 3A 59 B2 28 59 |$.CR$ . X.0:Y.(Y|
00000530: AA 31 29 AF 37 3A 89 20 31 36 30 00 73 0D 4A 01 |.1).7:. 160.s.J.|
00000540: 8B 20 41 24 B2 22 85 22 20 A7 20 81 20 49 B2 31 |. A$."." . . I.1|
00000550: 20 A4 20 37 3A 97 20 5A AA 49 AB 31 2C C2 28 5A | . 7:. Z.I.1,.(Z|
00000560: AA 49 29 3A 82 3A 97 20 5A AA 37 2C 30 3A 8D 20 |.I):.:. Z.7,0:. |
00000570: 35 37 30 00 86 0D 54 01 8B 20 41 24 B2 22 85 22 |570...T.. A$."."|
00000580: 20 A7 20 31 36 30 00 BB 0D 5E 01 8B 20 41 24 B2 | . 160...^.. A$.|
00000590: 22 86 22 20 A7 20 81 20 49 B2 37 20 A4 20 31 20 |"." . . I.7 . 1 |
000005A0: A9 20 AB 31 3A 97 20 5A AA 49 2C C2 28 5A AA 49 |. .1:. Z.I,.(Z.I|
000005B0: AB 31 29 3A 82 3A 97 20 5A 2C 30 00 D6 0D 68 01 |.1):.:. Z,0...h.|
000005C0: 8B 20 41 24 B2 22 86 22 20 A7 20 8D 20 35 37 30 |. A$."." . . 570|
000005D0: 3A 89 20 31 36 30 00 06 0E 72 01 8B 20 41 24 B2 |:. 160...r.. A$.|
000005E0: 22 87 22 20 A7 20 81 20 49 B2 30 20 A4 20 37 3A |"." . . I.0 . 7:|
000005F0: 97 20 5A AA 49 2C 28 C2 28 5A AA 49 29 AC 32 29 |. Z.I,(.(Z.I).2)|
00000600: AF 32 35 35 3A 82 00 21 0E 7C 01 8B 20 41 24 B2 |.255:..!.|.. A$.|
00000610: 22 87 22 20 A7 20 8D 20 35 37 30 3A 89 20 31 36 |"." . . 570:. 16|
00000620: 30 00 4D 0E 86 01 8B 20 41 24 B2 22 88 22 20 A7 |0.M.... A$."." .|
00000630: 20 81 20 49 B2 30 20 A4 20 37 3A 97 20 5A AA 49 | . I.0 . 7:. Z.I|
00000640: 2C 28 C2 28 5A AA 49 29 AD 32 29 3A 82 00 68 0E |,(.(Z.I).2):..h.|
00000650: 90 01 8B 20 41 24 B2 22 88 22 20 A7 20 8D 20 35 |... A$."." . . 5|
00000660: 37 30 3A 89 20 31 36 30 00 9E 0E 9A 01 8B 20 41 |70:. 160...... A|
00000670: 24 B2 22 12 22 20 A7 20 81 20 49 B2 30 20 A4 20 |$."." . . I.0 . |
00000680: 37 3A 52 B2 C2 28 5A AA 49 29 3A 52 B2 28 A8 52 |7:R..(Z.I):R.(.R|
00000690: AF 32 35 35 29 B0 28 A8 32 35 35 AF 52 29 00 C3 |.255).(.255.R)..|
000006A0: 0E A4 01 8B 20 41 24 B2 22 12 22 20 A7 20 97 20 |.... A$."." . . |
000006B0: 5A AA 49 2C 52 3A 82 3A 8D 20 35 37 30 3A 89 20 |Z.I,R:.:. 570:. |
000006C0: 31 36 30 00 F0 0E AE 01 8B 20 41 24 B2 22 02 22 |160...... A$."."|
000006D0: 20 A7 20 42 47 B2 28 42 47 AA 31 29 AF 31 35 3A | . BG.(BG.1).15:|
000006E0: 97 20 35 33 32 38 31 2C 42 47 3A 89 20 31 36 30 |. 53281,BG:. 160|
000006F0: 00 1D 0F B8 01 8B 20 41 24 B2 22 05 22 20 A7 20 |...... A$."." . |
00000700: 42 52 B2 28 42 52 AA 31 29 AF 31 35 3A 97 20 35 |BR.(BR.1).15:. 5|
00000710: 33 32 38 30 2C 42 52 3A 89 20 31 36 30 00 3E 0F |3280,BR:. 160.>.|
00000720: C2 01 8B 20 41 24 B2 22 5C 22 20 A7 20 8D 20 35 |... A$."\" . . 5|
00000730: 38 30 3A 8D 20 35 37 30 3A 89 20 31 36 30 00 52 |80:. 570:. 160.R|
00000740: 0F CC 01 8B 20 41 24 B3 B1 22 01 22 20 A7 20 31 |.... A$.."." . 1|
00000750: 36 30 00 75 0F D0 01 8F 20 2A 2A 2A 2A 2A 2A 2A |60.u.... *******|
00000760: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000770: 2A 2A 2A 2A 2A 00 98 0F D1 01 8F 20 2A 20 20 20 |*****...... * |
00000780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000790: 20 20 20 20 20 20 20 2A 00 BB 0F D2 01 8F 20 2A | *...... *|
000007A0: 20 20 41 53 53 49 47 4E 20 43 48 41 52 41 43 54 | ASSIGN CHARACT|
000007B0: 45 52 20 42 45 49 4E 47 20 20 2A 00 DE 0F D3 01 |ER BEING *.....|
000007C0: 8F 20 2A 20 20 20 20 20 45 44 49 54 45 44 20 54 |. * EDITED T|
000007D0: 4F 20 41 20 4B 45 59 20 20 20 20 20 20 2A 00 01 |O A KEY *..|
000007E0: 10 D4 01 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
000007F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000800: 2A 00 24 10 D5 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.$.... ********|
00000810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000820: 2A 2A 2A 2A 00 57 10 D6 01 99 20 22 13 11 11 11 |****.W.... "....|
00000830: 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000840: 1D 1D 1D 1D 1D 1D 20 20 20 41 53 53 49 47 4E 20 |...... ASSIGN |
00000850: 54 4F 20 20 20 20 22 00 82 10 E0 01 99 20 22 1D |TO "...... ".|
00000860: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000870: 20 20 20 20 20 20 57 48 49 43 48 20 20 20 20 20 | WHICH |
00000880: 20 22 00 AD 10 EA 01 99 20 22 1D 1D 1D 1D 1D 1D | "...... "......|
00000890: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 20 20 43 |........... C|
000008A0: 48 41 52 41 43 54 45 52 20 20 20 20 22 00 B7 10 |HARACTER "...|
000008B0: F4 01 8D 20 36 36 30 00 DA 10 FE 01 81 20 49 B2 |... 660...... I.|
000008C0: 30 20 A4 20 37 3A 97 20 4C AA 49 2C C2 28 5A AA |0 . 7:. L.I,.(Z.|
000008D0: 49 29 3A 82 3A 8D 20 35 34 30 00 F3 10 08 02 8D |I):.:. 540......|
000008E0: 20 36 32 30 3A 8B 20 4C B3 B1 5A 20 A7 20 8D 20 | 620:. L..Z . . |
000008F0: 36 34 30 00 03 11 12 02 8D 20 36 35 30 3A 89 20 |640...... 650:. |
00000900: 31 34 30 00 36 11 1C 02 99 20 22 13 11 11 11 11 |140.6.... ".....|
00000910: 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000920: 1D 1D 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000930: 20 20 20 20 20 22 00 5B 11 26 02 99 20 22 1D 1D | ".[.&.. "..|
00000940: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... |
00000950: 20 20 20 20 20 20 20 20 20 20 22 00 88 11 30 02 | "...0.|
00000960: 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |. ".............|
00000970: 1D 1D 1D 1D 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00000980: 20 20 20 20 20 22 3A 8E 00 AB 11 35 02 8F 20 2A | ":....5.. *|
00000990: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000009A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CE 11 36 02 |***********...6.|
000009B0: 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 |. * |
000009C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 F1 | *..|
000009D0: 11 37 02 8F 20 2A 20 20 50 52 49 4E 54 20 43 48 |.7.. * PRINT CH|
000009E0: 41 52 41 43 54 45 52 20 4F 4E 20 47 52 49 44 20 |ARACTER ON GRID |
000009F0: 2A 00 14 12 38 02 8F 20 2A 20 20 20 20 20 20 20 |*...8.. * |
00000A00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000A10: 20 20 20 2A 00 37 12 39 02 8F 20 2A 2A 2A 2A 2A | *.7.9.. *****|
00000A20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A30: 2A 2A 2A 2A 2A 2A 2A 00 5E 12 3A 02 81 20 49 B2 |*******.^.:.. I.|
00000A40: 30 20 A4 20 37 3A 97 20 39 32 35 AA 49 2C C2 28 |0 . 7:. 925.I,.(|
00000A50: 5A AA 49 29 3A 82 3A 9E 20 39 33 33 3A 8E 00 81 |Z.I):.:. 933:...|
00000A60: 12 3F 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.?.. ***********|
00000A70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A80: 2A 00 A4 12 40 02 8F 20 2A 20 20 20 20 20 20 20 |*...@.. * |
00000A90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AA0: 20 20 20 2A 00 C7 12 41 02 8F 20 2A 20 20 20 52 | *...A.. * R|
00000AB0: 4F 54 41 54 45 20 45 44 49 54 20 43 48 41 52 41 |OTATE EDIT CHARA|
00000AC0: 43 54 45 52 20 20 2A 00 EA 12 42 02 8F 20 2A 20 |CTER *...B.. * |
00000AD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000AE0: 20 20 20 20 20 20 20 20 20 2A 00 0D 13 43 02 8F | *...C..|
00000AF0: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000B00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 43 13 |*************.C.|
00000B10: 44 02 48 49 B2 B5 28 5A AD 32 35 36 29 3A 4C 4F |D.HI..(Z.256):LO|
00000B20: B2 5A AB 32 35 36 AC 48 49 3A 97 20 32 35 31 2C |.Z.256.HI:. 251,|
00000B30: 4C 4F 3A 97 20 32 35 32 2C 48 49 3A 9E 20 38 39 |LO:. 252,HI:. 89|
00000B40: 36 3A 8E 00 66 13 48 02 8F 20 2A 2A 2A 2A 2A 2A |6:..f.H.. ******|
00000B50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000B60: 2A 2A 2A 2A 2A 2A 00 89 13 49 02 8F 20 2A 20 20 |******...I.. * |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B80: 20 20 20 20 20 20 20 20 2A 00 AC 13 4A 02 8F 20 | *...J.. |
00000B90: 2A 20 20 20 50 52 49 4E 54 20 45 44 49 54 20 43 |* PRINT EDIT C|
00000BA0: 48 41 52 41 43 54 45 52 20 20 20 2A 00 CF 13 4B |HARACTER *...K|
00000BB0: 02 8F 20 2A 20 20 20 20 20 49 4E 20 41 4C 4C 20 |.. * IN ALL |
00000BC0: 31 36 20 43 4F 4C 4F 52 53 20 20 20 20 20 2A 00 |16 COLORS *.|
00000BD0: F2 13 4C 02 8F 20 2A 20 20 20 20 20 20 20 20 20 |..L.. * |
00000BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BF0: 20 2A 00 15 14 4D 02 8F 20 2A 2A 2A 2A 2A 2A 2A | *...M.. *******|
00000C00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C10: 2A 2A 2A 2A 2A 00 3D 14 4E 02 4A B2 30 3A 81 20 |*****.=.N.J.0:. |
00000C20: 49 B2 30 20 A4 20 31 35 3A 4B B2 49 AF 37 3A 8B |I.0 . 15:K.I.7:.|
00000C30: 20 4B B2 30 20 A7 20 4A B2 4A AA 38 30 00 66 14 | K.0 . J.J.80.f.|
00000C40: 58 02 97 20 43 4C AA 32 AC 4B AA 4A AA 35 34 32 |X.. CL.2.K.J.542|
00000C50: 37 32 2C 49 3A 97 20 43 4C AA 32 AC 4B AA 4A 2C |72,I:. CL.2.K.J,|
00000C60: 44 43 3A 82 3A 8E 00 89 14 5D 02 8F 20 2A 2A 2A |DC:.:....].. ***|
00000C70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 AC 14 5E 02 8F 20 |*********...^.. |
00000C90: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000CA0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 CF 14 5F | *..._|
00000CB0: 02 8F 20 2A 20 20 20 43 48 41 4E 47 45 20 43 48 |.. * CHANGE CH|
00000CC0: 41 52 41 43 54 45 52 20 53 45 54 20 20 20 2A 00 |ARACTER SET *.|
00000CD0: F2 14 60 02 8F 20 2A 20 20 20 20 20 20 20 20 20 |..`.. * |
00000CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000CF0: 20 2A 00 15 15 61 02 8F 20 2A 2A 2A 2A 2A 2A 2A | *...a.. *******|
00000D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D10: 2A 2A 2A 2A 2A 00 40 15 62 02 43 42 B2 43 53 AC |*****.@.b.CB.CS.|
00000D20: 32 30 34 38 3A 5A B2 43 42 AA 32 35 35 AC 38 3A |2048:Z.CB.255.8:|
00000D30: 97 20 56 AA 32 34 2C 31 37 AA 32 AC 43 53 3A 8E |. V.24,17.2.CS:.|
00000D40: 00 63 15 67 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.c.g.. *********|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D60: 2A 2A 2A 00 86 15 68 02 8F 20 2A 20 20 20 20 20 |***...h.. * |
00000D70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D80: 20 20 20 20 20 2A 00 A9 15 69 02 8F 20 2A 20 20 | *...i.. * |
00000D90: 20 20 20 20 20 20 50 52 49 4E 54 20 47 52 49 44 | PRINT GRID|
00000DA0: 20 20 20 20 20 20 20 20 2A 00 CC 15 6A 02 8F 20 | *...j.. |
00000DB0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000DC0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 EF 15 6B | *...k|
00000DD0: 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000DF0: 29 16 6C 02 99 20 22 13 11 11 1D 1D 1D 12 AC A2 |).l.. ".........|
00000E00: A2 A2 A2 A2 A2 A2 A2 BB 92 22 3A 81 20 49 B2 31 |.........":. I.1|
00000E10: 20 A4 20 38 3A 99 20 22 1D 1D 1D A1 2E 2E 2E 2E | . 8:. "........|
00000E20: 2E 2E 2E 2E 12 A1 22 3A 82 00 44 16 76 02 99 20 |......":..D.v.. |
00000E30: 22 1D 1D 1D 12 BC 92 A2 A2 A2 A2 A2 A2 A2 A2 12 |"...............|
00000E40: BE 22 3A 8E 00 67 16 7B 02 8F 20 2A 2A 2A 2A 2A |.":..g.{.. *****|
00000E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E60: 2A 2A 2A 2A 2A 2A 2A 00 8A 16 7C 02 8F 20 2A 20 |*******...|.. * |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E80: 20 20 20 20 20 20 20 20 20 2A 00 AD 16 7D 02 8F | *...}..|
00000E90: 20 2A 20 20 20 43 4C 45 41 52 20 45 44 49 54 20 | * CLEAR EDIT |
00000EA0: 43 48 41 52 41 43 54 45 52 20 20 20 2A 00 D0 16 |CHARACTER *...|
00000EB0: 7E 02 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |~.. * |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000ED0: 00 F3 16 7F 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000EF0: 2A 2A 2A 00 0D 17 80 02 81 20 49 B2 30 20 A4 20 |***...... I.0 . |
00000F00: 37 3A 97 20 5A AA 49 2C 30 3A 82 3A 8E 00 30 17 |7:. Z.I,0:.:..0.|
00000F10: 84 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00000F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F30: 00 53 17 85 02 8F 20 2A 20 20 20 20 20 20 20 20 |.S.... * |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F50: 20 20 2A 00 76 17 86 02 8F 20 2A 20 20 20 20 53 | *.v.... * S|
00000F60: 45 4C 45 43 54 20 41 20 43 48 41 52 41 43 54 45 |ELECT A CHARACTE|
00000F70: 52 20 20 20 20 2A 00 99 17 87 02 8F 20 2A 20 20 |R *...... * |
00000F80: 20 20 20 20 20 20 46 4F 52 20 45 44 49 54 49 4E | FOR EDITIN|
00000F90: 47 20 20 20 20 20 20 20 2A 00 BC 17 88 02 8F 20 |G *...... |
00000FA0: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000FB0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 DF 17 89 | *....|
00000FC0: 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
00000FD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000FE0: 0B 18 8A 02 97 20 56 AA 32 31 2C 30 3A 97 20 56 |..... V.21,0:. V|
00000FF0: AA 31 36 2C 30 3A 5A 31 B2 30 3A 97 20 56 2C 35 |.16,0:Z1.0:. V,5|
00001000: 32 3A 97 20 56 AA 31 2C 31 36 36 00 13 18 94 02 |2:. V.1,166.....|
00001010: 52 B2 30 00 26 18 9E 02 52 B2 31 AB 52 3A 97 20 |R.0.&...R.1.R:. |
00001020: 56 AA 32 31 2C 52 00 4C 18 A8 02 81 20 49 B2 31 |V.21,R.L.... I.1|
00001030: 20 A4 20 32 30 3A A1 20 41 24 3A 8B 20 41 24 B2 | . 20:. A$:. A$.|
00001040: 22 22 20 A7 20 82 3A 89 20 36 37 30 00 8A 18 B2 |"" . .:. 670....|
00001050: 02 97 20 56 AA 32 31 2C 31 3A 41 B2 C5 28 41 24 |.. V.21,1:A..(A$|
00001060: 29 3A 8B 20 41 B1 30 20 AF 20 41 B3 38 A7 43 53 |):. A.0 . A.8.CS|
00001070: B2 41 3A 8D 36 31 30 3A 97 31 35 37 30 2C 43 53 |.A:.610:.1570,CS|
00001080: AA 31 37 36 3A 89 20 36 37 30 00 B7 18 BC 02 8B |.176:. 670......|
00001090: 20 41 24 B2 22 02 22 20 A7 20 42 47 B2 28 42 47 | A$."." . BG.(BG|
000010A0: AA 31 29 AF 31 35 3A 97 20 35 33 32 38 31 2C 42 |.1).15:. 53281,B|
000010B0: 47 3A 89 20 36 37 30 00 E4 18 C6 02 8B 20 41 24 |G:. 670...... A$|
000010C0: B2 22 05 22 20 A7 20 42 52 B2 28 42 52 AA 31 29 |."." . BR.(BR.1)|
000010D0: AF 31 35 3A 97 20 35 33 32 38 30 2C 42 52 3A 89 |.15:. 53280,BR:.|
000010E0: 20 36 37 30 00 0B 19 D0 02 8B 20 41 24 B2 22 0E | 670...... A$.".|
000010F0: 22 20 A7 20 54 54 B2 28 54 54 AA 31 29 AF 33 3A |" . TT.(TT.1).3:|
00001100: 8D 20 38 36 30 3A 89 20 36 37 30 00 2B 19 DA 02 |. 860:. 670.+...|
00001110: 8B 20 41 24 B2 22 51 22 20 A7 20 97 20 56 AA 32 |. A$."Q" . . V.2|
00001120: 31 2C 30 3A 99 22 93 22 3B 3A 80 00 43 19 E4 02 |1,0:.".";:..C...|
00001130: 8B 20 43 53 B2 32 20 B0 20 43 53 B2 33 20 A7 20 |. CS.2 . CS.3 . |
00001140: 36 37 30 00 5F 19 EE 02 8B 20 41 24 B2 22 1D 22 |670._.... A$."."|
00001150: 20 A7 20 5A 31 B2 28 5A 31 AA 31 29 AF 36 33 00 | . Z1.(Z1.1).63.|
00001160: 7B 19 F8 02 8B 20 41 24 B2 22 9D 22 20 A7 20 5A |{.... A$."." . Z|
00001170: 31 B2 28 5A 31 AB 31 29 AF 36 33 00 98 19 02 03 |1.(Z1.1).63.....|
00001180: 8B 20 41 24 B2 22 91 22 20 A7 20 5A 31 B2 28 5A |. A$."." . Z1.(Z|
00001190: 31 AB 31 36 29 AF 36 33 00 B5 19 0C 03 8B 20 41 |1.16).63...... A|
000011A0: 24 B2 22 11 22 20 A7 20 5A 31 B2 28 5A 31 AA 31 |$."." . Z1.(Z1.1|
000011B0: 36 29 AF 36 33 00 F3 19 16 03 8B 20 41 24 B2 43 |6).63...... A$.C|
000011C0: 52 24 20 A7 20 8D 20 35 34 30 3A 44 43 B2 33 32 |R$ . . 540:DC.32|
000011D0: 3A 8D 20 35 39 30 3A 44 43 B2 32 35 35 3A 50 B2 |:. 590:DC.255:P.|
000011E0: 5A 31 AA 54 54 AC 36 34 3A 4C B2 43 42 AA 50 AC |Z1.TT.64:L.CB.P.|
000011F0: 38 3A 8E 00 17 1A 20 03 8B 20 41 24 B2 22 0C 22 |8:.... .. A$."."|
00001200: 20 A7 20 97 20 56 AA 32 31 2C 30 3A 8D 20 38 38 | . . V.21,0:. 88|
00001210: 30 3A 89 20 36 37 30 00 3B 1A 2A 03 8B 20 41 24 |0:. 670.;.*.. A$|
00001220: B2 22 53 22 20 A7 20 97 20 56 AA 32 31 2C 30 3A |."S" . . V.21,0:|
00001230: 8D 20 39 37 30 3A 89 20 36 37 30 00 6D 1A 34 03 |. 970:. 670.m.4.|
00001240: 59 31 B2 B5 28 5A 31 AD 31 36 29 3A 58 31 B2 5A |Y1..(Z1.16):X1.Z|
00001250: 31 AB 59 31 AC 31 36 3A 59 31 B2 31 36 36 AA 31 |1.Y1.16:Y1.166.1|
00001260: 36 AC 59 31 3A 97 20 56 AA 32 31 2C 30 00 92 1A |6.Y1:. V.21,0...|
00001270: 3E 03 8B 20 58 31 B3 31 33 20 A7 20 58 31 B2 35 |>.. X1.13 . X1.5|
00001280: 32 AA 58 31 AC 31 36 3A 46 4C B2 30 3A 89 20 38 |2.X1.16:FL.0:. 8|
00001290: 35 30 00 B7 1A 48 03 8B 20 58 31 B1 31 32 20 A7 |50...H.. X1.12 .|
000012A0: 20 58 31 B2 AB 31 32 AA 28 58 31 AB 31 32 29 AC | X1..12.(X1.12).|
000012B0: 31 36 3A 46 4C B2 31 00 E4 1A 52 03 97 20 56 AA |16:FL.1...R.. V.|
000012C0: 31 36 2C 46 4C 3A 97 20 56 2C 58 31 3A 97 20 56 |16,FL:. V,X1:. V|
000012D0: AA 31 2C 59 31 3A 97 20 56 AA 32 31 2C 31 3A 89 |.1,Y1:. V.21,1:.|
000012E0: 20 36 37 30 00 0D 1B 5C 03 4A B2 31 35 34 38 3A | 670...\.J.1548:|
000012F0: 81 49 B2 30 A4 36 33 3A 4B B2 49 AF 31 35 3A 8B |.I.0.63:K.I.15:.|
00001300: 20 4B B2 30 20 A7 20 4A B2 4A AA 38 30 00 25 1B | K.0 . J.J.80.%.|
00001310: 66 03 97 20 32 AC 4B AA 4A 2C 49 AA 54 54 AC 36 |f.. 2.K.J,I.TT.6|
00001320: 34 3A 82 3A 8E 00 48 1B 6B 03 8F 20 2A 2A 2A 2A |4:.:..H.k.. ****|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 00 6B 1B 6C 03 8F 20 2A |********.k.l.. *|
00001350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001360: 20 20 20 20 20 20 20 20 20 20 2A 00 8E 1B 6D 03 | *...m.|
00001370: 8F 20 2A 20 20 20 4C 4F 41 44 20 41 20 43 48 41 |. * LOAD A CHA|
00001380: 52 41 43 54 45 52 20 53 45 54 20 20 20 2A 00 B1 |RACTER SET *..|
00001390: 1B 6E 03 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.n.. * |
000013A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000013B0: 2A 00 D4 1B 6F 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...o.. ********|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013D0: 2A 2A 2A 2A 00 FF 1B 70 03 99 20 22 13 1D 1D 1D |****...p.. "....|
000013E0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D A4 |................|
000013F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 |..............".|
00001400: 2B 1C 7A 03 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |+.z.. ".........|
00001410: 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 20 20 20 4C |.......... L|
00001420: 4F 41 44 20 20 20 20 20 20 92 22 00 57 1C 84 03 |OAD .".W...|
00001430: 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |. ".............|
00001440: 1D 1D 1D 1D 1D 12 20 43 48 41 52 41 43 54 45 52 |...... CHARACTER|
00001450: 20 53 45 54 20 92 22 00 86 1C 8E 03 4C 49 B2 39 | SET .".....LI.9|
00001460: 3A 43 4F 4C B2 31 38 3A 4C 45 B2 31 36 3A 99 20 |:COL.18:LE.16:. |
00001470: C8 28 56 24 2C 37 29 A3 31 38 29 22 46 49 4C 45 |.(V$,7).18)"FILE|
00001480: 4E 41 4D 45 3A 22 00 A8 1C 98 03 4D 53 47 24 B2 |NAME:".....MSG$.|
00001490: 22 92 92 22 3A 8D 20 31 32 33 30 3A 46 4C 24 B2 |"..":. 1230:FL$.|
000014A0: 22 30 3A 22 AA 49 4E 24 00 D9 1C A2 03 8B 20 49 |"0:".IN$...... I|
000014B0: 4E 24 B2 22 22 20 A7 20 8D 20 31 31 36 30 3A 99 |N$."" . . 1160:.|
000014C0: 20 C8 28 56 24 2C 37 29 A3 31 38 29 22 20 20 20 | .(V$,7).18)" |
000014D0: 20 20 20 20 20 20 22 3A 8E 00 EB 1C AC 03 9F 20 | ":....... |
000014E0: 31 2C 38 2C 31 35 2C 22 49 30 22 00 08 1D B6 03 |1,8,15,"I0".....|
000014F0: 9F 20 32 2C 38 2C 30 2C 46 4C 24 3A 8D 20 31 33 |. 2,8,0,FL$:. 13|
00001500: 34 30 3A A0 32 3A A0 31 00 16 1D C0 03 93 20 46 |40:.2:.1...... F|
00001510: 4C 24 2C 38 2C 31 00 39 1D C5 03 8F 20 2A 2A 2A |L$,8,1.9.... ***|
00001520: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001530: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5C 1D C6 03 8F 20 |*********.\.... |
00001540: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00001550: 20 20 20 20 20 20 20 20 20 20 20 2A 00 7F 1D C7 | *....|
00001560: 03 8F 20 2A 20 20 20 53 41 56 45 20 41 20 43 48 |.. * SAVE A CH|
00001570: 41 52 41 43 54 45 52 20 53 45 54 20 20 20 2A 00 |ARACTER SET *.|
00001580: A2 1D C8 03 8F 20 2A 20 20 20 20 20 20 20 20 20 |..... * |
00001590: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015A0: 20 2A 00 C5 1D C9 03 8F 20 2A 2A 2A 2A 2A 2A 2A | *...... *******|
000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015C0: 2A 2A 2A 2A 2A 00 F0 1D CA 03 99 20 22 13 1D 1D |*****...... "...|
000015D0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000015E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 |..............."|
000015F0: 00 1C 1E D4 03 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D |...... "........|
00001600: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 20 20 20 20 |........... |
00001610: 53 41 56 45 20 20 20 20 20 20 92 22 00 48 1E DE |SAVE .".H..|
00001620: 03 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |.. "............|
00001630: 1D 1D 1D 1D 1D 1D 12 20 43 48 41 52 41 43 54 45 |....... CHARACTE|
00001640: 52 20 53 45 54 20 92 22 00 77 1E E8 03 4C 49 B2 |R SET .".w...LI.|
00001650: 38 3A 43 4F 4C B2 31 38 3A 4C 45 B2 31 36 3A 99 |8:COL.18:LE.16:.|
00001660: 20 C8 28 56 24 2C 36 29 A3 31 38 29 22 46 49 4C | .(V$,6).18)"FIL|
00001670: 45 4E 41 4D 45 3A 22 00 A6 1E F2 03 4D 53 47 24 |ENAME:".....MSG$|
00001680: B2 22 92 92 22 3A 8D 20 31 32 33 30 3A 46 4C 24 |."..":. 1230:FL$|
00001690: B2 22 30 3A 22 AA 49 4E 24 AA 22 2C 50 52 47 2C |."0:".IN$.",PRG,|
000016A0: 57 52 49 54 45 22 00 D7 1E FC 03 8B 20 49 4E 24 |WRITE"...... IN$|
000016B0: B2 22 22 20 A7 20 8D 20 31 31 36 30 3A 99 20 C8 |."" . . 1160:. .|
000016C0: 28 56 24 2C 37 29 A3 31 38 29 22 20 20 20 20 20 |(V$,7).18)" |
000016D0: 20 20 20 20 22 3A 8E 00 14 1F 06 04 4C 49 B2 31 | ":......LI.1|
000016E0: 31 3A 43 4F 4C B2 31 39 3A 4C 45 B2 31 3A 4D 53 |1:COL.19:LE.1:MS|
000016F0: 47 24 B2 22 92 53 41 56 45 20 54 4F 20 53 45 54 |G$.".SAVE TO SET|
00001700: 3F 92 22 3A 8D 20 31 32 33 30 3A 54 53 B2 C5 28 |?.":. 1230:TS..(|
00001710: 49 4E 24 29 00 3B 1F 10 04 8B 20 54 53 B3 31 20 |IN$).;.... TS.1 |
00001720: B0 20 54 53 B2 32 20 B0 20 54 53 B2 33 20 B0 20 |. TS.2 . TS.3 . |
00001730: 54 53 B1 37 20 A7 20 31 30 33 30 00 54 1F 1A 04 |TS.7 . 1030.T...|
00001740: 9F 20 31 2C 38 2C 31 35 2C 22 49 30 22 3A 8D 20 |. 1,8,15,"I0":. |
00001750: 31 33 34 30 00 6B 1F 24 04 9F 20 32 2C 38 2C 31 |1340.k.$.. 2,8,1|
00001760: 2C 46 4C 24 3A 8D 20 31 33 34 30 00 80 1F 2E 04 |,FL$:. 1340.....|
00001770: 98 32 2C C7 28 30 29 3B C7 28 38 AC 54 53 29 3B |.2,.(0);.(8.TS);|
00001780: 00 AF 1F 38 04 81 20 49 B2 30 20 A4 20 32 30 34 |...8.. I.0 . 204|
00001790: 37 3A 98 32 2C C7 28 C2 28 43 42 AA 49 29 29 3B |7:.2,.(.(CB.I));|
000017A0: 3A 8D 20 31 33 34 30 3A 82 3A A0 32 3A A0 31 00 |:. 1340:.:.2:.1.|
000017B0: DB 1F 42 04 99 20 C8 28 56 24 2C 36 29 A3 31 38 |..B.. .(V$,6).18|
000017C0: 29 C8 28 42 4C 24 2C 39 29 3A 99 3A 99 20 A3 31 |).(BL$,9):.:. .1|
000017D0: 38 29 C8 28 42 4C 24 2C 31 36 29 00 FE 1F 4C 04 |8).(BL$,16)...L.|
000017E0: 99 20 C8 28 56 24 2C 31 31 29 A3 31 38 29 C8 28 |. .(V$,11).18).(|
000017F0: 42 4C 24 2C 31 38 29 3A 8D 20 31 31 36 30 00 04 |BL$,18):. 1160..|
00001800: 20 56 04 8E 00 27 20 5A 04 8F 20 2A 2A 2A 2A 2A | V...' Z.. *****|
00001810: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001820: 2A 2A 2A 2A 2A 2A 2A 00 4A 20 5B 04 8F 20 2A 20 |*******.J [.. * |
00001830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001840: 20 20 20 20 20 20 20 20 20 2A 00 6D 20 5C 04 8F | *.m \..|
00001850: 20 2A 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 | * INITIALIZE |
00001860: 56 41 52 49 41 42 4C 45 53 20 20 20 2A 00 90 20 |VARIABLES *.. |
00001870: 5D 04 8F 20 2A 20 20 20 20 20 41 4E 44 20 45 4E |].. * AND EN|
00001880: 41 42 4C 45 20 43 55 52 53 4F 52 20 20 20 20 2A |ABLE CURSOR *|
00001890: 00 B3 20 5E 04 8F 20 2A 20 20 20 20 20 20 20 20 |.. ^.. * |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000018B0: 20 20 2A 00 D6 20 5F 04 8F 20 2A 2A 2A 2A 2A 2A | *.. _.. ******|
000018C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000018D0: 2A 2A 2A 2A 2A 2A 00 17 21 60 04 97 35 33 32 38 |******..!`..5328|
000018E0: 31 2C 31 3A 99 20 22 93 05 22 3A 97 35 33 32 38 |1,1:. "..":.5328|
000018F0: 31 2C 36 3A 56 B2 35 33 32 34 38 3A 43 4C B2 31 |1,6:V.53248:CL.1|
00001900: 30 32 34 AA 35 AC 34 30 AA 31 38 3A 44 43 B2 32 |024.5.40.18:DC.2|
00001910: 35 35 3A 43 53 B2 31 00 62 21 6A 04 56 24 B2 22 |55:CS.1.b!j.V$."|
00001920: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001930: 11 11 11 11 11 11 11 11 11 22 3A 42 4C 24 B2 22 |.........":BL$."|
00001940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001960: 20 22 00 98 21 74 04 97 20 32 30 34 30 2C 31 33 | "..!t.. 2040,13|
00001970: 3A 97 20 35 33 32 37 31 2C 30 3A 97 20 35 33 32 |:. 53271,0:. 532|
00001980: 37 37 2C 30 3A 44 45 24 B2 C7 28 32 30 29 3A 43 |77,0:DE$..(20):C|
00001990: 52 24 B2 C7 28 31 33 29 00 C5 21 7E 04 81 20 49 |R$..(13)..!~.. I|
000019A0: B2 30 20 A4 20 37 3A 4D 28 49 29 B2 32 AE 28 37 |.0 . 7:M(I).2.(7|
000019B0: AB 49 29 3A 48 28 49 29 B2 32 35 35 AB 4D 28 49 |.I):H(I).255.M(I|
000019C0: 29 3A 82 3A 8E 00 E8 21 83 04 8F 20 2A 2A 2A 2A |):.:...!... ****|
000019D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019E0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0B 22 84 04 8F 20 2A |********.."... *|
000019F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A00: 20 20 20 20 20 20 20 20 20 20 2A 00 2E 22 85 04 | *.."..|
00001A10: 8F 20 2A 20 20 20 20 20 20 53 43 52 45 45 4E 20 |. * SCREEN |
00001A20: 44 49 53 50 4C 41 59 20 20 20 20 20 20 2A 00 51 |DISPLAY *.Q|
00001A30: 22 86 04 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |"... * |
00001A40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001A50: 2A 00 74 22 87 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*.t"... ********|
00001A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A70: 2A 2A 2A 2A 00 9F 22 88 04 99 20 22 13 1D 1D 1D |****.."... "....|
00001A80: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 |............... |
00001A90: 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 20 22 00 | ........... ".|
00001AA0: CB 22 92 04 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |."... ".........|
00001AB0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 12 20 43 48 41 |......... . CHA|
00001AC0: 52 41 43 54 45 52 20 92 20 20 22 00 F7 22 9C 04 |RACTER . ".."..|
00001AD0: 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |. ".............|
00001AE0: 1D 1D 1D 1D 1D 20 20 12 20 20 20 45 44 49 54 4F |..... . EDITO|
00001AF0: 52 20 20 92 20 20 22 00 1D 23 A6 04 99 20 C8 28 |R . "..#... .(|
00001B00: 56 24 2C 31 33 29 A3 31 31 29 22 A4 A4 A4 A4 A4 |V$,13).11)".....|
00001B10: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 50 23 |............".P#|
00001B20: B0 04 99 20 22 1D 1D AC A2 A2 A2 A2 A2 A2 A2 A2 |... "...........|
00001B30: 12 20 43 48 41 52 41 43 54 45 52 20 53 45 54 22 |. CHARACTER SET"|
00001B40: 43 53 22 9D 20 92 A2 A2 A2 A2 A2 A2 A2 A2 A2 22 |CS". .........."|
00001B50: 00 8B 23 BA 04 81 20 49 B2 31 20 A4 20 39 3A 99 |..#... I.1 . 9:.|
00001B60: 20 22 1D 1D 12 A1 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D | "..............|
00001B70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B80: 1D 1D 1D 1D 1D 1D 1D A1 22 3A 82 00 BD 23 C4 04 |........":...#..|
00001B90: 99 20 22 1D 1D BC 12 A2 A2 A2 A2 A2 A2 A2 A2 A2 |. ".............|
00001BA0: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00001BB0: A2 A2 A2 A2 A2 A2 A2 A2 A2 13 22 3A 8E 00 E0 23 |..........":...#|
00001BC0: C9 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001BD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001BE0: 00 03 24 CA 04 8F 20 2A 20 20 20 20 20 20 20 20 |..$... * |
00001BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C00: 20 20 2A 00 26 24 CB 04 8F 20 2A 20 20 20 20 20 | *.&$... * |
00001C10: 20 20 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 | INPUT ROUTINE |
00001C20: 20 20 20 20 20 2A 00 49 24 CC 04 8F 20 2A 20 20 | *.I$... * |
00001C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C40: 20 20 20 20 20 20 20 20 2A 00 6C 24 CD 04 8F 20 | *.l$... |
00001C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A3 24 CE |************..$.|
00001C70: 04 59 39 B2 32 3A 49 4E 24 B2 22 22 3A 55 43 B2 |.Y9.2:IN$."":UC.|
00001C80: 30 3A 55 42 24 B2 C8 28 42 4C 24 2C 4C 45 29 3A |0:UB$..(BL$,LE):|
00001C90: 8D 20 31 33 33 30 3A 55 42 24 B2 22 20 22 3A 55 |. 1330:UB$." ":U|
00001CA0: 43 B2 33 00 AD 24 D8 04 55 54 B2 54 49 00 C7 24 |C.3..$..UT.TI..$|
00001CB0: E2 04 A1 20 5A 39 24 3A 8B 20 5A 39 24 B2 22 22 |... Z9$:. Z9$.""|
00001CC0: 20 A7 20 31 33 31 30 00 ED 24 EC 04 8B 20 5A 39 | . 1310..$... Z9|
00001CD0: 24 B2 43 52 24 20 A7 20 59 39 B2 32 3A 8D 20 31 |$.CR$ . Y9.2:. 1|
00001CE0: 33 33 30 3A 99 20 22 9D 9D 20 22 3A 8E 00 2C 25 |330:. ".. ":..,%|
00001CF0: F6 04 8B 20 5A 39 24 B2 44 45 24 20 A7 20 91 20 |... Z9$.DE$ . . |
00001D00: AB 28 C3 28 49 4E 24 29 B2 30 29 20 89 20 31 33 |.(.(IN$).0) . 13|
00001D10: 31 30 3A 49 4E 24 B2 C8 28 49 4E 24 2C C3 28 49 |10:IN$..(IN$,.(I|
00001D20: 4E 24 29 AB 31 29 3A 89 31 33 31 30 00 55 25 00 |N$).1):.1310.U%.|
00001D30: 05 8B 20 28 C6 28 5A 39 24 29 AF 31 32 37 29 B3 |.. (.(Z9$).127).|
00001D40: 33 32 20 B0 20 5A 39 24 B2 C7 28 33 34 29 20 A7 |32 . Z9$..(34) .|
00001D50: 20 31 33 31 30 00 6C 25 0A 05 8B 20 4C 45 B2 C3 | 1310.l%... LE..|
00001D60: 28 49 4E 24 29 20 A7 20 31 33 31 30 00 7C 25 14 |(IN$) . 1310.|%.|
00001D70: 05 49 4E 24 B2 49 4E 24 AA 5A 39 24 00 99 25 1E |.IN$.IN$.Z9$..%.|
00001D80: 05 8D 20 31 33 33 30 3A 8B 20 54 49 AB 55 54 B3 |.. 1330:. TI.UT.|
00001D90: 31 30 20 A7 20 31 32 35 30 00 AC 25 28 05 59 39 |10 . 1250..%(.Y9|
00001DA0: B2 33 AB 59 39 3A 89 20 31 32 34 30 00 E6 25 32 |.3.Y9:. 1240..%2|
00001DB0: 05 99 20 C8 28 56 24 2C 4C 49 29 A3 43 4F 4C AB |.. .(V$,LI).COL.|
00001DC0: 31 29 CA 28 4D 53 47 24 2C 59 39 29 55 42 24 49 |1).(MSG$,Y9)UB$I|
00001DD0: 4E 24 CA 28 22 12 20 92 22 2C 59 39 2C 55 43 29 |N$.(". .",Y9,UC)|
00001DE0: 22 20 22 3B 3A 8E 00 09 26 37 05 8F 20 2A 2A 2A |" ";:...&7.. ***|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 26 38 05 8F 20 |*********.,&8.. |
00001E10: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00001E20: 20 20 20 20 20 20 20 20 20 20 20 2A 00 4F 26 39 | *.O&9|
00001E30: 05 8F 20 2A 20 20 20 43 48 45 43 4B 20 46 4F 52 |.. * CHECK FOR|
00001E40: 20 44 49 53 4B 20 45 52 52 4F 52 53 20 20 2A 00 | DISK ERRORS *.|
00001E50: 72 26 3A 05 8F 20 2A 20 20 20 20 20 20 20 20 20 |r&:.. * |
00001E60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E70: 20 2A 00 95 26 3B 05 8F 20 2A 2A 2A 2A 2A 2A 2A | *..&;.. *******|
00001E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E90: 2A 2A 2A 2A 2A 00 A8 26 3C 05 84 31 2C 41 24 2C |*****..&<..1,A$,|
00001EA0: 42 24 2C 43 24 2C 44 24 00 BA 26 46 05 8B 20 C5 |B$,C$,D$..&F.. .|
00001EB0: 28 41 24 29 B2 30 20 A7 20 8E 00 D6 26 50 05 99 |(A$).0 . ...&P..|
00001EC0: 22 93 11 11 1D 12 44 49 53 4B 20 45 52 52 4F 52 |".....DISK ERROR|
00001ED0: 3A 92 20 22 42 24 00 DD 26 5A 05 A0 32 00 E3 26 |:. "B$..&Z..2..&|
00001EE0: 64 05 80 00 00 00 |d..... |
..-.V.. ********************************
*****.Y.W.. *
*...X.. * CREATED FOR
*...Y.. *
*...Z.. * THE COMMODORE
EDUCATIONAL GROUP *...[.. *
*.5.\.. *
BY *.A.].. *
*...^..
* GARRY G. KIZIAK *...
_.. *
*...`.. * COPYRIGHT 1982
*...A.. *
*.=.B.. ************************
*************.C.C.:.V.D.. V.0 . . 1120.P
.N.. H(V$,7).18)H(BL$,9)...X..:. .18)H(B
L$,16)...... 610:. 1160:. 620:. 860:. 65
0.J.... I.0 . 7:P.B(L.I):. Z.I,P:.......
570:X.0:Y.0:. 590... .P.1148.X.Y.40:Q.B
(P):R.Q.....R.(.R.128).(.128.R).!.... P,
R.G.... I.1 . 30:. A$:. A$."" . .:. 170.
Q.H.. P,Q.P.R.. A$."." . X.(X.1).7:. 160
...... A$."." . X.(X.1).7:. 160...... A$
."." . Y.(Y.1).7:. 160.M.... A$."." . Y.
(Y.1).7:. 160...... A$.DE$ . X.(X.1).7:P
.1148.X.Y.40:. P,46:T.Z.Y.$.... A$.DE$ .
. T,B(T).H(X):. 160.^.... A$." " . . P,
46:T.Z.Y:. T,B(T).H(X):X.(X.1).7:. 160..
.... A$."." . . P,81:T.Z.Y:. T,B(T).M(X)
:X.(X.1).7:. 160.A.".. A$."." . . 620:.
640:X.0:Y.0:. 160...,.. A$."Q" . . 620:.
640:DC.32:. 590:DC.255:. 650:. 140...6.
. A$."." . X.0:Y.0:. 160.;.@.. A$.CR$ .
X.0:Y.(Y.1).7:. 160.S.J.. A$."." . . I.1
. 7:. Z.I.1,B(Z.I):.:. Z.7,0:. 570...T.
. A$."." . 160...^.. A$."." . . I.7 . 1
. .1:. Z.I,B(Z.I.1):.:. Z,0.V.H.. A$."."
. . 570:. 160...R.. A$."." . . I.0 . 7:
. Z.I,(B(Z.I).2).255:..!.|.. A$."." . .
570:. 160.M.... A$."." . . I.0 . 7:. Z.I
,(B(Z.I).2):..H.... A$."." . . 570:. 160
...... A$."." . . I.0 . 7:R.B(Z.I):R.(.R
.255).(.255.R).C.... A$."." . . Z.I,R:.:
. 570:. 160...... A$."." . BG.(BG.1).15:
. 53281,BG:. 160...... A$."." . BR.(BR.1
).15:. 53280,BR:. 160.>.B.. A$."\" . . 5
80:. 570:. 160.R.L.. A$.."." . 160.U.P..
****************************...Q.. *
*...R.. * ASSIGN
CHARACTER BEING *...S.. * EDITED T
O A KEY *...T.. *
*.$.U.. ************************
****.W.V.. "..........................
ASSIGN TO "...... ".................
WHICH "...... "..............
... CHARACTER "...... 660.Z.... I.
0 . 7:. L.I,B(Z.I):.:. 540...... 620:. L
..Z . . 640...... 650:. 140.6.... ".....
..................... ".[
.&.. "................. "...0.
. "................. ":.
...5.. ****************************.N.6.
. * *...7.. *
PRINT CHARACTER ON GRID *...8.. *
*.7.9.. *************
***************.^.:.. I.0 . 7:. 925.I,B(
Z.I):.:. 933:....?.. *******************
*********...@.. *
*.G.A.. * ROTATE EDIT CHARACTER *.
..B.. * *...C..
****************************.C.D.HI..(Z
.256):LO.Z.256.HI:. 251,LO:. 252,HI:. 89
6:..F.H.. ****************************..
.I.. * *...J..
* PRINT EDIT CHARACTER *.O.K.. *
IN ALL 16 COLORS *...L.. *
*...M.. ***************
*************.=.N.J.0:. I.0 . 15:K.I.7:.
K.0 . J.J.80.F.X.. CL.2.K.J.54272,I:. C
L.2.K.J,DC:.:....].. *******************
*********...^.. *
*.O._.. * CHANGE CHARACTER SET *.
..`.. * *...A..
****************************.@.B.CB.CS.
2048:Z.CB.255.8:. V.24,17.2.CS:..C.G.. *
***************************...H.. *
*...I.. * PR
INT GRID *.L.J.. *
*...K.. *********************
*******.).L.. "..................":. I.1
. 8:. "..............":..D.V.. ".......
.........":..G.{.. *********************
*******...|.. *
*...}.. * CLEAR EDIT CHARACTER *.P.
~.. * *..... *
***************************...... I.0 .
7:. Z.I,0:.:..0.... ********************
********.S.... *
*.V.... * SELECT A CHARACTER *..
.... * FOR EDITING *......
* *...... *****
***********************...... V.21,0:. V
.16,0:Z1.0:. V,52:. V.1,166.....R.0.&...
R.1.R:. V.21,R.L.... I.1 . 20:. A$:. A$.
"" . .:. 670...... V.21,1:A.E(A$):. A.0
. A.8.CS.A:.610:.1570,CS.176:. 670......
A$."." . BG.(BG.1).15:. 53281,BG:. 670.
..F.. A$."." . BR.(BR.1).15:. 53280,BR:.
670...P.. A$."." . TT.(TT.1).3:. 860:.
670.+.Z.. A$."Q" . . V.21,0:.".";:..C...
. CS.2 . CS.3 . 670._.... A$."." . Z1.(Z
1.1).63.{.... A$."." . Z1.(Z1.1).63.....
. A$."." . Z1.(Z1.16).63...... A$."." .
Z1.(Z1.16).63...... A$.CR$ . . 540:DC.32
:. 590:DC.255:P.Z1.TT.64:L.CB.P.8:.... .
. A$."." . . V.21,0:. 880:. 670.;.*.. A$
."S" . . V.21,0:. 970:. 670.M.4.Y1..(Z1.
16):X1.Z1.Y1.16:Y1.166.16.Y1:. V.21,0...
>.. X1.13 . X1.52.X1.16:FL.0:. 850...H..
X1.12 . X1..12.(X1.12).16:FL.1...R.. V.
16,FL:. V,X1:. V.1,Y1:. V.21,1:. 670...\
.J.1548:.I.0.63:K.I.15:. K.0 . J.J.80.%.
F.. 2.K.J,I.TT.64:.:..H.K.. ************
****************.K.L.. *
*...M.. * LOAD A CHARACTER S
ET *...N.. *
*.T.O.. ****************************...P
.. "..................................".
+.Z.. "................... LOAD
.".W.... "................... CHARACTER
SET .".....LI.9:COL.18:LE.16:. H(V$,7).
18)"FILENAME:".....MSG$."..":. 1230:FL$.
"0:".IN$.Y.... IN$."" . . 1160:. H(V$,7)
.18)" ":....... 1,8,15,"I0".....
. 2,8,0,FL$:. 1340: 2: 1...... FL$,8,1.9
.E.. ****************************.\.F..
* *..G.. * S
AVE A CHARACTER SET *...H.. *
*.E.I.. ***************
*************...J.. "...................
..............."...T.. "................
... SAVE .".H.... "............
....... CHARACTER SET .".W...LI.8:COL.18
:LE.16:. H(V$,6).18)"FILENAME:".....MSG$
."..":. 1230:FL$."0:".IN$.",PRG,WRITE".W
.... IN$."" . . 1160:. H(V$,7).18)"
":......LI.11:COL.19:LE.1:MSG$.".SAV
E TO SET?.":. 1230:TS.E(IN$).;.... TS.1
. TS.2 . TS.3 . TS.7 . 1030.T.... 1,8,15
,"I0":. 1340.K.$.. 2,8,1,FL$:. 1340.....
.2,G(0);G(8.TS);...8.. I.0 . 2047:.2,G(B
(CB.I));:. 1340:.: 2: 1...B.. H(V$,6).18
)H(BL$,9):.:. .18)H(BL$,16)...L.. H(V$,1
1).18)H(BL$,18):. 1160.. V...' Z.. *****
***********************.J [.. *
*.M \.. * INITIALIZE
VARIABLES *.. ].. * AND ENABLE CUR
SOR *.. ^.. *
*.V _.. ****************************..
!`..53281,1:. "..":.53281,6:V.53248:CL.1
024.5.40.18:DC.255:CS.1.B!J.V$."........
.................":BL$."
"..!T.. 2040,13:. 53271
,0:. 53277,0:DE$.G(20):CR$.G(13).E!~.. I
.0 . 7:M(I).2.(7.I):H(I).255.M(I):.:...!
... ****************************.."... *
*.."... *
SCREEN DISPLAY *.Q"... *
*.T"... ****************
************.."... "...................
........... ".K"... ".................
. . CHARACTER . ".."... ".............
..... . EDITOR . "..#... H(V$,13).1
1)".................".P#... "...........
. CHARACTER SET"CS". .........."..#... I
.1 . 9:. "..............................
........":...#D.. ".....................
..................":...#I.. ************
****************..$J.. *
*.&$K.. * INPUT ROUTINE
*.I$L.. *
*.L$M.. ****************************..$N
.Y9.2:IN$."":UC.0:UB$.H(BL$,LE):. 1330:U
B$." ":UC.3..$X.UT.TI.G$... Z9$:. Z9$.""
. 1310..$... Z9$.CR$ . Y9.2:. 1330:. ".
. ":..,%... Z9$.DE$ . . .(C(IN$).0) . 13
10:IN$.H(IN$,C(IN$).1):.1310.U%... (F(Z9
$).127).32 . Z9$.G(34) . 1310.L%... LE.C
(IN$) . 1310.|%..IN$.IN$.Z9$..%... 1330:
. TI.UT.10 . 1250..%(.Y9.3.Y9:. 1240..%2
.. H(V$,LI).COL.1)J(MSG$,Y9)UB$IN$J(". .
",Y9,UC)" ";:...&7.. *******************
*********.,&8.. *
*.O&9.. * CHECK FOR DISK ERRORS *.
R&:.. * *..&;..
****************************..&<..1,A$,
B$,C$,D$..&F.. E(A$).0 . ..V&P..".....DI
SK ERROR:. "B$..&Z. 2..&D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL