Skip to content

Commit 371c470

Browse files
authored
Merge pull request #371 from boriel/feature/windowsScroll_routines
Feature/windows scroll routines
2 parents 5c3b0d5 + e4a076e commit 371c470

3 files changed

Lines changed: 568 additions & 1 deletion

File tree

examples/winscroll.bas

Lines changed: 34 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,34 @@
1+
#include <winscroll.bas>
2+
3+
INK 7: PAPER 2
4+
CLS
5+
FOR i = 0 to 15:
6+
PRINT PAPER 4; AT i + 1, 0; "#"; AT i + 1, 17; "#";
7+
for j = 0 to 15:
8+
PRINT PAPER 4; AT 0, j + 1; "#"; AT 17, j + 1; "#";
9+
print at i+1, j+1; PAPER (i * 16 + j) MOD 2; (i * 16 + j) MOD 10;
10+
next
11+
next
12+
13+
pause 100
14+
15+
for j = 1 to 5
16+
winScrollDown(0, 1, 7, 5)
17+
pause 10
18+
next
19+
20+
for j = 1 to 5
21+
winScrollUp(13, 1, 7, 5)
22+
pause 10
23+
next
24+
25+
for j = 1 to 9
26+
winScrollRight(5, 10, 8, 4)
27+
pause 10
28+
next
29+
30+
for j = 1 to 9
31+
winScrollLeft(10, 10, 8, 4)
32+
pause 10
33+
next
34+

library/scroll.bas

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,7 @@
22
' This file is released under the MIT License
33
'
44
' Copyleft (k) 2008
5-
' by Jose Rodriguez-Rosa (a.k.a. Boriel) <http://www.boriel.com"
5+
' by Jose Rodriguez-Rosa (a.k.a. Boriel) <http://www.boriel.com>
66
'
77
' Use this file as a template to develop your own library file
88
' ----------------------------------------------------------------

0 commit comments

Comments
 (0)