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