Table of Contents
Advertisement
220
Radix User's Manual
1780 'Subroutine to display header.
1790 PRINT @l,"ASCII CODE = ";AS;" ";
1800 PRINT "(" CHR$(AS AND &H7F) ;
1810 IF AS ) 127 THEN PRINT " + 128" j
1820 PRINT ")
II
.
1830 PRINT @30,"DESCENDiR = ";DESC;
1880 PRINT @1*64+9,STRING$(ll," ");
1890 PRINT @1*64+1,"WIDTH : ";STRING$(PROWID,"*");
1900 RETURN
1910 '
1920 'Subroutine to clear current character.
1930 PROWID = 11 : DESC = 0
1940 FOR H = 1 TO 11 : MM(H) = 0 : NEXT H
1950 GOSUB 390 : RETURN
2010 '
2020 'Subroutine to perform a ROM copy.
2030 LPRINT ~sc$ "*" cHR$(0): RETURN
2040 f
2050 'Subroutine to erase query message.
2060 PRINT @14*64,STRING$(50," ");
2070 RETURN
2080 '
2090 'Subroutine to build command string.
2100 REC$ = ESC$ + "*" + CHR$(l)
2110 REC$ = REC$ + CHR$(AS) + CHR$(DESC*l6 + PROWID)
2120 FOR I = 1 to 11 : REC$ = REC$ + CHR$(MM(I)) : NEXT
I
2130 RETURN
Piechart progmm
10 'Program to print a piechart on the RADIX.
15 CLEAR 4000
20 CLS
21 'DIRECT-TO-PRINTER DRIVER FOR TRS-80 MODEL III
22 AD=16571
23 FOR I=0 TO 14
24 READ A :POKEAD+I,A
25 NEXT I
26 POKE 16422,187
27 POKE 16423,64
28 DATA 33,232,55,203,126,32,252,33,17,0,57,126,
211,251,201
29 '
30 'Initialize program constants.
-
Advertisement
Table of Contents
