Atari 65XE, Owner'S Manual

Page: 92 / 135

440 REM A D D 6TH S T A R E V E R Y OTHER LINE
450 X=5+5*14:GOSUB 1000
460 K=7
470 NEXT I
500 REM IF KEY HIT THEN STOP
510 IF PEEK(764)=255 THEN 510
515 REM OPEN T E X T W I N D O W WITHOUT C L E A R I N G SCREEN
520 GRAPHICS 7+32
525 REM C H A N G E COLORS B A C K
530 SETCOLOR 0 , 4 , 4 : S E T C O L O R l,0,14
550 STOP
1000 REM D R A W 1 STAR CENTERED AT X,Y
1010 PLOT X-1,Y:DRAWTO X+1,Y
1020 PLOT H,Y-l:PLOT X , Y + 1
1030 RETURN
87