You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
392 B
QBasic
19 lines
392 B
QBasic
8 years ago
|
#lang basic-demo
|
||
9 years ago
|
|
||
9 years ago
|
10 PRINT TAB(30);"SINE WAVE"
|
||
|
20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
|
||
|
30 PRINT: PRINT: PRINT: PRINT: PRINT
|
||
|
40 REMARKABLE PROGRAM BY DAVID AHL
|
||
|
50 B=0
|
||
|
100 REM START LONG LOOP
|
||
|
110 FOR T=0 TO 40 STEP .25
|
||
|
120 A=INT(26+25*SIN(T))
|
||
|
130 PRINT TAB(A);
|
||
|
140 IF B=1 THEN 180
|
||
|
150 PRINT "CREATIVE"
|
||
|
160 B=1
|
||
|
170 GOTO 200
|
||
|
180 PRINT "COMPUTING"
|
||
|
190 B=0
|
||
|
200 NEXT T
|
||
|
999 END
|