!- ========================================
!- Project : MHC
!- Target : Commodore 64
!- Comments :
!- Author : XWolfOverride
!- ========================================
10 print chr$(147)
20 poke 53280,1
30 poke 53281,1
40 gosub 10000
50 V=53248
70 gosub 5200
!- m(spr),x,y,dx,dy
80 dim m(8,4)
90 for z=0 to 7
100 m(z,0)=100+(rnd(1)*150):m(z,1)=100+(rnd(1)*150):m(z,2)=2:m(z,3)=2
110 next
120 m(1,2)=-m(1,2)
220 for z=0 to 7
230 m(z,0)=m(z,0)+m(z,2):m(z,1)=m(z,1)+m(z,3)
240 if m(z,0)>255 then m(z,0)=255:m(z,2)=-m(z,2)
250 if m(z,0)<70 then m(z,0)=70:m(z,2)=-m(z,2)
260 if m(z,1)>230 then m(z,1)=230:m(z,3)=-m(z,3)
270 if m(z,1)<95 then m(z,1)=95:m(z,3)=-m(z,3)
280 poke 53248+(z*2),m(z,0):poke 53249+(z*2),m(z,1)
290 next
1000 goto 220
5200 REM Prepare sprites
5210 poke 53269,255
5270 POKE 53275,170:rem under chars
5280 for z=0 to 8:poke2040+z,200+z:poke53287+z,2:next
5290 return
10000 REM SCREEN 1 -
10010 PRINT " {reverse on}{gray}Q{reverse off} {reverse on}Q"
10020 PRINT " {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{169}{127}{reverse off} {reverse on}{169}{127}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{169} {127}{reverse off} {reverse on}{169} {127}"
10030 PRINT " {reverse on} {orange} {gray} {reverse off} {reverse on} {reverse off}{127}{reverse on} {reverse off}{169}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {127}{reverse off} {reverse on} {183}{183} {reverse off} {reverse on} {reverse off} {reverse on} "
10040 PRINT " {reverse on} {orange} {gray} {orange} {gray} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} "
10050 PRINT " {reverse on} {orange} {gray} {orange} {gray} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {127}{reverse on} {reverse off}{169} {orange}de"
10060 PRINT "{reverse on}{gray} {orange} {gray} {reverse off} {reverse on}Q"
10070 PRINT " {reverse on} {orange} {gray} {orange} {gray} {reverse off} {reverse on} {reverse off} {reverse on}Q{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{169} {127}{reverse off} {reverse on}{169} {reverse off} {reverse on}Q{reverse off} {reverse on}{169} {127}";
10080 PRINT "{reverse off} {reverse on} {orange} {gray} {orange} {gray} {reverse off} {reverse on} {127}{reverse off} {reverse on} {reverse off} {reverse on} {127}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off}{169} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} ";
10090 PRINT "{reverse off} {reverse on} {orange} {gray} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} ";
10100 PRINT "{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off}{169} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} ";
10110 PRINT "{reverse off} {reverse on} {reverse off} {reverse on}Q{reverse off} {reverse on}Q";
10120 PRINT "{reverse off}{orange}de la {gray}{170}"
10130 PRINT "{reverse on}{169} {reverse off} {reverse on}{169} {127}{reverse off} {reverse on}{169}{127}{reverse off} {reverse on}{169}{127}{reverse off} {reverse on} {127}{reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on}{169} {127}{reverse off} {reverse on}{169} {reverse off} {reverse on}Q{reverse off} {reverse on}{169} {reverse off} {reverse on}{169} {127}";
10140 PRINT "{reverse off}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off}{127}{reverse on} {reverse off}{169}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {165} {167} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} ";
10150 PRINT "{reverse off}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off}{169} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} ";
10160 PRINT "{reverse off}{127}{reverse on} {reverse off} {127}{reverse on} {reverse off}{169} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off} {127}{reverse on} {reverse off} {reverse on} {reverse off} {127}{reverse on} {reverse off}{169} {reverse on} {reverse off} {reverse on} ";
10170 PRINT "{reverse off} {reverse on}Q{reverse off} {reverse on} {reverse off} {reverse on}Q{reverse off} {reverse on}Q";
10180 PRINT "{reverse off} {reverse on}Q"
10500 return
