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
Summary of Contents for QC150FEG-S
Page 37: ...1 32 Declaration of Type Conformity ...
Page 38: ...1 33 EC Type Approval Certificate ...
Page 128: ...5 3 ...