home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…ids, Adults, Educational / RocelcoInc-ExploreTheWorldOfSoftware-KidsAdultsEducational-Vol2-Shareware.iso / educate / disk133 / nmr0.bas < prev    next >
Encoding:
BASIC Source File  |  1985-04-19  |  736 b   |  22 lines
  1. 10 'Program "NMR0"--Entry to NMRCALC routines.
  2. 20 DEFINT I-N
  3. 30 'COMMON IPFLAG,IREAD,FF$
  4. 31 IPFLAG = 0: IREAD = 0: FF$ = "null"
  5. 32 OPEN "scratch.nmr" FOR OUTPUT AS #1
  6. 33 PRINT #1, IPFLAG: PRINT #1, IREAD: PRINT #1, FF$
  7. 34 CLOSE #1
  8. 40 SCREEN 0:COLOR 14,4,1:CLS
  9. 50 KEY OFF
  10. 60 PRINT:PRINT"Program NMRCALC"
  11. 70 PRINT:PRINT"Milton D. Johnston, Jr."
  12. 80 PRINT"Department of Chemistry"
  13. 90 PRINT"University of South Florida"
  14. 100 PRINT"Tampa, Florida  33620"
  15. 110 PRINT:PRINT"October 17, 1984  (Revised:  January 26, 1985)"
  16. 120 PRINT:PRINT"813-974-2535"
  17. 130 GOSUB 170
  18. 140 CLS:PRINT :PRINT"To get the menu, execute the 'ME' command."
  19. 150 GOSUB 170
  20. 160 CHAIN "NMR1"
  21. 170 PRINT: INPUT"Hit <Return> to continue.",A$: PRINT: RETURN
  22.