mirror of
https://github.com/inexorabletash/jsbasic.git
synced 2024-12-22 22:30:27 +00:00
36 lines
570 B
Plaintext
36 lines
570 B
Plaintext
|
5 REM Squiggle by Gregg Buntin
|
||
|
|
10 TEXT
|
||
|
|
20 HOME
|
||
|
|
30 INPUT "Enter a number from 1 to 8:";N
|
||
|
|
40 IF N > 0 AND N < 8 THEN F = 128
|
||
|
|
50 E = 0
|
||
|
|
60 K = 4 ^ N
|
||
|
|
70 FOR X = 1 TO N
|
||
|
|
80 U = F
|
||
|
|
90 F = - E / 2
|
||
|
|
100 E = U / 2
|
||
|
|
110 NEXT
|
||
|
|
120 HGR
|
||
|
|
130 HCOLOR= 3
|
||
|
|
140 X = 80
|
||
|
|
150 Y = 70
|
||
|
|
160 HPLOT X,Y
|
||
|
|
170 FOR M = 1 TO K
|
||
|
|
180 Z = M
|
||
|
|
190 X = X + F
|
||
|
|
200 Y = Y + E
|
||
|
|
210 HPLOT TO X,Y
|
||
|
|
220 FOR A = 0 TO 1
|
||
|
|
230 Z = Z / 2
|
||
|
|
240 Q = INT (Z)
|
||
|
|
250 A = Z - Q
|
||
|
|
260 NEXT
|
||
|
|
270 A = (Q / 2 = INT (Q / 2)) * 2 - 1
|
||
|
|
280 U = F
|
||
|
|
290 F = A * E
|
||
|
|
300 E = - A * U
|
||
|
|
310 NEXT
|
||
|
|
320 GOTO 10
|
||
|
|
|
||
|
|
|