File: example1.hpc

package info (click to toggle)
hp48cc 1.3-7
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 380 kB
  • sloc: yacc: 452; ansic: 184; lex: 108; makefile: 90; sh: 90
file content (20 lines) | stat: -rw-r--r-- 239 bytes parent folder | download | duplicates (9) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
def = @{};

for (;;) {
	r = INFORM(
		"Menu test",
		@{
			@{"F:", "Foo 123"}, 
			@{"B:", "Bar xyz", 3}, 
			@{"Q:", "Quux", 3}
		},
		@{1, 1},
		@{},
		def
	    );
	if (r == 0) {
		MSGBOX("Quitting"); 
		PURGE(@{def, r});
		KILL();
	}
}