10 REM XOR Display by Glynne Davies 20 DEFINT a-z:CALL &BC02 30 INK 0,0:BORDER 0 40 MODE 0 50 LOCATE 5,6:PAPER 0:PEN 1:PRINT "XOR GRAPHICS" 60 LOCATE 5,19:PEN 13:PRINT"CPC ATTACK!" 70 PRINT CHR$(23)+CHR$(1):REM XOR GRAPHICS 80 INK 14,21:INK 15,3:REM Stop Flashing colours 90 WHILE trip=0:REM Endless loop press ESC to stop. 100 x=10:y=(y+40) MOD 400 110 FOR n=1 TO 640 STEP x 120 c=(c+1) MOD 15:MOVE n,y:DRAW 640-n,400-y,c 130 NEXT:REM Every 5 times the screen will clear 140 WEND
| ★ AMSTRAD CPC ★ A voir aussi sur CPCrulez , les sujets suivants pourront vous intéresser... |
|
|