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

starpath: basic?

Browse Source
This commit is contained in:
Vince Weaver 2025-02-24 16:35:07 -05:00
parent 8b9df32b6a
commit b0c32e0349
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
utils/gr-sim/starpath/starpath.bas Normal file
View File

@ -0,0 +1,24 @@
10 REM APPLE II VERSION OF HELLMOOD'S 64B STARPATH
20 REM CR=[0,5,0,5,5,5,10,10,5,5,10,10,7,7,15,15,1,2,1,2,3,9,3,9,13,12,13,12,4,4,4,4]
30 GR:REM PEEK FULLSCREEN
40 FOR X=0 TO 39
50 FOR Y=0 TO 48
60 D=14
70 YP=Y*4*D REM L:
80 T=(X*6)-D
90 IF T>256 THEN 200
100 C=11
110 REM RANDOM START
120 C=(C*16)+((Y*4)/16)
130 C=C-160
140 GOTO 300
200 XP=T*D
210 T=(XP+YP)/256
220 C=T&(D+F)
230 D=D+1
240 IF C&0x10=0 THEN GOTO 70
250 C=C-16 }
300 COLOR=C:PLOT X,Y
999 NEXT X,Y
1000 F=F+1:GOTO 40