TYPE SETTER.C
FILE INFORMATION
FILENAME(S): TYPE SETTER.C
FILE TYPE(S): PRG
FILE SIZE: 2.7K
FIRST SEEN: 2025-11-02 16:39:41
APPEARS ON: 4 disk(s)
FILE HASH
2ddf0c919430d362f4bed9ecb4c1fd2cf08f164e079c34ccbe82fbbad3d0e2cf
FOUND ON DISKS (4 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG APRIL 84 C | TYPE SETTER.C | PRG | Treasure Chest - Plattfuss | 23 | 6 | DOWNLOAD FILE |
| A NWENDER | TYPE SETTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 7 | DOWNLOAD FILE |
| FREESOFT DISK NR | TYPE SETTER.C | PRG | Treasure Chest - Wolfgang Rauprich | 19 | 7 | DOWNLOAD FILE |
| TPUG APRIL 84 C | TYPE SETTER.C | PRG | Sailor, Ganheden | 23 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 50 08 01 00 8F 20 54 48 49 53 20 56 45 52 |..P.... THIS VER| 00000010: 53 49 4F 4E 20 49 53 20 46 4F 52 20 47 45 4D 49 |SION IS FOR GEMI| 00000020: 4E 49 20 31 30 58 20 20 20 20 20 46 4F 52 20 4F |NI 10X FOR O| 00000030: 54 48 45 52 20 50 52 49 4E 54 45 52 53 20 45 44 |THER PRINTERS ED| 00000040: 49 54 20 4C 49 4E 45 53 20 32 34 30 2D 33 36 30 |IT LINES 240-360| 00000050: 00 68 08 02 00 86 4D 44 28 32 30 2C 31 29 2C 4D |.h....MD(20,1),M| 00000060: 44 24 28 32 30 2C 31 29 00 82 08 05 00 97 20 33 |D$(20,1)...... 3| 00000070: 39 39 32 38 2C 31 30 3A 97 20 33 39 39 32 39 2C |9928,10:. 39929,| 00000080: 34 38 00 AF 08 06 00 99 22 93 11 11 11 20 20 20 |48......".... | 00000090: 20 20 20 20 20 20 50 52 49 4E 54 45 52 20 53 45 | PRINTER SE| 000000A0: 54 20 55 50 20 50 52 4F 47 52 41 4D 11 11 22 00 |T UP PROGRAM..".| 000000B0: DC 08 07 00 99 22 54 48 49 53 20 50 52 4F 47 52 |....."THIS PROGR| 000000C0: 41 4D 20 41 4C 4C 4F 57 53 20 59 4F 55 20 54 4F |AM ALLOWS YOU TO| 000000D0: 20 43 48 41 4E 47 45 20 54 48 45 22 00 1C 09 08 | CHANGE THE"....| 000000E0: 00 99 22 54 59 50 45 53 54 59 4C 45 53 20 4F 46 |.."TYPESTYLES OF| 000000F0: 20 59 4F 55 52 20 45 50 53 4F 4E 20 2F 20 47 45 | YOUR EPSON / GE| 00000100: 4D 49 4E 49 22 3A 99 22 50 52 49 4E 54 45 52 20 |MINI":."PRINTER | 00000110: 46 52 4F 4D 20 41 20 4D 45 4E 55 22 00 68 09 09 |FROM A MENU".h..| 00000120: 00 99 22 11 11 49 46 20 59 4F 55 20 48 41 56 45 |.."..IF YOU HAVE| 00000130: 20 41 4E 4F 54 48 45 52 20 50 52 49 4E 54 45 52 | ANOTHER PRINTER| 00000140: 20 54 48 45 4E 20 45 44 49 54 22 3A 99 22 54 48 | THEN EDIT":."TH| 00000150: 45 20 43 48 52 24 20 43 4F 44 45 53 20 41 43 43 |E CHR$ CODES ACC| 00000160: 4F 52 44 49 4E 47 22 3B 00 8C 09 0A 00 99 22 20 |ORDING";......" | 00000170: 54 4F 20 59 4F 55 52 20 50 52 49 4E 54 45 52 20 |TO YOUR PRINTER | 00000180: 4D 41 4E 55 41 4C 2E 11 11 11 11 22 00 AD 09 0B |MANUAL....."....| 00000190: 00 99 A3 31 30 29 22 12 48 49 54 20 41 4E 59 20 |...10)".HIT ANY | 000001A0: 4B 45 59 20 54 4F 20 53 54 41 52 54 22 00 BF 09 |KEY TO START"...| 000001B0: 0C 00 A1 58 24 3A 8B 58 24 B2 22 22 A7 31 32 00 |...X$:.X$."".12.| 000001C0: C8 09 0F 00 99 22 93 22 00 E5 09 14 00 4D 44 24 |.....".".....MD$| 000001D0: 28 31 2C 31 29 B2 22 20 31 2E 20 53 54 41 4E 44 |(1,1)." 1. STAND| 000001E0: 41 52 44 20 22 00 02 0A 1E 00 4D 44 24 28 32 2C |ARD ".....MD$(2,| 000001F0: 31 29 B2 22 20 32 2E 20 49 54 41 4C 49 43 53 20 |1)." 2. ITALICS | 00000200: 20 22 00 23 0A 28 00 4D 44 24 28 33 2C 31 29 B2 | ".#.(.MD$(3,1).| 00000210: 22 20 33 2E 20 49 4E 54 45 52 4E 41 54 49 4F 4E |" 3. INTERNATION| 00000220: 41 4C 22 00 40 0A 32 00 4D 44 24 28 34 2C 31 29 |AL".@.2.MD$(4,1)| 00000230: B2 22 20 34 2E 20 50 49 43 41 20 53 49 5A 45 22 |." 4. PICA SIZE"| 00000240: 00 5E 0A 3C 00 4D 44 24 28 35 2C 31 29 B2 22 20 |.^.<.MD$(5,1)." | 00000250: 35 2E 20 45 4C 49 54 45 20 53 49 5A 45 22 00 7C |5. ELITE SIZE".|| 00000260: 0A 46 00 4D 44 24 28 36 2C 31 29 B2 22 20 36 2E |.F.MD$(6,1)." 6.| 00000270: 20 43 4F 4E 44 45 4E 53 45 44 20 22 00 9A 0A 50 | CONDENSED "...P| 00000280: 00 4D 44 24 28 37 2C 31 29 B2 22 20 37 2E 20 45 |.MD$(7,1)." 7. E| 00000290: 4E 4C 41 52 47 45 44 20 20 22 00 B8 0A 5A 00 4D |NLARGED "...Z.M| 000002A0: 44 24 28 38 2C 31 29 B2 22 20 38 2E 20 4E 4F 52 |D$(8,1)." 8. NOR| 000002B0: 4D 41 4C 20 20 20 20 22 00 D6 0A 64 00 4D 44 24 |MAL "...d.MD$| 000002C0: 28 39 2C 31 29 B2 22 20 39 2E 20 45 4D 50 48 41 |(9,1)." 9. EMPHA| 000002D0: 53 49 5A 45 44 22 00 F8 0A 6E 00 4D 44 24 28 31 |SIZED"...n.MD$(1| 000002E0: 30 2C 31 29 B2 22 31 30 2E 20 44 4F 55 42 4C 45 |0,1)."10. DOUBLE| 000002F0: 20 53 54 52 49 4B 45 22 00 16 0B 82 00 4D 44 24 | STRIKE".....MD$| 00000300: 28 31 31 2C 31 29 B2 22 31 31 2E 20 55 4E 44 45 |(11,1)."11. UNDE| 00000310: 52 4C 49 4E 45 22 00 36 0B 8C 00 4D 44 24 28 31 |RLINE".6...MD$(1| 00000320: 32 2C 31 29 B2 22 31 32 2E 20 53 55 50 45 52 53 |2,1)."12. SUPERS| 00000330: 43 52 49 50 54 22 00 54 0B 96 00 4D 44 24 28 31 |CRIPT".T...MD$(1| 00000340: 33 2C 31 29 B2 22 31 33 2E 20 53 55 42 53 43 52 |3,1)."13. SUBSCR| 00000350: 49 50 54 22 00 6F 0B A0 00 4D 44 24 28 31 34 2C |IPT".o...MD$(14,| 00000360: 31 29 B2 22 31 34 2E 20 43 41 4E 43 45 4C 22 00 |1)."14. CANCEL".| 00000370: 97 0B A5 00 81 55 B2 31 A4 32 30 3A 8B 4D 44 24 |.....U.1.20:.MD$| 00000380: 28 55 2C 31 29 B3 B1 22 22 A7 99 A3 31 30 29 4D |(U,1)..""...10)M| 00000390: 44 24 28 55 2C 31 29 00 9D 0B A6 00 82 00 BD 0B |D$(U,1).........| 000003A0: AA 00 99 20 A3 38 29 22 20 2D 2D 2D 2D 2D 2D 2D |... .8)" -------| 000003B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 EB 0B |------------"...| 000003C0: C8 00 85 22 11 20 20 20 20 20 20 20 45 4E 54 45 |...". ENTE| 000003D0: 52 20 50 52 49 4E 54 20 4F 50 54 49 4F 4E 20 44 |R PRINT OPTION D| 000003E0: 45 53 49 52 45 44 20 22 3B 43 24 00 0D 0C E6 00 |ESIRED ";C$.....| 000003F0: 43 B2 C5 28 43 24 29 3A 8B 43 B3 31 B0 43 B1 32 |C..(C$):.C.1.C.2| 00000400: 30 A7 99 22 91 91 91 22 3A 89 32 30 30 00 2A 0C |0.."...":.200.*.| 00000410: E7 00 8B 4D 44 24 28 43 2C 31 29 B2 22 22 A7 99 |...MD$(C,1).""..| 00000420: 22 91 91 91 22 3A 89 32 30 30 00 38 0C E9 00 4D |"...":.200.8...M| 00000430: 44 28 43 2C 31 29 B2 31 00 46 0C EA 00 4D 44 28 |D(C,1).1.F...MD(| 00000440: 43 2C 31 29 B2 31 00 85 0C EB 00 91 43 89 32 34 |C,1).1......C.24| 00000450: 30 2C 32 35 30 2C 37 30 30 2C 32 37 30 2C 32 38 |0,250,700,270,28| 00000460: 30 2C 32 39 30 2C 33 30 30 2C 33 31 30 2C 33 32 |0,290,300,310,32| 00000470: 30 2C 33 33 30 2C 33 34 30 2C 33 35 30 2C 33 36 |0,330,340,350,36| 00000480: 30 2C 39 30 30 00 9E 0C F0 00 43 24 B2 C7 28 32 |0,900.....C$..(2| 00000490: 37 29 AA C7 28 35 33 29 3A 89 20 35 30 30 00 B7 |7)..(53):. 500..| 000004A0: 0C FA 00 43 24 B2 C7 28 32 37 29 AA C7 28 35 32 |...C$..(27)..(52| 000004B0: 29 3A 89 20 35 30 30 00 D5 0C 0E 01 43 24 B2 C7 |):. 500.....C$..| 000004C0: 28 32 37 29 AA C7 28 36 36 29 AA C7 28 31 29 3A |(27)..(66)..(1):| 000004D0: 89 20 35 30 30 00 F3 0C 18 01 43 24 B2 C7 28 32 |. 500.....C$..(2| 000004E0: 37 29 AA C7 28 36 36 29 AA C7 28 32 29 3A 89 20 |7)..(66)..(2):. | 000004F0: 35 30 30 00 06 0D 22 01 43 24 B2 C7 28 31 35 29 |500...".C$..(15)| 00000500: 3A 89 20 35 30 30 00 24 0D 2C 01 43 24 B2 C7 28 |:. 500.$.,.C$..(| 00000510: 32 37 29 AA C7 28 38 37 29 AA C7 28 31 29 3A 89 |27)..(87)..(1):.| 00000520: 20 35 30 30 00 37 0D 36 01 43 24 B2 C7 28 32 30 | 500.7.6.C$..(20| 00000530: 29 3A 89 20 35 30 30 00 50 0D 40 01 43 24 B2 C7 |):. 500.P.@.C$..| 00000540: 28 32 37 29 AA C7 28 36 39 29 3A 89 20 35 30 30 |(27)..(69):. 500| 00000550: 00 69 0D 4A 01 43 24 B2 C7 28 32 37 29 AA C7 28 |.i.J.C$..(27)..(| 00000560: 37 31 29 3A 89 20 35 30 30 00 87 0D 54 01 43 24 |71):. 500...T.C$| 00000570: B2 C7 28 32 37 29 AA C7 28 34 35 29 AA C7 28 31 |..(27)..(45)..(1| 00000580: 29 3A 89 20 35 30 30 00 A5 0D 5E 01 43 24 B2 C7 |):. 500...^.C$..| 00000590: 28 32 37 29 AA C7 28 38 33 29 AA C7 28 30 29 3A |(27)..(83)..(0):| 000005A0: 89 20 35 30 30 00 C3 0D 68 01 43 24 B2 C7 28 32 |. 500...h.C$..(2| 000005B0: 37 29 AA C7 28 38 33 29 AA C7 28 31 29 3A 89 20 |7)..(83)..(1):. | 000005C0: 35 30 30 00 C9 0D 7C 01 80 00 D2 0D F4 01 9F 34 |500...|........4| 000005D0: 2C 34 00 DC 0D FE 01 98 34 2C 43 24 00 E8 0D 02 |,4......4,C$....| 000005E0: 02 81 5A B2 31 A4 32 30 00 09 0E 03 02 8B 4D 44 |..Z.1.20......MD| 000005F0: 28 5A 2C 31 29 B2 31 A7 98 34 2C 4D 44 24 28 5A |(Z,1).1..4,MD$(Z| 00000600: 2C 31 29 3B 22 20 20 22 3B 00 0F 0E 04 02 82 00 |,1);" ";.......| 00000610: 17 0E 08 02 A0 20 34 00 58 0E 12 02 99 22 93 11 |..... 4.X...."..| 00000620: 11 11 11 11 11 11 11 11 44 4F 20 59 4F 55 20 57 |........DO YOU W| 00000630: 49 53 48 20 54 4F 20 53 45 4C 45 43 54 20 41 22 |ISH TO SELECT A"| 00000640: 3A 99 22 20 53 55 50 50 4C 45 4D 45 4E 54 41 52 |:." SUPPLEMENTAR| 00000650: 59 20 4D 4F 44 45 3F 22 00 6E 0E 1C 02 A1 20 4C |Y MODE?".n.... L| 00000660: 24 3A 8B 20 4C 24 B2 22 22 A7 20 35 34 30 00 80 |$:. L$."". 540..| 00000670: 0E 26 02 8B 20 4C 24 B2 22 59 22 20 A7 20 31 35 |.&.. L$."Y" . 15| 00000680: 00 BB 0E 30 02 8B 20 4C 24 B2 22 4E 22 20 A7 20 |...0.. L$."N" . | 00000690: 99 20 A3 33 29 22 11 11 44 4F 20 59 4F 55 20 57 |. .3)"..DO YOU W| 000006A0: 41 4E 54 20 54 4F 20 52 45 54 55 52 4E 20 54 4F |ANT TO RETURN TO| 000006B0: 20 54 48 45 20 4D 45 4E 55 3F 22 00 D0 0E 3A 02 | THE MENU?"...:.| 000006C0: A1 20 58 24 3A 8B 20 58 24 B2 22 22 A7 35 37 30 |. X$:. X$."".570| 000006D0: 00 E1 0E 3B 02 8B 58 24 B2 22 59 22 20 A7 20 31 |...;..X$."Y" . 1| 000006E0: 35 00 E7 0E 3C 02 80 00 12 0F 40 02 97 33 39 39 |5...<.....@..399| 000006F0: 32 38 2C 31 30 3A 97 33 39 39 32 39 2C 39 36 20 |28,10:.39929,96 | 00000700: 3A 97 20 36 33 31 2C 31 33 31 3A 97 20 31 39 38 |:. 631,131:. 198| 00000710: 2C 31 00 18 0F 44 02 80 00 32 0F BC 02 99 20 22 |,1...D...2.... "| 00000720: 93 22 20 A3 31 35 29 22 31 2E 20 55 2E 53 2E 41 |." .15)"1. U.S.A| 00000730: 2E 22 00 49 0F C6 02 99 20 A3 31 35 29 22 32 2E |.".I.... .15)"2.| 00000740: 20 45 4E 47 4C 41 4E 44 22 00 60 0F D0 02 99 20 | ENGLAND".`.... | 00000750: A3 31 35 29 22 33 2E 20 47 45 52 4D 41 4E 59 22 |.15)"3. GERMANY"| 00000760: 00 77 0F DA 02 99 20 A3 31 35 29 22 34 2E 20 44 |.w.... .15)"4. D| 00000770: 45 4E 4D 41 52 4B 22 00 8D 0F E4 02 99 20 A3 31 |ENMARK"...... .1| 00000780: 35 29 22 35 2E 20 46 52 41 4E 43 45 22 00 A3 0F |5)"5. FRANCE"...| 00000790: EE 02 99 20 A3 31 35 29 22 36 2E 20 53 57 45 44 |... .15)"6. SWED| 000007A0: 45 4E 22 00 B8 0F F8 02 99 20 A3 31 35 29 22 37 |EN"...... .15)"7| 000007B0: 2E 20 49 54 41 4C 59 22 00 CD 0F 02 03 99 20 A3 |. ITALY"...... .| 000007C0: 31 35 29 22 38 2E 20 53 50 41 49 4E 22 00 E5 0F |15)"8. SPAIN"...| 000007D0: 0C 03 99 20 A3 31 35 29 20 22 2D 2D 2D 2D 2D 2D |... .15) "------| 000007E0: 2D 2D 2D 2D 22 00 FF 0F 16 03 99 20 A3 39 35 29 |----"...... .95)| 000007F0: 20 22 45 4E 54 45 52 20 4F 50 54 49 4F 4E 22 00 | "ENTER OPTION".| 00000800: 2C 10 20 03 85 20 20 22 11 1D 1D 1D 1D 1D 1D 1D |,. .. "........| 00000810: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 20 4E 55 4D 42 |........... NUMB| 00000820: 45 52 22 3B 4E 20 3A 4E B2 4E AB 31 00 5F 10 2A |ER";N :N.N.1._.*| 00000830: 03 8B 4E B3 30 B0 4E B1 37 A7 99 A3 39 35 29 22 |..N.0.N.7...95)"| 00000840: 49 4E 56 41 4C 49 44 20 45 4E 54 52 59 22 3A 81 |INVALID ENTRY":.| 00000850: 49 B2 31 A4 35 30 30 3A 82 49 3A 89 37 30 30 00 |I.1.500:.I:.700.| 00000860: 75 10 34 03 8B 20 4E B3 37 20 B0 20 4E B1 30 20 |u.4.. N.7 . N.0 | 00000870: A7 20 4E B2 4E 00 93 10 3E 03 43 24 B2 C7 28 32 |. N.N...>.C$..(2| 00000880: 37 29 AA C7 28 35 35 29 AA C7 28 4E 29 3A 89 20 |7)..(55)..(N):. | 00000890: 35 30 30 00 AE 10 84 03 99 20 22 93 22 A3 31 30 |500...... ".".10| 000008A0: 29 22 31 2E 20 45 4E 4C 41 52 47 45 44 22 00 CB |)"1. ENLARGED"..| 000008B0: 10 8E 03 99 20 A3 31 30 29 22 32 2E 20 44 4F 55 |.... .10)"2. DOU| 000008C0: 42 4C 45 20 53 54 52 49 4B 45 22 00 E5 10 98 03 |BLE STRIKE".....| 000008D0: 99 20 A3 31 30 29 22 33 2E 20 45 4D 50 48 41 53 |. .10)"3. EMPHAS| 000008E0: 49 5A 45 44 22 00 FE 10 A2 03 99 20 A3 31 30 29 |IZED"...... .10)| 000008F0: 22 34 2E 20 55 4E 44 45 52 4C 49 4E 45 22 00 1D |"4. UNDERLINE"..| 00000900: 11 AC 03 99 20 A3 31 30 29 22 35 2E 20 53 55 50 |.... .10)"5. SUP| 00000910: 45 52 2F 53 55 42 53 43 52 49 50 54 22 00 3B 11 |ER/SUBSCRIPT".;.| 00000920: B6 03 99 20 A3 31 30 29 22 36 2E 20 55 4E 49 44 |... .10)"6. UNID| 00000930: 49 52 45 43 54 49 4F 4E 41 4C 22 00 5A 11 C0 03 |IRECTIONAL".Z...| 00000940: 99 20 A3 31 30 29 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |. .10)"---------| 00000950: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 80 11 CA 03 99 |---------"......| 00000960: 20 A3 38 37 29 22 45 4E 54 45 52 20 4D 4F 44 45 | .87)"ENTER MODE| 00000970: 20 54 4F 20 42 45 20 43 41 4E 43 45 4C 45 44 22 | TO BE CANCELED"| 00000980: 00 95 11 D4 03 A1 20 44 24 3A 8B 44 24 B2 22 22 |...... D$:.D$.""| 00000990: A7 20 39 38 30 00 CE 11 DE 03 8B 44 24 B3 22 31 |. 980......D$."1| 000009A0: 22 B0 44 24 B1 22 36 22 A7 99 A3 39 35 29 22 49 |".D$."6"...95)"I| 000009B0: 4E 56 41 4C 49 44 20 45 4E 54 52 59 22 3A 81 49 |NVALID ENTRY":.I| 000009C0: B2 31 A4 35 30 30 3A 82 49 3A 89 39 30 30 00 F7 |.1.500:.I:.900..| 000009D0: 11 E8 03 8B 20 44 24 B2 22 31 22 20 A7 20 43 24 |.... D$."1" . C$| 000009E0: B2 C7 28 32 37 29 AA C7 28 38 37 29 AA C7 28 30 |..(27)..(87)..(0| 000009F0: 29 3A 89 20 35 30 30 00 1B 12 F2 03 8B 20 44 24 |):. 500...... D$| 00000A00: B2 22 32 22 20 A7 20 43 24 B2 C7 28 32 37 29 AA |."2" . C$..(27).| 00000A10: C7 28 37 32 29 3A 89 20 35 30 30 00 44 12 FC 03 |.(72):. 500.D...| 00000A20: 8B 20 44 24 B2 22 33 22 20 A7 20 43 24 B2 C7 28 |. D$."3" . C$..(| 00000A30: 32 37 29 AA C7 28 38 37 29 AA C7 28 30 29 3A 89 |27)..(87)..(0):.| 00000A40: 20 35 30 30 00 6D 12 06 04 8B 20 44 24 B2 22 34 | 500.m.... D$."4| 00000A50: 22 20 A7 20 43 24 B2 C7 28 32 37 29 AA C7 28 34 |" . C$..(27)..(4| 00000A60: 35 29 AA C7 28 30 29 3A 89 20 35 30 30 00 91 12 |5)..(0):. 500...| 00000A70: 10 04 8B 20 44 24 B2 22 35 22 20 A7 20 43 24 B2 |... D$."5" . C$.| 00000A80: C7 28 32 37 29 AA C7 28 38 34 29 3A 89 20 35 30 |.(27)..(84):. 50| 00000A90: 30 00 BA 12 1A 04 8B 20 44 24 B2 22 36 22 20 A7 |0...... D$."6" .| 00000AA0: 20 43 24 B2 C7 28 32 37 29 AA C7 28 38 35 29 AA | C$..(27)..(85).| 00000AB0: C7 28 30 29 3A 89 20 35 30 30 00 00 00 |.(0):. 500... |
..P.... THIS VERSION IS FOR GEMINI 10X FOR OTHER PRINTERS EDIT LINES 240-360 .H....MD(20,1),MD$(20,1)...... 39928,10: . 39929,48......".... PRINTER SE T UP PROGRAM.."......"THIS PROGRAM ALLOW S YOU TO CHANGE THE"......"TYPESTYLES OF YOUR EPSON / GEMINI":."PRINTER FROM A M ENU".H...."..IF YOU HAVE ANOTHER PRINTER THEN EDIT":."THE CHR$ CODES ACCORDING"; ......" TO YOUR PRINTER MANUAL.....".... ...10)".HIT ANY KEY TO START"......X$:.X $."".12.H....".".....MD$(1,1)." 1. STAND ARD ".....MD$(2,1)." 2. ITALICS ".#.(.M D$(3,1)." 3. INTERNATIONAL".@.2.MD$(4,1) ." 4. PICA SIZE".^.<.MD$(5,1)." 5. ELITE SIZE".|.F.MD$(6,1)." 6. CONDENSED "...P .MD$(7,1)." 7. ENLARGED "...Z.MD$(8,1). " 8. NORMAL ".V.D.MD$(9,1)." 9. EMPHA SIZED"...N.MD$(10,1)."10. DOUBLE STRIKE" .....MD$(11,1)."11. UNDERLINE".6...MD$(1 2,1)."12. SUPERSCRIPT".T...MD$(13,1)."13 . SUBSCRIPT".O. .MD$(14,1)."14. CANCEL". .....U.1.20:.MD$(U,1)..""...10)MD$(U,1). ........... .8)" -------------------"... H..". ENTER PRINT OPTION DESIRED " ;C$.....C.E(C$):.C.1.C.20.."...":.200.*. ...MD$(C,1)."".."...":.200.8...MD(C,1).1 .F...MD(C,1).1......C.240,250,700,270,28 0,290,300,310,320,330,340,350,360,900... ..C$.G(27).G(53):. 500.....C$.G(27).G(52 ):. 500.U...C$.G(27).G(66).G(1):. 500... ..C$.G(27).G(66).G(2):. 500...".C$.G(15) :. 500.$.,.C$.G(27).G(87).G(1):. 500.7.6 .C$.G(20):. 500.P.@.C$.G(27).G(69):. 500 .I.J.C$.G(27).G(71):. 500...T.C$.G(27).G (45).G(1):. 500...^.C$.G(27).G(83).G(0): . 500.C.H.C$.G(27).G(83).G(1):. 500.I.|. ..R....4,4......4,C$......Z.1.20......MD (Z,1).1..4,MD$(Z,1);" ";........... 4. X...."..........DO YOU WISH TO SELECT A" :." SUPPLEMENTARY MODE?".N.... L$:. L$." ". 540...&.. L$."Y" . 15...0.. L$."N" . . .3)"..DO YOU WANT TO RETURN TO THE MEN U?".P.:.. X$:. X$."".570...;..X$."Y" . 1 5...<.....@..39928,10:.39929,96 :. 631,1 31:. 198,1...D...2.... "." .15)"1. U.S.A .".I.F.. .15)"2. ENGLAND".`.P.. .15)"3. GERMANY".W.Z.. .15)"4. DENMARK"...... .1 5)"5. FRANCE"...... .15)"6. SWEDEN"..... . .15)"7. ITALY".M.... .15)"8. SPAIN"... ... .15) "----------"...... .95) "ENTER OPTION".,. .. "................... NUMB ER";N :N.N.1._.*..N.0.N.7...95)"INVALID ENTRY":.I.1.500:.I:.700.U.4.. N.7 . N.0 . N.N...>.C$.G(27).G(55).G(N):. 500..... . ".".10)"1. ENLARGED".K.... .10)"2. DOU BLE STRIKE"...... .10)"3. EMPHASIZED"... ... .10)"4. UNDERLINE"...... .10)"5. SUP ER/SUBSCRIPT".;.... .10)"6. UNIDIRECTION AL".Z.... .10)"------------------"...J.. .87)"ENTER MODE TO BE CANCELED"...T.. D $:.D$."". 980.N....D$."1".D$."6"...95)"I NVALID ENTRY":.I.1.500:.I:.900...... D$. "1" . C$.G(27).G(87).G(0):. 500...... D$ ."2" . C$.G(27).G(72):. 500.D.... D$."3" . C$.G(27).G(87).G(0):. 500.M.... D$."4 " . C$.G(27).G(45).G(0):. 500...... D$." 5" . C$.G(27).G(84):. 500...... D$."6" . C$.G(27).G(85).G(0):. 500...
> CLICK IMAGE PREVIEW FOR FULL MODAL