Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-27 17:29:49 +00:00
Code Issues Projects Releases Wiki Activity

2liner: various

Browse Source
This commit is contained in:
Vince Weaver 2020-10-05 18:55:32 -04:00
parent 22881013b2
commit 9b092d5b27
9 changed files with 153 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
two-liners/Makefile
View File

@ -6,7 +6,7 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
all: entropy.dsk convert_to convert_back convert_qkumba
entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS LOAD
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS LOAD
$(DOS33) -y entropy.dsk BSAVE -a 0x0C00 ENTROPY
$(DOS33) -y entropy.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y entropy.dsk SAVE A ENTROPY.BAS
@ -16,6 +16,9 @@ entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y entropy.dsk SAVE A AUTUMN.BAS
$(DOS33) -y entropy.dsk SAVE A CIRCLES.BAS
$(DOS33) -y entropy.dsk SAVE A QKUMBA.BAS
$(DOS33) -y entropy.dsk SAVE A ASTEROID.BAS
$(DOS33) -y entropy.dsk SAVE A PERSON.BAS
$(DOS33) -y entropy.dsk SAVE A SHIP.BAS
###
@ -101,6 +104,21 @@ AUTUMN.BAS: autumn.bas
CIRCLES.BAS: circles.bas
$(TOKENIZE) < circles.bas > CIRCLES.BAS
####
ASTEROID.BAS: asteroid.bas
$(TOKENIZE) < asteroid.bas > ASTEROID.BAS
####
PERSON.BAS: person.bas
$(TOKENIZE) < person.bas > PERSON.BAS
####
SHIP.BAS: ship.bas
$(TOKENIZE) < ship.bas > SHIP.BAS
####

8
two-liners/asteroid.bas Normal file
View File

@ -0,0 +1,8 @@
0 HGR2:POKE232,0:POKE233,3:FOR L=768TO777:READB:POKEL,B:NEXT:DATA 1,0,4,0,58,36,45,54,7,0
1 SCALE=20:R=0
5 FOR I=1 TO 5:X(I)=INT(RND(1)*192)+1:Y(I)=INT(RND(1)*192)+1:NEXT I
30 ROT=R:R=R+1
38 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
45 FOR I=1 TO 5:XDRAW 1 AT X(I),Y(I):NEXT I
90 GOTO 30

10
two-liners/asteroid.shape Normal file
View File

@ -0,0 +1,10 @@
# Number of shapes
1
START
NDN
LT UP UP
RT RT
DN DN
LT
STOP

3
two-liners/person.bas Normal file
View File

@ -0,0 +1,3 @@
2POKE232,0:POKE233,3:FORL=768TO797:READB:POKEL,B:NEXT:HGR:ROT=0:SCALE=1:FORI=0TO13:XDRAW1AT5+I*20,100:NEXT
5FORX=0TO279:DRAW1ATX,50:ROT=X/4:C=INT(RND(1)*4)+1:SCALE=C:HCOLOR=C:NEXT:GOTO5
6DATA1,0,4,0,45,37,60,36,44,44,53,55,111,37,22,63,119,45,30,55,45,45,21,63,63,63,63,63,7,0

41
two-liners/person.shape Normal file
View File

@ -0,0 +1,41 @@
# Person, shoulders up
2
START
RT RT
RT UP
UP LT
UP UP
UP RT
UP RT
RT DN
LT DN
LT RT NRT
RT UP
DN NDN
LT LT
LT DN NRT
RT RT
DN NLT
LT DN
RT RT
RT RT
RT NDN
LT LT
LT LT
LT LT
LT LT
LT LT
LT
STOP
# Person, raising arm
START
NRT NRT
NRT NRT
NRT NRT
NRT NRT
NRT
UP UP UP UP UP
UP UP
RT
NDN DN DN DN DN DN DN
STOP

41
two-liners/person1.shape Normal file
View File

@ -0,0 +1,41 @@
# Person, shoulders up
1
START
RT RT
RT UP
UP LT
UP UP
UP RT
UP RT
RT DN
LT DN
LT RT NRT
RT UP
DN NDN
LT LT
LT DN NRT
RT RT
DN NLT
LT DN
RT RT
RT RT
RT NDN
LT LT
LT LT
LT LT
LT LT
LT LT
LT
STOP
# Person, raising arm
START
NRT NRT
NRT NRT
NRT NRT
NRT NRT
NRT
UP UP UP UP UP
UP UP
RT
NDN DN DN DN DN DN DN
STOP

3
two-liners/person2.bas Normal file
View File

@ -0,0 +1,3 @@
2POKE232,0:POKE233,3:FORL=768TO810:READB:POKEL,B:NEXT:HGR:ROT=0:SCALE=1:FORI=0TO13:XDRAW1AT5+I*20,100:NEXT
5I=INT(RND(1)*14):XDRAW2AT5+I*20,100:GOTO5
6DATA2,0,6,0,32,0,45,37,60,36,44,44,53,55,111,37,22,63,119,45,30,55,45,45,21,63,63,63,63,63,7,0,73,73,73,36,36,36,172,54,54,54,0

8
two-liners/ship.bas Normal file
View File

@ -0,0 +1,8 @@
10 HIMEM:8156
20 POKE 232,220:POKE 233,31
30 FOR L=8156 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=5
40 FOR I=1 TO 1: XDRAW I AT 110,100:NEXT I
90 END
100 DATA 1,0,4,0,50,63,39,37,53,14
101 DATA 45,37,39,151,36,63,36,45,54,0

20
two-liners/ship.shape Normal file
View File

@ -0,0 +1,20 @@
# Ship
1
START
NDN DN # 00 110 010 0x32
RT RT # 00 101 101 0x2d
RT UP # 00 100 101 0x25
LT UP # 00 100 111
LT DN # 00 110 111
DN LT # 00 111 110
LT LT # 00 111 111
LT UP # 00 100 111
RT UP # 00 100 101
RT NDN # 00 010 101
DN UP # 00 100 110
UP RT # 00 101 100
RT UP # 00 100 101
UP LT # 00 111 100
LT DN # 00 110 111
DN # 00 000 110
STOP