Code:
PRINT "TESTING 123 ABC"SYSTEM
Code:
CLSSHELL "qb /run test.bas > test.out"SHELL "type test.out"OPEN "test.out" FOR BINARY AS #1 PRINT "LOF ="; LOF(1)CLOSE #1END
Code:
TESTING 123 ABCLOF = 17
Statistics: Posted by Erik — Mon Feb 22, 2021 7:06 pm
Code:
print "TESTING 123 ABC"system
Code:
shell "\path\to\qbasic.exe /RUN \test.bas > \test.out"open "\test.out" for binary as #1print lof(1)close #1end
Code:
\path\to\qbasic.exe /RUN \test.bas > \test.out
Code:
TESTING 123 ABC
Code:
shell "\test.exe > \test.out"open "\test.out" for binary as #1print lof(1)close #1end
Statistics: Posted by mikefromca — Wed Feb 03, 2021 12:11 am