CBM EMULATOR
FILE INFORMATION
FILENAME(S): CBM EMULATOR
FILE TYPE(S): PRG
FILE SIZE: 5.3K
FIRST SEEN: 2025-11-30 19:47:27
APPEARS ON: 1 disk(s)
FILE HASH
1439b7caede76fa01557c53dd4534c0c3fd69c7d169088a61df9c55e0cc1990b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HJ LPEDISK A4 1 | CBM EMULATOR | PRG | Curtcool, Frank | 17 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 40 49 40 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |.@I@... ********|
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 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 91 40 0F 00 8F 20 |*********..@... |
00000050: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000090: 2A 00 D9 40 14 00 8F 20 2A 20 20 20 20 20 54 45 |*..@... * TE|
000000A0: 52 4D 49 4E 41 4C 20 45 4D 55 4C 41 54 4F 52 20 |RMINAL EMULATOR |
000000B0: 46 4F 52 20 56 49 43 2D 32 30 20 41 4E 44 20 43 |FOR VIC-20 AND C|
000000C0: 4F 4D 4D 4F 44 4F 52 45 20 36 34 20 20 20 20 20 |OMMODORE 64 |
000000D0: 20 20 20 20 20 20 20 20 2A 00 21 41 19 00 8F 20 | *.!A... |
000000E0: 2A 20 20 20 20 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 20 20 20 20 20 20 20 20 | |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 2A 00 69 41 1E 00 8F 20 2A 20 20 20 20 20 41 55 |*.iA... * AU|
00000130: 54 48 4F 52 3A 20 20 4A 4F 48 4E 20 52 55 53 53 |THOR: JOHN RUSS|
00000140: 4F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |O |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000160: 20 20 20 20 20 20 20 20 2A 00 B1 41 23 00 8F 20 | *..A#.. |
00000170: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000190: 20 20 20 20 20 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: 2A 00 F9 41 28 00 8F 20 2A 20 20 20 20 20 44 41 |*..A(.. * DA|
000001C0: 54 45 3A 20 20 20 20 4A 41 4E 55 41 52 59 2C 31 |TE: JANUARY,1|
000001D0: 39 38 33 20 20 20 20 20 20 20 20 20 20 20 20 20 |983 |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 20 20 20 20 20 20 20 2A 00 41 42 2D 00 8F 20 | *.AB-.. |
00000200: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4A | J|
00000220: 4F 41 4B 49 4D 20 45 52 49 4B 53 53 4F 4E 20 38 |OAKIM ERIKSSON 8|
00000230: 34 2D 30 36 2D 31 36 20 20 20 20 20 20 20 20 20 |4-06-16 |
00000240: 2A 00 89 42 32 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*..B2.. ********|
00000250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000270: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8F 42 37 00 8F 00 |*********..B7...|
00000290: 95 42 3C 00 8F 00 DD 42 50 00 8F 20 2A 2A 2A 2A |.B<....BP.. ****|
000002A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 25 43 |*************.%C|
000002E0: 55 00 8F 20 2A 20 20 20 4F 50 45 4E 20 37 20 42 |U.. * OPEN 7 B|
000002F0: 49 54 20 46 55 4C 4C 20 44 55 50 4C 45 58 20 52 |IT FULL DUPLEX R|
00000300: 53 32 33 32 20 43 48 41 4E 4E 45 4C 20 41 4E 44 |S232 CHANNEL AND|
00000310: 20 44 49 4D 45 4E 53 49 4F 4E 20 41 52 52 41 59 | DIMENSION ARRAY|
00000320: 53 20 20 20 2A 00 6D 43 5A 00 8F 20 2A 2A 2A 2A |S *.mCZ.. ****|
00000330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 73 43 |*************.sC|
00000370: 5F 00 8F 00 79 43 64 00 8F 00 90 43 6E 00 88 20 |_...yCd....Cn.. |
00000380: 42 41 55 44 24 20 20 20 20 B2 20 C7 28 33 38 29 |BAUD$ . .(38)|
00000390: 00 A8 43 73 00 88 20 44 55 50 4C 45 58 24 20 20 |..Cs.. DUPLEX$ |
000003A0: B2 20 C7 28 31 36 30 29 00 C4 43 78 00 9F 20 35 |. .(160)..Cx.. 5|
000003B0: 2C 32 2C 33 2C 42 41 55 44 24 20 AA 20 44 55 50 |,2,3,BAUD$ . DUP|
000003C0: 4C 45 58 24 00 DB 43 82 00 86 20 52 24 28 31 32 |LEX$..C... R$(12|
000003D0: 37 29 2C 20 53 24 28 32 35 35 29 00 22 44 8C 00 |7), S$(255)."D..|
000003E0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000003F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000410: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000420: 2A 2A 00 69 44 96 00 8F 20 2A 20 20 20 20 20 20 |**.iD... * |
00000430: 20 20 20 49 4E 49 54 49 41 4C 49 5A 45 20 56 41 | INITIALIZE VA|
00000440: 52 49 41 42 4C 45 53 20 41 4E 44 20 44 45 46 49 |RIABLES AND DEFI|
00000450: 4E 45 20 43 4F 4E 53 54 41 4E 54 53 20 20 20 20 |NE CONSTANTS |
00000460: 20 20 20 20 20 20 20 20 2A 00 B0 44 A0 00 8F 20 | *..D... |
00000470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000490: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000004B0: 00 C9 44 AA 00 88 20 51 55 4F 54 45 24 20 20 20 |..D... QUOTE$ |
000004C0: 20 20 B2 20 C7 28 33 34 29 00 E3 44 AF 00 88 20 | . .(34)..D... |
000004D0: 42 41 43 4B 53 50 41 43 45 24 20 B2 20 C7 28 31 |BACKSPACE$ . .(1|
000004E0: 35 37 29 00 07 45 B4 00 88 20 45 52 41 53 45 24 |57)..E... ERASE$|
000004F0: 20 20 20 20 20 B2 20 22 20 22 20 AA 20 42 41 43 | . " " . BAC|
00000500: 4B 53 50 41 43 45 24 00 2E 45 BE 00 88 20 44 41 |KSPACE$..E... DA|
00000510: 52 4B 24 20 20 20 20 20 20 B2 20 C7 28 31 36 32 |RK$ . .(162|
00000520: 29 20 AA 20 42 41 43 4B 53 50 41 43 45 24 00 47 |) . BACKSPACE$.G|
00000530: 45 C8 00 88 20 43 55 52 53 52 24 20 20 20 20 20 |E... CURSR$ |
00000540: B2 20 44 41 52 4B 24 00 63 45 CD 00 88 20 54 49 |. DARK$.cE... TI|
00000550: 4D 45 24 20 20 20 20 20 20 B2 20 22 30 30 30 30 |ME$ . "0000|
00000560: 30 30 22 00 79 45 D2 00 88 20 43 41 50 25 20 20 |00".yE... CAP% |
00000570: 20 20 20 20 20 B2 20 33 32 00 A1 45 DC 00 88 20 | . 32..E... |
00000580: 4C 47 49 4E 24 20 20 20 20 20 20 B2 20 22 59 4F |LGIN$ . "YO|
00000590: 55 52 20 4C 4F 47 49 4E 20 4D 45 53 53 41 47 45 |UR LOGIN MESSAGE|
000005A0: 22 00 B3 45 E1 00 81 20 4B 20 B2 20 33 32 20 A4 |"..E... K . 32 .|
000005B0: 20 36 34 00 C6 45 E6 00 88 20 53 24 28 4B 29 20 | 64..E... S$(K) |
000005C0: B2 20 C7 28 4B 29 00 D9 45 EB 00 88 20 52 24 28 |. .(K)..E... R$(|
000005D0: 4B 29 20 B2 20 C7 28 4B 29 00 DF 45 F0 00 82 00 |K) . .(K)..E....|
000005E0: F1 45 F5 00 81 20 4B 20 B2 20 36 35 20 A4 20 39 |.E... K . 65 . 9|
000005F0: 30 00 10 46 FA 00 88 20 53 24 28 4B 29 20 20 20 |0..F... S$(K) |
00000600: 20 20 20 B2 20 C7 28 4B 20 AA 20 43 41 50 25 29 | . .(K . CAP%)|
00000610: 00 2E 46 FF 00 88 20 52 24 28 4B 29 20 20 20 20 |..F... R$(K) |
00000620: 20 20 B2 20 C7 28 4B 20 AA 20 31 32 38 29 00 46 | . .(K . 128).F|
00000630: 46 04 01 88 20 53 24 28 4B 20 AA 20 31 32 38 29 |F... S$(K . 128)|
00000640: B2 20 C7 28 4B 29 00 5E 46 09 01 88 20 52 24 28 |. .(K).^F... R$(|
00000650: 4B 20 AA 20 33 32 29 20 B2 20 C7 28 4B 29 00 64 |K . 32) . .(K).d|
00000660: 46 0E 01 82 00 76 46 13 01 81 20 4B 20 B2 20 39 |F....vF... K . 9|
00000670: 31 20 A4 20 39 35 00 89 46 18 01 88 20 53 24 28 |1 . 95..F... S$(|
00000680: 4B 29 20 B2 20 C7 28 4B 29 00 9C 46 1D 01 88 20 |K) . .(K)..F... |
00000690: 52 24 28 4B 29 20 B2 20 C7 28 4B 29 00 A2 46 22 |R$(K) . .(K)..F"|
000006A0: 01 82 00 DC 46 36 01 53 24 28 31 33 29 20 20 20 |....F6.S$(13) |
000006B0: B2 20 C7 28 31 33 29 20 3A 20 52 24 28 31 33 29 |. .(13) : R$(13)|
000006C0: 20 20 B2 20 C7 28 31 33 29 20 20 3A 20 53 24 28 | . .(13) : S$(|
000006D0: 31 34 38 29 20 B2 20 C7 28 31 33 29 00 16 47 3B |148) . .(13)..G;|
000006E0: 01 53 24 28 32 30 29 20 20 20 B2 20 C7 28 38 29 |.S$(20) . .(8)|
000006F0: 20 20 3A 20 52 24 28 38 29 20 20 20 B2 20 C7 28 | : R$(8) . .(|
00000700: 32 30 29 20 20 3A 20 53 24 28 31 36 30 29 20 B2 |20) : S$(160) .|
00000710: 20 C7 28 33 32 29 00 50 47 40 01 53 24 28 31 37 | .(32).PG@.S$(17|
00000720: 31 29 20 20 B2 20 C7 28 31 37 29 20 3A 20 53 24 |1) . .(17) : S$|
00000730: 28 31 37 34 29 20 B2 20 C7 28 31 39 29 20 20 3A |(174) . .(19) :|
00000740: 20 53 24 28 31 37 35 29 20 B2 20 C7 28 31 36 29 | S$(175) . .(16)|
00000750: 00 8E 47 4A 01 53 24 28 31 38 38 29 20 20 B2 20 |..GJ.S$(188) . |
00000760: 43 48 50 24 28 33 29 20 20 3A 20 53 24 28 31 37 |CHP$(3) : S$(17|
00000770: 39 29 20 B2 20 C7 28 31 32 35 29 20 3A 20 52 24 |9) . .(125) : R$|
00000780: 28 31 32 35 29 20 B2 20 C7 28 31 37 39 29 00 B6 |(125) . .(179)..|
00000790: 47 54 01 52 24 28 39 32 29 20 20 20 B2 20 C7 28 |GT.R$(92) . .(|
000007A0: 39 34 29 20 3A 20 52 24 28 39 35 29 20 20 B2 20 |94) : R$(95) . |
000007B0: C7 28 31 36 34 29 00 C2 47 59 01 99 20 C7 28 31 |.(164)..GY.. .(1|
000007C0: 34 29 00 09 48 5E 01 8F 20 2A 2A 2A 2A 2A 2A 2A |4)..H^.. *******|
000007D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000800: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 50 48 68 01 8F 20 |*********.PHh.. |
00000810: 2A 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |* |
00000820: 20 20 50 52 49 4E 54 20 20 48 45 4C 50 20 20 4D | PRINT HELP M|
00000830: 45 4E 55 20 20 20 20 20 20 20 20 20 20 20 20 20 |ENU |
00000840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2A | *|
00000850: 00 97 48 6D 01 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..Hm.. *********|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000880: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000890: 2A 2A 2A 2A 2A 2A 2A 00 A4 48 72 01 99 20 C7 28 |*******..Hr.. .(|
000008A0: 31 34 37 29 00 BF 48 7C 01 99 20 22 55 53 45 20 |147)..H|.. "USE |
000008B0: 46 55 4E 43 54 49 4F 4E 53 20 4B 45 59 53 22 00 |FUNCTIONS KEYS".|
000008C0: D5 48 86 01 99 20 22 20 20 20 41 53 20 46 4F 4C |.H... " AS FOL|
000008D0: 4C 4F 57 53 22 00 DD 48 90 01 99 3A 99 00 FA 48 |LOWS"..H...:...H|
000008E0: 9A 01 99 20 22 46 31 3A 20 50 52 49 4E 54 20 54 |... "F1: PRINT T|
000008F0: 48 49 53 20 4D 45 4E 55 20 22 00 00 49 A4 01 99 |HIS MENU "..I...|
00000900: 00 1D 49 AE 01 99 20 22 46 32 3A 20 53 45 4E 44 |..I... "F2: SEND|
00000910: 20 54 45 58 54 20 46 49 4C 45 20 20 22 00 23 49 | TEXT FILE ".#I|
00000920: B8 01 99 00 44 49 C2 01 99 20 22 46 33 3A 20 54 |....DI... "F3: T|
00000930: 49 4D 45 20 53 49 4E 43 45 20 4C 4F 47 49 4E 20 |IME SINCE LOGIN |
00000940: 20 20 20 22 00 4A 49 CC 01 99 00 6B 49 D6 01 99 | ".JI....kI...|
00000950: 20 22 46 34 3A 20 4B 45 59 20 52 45 50 45 41 54 | "F4: KEY REPEAT|
00000960: 20 4F 4E 2D 20 4F 46 46 20 20 22 00 71 49 E0 01 | ON- OFF ".qI..|
00000970: 99 00 92 49 EA 01 99 20 22 46 35 3A 20 53 45 4E |...I... "F5: SEN|
00000980: 44 20 4C 4F 47 49 4E 20 4D 45 53 53 41 47 45 20 |D LOGIN MESSAGE |
00000990: 20 22 00 98 49 F4 01 99 00 B6 49 FE 01 99 20 22 | "..I.....I... "|
000009A0: 46 36 3A 20 43 55 52 53 4F 52 20 20 28 4E 4F 29 |F6: CURSOR (NO)|
000009B0: 20 42 4C 4E 4B 22 00 BC 49 08 02 99 00 D6 49 12 | BLNK"..I.....I.|
000009C0: 02 99 20 22 46 37 3A 20 43 41 50 53 20 4F 4E 2D |.. "F7: CAPS ON-|
000009D0: 4F 46 46 20 20 22 00 DC 49 1C 02 99 00 F8 49 26 |OFF "..I.....I&|
000009E0: 02 99 20 22 46 38 3A 20 43 48 41 4E 47 45 20 53 |.. "F8: CHANGE S|
000009F0: 43 52 45 45 4E 20 20 22 00 FE 49 30 02 99 00 2A |CREEN "..I0...*|
00000A00: 4A 3A 02 99 20 22 55 53 45 20 43 4F 4D 4D 4F 44 |J:.. "USE COMMOD|
00000A10: 4F 52 45 20 4B 45 59 20 41 53 20 20 20 20 43 4F |ORE KEY AS CO|
00000A20: 4E 54 52 4F 4C 20 4B 45 59 22 00 71 4A 3F 02 8F |NTROL KEY".qJ?..|
00000A30: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A70: 2A 00 B8 4A 44 02 8F 20 2A 20 20 20 20 20 20 20 |*..JD.. * |
00000A80: 20 20 20 20 20 20 20 20 52 45 43 45 49 56 49 4E | RECEIVIN|
00000A90: 47 20 41 4E 44 20 53 45 4E 44 49 4E 47 20 4C 4F |G AND SENDING LO|
00000AA0: 4F 50 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |OPS |
00000AB0: 20 20 20 20 20 20 20 2A 00 FF 4A 4E 02 8F 20 2A | *..JN.. *|
00000AC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00000B00: 0D 4B 58 02 99 20 43 55 52 53 52 24 3B 00 22 4B |.KX.. CURSR$;."K|
00000B10: 5D 02 8B 20 42 4C 49 4E 4B 4F 46 46 20 A7 20 36 |].. BLINKOFF . 6|
00000B20: 32 35 00 3C 4B 62 02 88 20 43 4F 55 4E 54 25 20 |25.<Kb.. COUNT% |
00000B30: B2 20 43 4F 55 4E 54 25 20 AA 20 31 00 61 4B 67 |. COUNT% . 1.aKg|
00000B40: 02 8B 20 43 4F 55 4E 54 25 20 B2 20 31 30 20 A7 |.. COUNT% . 10 .|
00000B50: 20 88 20 43 55 52 53 52 24 20 B2 20 44 41 52 4B | . CURSR$ . DARK|
00000B60: 24 00 96 4B 6C 02 8B 20 43 4F 55 4E 54 25 20 B2 |$..Kl.. COUNT% .|
00000B70: 20 32 30 20 A7 20 88 20 43 55 52 53 52 24 20 B2 | 20 . . CURSR$ .|
00000B80: 20 45 52 41 53 45 24 20 3A 20 88 20 43 4F 55 4E | ERASE$ : . COUN|
00000B90: 54 25 20 B2 20 30 00 B3 4B 71 02 A1 20 43 48 24 |T% . 0..Kq.. CH$|
00000BA0: 20 3A 20 8B 20 43 48 24 20 B2 20 22 22 20 A7 20 | : . CH$ . "" . |
00000BB0: 36 35 30 00 C9 4B 76 02 88 20 43 43 4F 44 45 25 |650..Kv.. CCODE%|
00000BC0: 20 B2 20 C6 28 43 48 24 29 00 F1 4B 7B 02 8B 20 | . .(CH$)..K{.. |
00000BD0: 43 43 4F 44 45 25 20 B1 20 31 33 32 20 AF 20 43 |CCODE% . 132 . C|
00000BE0: 43 4F 44 45 25 20 B3 20 31 34 31 20 A7 20 36 35 |CODE% . 141 . 65|
00000BF0: 35 00 05 4C 80 02 98 35 2C 20 53 24 28 43 43 4F |5..L...5, S$(CCO|
00000C00: 44 45 25 29 3B 00 28 4C 8A 02 A1 23 35 2C 45 43 |DE%);.(L...#5,EC|
00000C10: 48 4F 24 20 3A 20 8B 20 45 43 48 4F 24 20 B2 20 |HO$ : . ECHO$ . |
00000C20: 22 22 20 A7 20 36 30 30 00 44 4C 8B 02 99 20 45 |"" . 600.DL... E|
00000C30: 52 41 53 45 24 3B 20 52 24 28 C6 28 45 43 48 4F |RASE$; R$(.(ECHO|
00000C40: 24 29 29 3B 00 63 4C 8C 02 8B 20 45 43 48 4F 24 |$));.cL... ECHO$|
00000C50: 20 B2 20 51 55 4F 54 45 24 20 A7 20 97 20 32 31 | . QUOTE$ . . 21|
00000C60: 32 2C 30 00 6D 4C 8D 02 89 20 36 35 30 00 A6 4C |2,0.mL... 650..L|
00000C70: 8F 02 91 20 43 43 4F 44 45 25 20 AB 20 31 33 32 |... CCODE% . 132|
00000C80: 20 89 20 33 37 30 2C 36 37 35 2C 37 30 30 2C 37 | . 370,675,700,7|
00000C90: 35 30 2C 38 30 30 2C 39 30 30 2C 39 35 30 2C 39 |50,800,900,950,9|
00000CA0: 35 30 2C 39 38 30 00 ED 4C 94 02 8F 20 2A 2A 2A |50,980..L... ***|
00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 34 4D |*************.4M|
00000CF0: 99 02 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 |... * |
00000D00: 20 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 20 | PRINT |
00000D10: 54 49 4D 45 20 53 49 4E 43 45 20 4C 4F 47 49 4E |TIME SINCE LOGIN|
00000D20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000D30: 20 20 20 2A 00 7B 4D 9E 02 8F 20 2A 2A 2A 2A 2A | *.{M... *****|
00000D40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000D70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 81 4D A3 02 |***********..M..|
00000D80: 99 00 AB 4D A8 02 99 20 CA 28 54 49 4D 45 24 2C |...M... .(TIME$,|
00000D90: 33 2C 32 29 3B 20 22 4D 49 4E 55 54 45 53 20 53 |3,2); "MINUTES S|
00000DA0: 49 4E 43 45 20 4C 4F 47 49 4E 22 00 B5 4D AD 02 |INCE LOGIN"..M..|
00000DB0: 89 20 36 30 30 00 FC 4D B7 02 8F 20 2A 2A 2A 2A |. 600..M... ****|
00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000DD0: 2A 2A 2A 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 2A |****************|
00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 43 4E BC |************.CN.|
00000E00: 02 8F 20 2A 20 20 20 20 20 20 20 20 20 20 20 20 |.. * |
00000E10: 20 20 20 20 20 20 20 20 20 20 20 20 53 45 4E 44 | SEND|
00000E20: 20 4C 4F 47 49 4E 20 4D 41 53 53 41 47 45 20 20 | LOGIN MASSAGE |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E40: 20 20 2A 00 8A 4E C0 02 8F 20 2A 2A 2A 2A 2A 2A | *..N... ******|
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 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 97 4E C6 02 A1 |**********..N...|
00000E90: 23 35 2C 20 43 48 24 00 AE 4E CB 02 88 20 54 49 |#5, CH$..N... TI|
00000EA0: 4D 45 24 20 B2 20 22 30 30 30 30 30 30 22 00 C5 |ME$ . "000000"..|
00000EB0: 4E D0 02 81 20 4B 20 B2 20 31 20 A4 20 C3 28 4C |N... K . 1 . .(L|
00000EC0: 47 49 4E 24 29 00 E2 4E D5 02 98 35 2C 20 53 24 |GIN$)..N...5, S$|
00000ED0: 28 C6 28 CA 28 4C 47 49 4E 24 2C 4B 2C 31 29 29 |(.(.(LGIN$,K,1))|
00000EE0: 29 3B 00 E8 4E DA 02 82 00 F6 4E DF 02 98 35 2C |);..N.....N...5,|
00000EF0: 20 C7 28 31 33 29 00 00 4F E4 02 89 20 36 35 30 | .(13)..O... 650|
00000F00: 00 47 4F E9 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |.GO... *********|
00000F10: 2A 2A 2A 2A 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: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F40: 2A 2A 2A 2A 2A 2A 2A 00 8E 4F EE 02 8F 20 2A 20 |*******..O... * |
00000F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F60: 20 20 20 20 20 43 41 50 53 20 4F 4E 2D 4F 46 46 | CAPS ON-OFF|
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 D5 | *..|
00000F90: 4F F3 02 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |O... ***********|
00000FA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000FD0: 2A 2A 2A 2A 2A 00 EC 4F F8 02 88 20 43 41 50 25 |*****..O... CAP%|
00000FE0: 20 B2 20 33 32 20 AB 20 43 41 50 25 00 FE 4F FD | . 32 . CAP%..O.|
00000FF0: 02 81 20 4B 20 B2 20 36 35 20 A4 20 39 30 00 18 |.. K . 65 . 90..|
00001000: 50 02 03 88 20 53 24 28 4B 29 20 B2 20 C7 28 4B |P... S$(K) . .(K|
00001010: 20 AA 20 43 41 50 25 29 00 1E 50 07 03 82 00 28 | . CAP%)..P....(|
00001020: 50 0C 03 89 20 36 30 30 00 6F 50 1B 03 8F 20 2A |P... 600.oP... *|
00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001040: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001050: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00001070: B6 50 20 03 8F 20 2A 20 20 20 20 20 20 20 20 20 |.P .. * |
00001080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 | S|
00001090: 45 4E 44 20 46 49 4C 45 20 20 20 20 20 20 20 20 |END FILE |
000010A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010B0: 20 20 20 20 20 2A 00 FD 50 25 03 8F 20 2A 2A 2A | *..P%.. ***|
000010C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000010F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 51 |*************..Q|
00001100: 2F 03 85 20 22 4E 41 4D 45 20 4F 46 20 46 49 4C |/.. "NAME OF FIL|
00001110: 45 22 3B 20 4E 41 4D 45 24 00 2B 51 34 03 9F 20 |E"; NAME$.+Q4.. |
00001120: 31 2C 38 2C 30 2C 4E 41 4D 45 24 00 43 51 39 03 |1,8,0,NAME$.CQ9.|
00001130: A1 23 31 2C 20 43 48 24 20 3A 20 A1 23 31 2C 20 |.#1, CH$ : .#1, |
00001140: 43 48 24 00 63 51 3E 03 A1 23 31 2C 20 43 48 24 |CH$.cQ>..#1, CH$|
00001150: 20 3A 20 8B 20 43 48 24 20 B2 20 22 22 20 A7 20 | : . CH$ . "" . |
00001160: 38 33 30 00 79 51 43 03 88 20 43 43 4F 44 45 25 |830.yQC.. CCODE%|
00001170: 20 B2 20 C6 28 43 48 24 29 00 97 51 48 03 8B 20 | . .(CH$)..QH.. |
00001180: 43 43 4F 44 45 25 20 B2 20 31 30 20 A7 20 A0 20 |CCODE% . 10 . . |
00001190: 31 3A 89 20 36 30 30 00 AB 51 4D 03 98 35 2C 20 |1:. 600..QM..5, |
000011A0: 53 24 28 43 43 4F 44 45 25 29 3B 00 BE 51 52 03 |S$(CCODE%);..QR.|
000011B0: 81 20 4B 20 B2 20 31 20 A4 20 32 30 3A 82 00 E0 |. K . 1 . 20:...|
000011C0: 51 57 03 A1 23 35 2C 45 43 48 4F 24 3A 20 8B 20 |QW..#5,ECHO$: . |
000011D0: 45 43 48 4F 24 20 B2 20 22 22 20 A7 20 38 37 30 |ECHO$ . "" . 870|
000011E0: 00 F4 51 5C 03 99 20 52 24 28 C6 28 45 43 48 4F |..Q\.. R$(.(ECHO|
000011F0: 24 29 29 3B 00 13 52 61 03 8B 20 45 43 48 4F 24 |$));..Ra.. ECHO$|
00001200: 20 B2 20 51 55 4F 54 45 24 20 A7 20 97 20 32 31 | . QUOTE$ . . 21|
00001210: 32 2C 30 00 25 52 66 03 81 20 4B B2 20 31 20 A4 |2,0.%Rf.. K. 1 .|
00001220: 20 32 30 3A 82 00 2F 52 6B 03 89 20 38 33 30 00 | 20:../Rk.. 830.|
00001230: 76 52 7F 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |vR... **********|
00001240: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001270: 2A 2A 2A 2A 2A 2A 00 BD 52 84 03 8F 20 2A 20 20 |******..R... * |
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4B | K|
00001290: 45 59 20 52 45 50 45 41 54 20 4F 4E 2D 4F 46 46 |EY REPEAT ON-OFF|
000012A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000012B0: 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 04 53 | *..S|
000012C0: 89 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000012D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001300: 2A 2A 2A 2A 00 22 53 93 03 88 20 52 45 50 45 41 |****."S... REPEA|
00001310: 54 25 20 B2 20 31 32 38 20 AB 20 52 45 50 45 41 |T% . 128 . REPEA|
00001320: 54 25 00 34 53 98 03 97 20 36 35 30 2C 52 45 50 |T%.4S... 650,REP|
00001330: 45 41 54 25 00 3E 53 9D 03 89 20 36 30 30 00 85 |EAT%.>S... 600..|
00001340: 53 B1 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |S... ***********|
00001350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001360: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001380: 2A 2A 2A 2A 2A 00 CC 53 B6 03 8F 20 2A 20 20 20 |*****..S... * |
00001390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 | C|
000013A0: 55 52 53 4F 52 20 42 4C 49 4E 4B 20 4F 4E 2D 4F |URSOR BLINK ON-O|
000013B0: 46 46 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |FF |
000013C0: 20 20 20 20 20 20 20 20 20 20 20 2A 00 13 54 BB | *..T.|
000013D0: 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001410: 2A 2A 2A 00 31 54 C0 03 88 20 42 4C 49 4E 4B 4F |***.1T... BLINKO|
00001420: 46 46 20 B2 20 31 20 AB 20 42 4C 49 4E 4B 4F 46 |FF . 1 . BLINKOF|
00001430: 46 00 46 54 C5 03 88 20 43 55 52 53 52 24 20 B2 |F.FT... CURSR$ .|
00001440: 20 44 41 52 4B 24 00 50 54 CA 03 89 20 36 30 30 | DARK$.PT... 600|
00001450: 00 97 54 CF 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..T... *********|
00001460: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001480: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001490: 2A 2A 2A 2A 2A 2A 2A 00 DE 54 D4 03 8F 20 2A 20 |*******..T... * |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 20 43 48 41 4E 47 45 20 53 43 52 45 45 4E 20 | CHANGE SCREEN |
000014C0: 43 4F 4C 4F 52 20 20 20 20 20 20 20 20 20 20 20 |COLOR |
000014D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 2A 00 25 | *.%|
000014E0: 55 D9 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |U... ***********|
000014F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001510: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001520: 2A 2A 2A 2A 2A 00 33 55 DE 03 97 20 35 33 32 38 |*****.3U... 5328|
00001530: 31 2C 38 00 3E 55 E3 03 99 20 C7 28 35 29 00 48 |1,8.>U... .(5).H|
00001540: 55 E8 03 89 20 33 37 30 00 00 00 FF 00 |U... 370..... |
.@I@... ********************************
*********************************..@...
*
*.Y@... * TE
RMINAL EMULATOR FOR VIC-20 AND COMMODORE
64 *.!A... *
*.IA... * AUTHOR: JOHN RUSS
O
*..A#.. *
*..A(..
* DATE: JANUARY,1983
*.AB-.. *
JOAKIM ERIKSSON 8
4-06-16 *..B2.. ****************
****************************************
*********..B7....B<....BP.. ************
****************************************
*************.%CU.. * OPEN 7 BIT FULL
DUPLEX RS232 CHANNEL AND DIMENSION ARRAY
S *.MCZ.. ****************************
*************************************.SC
_...YCD....CN.. BAUD$ . G(38)..CS.. D
UPLEX$ . G(160).DCX.. 5,2,3,BAUD$ . DUP
LEX$..C... R$(127), S$(255)."D... ******
****************************************
******************.ID... * INITI
ALIZE VARIABLES AND DEFINE CONSTANTS
*..D .. ************************
****************************************
.ID... QUOTE$ . G(34)..D... BACKSPAC
E$ . G(157)..E... ERASE$ . " " . BAC
KSPACE$..E... DARK$ . G(162) . BACK
SPACE$.GEH.. CURSR$ . DARK$.CEM.. TI
ME$ . "000000".YER.. CAP% . 3
2..E... LGIN$ . "YOUR LOGIN MESSAGE
"..E... K . 32 . 64.FE... S$(K) . G(K).Y
E... R$(K) . G(K)..E.....E... K . 65 . 9
0..F... S$(K) . G(K . CAP%)..F... R
$(K) . G(K . 128).FF... S$(K . 128)
. G(K).^F... R$(K . 32) . G(K).DF....VF.
.. K . 91 . 95..F... S$(K) . G(K)..F...
R$(K) . G(K)..F"....F6.S$(13) . G(13)
: R$(13) . G(13) : S$(148) . G(13)..G;
.S$(20) . G(8) : R$(8) . G(20) : S
$(160) . G(32).PG@.S$(171) . G(17) : S$
(174) . G(19) : S$(175) . G(16)..GJ.S$(
188) . CHP$(3) : S$(179) . G(125) : R$
(125) . G(179)..GT.R$(92) . G(94) : R$
(95) . G(164).BGY.. G(14)..H^.. *******
****************************************
*****************.PHH.. *
PRINT HELP MENU
*..HM.. *************************
***************************************.
.HR.. G(147)..H|.. "USE FUNCTIONS KEYS".
UH... " AS FOLLOWS"..H...:...H... "F1:
PRINT THIS MENU "..I.....I... "F2: SEND
TEXT FILE ".#I....DIB.. "F3: TIME SINC
E LOGIN ".JIL...KIV.. "F4: KEY REPEAT
ON- OFF ".QI.....I... "F5: SEND LOGIN
MESSAGE "..I.....I... "F6: CURSOR (NO)
BLNK"..I....VI... "F7: CAPS ON-OFF "..
I.....I&.. "F8: CHANGE SCREEN "..I0...*
J:.. "USE COMMODORE KEY AS CONTROL KE
Y".QJ?.. *******************************
*********************************..JD..
* RECEIVING AND SENDING LO
OPS *..JN.. *********
****************************************
***************..KX.. CURSR$;."K].. BLIN
KOFF . 625.<KB.. COUNT% . COUNT% . 1.AKG
.. COUNT% . 10 . . CURSR$ . DARK$..KL..
COUNT% . 20 . . CURSR$ . ERASE$ : . COUN
T% . 0..KQ.. CH$ : . CH$ . "" . 650.IKV.
. CCODE% . F(CH$)..K{.. CCODE% . 132 . C
CODE% . 141 . 655..L...5, S$(CCODE%);.(L
...#5,ECHO$ : . ECHO$ . "" . 600.DL... E
RASE$; R$(F(ECHO$));.CL... ECHO$ . QUOTE
$ . . 212,0.ML... 650..L... CCODE% . 132
. 370,675,700,750,800,900,950,950,980..
L... ***********************************
*****************************.4M... *
PRINT TIME SINCE LOGIN
*.{M... *************
****************************************
***********..M.....M... J(TIME$,3,2); "M
INUTES SINCE LOGIN"..M... 600..M... ****
****************************************
********************.CN... *
SEND LOGIN MASSAGE
*..N... **********************
****************************************
**..NF..#5, CH$..NK.. TIME$ . "000000".E
NP.. K . 1 . C(LGIN$)..NU..5, S$(F(J(LGI
N$,K,1)));..NZ....N...5, G(13)..O... 650
.GO... *********************************
*******************************..O... *
CAPS ON-OFF
*.UO... ***********
****************************************
*************..O... CAP% . 32 . CAP%..O.
.. K . 65 . 90..P... S$(K) . G(K . CAP%)
..P....(P... 600.OP... *****************
****************************************
*******..P .. * S
END FILE *..
P%.. ***********************************
*****************************..Q/.. "NAM
E OF FILE"; NAME$.+Q4.. 1,8,0,NAME$.CQ9.
.#1, CH$ : .#1, CH$.CQ>..#1, CH$ : . CH$
. "" . 830.YQC.. CCODE% . F(CH$)..QH..
CCODE% . 10 . 1:. 600..QM..5, S$(CCODE
%);..QR.. K . 1 . 20:...QW..#5,ECHO$: .
ECHO$ . "" . 870..Q\.. R$(F(ECHO$));..RA
.. ECHO$ . QUOTE$ . . 212,0.%RF.. K. 1 .
20:../RK.. 830.VR.. ******************
****************************************
******..R... * KEY REPEA
T ON-OFF *..S
... ************************************
****************************."S... REPEA
T% . 128 . REPEAT%.4S... 650,REPEAT%.>S.
.. 600..S... ***************************
*************************************.LS
... * CURSOR BLINK ON-O
FF *..T... *****
****************************************
*******************.1T... BLINKOFF . 1 .
BLINKOFF.FTE.. CURSR$ . DARK$.PTJ.. 600
..TO.. *********************************
*******************************..TT.. *
CHANGE SCREEN COLOR
*.%UY.. ***********
****************************************
*************.3U... 53281,8.>U... G(5).H
U... 370.....
> CLICK IMAGE PREVIEW FOR FULL MODAL