home *** CD-ROM | disk | FTP | other *** search

---

/ Set of Apple II Hard Drive Images / hard.hdv / HARD / TWOLINERS / TL.ZOOM.GRAPHIC (.txt)

< prev

next >

Wrap

Applesoft BASIC Source Code  |  1992-02-02  |  198 b   |  3 rows  |  [FC] Applesoft BASIC Program (0x0801)

---

#	0 REM CHRIS KOERITZ-FAYETTEVILLE	NY 13066
1	1  HGR :HC = 3:Y = 191: POKE  -16302	0:X = 279
2	2  HCOLOR= HC: HPLOT X	Y TO X	191 -Y TO 279 -X	191 -Y TO 279 -X	Y TO X	Y:Y = Y -5 +190 *(Y <2):X = X -5 +275 *(X <5):HC = HC -3 *(HC = 3  AND  RND(1) >.94) +3 *(HC = 0  AND  RND(1) >.9): GOTO 2