Listing of file='SORT.BAS;01' on disk='vmedia/chip_81-sector.ccvf'
1 REM IDENT 2 REM 10 PLOT 27,11,6,7,12 15 PRINT "SORT.BAS VER 3.1":PRINT 20 PRINT "RANDOM DISK DATA FILE SORTING PROGRAM" 30 PRINT 40 PRINT "DEVELOPED BY":PRINT " J L HELMS" 50 PRINT " 1009 LEYTE RD":PRINT " CORONADO CA 92118" 60 PRINT :PRINT "UTILIZES THE MOUSE AND TREE SORT AS" 70 PRINT "DESCRIBED IN CREATIVE COMPUTING, JAN-FEB 78" 80 PRINT "VOL 4 NO 1 PGS 100-101" 90 FOR T= 1TO 1500:NEXT T:PLOT 12 400 REM 401 REM INSERT DISK 402 REM 410 PLOT 12:PRINT "INSERT DISKETTE CONTAINING DATA FILE" 420 PRINT "INTO DRIVE 0. IF A LARGE DATA FILE, THEN" 430 PRINT "INSERT A BLANK DISKETTE INTO DRIVE 1":PRINT 440 PRINT "HIT -RETURN- WHEN READY TO CONTINUE" 450 POKE 33278,0 460 K= PEEK (33278):IF K< > 13THEN 460 500 REM 501 REM CHECK FILES 502 REM 510 PLOT 12,27,4 520 PRINT "DIR" 530 PLOT 27,11,10 540 INPUT "IS FILE SORTED.RND;01 ON DISK? ";Y$ 550 IF Y$= "N"THEN 600 560 IF Y$< > "Y"THEN 540 570 PLOT 27,4 580 PRINT "DEL SORTED.RND;01" 590 PLOT 27,11 600 PRINT 610 INPUT "IS FILE SORTID.RND;01 ON FILE? ";N$ 620 IF N$= "N"THEN 670 630 IF N$< > "Y"THEN 610 640 PLOT 27,4 650 PRINT "DEL SORTID.RND;01" 660 PLOT 27,11,10 670 FILE "N","SORTID.RND",2,64,2 700 PRINT :PRINT "INSERT SORT PROGRAM DISK IF REQUIRED" 710 PRINT :PRINT "HIT -RETURN- TO CONTINUE" 720 POKE 33278,0 730 IF PEEK (33278)< > 13THEN 730 740 LOAD "SORTCT.BAS":RUN 750 END