Table of Contents
Advertisement
206
Radix User's Manual
7050 PRINT "TOTAL SO FAR
: ";AS%
7060 PRINT "TOTAL REMAINING : ";AL%
7070 INPUT "ENTER % FOR FIELD ";PCT%(I)
7080
IF PCT%(I) > AL% OR PCT%(I) = pI THEN PCT%(I) = AL%
7090 AL% = AL% - PCT%(I)
7100 AS% = AS% + PCT%(I)
7110 INPUT "ENTER DESCRIPTION OF FIELD : ";PTXT$(I)
7120 IF LEN (PTXT$(I)) ) 15 THEN PRINT "FIELD TOO
-
LONG - 15 CHAR. MAX": GOT0 7110
7130 IF AL% = 0 THEN GOT0 7200
7140 NEXT I
7200 NP% = I
-
-
7210 IF NP% = 1 THEN 7030
.-
-
7220 HOME
7230 RETURN
-
Printer setup utility
10 REM PROGRAM TO SET UP RADIX
20 BEEP$ = CHR$ (7)
40 ESC$ = CHR$ (27):TB = 5: DIM TBS(256)
-.
80 HOME
90 TI$ = "MAIN MENU"
100 GOSUB 2560
110 PRINT TAB( TB);"@. EXIT "
120 PRINT TAB( TB);"l. SELECT CHARACTER SET."
130
PRINT TAB( TB);"~. SELECT PRINTING MODES"
-
140 PRINT TAB( TB);"j. SELECT PITCH "
150 PRINT TAB( TB);"4. SELECT LINE SPACING"
160 PRINT TAB( TB);"5. SET MARGINS, TABS & FORMS"
170 GOSUB 2650
180 IF S ( 0 OR S ) 5 THEN PRINT BEEP$;: GOT0 170
-
190 IF S = 0 THEN HOME : END
200
ON S GOSUB 220,490,360,1410,650
--
210 GOT0 80
220 REM SUBROUTINE TO DISPLAY CHARACTER SET MENU
240 TI$ = "CHARACTER SET MENU"
250 GOSUB 2560
260 PRINT TAB( TB);"g. RETURN TO MAIN MENU"
_d
270 PRINT TAB( TB);"l. SELECT NLQ CHARACTER SET"
280 PRINT TAB( TB);"2. CANCEL NLQ CHARACTER SET"
290 PRINT TAB( TB);"J. SELECT ITALIC CHARACTER SET"
300
PRINT TAB( TB);l'4. CANCEL ITALIC CHARACTER SET"
310 GOSUB 2650
Advertisement
Table of Contents
