5  'copy this program to 123.BAS  then run BASIC 123
10 'program to print codes for the Epson series Printers
20 ' to be used in individual cells in Lotus 1-2-3
30 '
40 X$="text"
50 E$= CHR$(27)   :     CTRLO$=CHR$(15)     : CTRLR$=CHR$(18)
60 ZERO$=CHR$(0)  :     ONE$=CHR$(1)        : TWO$=CHR$(2)
70 THREE$=CHR$(3) :     FOUR$=CHR$(4)       : FIVE$=CHR$(5)
80 SIX$=CHR$(6)   :     SEVEN$=CHR$(7)      : EIGHT$=CHR$(8)
90 '
100 'TO USE IN 123, SUBSTITUTE TEXT FOR TEXT
110 '
120 CON$   = CTRLO$        +X$       +CTRLR$          'CONDENSED ON,OFF
130 WIDE$  = E$  +"W1"     +X$       +E$  +"WO"       'WIDE ON, OFF
140 EMPH$  = E$  +"E"      +X$       +E$  +"F"        'EMPHASIZED ON, OFF
150 DOUBLE$= E$  +"G"      +X$       +E$  +"H"        'DOUBLE STRIKE ON,OFF
160 ITALIC$= E$  +"4"      +X$       +E$  +"5"        'ITALIC ON, OFF
170 UNDER$ = E$  +"-1"     +X$       +E$  +"-0"       'UNDERLINE ON, OFF
180 SUPER$ = E$  +"SO"     +X$       +E$  +"T"        'SUPERSCRIPT ON, OFF
190 SUB$   = E$  +"S1"     +X$       +E$  +"T"        'SUBSCRIPT ON, OFF
200 ELITE$ = E$  +"M"      +X$       +E$  +"P"        'ELITE ON, OFF
210 ESCS$  = E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$      'ESCAPES
220 CONESCS$ =CTRLO$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+E$+CRTLR$
230 '                                                 'CONDENSED + ESCAPES
240 '
250 BACK$ = EIGHT$                                    'BACKSPACE 1 CHARACTER
260 MANYBACK$ =EIGHT$+EIGHT$+EIGHT$+EIGHT$+EIGHT$     'BACKSPACE MANY CHARACTERS
270 BELL$ = SEVEN$
280 FILE$ ="A:123PRINT.PRN"
290 OPEN FILE$ FOR OUTPUT AS #1
300 WRITE #1,CON$,"CONDENSED"
310 WRITE #1,WIDE$,"WIDE"
320 WRITE #1,EMPH$,"EMPHASIZED"
330 WRITE #1,DOUBLE$,"DOUBLE STRIKE"
340 WRITE #1,ITALIC$,"ITALICS"
350 WRITE #1,UNDER$,"UNDELINE"
360 WRITE #1,SUPER$,"SUPERSCRIPT"
370 WRITE #1,SUB$,"SUBSCRIPT"
380 WRITE #1,ELITE$,"ELITE PRINT"
390 WRITE #1,ESCS$,"ESCAPES"
400 WRITE #1,CONESCS$,"CONDENSED + ESCAPES"
410 WRITE #1,BACK$,"BACKSPACE"
420 WRITE #1,BELL$,"BELL"
430 WRITE #1,MANYBACK$,"SEVERAL BACKSPACES"
440 CLOSE
450 END
460 ' To use /F ile /I mport /N umbers  123PRINT.PRN                            