mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-08-10 06:25:04 +00:00
25 lines
489 B
QBasic
25 lines
489 B
QBasic
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
|
|
|