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 |