Table of Contents
Advertisement
Apple ZZ Computers
211
's.
'-_
2318 IF x ( g OR x > 255 TkrEN PRINT BEEPS;: GOTO 2p3pr
232~ FOR I = 1 TO 255 STEP X
2330 MAX = MAX - I: IF MAX = 0 THEN 2350
2348 S$ = S$ + CHR$ (I): NEXT I
2350 S!$ = S$ + CHR$ (a): GOSUB 2730: RETURN
2368 REM VERTICAL TABS
2380 S$ = ESC$ + "P":MAX = 20: GOSUB 2080
2390 RETURN
2400 REM SELECT EMPHASIZED
2420 S$ = ES@ + "E": GOSUB 2730
2430 RETURN
2440 REM CANCEL EMPHASIZED
.
2460 S$ = ESC$ + "F": GOSUB 2730
2470 RETURN
2480 REM DOUBLE-STRIKE
*
2500 S$ = ES@ + "G": GOSUB 2730
2510 RETURN
. .
2520 REM CANCEL DOUBLE-STRIKE
2540 S$ = ESC$ + "H": GOSUB 2730
b.
2550 RETURN
2560 REM PRINT A MENU TITLE
'-
.
2570 HOME
2580 PRINT : PRINT : PRINT
2590 PRINT TAB( 6);" ---RADIX PRINTER SETUP ---'
2600 PRINT
2610 PRINT TAB( (40 - LEN (TI$)) / 2);TI$
. .
2620 PRINT : PRINT
2630 RETURN
2650 REM SELECTION
2660 VTAB 19: HTAB 10: PRINT "HIT (P) FOR SAMPLE PRINT"
&.
2665 VTAB 21: HTAB 10: PRINT "SELECTION ";
267/a GET C$
2675 IF C$ = "P" THEN GOSUB 3j@pI: GOT0 2650
2680 IF C$ ( "0" OR C$ > "9" THEN PRINT BEEP$;: GOT0
2670
2690 S = VAL (CS)
2700 VTAB 20:
2710 FOR H = 10 TO 40: HTAB H: PRINT " "j: NEXT H
2720 RETURN
2730 REM OUTPUT COMMAND STRING
2750 PR# 1
2755 PRINT S$;
2758 PR# 0
2760 RETURN
Advertisement
Table of Contents
