10 lines
340 B
Plaintext
10 lines
340 B
Plaintext
10 @MODE,0:REM SELECT SCREEN SET
|
|
20 @COLOR,0,9,0:REM BACKGROUND BLACK, FOREGROUND BRIGHT RED
|
|
30 @SCREEN,0,0:REM SELECT MONOCHROME MODE
|
|
40 @CLEAR,0:REM CLEAR THE SCREEN
|
|
50 @DRWMODA,2,0,0,0,0,0,0:REM USE @COLOR COLORS
|
|
60 @SCALE,0:REM NO SCALING
|
|
70 @DOT,100,100,0:REM DRAW DOT
|
|
80 GETKEY K$:REM WAIT FOR KEYPRESS
|
|
90 @TEXT:REM BACK TO TEXT MODE
|