RosettaCodeData/Task/Terminal-control-Positional-read/BASIC/terminal-control-positional-read-1.basic
2016-12-05 22:15:40 +01:00

2 lines
120 B
Text

10 DEF FN C(H) = SCRN( H - 1,(V - 1) * 2) + SCRN( H - 1,(V - 1) * 2 + 1) * 16
20 LET V = 6:C$ = CHR$ ( FN C(3))