Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-09-29 08:55:10 +00:00
Code Issues Projects Releases Wiki Activity

gr: tunnel: more

Browse Source
This commit is contained in:
Vince Weaver 2021-06-07 22:41:08 -04:00
parent 8fd727a221
commit 231081ed51
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
graphics/gr/tunnel/t.bas
View File

@ -1,12 +1,10 @@
7 DIM A(9,9):FOR I=0 TO 8:FOR J=0 TO 8:A(I,J)=40/(2+I+J/7):NEXTJ,I 7 DIM A(9,9):FOR I=0 TO 8:FOR J=0 TO 8:A(I,J)=40/(2+I+J/7):NEXTJ,I
10 GR:N=23 10 GR:N=23
15 FOR Q=0 TO 7 15 FOR Q=6 TO 0 STEP -1
20 T=19:FOR X=0 TO 7 22 P=0
30 FOR I=T TO T-A(X,Q) STEP -1 25 FOR I=0 TO 19 STEP 1:IF 20-I<A(P,Q) THEN P=P+1
40 Z=39-I:J=I+1:W=Z-1 40 Z=39-I:J=I+1:W=Z-1
42 COLOR=N:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z 42 COLOR=N+P:HLIN J,W AT I:HLIN J,W AT Z:VLIN J,W AT I:VLIN J,W AT Z
50 NEXT:T=T-A(X,Q):N=N-1 50 NEXT
60 NEXT:N=N+9:IF N=16 THEN N=32 60 NEXT:N=N+1:IF N=32 THEN N=16
65 NEXT
70 GOTO 15 70 GOTO 15