Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-12-25 05:29:34 +00:00
Code Issues Projects Releases Wiki Activity

appleiibot: add horizon

Browse Source
This commit is contained in:
Vince Weaver 2020-10-29 11:37:18 -04:00
parent a8adccd009
commit 575716810f
2 changed files with 19 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
appleiibot/Makefile
View File

@ -10,7 +10,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
CONCERT.BAS NYAN.BAS RASTER.BAS RASTER2.BAS RASTER3.BAS LOTS.BAS LOAD \
RASTER4.BAS RASTER5.BAS PUMPKIN.BAS PUMPKIN_SMALL.BAS LADY.BAS \
A2.BAS FOURAM.BAS FLOPPY.BAS QR.BAS A2_4EVER.BAS RLE.BAS RLE2.BAS \
RLEASM.BAS
RLEASM.BAS HORIZON.BAS
cp empty.dsk appleiibot.dsk
$(DOS33) -y appleiibot.dsk BSAVE -a 0x0300 LOAD
$(DOS33) -y appleiibot.dsk SAVE A E2.BAS
@ -41,6 +41,7 @@ appleiibot.dsk: E2.BAS FLAME.BAS FLAME2.BAS \
$(DOS33) -y appleiibot.dsk SAVE A RLE.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLE2.BAS
$(DOS33) -y appleiibot.dsk SAVE A RLEASM.BAS
$(DOS33) -y appleiibot.dsk SAVE A HORIZON.BAS
###
@ -236,5 +237,10 @@ RLEASM.BAS: rleasm.bas
####
HORIZON.BAS: horizon.bas
$(TOKENIZE) < horizon.bas > HORIZON.BAS
####
clean:
rm -f *~ *.o *.lst convert_to convert_from convert_qkumba make_boxes convert_back LOAD *.BAS

12
appleiibot/horizon.bas Normal file
View File

@ -0,0 +1,12 @@
10 HGR:HGR2:C=2
12 FOR I=0 TO 8
14 X=0:Y=96+I*11:V=279:W=Y:GOSUB200
16 NEXT
22 A=-220:W=96:FORI=1TO8
24 READ B:Y=B
26 X=A*(A>0):V=I*16:GOSUB200
30 X=279-X:V=(17-I)*16:GOSUB200
32 A=A+48:NEXT
70 GOTO 22
138 DATA 101,112,123,139,166,191,191,191
200HCOLOR=C:HPLOTX,YTOV,W:RETURN