tutorial/group2/17.bas

   1 CLS\r
   2 PRINT "Use keys 4, 8, 6, 2 for control, make sure the NumLock is on"\r
   3 PRINT "ESC to exit"\r
   4 PRINT " "\r
   5 PRINT "Press any key to continue..."\r
   6 a$ = INPUT$(1)\r
   7 \r
   8 COLOR 14\r
   9 x = 40\r
  10 y = 10\r
  11 1\r
  12 CLS\r
  13 LOCATE y, x\r
  14 PRINT CHR$(2)\r
  15 a$ = INPUT$(1)\r
  16 IF a$ = "4" THEN x = x - 1\r
  17 IF a$ = "6" THEN x = x + 1\r
  18 IF a$ = "8" THEN y = y - 1\r
  19 IF a$ = "2" THEN y = y + 1\r
  20 IF a$ = CHR$(27) THEN SYSTEM\r
  21 GOTO 1\r
  22 \r