Turbo Basic 1.1.


Turbo Basic 1.1. - . 248


Y =1
=3
Y=1
=Y
Y=1
'
ON STRIG (0) GOSUB
ON STRIG (2) GOSUB
ON STRIG (4) GOSUB
ON STRIG (6) GOSUB
'
STRIG (0) ON
STRIG (2) ON
STRIG (4) ON
STRIG (6) ON
' , -

WHILE NOT INSTAT
LOGATE 15,15,0
PRINT STICK (0), STICK (1);
WEND
END '

:
LOGATE X,Y
-151 -


PRINT " 1"
LOGATE 15,15,0
RETURN
:
LOGATE , Y
PRINT "2"
LOGATE 15,15,0
RETURN
:
LOGATE , Y
PRINT " 4 "
LOGATE 15,15,0
RETURN
:
LOGATE , Y
PRINT " 4"
LOGATE 15,15,0
RETURN

ON TIMER
-------------------
ON TIMER
----------------- n .

ON TIMER(n) GOSUB
----------