home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Windoware
/
WINDOWARE_1_6.iso
/
network
/
pcswnt
/
winwsfx.bas
< prev
Wrap
BASIC Source File
|
1991-06-05
|
296b
|
13 lines
5 color 14,4
7 cls
10 CLS:?
15 print "*** AS-400 WORKSTATION FUNCTION chargé ***":?
20 PRINT " Alt-Esc pour changer de session":?
30 PRINT " X pour sortir (après SIGNOFF)":?
40 PRINT
50 WHILE INKEY$<>""
60 WEND
70 I$=INPUT$(1)
80 IF I$<>"x" AND I$<>"X" THEN GOTO 70
90 SYSTEM