RosettaCodeData/Task/Terminal-control-Positional-read/Applesoft-BASIC/terminal-control-positional-read.basic
2023-07-01 13:44:08 -04: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))