Compucolor.org – Virtual Media

Listing of file='DRAG.BAS;01' on disk='vmedia/demos-sector.ccvf'

3 REM  DRAGSTER
5 PLOT 12
7 FOR Y= 1TO 24STEP 6
10 FOR X= 1TO 63
20 PLOT 3,X,Y+ 1:PRINT "'"
30 NEXT X
40 FOR X= 0TO 58
50 PLOT 3,X,Y:PRINT "OU__0"
60 NEXT X
70 FOR X= 63TO 0STEP - 1
80 PLOT 3,X,Y+ 4:PRINT "'"
90 NEXT X
95 PLOT 3,58,Y:PRINT "     "
100 FOR X= 58TO 0STEP - 1
110 PLOT 3,X,Y+ 3:PRINT "0__TO "
112 PLOT 3,X,Y+ 3:PRINT "        "
200 NEXT X
250 NEXT Y
300 PLOT 3,0,Y+ 3:PRINT "0__TO"