mirror of
https://github.com/deater/dos33fsprogs.git
synced 2025-08-10 06:25:04 +00:00
16 lines
630 B
QBasic
16 lines
630 B
QBasic
0 GOTO 8:SPEED=$)%DEL$LRUSR:SPEED=$)%DEL$LRUSR
|
|
8 POKE 2068,9:DIM CL(32):FOR I=0 TO 31:READ CL(I):NEXT:GR:POKE 49234,0
|
|
30 FOR Y=0 TO 47:FOR X=0 TO 39:D=14
|
|
40 YP=Y*4*D:T=(X*6)-D:IF T>=0 THEN 70
|
|
50 C=11:A=(X*6)+YP
|
|
55 IF A>256 THEN A=A-256:GOTO 55
|
|
57 IF A<6 THEN 95
|
|
60 C=(C*16)+((Y*4)/16):C=C-160:GOTO 95
|
|
70 XP=T*D:POKE 2067,XP/256:POKE 2069,YP/256:CALL 2066:T=PEEK(36)
|
|
75 POKE2057,T:POKE2059,D+F:CALL 2056:C=PEEK(36):D=D+1
|
|
80 IF C<16 THEN 40
|
|
90 C=C-16
|
|
95 COLOR=CL(C):PLOT X,Y:NEXT X,Y:F=F+1:GOTO 30
|
|
97 DATA 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
|
|
100 REM APPLE II VERSION OF HELLMOOD'S 64B STARPATH
|