|
|
|
|
MODE 8 REM Draw a 'random' background: FOR N% = 1 TO 100 GCOL RND(15) CIRCLE FILL RND(1280), RND(1024), RND(300) NEXT REM Switch to 'exclusive-or' plotting: GCOL 4,0 REM Move a 'cursor' around without destroying the background: X% = 500 Y% = 500 VDU 23,23,2;0;0;0; REPEAT PROCcursor(X%,Y%) K% = INKEY(10) PROCcursor(X%,Y%) CASE K% OF WHEN 136: X% -= 4 WHEN 137: X% += 4 WHEN 138: Y% -= 4 WHEN 139: Y% += 4 ENDCASE UNTIL FALSE END DEF PROCcursor(X%,Y%) LINE X%,Y%+50,X%,Y%-50 LINE X%-50,Y%,X%+50,Y% CIRCLE X%,Y%,30 ENDPROC
|