\INICIALIZA -* * fli 0 1 dark 63 5 cls mode 4 keypressed 100 jeq salta 27 100 ink 15 ink2 9 charset 3 TEXTWIN 19 ; Selecciono ventana 2 para texto WINTOP CLS ; Borro pantalla RANDOMIZE ; Hago azar aleatorio ABILITY 8 4 ; 8 unidades de peso / 6 Objetos SETAPAGE 1 PICWIN 9 PIC 0 SETVPAGE 1 readkey 100 calldrv 0 6 CLSPAGE jeq salta 27 100 SETVPAGE 0 PICNAME INTRO SETVPAGE 1 copypage 1 0 PROCESS 5 pause 3000 dark 63 5 label salta cls setvpage 1 setapage 0 PICWIN 0 PIC 1 3 ;(El marco) PICWIN 1 PIC 2 3 PROCESS 4 ; DIBUJO OBJETOS picwin 0 textwin 2 wintop LET 254 1 ; Para mensajes de "Coger _.", ver tabla de mensajes. GOTO 1 ; Cambio a localidad 1 SET 255 ; SET 255 indica que se ha de redescribir (substituye al DESC). CLEAR 13 bclr 0 1 CHARSET 9 picname nocre LET 100 400 label label SETVLINE @100 wait 1 minus 100 4 jnz label 100 setvpage 0 RESETHERE DONE