/[james]/archive/bernie/Level1.opl
ViewVC logotype

Contents of /archive/bernie/Level1.opl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 23 - (show annotations) (download)
Thu Mar 13 12:07:05 2003 UTC (21 years, 7 months ago) by james
File size: 520 byte(s)
Initial import.

1 REM Level1
2
3 PROC initt:
4 d$(1)="Teleport room"
5 ENDP
6
7 PROC long:
8 IF p%=1
9 out:("You are in a large room, with a teleport in one corner. Other machinery is placed around the room, and display screens flicker on the walls. There are no visible exits.")
10 ENDIF
11 ENDP
12
13 PROC gn:
14 nogo:
15 ENDP
16
17 PROC gw:
18 nogo:
19 ENDP
20
21 PROC gs:
22 nogo:
23 ENDP
24
25 PROC ge:
26 nogo:
27 ENDP
28
29 PROC gd:
30 nogo:
31 ENDP
32
33 PROC gu:
34 nogo:
35 ENDP
36
37 PROC useo:(o%)
38 out:("You can't do that")
39 ENDP
40
41 PROC say:
42 out:("There is no response")
43 ENDP

  ViewVC Help
Powered by ViewVC 1.1.26