10 ! 2ND PROGRAM TO JUST PROCESS SPR FOR DIABLO OUTPUT
20 DIM A$[80]V
30 B=0 : CALL "SPAWNB"("RNO SPR.ONE=SPR",B)
40 OPEN #3, "SPR.ONE/RO"
50 OPEN #4, "SPR.TWO/WR"
60 IF END #3 THEN 100
70 INPUT LINE #3,A$
75 PRINT #4, CHR$(0) : ! SO DIABLO DOESN'T DO FF
80 INPUT LINE #3,A$
85 PRINT #4,A$
90 GOTO 80
100 CLOSE 
110 PRINT "INSERT SPR FORM IN DIABLO PRINTER, ALIGN PRINT HEAD RED MARK"
120 PRINT "TO MARK ON SPR FORM, THEN ROLL PAPER BACK SO THAT TOP"
130 PRINT "OF SPR FORM IS HALF WAY IN V-NOTCH OF PRINT-HEAD"
140 PRINT "THE GIVE THE COMMAND 'DIA SPR.TWO'"
150 PRINT "REPLACE PAPER IN DIABLO"
155 CALL "SPAWNB"("PIP SPR.ONE,SPR.HDR,SPR.TXT,SPR.TWO/PU",B)
160 EXIT