Telpar SP-401 Series, Руководство пользователя

Страница: 15 / 25

SP-401 User Manual
Telpar, Inc. Page 15 of 25
5.9 Test Program
This is a test program written in BASIC for the SP-401 Parallel Interface
printer. This program will test the standard control code and escape sequences
executed by the SP-401.
10 CLS
20 WIDTH LPRINT 255 :REM sets output line width
30 LPRINT CHR$(14) :REM double width print on
40 LPRINT”SP-401”
50 LPRINT”THERMAL PRINTER”
60 LPRINT CHR$(15) :REM double width print off
70 LPRINT”Telpar”
80 LPRINT”4181 Centurion Way”
90 LPRINT”Addison TX 75244’
100 LPRINT”(972) 233-6631”
110 LPRINT CHR$(10) :REM single line feed
120 LPRINT
130 LPRINT
140 LPRINT”THIS IS A GRAPHICS TEST”
150 LPRINT CHR$(27)+”S0255” :REM Length=255
160 FOR X=1 TO 255
170 LPRINT CHR$(255): :REM fires all dots
180 NEXT X
190 LPRINT
200 LPRINT
210 CLS
220 LPRINT”CLOCK TEST” : REM(Note: The Clock Mode is Optional)
230 PRINT”PLEASE HAVE YOUR PRINTER TURNED ON TO SET THE
TIME/DATE”,CHR$(10)
240 FOR X=500 TO 10000 STEP 300:SOUND X,2:NEXT X
250 LPRINT CHR$(14);”CLOCK TEST”
260 LPRINT CHR$(15)
270 INPUT”DO YOU WISH TO CHANGE THE TIME? (Y/N)”;Y$:CLS
280 IF Y$=”N”OR Y$=”n” THEN GOTO 330
290 LPRINT”THE TIME CURRENTLY SET IS”;CHR$(5)
300 PRINT”ENTER TIME AS hh:mmA (hours:minutes A for am P for pm)”
310 INPUT A$
320 LPRINT CHR$(27)+”t”;a$;”THE NEW TIME IS”
330 LPRINT CHR$(14);CHR$(5)
340 LPRINT CHR$(15)
350 INPUT”DO YOU WISH TO CHANGE THE DATE? (Y/N)”;Y$:CLS
360 IF Y$=”N” OR Y$=”n” THEN GOTO 410
370 LPRINT”THE DATE CURRENTLY SET IS”;CHR$(6)
380 PRINT”ENTER THE DATE IN THE FOLLOW ING FORMAT mm-dd-yy (month-day-year)”
390 INPUT A$
400 LPRINT CHR$(27)+”d”;A$;”THE NEW DATE IS”
410 LPRINT CHR$(14);CHR$(6)
420 LPRINT CHR$(15)
430 END