start tok64 d64-q6CThR 0 REM "Commodore 64 character set Sequential File Printer" 1 REM "Compatible with Meta-S (RAM Buffer Edited Save)" 2 REM "and Protocol Ascii Download" 4 de = 3 : c$ = "" 5 INPUT "output to Screen or Printer ? s{left*3}"; in$ 7 IF LEFT$(in$,1) <> "s" THEN de = 4 : c$ = "{down}" 8 INPUT "input file name to display ? doc{left*5}"; fi$ 10 OPEN 4,de : b$ = c$ : t = 0 20 OPEN 1,8,5, fi$ 30 GET#1, a$ : ok = st 31 IF de = 3 THEN 35 32 IF a$ = "{clear}" THEN a$ = CHR$(17) 34 GOTO 40 35 IF a$ <> "{clear}" THEN 40 36 PRINT "{reverse on}press any key to continue" 37 GET in$ : IF in$ = "" THEN 37 40 PRINT#4, a$; 45 IF ASC(a$) = 13 THEN PRINT#4, b$; 50 IF ok <> 0 THEN 100 55 IF de = 3 THEN 30 60 IF a$ <>CHR$(34) THEN 30 70 IF t = 0 THEN b$ = "" : t = 1 : GOTO 30 80 IF t= 1 THEN b$ = c$ : t = 0 : GOTO 30 90 PRINT "error" 100 CLOSE 4 110 CLOSE 1 120 END stop tok64 (bastext 1.0)