RosettaCodeData/Task/Terminal-control-Positional-read/Applesoft-BASIC/terminal-control-positional-read.basic

3 lines
120 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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))