COPYFONT
FILE INFORMATION
FILENAME(S): COPYFONT
FILE TYPE(S): PRG
FILE SIZE: 2.4K
FIRST SEEN: 2025-11-30 21:22:19
APPEARS ON: 2 disk(s)
FILE HASH
839f65566166a78c37e001daa05c18a568f0e995770ab7bfa2fe12c9d2ded056
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| BANNER | COPYFONT | PRG | DuncanTwain | 11 | 0 | DOWNLOAD FILE |
| BANNER MACHINE 1 | COPYFONT | PRG | DuncanTwain | 3 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 53 08 01 00 8F 20 43 4F 50 59 46 4F 4E 54 |..S.... COPYFONT| 00000010: 2D 54 42 4D 20 56 45 52 53 49 4F 4E 20 33 2E 30 |-TBM VERSION 3.0| 00000020: 20 28 43 29 20 41 50 52 49 4C 2D 38 33 2F 4F 43 | (C) APRIL-83/OC| 00000030: 54 4F 42 45 52 2D 38 34 20 42 59 20 43 2E 44 55 |TOBER-84 BY C.DU| 00000040: 52 41 4E 44 20 41 4E 44 20 53 2E 4D 49 54 43 48 |RAND AND S.MITCH| 00000050: 45 4C 4C 00 5D 08 02 00 89 31 30 30 30 00 6F 08 |ELL.]....1000.o.| 00000060: 0A 00 97 32 30 37 2C 30 3A 97 32 30 34 2C 30 00 |...207,0:.204,0.| 00000070: 81 08 0B 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 |.....A$:.A$."".1| 00000080: 31 00 9D 08 0C 00 97 32 30 34 2C 31 3A 41 B2 C6 |1......204,1:A..| 00000090: 28 41 24 29 3A 99 22 20 9D 22 3B 3A 8E 00 BC 08 |(A$):." .";:....| 000000A0: 3C 00 81 59 B2 31 34 A4 31 38 3A 99 C8 28 42 31 |<..Y.14.18:..(B1| 000000B0: 24 2C 59 29 42 33 24 3B 3A 82 3A 8E 00 F6 08 50 |$,Y)B3$;:.:....P| 000000C0: 00 8B 5A 24 B2 22 32 36 22 A7 41 24 B2 22 50 4C |..Z$."26".A$."PL| 000000D0: 45 41 53 45 20 52 45 4D 4F 56 45 20 54 48 45 20 |EASE REMOVE THE | 000000E0: 57 52 49 54 45 20 50 52 4F 54 45 43 54 20 54 41 |WRITE PROTECT TA| 000000F0: 42 22 3A 89 38 34 00 1B 09 51 00 8B 5A 24 B2 22 |B":.84...Q..Z$."| 00000100: 36 32 22 A7 41 24 B2 22 46 4F 4E 54 20 4E 4F 54 |62".A$."FONT NOT| 00000110: 20 46 4F 55 4E 44 22 3A 89 38 34 00 47 09 52 00 | FOUND":.84.G.R.| 00000120: 8B 44 B2 31 A7 41 24 B2 22 49 4E 53 45 52 54 20 |.D.1.A$."INSERT | 00000130: 4F 52 49 47 49 4E 41 4C 20 44 49 53 4B 45 54 54 |ORIGINAL DISKETT| 00000140: 45 20 22 3A 89 38 34 00 67 09 53 00 41 24 B2 22 |E ":.84.g.S.A$."| 00000150: 49 4E 53 45 52 54 20 42 41 43 4B 55 50 20 44 49 |INSERT BACKUP DI| 00000160: 53 4B 45 54 54 45 22 00 7A 09 54 00 A0 32 3A A0 |SKETTE".z.T..2:.| 00000170: 31 35 3A 8D 36 30 3A 8D 39 35 00 AD 09 55 00 41 |15:.60:.95...U.A| 00000180: 24 B2 22 50 52 45 53 53 20 3C 52 45 54 55 52 4E |$."PRESS <RETURN| 00000190: 3E 20 57 48 45 4E 20 52 45 41 44 59 22 3A 42 B2 |> WHEN READY":B.| 000001A0: 31 38 3A 8D 39 36 3A 97 31 39 38 2C 30 00 BF 09 |18:.96:.198,0...| 000001B0: 56 00 A1 41 24 3A 8B 41 24 B2 22 22 A7 38 36 00 |V..A$:.A$."".86.| 000001C0: D1 09 57 00 8B 41 24 B3 B1 C7 28 31 33 29 A7 38 |..W..A$...(13).8| 000001D0: 36 00 DB 09 58 00 8D 36 30 3A 8E 00 FF 09 5A 00 |6...X..60:....Z.| 000001E0: 99 C8 28 42 31 24 2C 31 36 29 A6 31 33 29 22 50 |..(B1$,16).13)"P| 000001F0: 52 45 53 53 20 3C 52 45 54 55 52 4E 3E 22 3B 00 |RESS <RETURN>";.| 00000200: 38 0A 5C 00 99 C8 28 42 31 24 2C 31 38 29 A6 33 |8.\...(B1$,18).3| 00000210: 29 22 4F 52 20 50 52 45 53 53 20 3C 45 53 43 41 |)"OR PRESS <ESCA| 00000220: 50 45 3E 20 54 4F 20 45 58 49 54 20 43 4F 50 59 |PE> TO EXIT COPY| 00000230: 46 4F 4E 54 22 3B 3A 8E 00 41 0A 5F 00 42 B2 31 |FONT";:..A._.B.1| 00000240: 34 00 57 0A 60 00 41 B2 B5 28 28 34 30 AB C3 28 |4.W.`.A..((40..(| 00000250: 41 24 29 29 AD 32 29 00 6D 0A 61 00 99 C8 28 42 |A$)).2).m.a...(B| 00000260: 31 24 2C 42 29 A6 41 29 41 24 3B 3A 8E 00 99 0A |1$,B).A)A$;:....| 00000270: 64 00 8B 5A 5A B2 31 A7 5A 5A B2 30 3A 8B 43 24 |d..ZZ.1.ZZ.0:.C$| 00000280: B3 B1 22 22 A7 81 58 B2 31 A4 C3 28 43 24 29 3A |..""..X.1..(C$):| 00000290: 99 22 9D 20 9D 22 3B 3A 82 00 A3 0A 66 00 43 24 |.". .";:....f.C$| 000002A0: B2 22 22 00 B4 0A 68 00 8D 31 30 3A 8B 41 B2 31 |.""...h..10:.A.1| 000002B0: 33 36 A7 8E 00 C9 0A 6A 00 8B 41 B2 31 33 A7 5A |36.....j..A.13.Z| 000002C0: 5A B2 C5 28 43 24 29 3A 8E 00 FF 0A 6C 00 8B 41 |Z..(C$):....l..A| 000002D0: B2 32 30 B0 41 B2 31 35 37 A7 8B 43 24 B3 B1 22 |.20.A.157..C$.."| 000002E0: 22 A7 43 24 B2 C8 28 43 24 2C C3 28 43 24 29 AB |".C$..(C$,.(C$).| 000002F0: 31 29 3A 99 22 9D 20 9D 22 3B 3A 89 31 30 34 00 |1):.". .";:.104.| 00000300: 10 0B 6E 00 8B C3 28 43 24 29 B1 33 A7 31 30 34 |..n...(C$).3.104| 00000310: 00 23 0B 70 00 8B 41 B3 34 38 B0 41 B1 35 37 A7 |.#.p..A.48.A.57.| 00000320: 31 30 34 00 3A 0B 72 00 43 24 B2 43 24 AA 41 24 |104.:.r.C$.C$.A$| 00000330: 3A 99 41 24 3B 3A 89 31 30 34 00 47 0B 78 00 84 |:.A$;:.104.G.x..| 00000340: 31 35 2C 5A 24 3A 8E 00 71 0B E8 03 97 35 33 32 |15,Z$:..q....532| 00000350: 38 30 2C 31 35 3A 97 35 33 32 38 31 2C 31 35 3A |80,15:.53281,15:| 00000360: 97 36 35 30 2C 31 32 38 3A 99 22 93 1F 8E 08 22 |.650,128:."...."| 00000370: 3B 00 B4 0B EA 03 86 4C 24 28 36 37 29 2C 4D 24 |;......L$(67),M$| 00000380: 28 36 37 29 2C 4C 4C 24 28 36 37 29 2C 4D 4D 24 |(67),LL$(67),MM$| 00000390: 28 36 37 29 3A 42 31 24 B2 22 13 11 11 11 11 11 |(67):B1$."......| 000003A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 000003B0: 11 11 11 22 00 E7 0B EC 03 42 32 24 B2 22 A6 A6 |...".....B2$."..| 000003C0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................| 000003D0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................| 000003E0: A6 A6 A6 A6 A6 A6 22 00 1A 0C EE 03 42 33 24 B2 |......".....B3$.| 000003F0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" | 00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000410: 20 20 20 20 20 20 20 20 20 22 00 51 0C F0 03 99 | ".Q....| 00000420: 3A 99 3A 99 A6 39 29 22 54 48 45 20 42 41 4E 4E |:.:..9)"THE BANN| 00000430: 45 52 20 4D 41 43 48 49 4E 45 20 28 43 29 22 3A |ER MACHINE (C)":| 00000440: 99 3A 99 A6 31 36 29 22 43 4F 50 59 46 4F 4E 54 |.:..16)"COPYFONT| 00000450: 22 00 6B 0C F2 03 99 3A 99 42 32 24 3A 99 C8 28 |".k....:.B2$:..(| 00000460: 42 31 24 2C 32 32 29 42 32 24 3B 00 A7 0C F4 03 |B1$,22)B2$;.....| 00000470: 81 58 B2 30 A4 36 37 3A 4C 24 28 58 29 B2 22 22 |.X.0.67:L$(X).""| 00000480: 3A 4D 24 28 58 29 B2 22 22 3A 4C 4C 24 28 58 29 |:M$(X)."":LL$(X)| 00000490: B2 22 22 3A 4D 4D 24 28 58 29 B2 22 22 3A 82 3A |."":MM$(X)."":.:| 000004A0: 5A 24 B2 22 30 30 22 00 B8 0C F7 03 44 B2 31 3A |Z$."00".....D.1:| 000004B0: 8D 38 30 3A 5A 5A B2 30 00 DE 0C FC 03 41 24 B2 |.80:ZZ.0.....A$.| 000004C0: 22 20 20 45 4E 54 45 52 20 46 4F 4E 54 20 23 3A |" ENTER FONT #:| 000004D0: 20 20 20 9D 9D 22 3A 8D 39 30 3A 8D 39 35 00 FA | ..":.90:.95..| 000004E0: 0C 06 04 8D 31 30 30 3A 8B 41 B2 31 33 36 A7 8D |....100:.A.136..| 000004F0: 32 30 30 30 3A 89 31 30 31 35 00 0F 0D 10 04 8B |2000:.1015......| 00000500: 5A 5A B2 30 A7 5A 5A B2 31 3A 89 31 30 33 30 00 |ZZ.0.ZZ.1:.1030.| 00000510: 1D 0D 1A 04 46 24 B2 43 24 3A 8D 36 30 00 44 0D |....F$.C$:.60.D.| 00000520: 24 04 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C |$..15,8,15:.2,8,| 00000530: 32 2C 22 30 3A 46 4F 4E 54 22 AA 46 24 AA 22 2C |2,"0:FONT".F$.",| 00000540: 53 2C 52 22 00 5C 0D 29 04 8D 31 32 30 3A 8B 5A |S,R".\.)..120:.Z| 00000550: 24 B3 B1 22 30 30 22 A7 31 30 31 35 00 7E 0D 2E |$.."00".1015.~..| 00000560: 04 41 24 B2 22 52 45 41 44 49 4E 47 20 46 4F 4E |.A$."READING FON| 00000570: 54 20 22 AA 46 24 3A 8D 39 35 3A 41 B2 30 00 9A |T ".F$:.95:A.0..| 00000580: 0D 38 04 84 32 2C 43 44 24 3A 81 58 B2 30 A4 36 |.8..2,CD$:.X.0.6| 00000590: 35 3A 84 32 2C 4C 24 28 58 29 00 B7 0D 42 04 8B |5:.2,L$(X)...B..| 000005A0: C9 28 4C 24 28 58 29 2C 31 29 B1 22 44 22 A7 84 |.(L$(X),1)."D"..| 000005B0: 32 2C 4D 24 28 58 29 00 D3 0D 4C 04 41 B2 41 AA |2,M$(X)...L.A.A.| 000005C0: C3 28 4C 24 28 58 29 29 AA C3 28 4D 24 28 58 29 |.(L$(X))..(M$(X)| 000005D0: 29 3A 82 00 F2 0D 56 04 84 32 2C 4C 24 28 58 29 |):....V..2,L$(X)| 000005E0: 3A 84 32 2C 4C 24 28 58 AA 31 29 3A A0 32 3A A0 |:.2,L$(X.1):.2:.| 000005F0: 31 35 00 0D 0E 60 04 42 B2 C5 28 4C 24 28 36 36 |15...`.B..(L$(66| 00000600: 29 29 3A 8B 41 B3 B1 42 A7 31 35 30 30 00 19 0E |)):.A..B.1500...| 00000610: 6A 04 44 B2 32 3A 8D 38 32 00 37 0E 7E 04 8D 36 |j.D.2:.82.7.~..6| 00000620: 30 3A 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A 8D |0:.15,8,15,"I":.| 00000630: 31 32 30 3A A0 31 35 00 4A 0E 88 04 8B 5A 24 B3 |120:.15.J....Z$.| 00000640: B1 22 32 31 22 A7 31 32 35 30 00 70 0E 92 04 41 |."21".1250.p...A| 00000650: 24 B2 22 54 48 49 53 20 49 53 20 41 20 42 4C 41 |$."THIS IS A BLA| 00000660: 4E 4B 20 44 49 53 4B 45 54 54 45 22 3A 8D 39 35 |NK DISKETTE":.95| 00000670: 00 A3 0E 9C 04 41 24 B2 22 44 4F 20 59 4F 55 20 |.....A$."DO YOU | 00000680: 57 41 4E 54 20 54 4F 20 46 4F 52 4D 41 54 20 49 |WANT TO FORMAT I| 00000690: 54 3F 20 28 59 2F 4E 29 20 22 3A 42 B2 31 36 3A |T? (Y/N) ":B.16:| 000006A0: 8D 39 36 00 B6 0E A6 04 8D 31 30 3A 8B 41 B2 37 |.96......10:.A.7| 000006B0: 38 A7 31 31 33 30 00 C6 0E B0 04 8B 41 B3 B1 38 |8.1130......A..8| 000006C0: 39 A7 31 31 39 30 00 00 0F BA 04 8D 36 30 3A 41 |9.1190......60:A| 000006D0: 24 B2 22 46 4F 52 4D 41 54 49 4E 47 20 44 49 53 |$."FORMATING DIS| 000006E0: 4B 45 54 54 45 22 3A 8D 39 35 3A 41 24 B2 22 50 |KETTE":.95:A$."P| 000006F0: 4C 45 41 53 45 20 57 41 49 54 22 3A 42 B2 31 36 |LEASE WAIT":B.16| 00000700: 00 34 0F C4 04 8D 39 36 3A 9F 31 35 2C 38 2C 31 |.4....96:.15,8,1| 00000710: 35 2C 22 4E 30 3A 54 42 4D 2C 36 34 22 3A 8D 31 |5,"N0:TBM,64":.1| 00000720: 32 30 3A A0 31 35 3A 8B 5A 24 B2 22 30 30 22 A7 |20:.15:.Z$."00".| 00000730: 31 32 35 30 00 42 0F CE 04 8D 38 32 3A 89 31 32 |1250.B....82:.12| 00000740: 31 30 00 6F 0F E2 04 9F 31 35 2C 38 2C 31 35 3A |10.o....15,8,15:| 00000750: 9F 32 2C 38 2C 32 2C 22 40 30 3A 46 4F 4E 54 22 |.2,8,2,"@0:FONT"| 00000760: AA 46 24 AA 22 2C 53 2C 57 22 3A 8D 31 32 30 00 |.F$.",S,W":.120.| 00000770: 87 0F E7 04 8B 5A 24 B3 B1 22 30 30 22 A7 8D 38 |.....Z$.."00"..8| 00000780: 30 3A 89 31 31 35 30 00 A9 0F EC 04 8D 36 30 3A |0:.1150......60:| 00000790: 41 24 B2 22 57 52 49 54 49 4E 47 20 46 4F 4E 54 |A$."WRITING FONT| 000007A0: 20 22 AA 46 24 3A 8D 39 35 00 DE 0F F6 04 98 32 | ".F$:.95......2| 000007B0: 2C 43 44 24 3A 81 58 B2 30 A4 36 35 3A 98 32 2C |,CD$:.X.0.65:.2,| 000007C0: 4C 24 28 58 29 3A 8B C9 28 4C 24 28 58 29 2C 31 |L$(X):..(L$(X),1| 000007D0: 29 B1 22 44 22 A7 98 32 2C 4D 24 28 58 29 00 F8 |)."D"..2,M$(X)..| 000007E0: 0F 00 05 82 3A 98 32 2C 4C 24 28 58 29 3A 98 32 |....:.2,L$(X):.2| 000007F0: 2C 4C 24 28 58 AA 31 29 00 03 10 0A 05 A0 32 3A |,L$(X.1)......2:| 00000800: A0 31 35 00 30 10 14 05 9F 31 35 2C 38 2C 31 35 |.15.0....15,8,15| 00000810: 3A 9F 32 2C 38 2C 32 2C 22 30 3A 46 4F 4E 54 22 |:.2,8,2,"0:FONT"| 00000820: AA 46 24 AA 22 2C 53 2C 52 22 3A 84 32 2C 41 24 |.F$.",S,R":.2,A$| 00000830: 00 58 10 19 05 8D 36 30 3A 41 24 B2 22 56 45 52 |.X....60:A$."VER| 00000840: 49 46 59 49 4E 47 20 46 4F 4E 54 20 22 AA 46 24 |IFYING FONT ".F$| 00000850: 3A 8D 39 35 3A 41 B2 30 00 82 10 1E 05 81 58 B2 |:.95:A.0......X.| 00000860: 30 A4 36 35 3A 84 32 2C 4C 4C 24 28 58 29 3A 8B |0.65:.2,LL$(X):.| 00000870: 4C 24 28 58 29 B3 B1 4C 4C 24 28 58 29 A7 31 35 |L$(X)..LL$(X).15| 00000880: 30 30 00 B5 10 28 05 8B C9 28 4C 4C 24 28 58 29 |00...(...(LL$(X)| 00000890: 2C 31 29 B1 22 44 22 A7 84 32 2C 4D 4D 24 28 58 |,1)."D"..2,MM$(X| 000008A0: 29 3A 8B 4D 24 28 58 29 B3 B1 4D 4D 24 28 58 29 |):.M$(X)..MM$(X)| 000008B0: A7 31 35 30 30 00 D3 10 32 05 41 B2 41 AA C3 28 |.1500...2.A.A..(| 000008C0: 4C 4C 24 28 58 29 29 AA C3 28 4D 4D 24 28 58 29 |LL$(X))..(MM$(X)| 000008D0: 29 3A 82 00 F4 10 3C 05 84 32 2C 4C 4C 24 28 58 |):....<..2,LL$(X| 000008E0: 29 3A 84 32 2C 4C 4C 24 28 58 AA 31 29 3A A0 32 |):.2,LL$(X.1):.2| 000008F0: 3A A0 31 35 00 10 11 46 05 42 B2 C5 28 4C 4C 24 |:.15...F.B..(LL$| 00000900: 28 36 36 29 29 3A 8B 41 B3 B1 42 A7 31 35 30 30 |(66)):.A..B.1500| 00000910: 00 21 11 50 05 A0 32 3A A0 31 35 3A 89 31 30 31 |.!.P..2:.15:.101| 00000920: 32 00 4B 11 DC 05 8D 36 30 3A 41 24 B2 22 44 41 |2.K....60:A$."DA| 00000930: 54 41 20 42 41 44 20 2D 20 50 4C 45 41 53 45 20 |TA BAD - PLEASE | 00000940: 52 45 50 45 41 54 22 3A 8D 39 35 00 59 11 DE 05 |REPEAT":.95.Y...| 00000950: 8D 38 35 3A 89 31 30 31 32 00 8F 11 D0 07 8D 36 |.85:.1012......6| 00000960: 30 3A 41 24 B2 22 44 4F 20 59 4F 55 20 57 41 4E |0:A$."DO YOU WAN| 00000970: 54 20 54 4F 20 45 58 49 54 20 43 4F 50 59 46 4F |T TO EXIT COPYFO| 00000980: 4E 54 3F 20 28 59 2F 4E 29 20 22 3A 8D 39 35 00 |NT? (Y/N) ":.95.| 00000990: A4 11 D1 07 8D 31 30 3A 8B 41 B2 38 39 A7 99 22 |.....10:.A.89.."| 000009A0: 93 22 3A 80 00 B4 11 D2 07 8B 41 B3 B1 37 38 A7 |.":.......A..78.| 000009B0: 32 30 30 31 00 BA 11 D3 07 8E 00 00 00 |2001......... |
..S.... COPYFONT-TBM VERSION 3.0 (C) APR
IL-83/OCTOBER-84 BY C.DURAND AND S.MITCH
ELL.]....1000.O....207,0:.204,0......A$:
.A$."".11......204,1:A.F(A$):." .";:....
<..Y.14.18:.H(B1$,Y)B3$;:.:....P..Z$."26
".A$."PLEASE REMOVE THE WRITE PROTECT TA
B":.84...Q..Z$."62".A$."FONT NOT FOUND":
.84.G.R..D.1.A$."INSERT ORIGINAL DISKETT
E ":.84.G.S.A$."INSERT BACKUP DISKETTE".
Z.T. 2: 15:.60:.95...U.A$."PRESS <RETURN
> WHEN READY":B.18:.96:.198,0...V..A$:.A
$."".86.Q.W..A$..G(13).86...X..60:....Z.
.H(B1$,16).13)"PRESS <RETURN>";.8.\..H(B
1$,18).3)"OR PRESS <ESCAPE> TO EXIT COPY
FONT";:..A._.B.14.W.`.A..((40.C(A$)).2).
M.A..H(B1$,B).A)A$;:....D..ZZ.1.ZZ.0:.C$
..""..X.1.C(C$):.". .";:....F.C$.""...H.
.10:.A.136...I.J..A.13.ZZ.E(C$):....L..A
.20.A.157..C$.."".C$.H(C$,C(C$).1):.". .
";:.104...N..C(C$).3.104.#.P..A.48.A.57.
104.:.R.C$.C$.A$:.A$;:.104.G.X..15,Z$:..
Q....53280,15:.53281,15:.650,128:."...."
;......L$(67),M$(67),LL$(67),MM$(67):B1$
.".........................".....B2$."..
......................................".
....B3$."
".Q....:.:..9)"THE BANNER MACHI
NE (C)":.:..16)"COPYFONT".K....:.B2$:.H(
B1$,22)B2$;......X.0.67:L$(X)."":M$(X)."
":LL$(X)."":MM$(X)."":.:Z$."00".....D.1:
.80:ZZ.0.....A$." ENTER FONT #: ..":.
90:.95......100:.A.136..2000:.1015......
ZZ.0.ZZ.1:.1030.....F$.C$:.60.D.$..15,8,
15:.2,8,2,"0:FONT".F$.",S,R".\.)..120:.Z
$.."00".1015.~...A$."READING FONT ".F$:.
95:A.0...8..2,CD$:.X.0.65:.2,L$(X)...B..
I(L$(X),1)."D"..2,M$(X).S.L.A.A.C(L$(X))
.C(M$(X)):....V..2,L$(X):.2,L$(X.1): 2:
15...`.B.E(L$(66)):.A..B.1500...J.D.2:.8
2.7.~..60:.15,8,15,"I":.120: 15.J....Z$.
."21".1250.P...A$."THIS IS A BLANK DISKE
TTE":.95.....A$."DO YOU WANT TO FORMAT I
T? (Y/N) ":B.16:.96......10:.A.78.1130.F
....A..89.1190......60:A$."FORMATING DIS
KETTE":.95:A$."PLEASE WAIT":B.16.4.D..96
:.15,8,15,"N0:TBM,64":.120: 15:.Z$."00".
1250.B.N..82:.1210.O....15,8,15:.2,8,2,"
@0:FONT".F$.",S,W":.120......Z$.."00"..8
0:.1150......60:A$."WRITING FONT ".F$:.9
5......2,CD$:.X.0.65:.2,L$(X):.I(L$(X),1
)."D"..2,M$(X)......:.2,L$(X):.2,L$(X.1)
..... 2: 15.0....15,8,15:.2,8,2,"0:FONT"
.F$.",S,R":.2,A$.X....60:A$."VERIFYING F
ONT ".F$:.95:A.0......X.0.65:.2,LL$(X):.
L$(X)..LL$(X).1500...(..I(LL$(X),1)."D".
.2,MM$(X):.M$(X)..MM$(X).1500.S.2.A.A.C(
LL$(X)).C(MM$(X)):....<..2,LL$(X):.2,LL$
(X.1): 2: 15...F.B.E(LL$(66)):.A..B.1500
.!.P. 2: 15:.1012.K....60:A$."DATA BAD -
PLEASE REPEAT":.95.Y....85:.1012...P..6
0:A$."DO YOU WANT TO EXIT COPYFONT? (Y/N
) ":.95...Q..10:.A.89..".":....R..A..78.
2001...S.....
> CLICK IMAGE PREVIEW FOR FULL MODAL