PRG CHARACTERS
FILE INFORMATION
FILENAME(S): PRG CHARACTERS
FILE TYPE(S): PRG
FILE SIZE: 3.2K
FIRST SEEN: 2025-11-30 17:31:34
APPEARS ON: 1 disk(s)
FILE HASH
12a68fe5ea1236986a76b4b64cbc3a7f04c941183ab01ac88700397ee6e6bbfd
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TERRY TO BOB | PRG CHARACTERS | PRG | UK CD | 4 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 47 08 00 00 8F 20 2A 2A 2A 2A 50 52 47 20 |..G.... ****PRG |
00000010: 43 48 41 52 41 43 54 45 52 53 2A 2A 2A 2A 20 20 |CHARACTERS**** |
00000020: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000030: 46 4F 52 20 50 55 42 4C 49 43 20 44 4F 4D 41 49 |FOR PUBLIC DOMAI|
00000040: 4E 2C 20 49 4E 43 2E 00 61 08 01 00 8F 20 42 59 |N, INC..a.... BY|
00000050: 20 52 41 59 20 53 4D 49 54 48 20 28 4B 52 38 42 | RAY SMITH (KR8B|
00000060: 29 00 77 08 02 00 8F 20 45 4E 47 4C 45 57 4F 4F |).w.... ENGLEWOO|
00000070: 44 2C 20 4F 48 49 4F 00 8C 08 03 00 8F 20 53 45 |D, OHIO...... SE|
00000080: 50 54 2E 20 31 32 2C 20 31 39 38 34 00 D5 08 04 |PT. 12, 1984....|
00000090: 00 8F 20 41 44 44 20 46 4F 4C 4C 4F 57 49 4E 47 |.. ADD FOLLOWING|
000000A0: 20 49 4E 20 59 4F 55 52 20 50 52 47 20 54 4F 20 | IN YOUR PRG TO |
000000B0: 20 20 20 20 20 20 20 20 20 20 20 45 4E 41 42 4C | ENABL|
000000C0: 45 20 59 4F 55 52 20 43 48 41 52 41 43 54 45 52 |E YOUR CHARACTER|
000000D0: 20 53 45 54 2E 00 22 09 05 00 8F 20 50 4F 4B 45 | SET..".... POKE|
000000E0: 20 35 32 2C 34 38 3A 50 4F 4B 45 20 35 36 2C 34 | 52,48:POKE 56,4|
000000F0: 38 3A 43 4C 52 20 20 20 20 20 20 20 20 20 20 20 |8:CLR |
00000100: 20 20 20 20 54 48 49 53 20 50 52 4F 54 45 43 54 | THIS PROTECT|
00000110: 53 20 59 4F 55 52 20 43 48 41 52 41 43 54 45 52 |S YOUR CHARACTER|
00000120: 53 2E 00 6D 09 06 00 8F 20 50 4F 4B 45 20 35 33 |S..m.... POKE 53|
00000130: 32 37 32 2C 50 45 45 4B 28 35 33 32 37 32 29 41 |272,PEEK(53272)A|
00000140: 4E 44 32 34 30 29 2B 31 32 20 20 20 20 20 20 20 |ND240)+12 |
00000150: 20 54 48 49 53 20 45 4E 41 42 4C 45 53 20 59 4F | THIS ENABLES YO|
00000160: 55 52 20 43 48 41 52 41 43 54 45 52 53 00 AC 09 |UR CHARACTERS...|
00000170: 07 00 8F 20 54 48 45 20 43 48 41 52 41 43 54 45 |... THE CHARACTE|
00000180: 52 53 20 41 52 45 20 53 41 56 45 44 20 55 4E 44 |RS ARE SAVED UND|
00000190: 45 52 20 20 20 20 20 20 20 20 20 20 54 48 45 20 |ER THE |
000001A0: 4E 41 4D 45 20 22 43 48 52 27 53 22 00 F7 09 08 |NAME "CHR'S"....|
000001B0: 00 8F 20 46 4F 52 20 4D 4F 52 45 20 49 4E 46 4F |.. FOR MORE INFO|
000001C0: 52 4D 41 54 49 4F 4E 20 43 4F 4E 53 55 4C 54 20 |RMATION CONSULT |
000001D0: 54 48 45 20 20 20 20 20 20 20 20 50 52 4F 47 52 |THE PROGR|
000001E0: 41 4D 4D 45 52 27 53 20 52 45 46 45 52 45 4E 43 |AMMER'S REFERENC|
000001F0: 45 20 47 55 49 44 45 00 1E 0A 09 00 8F 20 50 41 |E GUIDE...... PA|
00000200: 47 45 20 31 30 38 2E 2E 2E 20 48 41 50 50 59 20 |GE 108... HAPPY |
00000210: 50 52 4F 47 52 41 4D 4D 49 4E 47 2E 2E 2E 00 31 |PROGRAMMING....1|
00000220: 0A 0A 00 9E 36 35 35 31 31 3A 8B 4C B1 30 A7 39 |....65511:.L.0.9|
00000230: 35 00 58 0A 0F 00 99 22 93 8E 08 22 A6 38 29 22 |5.X...."...".8)"|
00000240: 50 52 4F 47 52 41 4D 4D 41 42 4C 45 20 43 48 41 |PROGRAMMABLE CHA|
00000250: 52 41 43 54 45 52 53 22 00 8E 0A 14 00 99 22 11 |RACTERS"......".|
00000260: 11 20 12 4C 92 4F 41 44 20 4F 52 20 12 43 92 52 |. .L.OAD OR .C.R|
00000270: 45 41 54 45 20 4E 45 57 20 43 48 41 52 41 43 54 |EATE NEW CHARACT|
00000280: 45 52 20 53 45 54 20 28 4C 2F 43 29 3F 22 00 AA |ER SET (L/C)?"..|
00000290: 0A 19 00 A1 41 24 3A 8B 41 24 B3 B1 22 4C 22 AF |....A$:.A$.."L".|
000002A0: 41 24 B3 B1 22 43 22 A7 32 35 00 B9 0A 1E 00 8B |A$.."C".25......|
000002B0: 41 24 B2 22 43 22 A7 36 30 00 E1 0A 23 00 99 22 |A$."C".60...#.."|
000002C0: 11 11 22 A6 31 30 29 22 12 54 92 41 50 45 20 4F |..".10)".T.APE O|
000002D0: 52 20 12 44 92 49 53 4B 20 28 54 2F 44 29 3F 11 |R .D.ISK (T/D)?.|
000002E0: 22 00 FD 0A 28 00 A1 41 24 3A 8B 41 24 B3 B1 22 |"...(..A$:.A$.."|
000002F0: 54 22 AF 41 24 B3 B1 22 44 22 A7 34 30 00 0E 0B |T".A$.."D".40...|
00000300: 2D 00 8B 41 24 B2 22 54 22 A7 44 45 B2 31 00 1F |-..A$."T".DE.1..|
00000310: 0B 32 00 8B 41 24 B2 22 44 22 A7 44 45 B2 38 00 |.2..A$."D".DE.8.|
00000320: 35 0B 37 00 4C B2 31 3A 93 22 43 48 52 27 53 22 |5.7.L.1:."CHR'S"|
00000330: 2C 44 45 2C 31 00 66 0B 3C 00 99 22 11 57 52 49 |,DE,1.f.<..".WRI|
00000340: 54 49 4E 47 20 32 35 36 20 43 48 41 52 41 43 54 |TING 256 CHARACT|
00000350: 45 52 53 20 49 4E 54 4F 20 52 41 4D 20 41 54 20 |ERS INTO RAM AT |
00000360: 24 33 30 30 30 22 00 7A 0B 41 00 97 35 32 2C 34 |$3000".z.A..52,4|
00000370: 38 3A 97 35 36 2C 34 38 3A 9C 00 92 0B 46 00 97 |8:.56,48:....F..|
00000380: 35 36 33 33 34 2C C2 28 35 36 33 33 34 29 AF 32 |56334,.(56334).2|
00000390: 35 34 00 A2 0B 4B 00 97 31 2C C2 28 31 29 AF 32 |54...K..1,.(1).2|
000003A0: 35 31 00 C6 0B 50 00 81 49 B2 30 A4 32 30 34 30 |51...P..I.0.2040|
000003B0: 3A 97 49 AA 31 32 32 38 38 2C C2 28 49 AA 35 33 |:.I.12288,.(I.53|
000003C0: 32 34 38 29 3A 82 00 D4 0B 55 00 97 31 2C C2 28 |248):....U..1,.(|
000003D0: 31 29 B0 34 00 EA 0B 5A 00 97 35 36 33 33 34 2C |1).4...Z..56334,|
000003E0: C2 28 35 36 33 33 34 29 B0 31 00 2F 0C 5F 00 86 |.(56334).1./._..|
000003F0: 45 24 28 32 35 29 3A 45 24 B2 22 13 11 11 11 11 |E$(25):E$.".....|
00000400: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000410: 11 11 11 11 11 11 22 3A 81 54 B2 31 A4 32 35 3A |......":.T.1.25:|
00000420: 45 24 28 54 29 B2 C8 28 45 24 2C 54 29 3A 82 00 |E$(T)..(E$,T):..|
00000430: 61 0C 64 00 45 52 24 B2 22 20 20 20 20 20 20 20 |a.d.ER$." |
00000440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000450: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000460: 22 00 9E 0C 69 00 58 B2 31 37 3A 59 B2 33 37 3A |"...i.X.17:Y.37:|
00000470: 99 22 93 12 20 20 20 20 20 20 20 20 50 52 4F 47 |.".. PROG|
00000480: 52 41 4D 4D 41 42 4C 45 20 43 48 41 52 41 43 54 |RAMMABLE CHARACT|
00000490: 45 52 53 20 20 20 20 20 20 20 20 20 22 3B 00 CF |ERS ";..|
000004A0: 0C 6A 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |.j.." |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B 00 | ";.|
000004D0: 00 0D 6B 00 99 22 20 20 20 20 20 20 20 20 20 20 |..k.." |
000004E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000004F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00000500: 00 31 0D 6C 00 99 22 20 20 20 20 20 20 20 20 20 |.1.l.." |
00000510: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00000530: 3B 00 41 0D 6D 00 99 22 20 20 20 20 20 20 20 20 |;.A.m.." |
00000540: 22 00 5A 0D 6E 00 81 54 B2 30 A4 31 32 37 3A 97 |".Z.n..T.0.127:.|
00000550: 31 30 36 34 AA 54 2C 54 3A 82 00 8B 0D 73 00 99 |1064.T,T:....s..|
00000560: 22 11 20 20 20 20 50 52 45 53 53 20 41 20 4B 45 |". PRESS A KE|
00000570: 59 20 54 4F 20 52 45 56 49 45 57 20 54 48 45 20 |Y TO REVIEW THE |
00000580: 4C 45 54 54 45 52 20 20 20 20 22 00 BC 0D 78 00 |LETTER "...x.|
00000590: 99 22 91 20 20 20 20 55 53 45 20 4A 4F 59 53 54 |.". USE JOYST|
000005A0: 49 43 4B 20 54 4F 20 45 44 49 54 20 54 48 45 20 |ICK TO EDIT THE |
000005B0: 4C 45 54 54 45 52 20 20 20 20 20 22 00 EF 0D 7D |LETTER "...}|
000005C0: 00 99 22 91 12 20 20 41 44 44 52 45 53 53 20 20 |..".. ADDRESS |
000005D0: 56 41 4C 55 45 20 20 42 49 54 20 50 41 54 54 45 |VALUE BIT PATTE|
000005E0: 52 4E 20 20 49 4D 41 47 45 20 20 20 20 92 22 00 |RN IMAGE .".|
000005F0: 02 0E 82 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.....A$:.A$."".1|
00000600: 33 30 00 2B 0E 87 00 41 B2 C6 28 41 24 29 3A 8B |30.+...A..(A$):.|
00000610: 41 B2 B1 36 34 A7 41 B2 41 AB 36 34 3A 8B 41 B2 |A..64.A.A.64:.A.|
00000620: B1 31 32 38 A7 41 B2 41 AB 36 34 00 50 0E 8C 00 |.128.A.A.64.P...|
00000630: 42 B2 31 32 32 38 38 AA 38 AC 41 3A 81 54 B2 30 |B.12288.8.A:.T.0|
00000640: A4 37 3A 58 28 54 29 B2 C2 28 42 AA 54 29 3A 82 |.7:X(T)..(B.T):.|
00000650: 00 8D 0E 92 00 81 54 B2 30 A4 37 3A 43 B2 31 34 |......T.0.7:C.14|
00000660: 32 34 AA 34 30 AC 54 3A 99 22 20 20 22 C8 28 C4 |24.40.T:." ".(.|
00000670: 28 42 AA 54 29 AA 45 52 24 2C 39 29 C8 28 C4 28 |(B.T).ER$,9).(.(|
00000680: 58 28 54 29 29 AA 45 52 24 2C 39 29 3B 00 9F 0E |X(T)).ER$,9);...|
00000690: 93 00 99 22 30 30 30 30 30 30 30 30 20 22 3B 00 |..."00000000 ";.|
000006A0: C3 0E 96 00 99 22 20 22 3B 3A 8B 58 28 54 29 AF |....." ";:.X(T).|
000006B0: 32 35 36 A7 99 22 9D D1 22 3B 3A 97 43 AA 31 39 |256.."..";:.C.19|
000006C0: 2C 34 39 00 E7 0E 9B 00 99 22 20 22 3B 3A 8B 58 |,49......" ";:.X|
000006D0: 28 54 29 AF 31 32 38 A7 99 22 9D D1 22 3B 3A 97 |(T).128.."..";:.|
000006E0: 43 AA 32 30 2C 34 39 00 0A 0F A0 00 99 22 20 22 |C.20,49......" "|
000006F0: 3B 3A 8B 58 28 54 29 AF 36 34 A7 99 22 9D D1 22 |;:.X(T).64..".."|
00000700: 3B 3A 97 43 AA 32 31 2C 34 39 00 2D 0F A5 00 99 |;:.C.21,49.-....|
00000710: 22 20 22 3B 3A 8B 58 28 54 29 AF 33 32 A7 99 22 |" ";:.X(T).32.."|
00000720: 9D D1 22 3B 3A 97 43 AA 32 32 2C 34 39 00 50 0F |..";:.C.22,49.P.|
00000730: AA 00 99 22 20 22 3B 3A 8B 58 28 54 29 AF 31 36 |..." ";:.X(T).16|
00000740: A7 99 22 9D D1 22 3B 3A 97 43 AA 32 33 2C 34 39 |.."..";:.C.23,49|
00000750: 00 72 0F AF 00 99 22 20 22 3B 3A 8B 58 28 54 29 |.r...." ";:.X(T)|
00000760: AF 38 A7 99 22 9D D1 22 3B 3A 97 43 AA 32 34 2C |.8.."..";:.C.24,|
00000770: 34 39 00 94 0F B4 00 99 22 20 22 3B 3A 8B 58 28 |49......" ";:.X(|
00000780: 54 29 AF 34 A7 99 22 9D D1 22 3B 3A 97 43 AA 32 |T).4.."..";:.C.2|
00000790: 35 2C 34 39 00 B6 0F B9 00 99 22 20 22 3B 3A 8B |5,49......" ";:.|
000007A0: 58 28 54 29 AF 32 A7 99 22 9D D1 22 3B 3A 97 43 |X(T).2.."..";:.C|
000007B0: AA 32 36 2C 34 39 00 D8 0F BE 00 99 22 20 22 3B |.26,49......" ";|
000007C0: 3A 8B 58 28 54 29 AF 31 A7 99 22 9D D1 22 3B 3A |:.X(T).1.."..";:|
000007D0: 97 43 AA 32 37 2C 34 39 00 E0 0F C3 00 99 3A 82 |.C.27,49......:.|
000007E0: 00 13 10 C8 00 99 22 11 12 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: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000810: 20 22 3B 00 47 10 CD 00 99 22 91 20 20 53 43 52 | ";.G....". SCR|
00000820: 45 45 4E 20 43 4F 44 45 20 3D 22 41 22 20 20 43 |EEN CODE ="A" C|
00000830: 48 52 24 20 43 4F 44 45 20 3D 22 C6 28 41 24 29 |HR$ CODE =".(A$)|
00000840: 3A 97 31 39 38 2C 30 00 72 10 D2 00 99 22 20 20 |:.198,0.r...." |
00000850: 20 20 20 20 20 20 46 31 3D 45 4E 41 42 4C 45 20 | F1=ENABLE |
00000860: 4E 45 57 20 43 48 41 52 41 43 54 45 52 20 53 45 |NEW CHARACTER SE|
00000870: 54 22 00 9A 10 D7 00 8B 41 24 B2 C7 28 31 33 33 |T"......A$..(133|
00000880: 29 A7 97 35 33 32 37 32 2C 28 C2 28 35 33 32 37 |)..53272,(.(5327|
00000890: 32 29 AF 32 34 30 29 AA 31 32 00 C6 10 DC 00 99 |2).240).12......|
000008A0: 22 20 20 20 20 20 20 20 20 46 33 3D 44 49 53 41 |" F3=DISA|
000008B0: 42 4C 45 20 4E 45 57 20 43 48 41 52 41 43 54 45 |BLE NEW CHARACTE|
000008C0: 52 20 53 45 54 22 00 ED 10 E1 00 8B 41 24 B2 C7 |R SET"......A$..|
000008D0: 28 31 33 34 29 A7 97 35 33 32 37 32 2C 28 C2 28 |(134)..53272,(.(|
000008E0: 35 33 32 37 32 29 AF 32 34 30 29 AA 34 00 25 11 |53272).240).4.%.|
000008F0: E6 00 99 22 20 20 20 20 20 20 20 20 46 37 3D 53 |..." F7=S|
00000900: 41 56 45 20 4E 45 57 20 43 48 41 52 41 43 54 45 |AVE NEW CHARACTE|
00000910: 52 20 53 45 54 22 3A 8B 41 24 B2 C7 28 31 33 36 |R SET":.A$..(136|
00000920: 29 A7 33 36 35 00 2E 11 EB 00 8D 33 33 30 00 3E |).365......330.>|
00000930: 11 F0 00 8B C2 28 31 39 38 29 A7 31 30 35 00 5E |.....(198).105.^|
00000940: 11 F5 00 97 31 30 32 34 AA 58 AC 34 30 AA 59 2C |....1024.X.40.Y,|
00000950: C2 28 31 30 32 34 AA 58 AC 34 30 AA 59 29 00 6C |.(1024.X.40.Y).l|
00000960: 11 FA 00 8B 53 30 A7 58 B2 58 AB 31 00 7A 11 FF |....S0.X.X.1.z..|
00000970: 00 8B 53 31 A7 58 B2 58 AA 31 00 88 11 04 01 8B |..S1.X.X.1......|
00000980: 53 32 A7 59 B2 59 AB 31 00 96 11 09 01 8B 53 33 |S2.Y.Y.1......S3|
00000990: A7 59 B2 59 AA 31 00 CB 11 0E 01 8B 53 34 A7 8B |.Y.Y.1......S4..|
000009A0: C2 28 31 30 32 34 AA 58 AC 34 30 AA 59 29 B2 33 |.(1024.X.40.Y).3|
000009B0: 32 A7 97 31 30 32 34 AA 58 AC 34 30 AA 59 2C 38 |2..1024.X.40.Y,8|
000009C0: 31 3A 8D 33 31 35 3A 89 31 34 30 00 00 12 13 01 |1:.315:.140.....|
000009D0: 8B 53 34 A7 8B C2 28 31 30 32 34 AA 58 AC 34 30 |.S4...(1024.X.40|
000009E0: AA 59 29 B2 38 31 A7 97 31 30 32 34 AA 58 AC 34 |.Y).81..1024.X.4|
000009F0: 30 AA 59 2C 33 32 3A 8D 33 31 35 3A 89 31 34 30 |0.Y,32:.315:.140|
00000A00: 00 0F 12 18 01 8B 58 B3 31 30 A7 58 B2 31 30 00 |......X.10.X.10.|
00000A10: 1E 12 1D 01 8B 58 B1 31 37 A7 58 B2 31 37 00 2D |.....X.17.X.17.-|
00000A20: 12 22 01 8B 59 B3 33 30 A7 59 B2 33 30 00 3C 12 |."..Y.30.Y.30.<.|
00000A30: 27 01 8B 59 B1 33 37 A7 59 B2 33 37 00 6A 12 2C |'..Y.37.Y.37.j.,|
00000A40: 01 97 31 30 32 34 AA 58 AC 34 30 AA 59 2C C2 28 |..1024.X.40.Y,.(|
00000A50: 31 30 32 34 AA 58 AC 34 30 AA 59 29 AA 31 32 38 |1024.X.40.Y).128|
00000A60: 3A 81 54 B2 31 A4 32 35 3A 82 00 8E 12 31 01 97 |:.T.1.25:....1..|
00000A70: 31 30 32 34 AA 58 AC 34 30 AA 59 2C C2 28 31 30 |1024.X.40.Y,.(10|
00000A80: 32 34 AA 58 AC 34 30 AA 59 29 AB 31 32 38 00 97 |24.X.40.Y).128..|
00000A90: 12 36 01 89 32 33 35 00 AB 12 3B 01 53 34 B2 30 |.6..235...;.S4.0|
00000AA0: 3A 43 B2 30 3A 81 54 B2 30 A4 37 00 CD 12 40 01 |:C.0:.T.0.7...@.|
00000AB0: 8B C2 28 31 30 32 34 AA 58 AC 34 30 AA 33 37 AB |..(1024.X.40.37.|
00000AC0: 54 29 B2 38 31 A7 43 B2 43 AA 32 AE 54 00 E6 12 |T).81.C.C.2.T...|
00000AD0: 45 01 82 3A 97 42 AA 58 AB 31 30 2C 43 3A 99 45 |E..:.B.X.10,C:.E|
00000AE0: 24 28 39 29 3A 8E 00 F5 12 4A 01 50 B2 C2 28 35 |$(9):....J.P..(5|
00000AF0: 36 33 32 30 29 00 07 13 4F 01 53 30 B2 AB 28 28 |6320)...O.S0..((|
00000B00: 50 AF 31 29 B2 30 29 00 19 13 54 01 53 31 B2 AB |P.1).0)...T.S1..|
00000B10: 28 28 50 AF 32 29 B2 30 29 00 2B 13 59 01 53 32 |((P.2).0).+.Y.S2|
00000B20: B2 AB 28 28 50 AF 34 29 B2 30 29 00 3D 13 5E 01 |..((P.4).0).=.^.|
00000B30: 53 33 B2 AB 28 28 50 AF 38 29 B2 30 29 00 50 13 |S3..((P.8).0).P.|
00000B40: 63 01 53 34 B2 AB 28 28 50 AF 31 36 29 B2 30 29 |c.S4..((P.16).0)|
00000B50: 00 56 13 68 01 8E 00 8E 13 6D 01 99 22 91 91 91 |.V.h.....m.."...|
00000B60: 22 45 52 24 45 52 24 45 52 24 3A 99 22 91 91 22 |"ER$ER$ER$:.".."|
00000B70: A6 31 30 29 22 12 54 92 41 50 45 20 4F 52 20 12 |.10)".T.APE OR .|
00000B80: 44 92 49 53 4B 20 28 54 2F 44 29 3F 11 22 00 AB |D.ISK (T/D)?."..|
00000B90: 13 72 01 A1 41 24 3A 8B 41 24 B3 B1 22 54 22 AF |.r..A$:.A$.."T".|
00000BA0: 41 24 B3 B1 22 44 22 A7 33 37 30 00 BC 13 77 01 |A$.."D".370...w.|
00000BB0: 8B 41 24 B2 22 54 22 A7 44 45 B2 31 00 CD 13 7C |.A$."T".DE.1...||
00000BC0: 01 8B 41 24 B2 22 44 22 A7 44 45 B2 38 00 EE 13 |..A$."D".DE.8...|
00000BD0: 81 01 97 37 38 30 2C 31 3A 97 37 38 31 2C 44 45 |...780,1:.781,DE|
00000BE0: 3A 97 37 38 32 2C 31 3A 9E 36 35 34 36 36 00 22 |:.782,1:.65466."|
00000BF0: 14 86 01 97 38 32 38 2C C6 28 22 40 22 29 3A 97 |....828,.("@"):.|
00000C00: 38 32 39 2C C6 28 22 30 22 29 3A 97 38 33 30 2C |829,.("0"):.830,|
00000C10: C6 28 22 3A 22 29 3A 97 38 33 31 2C C6 28 22 43 |.(":"):.831,.("C|
00000C20: 22 29 00 56 14 8B 01 97 38 33 32 2C C6 28 22 48 |").V....832,.("H|
00000C30: 22 29 3A 97 38 33 33 2C C6 28 22 52 22 29 3A 97 |"):.833,.("R"):.|
00000C40: 38 33 34 2C C6 28 22 27 22 29 3A 97 38 33 35 2C |834,.("'"):.835,|
00000C50: C6 28 22 53 22 29 00 77 14 90 01 97 37 38 30 2C |.("S").w....780,|
00000C60: 38 3A 97 37 38 31 2C 36 30 3A 97 37 38 32 2C 33 |8:.781,60:.782,3|
00000C70: 3A 9E 36 35 34 36 39 00 B3 14 95 01 97 32 35 31 |:.65469......251|
00000C80: 2C 30 30 3A 97 32 35 32 2C 34 38 3A 97 37 38 30 |,00:.252,48:.780|
00000C90: 2C 32 35 31 3A 97 37 38 31 2C 32 35 35 3A 97 37 |,251:.781,255:.7|
00000CA0: 38 32 2C 35 35 3A 9E 36 35 34 39 36 3A 9E 36 35 |82,55:.65496:.65|
00000CB0: 35 31 31 00 BC 14 9A 01 89 31 30 35 00 00 00 |511......105... |
..G.... ****PRG CHARACTERS****
FOR PUBLIC DOMAIN, INC..A.... BY
RAY SMITH (KR8B).W.... ENGLEWOOD, OHIO.
..... SEPT. 12, 1984.U.... ADD FOLLOWING
IN YOUR PRG TO ENABLE YOUR C
HARACTER SET..".... POKE 52,48:POKE 56,4
8:CLR THIS PROTECTS YOUR C
HARACTERS..M.... POKE 53272,PEEK(53272)A
ND240)+12 THIS ENABLES YOUR CHARA
CTERS...... THE CHARACTERS ARE SAVED UND
ER THE NAME "CHR'S"...... FOR M
ORE INFORMATION CONSULT THE PROGR
AMMER'S REFERENCE GUIDE...... PAGE 108..
. HAPPY PROGRAMMING....1....65511:.L.0.9
5.X...."...".8)"PROGRAMMABLE CHARACTERS"
......".. .L.OAD OR .C.REATE NEW CHARACT
ER SET (L/C)?"......A$:.A$.."L".A$.."C".
25......A$."C".60...#.."..".10)".T.APE O
R .D.ISK (T/D)?."...(..A$:.A$.."T".A$.."
D".40...-..A$."T".DE.1...2..A$."D".DE.8.
5.7.L.1:."CHR'S",DE,1.F.<..".WRITING 256
CHARACTERS INTO RAM AT $3000".Z.A..52,4
8:.56,48:....F..56334,B(56334).254...K..
1,B(1).251.F.P..I.0.2040:.I.12288,B(I.53
248):..T.U..1,B(1).4...Z..56334,B(56334)
.1./._..E$(25):E$.".....................
......":.T.1.25:E$(T).H(E$,T):..A.D.ER$.
"
"...I.X.17:Y.37:.".. PROGRAMMABLE
CHARACTERS ";.O.J.."
";...K.."
";
.1.L.."
";.A.M.." ".Z.N..T.0.127:.
1064.T,T:....S..". PRESS A KEY TO REV
IEW THE LETTER "...X..". USE JOYST
ICK TO EDIT THE LETTER "...}..".. A
DDRESS VALUE BIT PATTERN IMAGE .".
.....A$:.A$."".130.+...A.F(A$):.A..64.A.
A.64:.A..128.A.A.64.P...B.12288.8.A:.T.0
.7:X(T).B(B.T):.......T.0.7:C.1424.40.T:
." "H(D(B.T).ER$,9)H(D(X(T)).ER$,9);...
..."00000000 ";.C...." ";:.X(T).256..".Q
";:.C.19,49......" ";:.X(T).128..".Q";:.
C.20,49... .." ";:.X(T).64..".Q";:.C.21,
49.-...." ";:.X(T).32..".Q";:.C.22,49.P.
..." ";:.X(T).16..".Q";:.C.23,49.R...."
";:.X(T).8..".Q";:.C.24,49......" ";:.X(
T).4..".Q";:.C.25,49......" ";:.X(T).2..
".Q";:.C.26,49.X...." ";:.X(T).1..".Q";:
.C.27,49...C..:....H.."..
";.G.M..". SCR
EEN CODE ="A" CHR$ CODE ="F(A$):.198,0.
R.R.." F1=ENABLE NEW CHARACTER SE
T"...W..A$.G(133)..53272,(B(53272).240).
12.F...." F3=DISABLE NEW CHARACTE
R SET"......A$.G(134)..53272,(B(53272).2
40).4.%...." F7=SAVE NEW CHARACTE
R SET":.A$.G(136).365......330.>....B(19
8).105.^....1024.X.40.Y,B(1024.X.40.Y).L
....S0.X.X.1.Z....S1.X.X.1......S2.Y.Y.1
......S3.Y.Y.1.K....S4..B(1024.X.40.Y).3
2..1024.X.40.Y,81:.315:.140......S4..B(1
024.X.40.Y).81..1024.X.40.Y,32:.315:.140
......X.10.X.10......X.17.X.17.-."..Y.30
.Y.30.<.'..Y.37.Y.37.J.,..1024.X.40.Y,B(
1024.X.40.Y).128:.T.1.25:....1..1024.X.4
0.Y,B(1024.X.40.Y).128...6..235...;.S4.0
:C.0:.T.0.7.M.@..B(1024.X.40.37.T).81.C.
C.2.T...E..:.B.X.10,C:.E$(9):....J.P.B(5
6320)...O.S0..((P.1).0)...T.S1..((P.2).0
).+.Y.S2..((P.4).0).=.^.S3..((P.8).0).P.
C.S4..((P.16).0).V.H.....M.."..."ER$ER$E
R$:."..".10)".T.APE OR .D.ISK (T/D)?."..
.R..A$:.A$.."T".A$.."D".370...W..A$."T".
DE.1.M.|..A$."D".DE.8......780,1:.781,DE
:.782,1:.65466."....828,F("@"):.829,F("0
"):.830,F(":"):.831,F("C").V....832,F("H
"):.833,F("R"):.834,F("'"):.835,F("S").W
....780,8:.781,60:.782,3:.65469......251
,00:.252,48:.780,251:.781,255:.782,55:.6
5496:.65511......105...
> CLICK IMAGE PREVIEW FOR FULL MODAL