Table of Contents
Advertisement
224
Radix User's Manual
1300 Pcm%=I
1310 IF PCNT%=~ THEN 1110
1320 c~s
1330 RETURN
2000 REM
2g1g CLS
2020 PRINT:PRINT:PRINT
2030 PRINT "THIS PROGRAM TAKES ABOUT TWO MINUTES TO RUN"
2040 PRINT "PLEASE TURN ON YOUR PRINTER AND STAND BY..."
._
2050 PRINT:PRINT
2060 PRINT ":::::::::::::::::::::::::"
2070 PRINT
2080 FOR I=1 TO PCNT%:PRINT ":"j : NEXT I
-
2090 RETURN
Printer setup utility
10 'Program to setup RADIX printer as directed.
20 '
30 'Initialize.
35 CLEAR 1000
40 ESC$ = CHR$(27) : TB = 15 : DIM TBS(256)
60 '
70 'Display MAIN menu.
80 CLS
90 TITLES = "MAIN MENU"
100 GOSUB 2560
110 PRINT TAB(TB) "0. Exit."
120 PRINT TAB(TB) "1. Select CHARACTER SET."
130 PRINT TAB(TB) "2. Select PRINTING MODES."
140 PRINT TAB(TB) "3. 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 170
190 IF S = 0 THEN END
200 ON S GOSUB 220,490,360,1410,650
210 GOT0 60
220 '
230 'Subroutine to display CHARACTER SET menu.
240 TITLE$ = "CHARACTER SET MENU"
250 GOSUB 2560
260 PRINT TAB(TB) "0. Return to main menu."
270 PRINT TAB(TB) "1. Select NLQ character set."
280 PRINT TAB(TB) "2. Cancel NLQ character set."
Advertisement
Table of Contents
