Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-02-24 11:29:18 +00:00
Code Issues Projects Releases Wiki Activity

eye_new: better

Browse Source
This commit is contained in:
Vince Weaver 2021-03-16 14:47:34 -04:00
parent 337230115a
commit f52d98cd37
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
graphics/gr/bitmap/eye_new.bas
View File

@ -1,7 +1,6 @@
1GR
2FORI=0TO7:A(I)=PEEK(2185+I)-35:NEXT
3C=PEEK(2185+I)-35
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):PLOTX,I/8:C=C/8:NEXT:X=X*(X<15):I=I+1:IFI<135THEN3
5END
2FORI=0TO135:C=PEEK(2174+I)-35
3IFI<8THENA(I)=C:NEXT
4FORX=XTOX+1:COLOR=A(C-INT(C/8)*8):PLOT12+X,9+I/8:C=C/8:NEXT:X=X*(X<15):NEXT
5GOTO1
6".+#'2*/(#,#34,-%+$345555,3455555$455>655+5=>HO654=A5RG@M5V65]H?M5>955H?E8V655R@E7>955=>EO=A55V6HG=VAAA6GH8>VV>MGLO5>>5HO+0O55HO,#+,,,,,#