home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib19b.dsk / MAIN.VERSION.3.bas < prev    next >
BASIC Source File  |  2023-02-26  |  626b  |  19 lines
  1. 10  REM  ---MAIN PROGRAM
  2. 20  HOME : PRINT "** COPYRIGHT 1984 BY MICROSPARC, INC. **": PRINT : PRINT  CHR$(4);"BLOAD OVLY.OBJ": CALL 37088
  3. 30  DIM D%(100)
  4. 40  INPUT "NAME OF DATA FILE ? ";DF$
  5. 50  & OVERLAY,500 -599,DF$: REM  GET THE DATA TO SORT
  6. 60  GOSUB 300: REM  GOSUB THE READ ROUTINE
  7. 70  & OVERLAY,300 -399,"SORT"
  8. 80  GOSUB 300: REM  GOSUB THE SORT ROUTINE
  9. 90  & OVERLAY,300 -399,"OUTPUT"
  10. 100  GOSUB 300: REM  GOSUB THE OUTPUT ROUTINE
  11. 110  PRINT "NO ERRORS. NORMAL TERMINATION."
  12. 120  END 
  13. 300  REM  ---READ DATA INTO D%()
  14. 310 N = 0: RESTORE 
  15. 320  READ T
  16. 330  IF T <0  THEN  RETURN 
  17. 340 N = N +1
  18. 350 D%(N) = T
  19. 360  GOTO 320