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

basic: lemm

Browse Source
This commit is contained in:
Vince Weaver 2022-02-19 21:18:10 -05:00
parent 8446c7d85b
commit be0bf6e0f0
3 changed files with 43 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
basic/appleiibot/Makefile
View File

@ -4,7 +4,7 @@ DOS33 = ../../utils/dos33fs-utils/dos33
TOKENIZE = ../../utils/asoft_basic-utils/tokenize_asoft
EMPTY_DISK = ../../empty_disk
all: appleiibot.dsk convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene
all: appleiibot.dsk convert_to convert_back convert_qkumba make_boxes convert_vmw convert_tgreene make_hgr_boxes
appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
CIRCLES.BAS AUTUMN.BAS QKUMBA.BAS ASTEROID.BAS PERSON.BAS SHIP.BAS \
@ -21,7 +21,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
FIREWORKS.BAS THINKING.BAS ARCS.BAS WIRE_HGR.BAS STATIC.BAS \
OVAL.BAS OVAL_HGR.BAS MOVING.BAS THICK_SINE.BAS TURKEY.BAS \
FLAME_HGR.BAS RECT.BAS SNOWY.BAS EDGAR.BAS OOPS4.BAS OOPS3.BAS \
HORROR.BAS DIAMOND.BAS
HORROR.BAS DIAMOND.BAS LEMM.BAS
# cp $(EMPTY_DISK)/empty.dsk appleiibot.dsk
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
@ -113,6 +113,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS HELLO \
$(DOS33) -y appleiibot.dsk SAVE A OOPS3.BAS
$(DOS33) -y appleiibot.dsk SAVE A HORROR.BAS
$(DOS33) -y appleiibot.dsk SAVE A DIAMOND.BAS
$(DOS33) -y appleiibot.dsk SAVE A LEMM.BAS
####
@ -127,6 +128,14 @@ make_boxes: make_boxes.o
make_boxes.o: make_boxes.c
$(CC) $(CFLAGS) -c make_boxes.c
###
make_hgr_boxes: make_hgr_boxes.o
$(CC) $(LFLAGS) -o make_hgr_boxes make_hgr_boxes.o
make_hgr_boxes.o: make_hgr_boxes.c
$(CC) $(CFLAGS) -c make_hgr_boxes.c
###
@ -634,5 +643,10 @@ DIAMOND.BAS: diamond.bas
####
LEMM.BAS: lemm.bas
$(TOKENIZE) < lemm.bas > LEMM.BAS
####
clean:
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba convert_vmw make_boxes convert_back convert_tgreene LOAD *.BAS make_hgr_boxes

4
basic/appleiibot/lemm.bas Normal file
View File

@ -0,0 +1,4 @@
0REM!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*
1HGR:DEFFNP(X)=7*PEEK(2054+I*5+X)-224
2GOSUB4:HGR2:Z=10:GOSUB4
4FORI=ZTOZ+11:HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY,I:RETURN

22
basic/appleiibot/lemm.boxes Normal file
View File

@ -0,0 +1,22 @@
1 84 104 49 62 ; hair1 x1 x2 y1 y2
1 91 97 42 48 ; hair2
1 105 111 42 48 ; hair3
6 91 104 70 97 ; body1
6 84 97 98 104 ; body2
7 84 97 105 111 ; foot
7 105 111 98 104 ; foot2
7 112 118 84 97 ; foot3
7 84 90 77 90 ; arm
7 91 97 70 76 ; neck
3 98 104 56 62 ; forehead (common)
3 91 111 63 69 ; nose (common)
6 91 104 70 104 ; body1
6 84 111 98 104 ; body2
7 77 83 98 111 ; foot1
7 98 111 105 111 ; foot2
7 91 97 70 83 ; arm1
7 98 104 84 90 ; arm2
1 84 111 56 69 ; hair1
1 91 104 49 55 ; hair2
3 98 104 56 62 ; forehead (common)
3 91 111 63 69 ; nose (common)