EDITOR.TOLP
FILE INFORMATION
FILENAME(S): EDITOR.TOLP
FILE TYPE(S): PRG
FILE SIZE: 4.7K
FIRST SEEN: 2025-11-02 17:01:56
APPEARS ON: 5 disk(s)
FILE HASH
ea0b28a66fca0ee74b293a723fd105bf2988acd9ed4c20ac024d4e839f624410
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| MISC11 | EDITOR.TOLP | PRG | Treasure Chest - Spook | 26 | 7 | DOWNLOAD FILE |
| 10012 SEITE A | EDITOR.TOLP | PRG | C64er, DuncanTwain | 27 | 7 | DOWNLOAD FILE |
| 10011 SEITE A | EDITOR.TOLP | PRG | BrainSkull, Sammlung, C64er, DuncanTwain | 29 | 1 | DOWNLOAD FILE |
| 64 ER SONDERH 94 | EDITOR.TOLP | PRG | C64er | 14 | 18 | DOWNLOAD FILE |
| 10012 SEITE A | EDITOR.TOLP | PRG | BrainSkull, Sammlung | 27 | 7 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8F 20 2A 2A 2A 2A 20 20 45 44 |..".... **** ED|
00000010: 49 54 4F 52 2E 54 4F 4C 50 20 36 34 20 20 2A 2A |ITOR.TOLP 64 **|
00000020: 2A 2A 00 28 08 0C 00 3A 00 36 08 14 00 86 4C 49 |**.(...:.6....LI|
00000030: 28 33 32 2C 32 29 00 7D 08 19 00 55 24 B2 22 11 |(32,2).}...U$.".|
00000040: 22 3A 4F 24 B2 22 91 22 3A 52 24 B2 22 1D 22 3A |":O$.".":R$.".":|
00000050: 4C 24 B2 22 9D 22 3A 46 37 24 B2 22 88 22 3A 46 |L$.".":F7$.".":F|
00000060: 31 24 B2 22 85 22 3A 51 B2 C6 28 22 23 22 29 3A |1$.".":Q..("#"):|
00000070: 41 42 24 B2 22 5F 22 3A 50 B2 31 36 30 00 B8 08 |AB$."_":P.160...|
00000080: 1B 00 45 24 B2 C7 28 31 33 29 3A 99 C7 28 31 34 |..E$..(13):..(14|
00000090: 29 C7 28 38 29 3A 42 45 B2 32 30 30 30 30 3A 42 |).(8):BE.20000:B|
000000A0: 48 B2 B5 28 42 45 AD 32 35 36 29 3A 42 4C B2 42 |H..(BE.256):BL.B|
000000B0: 45 AB 42 48 AC 32 35 36 00 D8 08 1E 00 97 35 33 |E.BH.256......53|
000000C0: 32 38 30 2C 31 31 3A 97 35 33 32 38 31 2C 31 32 |280,11:.53281,12|
000000D0: 3A 97 36 34 36 2C 31 31 00 0B 09 21 00 99 22 93 |:.646,11...!..".|
000000E0: 12 20 20 20 20 20 50 52 4F 47 52 41 4D 4D 45 44 |. PROGRAMMED|
000000F0: 20 42 59 20 D4 48 4F 4D 41 53 20 D3 43 48 4C 4F | BY .HOMAS .CHLO|
00000100: 45 47 4C 20 20 20 20 20 20 92 22 00 3A 09 22 00 |EGL .".:.".|
00000110: 99 22 11 11 11 22 A3 37 29 22 90 2D 2D 2D 2D 2D |."...".7)".-----|
00000120: 20 45 44 49 54 4F 52 2E 54 4F 4C 50 20 36 34 90 | EDITOR.TOLP 64.|
00000130: 20 2D 2D 2D 2D 2D 97 11 11 22 00 5F 09 23 00 99 | -----..."._.#..|
00000140: A3 38 29 22 5B 31 5D 20 44 45 53 49 47 4E 49 4E |.8)"[1] DESIGNIN|
00000150: 47 20 41 20 43 48 41 52 41 43 54 45 52 11 22 00 |G A CHARACTER.".|
00000160: 82 09 25 00 99 A3 38 29 22 5B 32 5D 20 4C 4F 4F |..%...8)"[2] LOO|
00000170: 4B 20 41 54 20 41 20 43 48 41 52 41 43 54 45 52 |K AT A CHARACTER|
00000180: 11 22 00 A0 09 28 00 99 A3 38 29 22 5B 33 5D 20 |."...(...8)"[3] |
00000190: 4C 4F 41 44 49 4E 47 20 41 20 46 4F 4E 54 11 22 |LOADING A FONT."|
000001A0: 00 BC 09 2A 00 99 A3 38 29 22 5B 34 5D 20 53 41 |...*...8)"[4] SA|
000001B0: 56 49 4E 47 20 41 20 46 4F 4E 54 22 00 DB 09 2D |VING A FONT"...-|
000001C0: 00 A1 4B 4B 24 3A 8B C5 28 4B 4B 24 29 B1 34 B0 |..KK$:..(KK$).4.|
000001D0: C5 28 4B 4B 24 29 B2 30 A7 34 35 00 F9 09 2F 00 |.(KK$).0.45.../.|
000001E0: 91 C5 28 4B 4B 24 29 89 36 30 2C 35 30 30 30 2C |..(KK$).60,5000,|
000001F0: 37 30 30 30 2C 36 30 30 30 00 FF 09 34 00 3A 00 |7000,6000...4.:.|
00000200: 21 0A 35 00 8F 20 2A 2A 2A 20 42 55 49 4C 44 49 |!.5.. *** BUILDI|
00000210: 4E 47 20 54 48 45 20 53 43 52 45 45 4E 20 2A 2A |NG THE SCREEN **|
00000220: 2A 00 2B 0A 3C 00 8D 34 32 30 30 00 4E 0A 5A 00 |*.+.<..4200.N.Z.|
00000230: 58 B2 30 3A 59 B2 30 3A 53 B2 C6 28 22 2B 22 29 |X.0:Y.0:S..("+")|
00000240: 3A 58 31 B2 AB 31 3A 97 31 38 32 37 2C 51 00 54 |:X1..1:.1827,Q.T|
00000250: 0A 61 00 3A 00 6E 0A 62 00 8F 20 2A 2A 2A 20 4D |.a.:.n.b.. *** M|
00000260: 41 49 4E 2D 42 52 41 4E 43 48 20 2A 2A 2A 00 99 |AIN-BRANCH ***..|
00000270: 0A 64 00 58 4C B2 58 3A 59 4C B2 59 3A 8D 32 30 |.d.XL.X:YL.Y:.20|
00000280: 30 30 3A 91 46 4C 89 32 30 30 2C 33 30 30 2C 34 |00:.FL.200,300,4|
00000290: 30 30 2C 35 30 30 2C 32 35 00 9F 0A C5 00 3A 00 |00,500,25.....:.|
000002A0: BD 0A C6 00 8F 20 2A 2A 2A 20 4D 4F 56 45 20 54 |..... *** MOVE T|
000002B0: 48 45 20 43 55 52 53 4F 52 20 2A 2A 2A 00 ED 0A |HE CURSOR ***...|
000002C0: C8 00 55 B2 58 4C 3A 56 B2 59 4C 3A 8D 33 30 30 |..U.XL:V.YL:.300|
000002D0: 30 3A 97 41 44 2C 53 3A 55 B2 58 3A 56 B2 59 3A |0:.AD,S:U.X:V.Y:|
000002E0: 8D 33 30 30 30 3A 53 B2 C2 28 41 44 29 00 07 0B |.3000:S..(AD)...|
000002F0: CD 00 8B 53 B2 31 36 30 A7 97 41 44 2C 51 AA 31 |...S.160..AD,Q.1|
00000300: 32 38 3A 89 32 32 30 00 11 0B D2 00 97 41 44 2C |28:.220......AD,|
00000310: 51 00 1A 0B DC 00 89 31 30 30 00 20 0B 29 01 3A |Q......100. .).:|
00000320: 00 45 0B 2A 01 8F 20 2A 2A 20 53 54 4F 52 45 20 |.E.*.. ** STORE |
00000330: 54 48 45 20 50 4F 49 4E 54 20 41 4E 44 20 44 52 |THE POINT AND DR|
00000340: 41 57 20 2A 2A 00 6A 0B 2B 01 8F 20 2A 2A 20 49 |AW **.j.+.. ** I|
00000350: 46 20 49 54 27 53 20 4E 45 43 45 53 53 41 52 59 |F IT'S NECESSARY|
00000360: 20 41 20 4C 49 4E 45 20 2A 2A 00 7D 0B 2C 01 8B | A LINE **.}.,..|
00000370: 58 B2 31 35 AF 59 B2 31 35 A7 33 38 30 00 9C 0B |X.15.Y.15.380...|
00000380: 2E 01 99 5A 41 3B 22 11 20 20 20 20 20 20 20 20 |...ZA;". |
00000390: 20 20 20 20 20 20 20 20 20 91 91 22 00 AA 0B 31 | .."...1|
000003A0: 01 8B 5A 41 B2 30 A7 33 31 30 00 CD 0B 33 01 8B |..ZA.0.310...3..|
000003B0: 4C 49 28 5A 41 AB 31 2C 30 29 B2 58 AF 4C 49 28 |LI(ZA.1,0).X.LI(|
000003C0: 5A 41 AB 31 2C 31 29 B2 59 A7 33 38 30 00 F7 0B |ZA.1,1).Y.380...|
000003D0: 36 01 4C 49 28 5A 41 2C 30 29 B2 58 3A 4C 49 28 |6.LI(ZA,0).X:LI(|
000003E0: 5A 41 2C 31 29 B2 59 3A 8D 33 35 30 30 3A 8B 46 |ZA,1).Y:.3500:.F|
000003F0: 5A B2 31 A7 35 30 30 00 28 0C 40 01 8B 58 31 B2 |Z.1.500.(.@..X1.|
00000400: AB 31 A7 58 31 B2 58 3A 59 31 B2 59 3A 55 B2 58 |.1.X1.X:Y1.Y:U.X|
00000410: 3A 56 B2 59 3A 8D 33 30 30 30 3A 97 41 44 2C 51 |:V.Y:.3000:.AD,Q|
00000420: AA 31 32 38 3A 53 B2 50 00 4D 0C 4A 01 58 32 B2 |.128:S.P.M.J.X2.|
00000430: 58 3A 59 32 B2 59 3A 8D 34 30 30 30 3A 58 31 B2 |X:Y2.Y:.4000:X1.|
00000440: 58 32 3A 59 31 B2 59 32 3A 89 31 30 30 00 6D 0C |X2:Y1.Y2:.100.m.|
00000450: 7C 01 99 22 11 20 20 20 4E 4F 54 20 50 4F 53 53 ||..". NOT POSS|
00000460: 49 42 4C 45 21 91 91 22 3A 89 31 30 30 00 73 0C |IBLE!..":.100.s.|
00000470: 8D 01 3A 00 92 0C 8E 01 8F 20 2A 2A 2A 20 53 54 |..:...... *** ST|
00000480: 41 52 54 20 41 20 4E 45 57 20 4C 49 4E 45 20 2A |ART A NEW LINE *|
00000490: 2A 2A 00 A1 0C 90 01 8B 58 31 B2 AB 31 A7 31 30 |**......X1..1.10|
000004A0: 30 00 C0 0C 95 01 99 5A 41 3B 22 11 20 20 20 20 |0......ZA;". |
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 91 91 22 | .."|
000004C0: 00 D5 0C 9A 01 58 31 B2 AB 31 3A 8D 33 35 30 30 |.....X1..1:.3500|
000004D0: 3A 89 31 30 30 00 DB 0C F1 01 3A 00 FD 0C F2 01 |:.100.....:.....|
000004E0: 8F 20 2A 2A 2A 20 53 54 4F 52 45 20 54 48 45 20 |. *** STORE THE |
000004F0: 43 48 41 52 41 43 54 45 52 20 2A 2A 2A 00 1A 0D |CHARACTER ***...|
00000500: F4 01 55 B2 58 3A 56 B2 59 3A 8D 33 30 30 30 3A |..U.X:V.Y:.3000:|
00000510: 97 41 44 2C 53 3A 41 41 B2 30 00 37 0D F9 01 8B |.AD,S:AA.0.7....|
00000520: 43 4F 24 B2 C7 28 33 34 29 A7 43 4F 24 B2 43 4F |CO$..(34).CO$.CO|
00000530: 24 AA C7 28 33 34 29 00 67 0D FE 01 99 22 93 90 |$..(34).g...."..|
00000540: 43 48 41 52 41 43 54 45 52 3A 20 20 22 2C 22 27 |CHARACTER: ","'|
00000550: 22 43 4F 24 22 27 20 20 20 22 43 4F 3B C6 28 43 |"CO$"' "CO;.(C|
00000560: 4F 24 29 22 11 97 22 00 8D 0D 08 02 81 49 B2 30 |O$)".."......I.0|
00000570: A4 31 35 3A 8D 36 30 30 3A 82 3A 97 31 39 38 2C |.15:.600:.:.198,|
00000580: 30 3A 92 31 39 38 2C 31 3A 99 22 93 22 00 A1 0D |0:.198,1:."."...|
00000590: 12 02 81 49 B2 31 36 A4 33 31 3A 8D 36 30 30 3A |...I.16.31:.600:|
000005A0: 82 00 BB 0D 1C 02 97 31 39 38 2C 30 3A 92 31 39 |.......198,0:.19|
000005B0: 38 2C 31 3A 8B 41 41 B1 30 A7 8E 00 E1 0D 26 02 |8,1:.AA.0.....&.|
000005C0: 43 4F B2 C6 28 43 4F 24 29 3A 43 4F B2 43 4F AA |CO..(CO$):CO.CO.|
000005D0: 31 3A 43 4F 24 B2 C7 28 43 4F 29 3A 8D 31 35 31 |1:CO$..(CO):.151|
000005E0: 37 00 EF 0D 30 02 8D 34 32 31 30 3A 89 39 30 00 |7...0..4210:.90.|
000005F0: 29 0E 58 02 4C 49 28 49 2C 32 29 B2 4C 49 28 49 |).X.LI(I,2).LI(I|
00000600: 2C 30 29 AC 31 36 AA 4C 49 28 49 2C 31 29 3A 99 |,0).16.LI(I,1):.|
00000610: 49 2C 4C 49 28 49 2C 30 29 2C 4C 49 28 49 2C 31 |I,LI(I,0),LI(I,1|
00000620: 29 2C 4C 49 28 49 2C 32 29 00 43 0E 62 02 97 42 |),LI(I,2).C.b..B|
00000630: 45 AA 43 4F AC 33 32 AA 49 2C 4C 49 28 49 2C 32 |E.CO.32.I,LI(I,2|
00000640: 29 3A 8E 00 49 0E 1E 03 3A 00 6A 0E 1F 03 8F 20 |):..I...:.j.... |
00000650: 2A 2A 2A 20 45 52 41 53 45 20 54 48 45 20 4C 49 |*** ERASE THE LI|
00000660: 2D 41 52 52 41 59 20 2A 2A 2A 00 9C 0E 20 03 81 |-ARRAY ***... ..|
00000670: 49 B2 30 A4 33 32 3A 4C 49 28 49 2C 30 29 B2 31 |I.0.32:LI(I,0).1|
00000680: 35 3A 4C 49 28 49 2C 31 29 B2 31 35 3A 4C 49 28 |5:LI(I,1).15:LI(|
00000690: 49 2C 32 29 B2 32 35 35 3A 82 3A 8E 00 A2 0E E5 |I,2).255:.:.....|
000006A0: 03 3A 00 A8 0E E6 03 3A 00 C2 0E E7 03 8F 20 2A |.:.....:...... *|
000006B0: 2A 2A 20 53 55 42 52 4F 55 54 49 4E 45 53 20 2A |** SUBROUTINES *|
000006C0: 2A 2A 00 E2 0E E8 03 99 22 20 20 12 20 30 31 32 |**......" . 012|
000006D0: 33 34 35 36 37 38 39 30 31 32 33 34 35 20 92 22 |3456789012345 ."|
000006E0: 3A 8E 00 01 0F F2 03 99 A3 33 29 22 90 2B 2B 2B |:........3)".+++|
000006F0: 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 2B 97 22 3A |+++++++++++++.":|
00000700: 8E 00 07 0F DA 05 3A 00 2B 0F DB 05 8F 20 2A 2A |......:.+.... **|
00000710: 2A 20 47 45 54 54 49 4E 47 20 54 48 45 20 43 48 |* GETTING THE CH|
00000720: 41 52 41 43 54 45 52 20 2A 2A 2A 00 55 0F DC 05 |ARACTER ***.U...|
00000730: 85 22 11 11 90 20 20 20 20 20 20 20 20 43 48 41 |."... CHA|
00000740: 52 41 43 54 45 52 3A 20 43 20 4F 52 20 41 53 43 |RACTER: C OR ASC|
00000750: 22 3B 43 4F 24 00 6E 0F E1 05 8B 43 4F 24 B2 22 |";CO$.n....CO$."|
00000760: 5F 22 A7 8D 31 38 30 30 3A 89 31 35 30 30 00 96 |_"..1800:.1500..|
00000770: 0F E6 05 8B C3 28 43 4F 24 29 B1 31 A7 43 4F B2 |.....(CO$).1.CO.|
00000780: C5 28 43 4F 24 29 3A 43 4F 24 B2 C7 28 43 4F 29 |.(CO$):CO$..(CO)|
00000790: 3A 89 31 35 31 37 00 A7 0F EB 05 8B 43 4F 24 B2 |:.1517......CO$.|
000007A0: 22 22 A7 31 35 30 30 00 D0 0F ED 05 43 4F B2 C6 |"".1500.....CO..|
000007B0: 28 43 4F 24 29 3A 8B 43 4F B3 33 33 B0 28 43 4F |(CO$):.CO.33.(CO|
000007C0: B1 39 33 AF 43 4F B3 31 36 30 29 A7 31 35 30 30 |.93.CO.160).1500|
000007D0: 00 EE 0F F0 05 43 4F B2 43 4F AB 33 33 3A 8B 43 |.....CO.CO.33:.C|
000007E0: 4F B1 31 35 39 A7 43 4F B2 43 4F AB 39 39 00 FE |O.159.CO.CO.99..|
000007F0: 0F FA 05 8B 43 4F B1 38 36 A7 31 35 30 30 00 04 |....CO.86.1500..|
00000800: 10 2C 06 8E 00 37 10 08 07 99 22 11 22 3A 81 49 |.,...7....".":.I|
00000810: B2 33 33 A4 39 33 3A 43 4F 24 B2 C7 28 49 29 3A |.33.93:CO$..(I):|
00000820: 8D 31 35 31 37 3A 99 2C 43 4F 2C C6 28 43 4F 24 |.1517:.,CO,.(CO$|
00000830: 29 2C 43 4F 24 3A 82 00 6D 10 12 07 81 49 B2 C6 |),CO$:..m....I..|
00000840: 28 22 C1 22 29 A4 C6 28 22 DA 22 29 3A 43 4F 24 |(".")..("."):CO$|
00000850: B2 C7 28 49 29 3A 8D 31 35 31 37 3A 99 2C 43 4F |..(I):.1517:.,CO|
00000860: 2C C6 28 43 4F 24 29 2C 43 4F 24 3A 82 00 73 10 |,.(CO$),CO$:..s.|
00000870: 58 07 8E 00 79 10 CD 07 3A 00 95 10 CE 07 8F 20 |X...y...:...... |
00000880: 2A 2A 2A 20 47 45 54 54 49 4E 47 20 41 20 4B 45 |*** GETTING A KE|
00000890: 59 20 2A 2A 2A 00 D6 10 D0 07 A1 4B 24 3A 8B 4B |Y ***......K$:.K|
000008A0: 24 B2 55 24 B0 4B 24 B2 4F 24 B0 4B 24 B2 52 24 |$.U$.K$.O$.K$.R$|
000008B0: B0 4B 24 B2 4C 24 B0 4B 24 B2 46 37 24 B0 4B 24 |.K$.L$.K$.F7$.K$|
000008C0: B2 46 31 24 B0 4B 24 B2 45 24 B0 4B 24 B2 41 42 |.F1$.K$.E$.K$.AB|
000008D0: 24 A7 32 30 30 38 00 E0 10 D5 07 89 32 30 30 30 |$.2008......2000|
000008E0: 00 E9 10 D8 07 46 4C B2 31 00 05 11 DA 07 8B 4B |.....FL.1......K|
000008F0: 24 B2 55 24 A7 59 B2 59 AB 31 3A 8B 59 B2 AB 31 |$.U$.Y.Y.1:.Y..1|
00000900: A7 59 B2 31 35 00 21 11 E4 07 8B 4B 24 B2 4F 24 |.Y.15.!....K$.O$|
00000910: A7 59 B2 59 AA 31 3A 8B 59 B2 31 36 A7 59 B2 20 |.Y.Y.1:.Y.16.Y. |
00000920: 30 00 3D 11 EE 07 8B 4B 24 B2 4C 24 A7 58 B2 58 |0.=....K$.L$.X.X|
00000930: AB 31 3A 8B 58 B2 AB 31 A7 58 B2 31 35 00 59 11 |.1:.X..1.X.15.Y.|
00000940: F8 07 8B 4B 24 B2 52 24 A7 58 B2 58 AA 31 3A 8B |...K$.R$.X.X.1:.|
00000950: 58 B2 31 36 A7 58 B2 20 30 00 6A 11 02 08 8B 4B |X.16.X. 0.j....K|
00000960: 24 B2 46 31 24 A7 46 4C B2 32 00 7B 11 0C 08 8B |$.F1$.FL.2.{....|
00000970: 4B 24 B2 46 37 24 A7 46 4C B2 33 00 8B 11 16 08 |K$.F7$.FL.3.....|
00000980: 8B 4B 24 B2 45 24 A7 46 4C B2 34 00 9C 11 20 08 |.K$.E$.FL.4... .|
00000990: 8B 4B 24 B2 41 42 24 A7 46 4C B2 35 00 A2 11 2A |.K$.AB$.FL.5...*|
000009A0: 08 8E 00 A8 11 B5 0B 3A 00 CD 11 B6 0B 8F 20 2A |.......:...... *|
000009B0: 20 54 52 41 4E 53 46 4F 52 4D 20 55 2C 56 20 54 | TRANSFORM U,V T|
000009C0: 4F 20 41 4E 20 41 44 52 45 53 53 20 2A 00 E7 11 |O AN ADRESS *...|
000009D0: B8 0B 41 44 B2 31 30 32 34 AA 28 32 30 AB 56 29 |..AD.1024.(20.V)|
000009E0: AC 34 30 AA 55 AA 33 00 ED 11 C2 0B 8E 00 07 12 |.40.U.3.........|
000009F0: AC 0D 8B 5A 41 B3 32 39 A7 5A 41 B2 5A 41 AA 31 |...ZA.29.ZA.ZA.1|
00000A00: 3A 46 5A B2 30 3A 8E 00 12 12 B6 0D 46 5A B2 31 |:FZ.0:......FZ.1|
00000A10: 3A 8E 00 18 12 9D 0F 3A 00 3D 12 9E 0F 8F 20 2A |:......:.=.... *|
00000A20: 2A 20 44 52 41 57 20 46 52 4F 4D 20 58 31 2C 59 |* DRAW FROM X1,Y|
00000A30: 31 20 54 4F 20 58 32 2C 59 32 20 2A 2A 00 4D 12 |1 TO X2,Y2 **.M.|
00000A40: A0 0F 58 58 B2 58 31 3A 59 59 B2 59 31 00 6F 12 |..XX.X1:YY.Y1.o.|
00000A50: A5 0F 44 58 B2 B5 28 B6 28 58 31 AB 58 32 29 29 |..DX..(.(X1.X2))|
00000A60: 3A 44 59 B2 B5 28 B6 28 59 31 AB 59 32 29 29 00 |:DY..(.(Y1.Y2)).|
00000A70: 8B 12 AA 0F 53 31 B2 B4 28 58 32 AB 58 31 29 3A |....S1..(X2.X1):|
00000A80: 53 32 B2 B4 28 59 32 AB 59 31 29 00 B0 12 B4 0F |S2..(Y2.Y1).....|
00000A90: 54 B2 30 3A 8B 44 58 B3 44 59 A7 44 44 B2 44 58 |T.0:.DX.DY.DD.DX|
00000AA0: 3A 44 58 B2 44 59 3A 44 59 B2 44 44 3A 54 B2 31 |:DX.DY:DY.DD:T.1|
00000AB0: 00 CC 12 BE 0F 49 31 B2 32 AC 44 59 3A 49 32 B2 |.....I1.2.DY:I2.|
00000AC0: 32 AC 44 58 3A 44 B2 49 31 AB 44 58 00 EE 12 C8 |2.DX:D.I1.DX....|
00000AD0: 0F 81 49 B2 31 A4 44 58 3A 55 B2 58 58 3A 56 B2 |..I.1.DX:U.XX:V.|
00000AE0: 59 59 3A 8D 33 30 30 30 3A 97 41 44 2C 50 00 FC |YY:.3000:.AD,P..|
00000AF0: 12 D2 0F 8B 44 B3 30 A7 34 30 39 30 00 14 13 DC |....D.0.4090....|
00000B00: 0F 8B 54 B2 31 A7 58 58 B2 58 58 AA 53 31 3A 89 |..T.1.XX.XX.S1:.|
00000B10: 34 30 38 30 00 21 13 E6 0F 59 59 B2 59 59 AA 53 |4080.!...YY.YY.S|
00000B20: 32 00 2C 13 F0 0F 44 B2 44 AB 49 32 00 44 13 FA |2.,...D.D.I2.D..|
00000B30: 0F 8B 54 B2 31 A7 59 59 B2 59 59 AA 53 32 3A 89 |..T.1.YY.YY.S2:.|
00000B40: 34 31 31 30 00 51 13 04 10 58 58 B2 58 58 AA 53 |4110.Q...XX.XX.S|
00000B50: 31 00 5F 13 0E 10 44 B2 44 AA 49 31 3A 82 49 00 |1._...D.D.I1:.I.|
00000B60: 83 13 18 10 55 B2 58 58 3A 56 B2 59 59 3A 8D 33 |....U.XX:V.YY:.3|
00000B70: 30 30 30 3A 97 41 44 2C 51 AA 31 32 38 3A 53 B2 |000:.AD,Q.128:S.|
00000B80: 50 3A 8E 00 8D 13 68 10 8D 31 35 30 30 00 C6 13 |P:....h..1500...|
00000B90: 72 10 99 22 97 93 12 20 20 20 20 20 20 20 20 2D |r.."... -|
00000BA0: 2D 2D 2D 2D 20 45 44 49 54 4F 52 2E 54 4F 4C 50 |---- EDITOR.TOLP|
00000BB0: 20 36 34 20 2D 2D 2D 2D 2D 20 20 20 20 20 20 92 | 64 ----- .|
00000BC0: 22 3A 5A 41 B2 30 00 E3 13 74 10 8B 43 4F 24 B2 |":ZA.0...t..CO$.|
00000BD0: C7 28 33 34 29 A7 43 4F 24 B2 43 4F 24 AA C7 28 |.(34).CO$.CO$..(|
00000BE0: 33 34 29 00 17 14 76 10 99 22 90 20 20 20 20 43 |34)...v..". C|
00000BF0: 48 41 52 41 43 54 45 52 3A 20 20 22 2C 22 27 22 |HARACTER: ","'"|
00000C00: 43 4F 24 22 27 20 20 20 22 2C 43 4F 3B C6 28 43 |CO$"' ",CO;.(C|
00000C10: 4F 24 29 22 97 11 22 00 30 14 77 10 8B 4B 4B 24 |O$)"..".0.w..KK$|
00000C20: B2 22 31 22 A7 8D 34 34 30 30 3A 89 34 32 32 32 |."1"..4400:.4222|
00000C30: 00 3A 14 7C 10 8D 34 35 30 30 00 67 14 7E 10 8D |.:.|..4500.g.~..|
00000C40: 31 30 30 30 3A 81 49 B2 31 35 A4 30 A9 AB 31 3A |1000:.I.15.0..1:|
00000C50: 41 B2 28 49 AD 31 30 AB B5 28 49 AD 31 30 29 29 |A.(I.10..(I.10))|
00000C60: AC 31 30 AA 31 37 36 00 83 14 81 10 8B 49 B3 B1 |.10.176......I..|
00000C70: 33 AF 49 B3 B1 31 31 A7 8D 31 30 31 30 3A 89 34 |3.I..11..1010:.4|
00000C80: 32 33 30 00 A0 14 83 10 99 A3 33 29 22 90 2D 2D |230.......3)".--|
00000C90: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 97 22 |--------------."|
00000CA0: 00 C0 14 86 10 97 31 38 34 33 AB 49 AC 34 30 2C |......1843.I.40,|
00000CB0: 41 3A 97 31 38 32 36 AB 49 AC 34 30 2C 41 3A 82 |A:.1826.I.40,A:.|
00000CC0: 00 E3 14 90 10 8D 31 30 30 30 3A 8D 38 30 30 3A |......1000:.800:|
00000CD0: 97 35 35 35 31 34 2C 31 31 3A 97 31 32 34 32 2C |.55514,11:.1242,|
00000CE0: 31 36 30 00 E9 14 9A 10 8E 00 0C 15 30 11 99 22 |160.........0.."|
00000CF0: 11 11 11 22 A3 32 32 29 22 5B 46 31 5D 20 53 45 |...".22)"[F1] SE|
00000D00: 54 20 41 20 50 4F 49 4E 54 11 11 22 00 28 15 3A |T A POINT..".(.:|
00000D10: 11 99 A3 32 32 29 22 5B 46 37 5D 20 53 54 41 52 |...22)"[F7] STAR|
00000D20: 54 20 41 20 4E 45 57 22 00 3A 15 44 11 99 A3 32 |T A NEW".:.D...2|
00000D30: 39 29 22 4C 49 4E 45 11 11 22 00 52 15 4E 11 99 |9)"LINE..".R.N..|
00000D40: A3 32 32 29 22 5B 43 52 5D 20 53 54 4F 52 45 11 |.22)"[CR] STORE.|
00000D50: 11 22 00 6B 15 58 11 99 A3 32 32 29 22 5B 5F 5D |.".k.X...22)"[_]|
00000D60: 20 20 45 58 49 54 13 11 11 11 22 00 71 15 62 11 | EXIT....".q.b.|
00000D70: 8E 00 8F 15 94 11 99 22 11 11 11 22 A3 32 32 29 |......."...".22)|
00000D80: 22 5B 46 31 5D 20 50 52 45 56 49 4F 55 53 22 00 |"[F1] PREVIOUS".|
00000D90: A6 15 99 11 99 A3 32 39 29 22 43 48 41 52 41 43 |......29)"CHARAC|
00000DA0: 54 45 52 11 11 22 00 BB 15 9E 11 99 A3 32 32 29 |TER..".......22)|
00000DB0: 22 5B 46 37 5D 20 4E 45 58 54 22 00 D2 15 A3 11 |"[F7] NEXT".....|
00000DC0: 99 A3 32 39 29 22 43 48 41 52 41 43 54 45 52 11 |..29)"CHARACTER.|
00000DD0: 11 22 00 E9 15 A8 11 99 A3 32 32 29 22 5B 43 52 |.".......22)"[CR|
00000DE0: 5D 20 44 41 54 41 11 11 22 00 02 16 B2 11 99 A3 |] DATA..".......|
00000DF0: 32 32 29 22 5B 5F 5D 20 20 45 58 49 54 13 11 11 |22)"[_] EXIT...|
00000E00: 11 22 00 08 16 BC 11 8E 00 2A 16 86 13 8F 20 2A |.".......*.... *|
00000E10: 2A 2A 20 53 48 4F 57 49 4E 47 20 41 20 43 48 41 |** SHOWING A CHA|
00000E20: 52 41 43 54 45 52 20 2A 2A 2A 00 34 16 88 13 8D |RACTER ***.4....|
00000E30: 31 35 30 30 00 4D 16 8D 13 8D 34 32 31 30 3A 4C |1500.M....4210:L|
00000E40: 55 B2 30 3A 49 55 B2 30 3A 51 B2 33 32 00 6A 16 |U.0:IU.0:Q.32.j.|
00000E50: 92 13 81 4A B2 30 A4 33 31 3A 49 4E B2 C2 28 42 |...J.0.31:IN..(B|
00000E60: 45 AA 43 4F AC 33 32 AA 4A 29 00 83 16 9C 13 58 |E.CO.32.J).....X|
00000E70: B2 B5 28 49 4E AD 31 36 29 3A 59 B2 49 4E AB 58 |..(IN.16):Y.IN.X|
00000E80: AC 31 36 00 A6 16 A6 13 4C 49 28 4A 2C 30 29 B2 |.16.....LI(J,0).|
00000E90: 58 3A 4C 49 28 4A 2C 31 29 B2 59 3A 4C 49 28 4A |X:LI(J,1).Y:LI(J|
00000EA0: 2C 32 29 B2 49 4E 00 BF 16 B0 13 8B 49 4E B2 32 |,2).IN......IN.2|
00000EB0: 35 35 A7 49 55 B2 49 55 AA 31 3A 4C 55 B2 30 00 |55.IU.IU.1:LU.0.|
00000EC0: D4 16 BA 13 8B 49 55 B2 32 A7 4A B2 33 31 3A 89 |.....IU.2.J.31:.|
00000ED0: 35 31 30 30 00 E5 16 C4 13 8B 49 4E B2 32 35 35 |5100......IN.255|
00000EE0: A7 35 31 30 30 00 0C 17 CE 13 49 55 B2 30 3A 4C |.5100.....IU.0:L|
00000EF0: 55 B2 4C 55 AA 31 3A 8B 4C 55 B2 31 A7 58 32 B2 |U.LU.1:.LU.1.X2.|
00000F00: 58 3A 59 32 B2 59 3A 89 35 31 30 30 00 26 17 D8 |X:Y2.Y:.5100.&..|
00000F10: 13 58 31 B2 58 32 3A 59 31 B2 59 32 3A 58 32 B2 |.X1.X2:Y1.Y2:X2.|
00000F20: 58 3A 59 32 B2 59 00 30 17 E2 13 8D 34 30 30 30 |X:Y2.Y.0....4000|
00000F30: 00 3E 17 EC 13 82 4A 3A 97 31 39 38 2C 30 00 6B |.>....J:.198,0.k|
00000F40: 17 F6 13 A1 4B 24 3A 8B 4B 24 B3 B1 46 37 24 AF |....K$:.K$..F7$.|
00000F50: 4B 24 B3 B1 46 31 24 AF 4B 24 B3 B1 41 42 24 AF |K$..F1$.K$..AB$.|
00000F60: 4B 24 B3 B1 45 24 A7 35 31 31 30 00 8A 17 FB 13 |K$..E$.5110.....|
00000F70: 8B 4B 24 B2 46 31 24 A7 43 4F B2 43 4F AB 31 3A |.K$.F1$.CO.CO.1:|
00000F80: 8B 43 4F B3 30 A7 43 4F B2 30 00 AB 17 00 14 8B |.CO.0.CO.0......|
00000F90: 4B 24 B2 46 37 24 A7 43 4F B2 43 4F AA 31 3A 8B |K$.F7$.CO.CO.1:.|
00000FA0: 43 4F B1 38 36 A7 43 4F B2 38 36 00 C4 17 05 14 |CO.86.CO.86.....|
00000FB0: 8B 43 4F B1 36 30 A7 43 4F 24 B2 C7 28 43 4F AA |.CO.60.CO$..(CO.|
00000FC0: 31 33 32 29 00 DC 17 07 14 8B 43 4F B3 36 31 A7 |132)......CO.61.|
00000FD0: 43 4F 24 B2 C7 28 43 4F AA 33 33 29 00 EB 17 0A |CO$..(CO.33)....|
00000FE0: 14 8B 4B 24 B2 41 42 24 A7 32 35 00 06 18 14 14 |..K$.AB$.25.....|
00000FF0: 8B 4B 24 B2 45 24 A7 41 41 B2 31 3A 8D 35 30 35 |.K$.E$.AA.1:.505|
00001000: 3A 89 35 31 31 30 00 10 18 1E 14 89 35 30 30 35 |:.5110......5005|
00001010: 00 16 18 6E 17 3A 00 30 18 6F 17 8F 20 2A 2A 2A |...n.:.0.o.. ***|
00001020: 20 53 41 56 45 20 41 20 46 4F 4E 54 20 2A 2A 2A | SAVE A FONT ***|
00001030: 00 46 18 70 17 8D 38 30 30 30 3A 8B 46 4F 24 B2 |.F.p..8000:.FO$.|
00001040: 22 5F 22 A7 32 35 00 58 18 75 17 46 4F 24 B2 22 |"_".25.X.u.FO$."|
00001050: 40 30 3A 22 AA 46 4F 24 00 6F 18 7A 17 8D 38 32 |@0:".FO$.o.z..82|
00001060: 30 30 3A 8D 38 33 30 30 3A 9E 31 39 30 32 31 00 |00:.8300:.19021.|
00001070: 77 18 84 17 89 32 35 00 7D 18 56 1B 3A 00 97 18 |w....25.}.V.:...|
00001080: 57 1B 8F 20 2A 2A 2A 20 4C 4F 41 44 20 41 20 46 |W.. *** LOAD A F|
00001090: 4F 4E 54 20 2A 2A 2A 00 AD 18 58 1B 8D 38 30 30 |ONT ***...X..800|
000010A0: 30 3A 8B 46 4F 24 B2 22 5F 22 A7 32 35 00 C4 18 |0:.FO$."_".25...|
000010B0: 62 1B 8D 38 32 30 30 3A 8D 38 33 30 30 3A 9E 31 |b..8200:.8300:.1|
000010C0: 39 30 30 30 00 CC 18 6C 1B 89 32 35 00 D2 18 3E |9000...l..25...>|
000010D0: 1F 3A 00 F0 18 3F 1F 8F 20 2A 2A 2A 20 47 45 54 |.:...?.. *** GET|
000010E0: 20 41 20 46 4F 4E 54 4E 41 4D 45 20 20 2A 2A 2A | A FONTNAME ***|
000010F0: 00 18 19 40 1F 85 22 11 11 90 20 20 20 20 20 20 |...@.."... |
00001100: 20 20 4E 41 4D 45 20 4F 46 20 54 48 45 20 46 4F | NAME OF THE FO|
00001110: 4E 54 3A 22 3B 46 4F 24 00 1E 19 68 1F 8E 00 24 |NT:";FO$...h...$|
00001120: 19 06 20 3A 00 49 19 07 20 8F 20 2A 2A 20 57 52 |.. :.I.. . ** WR|
00001130: 49 54 45 20 46 4F 24 20 54 4F 20 31 39 38 30 30 |ITE FO$ TO 19800|
00001140: 2F 24 34 44 35 38 20 2A 2A 00 74 19 08 20 81 49 |/$4D58 **.t.. .I|
00001150: B2 31 A4 C3 28 46 4F 24 29 3A 97 31 39 38 30 30 |.1..(FO$):.19800|
00001160: AA 49 AB 31 2C C6 28 CA 28 46 4F 24 2C 49 2C 31 |.I.1,.(.(FO$,I,1|
00001170: 29 29 3A 82 00 7A 19 12 20 8E 00 80 19 6A 20 3A |)):..z.. ....j :|
00001180: 00 A3 19 6B 20 8F 20 2A 2A 2A 20 4C 4F 41 44 20 |...k . *** LOAD |
00001190: 54 48 45 20 41 53 53 2D 52 4F 55 54 49 4E 45 20 |THE ASS-ROUTINE |
000011A0: 2A 2A 2A 00 AD 19 6C 20 49 B2 30 3A 8C 00 D4 19 |***...l I.0:....|
000011B0: 76 20 87 49 4E 3A 8B 49 4E B1 B2 30 A7 97 31 39 |v .IN:.IN..0..19|
000011C0: 30 30 30 AA 49 2C 49 4E 3A 49 B2 49 AA 31 3A 89 |000.I,IN:I.I.1:.|
000011D0: 38 33 31 30 00 06 1A 80 20 97 32 35 31 2C 42 4C |8310.... .251,BL|
000011E0: 3A 97 32 35 32 2C 42 48 3A 97 31 39 30 30 38 2C |:.252,BH:.19008,|
000011F0: C3 28 46 4F 24 29 3A 97 31 39 30 32 37 2C C3 28 |.(FO$):.19027,.(|
00001200: 46 4F 24 29 3A 8E 00 41 1A 34 21 83 31 36 32 2C |FO$):..A.4!.162,|
00001210: 38 2C 31 36 30 2C 31 2C 33 32 2C 31 38 36 2C 32 |8,160,1,32,186,2|
00001220: 35 35 2C 31 36 39 2C 30 2C 31 36 32 2C 38 38 2C |55,169,0,162,88,|
00001230: 31 36 30 2C 37 37 2C 33 32 2C 31 38 39 2C 32 35 |160,77,32,189,25|
00001240: 35 00 83 1A 3E 21 83 31 36 39 2C 30 2C 37 36 2C |5...>!.169,0,76,|
00001250: 32 31 33 2C 32 35 35 2C 31 36 32 2C 38 2C 33 32 |213,255,162,8,32|
00001260: 2C 31 38 36 2C 32 35 35 2C 31 36 39 2C 30 2C 31 |,186,255,169,0,1|
00001270: 36 32 2C 38 38 2C 31 36 30 2C 37 37 2C 33 32 2C |62,88,160,77,32,|
00001280: 31 38 39 00 AF 1A 48 21 83 32 35 35 2C 31 36 39 |189...H!.255,169|
00001290: 2C 32 35 31 2C 31 36 32 2C 30 2C 31 36 30 2C 38 |,251,162,0,160,8|
000012A0: 39 2C 37 36 2C 32 31 36 2C 32 35 35 2C 2D 31 00 |9,76,216,255,-1.|
000012B0: 00 00 |.. |
..".... **** EDITOR.TOLP 64 ****.(...:
.6....LI(32,2).}...U$.".":O$.".":R$.".":
L$.".":F7$.".":F1$.".":Q.F("#"):AB$."_":
P.160.....E$.G(13):.G(14)G(8):BE.20000:B
H..(BE.256):BL.BE.BH.256.X....53280,11:.
53281,12:.646,11...!..".. PROGRAMMED
BY THOMAS SCHLOEGL .".:.".."...".7
)".----- EDITOR.TOLP 64. -----..."._.#..
.8)"[1] DESIGNING A CHARACTER."...%...8)
"[2] LOOK AT A CHARACTER.". .(...8)"[3]
LOADING A FONT."...*...8)"[4] SAVING A F
ONT"...-..KK$:.E(KK$).4.E(KK$).0.45.../.
.E(KK$).60,5000,7000,6000...4.:.!.5.. **
* BUILDING THE SCREEN ***.+.<..4200.N.Z.
X.0:Y.0:S.F("+"):X1..1:.1827,Q.T.A.:.N.B
.. *** MAIN-BRANCH ***...D.XL.X:YL.Y:.20
00:.FL.200,300,400,500,25...E.:...F.. **
* MOVE THE CURSOR ***...H.U.XL:V.YL:.300
0:.AD,S:U.X:V.Y:.3000:S.B(AD)...M..S.160
..AD,Q.128:.220...R..AD,Q......100. .).:
.E.*.. ** STORE THE POINT AND DRAW **.J.
+.. ** IF IT'S NECESSARY A LINE **.}.,..
X.15.Y.15.380......ZA;".
.."...1..ZA.0.310.M.3..LI(ZA.1,0).X.LI(
ZA.1,1).Y.380...6.LI(ZA,0).X:LI(ZA,1).Y:
.3500:.FZ.1.500.(.@..X1..1.X1.X:Y1.Y:U.X
:V.Y:.3000:.AD,Q.128:S.P.M.J.X2.X:Y2.Y:.
4000:X1.X2:Y1.Y2:.100.M.|..". NOT POSS
IBLE!..":.100.S...:...... *** START A NE
W LINE ***......X1..1.100......ZA;".
..".U...X1..1:.3500:.100...
..:...... *** STORE THE CHARACTER ***...
..U.X:V.Y:.3000:.AD,S:AA.0.7....CO$.G(34
).CO$.CO$.G(34).G...."..CHARACTER: ","'
"CO$"' "CO;F(CO$)".."......I.0.15:.600
:.:.198,0:.198,1:."."......I.16.31:.600:
.......198,0:.198,1:.AA.0.....&.CO.F(CO$
):CO.CO.1:CO$.G(CO):.1517...0..4210:.90.
).X.LI(I,2).LI(I,0).16.LI(I,1):.I,LI(I,0
),LI(I,1),LI(I,2).C.B..BE.CO.32.I,LI(I,2
):..I...:.J.... *** ERASE THE LI-ARRAY *
**... ..I.0.32:LI(I,0).15:LI(I,1).15:LI(
I,2).255:.:......:.....:.B.... *** SUBRO
UTINES ***......" . 0123456789012345 ."
:........3)".++++++++++++++++.":....Z.:.
+.... *** GETTING THE CHARACTER ***.U...
."... CHARACTER: C OR ASC";CO$.N.
...CO$."_"..1800:.1500......C(CO$).1.CO.
E(CO$):CO$.G(CO):.1517......CO$."".1500.
P...CO.F(CO$):.CO.33.(CO.93.CO.160).1500
.....CO.CO.33:.CO.159.CO.CO.99......CO.8
6.1500...,...7....".":.I.33.93:CO$.G(I):
.1517:.,CO,F(CO$),CO$:..M....I.F("A").F(
"Z"):CO$.G(I):.1517:.,CO,F(CO$),CO$:..S.
X...Y.M.:...N.. *** GETTING A KEY ***.V.
P..K$:.K$.U$.K$.O$.K$.R$.K$.L$.K$.F7$.K$
.F1$.K$.E$.K$.AB$.2008...U..2000...X.FL.
1...Z..K$.U$.Y.Y.1:.Y..1.Y.15.!....K$.O$
.Y.Y.1:.Y.16.Y. 0.=....K$.L$.X.X.1:.X..1
.X.15.Y....K$.R$.X.X.1:.X.16.X. 0.J....K
$.F1$.FL.2.{....K$.F7$.FL.3......K$.E$.F
L.4... ..K$.AB$.FL.5...*.......:.M.... *
TRANSFORM U,V TO AN ADRESS *.....AD.102
4.(20.V).40.U.3...B........ZA.29.ZA.ZA.1
:FZ.0:......FZ.1:......:.=.... ** DRAW F
ROM X1,Y1 TO X2,Y2 **.M. .XX.X1:YY.Y1.O.
..DX..(.(X1.X2)):DY..(.(Y1.Y2)).....S1..
(X2.X1):S2..(Y2.Y1).....T.0:.DX.DY.DD.DX
:DX.DY:DY.DD:T.1.L...I1.2.DY:I2.2.DX:D.I
1.DX...H..I.1.DX:U.XX:V.YY:.3000:.AD,P..
.R..D.0.4090......T.1.XX.XX.S1:.4080.!..
.YY.YY.S2.,...D.D.I2.D....T.1.YY.YY.S2:.
4110.Q...XX.XX.S1._...D.D.I1:.I.....U.XX
:V.YY:.3000:.AD,Q.128:S.P:....H..1500.F.
R.."... ----- EDITOR.TOLP 64 ----
- .":ZA.0...T..CO$.G(34).CO$.CO$.G(
34)...V..". CHARACTER: ","'"CO$"'
",CO;F(CO$)"..".0.W..KK$."1"..4400:.4222
.:.|..4500.G.~..1000:.I.15.0..1:A.(I.10.
.(I.10)).10.176......I..3.I..11..1010:.4
230. .....3)".----------------."......18
43.I.40,A:.1826.I.40,A:.......1000:.800:
.55514,11:.1242,160.........0.."...".22)
"[F1] SET A POINT..".(.:...22)"[F7] STAR
T A NEW".:.D...29)"LINE..".R.N...22)"[CR
] STORE..".K.X...22)"[_] EXIT....".Q.B.
......."...".22)"[F1] PREVIOUS".......29
)"CHARACTER..".......22)"[F7] NEXT".R...
..29)"CHARACTER..".......22)"[CR] DATA..
".......22)"[_] EXIT....".......*.... *
** SHOWING A CHARACTER ***.4....1500.M..
..4210:LU.0:IU.0:Q.32.J....J.0.31:IN.B(B
E.CO.32.J).....X..(IN.16):Y.IN.X.16.....
LI(J,0).X:LI(J,1).Y:LI(J,2).IN......IN.2
55.IU.IU.1:LU.0.T....IU.2.J.31:.5100...D
..IN.255.5100...N.IU.0:LU.LU.1:.LU.1.X2.
X:Y2.Y:.5100.&.X.X1.X2:Y1.Y2:X2.X:Y2.Y.0
....4000.>....J:.198,0.K....K$:.K$..F7$.
K$..F1$.K$..AB$.K$..E$.5110......K$.F1$.
CO.CO.1:.CO.0.CO.0......K$.F7$.CO.CO.1:.
CO.86.CO.86.D....CO.60.CO$.G(CO.132)....
..CO.61.CO$.G(CO.33)......K$.AB$.25.....
.K$.E$.AA.1:.505:.5110......5005...N.:.0
.O.. *** SAVE A FONT ***.F.P..8000:.FO$.
"_".25.X.U.FO$."@0:".FO$.O.Z..8200:.8300
:.19021.W....25.}.V.:...W.. *** LOAD A F
ONT ***...X..8000:.FO$."_".25.D.B..8200:
.8300:.19000.L.L..25.R.>.:...?.. *** GET
A FONTNAME ***...@.."... NAME O
F THE FONT:";FO$...H...$.. :.I.. . ** WR
ITE FO$ TO 19800/$4D58 **.T.. .I.1.C(FO$
):.19800.I.1,F(J(FO$,I,1)):..Z.. ....J :
...K . *** LOAD THE ASS-ROUTINE ***...L
I.0:..T.V .IN:.IN..0..19000.I,IN:I.I.1:.
8310.... .251,BL:.252,BH:.19008,C(FO$):.
19027,C(FO$):..A.4!.162,8,160,1,32,186,2
55,169,0,162,88,160,77,32,189,255...>!.1
69,0,76,213,255,162,8,32,186,255,169,0,1
62,88,160,77,32,189...H!.255,169,251,162
,0,160,89,76,216,255,-1...
> CLICK IMAGE PREVIEW FOR FULL MODAL