home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / basic / deskmstr.lbr / DDISK-DM.BQS / DDISK-DM.BAS
Encoding:
BASIC Source File  |  1985-02-10  |  2.6 KB  |  75 lines
  1. 5 CLOSE:ON ERROR GOTO 3000
  2. 10 REM *** DATA DISK INITIATER ***
  3. 15 CL$=CHR$(26):F1=1 
  4. 20 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  5. 30 PRINT "Insert a blank, CP/M formatted disk to be"
  6. 40 PRINT "set up as a Desk Master data disk."
  7. 50 PRINT
  8. 60 PRINT "WARNING:  The current contents of the"
  9. 70 PRINT "inserted disk will be lost."
  10. 80 PRINT:PRINT:PRINT
  11. 90 GOSUB 2500:RESET: REM Pause
  12. 99 REM ***************************************
  13. 100 REM
  14. 170 REM *** SET UP INDEX FILES ***
  15. 175 REM Label disk for data
  16. 180 OPEN "O",#F1,"IDENT-DM"  
  17. 190 PRINT #F1,"DATA"
  18. 200 CLOSE #F1
  19. 250 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  20. 260 PRINT SPC(6);"Writing file indexes..."
  21. 300 OPEN "O",#F1,"MEMINDEX":GOSUB 700:CLOSE #F1
  22. 310 OPEN "O",#F1,"CDXINDEX":GOSUB 700:CLOSE #F1
  23. 320 OPEN "O",#F1,"APTINDEX":GOSUB 700:CLOSE #F1
  24. 330 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  25. 399 REM ***************************************
  26. 400 REM *** RETURN TO MAIN PROGRAM ***
  27. 410 PRINT "Insert the Desk Master program disk again..."
  28. 420 GOSUB 2500:REM PAUSE
  29. 430 DE$="PROGRAM":GOSUB 2570:REM CHECK DISK ID
  30. 550 PRINT CL$:FOR N=1 TO 11:PRINT:NEXT
  31. 570 PRINT SPC(12);"Reloading Desk Master"
  32. 580 CHAIN "DESK-DM.BAS"
  33. 599 END:REM *************************************
  34. 600 REM
  35. 700 REM *** WRITE INDEXES ***
  36. 710 PRINT #F1,"0L"
  37. 720 FOR F=1 TO 39:PRINT #F1,"0N":NEXT
  38. 730 RETURN
  39. 740 REM *****************************************
  40. 2500 REM *** PAUSE FOR RESPONSE ***
  41. 2510 PRINT:PRINT:PRINT
  42. 2520 PRINT "Hit any key to continue...";
  43. 2530 K$=INPUT$(1)
  44. 2540 RETURN
  45. 2550 REM ***********************************
  46. 2570 REM *** CHECK DISK ID ***
  47. 2580 DK$="NOID"
  48. 2590 OPEN "I",#F1,"IDENT-DM"
  49. 2600 INPUT #F1,DK$
  50. 2610 CLOSE #F1
  51. 2620 IF DK$="DATA" AND DE$="DATA" THEN GOTO 2670
  52. 2630 IF DK$="PROGRAM" AND DE$="PROGRAM" THEN GOTO 2670
  53. 2640 PRINT CL$:FOR N=1 TO 7:PRINT:NEXT
  54. 2645 PRINT "Insert the Desk Master ";DE$;" disk."
  55. 2650 GOSUB 2500:RESET:REM PAUSE
  56. 2660 GOTO 2590:REM Until proper disk in drive
  57. 2670 RETURN
  58. 2999 REM *************************************
  59. 3000 REM *** ERROR ROUTINE ***
  60. 3010 PRINT CL$:FOR N=1 TO 10:PRINT:NEXT
  61. 3020 IF ERR=53 THEN PRINT "File not found: "
  62. 3030 IF ERR=57 THEN PRINT "Disk problem:"
  63. 3040 IF ERR=61 THEN PRINT "Disk full:"
  64. 3050 PRINT:PRINT
  65. 3060 PRINT "Make sure you want to use the inserted disk"
  66. 3070 PRINT "for Desk Master data, then FORMAT it again"
  67. 3080 PRINT "for CP/M and re-initiate it.  Otherwise, try"
  68. 3090 PRINT "another blank disk."
  69. 3100 IF ERR<>53 AND ERR<>57 AND ERR<>61 THEN GOTO 4000
  70. 3110 PRINT:PRINT:PRINT
  71. 3120 PRINT "Hit any key to return to main menu..."
  72. 3130 K$=INPUT$(1):RESUME 400
  73. 4000 ON ERROR GOTO 0
  74. 110 PRINT:PRINT:PRINT
  75. 3120 PRINT "Hit any key to return