!- ========================================
!- Project : MHC
!- Target : Commodore 64
!- Comments :
!- Author : XWolfOverride
!- ========================================
!- V=53248
10 print chr$(147)
20 poke 53280,1
30 poke 53281,1
40 gosub 10000
50 gosub 5200
60 dim m(8)
100 for z=0 to 7
110 poke 53248+(z*2),100+(rnd(1)*150)
120 m(z)=100+(rnd(1)*150)
130 next
!-200 for z=0 to 7
!-210 m(z)=m(z)+1
!-220 if m(z)>250 then poke 53248+(z*2),100+(rnd(1)*150):m(z)=0
!-230 poke 53249+(z*2),m(z)
!-240 next
!-250 goto 200
200 jj=53248
210 for z=0 to 7
220 m(z)=m(z)+1
230 if m(z)>250 then poke jj,100+(rnd(1)*150):m(z)=0
240 jj=jj+1
250 poke jj,m(z)
260 jj=jj+1
270 next
280 goto 200
5200 REM Prepare sprites
5210 poke 53269,255
5270 POKE 53275,170:rem under chars
5280 for z=0 to 8:poke2040+z,128+z:poke53287+z,11: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
