Table of Contents
Advertisement
128
Radix User's Manual
130 FOR S = 1 TO 11
140 READ MS
150 PRINT
#l,CHF@(MS);
16pl
NEXT
S
179
NEXT Nl
189
CLOSE #l
19Pr
BLANK$ = CHR$(200)
200 '
210 'Print the BIG numerals.
220 LPRINT
230 LPRINT CHR$(27) "X't CHR$(l) ; 'Select RAM chars.
240 LPRINT CHR$(27) "1" ; '7/72" line spacing.
250 'Print the top half of the numerals.
260
FOR NUM = 0 TO 9
270 LPRINT CHR$(NUM*4+160) cHR$(NUM*4+161) BLANK$ j
280
NEXT NUM
290 LPRINT
300 'Print the bottom half of the numerals.
310 FOR NUM = 0 TO 9
320 LPRINT CHR$(NUM*4+162) CHR$(NUM*4+163) BLANKS ;
330 NEXT NLJM
340 LPRINT CHR$(27) "X" CHR$(0) ; 'Deselect RAM.
"
350 LPRINT CHR$(27) 2 'I 'l/6" line spacing (normal).
360 'ZERO
370 DATA 11,0,96,16,104,16,44,30,14,0,2,1
380 DATA 11,2,1,2,1,6,8,38,88,32,88,32
390 DATA 11,3,12,19,12,51,0,96,0,96,0,96
400 DATA 11,0,32,0,48,0,28,3,12,3,4,3
410 'ONE
420 DATA 11 ,,,,,,,,,>9
0 0 0 0 0 4 0 4 0 4 126
430 DATA 9,12,114,12,114,12,2,0,0,0,0,0
440 DATA 11,64,0,64,0,64,0,64,32,80,47,80
2;; ~A;;09,47,80,47,64,0,64,0,64,0,0,0
470 DATA 11,0,0,0,0,0,12,16,14,0,6,0
480 DATA 11,3,0,3,0,70,56,70,56,4,24,0
490 DATA 11,64,0,64,32,64,32,80,32,80,40,64
500 DATA 11,44,64,38,65,34,65,32,80,32,88,0
510 ' THREE
520 DATA 11,0,0,0,0,0,0,4,2,4,2,4
530 DATA 11,34,84,34,92,34,76,34,68,2,64,0
540 DATA 11,16,0,48,0,56,64,48,64,32,64,32
550 DATA 11,64,32,64,48,9,54,9,22,9,6,1
560 ' FOUR
-
Advertisement
Table of Contents
