/*

                                  CarLost

             Carrier Lost, by dropping DTR and Carrier Detect

                         (c) 1993 by Felice Murolo
                                 10.07.93
                                    PD
*/

#include <hardware/cia.h>

UBYTE *VERSION = "$VER: CarLost 1.0 (10.07.93)";

#define CIAB_BASE	0xBFD000     /* indirizzi cia B */

struct 	CIA 		*ciab;

void _main()
{

ciab=((struct CIA *)CIAB_BASE);

ciab->ciapra |=CIAF_COMDTR;
ciab->ciapra |=CIAF_COMCD;
Delay(150);
ciab->ciapra &=(0xFF-CIAF_COMDTR);

Write(Output(),"User is dead...\n",16);
Write(Output(),"\nCARLOST, (c) 1993 by Felice Murolo\n",36);
exit(0);
}