home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / DATABASE / DIMS103.ARK / DHELP.ASC < prev    next >
Text File  |  1986-12-07  |  2KB  |  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.     C,N,NC,P6,P7,P8,P9,PI,S,T,T1,T2,C(),B$(),N$(),
  8.     SEARCHWORD$(),SEARCHFIELD(),SKIPWORD$(),LOOKFIELD(),DD$(),F$,FT$
  9. 1030 GOTO 1070
  10. 1040 '
  11.  
  12.  
  13.                 (SUB) CLEAR SCREEN (TERM DEP)
  14.  
  15. 1050 PRINT CHR$(12);
  16. 1060 RETURN
  17. 1070 '
  18.  
  19.  
  20.                 HELP COMMAND
  21.  
  22. 1080 GOSUB 1040 'cs
  23. 1090 '
  24.  
  25.                 TEST FOR PRESENCE OF FILE
  26.  
  27. 1100 ON ERROR GOTO 1130
  28. 1110 OPEN"I",3,DD$(5)+"DHELP.DOC"
  29. 1120 ON ERROR GOTO 0: GOTO 1160 '        if OK then go on
  30. 1130    IF ERR=53 THEN
  31.         PRINT:PRINT"No help text file present":
  32.         RESUME 1260
  33. 1140    ON ERROR GOTO 0
  34. 1150 '
  35.  
  36.                 READ 23 LINES AT A TIME
  37.  
  38. 1160 GOSUB 1040 'cs
  39. 1170 FOR I=1 TO 23
  40. 1180    IF EOF(3) THEN CLOSE 3: GOTO 1290    'last
  41. 1190    LINE INPUT #3, L$
  42. 1200    PRINT L$
  43. 1210 NEXT I
  44. 1220 PRINT"For next page, hit SPACE; use '\' to go back, ESC to return to editor.";
  45. 1225 A$=INPUT$(1)
  46. 1226 GOSUB 1040
  47. 1230 IF A$=CHR$(27) THEN 1260    'done
  48. 1240 IF A$="\" THEN CLOSE 3:GOTO 1070
  49. 1250 GOTO 1170
  50. 1260 '
  51.  
  52.                 FINISH
  53.  
  54. 1270 CLOSE 3
  55. 1280 PRINT"Re-loading DIMS file editor (DEDIT).":CHAIN DD$(1)+"DEDIT",1000
  56. 1290 '
  57.  
  58.                 LAST PAGE
  59.  
  60. 1300 PRINT"Last help page.  Hit SPACE to return to editor, or '\' to read again.";
  61. 1310 A$=INPUT$(1)
  62. 1312 GOSUB 1040
  63. 1314 IF A$=CHR$(27) THEN 1260
  64. 1320 IF A$="\" THEN CLOSE 3:GOTO 1070
  65. 1330 GOTO 1260
  66. .";
  67. 1310 A$=INPUT$(1)
  68. 1312 GOSUB 1040
  69. 1314 IF A$=CHR$(27) T