1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | CLSSCREEN 1x = 150y = 100CIRCLE (x, y), 20, 2DO UNTIL a$ = "q" a$ = INKEY$ IF a$ = "a" THEN GOSUB a: IF a$ = "b" THEN GOSUB b: IF a$ = "c" THEN GOSUB c: IF a$ = "d" THEN GOSUB d:LOOPENDa: CIRCLE (x, y), 20, 0: y = y - 5: CIRCLE (x, y), 20, 2: RETURNb: CIRCLE (x, y), 20, 0: y = y + 5: CIRCLE (x, y), 20, 2: RETURNc: CIRCLE (x, y), 20, 0: x = x - 5: CIRCLE (x, y), 20, 2: RETURNd: CIRCLE (x, y), 20, 0: x = x + 5: CIRCLE (x, y), 20, 2: RETURN |
Тестирование выполнено в программе QB64 ( Скачать )