home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / DF1.DSK / MENU.bas < prev    next >
BASIC Source File  |  2014-09-09  |  3KB  |  33 lines
  1. 10 D$ =  CHR$(4): PRINT D$"NOMON I,O,C": TEXT 
  2. 20 I =  PEEK(868): FOR X = 869 TO I +868:N$ = N$ + CHR$( PEEK(X)): NEXT : GOTO 1010
  3. 80  PRINT  TAB( 3)"* UNIV. DATA MANAGEMENT SYSTEM 4.0 *": PRINT  TAB( 6)"COPYRIGHT 1980 BY W.L.PASSAUER": RETURN 
  4. 560 CV =  PEEK(37): POKE 37,(CV -2): CALL  -958: RETURN 
  5. 1010  HOME : GOSUB 80: PRINT :TA = 20 -( LEN(N$)/2): HTAB TA: INVERSE : PRINT N$: NORMAL : PRINT : PRINT  TAB( 6)"MENU SELECTION LIST (REPORT)": PRINT 
  6. 1030  PRINT "1-ENTER DATA";: HTAB 22: PRINT "12-LIST": PRINT "2-UPDATE";: HTAB 22: PRINT "13-SEARCH": PRINT "3-INSPECT/CHANGE";: HTAB 22: PRINT "14-LEVEL SEARCH"
  7. 1040  PRINT "4-DELETE A RECORD";: HTAB 22: PRINT "15-FROM/TO SEARCH": PRINT "5-REPLACE";: HTAB 22: PRINT "16-SORT": PRINT "6-TRANSFER";: HTAB 22: PRINT "17-MATH"
  8. 1050  PRINT "7-CONSTRUCT/APPEND";: HTAB 22: PRINT "18-COMPARE": PRINT "8-FILE INFORMATION";: HTAB 22: PRINT "19-INDEX": PRINT "9-DELETE A FILE";: HTAB 22: PRINT "20-PRINTER SET-UP"
  9. 1060  PRINT "10-DISK SPACE";: HTAB 22: PRINT "21-DELETE A FORMAT": PRINT "11-INITIALIZE A DISK";: HTAB 22: PRINT "22-SELECT A FILE": PRINT : HTAB 17: PRINT "0-EXIT"
  10. 1070  VTAB (22): HTAB 16: INPUT "WHICH: ";S$: IF S$ = ""  THEN  PRINT  CHR$(7): GOSUB 560: GOTO 1070
  11. 1080 S =  VAL(S$): IF S = 1  OR S = 3  OR S = 4  OR S = 8  OR S = 9  OR S = 10  THEN 1130
  12. 1090  IF  ASC(S$) = 48  THEN  PRINT  CHR$(7): HOME : VTAB 10: HTAB 7: PRINT "NICE WORKING WITH YOU....": PRINT : PRINT "PLEASE PLACE AN ";: INVERSE : PRINT "<APPLE BOOT>";: NORMAL : PRINT " DISKETTE INTO DRIVE #1 AND PRESS 'RTN'";: GET Z$: PRINT : PRINT D$"PR#6"
  13. 1100  IF S <1  OR S >22  THEN  PRINT  CHR$(7): GOSUB 560: GOTO 1070
  14. 1105  ONERR  GOTO 1290
  15. 1112  IF S <12  THEN  PRINT  CHR$(7): HOME : VTAB 11: HTAB 2: PRINT "LOAD ";: INVERSE : PRINT "UTILITY";: NORMAL : PRINT " PROGRAM DISK INTO DRIVE #1": HTAB 12: PRINT "THEN PRESS 'RTN'";: GET Z$
  16. 1130  POKE 867, VAL(S$)
  17. 1150  HOME : VTAB 12: PRINT  TAB( 11)"< LOADING MODULE >": ON S GOTO 1155,1160,1280,1280,1250,1240,1260,1280,1280,1170,1280,1170,1180,1230,1200,1190,1210,1220,1170,1170,1280,1270
  18. 1155  PRINT D$"RUN ED,D1"
  19. 1160  PRINT D$"RUN U,D1"
  20. 1170  PRINT D$"RUN L,D1"
  21. 1180  PRINT D$"RUN SH,D1"
  22. 1190  PRINT D$"RUN S,D1"
  23. 1200  PRINT D$"RUN FT,D1"
  24. 1210  PRINT D$"RUN M,D1"
  25. 1220  PRINT D$"RUN C,D1"
  26. 1230  PRINT D$"RUN LS,D1"
  27. 1240  PRINT D$"RUN T,D1"
  28. 1250  PRINT D$"RUN R,D1"
  29. 1260  PRINT D$"RUN CA,D1"
  30. 1270  PRINT D$"RUN I,D1"
  31. 1280  PRINT D$"RUN DM,D1"
  32. 1290  HOME : PRINT  CHR$(7): VTAB 10: HTAB 7: INVERSE : PRINT "WRONG DISKETTE IN DRIVE # 1": NORMAL : PRINT : PRINT "PRESS RTN'";: GET Z$: GOTO 1112
  33. 63000  GOTO 1010