' Super Mario style game\r
' by Svjatoslav Agejenko 1999\r
-' E-mail: svjatoslavagejenko@gmail.com\r
\r
DECLARE SUB CL ()\r
DECLARE SUB esc ()\r
PRINT "You are "\r
LOCATE 2, 1\r
PRINT " killed! "\r
- \r
+\r
FOR x = 0 TO 80\r
FOR y = 0 TO 16\r
IF POINT(x, y) > 0 THEN LINE (x * 5, y * 5 + 50)-(x * 5 + 4, y * 5 + 54), 4, BF\r
NEXT a\r
CLOSE\r
END SUB\r
-\r