mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-12 11:29:37 +00:00
twister: work on tiny version
This commit is contained in:
parent
a52d1ebb47
commit
697a9e6e9a
|
@ -9,11 +9,12 @@ EMPTY_DISK = ../../../empty_disk
|
||||||
|
|
||||||
all: twister.dsk
|
all: twister.dsk
|
||||||
|
|
||||||
twister.dsk: $(DOS33) HELLO TWISTER.BAS LORES.BAS
|
twister.dsk: $(DOS33) HELLO TWISTER.BAS LORES.BAS TINY.BAS
|
||||||
cp $(EMPTY_DISK)/empty.dsk twister.dsk
|
cp $(EMPTY_DISK)/empty.dsk twister.dsk
|
||||||
$(DOS33) -y twister.dsk SAVE A HELLO
|
$(DOS33) -y twister.dsk SAVE A HELLO
|
||||||
$(DOS33) -y twister.dsk SAVE A TWISTER.BAS
|
$(DOS33) -y twister.dsk SAVE A TWISTER.BAS
|
||||||
$(DOS33) -y twister.dsk SAVE A LORES.BAS
|
$(DOS33) -y twister.dsk SAVE A LORES.BAS
|
||||||
|
$(DOS33) -y twister.dsk SAVE A TINY.BAS
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
|
@ -30,6 +31,12 @@ TWISTER.BAS: twister.bas
|
||||||
LORES.BAS: lores.bas
|
LORES.BAS: lores.bas
|
||||||
$(TOKENIZE) < lores.bas > LORES.BAS
|
$(TOKENIZE) < lores.bas > LORES.BAS
|
||||||
|
|
||||||
|
###
|
||||||
|
|
||||||
|
TINY.BAS: tiny.bas
|
||||||
|
$(TOKENIZE) < tiny.bas > TINY.BAS
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
10
graphics/gr/twister/tiny.bas
Normal file
10
graphics/gr/twister/tiny.bas
Normal file
|
@ -0,0 +1,10 @@
|
||||||
|
0DIMA(1280),B(1280):GR:P=3.14:FORE=0TOP*2STEP.1:?J
|
||||||
|
1M=120+COS(E)*100:N=P-SIN(E)*P:FORY=0TO19:J=J+1
|
||||||
|
2F=Y*8/M-N:A(J)=8*SIN(F):B(J)=8*SIN(F+P/2):NEXTY,E
|
||||||
|
3J=0:FORI=1TO63:FORY=0TO19:J=J+1:Q=A(J):R=B(J):S=20-Q:T=20-R:Q=Q+20:R=R+20
|
||||||
|
4COLOR=0:HLIN12,27ATY:COLOR=1
|
||||||
|
5IFQ<RTHENHLINQ,RATY:GOTO7
|
||||||
|
6HLINS,TATY
|
||||||
|
7COLOR=2:IFR<STHENHLINR,SATY:GOTO9
|
||||||
|
8HLINT,QATY
|
||||||
|
9NEXTY,I:GOTO3
|
Loading…
Reference in New Issue
Block a user