PRG CHARACTERS
FILE INFORMATION
FILENAME(S): PRG CHARACTERS
FILE TYPE(S): PRG
FILE SIZE: 3K
FIRST SEEN: 2025-11-30 17:31:36
APPEARS ON: 1 disk(s)
FILE HASH
bfe2d228ae2b1b29934bb3805102cc1631f59a845b60eba9a9ef618ce46a1788
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0016UT | PRG CHARACTERS | PRG | UK CD | 17 | 1 | 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 A4 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 3A 99 22 |ERS ":."|
000004A0: 11 11 11 22 00 BD 0C 6E 00 81 54 B2 30 A4 31 32 |..."...n..T.0.12|
000004B0: 37 3A 97 31 30 36 34 AA 54 2C 54 3A 82 00 ED 0C |7:.1064.T,T:....|
000004C0: 73 00 99 22 20 20 20 20 50 52 45 53 53 20 41 20 |s.." PRESS A |
000004D0: 4B 45 59 20 54 4F 20 52 45 56 49 45 57 20 54 48 |KEY TO REVIEW TH|
000004E0: 45 20 4C 45 54 54 45 52 20 20 20 20 22 00 1E 0D |E LETTER "...|
000004F0: 78 00 99 22 91 20 20 20 20 55 53 45 20 4A 4F 59 |x..". USE JOY|
00000500: 53 54 49 43 4B 20 54 4F 20 45 44 49 54 20 54 48 |STICK TO EDIT TH|
00000510: 45 20 4C 45 54 54 45 52 20 20 20 20 20 22 00 51 |E LETTER ".Q|
00000520: 0D 7D 00 99 22 91 12 20 20 41 44 44 52 45 53 53 |.}..".. ADDRESS|
00000530: 20 20 56 41 4C 55 45 20 20 42 49 54 20 50 41 54 | VALUE BIT PAT|
00000540: 54 45 52 4E 20 20 49 4D 41 47 45 20 20 20 20 92 |TERN IMAGE .|
00000550: 22 00 64 0D 82 00 A1 41 24 3A 8B 41 24 B2 22 22 |".d....A$:.A$.""|
00000560: A7 31 33 30 00 8D 0D 87 00 41 B2 C6 28 41 24 29 |.130.....A..(A$)|
00000570: 3A 8B 41 B2 B1 36 34 A7 41 B2 41 AB 36 34 3A 8B |:.A..64.A.A.64:.|
00000580: 41 B2 B1 31 32 38 A7 41 B2 41 AB 36 34 00 B2 0D |A..128.A.A.64...|
00000590: 8C 00 42 B2 31 32 32 38 38 AA 38 AC 41 3A 81 54 |..B.12288.8.A:.T|
000005A0: B2 30 A4 37 3A 58 28 54 29 B2 C2 28 42 AA 54 29 |.0.7:X(T)..(B.T)|
000005B0: 3A 82 00 EF 0D 92 00 81 54 B2 30 A4 37 3A 43 B2 |:.......T.0.7:C.|
000005C0: 31 34 32 34 AA 34 30 AC 54 3A 99 22 20 20 22 C8 |1424.40.T:." ".|
000005D0: 28 C4 28 42 AA 54 29 AA 45 52 24 2C 39 29 C8 28 |(.(B.T).ER$,9).(|
000005E0: C4 28 58 28 54 29 29 AA 45 52 24 2C 39 29 3B 00 |.(X(T)).ER$,9);.|
000005F0: 01 0E 93 00 99 22 30 30 30 30 30 30 30 30 20 22 |....."00000000 "|
00000600: 3B 00 25 0E 96 00 99 22 20 22 3B 3A 8B 58 28 54 |;.%...." ";:.X(T|
00000610: 29 AF 32 35 36 A7 99 22 9D D1 22 3B 3A 97 43 AA |).256.."..";:.C.|
00000620: 31 39 2C 34 39 00 49 0E 9B 00 99 22 20 22 3B 3A |19,49.I...." ";:|
00000630: 8B 58 28 54 29 AF 31 32 38 A7 99 22 9D D1 22 3B |.X(T).128.."..";|
00000640: 3A 97 43 AA 32 30 2C 34 39 00 6C 0E A0 00 99 22 |:.C.20,49.l...."|
00000650: 20 22 3B 3A 8B 58 28 54 29 AF 36 34 A7 99 22 9D | ";:.X(T).64..".|
00000660: D1 22 3B 3A 97 43 AA 32 31 2C 34 39 00 8F 0E A5 |.";:.C.21,49....|
00000670: 00 99 22 20 22 3B 3A 8B 58 28 54 29 AF 33 32 A7 |.." ";:.X(T).32.|
00000680: 99 22 9D D1 22 3B 3A 97 43 AA 32 32 2C 34 39 00 |."..";:.C.22,49.|
00000690: B2 0E AA 00 99 22 20 22 3B 3A 8B 58 28 54 29 AF |....." ";:.X(T).|
000006A0: 31 36 A7 99 22 9D D1 22 3B 3A 97 43 AA 32 33 2C |16.."..";:.C.23,|
000006B0: 34 39 00 D4 0E AF 00 99 22 20 22 3B 3A 8B 58 28 |49......" ";:.X(|
000006C0: 54 29 AF 38 A7 99 22 9D D1 22 3B 3A 97 43 AA 32 |T).8.."..";:.C.2|
000006D0: 34 2C 34 39 00 F6 0E B4 00 99 22 20 22 3B 3A 8B |4,49......" ";:.|
000006E0: 58 28 54 29 AF 34 A7 99 22 9D D1 22 3B 3A 97 43 |X(T).4.."..";:.C|
000006F0: AA 32 35 2C 34 39 00 18 0F B9 00 99 22 20 22 3B |.25,49......" ";|
00000700: 3A 8B 58 28 54 29 AF 32 A7 99 22 9D D1 22 3B 3A |:.X(T).2.."..";:|
00000710: 97 43 AA 32 36 2C 34 39 00 3A 0F BE 00 99 22 20 |.C.26,49.:...." |
00000720: 22 3B 3A 8B 58 28 54 29 AF 31 A7 99 22 9D D1 22 |";:.X(T).1..".."|
00000730: 3B 3A 97 43 AA 32 37 2C 34 39 00 42 0F C3 00 99 |;:.C.27,49.B....|
00000740: 3A 82 00 75 0F C8 00 99 22 11 12 20 20 20 20 20 |:..u....".. |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 20 20 20 22 3B 00 A9 0F CD 00 99 22 91 20 20 53 | ";......". S|
00000780: 43 52 45 45 4E 20 43 4F 44 45 20 3D 22 41 22 20 |CREEN CODE ="A" |
00000790: 20 43 48 52 24 20 43 4F 44 45 20 3D 22 C6 28 41 | CHR$ CODE =".(A|
000007A0: 24 29 3A 97 31 39 38 2C 30 00 D4 0F D2 00 99 22 |$):.198,0......"|
000007B0: 20 20 20 20 20 20 20 20 46 31 3D 45 4E 41 42 4C | F1=ENABL|
000007C0: 45 20 4E 45 57 20 43 48 41 52 41 43 54 45 52 20 |E NEW CHARACTER |
000007D0: 53 45 54 22 00 FC 0F D7 00 8B 41 24 B2 C7 28 31 |SET"......A$..(1|
000007E0: 33 33 29 A7 97 35 33 32 37 32 2C 28 C2 28 35 33 |33)..53272,(.(53|
000007F0: 32 37 32 29 AF 32 34 30 29 AA 31 32 00 28 10 DC |272).240).12.(..|
00000800: 00 99 22 20 20 20 20 20 20 20 20 46 33 3D 44 49 |.." F3=DI|
00000810: 53 41 42 4C 45 20 4E 45 57 20 43 48 41 52 41 43 |SABLE NEW CHARAC|
00000820: 54 45 52 20 53 45 54 22 00 4F 10 E1 00 8B 41 24 |TER SET".O....A$|
00000830: B2 C7 28 31 33 34 29 A7 97 35 33 32 37 32 2C 28 |..(134)..53272,(|
00000840: C2 28 35 33 32 37 32 29 AF 32 34 30 29 AA 34 00 |.(53272).240).4.|
00000850: 87 10 E6 00 99 22 20 20 20 20 20 20 20 20 46 37 |....." F7|
00000860: 3D 53 41 56 45 20 4E 45 57 20 43 48 41 52 41 43 |=SAVE NEW CHARAC|
00000870: 54 45 52 20 53 45 54 22 3A 8B 41 24 B2 C7 28 31 |TER SET":.A$..(1|
00000880: 33 36 29 A7 33 36 35 00 90 10 EB 00 8D 33 33 30 |36).365......330|
00000890: 00 A0 10 F0 00 8B C2 28 31 39 38 29 A7 31 30 35 |.......(198).105|
000008A0: 00 C0 10 F5 00 97 31 30 32 34 AA 58 AC 34 30 AA |......1024.X.40.|
000008B0: 59 2C C2 28 31 30 32 34 AA 58 AC 34 30 AA 59 29 |Y,.(1024.X.40.Y)|
000008C0: 00 CE 10 FA 00 8B 53 30 A7 58 B2 58 AB 31 00 DC |......S0.X.X.1..|
000008D0: 10 FF 00 8B 53 31 A7 58 B2 58 AA 31 00 EA 10 04 |....S1.X.X.1....|
000008E0: 01 8B 53 32 A7 59 B2 59 AB 31 00 F8 10 09 01 8B |..S2.Y.Y.1......|
000008F0: 53 33 A7 59 B2 59 AA 31 00 2D 11 0E 01 8B 53 34 |S3.Y.Y.1.-....S4|
00000900: A7 8B C2 28 31 30 32 34 AA 58 AC 34 30 AA 59 29 |...(1024.X.40.Y)|
00000910: B2 33 32 A7 97 31 30 32 34 AA 58 AC 34 30 AA 59 |.32..1024.X.40.Y|
00000920: 2C 38 31 3A 8D 33 31 35 3A 89 31 34 30 00 62 11 |,81:.315:.140.b.|
00000930: 13 01 8B 53 34 A7 8B C2 28 31 30 32 34 AA 58 AC |...S4...(1024.X.|
00000940: 34 30 AA 59 29 B2 38 31 A7 97 31 30 32 34 AA 58 |40.Y).81..1024.X|
00000950: AC 34 30 AA 59 2C 33 32 3A 8D 33 31 35 3A 89 31 |.40.Y,32:.315:.1|
00000960: 34 30 00 71 11 18 01 8B 58 B3 31 30 A7 58 B2 31 |40.q....X.10.X.1|
00000970: 30 00 80 11 1D 01 8B 58 B1 31 37 A7 58 B2 31 37 |0......X.17.X.17|
00000980: 00 8F 11 22 01 8B 59 B3 33 30 A7 59 B2 33 30 00 |..."..Y.30.Y.30.|
00000990: 9E 11 27 01 8B 59 B1 33 37 A7 59 B2 33 37 00 CC |..'..Y.37.Y.37..|
000009A0: 11 2C 01 97 31 30 32 34 AA 58 AC 34 30 AA 59 2C |.,..1024.X.40.Y,|
000009B0: C2 28 31 30 32 34 AA 58 AC 34 30 AA 59 29 AA 31 |.(1024.X.40.Y).1|
000009C0: 32 38 3A 81 54 B2 31 A4 32 35 3A 82 00 F0 11 31 |28:.T.1.25:....1|
000009D0: 01 97 31 30 32 34 AA 58 AC 34 30 AA 59 2C C2 28 |..1024.X.40.Y,.(|
000009E0: 31 30 32 34 AA 58 AC 34 30 AA 59 29 AB 31 32 38 |1024.X.40.Y).128|
000009F0: 00 F9 11 36 01 89 32 33 35 00 0D 12 3B 01 53 34 |...6..235...;.S4|
00000A00: B2 30 3A 43 B2 30 3A 81 54 B2 30 A4 37 00 2F 12 |.0:C.0:.T.0.7./.|
00000A10: 40 01 8B C2 28 31 30 32 34 AA 58 AC 34 30 AA 33 |@...(1024.X.40.3|
00000A20: 37 AB 54 29 B2 38 31 A7 43 B2 43 AA 32 AE 54 00 |7.T).81.C.C.2.T.|
00000A30: 48 12 45 01 82 3A 97 42 AA 58 AB 31 30 2C 43 3A |H.E..:.B.X.10,C:|
00000A40: 99 45 24 28 39 29 3A 8E 00 57 12 4A 01 50 B2 C2 |.E$(9):..W.J.P..|
00000A50: 28 35 36 33 32 30 29 00 69 12 4F 01 53 30 B2 AB |(56320).i.O.S0..|
00000A60: 28 28 50 AF 31 29 B2 30 29 00 7B 12 54 01 53 31 |((P.1).0).{.T.S1|
00000A70: B2 AB 28 28 50 AF 32 29 B2 30 29 00 8D 12 59 01 |..((P.2).0)...Y.|
00000A80: 53 32 B2 AB 28 28 50 AF 34 29 B2 30 29 00 9F 12 |S2..((P.4).0)...|
00000A90: 5E 01 53 33 B2 AB 28 28 50 AF 38 29 B2 30 29 00 |^.S3..((P.8).0).|
00000AA0: B2 12 63 01 53 34 B2 AB 28 28 50 AF 31 36 29 B2 |..c.S4..((P.16).|
00000AB0: 30 29 00 B8 12 68 01 8E 00 F0 12 6D 01 99 22 91 |0)...h.....m..".|
00000AC0: 91 91 22 45 52 24 45 52 24 45 52 24 3A 99 22 91 |.."ER$ER$ER$:.".|
00000AD0: 91 22 A6 31 30 29 22 12 54 92 41 50 45 20 4F 52 |.".10)".T.APE OR|
00000AE0: 20 12 44 92 49 53 4B 20 28 54 2F 44 29 3F 11 22 | .D.ISK (T/D)?."|
00000AF0: 00 0D 13 72 01 A1 41 24 3A 8B 41 24 B3 B1 22 54 |...r..A$:.A$.."T|
00000B00: 22 AF 41 24 B3 B1 22 44 22 A7 33 37 30 00 1E 13 |".A$.."D".370...|
00000B10: 77 01 8B 41 24 B2 22 54 22 A7 44 45 B2 31 00 2F |w..A$."T".DE.1./|
00000B20: 13 7C 01 8B 41 24 B2 22 44 22 A7 44 45 B2 38 00 |.|..A$."D".DE.8.|
00000B30: 50 13 81 01 97 37 38 30 2C 31 3A 97 37 38 31 2C |P....780,1:.781,|
00000B40: 44 45 3A 97 37 38 32 2C 31 3A 9E 36 35 34 36 36 |DE:.782,1:.65466|
00000B50: 00 84 13 86 01 97 38 32 38 2C C6 28 22 40 22 29 |......828,.("@")|
00000B60: 3A 97 38 32 39 2C C6 28 22 30 22 29 3A 97 38 33 |:.829,.("0"):.83|
00000B70: 30 2C C6 28 22 3A 22 29 3A 97 38 33 31 2C C6 28 |0,.(":"):.831,.(|
00000B80: 22 43 22 29 00 B8 13 8B 01 97 38 33 32 2C C6 28 |"C")......832,.(|
00000B90: 22 48 22 29 3A 97 38 33 33 2C C6 28 22 52 22 29 |"H"):.833,.("R")|
00000BA0: 3A 97 38 33 34 2C C6 28 22 27 22 29 3A 97 38 33 |:.834,.("'"):.83|
00000BB0: 35 2C C6 28 22 53 22 29 00 D9 13 90 01 97 37 38 |5,.("S")......78|
00000BC0: 30 2C 38 3A 97 37 38 31 2C 36 30 3A 97 37 38 32 |0,8:.781,60:.782|
00000BD0: 2C 33 3A 9E 36 35 34 36 39 00 15 14 95 01 97 32 |,3:.65469......2|
00000BE0: 35 31 2C 30 30 3A 97 32 35 32 2C 34 38 3A 97 37 |51,00:.252,48:.7|
00000BF0: 38 30 2C 32 35 31 3A 97 37 38 31 2C 32 35 35 3A |80,251:.781,255:|
00000C00: 97 37 38 32 2C 35 35 3A 9E 36 35 34 39 36 3A 9E |.782,55:.65496:.|
00000C10: 36 35 35 31 31 00 1E 14 9A 01 89 31 30 35 00 00 |65511......105..|
00000C20: 00 |. |
..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 ":."..."...N..T.0.12
7:.1064.T,T:....S.." PRESS A KEY TO R
EVIEW THE LETTER "...X..". USE JOY
STICK TO EDIT THE LETTER ".Q.}.."..
ADDRESS VALUE BIT PATTERN IMAGE .
".D....A$:.A$."".130.....A.F(A$):.A..64.
A.A.64:.A..128.A.A.64.....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 ";.%...." ";:.X(T).256.."
.Q";:.C.19,49.I...." ";:.X(T).128..".Q";
:.C.20,49.L. .." ";:.X(T).64..".Q";:.C.2
1,49......" ";:.X(T).32..".Q";:.C.22,49.
....." ";:.X(T).16..".Q";:.C.23,49.T....
" ";:.X(T).8..".Q";:.C.24,49......" ";:.
X(T).4..".Q";:.C.25,49......" ";:.X(T).2
..".Q";:.C.26,49.:...." ";:.X(T).1..".Q"
;:.C.27,49.B.C..:..U.H.."..
";...M..". S
CREEN CODE ="A" CHR$ CODE ="F(A$):.198,
0.T.R.." F1=ENABLE NEW CHARACTER
SET"...W..A$.G(133)..53272,(B(53272).240
).12.(...." F3=DISABLE NEW CHARAC
TER SET".O....A$.G(134)..53272,(B(53272)
.240).4......" F7=SAVE NEW CHARAC
TER SET":.A$.G(136).365......330. ....B(
198).105......1024.X.40.Y,B(1024.X.40.Y)
.N....S0.X.X.1......S1.X.X.1......S2.Y.Y
.1......S3.Y.Y.1.-....S4..B(1024.X.40.Y)
.32..1024.X.40.Y,81:.315:.140.B....S4..B
(1024.X.40.Y).81..1024.X.40.Y,32:.315:.1
40.Q....X.10.X.10......X.17.X.17..."..Y.
30.Y.30...'..Y.37.Y.37.L.,..1024.X.40.Y,
B(1024.X.40.Y).128:.T.1.25:....1..1024.X
.40.Y,B(1024.X.40.Y).128...6..235...;.S4
.0:C.0:.T.0.7./.@..B(1024.X.40.37.T).81.
C.C.2.T.H.E..:.B.X.10,C:.E$(9):..W.J.P.B
(56320).I.O.S0..((P.1).0).{.T.S1..((P.2)
.0)...Y.S2..((P.4).0)...^.S3..((P.8).0).
..C.S4..((P.16).0)...H.....M.."..."ER$ER
$ER$:."..".10)".T.APE OR .D.ISK (T/D)?."
...R..A$:.A$.."T".A$.."D".370...W..A$."T
".DE.1./.|..A$."D".DE.8.P....780,1:.781,
DE:.782,1:.65466......828,F("@"):.829,F(
"0"):.830,F(":"):.831,F("C")......832,F(
"H"):.833,F("R"):.834,F("'"):.835,F("S")
.Y....780,8:.781,60:.782,3:.65469......2
51,00:.252,48:.780,251:.781,255:.782,55:
.65496:.65511......105...
> CLICK IMAGE PREVIEW FOR FULL MODAL