home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dr. CD ROM (Annual Premium Edition)
/
premium.zip
/
premium
/
IBMOS2_2
/
KATCAL.ZIP
/
k0000002.pgm
< prev
next >
Wrap
Text File
|
1990-05-11
|
481b
|
26 lines
*This is a test of a menu with letter prompts
:Init
:Menu
WDI [A] for alpha
WDI [B] for beta
WDI [C] for charlie
WDI [Q] to quit program
RD R1
JE R1, 65, ALPHA
JE R1, 66, BETA
JE R1, 67, CHARLIE
JE R1, 81, EXIT
CLRS
WD That was an invalid selection
J EXIT
:ALPHA
WD ALPHA! ALPHA
J menu
:BETA
WD BETA? BETA?
J menu
:CHARLIE
WD Charlie....Charlie....
J menu
:Exit
WD Bye, Bye!