CHAR EDITOR
FILE INFORMATION
FILENAME(S): CHAR EDITOR
FILE TYPE(S): PRG
FILE SIZE: 7.7K
FIRST SEEN: 2025-11-30 21:11:19
APPEARS ON: 2 disk(s)
FILE HASH
f1b08cae9015cf015d0e7f86c6eb1e90ec6b3cc78fd0d29b4e51b2bc4ccb31df
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 13 MAART 83 15 | CHAR EDITOR | PRG | DuncanTwain | 10 | 9 | DOWNLOAD FILE |
| C64 HULP 10 2 | CHAR EDITOR | PRG | DuncanTwain | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 04 2D 04 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 04 |*************.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 04 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 04 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 04 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 05 |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 05 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 05 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 05 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 05 |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 05 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 06 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 06 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 06 |*************.C.|
00000240: 63 00 3A 00 56 06 64 00 8B 20 56 B2 30 20 A7 20 |c.:.V.d.. V.0 . |
00000250: 8D 20 31 31 32 30 00 70 06 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 06 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 06 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 06 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 06 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 06 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 07 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 07 B4 00 97 20 50 2C |.128.R).!.... P,|
00000320: 52 00 47 07 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 07 C8 00 97 20 50 2C |.:. 170.Q.... P,|
00000350: 51 00 70 07 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 07 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 07 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: 07 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 08 |(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 08 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 08 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: 08 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 08 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 08 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 09 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 09 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 09 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 09 54 01 8B 20 41 24 B2 22 85 22 |570...T.. A$."."|
00000580: 20 A7 20 31 36 30 00 BB 09 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 09 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 0A 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 0A 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 0A 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 0A |,(.(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 0A 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: 0A 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 0A 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 0B 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 0B |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: 0B CC 01 8B 20 41 24 B3 B1 22 01 22 20 A7 20 31 |.... A$.."." . 1|
00000750: 36 30 00 75 0B 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 0B 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 0B 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 0B 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: 0C 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 0C 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 0C 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 0C 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 0C 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 0C |HARACTER "...|
000008B0: F4 01 8D 20 36 36 30 00 DA 0C 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 0C 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 0D 12 02 8D 20 36 35 30 3A 89 20 |640...... 650:. |
00000900: 31 34 30 00 36 0D 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 0D 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 0D 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 0D 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 0D 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: 0D 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 0E 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 0E 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 0E 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: 0E 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 0E 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 0E 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 0E 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 0F 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 0F |*************.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 0F 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 0F 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 0F 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 0F 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 0F 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 10 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 10 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 10 | 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 10 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 10 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 10 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 10 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 11 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 11 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 11 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 11 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 11 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 11 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 11 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 12 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 12 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 12 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 12 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 12 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 12 |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 12 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 13 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 13 |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 13 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 13 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 13 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 13 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 13 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 14 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 14 94 02 |2:. V.1,166.....|
00001010: 52 B2 30 00 26 14 9E 02 52 B2 31 AB 52 3A 97 20 |R.0.&...R.1.R:. |
00001020: 56 AA 32 31 2C 52 00 4C 14 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 14 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 14 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 14 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 15 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 15 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 15 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 15 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 15 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 15 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 15 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 15 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 16 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 16 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 16 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 16 |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 16 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 16 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 17 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 17 | 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 17 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 17 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 17 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: 17 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 17 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 17 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 18 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 18 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 18 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 18 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 18 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 18 AC 03 9F 20 | ":....... |
000014E0: 31 2C 38 2C 31 35 2C 22 49 30 22 00 08 19 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 19 C0 03 93 20 46 |40:.2:.1...... F|
00001510: 4C 24 2C 38 2C 31 00 39 19 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 19 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 19 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 19 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 19 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 19 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 1A 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 1A 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 1A 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 1A 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 1A 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 1B 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 1B 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 1B 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 1B 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 1B 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 1B 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 1B 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 1B 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: 1C 56 04 8E 00 27 1C 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 1C 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 1C 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 1C |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 1C 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 1C 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 05 1D 60 04 99 20 22 93 05 |******...`.. "..|
000018E0: 22 3A 56 B2 35 33 32 34 38 3A 43 4C B2 31 30 32 |":V.53248:CL.102|
000018F0: 34 AA 35 AC 34 30 AA 31 38 3A 44 43 B2 32 35 35 |4.5.40.18:DC.255|
00001900: 3A 43 53 B2 31 00 50 1D 6A 04 56 24 B2 22 13 11 |:CS.1.P.j.V$."..|
00001910: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001920: 11 11 11 11 11 11 11 22 3A 42 4C 24 B2 22 20 20 |.......":BL$." |
00001930: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001940: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00001950: 00 86 1D 74 04 97 20 32 30 34 30 2C 31 33 3A 97 |...t.. 2040,13:.|
00001960: 20 35 33 32 37 31 2C 30 3A 97 20 35 33 32 37 37 | 53271,0:. 53277|
00001970: 2C 30 3A 44 45 24 B2 C7 28 32 30 29 3A 43 52 24 |,0:DE$..(20):CR$|
00001980: B2 C7 28 31 33 29 00 B3 1D 7E 04 81 20 49 B2 30 |..(13)...~.. I.0|
00001990: 20 A4 20 37 3A 4D 28 49 29 B2 32 AE 28 37 AB 49 | . 7:M(I).2.(7.I|
000019A0: 29 3A 48 28 49 29 B2 32 35 35 AB 4D 28 49 29 3A |):H(I).255.M(I):|
000019B0: 82 3A 8E 00 D6 1D 83 04 8F 20 2A 2A 2A 2A 2A 2A |.:....... ******|
000019C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000019D0: 2A 2A 2A 2A 2A 2A 00 F9 1D 84 04 8F 20 2A 20 20 |******...... * |
000019E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000019F0: 20 20 20 20 20 20 20 20 2A 00 1C 1E 85 04 8F 20 | *...... |
00001A00: 2A 20 20 20 20 20 20 53 43 52 45 45 4E 20 44 49 |* SCREEN DI|
00001A10: 53 50 4C 41 59 20 20 20 20 20 20 2A 00 3F 1E 86 |SPLAY *.?..|
00001A20: 04 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * |
00001A30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 | *.|
00001A40: 62 1E 87 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |b.... **********|
00001A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A60: 2A 2A 00 8D 1E 88 04 99 20 22 13 1D 1D 1D 1D 1D |**...... "......|
00001A70: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 20 A4 |............. .|
00001A80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 20 22 00 B9 1E |.......... "...|
00001A90: 92 04 99 20 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |... "...........|
00001AA0: 1D 1D 1D 1D 1D 1D 1D 20 20 12 20 43 48 41 52 41 |....... . CHARA|
00001AB0: 43 54 45 52 20 92 20 20 22 00 E5 1E 9C 04 99 20 |CTER . "...... |
00001AC0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |"...............|
00001AD0: 1D 1D 1D 20 20 12 20 20 20 45 44 49 54 4F 52 20 |... . EDITOR |
00001AE0: 20 92 20 20 22 00 0B 1F A6 04 99 20 C8 28 56 24 | . "...... .(V$|
00001AF0: 2C 31 33 29 A3 31 31 29 22 A4 A4 A4 A4 A4 A4 A4 |,13).11)".......|
00001B00: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 22 00 3E 1F B0 04 |..........".>...|
00001B10: 99 20 22 1D 1D AC A2 A2 A2 A2 A2 A2 A2 A2 12 20 |. "............ |
00001B20: 43 48 41 52 41 43 54 45 52 20 53 45 54 22 43 53 |CHARACTER SET"CS|
00001B30: 22 9D 20 92 A2 A2 A2 A2 A2 A2 A2 A2 A2 22 00 79 |". ..........".y|
00001B40: 1F BA 04 81 20 49 B2 31 20 A4 20 39 3A 99 20 22 |.... I.1 . 9:. "|
00001B50: 1D 1D 12 A1 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B60: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00001B70: 1D 1D 1D 1D 1D A1 22 3A 82 00 AB 1F C4 04 99 20 |......":....... |
00001B80: 22 1D 1D BC 12 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |"...............|
00001B90: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00001BA0: A2 A2 A2 A2 A2 A2 A2 13 22 3A 8E 00 CE 1F C9 04 |........":......|
00001BB0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00001BC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 |**************..|
00001BD0: 1F CA 04 8F 20 2A 20 20 20 20 20 20 20 20 20 20 |.... * |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BF0: 2A 00 14 20 CB 04 8F 20 2A 20 20 20 20 20 20 20 |*.. ... * |
00001C00: 49 4E 50 55 54 20 52 4F 55 54 49 4E 45 20 20 20 |INPUT ROUTINE |
00001C10: 20 20 20 2A 00 37 20 CC 04 8F 20 2A 20 20 20 20 | *.7 ... * |
00001C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C30: 20 20 20 20 20 20 2A 00 5A 20 CD 04 8F 20 2A 2A | *.Z ... **|
00001C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001C50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 20 CE 04 59 |**********.. ..Y|
00001C60: 39 B2 32 3A 49 4E 24 B2 22 22 3A 55 43 B2 30 3A |9.2:IN$."":UC.0:|
00001C70: 55 42 24 B2 C8 28 42 4C 24 2C 4C 45 29 3A 8D 20 |UB$..(BL$,LE):. |
00001C80: 31 33 33 30 3A 55 42 24 B2 22 20 22 3A 55 43 B2 |1330:UB$." ":UC.|
00001C90: 33 00 9B 20 D8 04 55 54 B2 54 49 00 B5 20 E2 04 |3.. ..UT.TI.. ..|
00001CA0: A1 20 5A 39 24 3A 8B 20 5A 39 24 B2 22 22 20 A7 |. Z9$:. Z9$."" .|
00001CB0: 20 31 33 31 30 00 DB 20 EC 04 8B 20 5A 39 24 B2 | 1310.. ... Z9$.|
00001CC0: 43 52 24 20 A7 20 59 39 B2 32 3A 8D 20 31 33 33 |CR$ . Y9.2:. 133|
00001CD0: 30 3A 99 20 22 9D 9D 20 22 3A 8E 00 1A 21 F6 04 |0:. ".. ":...!..|
00001CE0: 8B 20 5A 39 24 B2 44 45 24 20 A7 20 91 20 AB 28 |. Z9$.DE$ . . .(|
00001CF0: C3 28 49 4E 24 29 B2 30 29 20 89 20 31 33 31 30 |.(IN$).0) . 1310|
00001D00: 3A 49 4E 24 B2 C8 28 49 4E 24 2C C3 28 49 4E 24 |:IN$..(IN$,.(IN$|
00001D10: 29 AB 31 29 3A 89 31 33 31 30 00 43 21 00 05 8B |).1):.1310.C!...|
00001D20: 20 28 C6 28 5A 39 24 29 AF 31 32 37 29 B3 33 32 | (.(Z9$).127).32|
00001D30: 20 B0 20 5A 39 24 B2 C7 28 33 34 29 20 A7 20 31 | . Z9$..(34) . 1|
00001D40: 33 31 30 00 5A 21 0A 05 8B 20 4C 45 B2 C3 28 49 |310.Z!... LE..(I|
00001D50: 4E 24 29 20 A7 20 31 33 31 30 00 6A 21 14 05 49 |N$) . 1310.j!..I|
00001D60: 4E 24 B2 49 4E 24 AA 5A 39 24 00 87 21 1E 05 8D |N$.IN$.Z9$..!...|
00001D70: 20 31 33 33 30 3A 8B 20 54 49 AB 55 54 B3 31 30 | 1330:. TI.UT.10|
00001D80: 20 A7 20 31 32 35 30 00 9A 21 28 05 59 39 B2 33 | . 1250..!(.Y9.3|
00001D90: AB 59 39 3A 89 20 31 32 34 30 00 D4 21 32 05 99 |.Y9:. 1240..!2..|
00001DA0: 20 C8 28 56 24 2C 4C 49 29 A3 43 4F 4C AB 31 29 | .(V$,LI).COL.1)|
00001DB0: CA 28 4D 53 47 24 2C 59 39 29 55 42 24 49 4E 24 |.(MSG$,Y9)UB$IN$|
00001DC0: CA 28 22 12 20 92 22 2C 59 39 2C 55 43 29 22 20 |.(". .",Y9,UC)" |
00001DD0: 22 3B 3A 8E 00 F7 21 37 05 8F 20 2A 2A 2A 2A 2A |";:...!7.. *****|
00001DE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001DF0: 2A 2A 2A 2A 2A 2A 2A 00 1A 22 38 05 8F 20 2A 20 |*******.."8.. * |
00001E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001E10: 20 20 20 20 20 20 20 20 20 2A 00 3D 22 39 05 8F | *.="9..|
00001E20: 20 2A 20 20 20 43 48 45 43 4B 20 46 4F 52 20 44 | * CHECK FOR D|
00001E30: 49 53 4B 20 45 52 52 4F 52 53 20 20 2A 00 60 22 |ISK ERRORS *.`"|
00001E40: 3A 05 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |:.. * |
00001E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00001E60: 00 83 22 3B 05 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..";.. *********|
00001E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001E80: 2A 2A 2A 00 96 22 3C 05 84 31 2C 41 24 2C 42 24 |***.."<..1,A$,B$|
00001E90: 2C 43 24 2C 44 24 00 A8 22 46 05 8B 20 C5 28 41 |,C$,D$.."F.. .(A|
00001EA0: 24 29 B2 30 20 A7 20 8E 00 C4 22 50 05 99 22 93 |$).0 . ..."P..".|
00001EB0: 11 11 1D 12 44 49 53 4B 20 45 52 52 4F 52 3A 92 |....DISK ERROR:.|
00001EC0: 20 22 42 24 00 CB 22 5A 05 A0 32 00 D1 22 64 05 | "B$.."Z..2.."d.|
00001ED0: 80 00 00 00 |.... |
..-.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._.. ****************************..
.`.. "..":V.53248:CL.1024.5.40.18:DC.255
:CS.1.P.J.V$."........................."
:BL$." "
...T.. 2040,13:. 53271,0:. 53277,0:DE$.G
(20):CR$.G(13)...~.. I.0 . 7:M(I).2.(7.I
):H(I).255.M(I):.:..V.... **************
**************...... *
*...... * SCREEN DISPLAY
*.?.... * *.
B.... ****************************......
"................... ........... "...
... ".................. . CHARACTER .
"...... ".................. . EDITOR
. "...... H(V$,13).11)"...............
..".>.... "............ CHARACTER SET"CS
". ..........".Y.... I.1 . 9:. "........
..............................":....D..
".......................................
":..N.I.. ****************************..
.J.. * *.. K..
* INPUT ROUTINE *.7 L.. *
*.Z M.. **********
******************.. N.Y9.2:IN$."":UC.0:
UB$.H(BL$,LE):. 1330:UB$." ":UC.3.. X.UT
.TI.. ... Z9$:. Z9$."" . 1310.. ... Z9$.
CR$ . Y9.2:. 1330:. ".. ":...!... Z9$.DE
$ . . .(C(IN$).0) . 1310:IN$.H(IN$,C(IN$
).1):.1310.C!... (F(Z9$).127).32 . Z9$.G
(34) . 1310.Z!... LE.C(IN$) . 1310.J!..I
N$.IN$.Z9$..!... 1330:. TI.UT.10 . 1250.
.!(.Y9.3.Y9:. 1240.T!2.. H(V$,LI).COL.1)
J(MSG$,Y9)UB$IN$J(". .",Y9,UC)" ";:...!7
.. ****************************.."8.. *
*.="9.. * CHE
CK FOR DISK ERRORS *.`":.. *
*..";.. *****************
***********.."<..1,A$,B$,C$,D$.."F.. E(A
$).0 . ..D"P..".....DISK ERROR:. "B$.K"Z
. 2.Q"D.....
> CLICK IMAGE PREVIEW FOR FULL MODAL