GEMINI CHAR.C
FILE INFORMATION
FILENAME(S): GEMINI CHAR.C
FILE TYPE(S): PRG
FILE SIZE: 6.1K
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 3 disk(s)
FILE HASH
ee2f2a86830ab93a855d7abcd8a20cb20856d1c59f1e06015e2fbdaab4e7c2f7
FOUND ON DISKS (3 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS64 6 KOPIA | GEMINI CHAR.C | PRG | hedning, Mattias H00r | 19 | 0 | DOWNLOAD FILE |
| CCS 64 6 | GEMINI CHAR.C | PRG | hedning, Mattias H00r | 19 | 0 | DOWNLOAD FILE |
| C64 6 | GEMINI CHAR.C | PRG | hedning, Mattias H00r | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 20 08 0A 00 8F 20 20 2A 2A 2A 43 48 41 52 |.. .... ***CHAR|
00000010: 41 43 54 45 52 20 43 52 45 41 54 4F 52 2A 2A 2A |ACTER CREATOR***|
00000020: 00 3F 08 14 00 8F 20 20 2A 2A 2A 20 46 4F 52 20 |.?.... *** FOR |
00000030: 47 45 4D 49 4E 49 20 31 30 58 20 20 2A 2A 2A 00 |GEMINI 10X ***.|
00000040: 5E 08 1E 00 8F 20 20 2A 2A 2A 20 20 20 57 49 54 |^.... *** WIT|
00000050: 48 20 43 41 52 44 2F 3F 20 20 20 2A 2A 2A 00 7D |H CARD/? ***.}|
00000060: 08 28 00 8F 20 20 2A 2A 2A 20 20 20 20 49 4E 54 |.(.. *** INT|
00000070: 45 52 46 41 43 45 20 20 20 20 2A 2A 2A 00 9C 08 |ERFACE ***...|
00000080: 32 00 8F 20 20 2A 2A 2A 20 20 20 20 20 20 20 20 |2.. *** |
00000090: 20 20 20 20 20 20 20 20 20 2A 2A 2A 00 BB 08 3C | ***...<|
000000A0: 00 8F 20 20 2A 2A 2A 20 20 20 20 41 44 41 50 54 |.. *** ADAPT|
000000B0: 45 44 20 42 59 20 20 20 2A 2A 2A 00 DA 08 46 00 |ED BY ***...F.|
000000C0: 8F 20 20 2A 2A 2A 20 20 20 20 20 20 4B 45 4E 20 |. *** KEN |
000000D0: 43 4F 58 20 20 20 20 2A 2A 2A 00 F9 08 50 00 8F |COX ***...P..|
000000E0: 20 20 2A 2A 2A 20 20 20 54 50 55 47 20 54 4F 52 | *** TPUG TOR|
000000F0: 4F 4E 54 4F 20 20 2A 2A 2A 00 18 09 5A 00 8F 20 |ONTO ***...Z.. |
00000100: 20 2A 2A 2A 20 20 43 4F 50 59 52 49 47 48 54 20 | *** COPYRIGHT |
00000110: 31 39 38 34 20 2A 2A 2A 00 36 09 64 00 8F 20 2A |1984 ***.6.d.. *|
00000120: 2A 2A 20 4F 4B 41 59 20 54 4F 20 47 49 56 45 20 |** OKAY TO GIVE |
00000130: 42 55 54 2A 2A 2A 00 54 09 6E 00 8F 20 2A 2A 2A |BUT***.T.n.. ***|
00000140: 20 20 20 20 4E 4F 54 20 54 4F 20 53 45 4C 4C 20 | NOT TO SELL |
00000150: 20 2A 2A 2A 00 5A 09 78 00 8F 00 69 09 82 00 86 | ***.Z.x...i....|
00000160: 4B 28 31 32 36 2C 31 30 29 00 84 09 8C 00 9F 34 |K(126,10)......4|
00000170: 2C 34 2C 32 35 3A 9D 34 3A 99 22 20 22 3A 98 34 |,4,25:.4:." ":.4|
00000180: 2C 3A A0 34 00 B1 09 96 00 97 35 33 32 38 31 2C |,:.4......53281,|
00000190: 30 3A 97 35 33 32 38 30 2C 31 32 3A 99 22 05 22 |0:.53280,12:."."|
000001A0: C7 28 31 34 32 29 C7 28 38 29 3A 97 32 35 33 2C |.(142).(8):.253,|
000001B0: 30 00 E2 09 A0 00 99 22 93 11 11 11 11 20 20 20 |0......"..... |
000001C0: 20 20 44 4F 20 59 4F 55 20 57 41 4E 54 20 49 4E | DO YOU WANT IN|
000001D0: 53 54 52 55 43 54 49 4F 4E 53 3F 20 28 59 2F 4E |STRUCTIONS? (Y/N|
000001E0: 29 22 00 F6 09 AA 00 A1 49 24 3A 8B 49 24 B2 22 |)"......I$:.I$."|
000001F0: 22 A7 89 31 37 30 00 08 0A B4 00 8B 49 24 B2 22 |"..170......I$."|
00000200: 59 22 A7 8D 31 36 33 30 00 16 0A BE 00 99 22 93 |Y"..1630......".|
00000210: 11 11 11 11 22 3B 00 2B 0A C8 00 99 22 46 4F 4E |....";.+...."FON|
00000220: 54 20 4E 41 4D 45 20 4F 52 11 22 00 47 0A D2 00 |T NAME OR.".G...|
00000230: 85 22 12 44 92 49 52 45 43 54 4F 52 59 20 20 44 |.".D.IRECTORY D|
00000240: 9D 9D 9D 22 3B 46 24 00 63 0A DC 00 8B 46 24 B2 |...";F$.c....F$.|
00000250: 22 44 22 A7 99 22 11 22 3A 8D 31 35 33 30 3A 89 |"D"..".":.1530:.|
00000260: 32 30 30 00 A7 0A E6 00 8F 20 2A 52 45 41 44 20 |200...... *READ |
00000270: 46 49 4C 45 20 41 4E 44 20 53 54 4F 52 45 2A 20 |FILE AND STORE* |
00000280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000290: 20 20 2A 20 44 41 54 41 20 49 4E 20 41 52 52 41 | * DATA IN ARRA|
000002A0: 59 53 20 20 20 20 2A 00 C5 0A F0 00 A0 31 3A 9F |YS *......1:.|
000002B0: 20 31 2C 38 2C 32 2C 22 30 3A 22 AA 46 24 AA 22 | 1,8,2,"0:".F$."|
000002C0: 2C 53 2C 52 22 00 DB 0A FA 00 9F 31 35 2C 38 2C |,S,R"......15,8,|
000002D0: 31 35 3A 84 31 35 2C 45 2C 45 24 00 FC 0A 04 01 |15:.15,E,E$.....|
000002E0: 8B 45 B3 B1 30 A7 99 22 93 11 11 11 22 3B 45 24 |.E..0.."....";E$|
000002F0: 3A A0 31 3A A0 31 35 3A 89 32 30 30 00 26 0B 0E |:.1:.15:.200.&..|
00000300: 01 81 43 48 B2 33 32 A4 31 32 36 3A 81 44 B2 30 |..CH.32.126:.D.0|
00000310: A4 31 30 3A 84 31 2C 4B 28 43 48 2C 44 29 20 3A |.10:.1,K(CH,D) :|
00000320: 82 44 3A 82 43 48 00 31 0B 18 01 A0 31 3A A0 31 |.D:.CH.1....1:.1|
00000330: 35 00 3B 0B 22 01 8D 31 32 35 30 00 7B 0B 2C 01 |5.;."..1250.{.,.|
00000340: 99 22 93 22 3A 8B 43 48 B1 33 31 AF 43 48 B3 31 |.".":.CH.31.CH.1|
00000350: 32 37 A7 99 22 11 11 11 20 20 20 20 20 20 54 48 |27.."... TH|
00000360: 45 20 4C 41 53 54 20 41 53 43 49 49 20 4E 55 4D |E LAST ASCII NUM|
00000370: 42 45 52 20 57 41 53 22 3B 43 48 00 AA 0B 36 01 |BER WAS";CH...6.|
00000380: 99 20 22 11 11 11 20 20 20 45 4E 54 45 52 20 54 |. "... ENTER T|
00000390: 48 45 20 41 53 43 49 49 20 4E 55 4D 42 45 52 20 |HE ASCII NUMBER |
000003A0: 54 4F 20 44 45 53 49 47 4E 22 00 CC 0B 40 01 99 |TO DESIGN"...@..|
000003B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 28 |" (|
000003C0: 33 32 20 54 4F 20 31 32 36 29 22 3B 00 D4 0B 4A |32 TO 126)";...J|
000003D0: 01 85 43 48 00 EA 0B 54 01 8B 43 48 B3 33 32 B0 |..CH...T..CH.32.|
000003E0: 43 48 B1 31 32 36 89 33 30 30 00 F0 0B 5E 01 8F |CH.126.300...^..|
000003F0: 00 13 0C 68 01 8F 20 20 2A 2A 2A 53 45 54 20 55 |...h.. ***SET U|
00000400: 50 20 53 43 52 45 45 4E 20 44 49 53 50 4C 41 59 |P SCREEN DISPLAY|
00000410: 2A 2A 2A 00 19 0C 72 01 8F 00 4B 0C 7C 01 44 45 |***...r...K.|.DE|
00000420: B2 30 3A 99 22 93 9E 53 20 2D 53 54 4F 52 45 20 |.0:."..S -STORE |
00000430: 44 41 54 41 20 49 4E 20 4D 45 4D 4F 52 59 20 05 |DATA IN MEMORY .|
00000440: 41 53 43 49 49 20 4E 4F 2E 22 3B 00 5F 0C 86 01 |ASCII NO.";._...|
00000450: 99 43 48 3B 22 9E 22 3B 3A 99 C7 28 43 48 29 00 |.CH;".";:..(CH).|
00000460: 7E 0C 90 01 99 22 50 20 2D 50 52 49 4E 54 20 54 |~...."P -PRINT T|
00000470: 48 49 53 20 43 48 41 52 41 43 54 45 52 22 00 9D |HIS CHARACTER"..|
00000480: 0C 9A 01 99 22 54 20 2D 50 52 49 4E 54 20 41 4C |...."T -PRINT AL|
00000490: 4C 20 43 48 41 52 41 43 54 45 52 53 22 00 B4 0C |L CHARACTERS"...|
000004A0: A4 01 99 22 46 31 2D 44 45 53 43 45 4E 44 45 52 |..."F1-DESCENDER|
000004B0: 20 4F 4E 22 00 CC 0C AE 01 99 22 46 33 2D 44 45 | ON"......"F3-DE|
000004C0: 53 43 45 4E 44 45 52 20 4F 46 46 22 00 EE 0C B8 |SCENDER OFF"....|
000004D0: 01 99 22 51 20 2D 51 55 49 54 2F 57 52 49 54 45 |.."Q -QUIT/WRITE|
000004E0: 20 46 4F 4E 54 20 54 4F 20 44 49 53 4B 22 00 17 | FONT TO DISK"..|
000004F0: 0D C2 01 99 22 4E 20 2D 4E 45 57 20 47 52 49 44 |...."N -NEW GRID|
00000500: 20 28 57 49 4C 4C 20 4E 4F 54 20 53 54 4F 52 45 | (WILL NOT STORE|
00000510: 20 44 41 54 41 29 22 00 2B 0D CC 01 99 22 45 20 | DATA)".+...."E |
00000520: 2D 45 52 41 53 45 20 44 4F 54 22 00 3E 0D D6 01 |-ERASE DOT".>...|
00000530: 99 22 53 50 41 43 45 2D 44 4F 54 20 4F 4E 00 5E |."SPACE-DOT ON.^|
00000540: 0D E0 01 99 22 43 55 52 53 4F 52 20 43 4F 4E 54 |...."CURSOR CONT|
00000550: 52 4F 4C 53 20 54 4F 20 4D 4F 56 45 05 22 00 89 |ROLS TO MOVE."..|
00000560: 0D EA 01 99 22 20 20 20 20 20 20 20 20 20 20 1D |...." .|
00000570: 1D 1D 1D 1D 1D 1D 22 3B 3A 81 54 B2 31 A4 39 3A |......";:.T.1.9:|
00000580: 99 22 A4 22 3B 3A 82 3A 99 00 C0 0D F4 01 81 54 |.".";:.:.......T|
00000590: B2 31 A4 37 3A 99 22 20 20 20 20 20 20 20 20 20 |.1.7:." |
000005A0: 20 1D 1D 1D 1D 1D 1D A7 22 3B 3A 81 52 B2 31 A4 | .......";:.R.1.|
000005B0: 39 3A 99 22 2E 22 3B 3A 82 3A 99 22 A5 22 3A 82 |9:.".";:.:.".":.|
000005C0: 00 FC 0D FE 01 99 22 20 20 20 20 20 20 20 20 20 |......" |
000005D0: 20 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 81 54 B2 31 A4 | .......";:.T.1.|
000005E0: 39 3A 99 22 A3 22 3B 3A 82 3A 52 B2 30 3A 43 B2 |9:.".";:.:R.0:C.|
000005F0: 30 3A 4C 53 B2 34 36 3A 54 54 B2 31 00 18 0E 08 |0:LS.46:TT.1....|
00000600: 02 99 22 9D 9D 9D 9D 9D 9D 9D 91 91 91 91 91 91 |..".............|
00000610: 91 22 3B 3A 8D 39 33 30 00 32 0E 12 02 97 32 30 |.";:.930.2....20|
00000620: 34 2C 30 3A A1 41 24 3A 8B 41 24 B2 22 22 A7 35 |4,0:.A$:.A$."".5|
00000630: 33 30 00 4A 0E 1C 02 97 32 30 34 2C 31 3A 8B 41 |30.J....204,1:.A|
00000640: 24 B2 22 53 22 A7 8D 38 31 30 00 5B 0E 26 02 8B |$."S"..810.[.&..|
00000650: 41 24 B2 22 53 22 A7 8D 38 34 30 00 7A 0E 30 02 |A$."S"..840.z.0.|
00000660: 8B 41 24 B2 22 85 22 A7 20 97 35 35 39 31 31 2C |.A$.".". .55911,|
00000670: 31 3A 97 35 35 39 32 33 2C 31 00 B2 0E 3A 02 8B |1:.55923,1...:..|
00000680: 41 24 B2 22 85 22 A7 44 45 B2 31 3A 97 31 36 34 |A$.".".DE.1:.164|
00000690: 30 2C 31 32 32 3A 97 31 36 33 39 2C 31 31 31 3A |0,122:.1639,111:|
000006A0: 97 31 36 35 30 2C 37 36 3A 97 31 36 35 31 2C 31 |.1650,76:.1651,1|
000006B0: 31 31 00 D8 0E 44 02 8B 41 24 B2 22 86 22 A7 44 |11...D..A$.".".D|
000006C0: 45 B2 30 3A 97 31 36 34 30 2C 31 30 33 3A 97 31 |E.0:.1640,103:.1|
000006D0: 36 35 30 2C 31 30 31 3A 00 F6 0E 4E 02 8B 41 24 |650,101:...N..A$|
000006E0: B2 22 86 22 A7 97 35 35 39 31 31 2C 30 3A 97 35 |."."..55911,0:.5|
000006F0: 35 39 32 33 2C 30 00 06 0F 58 02 8B 41 24 B2 22 |5923,0...X..A$."|
00000700: 45 22 A7 37 38 30 00 17 0F 62 02 8B 41 24 B2 22 |E".780...b..A$."|
00000710: 4E 22 A7 89 33 30 30 00 2E 0F 6C 02 8B 41 24 B2 |N"..300...l..A$.|
00000720: 22 51 22 A7 8D 38 34 30 3A 89 31 33 33 30 00 3E |"Q"..840:.1330.>|
00000730: 0F 76 02 8B 41 24 B2 22 20 22 A7 37 39 30 00 5B |.v..A$." ".790.[|
00000740: 0F 80 02 8B 41 24 B2 22 50 22 A7 8D 38 34 30 3A |....A$."P"..840:|
00000750: 8D 31 30 32 30 3A 8D 31 31 37 30 00 8B 0F 8A 02 |.1020:.1170.....|
00000760: 8B 41 24 B2 22 54 22 A7 8D 38 34 30 3A 8D 31 30 |.A$."T"..840:.10|
00000770: 32 30 3A 81 54 45 B2 33 32 A4 31 32 36 3A 98 34 |20:.TE.32.126:.4|
00000780: 2C C7 28 54 45 29 3B 3A 82 54 45 00 A3 0F 94 02 |,.(TE);:.TE.....|
00000790: 8B 41 24 B2 22 54 22 A7 98 34 2C C7 28 31 33 29 |.A$."T"..4,.(13)|
000007A0: 3A A0 34 00 C1 0F 9E 02 8B 20 C2 28 32 30 36 29 |:.4...... .(206)|
000007B0: B3 B1 34 36 AF 54 54 B2 31 A7 99 22 12 20 92 22 |..46.TT.1..". ."|
000007C0: 3B 00 CA 0F A8 02 54 54 B2 30 00 E0 0F B2 02 8B |;.....TT.0......|
000007D0: 4C 53 B2 34 36 A7 99 22 2E 22 3B 3A 89 37 31 30 |LS.46..".";:.710|
000007E0: 00 EC 0F BC 02 99 22 12 20 92 22 3B 00 06 10 C6 |......". .";....|
000007F0: 02 43 B2 43 AB 28 41 24 B2 22 1D 22 29 AA 28 41 |.C.C.(A$.".").(A|
00000800: 24 B2 22 9D 22 29 00 20 10 D0 02 52 B2 52 AB 28 |$."."). ...R.R.(|
00000810: 41 24 B2 22 11 22 29 AA 28 41 24 B2 22 91 22 29 |A$.".").(A$.".")|
00000820: 00 3F 10 DA 02 8B 43 B3 30 B0 43 B1 38 A7 43 B2 |.?....C.0.C.8.C.|
00000830: 30 AC 28 43 B1 38 29 AB 38 AC 28 43 B3 30 29 00 |0.(C.8).8.(C.0).|
00000840: 5E 10 E4 02 8B 52 B3 30 B0 52 B1 36 A7 52 B2 30 |^....R.0.R.6.R.0|
00000850: AC 28 52 B1 36 29 AB 36 AC 28 52 B3 30 29 00 8B |.(R.6).6.(R.0)..|
00000860: 10 EE 02 99 22 13 22 3A 81 54 B2 31 A4 31 30 AA |....".":.T.1.10.|
00000870: 52 3A 99 22 11 22 3B 3A 82 3A 81 54 B2 31 A4 31 |R:.".";:.:.T.1.1|
00000880: 37 AA 43 3A 99 22 1D 22 3B 3A 82 00 A1 10 F8 02 |7.C:.".";:......|
00000890: 4C 53 B2 C2 28 31 34 38 31 AA 52 AC 34 30 AA 43 |LS..(1481.R.40.C|
000008A0: 29 00 AA 10 02 03 89 35 33 30 00 CF 10 0C 03 99 |)......530......|
000008B0: 22 2E 22 3B 3A 43 B2 43 AA 31 3A 89 37 31 30 3A |".";:C.C.1:.710:|
000008C0: 8F 20 45 52 41 53 45 20 52 4F 55 54 49 4E 45 00 |. ERASE ROUTINE.|
000008D0: F4 10 16 03 99 22 12 20 92 22 3B 3A 43 B2 43 AA |.....". .";:C.C.|
000008E0: 31 3A 89 37 31 30 3A 8F 20 44 4F 54 20 52 4F 55 |1:.710:. DOT ROU|
000008F0: 54 49 4E 45 00 FA 10 20 03 8F 00 1A 11 2A 03 8F |TINE... .....*..|
00000900: 20 2A 52 45 41 44 20 53 43 52 45 45 4E 20 44 49 | *READ SCREEN DI|
00000910: 53 50 4C 41 59 20 41 4E 44 2A 00 3A 11 34 03 8F |SPLAY AND*.:.4..|
00000920: 20 2A 20 20 20 41 4E 44 20 53 54 4F 52 45 20 49 | * AND STORE I|
00000930: 4E 20 41 52 52 41 59 20 20 2A 00 40 11 3E 03 8F |N ARRAY *.@.>..|
00000940: 00 5B 11 48 03 4B 28 43 48 2C 30 29 B2 43 48 3A |.[.H.K(CH,0).CH:|
00000950: 4B 28 43 48 2C 31 30 29 B2 44 45 00 65 11 52 03 |K(CH,10).DE.e.R.|
00000960: 53 43 B2 34 30 00 7A 11 5C 03 81 44 B2 31 A4 39 |SC.40.z.\..D.1.9|
00000970: 3A 43 4D B2 31 34 38 30 AA 44 00 8F 11 66 03 4B |:CM.1480.D...f.K|
00000980: 28 43 48 2C 44 29 B2 30 3A 81 50 B2 30 A4 36 00 |(CH,D).0:.P.0.6.|
00000990: BB 11 70 03 8B C2 28 43 4D 29 B2 31 36 30 B0 C2 |..p...(CM).160..|
000009A0: 28 43 4D 29 B2 33 32 A7 4B 28 43 48 2C 44 29 B2 |(CM).32.K(CH,D).|
000009B0: 4B 28 43 48 2C 44 29 AA 32 AE 50 00 CB 11 7A 03 |K(CH,D).2.P...z.|
000009C0: 43 4D B2 43 4D AA 53 43 3A 82 50 00 D2 11 84 03 |CM.CM.SC:.P.....|
000009D0: 82 44 00 D8 11 8E 03 8E 00 FF 11 98 03 8F 20 20 |.D............ |
000009E0: 2A 52 45 41 44 20 41 52 52 41 59 20 41 4E 44 20 |*READ ARRAY AND |
000009F0: 53 48 4F 57 20 43 48 41 52 41 43 54 45 52 2A 00 |SHOW CHARACTER*.|
00000A00: 09 12 A2 03 53 43 B2 34 30 00 25 12 AC 03 81 44 |....SC.40.%....D|
00000A10: B2 31 A4 39 3A 43 4D B2 31 34 38 30 AA 44 3A 81 |.1.9:CM.1480.D:.|
00000A20: 50 B2 30 A4 36 00 3E 12 B6 03 8B 4B 28 43 48 2C |P.0.6.>....K(CH,|
00000A30: 44 29 AF 32 AE 50 A7 97 43 4D 2C 31 36 30 00 51 |D).2.P..CM,160.Q|
00000A40: 12 C0 03 43 4D B2 43 4D AA 53 43 3A 82 50 3A 82 |...CM.CM.SC:.P:.|
00000A50: 44 00 78 12 CA 03 8B 4B 28 43 48 2C 31 30 29 B2 |D.x....K(CH,10).|
00000A60: 31 A7 44 45 B2 31 3A 97 35 35 39 31 31 2C 31 3A |1.DE.1:.55911,1:|
00000A70: 97 35 35 39 32 33 2C 31 00 AF 12 D4 03 8B 4B 28 |.55923,1......K(|
00000A80: 43 48 2C 31 30 29 B2 31 A7 97 31 36 34 30 2C 31 |CH,10).1..1640,1|
00000A90: 32 32 3A 97 31 36 33 39 2C 31 31 31 3A 97 31 36 |22:.1639,111:.16|
00000AA0: 35 30 2C 37 36 3A 97 31 36 35 31 2C 31 31 31 00 |50,76:.1651,111.|
00000AB0: B5 12 DE 03 8E 00 FF 12 E8 03 8F 20 20 2A 54 45 |........... *TE|
00000AC0: 4C 4C 20 50 52 49 4E 54 45 52 20 57 48 49 43 48 |LL PRINTER WHICH|
00000AD0: 20 41 53 43 49 49 2A 20 20 20 20 20 20 20 20 20 | ASCII* |
00000AE0: 20 20 20 20 20 2A 20 4E 55 4D 42 45 52 20 49 53 | * NUMBER IS|
00000AF0: 20 42 45 49 4E 47 20 43 48 41 4E 47 45 44 2A 00 | BEING CHANGED*.|
00000B00: 05 13 F2 03 8F 00 0E 13 FC 03 9F 34 2C 34 00 3A |...........4,4.:|
00000B10: 13 06 04 98 34 2C C7 28 32 37 29 C7 28 34 32 29 |....4,.(27).(42)|
00000B20: C7 28 31 29 C7 28 4B 28 43 48 2C 30 29 29 C7 28 |.(1).(K(CH,0)).(|
00000B30: 4B 28 43 48 2C 31 30 29 29 3B 00 40 13 10 04 8F |K(CH,10));.@....|
00000B40: 00 62 13 1A 04 8F 20 20 20 2A 53 45 4E 44 20 4E |.b.... *SEND N|
00000B50: 45 57 20 43 48 41 52 41 43 54 45 52 20 44 41 54 |EW CHARACTER DAT|
00000B60: 41 2A 00 68 13 24 04 8F 00 85 13 2E 04 81 44 B2 |A*.h.$........D.|
00000B70: 31 A4 39 3A 98 34 2C C7 28 4B 28 43 48 2C 44 29 |1.9:.4,.(K(CH,D)|
00000B80: 29 3B 3A 82 44 00 8B 13 38 04 8F 00 AC 13 42 04 |);:.D...8.....B.|
00000B90: 8F 20 20 20 20 2A 53 45 4C 45 43 54 20 44 4F 57 |. *SELECT DOW|
00000BA0: 4E 4C 4F 41 44 45 44 20 53 45 54 2A 00 CD 13 4C |NLOADED SET*...L|
00000BB0: 04 8F 20 20 20 20 2A 20 20 20 20 46 4F 52 20 54 |.. * FOR T|
00000BC0: 45 53 54 49 4E 47 20 20 20 20 20 20 2A 00 D3 13 |ESTING *...|
00000BD0: 56 04 8F 00 EA 13 60 04 98 34 2C C7 28 32 37 29 |V.....`..4,.(27)|
00000BE0: C7 28 33 36 29 C7 28 31 29 3B 00 F0 13 6A 04 8E |.(36).(1);...j..|
00000BF0: 00 F6 13 74 04 8F 00 15 14 7E 04 8F 20 20 20 20 |...t.....~.. |
00000C00: 2A 50 52 49 4E 54 20 4E 45 57 20 43 48 41 52 41 |*PRINT NEW CHARA|
00000C10: 43 54 45 52 2A 00 1B 14 88 04 8F 00 3F 14 92 04 |CTER*.......?...|
00000C20: 81 50 B2 31 A4 31 30 3A 98 34 2C C7 28 4B 28 43 |.P.1.10:.4,.(K(C|
00000C30: 48 2C 30 29 29 3B C7 28 33 32 29 3B 3A 82 50 00 |H,0));.(32);:.P.|
00000C40: 46 14 9C 04 8F 2A 00 6C 14 A6 04 8F 2A 50 52 49 |F....*.l....*PRI|
00000C50: 4E 54 20 43 48 41 52 41 43 54 45 52 20 57 49 54 |NT CHARACTER WIT|
00000C60: 48 20 55 4E 44 45 52 4C 49 4E 45 2A 00 82 14 B0 |H UNDERLINE*....|
00000C70: 04 98 34 2C C7 28 32 37 29 C7 28 34 35 29 C7 28 |..4,.(27).(45).(|
00000C80: 31 29 00 AF 14 BA 04 81 50 B2 31 A4 31 30 3A 98 |1)......P.1.10:.|
00000C90: 34 2C C7 28 4B 28 43 48 2C 30 29 29 3B C7 28 33 |4,.(K(CH,0));.(3|
00000CA0: 32 29 3B 3A 82 50 3A 98 34 2C C7 28 31 33 29 00 |2);:.P:.4,.(13).|
00000CB0: C8 14 C4 04 98 34 2C C7 28 32 37 29 C7 28 34 35 |.....4,.(27).(45|
00000CC0: 29 C7 28 30 29 3A A0 34 00 CE 14 CE 04 8E 00 EE |).(0):.4........|
00000CD0: 14 D8 04 8F 20 20 2A 44 4F 57 4E 4C 4F 41 44 20 |.... *DOWNLOAD |
00000CE0: 53 45 54 20 46 52 4F 4D 20 44 49 53 4B 2A 00 2A |SET FROM DISK*.*|
00000CF0: 15 E2 04 A0 34 3A 9F 34 2C 34 3A 99 22 93 11 11 |....4:.4,4:."...|
00000D00: 11 11 20 53 45 4E 44 49 4E 47 20 44 41 54 41 20 |.. SENDING DATA |
00000D10: 54 4F 20 50 52 49 4E 54 45 52 20 46 4F 52 20 31 |TO PRINTER FOR 1|
00000D20: 39 20 53 45 43 4F 4E 44 53 22 00 3A 15 EC 04 81 |9 SECONDS".:....|
00000D30: 43 48 B2 33 32 A4 31 32 36 3A 00 65 15 F6 04 98 |CH.32.126:.e....|
00000D40: 34 2C C7 28 32 37 29 AA C7 28 34 32 29 AA C7 28 |4,.(27)..(42)..(|
00000D50: 31 29 AA C7 28 43 48 29 AA C7 28 4B 28 43 48 2C |1)..(CH)..(K(CH,|
00000D60: 31 30 29 29 3B 00 86 15 00 05 81 44 B2 31 A4 39 |10));......D.1.9|
00000D70: 3A 98 34 2C C7 28 4B 28 43 48 2C 44 29 29 3B 3A |:.4,.(K(CH,D));:|
00000D80: 82 44 3A 82 43 48 00 9C 15 0A 05 98 34 2C C7 28 |.D:.CH......4,.(|
00000D90: 32 37 29 C7 28 33 36 29 C7 28 31 29 00 A6 15 14 |27).(36).(1)....|
00000DA0: 05 A0 34 3A 20 8E 00 CC 15 1E 05 8F 20 2A 57 52 |..4: ....... *WR|
00000DB0: 49 54 45 20 44 41 54 41 20 54 4F 20 53 45 51 55 |ITE DATA TO SEQU|
00000DC0: 45 4E 54 49 41 4C 20 46 49 4C 45 2A 00 D2 15 28 |ENTIAL FILE*...(|
00000DD0: 05 8F 00 01 16 32 05 99 22 93 11 11 11 11 20 20 |.....2.."..... |
00000DE0: 20 20 57 41 4E 54 20 54 4F 20 53 41 56 45 20 46 | WANT TO SAVE F|
00000DF0: 49 4C 45 20 54 4F 20 44 49 53 4B 3F 28 59 2F 4E |ILE TO DISK?(Y/N|
00000E00: 29 00 16 16 3C 05 A1 51 24 3A 8B 51 24 B2 22 22 |)...<..Q$:.Q$.""|
00000E10: A7 89 31 33 34 30 00 5A 16 46 05 8B 51 24 B2 22 |..1340.Z.F..Q$."|
00000E20: 4E 22 A7 99 22 11 52 45 4D 45 4D 42 45 52 20 54 |N"..".REMEMBER T|
00000E30: 48 41 54 20 59 4F 55 52 20 49 4E 54 45 52 46 41 |HAT YOUR INTERFA|
00000E40: 43 45 20 48 41 53 20 42 45 45 4E 20 20 20 44 49 |CE HAS BEEN DI|
00000E50: 53 41 42 4C 45 44 2E 22 3A 80 00 6D 16 50 05 8B |SABLED.":..m.P..|
00000E60: 51 24 B3 B1 22 59 22 A7 89 31 33 34 30 00 9D 16 |Q$.."Y"..1340...|
00000E70: 5A 05 85 22 11 20 4E 41 4D 45 20 4F 46 20 46 49 |Z..". NAME OF FI|
00000E80: 4C 45 3A 20 20 54 45 53 54 20 46 4F 4E 54 9D 9D |LE: TEST FONT..|
00000E90: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 4E 24 00 AB 16 |.........";N$...|
00000EA0: 64 05 43 52 24 B2 C7 28 31 33 29 00 CA 16 6E 05 |d.CR$..(13)...n.|
00000EB0: A0 31 3A 9F 20 31 2C 38 2C 32 2C 22 40 30 3A 22 |.1:. 1,8,2,"@0:"|
00000EC0: AA 4E 24 AA 22 2C 53 2C 57 22 00 DD 16 78 05 A0 |.N$.",S,W"...x..|
00000ED0: 31 35 3A 20 9F 31 35 2C 38 2C 31 35 20 00 F0 16 |15: .15,8,15 ...|
00000EE0: 82 05 84 31 35 2C 45 2C 45 24 2C 45 31 2C 45 32 |...15,E,E$,E1,E2|
00000EF0: 00 0E 17 8C 05 99 22 11 11 22 3B 45 3B 45 24 3A |......"..";E;E$:|
00000F00: 81 44 4C B2 30 A4 32 30 30 30 3A 82 44 4C 00 1E |.DL.0.2000:.DL..|
00000F10: 17 96 05 8B 45 B3 B1 30 A7 89 31 33 33 30 00 2D |....E..0..1330.-|
00000F20: 17 A0 05 81 43 48 B2 33 32 A4 31 32 36 00 3A 17 |....CH.32.126.:.|
00000F30: AA 05 81 20 44 B2 30 A4 31 30 00 4D 17 B4 05 98 |... D.0.10.M....|
00000F40: 31 2C 4B 28 43 48 2C 44 29 3B 43 52 24 00 54 17 |1,K(CH,D);CR$.T.|
00000F50: BE 05 82 44 00 5C 17 C8 05 82 43 48 00 6C 17 D2 |...D.\....CH.l..|
00000F60: 05 98 31 2C C7 28 31 33 29 3A A0 31 00 AD 17 DC |..1,.(13):.1....|
00000F70: 05 A0 31 35 3A 99 22 11 52 45 4D 45 4D 42 45 52 |..15:.".REMEMBER|
00000F80: 20 54 48 41 54 20 59 4F 55 52 20 49 4E 54 45 52 | THAT YOUR INTER|
00000F90: 46 41 43 45 20 48 41 53 20 42 45 45 4E 20 20 20 |FACE HAS BEEN |
00000FA0: 20 44 49 53 41 42 4C 45 44 2E 22 3A 80 00 CC 17 | DISABLED.":....|
00000FB0: E6 05 8F 20 2A 20 44 49 52 45 43 54 4F 52 59 20 |... * DIRECTORY |
00000FC0: 53 55 42 52 4F 55 54 49 4E 45 20 2A 00 D2 17 F0 |SUBROUTINE *....|
00000FD0: 05 8F 00 EF 17 FA 05 99 22 93 22 3A 44 54 B2 32 |........".":DT.2|
00000FE0: 3A 41 24 B2 22 30 22 3A 41 B2 30 3A 42 B2 30 00 |:A$."0":A.0:B.0.|
00000FF0: 12 18 04 06 9F 32 2C 38 2C 30 2C 22 24 22 AA 41 |.....2,8,0,"$".A|
00001000: 24 AA 22 22 3A A1 23 32 2C 41 24 3A A1 23 32 2C |$."":.#2,A$:.#2,|
00001010: 41 24 00 22 18 0E 06 8B 41 B2 44 54 A7 41 B2 30 |A$."....A.DT.A.0|
00001020: 3A 99 00 2F 18 18 06 99 A3 32 30 AC 41 29 3B 00 |:../.....20.A);.|
00001030: 56 18 22 06 81 43 B2 31 A4 34 3A A1 23 32 2C 41 |V."..C.1.4:.#2,A|
00001040: 24 3A 82 3A 8B 53 54 B3 B1 30 A7 A0 32 3A 99 C7 |$:.:.ST..0..2:..|
00001050: 28 31 33 29 3A 8E 00 74 18 2C 06 A1 23 32 2C 41 |(13):..t.,..#2,A|
00001060: 24 3A 8B 41 24 B2 22 22 A7 41 B2 41 AA 31 3A 89 |$:.A$."".A.A.1:.|
00001070: 31 35 35 30 00 8D 18 36 06 8B 41 24 B2 C7 28 33 |1550...6..A$..(3|
00001080: 34 29 A7 42 B2 A8 42 3A 89 31 35 38 30 00 99 18 |4).B..B:.1580...|
00001090: 40 06 8B 42 A7 99 41 24 3B 00 A3 18 4A 06 89 31 |@..B..A$;...J..1|
000010A0: 35 38 30 00 C2 18 54 06 8F 20 20 2A 20 49 4E 53 |580...T.. * INS|
000010B0: 54 52 55 43 54 49 4F 4E 20 52 4F 55 54 49 4E 45 |TRUCTION ROUTINE|
000010C0: 20 2A 00 F1 18 5E 06 99 22 93 11 11 11 20 20 20 | *...^..".... |
000010D0: 20 20 54 48 49 53 20 55 54 49 4C 49 54 59 20 49 | THIS UTILITY I|
000010E0: 53 20 55 53 45 44 20 54 4F 20 44 45 53 49 47 4E |S USED TO DESIGN|
000010F0: 22 00 1F 19 68 06 99 22 11 20 20 59 4F 55 52 20 |"...h..". YOUR |
00001100: 4F 57 4E 20 43 48 41 52 41 43 54 45 52 53 20 46 |OWN CHARACTERS F|
00001110: 4F 52 20 54 48 45 20 47 45 4D 49 4E 49 2C 22 00 |OR THE GEMINI,".|
00001120: 4E 19 72 06 99 22 11 20 20 54 45 53 54 20 54 48 |N.r..". TEST TH|
00001130: 45 4D 20 41 4E 44 20 54 48 45 4E 20 53 54 4F 52 |EM AND THEN STOR|
00001140: 45 20 54 48 45 20 44 41 54 41 20 4F 4E 22 00 7A |E THE DATA ON".z|
00001150: 19 7C 06 99 22 11 20 20 20 20 20 20 41 20 44 49 |.|..". A DI|
00001160: 53 4B 20 46 49 4C 45 2E 20 20 41 20 27 4E 4F 52 |SK FILE. A 'NOR|
00001170: 4D 41 4C 20 46 4F 4E 54 27 22 00 A8 19 86 06 99 |MAL FONT'"......|
00001180: 22 11 20 20 49 53 20 50 52 4F 56 49 44 45 44 20 |". IS PROVIDED |
00001190: 41 53 20 41 20 53 54 41 52 54 45 52 20 46 49 4C |AS A STARTER FIL|
000011A0: 45 20 54 4F 20 42 45 22 00 D8 19 90 06 99 22 11 |E TO BE"......".|
000011B0: 20 4C 4F 41 44 45 44 20 42 59 20 54 48 45 20 50 | LOADED BY THE P|
000011C0: 52 4F 47 52 41 4D 20 49 4E 54 4F 20 54 48 45 20 |ROGRAM INTO THE |
000011D0: 50 52 49 4E 54 45 52 22 00 FD 19 9A 06 99 22 11 |PRINTER"......".|
000011E0: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 12 |.. .|
000011F0: 50 52 45 53 53 20 53 50 41 43 45 92 22 00 14 1A |PRESS SPACE."...|
00001200: A4 06 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 89 |...SP$:.SP$.""..|
00001210: 31 37 30 30 00 28 1A AE 06 8B 53 50 24 B3 B1 22 |1700.(....SP$.."|
00001220: 20 22 A7 89 31 37 30 30 00 5A 1A B8 06 99 22 93 | "..1700.Z....".|
00001230: 11 11 11 20 54 48 45 20 50 52 49 4E 54 45 52 20 |... THE PRINTER |
00001240: 57 49 4C 4C 20 4E 4F 54 20 50 52 49 4E 54 20 44 |WILL NOT PRINT D|
00001250: 4F 54 53 20 57 48 49 43 48 22 00 86 1A C2 06 99 |OTS WHICH"......|
00001260: 22 11 20 20 20 20 41 52 45 20 41 44 4A 41 43 45 |". ARE ADJACE|
00001270: 4E 54 20 54 4F 20 45 41 43 48 20 4F 54 48 45 52 |NT TO EACH OTHER|
00001280: 20 4F 4E 20 41 22 00 B6 1A CC 06 99 22 11 20 48 | ON A"......". H|
00001290: 4F 52 49 5A 4F 4E 54 41 4C 20 4C 49 4E 45 2E 20 |ORIZONTAL LINE. |
000012A0: 4C 45 41 56 45 20 41 20 53 50 41 43 45 20 42 45 |LEAVE A SPACE BE|
000012B0: 54 57 45 45 4E 22 00 E5 1A D6 06 99 22 11 20 20 |TWEEN"......". |
000012C0: 54 48 45 4D 2E 20 20 41 4C 4C 20 56 45 52 54 49 |THEM. ALL VERTI|
000012D0: 43 41 4C 20 44 4F 54 53 20 57 49 4C 4C 20 50 52 |CAL DOTS WILL PR|
000012E0: 49 4E 54 2E 22 00 0A 1B E0 06 99 22 11 11 11 20 |INT."......"... |
000012F0: 20 20 20 20 20 20 20 20 20 20 20 20 12 50 52 45 | .PRE|
00001300: 53 53 20 53 50 41 43 45 92 22 00 21 1B EA 06 A1 |SS SPACE.".!....|
00001310: 53 50 24 3A 8B 53 50 24 B2 22 22 A7 89 31 37 37 |SP$:.SP$.""..177|
00001320: 30 00 53 1B F4 06 99 22 93 11 11 11 20 20 49 46 |0.S....".... IF|
00001330: 20 41 20 43 48 41 52 41 43 54 45 52 20 52 45 51 | A CHARACTER REQ|
00001340: 55 49 52 45 53 20 41 20 44 45 53 43 45 4E 44 45 |UIRES A DESCENDE|
00001350: 52 2C 22 00 82 1B FE 06 99 22 11 20 28 41 20 50 |R,"......". (A P|
00001360: 4F 52 54 49 4F 4E 20 42 45 4C 4F 57 20 54 48 45 |ORTION BELOW THE|
00001370: 20 4C 49 4E 45 29 2C 20 50 52 45 53 53 20 46 31 | LINE), PRESS F1|
00001380: 2E 22 00 B2 1B 08 07 99 22 11 20 54 57 4F 20 4D |."......". TWO M|
00001390: 41 52 4B 53 20 57 49 4C 4C 20 49 4E 44 49 43 41 |ARKS WILL INDICA|
000013A0: 54 45 20 57 48 49 43 48 20 44 4F 54 53 20 41 52 |TE WHICH DOTS AR|
000013B0: 45 22 00 DC 1B 12 07 99 22 11 20 20 20 20 20 20 |E"......". |
000013C0: 20 20 41 42 4F 56 45 20 41 4E 44 20 42 45 4C 4F | ABOVE AND BELO|
000013D0: 57 20 54 48 45 20 4C 49 4E 45 2E 22 00 02 1C 1C |W THE LINE."....|
000013E0: 07 99 22 11 11 11 20 20 20 20 20 20 20 20 20 20 |.."... |
000013F0: 20 20 20 20 12 50 52 45 53 53 20 53 50 41 43 45 | .PRESS SPACE|
00001400: 92 22 00 19 1C 26 07 A1 53 50 24 3A 8B 53 50 24 |."...&..SP$:.SP$|
00001410: B2 22 22 A7 89 31 38 33 30 00 2D 1C 30 07 8B 53 |.""..1830.-.0..S|
00001420: 50 24 B3 B1 22 20 22 A7 89 31 38 33 30 00 5E 1C |P$.." "..1830.^.|
00001430: 3A 07 99 22 93 11 11 11 20 20 20 54 4F 20 54 45 |:..".... TO TE|
00001440: 53 54 20 54 48 45 20 44 45 53 49 47 4E 20 4F 4E |ST THE DESIGN ON|
00001450: 20 54 48 45 20 50 52 49 4E 54 45 52 2C 22 00 8E | THE PRINTER,"..|
00001460: 1C 44 07 99 22 11 20 50 52 45 53 53 20 27 50 27 |.D..". PRESS 'P'|
00001470: 2E 20 20 54 48 45 20 43 48 41 52 41 43 54 45 52 |. THE CHARACTER|
00001480: 20 49 53 20 44 49 53 50 4C 41 59 45 44 22 00 BB | IS DISPLAYED"..|
00001490: 1C 4E 07 99 22 11 20 20 57 49 54 48 20 41 4E 44 |.N..". WITH AND|
000014A0: 20 57 49 54 48 4F 55 54 20 55 4E 44 45 52 4C 49 | WITHOUT UNDERLI|
000014B0: 4E 45 2E 20 20 50 52 45 53 53 22 00 EA 1C 58 07 |NE. PRESS"...X.|
000014C0: 99 22 11 20 27 54 27 20 54 4F 20 50 52 49 4E 54 |.". 'T' TO PRINT|
000014D0: 20 41 4C 4C 20 43 48 41 52 41 43 54 45 52 53 2E | ALL CHARACTERS.|
000014E0: 20 20 41 4C 4C 20 54 48 45 22 00 18 1D 62 07 99 | ALL THE"...b..|
000014F0: 22 11 20 20 44 41 54 41 20 49 53 20 41 55 54 4F |". DATA IS AUTO|
00001500: 4D 41 54 49 43 41 4C 4C 59 20 53 54 4F 52 45 44 |MATICALLY STORED|
00001510: 20 49 4E 20 54 48 45 22 00 45 1D 6C 07 99 22 11 | IN THE".E.l..".|
00001520: 20 20 4D 45 4D 4F 52 59 2E 20 20 49 46 20 59 4F | MEMORY. IF YO|
00001530: 55 20 44 4F 4E 27 54 20 57 41 4E 54 20 54 48 45 |U DON'T WANT THE|
00001540: 20 44 41 54 41 00 76 1D 76 07 99 22 11 53 54 4F | DATA.v.v..".STO|
00001550: 52 45 44 2C 20 4F 52 20 59 4F 55 20 57 41 4E 54 |RED, OR YOU WANT|
00001560: 20 41 20 4E 45 57 20 47 52 49 44 2C 20 50 52 45 | A NEW GRID, PRE|
00001570: 53 53 27 4E 27 22 00 9C 1D 80 07 99 22 11 11 11 |SS'N'"......"...|
00001580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 50 | .P|
00001590: 52 45 53 53 20 53 50 41 43 45 92 22 00 B3 1D 8A |RESS SPACE."....|
000015A0: 07 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 89 31 |..SP$:.SP$.""..1|
000015B0: 39 33 30 00 C7 1D 94 07 8B 53 50 24 B3 B1 22 20 |930......SP$.." |
000015C0: 22 A7 89 31 39 33 30 00 FA 1D 9E 07 99 22 93 11 |"..1930......"..|
000015D0: 11 11 20 20 57 48 45 4E 20 59 4F 55 20 51 55 49 |.. WHEN YOU QUI|
000015E0: 54 20 28 27 51 27 29 2C 20 59 4F 55 20 43 41 4E |T ('Q'), YOU CAN|
000015F0: 20 53 41 56 45 20 41 4C 4C 22 00 27 1E A8 07 99 | SAVE ALL".'....|
00001600: 22 11 20 20 20 20 54 48 45 20 44 41 54 41 20 54 |". THE DATA T|
00001610: 4F 20 44 49 53 4B 2E 20 20 54 48 49 53 20 46 49 |O DISK. THIS FI|
00001620: 4C 45 20 43 41 4E 22 00 55 1E B2 07 99 22 11 20 |LE CAN".U....". |
00001630: 20 20 42 45 20 4C 4F 41 44 45 44 20 42 59 20 54 | BE LOADED BY T|
00001640: 48 49 53 20 50 52 4F 47 52 41 4D 20 49 4E 54 4F |HIS PROGRAM INTO|
00001650: 20 54 48 45 22 00 82 1E BC 07 99 22 11 20 20 20 | THE"......". |
00001660: 50 52 49 4E 54 45 52 20 41 4E 59 20 54 49 4D 45 |PRINTER ANY TIME|
00001670: 20 59 4F 55 20 57 41 4E 54 20 54 48 45 20 4E 45 | YOU WANT THE NE|
00001680: 57 22 00 A6 1E C6 07 99 22 11 20 20 20 20 20 20 |W"......". |
00001690: 20 20 20 20 20 20 20 43 48 41 52 41 43 54 45 52 | CHARACTER|
000016A0: 20 53 45 54 2E 22 00 CC 1E D0 07 99 22 11 11 11 | SET."......"...|
000016B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 50 | .P|
000016C0: 52 45 53 53 20 53 50 41 43 45 92 22 00 E3 1E DA |RESS SPACE."....|
000016D0: 07 A1 53 50 24 3A 8B 53 50 24 B2 22 22 A7 89 32 |..SP$:.SP$.""..2|
000016E0: 30 31 30 00 F7 1E E4 07 8B 53 50 24 B3 B1 22 20 |010......SP$.." |
000016F0: 22 A7 89 32 30 31 30 00 28 1F EE 07 99 22 93 11 |"..2010.(...."..|
00001700: 11 11 20 20 20 20 59 4F 55 20 4D 41 59 20 4E 45 |.. YOU MAY NE|
00001710: 45 44 20 54 4F 20 41 4C 54 45 52 20 50 52 49 4E |ED TO ALTER PRIN|
00001720: 54 45 52 20 41 4E 44 22 00 52 1F F8 07 99 22 11 |TER AND".R....".|
00001730: 20 20 20 20 20 20 20 20 20 20 49 4E 54 45 52 46 | INTERF|
00001740: 41 43 45 20 44 49 50 20 53 57 49 54 43 48 45 53 |ACE DIP SWITCHES|
00001750: 2E 22 00 65 1F 02 08 99 22 11 11 20 50 52 49 4E |.".e....".. PRIN|
00001760: 54 45 52 3A 22 00 94 1F 0C 08 99 22 11 20 20 20 |TER:"......". |
00001770: 32 2D 31 20 4F 4E 20 20 20 32 2D 32 20 4F 46 46 |2-1 ON 2-2 OFF|
00001780: 20 20 20 32 2D 33 20 4F 46 46 20 20 20 32 2D 34 | 2-3 OFF 2-4|
00001790: 20 4F 4E 22 00 AB 1F 16 08 99 22 11 20 2B 47 20 | ON"......". +G |
000017A0: 49 4E 54 45 52 46 41 43 45 3A 22 00 BD 1F 20 08 |INTERFACE:"... .|
000017B0: 99 22 11 20 20 20 41 4C 4C 20 4F 4E 22 00 EE 1F |.". ALL ON"...|
000017C0: 2A 08 99 22 11 11 4F 54 48 45 52 20 49 4E 54 45 |*.."..OTHER INTE|
000017D0: 52 46 41 43 45 53 2C 20 54 52 59 20 54 52 41 4E |RFACES, TRY TRAN|
000017E0: 53 50 41 52 45 4E 54 20 4D 4F 44 45 2E 22 00 14 |SPARENT MODE."..|
000017F0: 20 34 08 99 22 11 11 11 20 20 20 20 20 20 20 20 | 4.."... |
00001800: 20 20 20 20 20 20 12 50 52 45 53 53 20 53 50 41 | .PRESS SPA|
00001810: 43 45 92 22 00 2B 20 3E 08 A1 53 50 24 3A 8B 53 |CE.".+ >..SP$:.S|
00001820: 50 24 B2 22 22 A7 89 32 31 31 30 00 3F 20 48 08 |P$.""..2110.? H.|
00001830: 8B 53 50 24 B3 B1 22 20 22 A7 89 32 31 31 30 00 |.SP$.." "..2110.|
00001840: 45 20 52 08 8E 00 00 00 |E R..... |
.. .... ***CHARACTER CREATOR***.?....
*** FOR GEMINI 10X ***.^.... *** WIT
H CARD/? ***.}.(.. *** INTERFACE
***...2.. *** ***...<
.. *** ADAPTED BY ***.Z.F.. ***
KEN COX ***...P.. *** TPUG TOR
ONTO ***...Z.. *** COPYRIGHT 1984 ***
.6.D.. *** OKAY TO GIVE BUT***.T.N.. ***
NOT TO SELL ***.Z.X...I....K(126,10
)......4,4,25:.4:." ":.4,: 4......53281,
0:.53280,12:."."G(142)G(8):.253,0... .."
..... DO YOU WANT INSTRUCTIONS? (Y/N
)"......I$:.I$.""..170......I$."Y"..1630
......".....";.+.H.."FONT NAME OR.".G.R.
.".D.IRECTORY D...";F$.C....F$."D".."."
:.1530:.200...... *READ FILE AND STORE*
* DATA IN ARRAYS *.
E... 1:. 1,8,2,"0:".F$.",S,R"......15,8,
15:.15,E,E$......E..0.."....";E$: 1: 15:
.200.&....CH.32.126:.D.0.10:.1,K(CH,D) :
.D:.CH.1... 1: 15.;."..1250.{.,..".":.CH
.31.CH.127.."... THE LAST ASCII NUM
BER WAS";CH...6.. "... ENTER THE ASCII
NUMBER TO DESIGN".L.@.." (
32 TO 126)";.T.J..CH...T..CH.32.CH.126.3
00...^.....H.. ***SET UP SCREEN DISPLAY
***...R...K.|.DE.0:."..S -STORE DATA IN
MEMORY .ASCII NO.";._....CH;".";:.G(CH).
~...."P -PRINT THIS CHARACTER"......"T -
PRINT ALL CHARACTERS"......"F1-DESCENDER
ON".L...."F3-DESCENDER OFF"......"Q -QU
IT/WRITE FONT TO DISK"...B.."N -NEW GRID
(WILL NOT STORE DATA)".+.L.."E -ERASE D
OT".>.V.."SPACE-DOT ON.^...."CURSOR CONT
ROLS TO MOVE."......" .......";
:.T.1.9:.".";:.:.......T.1.7:."
.......";:.R.1.9:.".";:.:.".":......."
.......";:.T.1.9:.".";:.:R.0:C.
0:LS.46:TT.1......"..............";:.930
.2....204,0:.A$:.A$."".530.J....204,1:.A
$."S"..810.[.&..A$."S"..840.Z.0..A$.".".
.55911,1:.55923,1...:..A$.".".DE.1:.164
0,122:.1639,111:.1650,76:.1651,111.X.D..
A$.".".DE.0:.1640,103:.1650,101:...N..A$
."."..55911,0:.55923,0...X..A$."E".780..
.B..A$."N"..300...L..A$."Q"..840:.1330.>
.V..A$." ".790.[....A$."P"..840:.1020:.1
170......A$."T"..840:.1020:.TE.32.126:.4
,G(TE);:.TE......A$."T"..4,G(13): 4.A...
. B(206)..46.TT.1..". .";.J...TT.0......
LS.46..".";:.710......". .";...F.C.C.(A$
.".").(A$."."). .P.R.R.(A$.".").(A$.".")
.?.Z..C.0.C.8.C.0.(C.8).8.(C.0).^....R.0
.R.6.R.0.(R.6).6.(R.0)......".":.T.1.10.
R:.".";:.:.T.1.17.C:.".";:......LS.B(148
1.R.40.C)......530.O....".";:C.C.1:.710:
. ERASE ROUTINE......". .";:C.C.1:.710:.
DOT ROUTINE... .....*.. *READ SCREEN DI
SPLAY AND*.:.4.. * AND STORE IN ARRAY
*.@.>...[.H.K(CH,0).CH:K(CH,10).DE.E.R.
SC.40.Z.\..D.1.9:CM.1480.D...F.K(CH,D).0
:.P.0.6...P..B(CM).160.B(CM).32.K(CH,D).
K(CH,D).2.P.K.Z.CM.CM.SC:.P.R....D.X....
...... *READ ARRAY AND SHOW CHARACTER*.
....SC.40.%....D.1.9:CM.1480.D:.P.0.6.>.
...K(CH,D).2.P..CM,160.Q...CM.CM.SC:.P:.
D.X.J..K(CH,10).1.DE.1:.55911,1:.55923,1
...T..K(CH,10).1..1640,122:.1639,111:.16
50,76:.1651,111............ *TELL PRINT
ER WHICH ASCII* * NUMBER IS
BEING CHANGED*............4,4.:....4,G(
27)G(42)G(1)G(K(CH,0))G(K(CH,10));.@....
.B.... *SEND NEW CHARACTER DATA*.H.$..
......D.1.9:.4,G(K(CH,D));:.D...8.....B.
. *SELECT DOWNLOADED SET*.M.L.. *
FOR TESTING *.S.V.....`..4,G(27)
G(36)G(1);...J.....T.....~.. *PRINT N
EW CHARACTER*.......?....P.1.10:.4,G(K(C
H,0));G(32);:.P.F....*.L....*PRINT CHARA
CTER WITH UNDERLINE*......4,G(27)G(45)G(
1)......P.1.10:.4,G(K(CH,0));G(32);:.P:.
4,G(13).H.D..4,G(27)G(45)G(0): 4.N.N....
.X.. *DOWNLOAD SET FROM DISK*.*... 4:.4
,4:."..... SENDING DATA TO PRINTER FOR 1
9 SECONDS".:....CH.32.126:.E....4,G(27).
G(42).G(1).G(CH).G(K(CH,10));......D.1.9
:.4,G(K(CH,D));:.D:.CH......4,G(27)G(36)
G(1)..... 4: ..L.... *WRITE DATA TO SEQU
ENTIAL FILE*.R.(.....2.."..... WANT T
O SAVE FILE TO DISK?(Y/N)...<..Q$:.Q$.""
..1340.Z.F..Q$."N"..".REMEMBER THAT YOUR
INTERFACE HAS BEEN DISABLED.":..M.P..
Q$.."Y"..1340...Z..". NAME OF FILE: TES
T FONT...........";N$...D.CR$.G(13).J.N.
1:. 1,8,2,"@0:".N$.",S,W"...X. 15: .15,
8,15 ......15,E,E$,E1,E2......"..";E;E$:
.DL.0.2000:.DL......E..0..1330.-. ..CH.3
2.126.:.... D.0.10.M....1,K(CH,D);CR$.T.
...D.\.H..CH.L.R..1,G(13): 1..... 15:.".
REMEMBER THAT YOUR INTERFACE HAS BEEN
DISABLED.":..L.... * DIRECTORY SUBROUTI
NE *.R..........".":DT.2:A$."0":A.0:B.0.
.....2,8,0,"$".A$."":.#2,A$:.#2,A$."....
A.DT.A.0:../.....20.A);.V."..C.1.4:.#2,A
$:.:.ST..0. 2:.G(13):..T.,..#2,A$:.A$.""
.A.A.1:.1550...6..A$.G(34).B..B:.1580...
@..B..A$;...J..1580.B.T.. * INSTRUCTION
ROUTINE *...^..".... THIS UTILITY I
S USED TO DESIGN"...H..". YOUR OWN CHAR
ACTERS FOR THE GEMINI,".N.R..". TEST TH
EM AND THEN STORE THE DATA ON".Z.|..".
A DISK FILE. A 'NORMAL FONT'"......
". IS PROVIDED AS A STARTER FILE TO BE"
.X....". LOADED BY THE PROGRAM INTO THE
PRINTER"......"... .PRESS SP
ACE."......SP$:.SP$.""..1700.(....SP$.."
"..1700.Z....".... THE PRINTER WILL NOT
PRINT DOTS WHICH"...B..". ARE ADJACE
NT TO EACH OTHER ON A"...L..". HORIZONTA
L LINE. LEAVE A SPACE BETWEEN"...V..".
THEM. ALL VERTICAL DOTS WILL PRINT."...
..."... .PRESS SPACE.".!....
SP$:.SP$.""..1770.S....".... IF A CHARA
CTER REQUIRES A DESCENDER,"......". (A P
ORTION BELOW THE LINE), PRESS F1."......
". TWO MARKS WILL INDICATE WHICH DOTS AR
E"......". ABOVE AND BELOW THE LI
NE."......"... .PRESS SPACE
."...&..SP$:.SP$.""..1830.-.0..SP$.." ".
.1830.^.:..".... TO TEST THE DESIGN ON
THE PRINTER,"...D..". PRESS 'P'. THE C
HARACTER IS DISPLAYED"...N..". WITH AND
WITHOUT UNDERLINE. PRESS"...X..". 'T'
TO PRINT ALL CHARACTERS. ALL THE"...B..
". DATA IS AUTOMATICALLY STORED IN THE"
.E.L..". MEMORY. IF YOU DON'T WANT THE
DATA.V.V..".STORED, OR YOU WANT A NEW G
RID, PRESS'N'"......"... .P
RESS SPACE."......SP$:.SP$.""..1930.G...
.SP$.." "..1930......".... WHEN YOU QUI
T ('Q'), YOU CAN SAVE ALL".'....". TH
E DATA TO DISK. THIS FILE CAN".U....".
BE LOADED BY THIS PROGRAM INTO THE"...
...". PRINTER ANY TIME YOU WANT THE NE
W"...F..". CHARACTER SET.".L
.P.."... .PRESS SPACE."...Z
..SP$:.SP$.""..2010......SP$.." "..2010.
(....".... YOU MAY NEED TO ALTER PRIN
TER AND".R....". INTERFACE DIP
SWITCHES.".E....".. PRINTER:"......".
2-1 ON 2-2 OFF 2-3 OFF 2-4 ON"....
..". +G INTERFACE:"... ..". ALL ON"...
*.."..OTHER INTERFACES, TRY TRANSPARENT
MODE.".. 4.."... .PRESS SPA
CE.".+ >..SP$:.SP$.""..2110.? H..SP$.."
"..2110.E R.....
> CLICK IMAGE PREVIEW FOR FULL MODAL