'CLS
'SCREEN 1
'COLOR 6
'CIRCLE (150, 100), (100)
'LINE (150, 85)-(50, 50)
'PRESET (99, 99)
SCREEN 1
COLOR 2, 17
LOCATE 13
PRINT "HOLA, BIEN BENIDO AL PROGRAMA TONTERIAS DE LA CASA SOSOFT"
FOR i% = 0 TO 320
PSET (i%, 100): FOR delay% = 1 TO 1000: NEXT delay%: PRESET (i%, 10): NEXT i%

