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

rr_hgr: not really that awesome

Browse Source
This commit is contained in:
Vince Weaver 2021-02-07 00:04:34 -05:00
parent e2406dedc6
commit 6461e5e16a
3 changed files with 33 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basic/appleiibot/Makefile
View File

@ -12,7 +12,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \ A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \ RLEASM.BAS HORIZON.BAS FLYER.BAS STAR.BAS HYPER.BAS FASTAR.BAS \
FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \ FASTAR2.BAS BIN.BAS FALLING.BAS SNOW.BAS XMAS.BAS AN3.BAS PLASMA.BAS \
C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS C64.BAS SIERPINSKI.BAS FAKES.BAS SIER.BAS DROPS.BAS RR.BAS RR_HGR.BAS
cp empty.dsk appleiibot.dsk cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD $(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
# $(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2 # $(DOS33) -y appleiibot.dsk BSAVE -a 0x0C00 FASTAR2
@ -62,6 +62,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A SIER.BAS $(DOS33) -y appleiibot.dsk SAVE A SIER.BAS
$(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS $(DOS33) -y appleiibot.dsk SAVE A DROPS.BAS
$(DOS33) -y appleiibot.dsk SAVE A RR.BAS $(DOS33) -y appleiibot.dsk SAVE A RR.BAS
$(DOS33) -y appleiibot.dsk SAVE A RR_HGR.BAS
### ###
@ -361,6 +362,11 @@ DROPS.BAS: drops.bas
RR.BAS: rr.bas RR.BAS: rr.bas
$(TOKENIZE) < rr.bas > RR.BAS $(TOKENIZE) < rr.bas > RR.BAS
####
RR_HGR.BAS: rr_hgr.bas
$(TOKENIZE) < rr_hgr.bas > RR_HGR.BAS
#### ####

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

@ -0,0 +1,4 @@
0REM& ~ ~ GYG~ 1FG\ U^Ge!/BP\!7Zf~!U[Ue"FM:F"JS/A%GU).%AI,;#RTO~#OUCM"SU8; +F]k"GP\e&_j\p [ifq"itip&^wft ^gfq"_f\e
1HGR:?" o/~ NEVER GONNA GIVE YOU UP o/~":DEFFNP(X)=PEEK(2054+I*5+X)
2FORI=0TO22:IFI=22THENI=15
3HCOLOR=FNP(0)-32:FORY=FNP(3)TOFNP(4):HPLOTFNP(1),YTOFNP(2),Y:NEXTY,I

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

@ -0,0 +1,22 @@
6 0 94 0 94 ; 0 background x1 x2 y1 y2
0 39 57 39 94 ; 1 grey lower
0 17 38 39 60 ; 2 left dgrey
0 53 62 39 69 ; 3 right dgrey
1 15 34 48 60 ; 4 l green
1 23 58 70 94 ; 5 l green bottom
1 53 59 53 69 ; 6 l green
2 38 45 26 38 ; 7 neck
2 42 51 15 33 ; 8 face
5 39 53 9 14 ; 9 hair
5 33 41 12 27 ; 10 hair
3 50 52 47 94 ; 11 mic
3 47 53 35 45 ; 12 mic
2 51 53 24 27 ; 13 nose
0 11 38 61 75 ; 14 l arm
2 39 48 60 69 ; 15 l hand
6 63 74 60 80 ; 16 erase r arm up
0 59 73 70 81 ; 17 r arm
2 73 84 73 80 ; 18 r hand
6 62 87 70 84 ; 19 erase r arm down
0 62 71 70 81 ; 20 r arm up
2 63 70 60 69 ; 21 r hand up