Table of Contents
Advertisement
t.
TRS-80 Computers
221
40 ESC$ = CHR$(27)
: LF$=CHR$(l@)
50 FF$ = CHR$(12)
: VTAB$ = CHR$(ll)
60 REVFF$ = ESC$ + FF$
70 'Emphasized & expanded modes.
80 TITLE$ = ESC$ + "E" + ES@ + "W" + CHR$(l)
90 NTITLE$ = ESC$ + "F" + ESC$ + "W" + CHR$(@)
110 DIM BIT%(l90,36),PCT%(25)
120 DIM TEXT$(48),PIECETEXT$(25)
130 MASK%(~) = 128
* MASK%(G) = 16
140 MASK%(2) = 64
: MASK%(S) = 8
150 MASKX(3) = 32
: MASKZ(6) = 4
160 LX = 20
: LY = 20
170 LXFAC = 190/LX
: LYFAC = 216/LY
180 FOR I= 0 TO 48
190 TEXT$(I) = STRING$(79," ")
200 NEXT I
210 GOSUB 1040
215 GOSUB 2000
217 PRINT @64*7,"";
220 '
230
'Plot
curve
240 RAD=8
250 Xl = 19
: Yl = 10
270 FOR ANG% = 0 TO 360 STEP 15
280 RNG = ANG%*6.28/360
290 X2 = RAD*COS(RNG)+l@ : Y2 = RAD*SIN(RNG)+la
300
GOSUB 640
310 NEXT ANGX
315 PRINT @64*9,"";:
320 FOR PIECE% = 1 To PCNT%
330
Xl = 10 : Yl = 10
340 TPCT%=TPCT%+PCT%(PIECE%)
350 ANG%=360*TPCT%*.Bl
360
RNG
= ANG%*6.28/360
370 X2 = RAD*COS(RNG)+l@
: Y2 = RAD*SIN(RNG)+l@l
380 GOSUB 640
390 GOSUB 870
400 NEXT PIECE%
410
'
420 'Send chart title to printer.
440 LPRINT ESC$ "A" CHR$(6) REVFF$ VTAB$ j
450 LPRINT TITLE$ STRING$(l6-LEN(CTITLE$)/2,"
") ;
460 LPRINT CTITLE$ NTITLE$
Advertisement
Table of Contents
