jsbasic/samples/sample.february.txt
2012-02-08 22:13:44 -05:00

26 lines
439 B
Plaintext

1 REM 25 THINGS
2 TEXT
3 HOME
4 GR
5 LET E = 0
6 LET V = 100
7 HTAB V/10 - 1
8 VTAB 23
9 COLOR = V/100
10 FOR L = 0 TO V + E
11 LET V = E
12 LET E = L/10
13 VLIN 20,20+(L/100)*20 AT (E)+10
14 VLIN 20,20+(L/100)*20 AT 30-(E)
15 VLIN (SIN((L+27.1)/10)*7)+12,20 AT L/5+10
16 LET E = V
17 LET E = E + 1
18 IF E = 4 THEN GOSUB 21
19 NEXT
20 END
21 LET V = INT(L/E)+1
22 PRINT V" ";
23 LET E = 0
24 RETURN
25 REM BY API