Twisting Text
By rhodium
Wed, 29 Sep 2004
- 470 reads
The following code twists some text in GWBASIC
10 SCREEN 9
20 PLM=0
30 CLS
40 PI=3.1415926#
50 FOR DM=0 TO 63 STEP .25
60 G=4
70 D=1
75 D=COS(G)+1
80 FOR K=0 TO 2*PI STEP PI/12
90 IF PLM=0 THEN X=35+15*COS(K-D*DM):Y=12+10*SIN(K+D*DM)
120 LOCATE Y,X: PRINT"Salim is cool"
130 NEXT K
160 D=COS(G)+1
170 FOR K=0 TO 2*PI STEP PI/12
180 IF PLM=0 THEN X=35+15*COS(K-D*DM):Y=12+10*SIN(K+D*DM)
210 LOCATE Y,X: PRINT" "
220 NEXT K
260 PLM=0
270 NEXT
280 GOTO 30
- Log in to post comments


