lovebyte2023: add lemming basic demo

This commit is contained in:
Vince Weaver 2023-01-24 00:30:39 -05:00
parent a55dd47077
commit 1288807b42
4 changed files with 67 additions and 0 deletions

View File

@ -0,0 +1,45 @@
include ../../../Makefile.inc
DOS33 = ../../../utils/dos33fs-utils/dos33
TOKENIZE = ../../../utils/asoft_basic-utils/tokenize_asoft
EMPTYDISK = ../../../empty_disk/empty.dsk
all: lemm256.dsk
lemm256.dsk: HELLO LEMM
cp $(EMPTYDISK) lemm256.dsk
$(DOS33) -y lemm256.dsk SAVE A HELLO
$(DOS33) -y lemm256.dsk SAVE A LEMM
###
submit: lemm256.zip
lemm256.zip: PAR_TINY lemm.bas file_id.diz lemm256.dsk
mkdir -p lovebyte2023_lemm256
cp LEMM ./lovebyte2023_lemm256
cp lemm.bas ./lovebyte2023_lemm256
cp file_id.diz ./lovebyte2023_lemm256
cp lemm256.dsk ./lovebyte2023_lemm256
cp lemm_720p.mp4 ./lovebyte2023_lemm256
zip -r lemm256.zip lovebyte2023_lemm256
####
####
HELLO: hello.bas
$(TOKENIZE) < hello.bas > HELLO
####
LEMM: lemm.bas
$(TOKENIZE) < lemm.bas > LEMM
####
clean:
rm -f *~ *.o *.lst HELLO LEMM *.zip

View File

@ -0,0 +1,8 @@
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
LEMM256
-------------------------------------
Animated Hi-res Lemming Walking Demo
251 byte BASIC program for Apple II
Lovebyte 2023
by Deater / dSr

View File

@ -0,0 +1,9 @@
5 HOME
10 PRINT " LEMM -- A 251 BYTE APPLE II INTRO"
12 PRINT " FOR LOVEBYTE 2023"
15 PRINT " BY DEATER / DSR"
20 PRINT CHR$(4)"CATALOG"
25 PRINT:PRINT "PRESS ANY KEY TO 'RUN LEMM'"
30 GET A$
35 PRINT
40 PRINT CHR$(4)"RUN LEMM"

View File

@ -0,0 +1,5 @@
1HGR:DEFFNP(X)=7*PEEK(2185+I*5+X)-224
4HCOLOR=FNP(0)/7:FORY=FNP(3)TOFNP(4)-1:HPLOTFNP(1),YTOFNP(2)-1,Y:NEXTY:IFI=9THENHGR2
7P=NOTP:POKE49236+P,0:IFI<21THENI=I+1
8GOTO4
9"&-/*/&,0./'+,.0'.0/0'-.*,'./,-!,0(*!-/'(#./()#-0)*!,/')!-.&'!/0&'&-/*.&,../',./0'/0./'01,.',-+-'-.*+#./()#-0)*