blob: 3a2e60e9b2f0961b885a79e0afa7f94a079e2d5b (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
# Copyright(c) 1986 Association of Universities for Research in Astronomy Inc.
include <ctotok.h>
include <ctype.h>
include "../lib/ids.h"
# RESET -- reset the display
procedure reset()
char token[SZ_LINE]
int tok
include "cv.com"
begin
call gargtok (tok, token, SZ_LINE)
call strlwr (token)
if (tok == TOK_IDENTIFIER) {
switch(token[1]) {
case 'r':
call cvreset( IDS_R_SOFT)
case 't':
call cvreset( IDS_R_MEDIUM)
case 'i':
call cvreset( IDS_R_HARD)
case 'a':
call cvreset( IDS_R_SOFT)
call cvreset( IDS_R_MEDIUM)
call cvreset( IDS_R_HARD)
}
}
end
|
