home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / dims103.ark / DDOC.ASC < prev    next >
Encoding:
Text File  |  1986-12-07  |  2.4 KB  |  102 lines
  1. 1000 E$="DIMS doc command March 20, 1982
  2. 1005 'by Dan Dugan -- public domain
  3. 1010 DEFINT A-Z
  4. 1020 COMMON I,J,K,X,Y,T$,R$,S$,T1$,SKIPPARSE,FT,SEARCH,
  5.  
  6.     C,N,NC,P6,P7,P8,P9,PI,S,T,T1,T2,C(),B$(),N$(),
  7.  
  8.     SEARCHWORD$(),SEARCHFIELD(),SKIPWORD$(),LOOKFIELD(),DD$(),F$,FT$
  9. 1030 CLOSE 2    'N.B. DOC USES TWO FILES, #2 AND #3.  IT RE-OPENS 2 AT END.
  10. 1040 GOTO 1080
  11. 1050 '
  12.  
  13.  
  14.  
  15.                 (SUB) CLEAR SCREEN (TERM DEP)
  16.  
  17.  
  18. 1060 PRINT CHR$(12);
  19. 1065 PRINT E$
  20. 1070 RETURN
  21. 1080 '
  22.  
  23.  
  24.  
  25.                 DOCUMENT COMMAND
  26.  
  27.  
  28. 1090 GOSUB 1050 'cs
  29. 1100 PRINT"'" F$"' document file
  30. 1110 PRINT:PRINT"Do you want to write (1) read (2) or finish (3) ";
  31. 1120 A$=INPUT$(1): IF A$=CHR$(13) THEN A$="1"
  32. 1130 PRINT A$
  33. 1140 A=VAL(A$): IF A<1 OR A>3 THEN 1110
  34. 1150 ON A GOTO 1170,1430,1640
  35. 1160 GOTO 1110
  36. 1170 '
  37.  
  38.  
  39.                 DOC WRITE
  40.  
  41.  
  42. 1180 GOSUB 1050 'cs
  43. 1190 ON ERROR GOTO 1230
  44. 1200 OPEN"I",3,DD$(5)+F$+".DOC"
  45. 1210 ON ERROR GOTO 1610
  46. 1220 GOTO 1250
  47. 1230    IF ERR=53 AND ERL=1200 THEN OPEN"O",2,DD$(5)+"DOC.$$$":
  48.  
  49.     ON ERROR GOTO 1610:RESUME 1320 '        fix
  50. 1240    ON ERROR GOTO 0
  51. 1250 OPEN"O",2,DD$(5)+"DOC.$$$"
  52. 1260 IF EOF(3) THEN 1300
  53. 1270    LINE INPUT#3,L$
  54. 1280    PRINT#2,L$
  55. 1290 GOTO 1260
  56. 1300 CLOSE 3
  57. 1310 KILL DD$(5)+F$+".DOC"
  58. 1320 PRINT"Writing on "F$" document file
  59. 1330 PRINT
  60. 1340 PRINT"Type 'stop' to finish
  61. 1350 PRINT
  62. 1360 LINE INPUT L$
  63. 1370    IF L$="stop" THEN 1400
  64. 1380    PRINT #2,L$
  65. 1390 GOTO 1360
  66. 1400 CLOSE 2,3
  67. 1410 NAME DD$(5)+"DOC.$$$" AS DD$(5)+F$+".DOC"
  68. 1420 GOTO 1110
  69. 1430 '
  70.  
  71.  
  72.                 DOC READ
  73.  
  74.  
  75. 1440 ON ERROR GOTO 1470
  76. 1450 OPEN"I",3,DD$(5)+F$+".DOC"
  77. 1460 ON ERROR GOTO 1610: GOTO 1490
  78. 1470    IF ERR=53 THEN CLOSE 3:
  79.  
  80.         PRINT:PRINT"No document file present":
  81.  
  82.         ON ERROR GOTO 1610:RESUME 1110
  83. 1480    ON ERROR GOTO 1610
  84. 1490 GOSUB 1050 'cs
  85. 1500 PRINT: PRINT "'"F$"' document file
  86. 1510 PRINT
  87. 1520 FOR I=1 TO 20
  88. 1530    IF EOF(3) THEN CLOSE 3: GOTO 1110
  89. 1540    LINE INPUT #3, L$
  90. 1550    PRINT L$
  91. 1560 NEXT I
  92. 1570 PRINT"(more)";
  93. 1580 '
  94.  
  95.                 PAUSE
  96. 1582 X$=INPUT$(1)
  97. 1584 IF X$=CHR$(27) THEN 1640    'exit
  98. 1590 PRINT
  99. 1600 GOTO 1520
  100. 1610 '
  101.  
  102.  
  103.                 GENERAL ERROR
  104.  
  105.  
  106. 1620 IF ERR=61 THEN PRINT:PRINT"Out of disk space.":PRINT:RESUME 1110
  107. 1630 ON ERROR GOTO 0
  108. 1640 '
  109.  
  110.  
  111.                 FINISH
  112.  
  113.  
  114. 1645 CLOSE 2,3            'make sure
  115. 1650 OPEN"R",2,DD$(4)+F$+".DD"+FT$
  116. 1660 FIELD #2,128 AS S$
  117. 1670 PRINT:PRINT"Re-loading DIMS file editor (DEDIT).":CHAIN"DEDIT",1000
  118. N"R",2,DD$(4)+F$+".DD"+FT$
  119. 1660 FIELD #2,128 AS S$
  120. 1670 PRINT:PRINT"Re-loading DIMS file editor (D