From 9b092d5b279fe14c46342c9a0f0b49dd78537435 Mon Sep 17 00:00:00 2001 From: Vince Weaver Date: Mon, 5 Oct 2020 18:55:32 -0400 Subject: [PATCH] 2liner: various --- two-liners/Makefile | 20 ++++++++++++++++++- two-liners/asteroid.bas | 8 ++++++++ two-liners/asteroid.shape | 10 ++++++++++ two-liners/person.bas | 3 +++ two-liners/person.shape | 41 +++++++++++++++++++++++++++++++++++++++ two-liners/person1.shape | 41 +++++++++++++++++++++++++++++++++++++++ two-liners/person2.bas | 3 +++ two-liners/ship.bas | 8 ++++++++ two-liners/ship.shape | 20 +++++++++++++++++++ 9 files changed, 153 insertions(+), 1 deletion(-) create mode 100644 two-liners/asteroid.bas create mode 100644 two-liners/asteroid.shape create mode 100644 two-liners/person.bas create mode 100644 two-liners/person.shape create mode 100644 two-liners/person1.shape create mode 100644 two-liners/person2.bas create mode 100644 two-liners/ship.bas create mode 100644 two-liners/ship.shape diff --git a/two-liners/Makefile b/two-liners/Makefile index c5bb93b0..faf499c0 100644 --- a/two-liners/Makefile +++ b/two-liners/Makefile @@ -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 + #### diff --git a/two-liners/asteroid.bas b/two-liners/asteroid.bas new file mode 100644 index 00000000..f4ed5d11 --- /dev/null +++ b/two-liners/asteroid.bas @@ -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 + diff --git a/two-liners/asteroid.shape b/two-liners/asteroid.shape new file mode 100644 index 00000000..0e842394 --- /dev/null +++ b/two-liners/asteroid.shape @@ -0,0 +1,10 @@ +# Number of shapes +1 +START +NDN +LT UP UP +RT RT +DN DN +LT +STOP + diff --git a/two-liners/person.bas b/two-liners/person.bas new file mode 100644 index 00000000..8d06af11 --- /dev/null +++ b/two-liners/person.bas @@ -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 diff --git a/two-liners/person.shape b/two-liners/person.shape new file mode 100644 index 00000000..f2646815 --- /dev/null +++ b/two-liners/person.shape @@ -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 diff --git a/two-liners/person1.shape b/two-liners/person1.shape new file mode 100644 index 00000000..0a5a6974 --- /dev/null +++ b/two-liners/person1.shape @@ -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 diff --git a/two-liners/person2.bas b/two-liners/person2.bas new file mode 100644 index 00000000..78c8e574 --- /dev/null +++ b/two-liners/person2.bas @@ -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 diff --git a/two-liners/ship.bas b/two-liners/ship.bas new file mode 100644 index 00000000..d61cf196 --- /dev/null +++ b/two-liners/ship.bas @@ -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 diff --git a/two-liners/ship.shape b/two-liners/ship.shape new file mode 100644 index 00000000..80791035 --- /dev/null +++ b/two-liners/ship.shape @@ -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