Sartorius QC7CCE-D - Basic Program

BASIC Program
Sample of a BASIC program to save your company name and ID as header lines.
1000 ON ERROR GOTO 10000
1010 CLS
1011 PRINT “Enter the fixed 2-line header and ID label”
1012 “Sartorius QC Series Counting Scale with PC Connecting Cable
(1200Bd,O,7,1)”
1013 INPUT “Your PC interface, i.e. COM1or COM2 (enter 1or 2)”; a
1015 IF a = 1 THEN OPEN “com1:1200,o,7,1,CS1000,DS0,CD0,PE”
FOR RANDOM AS #1
1016 IF a = 2 THEN OPEN “com2:1200,o,7,1,CS1000,DS0,CD0,PE”
FOR RANDOM AS #1
1018 PRINT “”
1019 PRINT ““Sample: Note: Delivery:”
1030 PRINT “Smith and Jones Printed line 1 (max. 20 char.) (empty)”
1040 PRINT “Nail Factory Printed line 2 (max. 20 char.) (empty)”
1050 PRINT “Art No: ID prefix (max. 6 char.) ID”
1070 PRINT “ ”
1080 PRINT “Characters allowed: !#$%&’()*+,-./ 01234567890:;<=>?@”
1085 PRINT “ ABCDEFGHIJKLMNOPQRSTUVWXYZ[]^_”
1090 PRINT “ abcdefghijklmnopqrstuvwxyz”
1095 PRINT “The special characters ü,ä,ö,ß... must be entered as ue,ae,oe,ss...”
2000 PRINT “ ”
2010 PRINT “Your entry: Print header 1: ”
2020 PRINT “Your entry: Print header 2: ”
2030 PRINT “Your entry: ID prefix : ”
2031 LOCATE 15, 39: INPUT d1$: LOCATE 16, 39: INPUT d2$:
LOCATE 17, 39: INPUT d3$
2040 IF LEN(d1$) < 21AND LEN(d2$) < 21AND LEN(d3$) < 7 THEN 2100
2050 PRINT “Error: Maximum number of characters exceeded!”: BEEP
2060 FOR i = 1 TO 1000: NEXT i
2070 GOTO 1010
2100 LOCATE 19, 41: PRINT d1$: LOCATE 20, 41: PRINT d2$: LOCATE 21,
41: PRINT d3$
2110 PRINT #1, CHR$(27); “z1”; d1$; “_”: REM for 1st print header
2120 PRINT #1, CHR$(27); “z2”; d2$; “_”: REM for 2nd print header
2130 PRINT #1, CHR$(27); “z0”; d3$; “_”: REM for ID header
2140 PRINT #1, CHR$(27); “t12345678901234_”:
REM14-digit numeric entry for ID
2141 PRINT #1, CHR$(27); “f6_”
4–10