01 INTESTAZIONE - TURLA COSTRUZIONI
        

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

RETURN WITHOUT GOSUB

ERROR: #ZC4NEU7R7PCI7FV5Z018JM4UZH7TG3KK