home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.HPLOT.MADNES (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1992-02-02  |  283 b   |  3 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 0  REM DAN PROTHERO-OSTERVILLE,MA
  2. 1 T = 768: POKE 232,0: POKE 233,3: FOR L = T TO T +24: READ P: POKE L,P: NEXT : DATA  5,0,12,0,15,0,18,0,21,0,24,0,53,39,0,55,37,0,39,53,0,37,55,0,45,0: HGR : POKE  -16302,0: ROT= 0
  3. 2  FOR J = 0 TO 7: HCOLOR= J: HPLOT 0,0: CALL  -3082: FOR R = 1 TO 2: FOR S = 1 TO 191: SCALE= S: XDRAW 1 AT S,S: XDRAW 2 AT 279 -S,S: XDRAW 3 AT 279 -S,191 -S: XDRAW 4 AT S,191 -S: NEXT : SCALE= 140: FOR Y = 0 TO 191: XDRAW 5 AT 0,Y: NEXT : NEXT : NEXT : GOTO 2