mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-06-20 17:29:28 +00:00
twoline: of course qkumba did it better
This commit is contained in:
parent
9a6ef1a7ae
commit
e2ac01dd91
|
@ -6,7 +6,7 @@ TOKENIZE = ../asoft_basic-utils/tokenize_asoft
|
||||||
all: entropy.dsk convert_to convert_back
|
all: entropy.dsk convert_to convert_back
|
||||||
|
|
||||||
entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
|
entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
|
||||||
CIRCLES.BAS AUTUMN.BAS LOAD
|
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS LOAD
|
||||||
$(DOS33) -y entropy.dsk BSAVE -a 0x0C00 ENTROPY
|
$(DOS33) -y entropy.dsk BSAVE -a 0x0C00 ENTROPY
|
||||||
$(DOS33) -y entropy.dsk BSAVE -a 0x0300 LOAD
|
$(DOS33) -y entropy.dsk BSAVE -a 0x0300 LOAD
|
||||||
$(DOS33) -y entropy.dsk SAVE A ENTROPY.BAS
|
$(DOS33) -y entropy.dsk SAVE A ENTROPY.BAS
|
||||||
|
@ -15,6 +15,7 @@ entropy.dsk: ENTROPY ENTROPY.BAS E2.BAS FLAME.BAS FLAME2.BAS \
|
||||||
$(DOS33) -y entropy.dsk SAVE A FLAME2.BAS
|
$(DOS33) -y entropy.dsk SAVE A FLAME2.BAS
|
||||||
$(DOS33) -y entropy.dsk SAVE A AUTUMN.BAS
|
$(DOS33) -y entropy.dsk SAVE A AUTUMN.BAS
|
||||||
$(DOS33) -y entropy.dsk SAVE A CIRCLES.BAS
|
$(DOS33) -y entropy.dsk SAVE A CIRCLES.BAS
|
||||||
|
$(DOS33) -y entropy.dsk SAVE A QKUMBA.BAS
|
||||||
|
|
||||||
###
|
###
|
||||||
|
|
||||||
|
@ -49,6 +50,10 @@ LOAD: load.o
|
||||||
load.o: load.s
|
load.o: load.s
|
||||||
ca65 -o load.o load.s -l load.lst
|
ca65 -o load.o load.s -l load.lst
|
||||||
|
|
||||||
|
####
|
||||||
|
|
||||||
|
QKUMBA.BAS: qkumba_seasons.bas
|
||||||
|
$(TOKENIZE) < qkumba_seasons.bas > QKUMBA.BAS
|
||||||
|
|
||||||
####
|
####
|
||||||
|
|
||||||
|
|
14
two-liners/convert_qkumba.c
Normal file
14
two-liners/convert_qkumba.c
Normal file
|
@ -0,0 +1,14 @@
|
||||||
|
i = 0;
|
||||||
|
e = 0;
|
||||||
|
|
||||||
|
do
|
||||||
|
{
|
||||||
|
enc[e++] = ((in[i + 2] & 3) << 4) + ((in[i + 1] & 3) << 2) + (in[i + 0] & 3) + 32;
|
||||||
|
in[i + 0] = (in[i + 0] >> 2) + 32;
|
||||||
|
in[i + 1] = (in[i + 1] >> 2) + 32;
|
||||||
|
in[i + 2] = (in[i + 2] >> 2) + 32;
|
||||||
|
write(o, in + i, 3);
|
||||||
|
}
|
||||||
|
while ((i += 3) < filesize);
|
||||||
|
write(o, enc, sizeof(enc));
|
||||||
|
|
2
two-liners/qkumba_seasons.bas
Normal file
2
two-liners/qkumba_seasons.bas
Normal file
|
@ -0,0 +1,2 @@
|
||||||
|
1REM(V\I\I]B.Y]A\FY]R@:A]9\&B9]A]F9]R@:A]9]9]9^9^9^L'Y^T Y_I\:@A\D Y].J Y]A]J Y]A]I^")_1_A^*!" JI],HI]*\TG([]I\I]I](5]K 0,CIJ2 AJ4A 'P.(53&&.6%98:N8*YHT1C"151FM2T=:R10@.4,A0V)P
|
||||||
|
2FOR I=0TO127:C=INT((PEEK(2183+I/3)-32)/4^(I-INT(I/3)*3)):POKE 4096+I,((PEEK(2054+I)-32)*4)+C-INT(C/4)*4:NEXT:CALL4096
|
Loading…
Reference in New Issue
Block a user