1 ' Electronic Rainbow
2 ' Rasmus Keldorff & Mads Havmand
3 ' Amstrad Action   Feb 87
10 left=74:right=75:up=73:down=72: fx=76 ' Joystick
20 left=8:right=1:up=2:down=0:fx=9       ' Keyboard
30 x=320:y=202:p=1:MODE 0:BORDER 0
40 INK 0,0:FOR g=1 TO 15:READ a
50 INK g,a:p$=p$+CHR$(a):NEXT
60 WHILE INKEY(fx)=-1
70 x=x+(INKEY(left)<>-1 AND x>0)*8-(INKEY(right)<>-1 AND x<632)*8
80 y=y+(INKEY(up)<>-1 AND y>8)*8-(INKEY(down)<>-1 AND y<392)*8
90 PLOT x,y,p:PLOT x,y-2:p=p+1
100 IF p=16 THEN p=1
110 WEND:WHILE INKEY(47)=-1
120 FOR g=1 TO 15
130 INK g,ASC(MID$(p$,g,1)):NEXT
140 p$=MID$(p$,15,1)+MID$(p$,1,14)
150 WEND:RUN
160 DATA 1,2,11,20,26,23,16,7,3,6,15,24,22,18,9,10   ' Colour
170 DATA 20,19,18,17,16,15,14,13,12,11,10,9,8,7,6,5 ' Green