-
Notifications
You must be signed in to change notification settings - Fork 0
/
programs.bas
94 lines (67 loc) · 1.31 KB
/
programs.bas
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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
GOSUB MENU
MENU:
OPCION$ = "A"
CLS
LOCATE 2, 30: PRINT "-programs-"
LOCATE 5, 20: PRINT "1- AGENDA"
LOCATE 6, 20: PRINT "2- AUTOCAD"
LOCATE 7, 20: PRINT "3- ACERCA DE..."
LOCATE 8, 20: PRINT "4- WINBAS..."
LOCATE 9, 20: PRINT "5- SALIR"
LOCATE 20, 20: PRINT "PARA ELEGIR PULSE EL NRO. INDICADO..."
DO
OPCION$ = INKEY$
LOOP WHILE OPCION$ = ""
SELECT CASE OPCION$
CASE "1"
GOSUB AGENDA
CASE "2"
GOSUB AUTOCAD
CASE "3"
GOSUB ACERCA
CASE "4"
GOSUB WINBAS
CASE "5"
GOSUB SALIR
CASE ELSE
GOSUB ERRORSELECCION
END SELECT
AGENDA:
CLS
SHELL "AGENDA"
PRINT "PULSE UNA RECLA PARA VOLVER AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU
AUTOCAD:
CLS
SHELL "AUTOCAD"
PRINT "PULSE UNA RECLA PARA VOLVER AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
CLS
ACERCA:
CLS
LOCATE 6, 20: PRINT "SISTEMA WINBASIC 2.0"
LOCATE 8, 20: PRINT "PRESIONE UNA TECLA PARA IR AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU
WINBAS:
CLS
SHELL "WINBAS"
PRINT "PULSE UNA RECLA PARA VOLVER AL MENU..."
DO
LOOP UNTIL INKEY$ <> ""
ERRORSELECCION:
LOCATE 22, 30: PRINT "OPCION NO VALIDA!!!"
DO
LOOP UNTIL INKEY$ <> ""
CLS
GOSUB MENU
SALIR:
CLS
PRINT "VA A SALIR DEL SISTEMA WINBASIC!!!"
END