Taller de QL básico: Sábado 27 de Enero de 2024

[cacharreo]

Orientado a personas sin conocimientos de la máquina.

Prepara tu QL o emulador, que el próximo sábado hay clase.

Explicare:

• Emulación y máquina real

• Conceptos básicos del QL

• Cómo manejarse con programas y ficheros

• Introducción al SuperBASIC

Si no tienes QL o emulador instalado, puedes usar un emulador en línea para el taller:

https://sqlux.qlforum.co.uk/

Usaremos Jitsi para conectar, que no requiere instalar nada en el ordenador, salvo el navegador web.

Taller de QL básico
Ponente: Badaman
Fecha: Sábado 27 de enero, 10:00 am
Duración 1,5 horas
Medio: Jitsi (se comunicará enlace por este medio)
Requisitos: QL, emulador instalado o emulador en línea
Material de apoyo: Manuales.

Manual del QL: https://sinclairql.es/manuales.htm
Manual del Toolkit II: https://sinclairql.es/manuales/tk2/index.htm
Usando zip y unzip en el QL: https://sinclairql.es/manuales/zipunzip/zipunzip.htm

[cacharreo]

Recuerdo el enlace para el taller sobre SuperBASIC que comenzará en unas 3 horas,
https://meet.jit.si/taller_QL
y si hay problemas:
https://meet.google.com/isc-deda-wxi

y aprovecho para añadir el código del programa sobre el que se desarrollará este minicurso.

Código: Seleccionar todo

100 REMark Demo SuperBASIC - Pelota que rebota
110 disp$="mdv1_": inicio
120 :
130 REPeat programa
140   mueve_pelota
150   IF KEYROW(1)=8 THEN EXIT programa: REMark sale con 'ESC'
160 END REPeat programa
170 MODE 4: STOP
180 :
190 DEFine PROCedure inicio
200   MODE 8: PAPER 2,0: BORDER 0: CLS: INK #0,4: CLS #0
210   REMark No inicializar 'x' e 'y' en los extremos
220   x=1: y=1: dx=1: dy=1: tx=18: ty=35: p$=CHR$(226): c=7
230   :
240   INK c: CSIZE 3,1: UNDER 1
250   AT 8,1: PRINT "P E L O T A"
260   CSIZE 0,0: UNDER 0
270   ayuda(" Pulse una tecla para comenzar ")
280   PAUSE: CLS
290   ayuda(" Use 'ESC' para salir ")
300 END DEFine inicio
310 :
320 DEFine PROCedure ayuda(txt)
330   CLS#0: PRINT #0,txt
340 END DEFine ayuda
350 :
360 DEFine PROCedure mueve_pelota
370   c=color: BORDER 4,c: INK c: AT x,y: PRINT p$
380   IF x=0 OR x=tx THEN crack: dx=-dx
390   IF y=0 OR y=ty THEN crack: dy=-dy
400   PAUSE 10: REMark cambia con la velocidad del sistema
410   AT x,y: PRINT " "
420   x=x+dx: y=y+dy
430 END DEFine mueve_pelota
440 :
450 DEFine FuNction color
460   nc=RND(7)
470   IF NOT (nc=0 OR nc=2): c=nc
480   RETurn c
490 END DEFine color
500 :
510 DEFine PROCedure crack: AT x,y: PRINT "*": END DEFine crack
520 :
530 DEFine PROCedure sa
540   DELETE disp$&"pelota_bas"
550   SAVE disp$&"pelota_bas"
560 END DEFine sa

[cacharreo]

Se acabó la sesión por Meet y se ha cambiado a: https://meet.google.com/dhr-dvgb-xqw

Las cabinas telefónicas en los 70 eran más fiables.

[cacharreo]

Aquí tenéis accesibles on line los videos del taller de hoy, creo que duran 15 días...
Primera parte en Jitsi:
www.twitch.tv/videos/2045003255
Segunda parte en Meet:
www.twitch.tv/videos/2045008713