Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2025-03-03 12:31:32 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: add another boxes example

Browse Source
This commit is contained in:
Vince Weaver 2020-10-17 15:21:25 -04:00
parent e763c66839
commit 4a609c71b9
4 changed files with 43 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
appleiibot/Makefile
View File

@ -8,7 +8,7 @@ all: appleiibot.dsk convert_to convert_back convert_qkumba make_boxes
appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@ -30,6 +30,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A LOTS.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN.BAS
$(DOS33) -y appleiibot.dsk SAVE A PUMPKIN_SMALL.BAS
$(DOS33) -y appleiibot.dsk SAVE A LADY.BAS
###
@ -168,6 +169,11 @@ PUMPKIN.BAS: pumpkin.bas
####
LADY.BAS: lady.bas
$(TOKENIZE) < lady.bas > LADY.BAS
####
PUMPKIN_SMALL.BAS: pumpkin_small.bas
$(TOKENIZE) < pumpkin_small.bas > PUMPKIN_SMALL.BAS

3
appleiibot/convert_qkumba.c
View File

@ -25,5 +25,8 @@ int main(int argc, char **argv) {
printf("2FORI=0TO%d:C%%=(PEEK(%d+I/3)-32)/4^(I-INT(I/3)*3):POKE768+I,C%%+4*(PEEK(2054+I)-32-INT(C%%/4)):NEXT:CALL768\n",
filesize,2054+filesize);
// note, peek/poke truncate?
//2FORI=1013TO1141:C=(PEEK(1843+I/3)-32)/4^(I-INT(I/3)*3):POKEI,C+4*(PEEK(1041+I)-32-INT(C/4)):NEXT:&
return 0;
}

3
appleiibot/lady.bas Normal file
View File

@ -0,0 +1,3 @@
0REM/ G O))>(O),;$')18"# ,<@G -909/-927$/727,6627,0027+,9:?+.7*/+06()+24(C+35@I+-8@A+/6BC),1FG)7<FG)8<CE$35HI,19JK,.:LM/-;NO#,-:;#89:;#24@A#46>?(>>BO(((.L
1DEFFNP(X)=PEEK(2054+I+X)-32:GR:POKE49234,0:FORI=0TO145STEP5:COLOR=FNP(0):FORY=FNP(3)TOFNP(4):HLINFNP(1),FNP(2)ATY:NEXTY,I

30
appleiibot/lady.data Normal file
View File

@ -0,0 +1,30 @@
15 0 39 0 47 ; background
9 9 30 8 47 ; hair
9 12 27 4 7 ; hair
9 17 24 2 3 ; hair
0 12 28 32 39 ; neck outline
0 13 25 16 25 ; eyebrow
15 13 25 18 23 ; eye white
4 15 23 18 23 ; eye green
12 22 22 18 23 ; right eye
12 16 16 18 23 ; left eye
11 12 25 26 31 ; cheeks
11 14 23 10 15 ; forehead
11 16 22 8 9 ; forehead
11 18 20 8 35 ; long nose
11 19 21 32 41 ; neck
11 13 24 32 33 ; face
11 15 22 34 35 ; lower face
9 12 17 38 39 ; left hair
9 23 28 38 39 ; right hair
9 24 28 35 37 ; right hair
4 19 21 40 41 ; neckline
12 17 25 42 43 ; shirt
12 14 26 44 45 ; shirt
15 13 27 46 47 ; shirt stripe
3 12 13 26 27 ; left cheek
3 24 25 26 27 ; right cheek
3 18 20 32 33 ; mouth bottom
3 20 22 30 31 ; mouth top
8 30 30 34 47 ; hair
8 8 8 14 44 ; hair