Star Micronics Radix User Manual page 219

Apple II Computers
205
5050
BIT%(COL,ROW) = PEEK (252)
5060 RETURN
6000
REM
6010 MA% = (ANG + PA%) / 2
6020 Rl = MA% * 6.28 / 360
6030 X3
= INT (20 * SIN (Rl)):Y3 = INT (22 * COS
(Rl))
6040 X4 = 22 + X3:Y4 = 40 + Y3
6045
IF (MA% > 70 AND MA% ( 110) THEN GOSUB 6300: GOT0
6070
6047
IF (MA% > 250 AND MA% ( 290) THEN GOSUB 6300:
GOT0 6070
6050 IF MA% ) 270 OR MA% ( 90 THEN GOSUB 6100: GOT0
6070
6060
GOSUB 6200
6070
PA% = ANG
6080 RETURN
6100 MM$ = TXT$(X4)
6102 LL$ = LEFT$ (MM$,Y4)
6104 PP = LEN (PTXT~PI))
6106 RR$ = RIGHT$ (MM$,80 - (Y4 + PP))
6108 TXT$(X4) = LL$ + PTXT$(PI) + RR$
6110 RETURN
6200 MM$ =
TXT$(
X4)
6202
pp = LEN (PTxT$(~I))
6204
LL$ = LEFT$ (MM$,(Y4 - PP))
6206 RR$ = RIGHT$ (MM$,(80 - Y4))
6208 TXT$(X4) = LL$ + PTXT$(PI) + RR!$
6210 RETURN
6300
MM$ = TXT$(X4)
6310
PP = INT ( LEN (PTXT$(PI)) / 2)
6320 LL$ = LEFT$ (MM$,(Y4 - PP))
6330 RR$ = RIGHT$ (MM$,(80 - Y4))
6340 TXT$(X4) = LL$ + PTXT$(PI) + RR$
6350 RETURN
7000 REM
7010 HOME : PRINT : PRINT : PRINT
7020 INPUT "ENTER TITLE FOR CHART ";TI$
7025 IF LEN (TI$) ( = 40 THEN 7030
7027 PRINT CHR$ (7);"TITLE TOO LONG - 40 CHAR. MAX ":
GOT0 7000
7030 AS% = 0:AL% = 100
7035 FOR I = 1TO 24
7040 HOME