'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
RANDOMIZE TIMER
SCREEN 0

CLS

PALETTE 7, 46
LOCATE 1, 44: PRINT ","
LOCATE 2, 15: PRINT " * * * PROGRAMA DE ORGANIZACION COMERCIAL * * * "
PRINT STRING$(80, "_")
PRINT " * *  Version 1.0  * * * * * * *  Copyright (c) 1984/87 New Software S.A.  * *  "
PRINT STRING$(80, "-")
PRINT " Menu >> Alt + M >>>> ";
COLOR 0, 7
PRINT " Fichero  Repaso  Calcular  Listados  Funciones  Sistema "
LOCATE 23, 1: PRINT "    F1 = Imprime    F2 = Previsualizaciones    F3 = Listado semi-Autom tico     ";
COLOR 7, 0
FOR a = 0 TO INT(RND * 90) + 10
LOCATE 19, 20: PRINT " Preparando sistema "; a; "% "
FOR aa = 1 TO 1000: NEXT
NEXT
LOCATE 10, 1

PRINT , , "---------------------------------------"
PRINT , , "-           ";
COLOR 0, 7: PRINT " ERROR Critico ";
COLOR 7, 0: PRINT "           -"
PRINT , , "-                                     -"
PRINT , , "-            Su computador            -"
PRINT , , "-         es demasiado r pido         -"
PRINT , , "-      para correr este programa      -"
PRINT , , "-                                     -"
PRINT , , "---------------------------------------"


FOR a = 1 TO 6
SOUND 1000, .7
SOUND 2100, 2
NEXT