home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / database / dims103.ark / DHELP.ASC < prev    next >
Encoding:
Text File  |  1986-12-07  |  1.5 KB  |  69 lines
  1. 10 PRINT"This program must be entered from DIMS.
  2. 20 STOP
  3. 1000 ' HELP Command March 20, 1982
  4. 1005 ' by Dan Dugan -- public domain
  5. 1010 DEFINT A-Z
  6. 1020 COMMON I,J,K,X,Y,T$,R$,S$,T1$,SKIPPARSE,FT,SEARCH,
  7.  
  8.     C,N,NC,P6,P7,P8,P9,PI,S,T,T1,T2,C(),B$(),N$(),
  9.  
  10.     SEARCHWORD$(),SEARCHFIELD(),SKIPWORD$(),LOOKFIELD(),DD$(),F$,FT$
  11. 1030 GOTO 1070
  12. 1040 '
  13.  
  14.  
  15.  
  16.                 (SUB) CLEAR SCREEN (TERM DEP)
  17.  
  18.  
  19. 1050 PRINT CHR$(12);
  20. 1060 RETURN
  21. 1070 '
  22.  
  23.  
  24.  
  25.                 HELP COMMAND
  26.  
  27.  
  28. 1080 GOSUB 1040 'cs
  29. 1090 '
  30.  
  31.  
  32.                 TEST FOR PRESENCE OF FILE
  33.  
  34.  
  35. 1100 ON ERROR GOTO 1130
  36. 1110 OPEN"I",3,DD$(5)+"DHELP.DOC"
  37. 1120 ON ERROR GOTO 0: GOTO 1160 '        if OK then go on
  38. 1130    IF ERR=53 THEN
  39.  
  40.         PRINT:PRINT"No help text file present":
  41.  
  42.         RESUME 1260
  43. 1140    ON ERROR GOTO 0
  44. 1150 '
  45.  
  46.  
  47.                 READ 23 LINES AT A TIME
  48.  
  49.  
  50. 1160 GOSUB 1040 'cs
  51. 1170 FOR I=1 TO 23
  52. 1180    IF EOF(3) THEN CLOSE 3: GOTO 1290    'last
  53. 1190    LINE INPUT #3, L$
  54. 1200    PRINT L$
  55. 1210 NEXT I
  56. 1220 PRINT"For next page, hit SPACE; use '\' to go back, ESC to return to editor.";
  57. 1225 A$=INPUT$(1)
  58. 1226 GOSUB 1040
  59. 1230 IF A$=CHR$(27) THEN 1260    'done
  60. 1240 IF A$="\" THEN CLOSE 3:GOTO 1070
  61. 1250 GOTO 1170
  62. 1260 '
  63.  
  64.  
  65.                 FINISH
  66.  
  67.  
  68. 1270 CLOSE 3
  69. 1280 PRINT"Re-loading DIMS file editor (DEDIT).":CHAIN DD$(1)+"DEDIT",1000
  70. 1290 '
  71.  
  72.  
  73.                 LAST PAGE
  74.  
  75.  
  76. 1300 PRINT"Last help page.  Hit SPACE to return to editor, or '\' to read again.";
  77. 1310 A$=INPUT$(1)
  78. 1312 GOSUB 1040
  79. 1314 IF A$=CHR$(27) THEN 1260
  80. 1320 IF A$="\" THEN CLOSE 3:GOTO 1070
  81. 1330 GOTO 1260
  82. .";
  83. 1310 A$=INPUT$(1)
  84. 1312 GOSUB 1040
  85. 1314 IF A$=CHR$(27) T