mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-12-30 15:29:22 +00:00
26 lines
439 B
Plaintext
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
|