Confindustria
Ascoli Piceno
        
            10 REM FILE TEST
            20 OPEN 1, 8, 4, "TESTFILE,SEQ,W"
            30 IF ST <> 0 THEN PRINT "FILE ERROR"
            40 IF ST = 0 THEN PRINT "FILE EXISTS"
            50 CLOSE 1
          
ERROR: #T04O4Z3MU7HT9QRPIDSR5EIJKKR4SDUE