'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB ALTERCONTROL ()
DECLARE SUB TECLAGRIS ()
DECLARE SUB TECLABLANCA ()
SCREEN 12
VIEW (60, 0)-(639, 479)
LINE (10, 176)-(519, 345), 15, BF
LINE (20, 190)-(509, 191), 8, BF
LINE (426, 200)-(509, 222), 1, BF
LINE (428, 202)-(452, 220), 15, BF
LINE (455, 202)-(480, 220), 15, BF
LINE (483, 202)-(507, 220), 15, BF
LINE (432, 206)-(442, 210), 10, BF
LINE (459, 206)-(470, 210), 10, BF
LINE (487, 206)-(497, 210), 10, BF
PSET (20, 200)
TECLAGRIS       'ESCAPE
FOR A% = 64 TO 130 STEP 22      'F1 A F4
   PSET (A%, 200)
   TECLABLANCA
NEXT
FOR A% = 165 TO 231 STEP 22      'F5 A F8
   PSET (A%, 200)
   TECLAGRIS
NEXT
FOR A% = 262 TO 328 STEP 22      'F9 A F12
   PSET (A%, 200)
   TECLABLANCA
NEXT
FOR A% = 20 TO 290 STEP 22      'ALFANUMRICO FILA 1
   PSET (A%, 230)
   TECLABLANCA
NEXT
LINE (306, 230)-(350, 250), 8, BF    'RETROCESO
LINE (310, 231)-(347, 247), 7, BF
FOR A% = 30 TO 300 STEP 22      'ALFANUMRICO FILA 2
   PSET (A%, 252)
   TECLABLANCA
NEXT
PSET (20, 252): ALTERCONTROL
FOR A% = 35 TO 305 STEP 22      'ALFANUMRICO FILA 3
   PSET (A%, 274)
   TECLABLANCA
NEXT
LINE (316, 252)-(350, 272), 8, BF    'ENTER
LINE (321, 255)-(350, 294), 8, BF
LINE (320, 253)-(347, 269), 7, BF
LINE (325, 265)-(347, 291), 7, BF
LINE (20, 274)-(55, 294), 8, BF   'BLOQUEO DE MAYUSCULAS
LINE (23, 275)-(51, 291), 7, BF
FOR A% = 25 TO 295 STEP 22      'ALFANUMRICO FILA 4
   PSET (A%, 296): TECLABLANCA
NEXT
LINE (20, 296)-(45, 316), 8, BF  'MAYUSCULAS IZQUIERDA
LINE (23, 297)-(41, 313), 7, BF
LINE (289, 296)-(350, 316), 8, BF  'MAYUSCULAS DERECCHA
LINE (293, 297)-(347, 313), 7, BF
PSET (20, 318): ALTERCONTROL       'ALTER, ALTER GRAF Y CONTROL
PSET (78, 318): ALTERCONTROL
PSET (262, 318): ALTERCONTROL
PSET (320, 318): ALTERCONTROL
LINE (110, 318)-(260, 338), 7, BF    'ESPACIO
LINE (113, 319)-(257, 335), 15, BF
FOR A% = 356 TO 410 STEP 22      'IMPR PANT, BLOQ DESPL, PAUSA
   PSET (A%, 200)
   TECLAGRIS
NEXT
FOR A% = 356 TO 410 STEP 22      'INSERT, INICIO, RE PAG
   PSET (A%, 230)
   TECLAGRIS
NEXT
FOR A% = 356 TO 410 STEP 22      'SUPR, FIN, AV PAG
   PSET (A%, 252)
   TECLAGRIS
NEXT
FOR A% = 356 TO 410 STEP 22      'FLECHAS
   PSET (A%, 318)
   TECLAGRIS
NEXT
PSET (378, 296): TECLAGRIS       'FLECHA ARRIBA
FOR A% = 426 TO 500 STEP 22      'NUMRICO FILA 1
   PSET (A%, 230)
   TECLAGRIS
NEXT
FOR A% = 426 TO 480 STEP 22      'NUMRICO FILA 2
   PSET (A%, 252)
   TECLABLANCA
NEXT
FOR A% = 426 TO 480 STEP 22      'NUMRICO FILA 3
   PSET (A%, 274)
   TECLABLANCA
NEXT
FOR A% = 426 TO 480 STEP 22      'NUMRICO FILA 4
   PSET (A%, 296)
   TECLABLANCA
NEXT
FOR A% = 426 TO 480 STEP 22      'NUMRICO FILA 5
   PSET (A%, 318)
   TECLABLANCA
NEXT
LINE (430, 318)-(455, 338), 7, BF     'CERO
LINE (430, 319)-(455, 335), 15, BF
LINE (492, 252)-(512, 294), 8, BF     'TECLA +
LINE (495, 253)-(509, 291), 7, BF
LINE (492, 296)-(512, 338), 8, BF     'TECLA +
LINE (495, 297)-(509, 335), 7, BF
'TODAVIA NO SE HABIA DESCUBIERTO COMO PASAR PARAMETROS A PROCEDIMIENTOS :-)

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB ALTERCONTROL
LINE STEP(0, 0)-STEP(30, 20), 8, BF   'TABULADOR
LINE STEP(-26, -19)-STEP(22, 16), 7, BF
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB TECLABLANCA
LINE STEP(0, 0)-STEP(20, 20), 7, BF
LINE STEP(-17, -19)-STEP(14, 16), 15, BF
END SUB

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB TECLAGRIS
LINE STEP(0, 0)-STEP(20, 20), 8, BF
LINE STEP(-17, -19)-STEP(14, 16), 7, BF
END SUB