HTBasic Help
×
Menu
Index

CREATE Example

10    CLEAR SCREEN
20    PRINT "*** output TEST ****"
30    CREATE "test.txt",0
40    ASSIGN @File TO "test.txt";FORMAT ON
50    A$="This is a test."
60    OUTPUT @File;A$
70    RESET @File
80    ENTER @File;Test$
90    IF A$=Test$ THEN
100     PRINT "Test passed."
110   ELSE
120     PRINT "Test failed. Output string did not equal input string."
130   END IF
140   ASSIGN @File TO *
150   PURGE "test.txt"
160   END