10 'Program AX130A.BA accesses and pro-     grams the Tandy DMP130A dot matrix      printer.
20 'Copyright 1987 R.L. Banks, modified by Robert Benson (11/8/91)
30 IFPEEK(1)=171THENPOKE61194,0:CALL28189ELSEPOKE64173,0:CALL23161
40 DIMP$(16),O(16):P=160:Z$=CHR$(27):C$=SPACE$(39)
50 FORX=1TO16:READP$(X):NEXTX
60 FORX=1TO16:READO(X):NEXTX:GOTO200
70 S=S+1:PRINT@120,C$:PRINT@P-(20+LEN(P$(S))/2),P$(S)
80 IFS<=16THENGOSUB100
90 IFS=16THENS=0:GOTO70ELSE70
100 PRINT@247,"<S>elect  <M>ore or <Q>uit"
110 I$=INKEY$:IFI$=""THEN110
120 IF(I$="S")OR(I$="s")THENIF(INP(187)AND6)=2GOTO130ELSEPRINT@247,"    PRINTER NOT READY!    ":GOTO190
130 IF(I$="M")OR(I$="m")THENRETURNELSEIF(I$="S")OR(I$="s")THEN160
140 IF(I$="Q")OR(I$="q")THENMENU
150 PRINT@247,"  INVALID ENTRY... RETRY! ":GOTO190
160 I=S:IF(I=8)OR(I=14)THENLPRINTZ$+CHR$(O(I))+CHR$(1):GOTO200
170 IF(I=9)OR(I=15)THENLPRINTZ$+CHR$(O(I))+CHR$(0):GOTO200
180 LPRINTZ$+CHR$(O(I))
190 BEEP:FORG=1TO500:NEXTG:GOTO100
200 CLS:PRINT@10,"DMP 130A  Programmer":GOTO90
310 DATA Normal (10cpi),Compressed (12cpi),Condensed (17cpi),Microfont, Correspondence Normal (10cpi),Correspondence Compressed (12cpi),Porportionally Spaced
320 DATA Start Italics,End Italics,Start Bold  ,End Bold  ,Start Elongation,End Elongation,Start Subscript,Start Superscript,End Sub/Superscript 
330 DATA 19,23,20,77,18,29,17,66,66,31,32,14,15,83,83,88