Turbo Basic 1.1.


Turbo Basic 1.1. - . 263



DIM % (5) ' 6
------- DEF SEG = (%(0) )
' POKE,
-160 -


FOR I% = 0 TO 11
POKE I%, &HFF
NEXT I%
' PEEK,
FOR I% = 0 TO 11
PRINT HEX$ (PEEK (I%) _
NEXT I%
END


PEN
--------------
PEN .
------------
y=PEN ()
----------
- , ,
--------- PEN, :

---------------------------------------------------------------------

----------------------------------------------------------------------
0 ?
(-1= ; 0=)
1 X-,

2 Y-,

3 (-1=; 0=)

4 X-

5 Y-

6

7 , (1-80)

8 (1-24)

9 (1-80)
-----------------------------------------------------------------------

PEN
PEN ON.

ON PEN GOSUB '