Keskustelu: Koodit: QB: palava teksti

SCREEN 13
INPUT "Kirjoita ISOLLA ", A$
Q = 72: W = 72: E = 31: T = 63: Y = 1
COLOR 31
LOCATE 10, 10: PRINT A$
DO
OUT 968, E: OUT 969, T: OUT 969, 0: OUT 969, 0

'palaa
R = INT(RND * 4) + 1
IF POINT(Q, W) = E OR W > 199 THEN
E = E - R: W = W - Y: PSET (Q, W), E
ELSE
  Q = Q + 1
END IF
 IF E < 20 THEN Q = Q + 1: E = 31: T = 63: W = 72
 IF Q = 320 THEN Q = 72: W = 72
'sammuu
IF INKEY$ = " " THEN U = 1
IF U = 1 THEN Y = Y - .00001
IF Y < 0 THEN END
LOOP