music: zero wing intro

2023-01-15 01:30:31 -05:00 · 2023-01-15 01:30:31 -05:00 · c1ed093dc3
parent 08f1049e9c
commit c1ed093dc3
2 changed files with 9 additions and 0 deletions
--- a/graphics/hgr/shape_table/gear.bas
+++ b/graphics/hgr/shape_table/gear.bas
@ -0,0 +1,9 @@
+10 HIMEM:8169
+20 POKE 232,233:POKE 233,31
+30 FOR L=8169 TO 8175: READ B:POKE L,B:NEXT L
+35 HGR:ROT=1:SCALE=10
+37 FOR I=1 TO 10
+40 XDRAW 1 AT 100,100
+50 NEXT
+90 END
+100 DATA 1,0,4,0,37,53,0
--- a/music/zero_wing/zw.pt3
+++ b/music/zero_wing/zw.pt3