Table of Contents
Advertisement
202
Radix User's Manual
3395 PRINT "DATA 27";
3396 FOR I = 2 TO LEN (RC$)
3397 PRINT ",'I; STR$ ( ASC ( MID$ (RC$,I,l)));
3398 NEXT I: PRINT : PRINT : PRINT :
3399 PR# 0: RETURN
3500 REM ASCII CODE
3510 VTAB 23: HTAB 1
3520 INPUT "ENTER ASCII (33-126) ";AS
3530 IF AS ( 33 OR AS > 126 THEN PRINT BEEP$;: GOTO
3510
3535 VTAB 23: FOR I = 1 TO 39: HTAB I: PRINT " "j: NEXT
: PRINT
I
3540 GOSUB 2200: RETURN
3700 REM COPY ROM
3710 PR# 1
3715 PRINT CHR$ (9);"255N"
3720 PRINT ESC$;"*"; CHR$ (0);
3730 PR# 0
3740 RETURN
4000 REM CALCULATE A COLUMN VALUE
4010 MM(H) = 0: FOR J = 1 TO 7
4020 MM(H) = MM(H) + Z(J,H) * 2 A (J - 1)
4030 NEXT J: GOSUB 4100: RETURN
4100 REM PRINT A COLUMN VALUE
4103 FOR I = 1 TO 3: VTAB 16 + I: HTAB 4 + H * 2
I' '1 . .
,. NEXT I
4105 Lvfi = STR$ (MM(H))
4106 FOR I = 1 TO LEN (LV$)
4107 VTAB 16 + I: HTAB 4 + H * 2: PRINT MID$
(LV$,I,l);: NEXT I
4120 VTAB 23: HTAB 1: RETURN
Piechart program
4 HOME
5 PRINT "Please Stand By"
10 A = 768
20 FOR I = A TO A + 12
30
READ B
35 POKE 1,B
40 NEXT I
50 DATA 32,74,255,165,250,5,251
60 DATA 133,252,32,63,255,96
100 REM PIECHART
Advertisement
Table of Contents
