Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-04-18 03:37:41 +00:00
Code Issues Projects Releases Wiki Activity

starpath: optimize some more

Browse Source 
replace data
This commit is contained in:
Vince Weaver 2025-02-25 15:06:04 -05:00
parent 024e600f39
commit 93899f9a2c
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
graphics/gr/starpath/starpath.bas
View File

@ -1,10 +1,11 @@
0GOTO1:ONERR$)%DEL$LRUSR
1P=2056:DIML(16):FORI=0TO14:READL(I):NEXT:GR:POKE49234,0
0GOTO1:ONERR$)%DEL$LRUSRAFKFKHPPCBDJNM
1P=2056:DIML(16):FORI=0TO14:L(I)=PEEK(P+I+9)-65:NEXT:GR:POKE49234,0
2FORY=0TO47:FORX=0TO39:D=I
3Z=Y*4*D:T=X*6-D:IFT<0THENC=31:A=X*6+Z:GOTO7
4POKEP+2,9:POKE36,T*D/256:POKEP+3,Z/256:CALLP
5POKEP+2,41:POKEP+3,D+F:CALLP:C=PEEK(36):D=D+1:IFC<16THEN3
6GOTO9:DATA0,5,10,5,10,7,15,15,2,1,3,9,13,12,4
6GOTO9
7IFA>256THENA=A-256:GOTO7
8IFA>6THENC=Y/4+32
9COLOR=L(C/2-8):PLOTX,Y:NEXTX,Y:F=F+1:GOTO2