Table of Contents
Advertisement
236
Radix User's Manual
860 PROWID = PROWID - 1
870 GOSUB 1560 : RETURN
880 IF DESC = 1 THEN DESC = p! : GOT0 900
890 DESC = 1
900 GOSUB 1560 : RETURN
910 '
920 'Subroutine to calculate a column value & print it.
930
MM(H) = 0 : FOR J=l TO 7
;;;
~~~)~MM(H)+Z(J,H)*2"(J-l)
: GOSUB 960 : RETURN
960 '
970 'Subroutine to print a column value.
980 PRINT FNL$(19,7+3*H); RIGHT$(" "+STR$(MM(H)),3) j
990 RETURN
1000 '
lfdl@ 'Subroutine to remove the cursor.
1020 PRINT FNL$(X+4, Y+la);
1030 IF Z(G,H) = 0 THEN PRINT 11 1' ;
1040 IF Z(G,H) = 1 THEN PRINT SC$ ;
1050 RETURN
1060 '
1070 'Subroutine to place the cursor.
1080 PRINT FNL$(X+4,Y+l0);
1090 IF Z(G,H)=l THEN PRINT CR$ ;
1100 IF Z(G,H)=@ THEN PRINT CS$ ;
1110 RETURN
1120 '
lljp! 'Subroutine to print current character.
1140 GOSUB 1780
1150 LPRINT "ASCII code =" AS : LPRINT
1160 LPRINT REC$ j 'Download the character.
1170 LPRINT CHR$(27) "B" CHR$(3) "Condensed"
1180 LPRINT RAMNML$ STRING$(21,AS)
1190 LPRINT RAMNMLOFF$
1200 LPRINT CHR$(27) r*B'r CHR$(2) *'Elite"
1210 LPRINT RAMNML$ STRING$(lS,AS)
1220 LPRINT RAMNMLOFF$
1230 LPRINT CHR$(27) "B" CHR$(l) "Pica"
1240 LPRINT RAMNML$ STRING$(12,AS)
1250 LPRINT RAMNMLOFF$
1260 LPRINT CHR!$(27) "W" CHR$(l) "Expanded"
1270 LPRINT RAMNML$ STRING$(6,AS)
1280 LPRINT RAMNMLOFF$ CHR$(27) "W" CHR$(@)
1290 LPRINT "Character set (normal width)"
Advertisement
Table of Contents
