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

2-liners: update with nyan

Browse Source
This commit is contained in:
Vince Weaver 2020-10-07 01:34:28 -04:00
parent 36b8dc6b39
commit 04f16158a5
6 changed files with 71 additions and 42 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
two-liners/Makefile
View File

@ -6,7 +6,8 @@ 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 ASTEROID.BAS PERSON.BAS SHIP.BAS LOAD
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
CONCERT.BAS NYAN.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
@ -19,6 +20,8 @@ entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.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
$(DOS33) -y entropy.dsk SAVE A NYAN.BAS
$(DOS33) -y entropy.dsk SAVE A CONCERT.BAS
###
@ -71,6 +74,16 @@ QKUMBA2.BAS: qkumba_seasons.bas
QKUMBA.BAS: qkumba_autumn.bas
$(TOKENIZE) < qkumba_autumn.bas > QKUMBA.BAS
####
CONCERT.BAS: concert.bas
$(TOKENIZE) < concert.bas > CONCERT.BAS
####
NYAN.BAS: nyan.bas
$(TOKENIZE) < nyan.bas > NYAN.BAS
####

11
two-liners/concert.bas Normal file
View File

@ -0,0 +1,11 @@
10 HIMEM:8132
20 POKE 232,196:POKE 233,31
30 FOR L=8132 TO 8175: READ B:POKE L,B:NEXT L
35 HGR:ROT=0:SCALE=1
40 FOR I=1 TO 2: XDRAW I AT I*10,100:NEXT I
90 END
100 DATA 2,0,6,0,33,0,45,37,60,36
101 DATA 44,44,53,55,47,41,52,58,63,46
102 DATA 45,30,55,45,45,21,63,63,63,63
103 DATA 63,63,0,73,73,73,36,36,36,172
104 DATA 54,54,54,0

6
two-liners/nyan.bas Normal file
View File

@ -0,0 +1,6 @@
2POKE232,20:POKE233,8
5REM$,.,6>???$$--5
6ROT=0:SCALE=5:P=49236:HGR:HGR2:GOSUB8:Q=1:POKE230,32:GOSUB8
7POKEP+1,0:V=0:POKEP,0:GOTO7
8C=5:Y=80:XDRAW1AT134,102+Q*2:GOSUB9:C=1:GOSUB9:C=6:GOSUB9:C=2
9HCOLOR=C:FORZ=YTOY+5:FORX=0TO13:Q=NOTQ:HPLOTX*8,Z+QTOX*8+7,Z+Q:NEXTX,Z:Y=Z:RETURN

35
two-liners/person.shape
View File

@ -1,31 +1,32 @@
# 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
RT RT # 45
RT UP # 37
UP LT # 60
UP UP # 36
UP RT # 44
UP RT # 44
RT DN # 53
LT DN # 55
LT RT NOP # 47
NRT RT # 41
UP DN NOP # 52
NDN LT # 58
LT LT # 63
DN RT # 46
RT RT # 45
DN NLT # 30!
LT DN
RT RT
RT RT
RT NDN
RT NDN #!
LT LT
LT LT
LT LT
LT LT
LT LT
LT LT
LT
STOP
# Person, raising arm
START

15
two-liners/ship.bas
View File

@ -1,8 +1,7 @@
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
2POKE232,20:POKE233,8
5REM7:'%%,5..>'<29'
6HGR2:FOR X=1 TO 100:HCOLOR=7:HPLOT RND(1)*280,RND(1)*192:NEXT
7SCALE=5:FORR=0TO16:ROT=R:GOSUB9:GOSUB9:NEXT:FOR X=100TO270:GOSUB9
8HCOLOR=5:HPLOTX-30,86+RND(1)*16TOX-10,91:X1=X+SQR(X/25):GOSUB9:X=X1:NEXT:GOTO6
9XDRAW1ATX,91:RETURN

31
two-liners/ship.shape
View File

@ -1,20 +1,19 @@
# 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
LT DN NOP # DN LT = 00 110 111 = 37 = 55
NDN LT # LT NDN= 00 111 010 = 3A = 58
LT UP # UP LT = 00 100 111 = 27 = 39
RT UP
RT UP
UP RT
RT DN
DN RT
DN RT
DN LT # LT DN = 00 111 110 = 3E = 62
LT UP # UP LT = 00 100 111 = 27 = 39
UP LT NOP # LT UP = 00 111 100 = 3c = 60
NDN DN NOP # DN NDN= 00 110 010 = 32 = 50
NRT LT # LT NRT= 00 111 001 = 39 = 57
LT UP # UP LT = 00 100 111 = 27 = 39
STOP