Star Micronics Radix User Manual page 214

200
Radix User's Manual
934 VTAB 13: HTAB 29: PRINT "(+) WIDER"
936 VTAB 14: HTAB 29: PRINT "(-> NARROWER"
938 VTAB 15: HTAB 29: PRINT "(D) DESCENDER"
940 VTAB 16: HTAB 29: PRINT "(ESC) EXIT"
950 FOR I = 1 TO 11: FOR J = 1 TO 7:Z(J,I) = 0: NEXT J:
NEXT I
960 RETURN
1000 IF Z(G,H) = 0 THEN VTAB X + 2: HTAB Y + 5: PRINT
I' 'I .
1010 ;F Z(G,H) = 1 THEN VTAB X + 2: HTAB Y + 5: PRINT
SC$;
1015 VTAB 23: HTAB 1
1020 RETURN
1050 IF Z(G,H) = 1 THEN INVERSE : VTAB X + 2: HTAB Y +
5: PRINT CS$;: NORMAL
1060 IF Z(G,H) = 0 THEN NORMAL : VTAB X + 2: HTAB Y +
5: PRINT CS$;: NORMAL
1065 VTAB 23: HTAB 1
1070 RETURN
1910 REM CLEAR CURRENT CHARACTER
1920 PW% = 11:DS = 0
1930 FOR H = 1 TO ll:MM(H) = 0: NEXT H
1935 GOSUB 900
1940 GOSUB 2200: RETURN
2080 REM BUILD COMMAND STRING
2085 RC$ = ES@ + "*" + CHR$ (1)
2090 RC$ = RC$ + CHR$ (As) + CHR$ (DS * 16 + PW%)
2095 FOR I = 1 TO ll:RC$ = RC$ + CHR$ (MM(I)): NEXT I
2096 RETURN
2200 REM
2210 VTAB 20: HTAB 1: PRINT "ASCII CODE = "jAS;
2220 PRINT "('I; CHR$ (AS);")"; -
2230 VTAB 20: HTAB 25: PRINT "DESCENDER= ";Ds;
2250 FOR I = 8 TO 19: VTAB 22: HTAB I: PRINT " "j: NEXT
I
2260 VTAB 22: HTAB 1: PRINT "WIDTH: "j: FOR I = 1 TO
PW%: PRINT "*";: NEXT I
2270 VTAB 23: HTAB 1
2280 RETURN
3000 REM WIDER
3010 IF PW% = 11 THEN PRINT BEEPS;: RETURN
3020 PW% = PW% + 1
3030 GOSUB 2200
_-
-
-.