2150 PRINT #1, CHR$(27); “P”: REM Pass print command to QC
2160 REM Catch output; dum$ catches Date/Time command
2161 INPUT #1, dum$, e1$, e2$, e3$, e4$
2162 CLOSE #1
2170 LOCATE 19, 4: PRINT e1$: LOCATE 20, 4: PRINT e2$: LOCATE 21,
4: PRINT e3$
2500 LOCATE 22, 4: PRINT “...in the QC... The End! ...Your Entry...”
2600 INPUT a
2700 GOTO 1000
10000 LOCATE 23, 1: PRINT “Error:”, ERDEV$, ERDEV: BEEP:
FOR i = 1 TO 5000: NEXT i
Or an even simpler version:
1 REM Enter the print header in your QC. Your values replace the “*” (ä=ae, ..).
2 OPEN “COM*:1200,O,7,1,CS1000,DS0,CD0,PE”
FOR RANDOM AS #1: REM interface COM* (*=1, 2, ...)
3 PRINT #1, CHR$(27);
“z1********************_”: REM your company name in place
of the 20*
4 PRINT #1, CHR$(27);
“z2********************_”: REM your company name in place
of the 20*
5 PRINT #1, CHR$(27);
“z0******_”: REM your ID in place of the 6*
6 CLOSE #1
4–11
To Next Page
Loading...
