aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Task/Terminal-control-Positional-read/BASIC/terminal-control-positional-read-1.basic
View file

@ -1,2 +1,2 @@
10 LOCATE 3,6
20 a$=COPYCHR$(#0)
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))

3
Task/Terminal-control-Positional-read/BASIC/terminal-control-positional-read-2.basic
View file

@ -1 +1,2 @@
c$ = CHR$(SCREEN(6, 3))
10 LOCATE 3,6
20 a$=COPYCHR$(#0)

4
Task/Terminal-control-Positional-read/BASIC/terminal-control-positional-read-3.basic
View file

@ -1,3 +1 @@
10 REM The top left corner is at position 0,0
20 REM So we subtract one from the coordinates
30 LET c$ = SCREEN$(5,2)
c$ = CHR$(SCREEN(6, 3))

3
Task/Terminal-control-Positional-read/BASIC/terminal-control-positional-read-4.basic Normal file
View file

@ -0,0 +1,3 @@
10 REM The top left corner is at position 0,0
20 REM So we subtract one from the coordinates
30 LET c$ = SCREEN$(5,2)