Listing of file='CIAREA.BAS;01' on disk='vmedia/utility-sector.ccvf'
1 PLOT 12 2 PLOT 3,0,10 3 PRINT "PI CAN BE;" 4 PRINT " 3.14" 5 PRINT " 3.1415" 6 PRINT " 3.1415926" 7 PRINT " 3.1415926535" 8 INPUT " ETCETERA. WHAT IS PI : ";D 9 PRINT "ENTER -1 TO END PROGRAM -" 10 INPUT "PUT IN THE RADIUS AND I'LL COMPUTE THE AREA > ";A 15 IF A= - 1GOTO 100 30 G= D* (A^ 2) 40 PRINT :PRINT 50 PRINT "THE AREA IS"G" SQUARE UNITS. " 51 E= E+ 1 52 IF E= 1000GOTO 1 53 GOTO 51 60 GOTO 1 100 END