21.11.2014 Views

Programming Manual for Citizen BASIC Interpreter - MaRCo

Programming Manual for Citizen BASIC Interpreter - MaRCo

Programming Manual for Citizen BASIC Interpreter - MaRCo

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

<strong>Citizen</strong> <strong>BASIC</strong> <strong>Interpreter</strong><br />

1100 CLOSE #1<br />

(3) Example 3<br />

This example employs AUTOEXEC. It automatically activates the <strong>BASIC</strong> interpreter<br />

by AUTOEXEC.ZPL to execute the START.BAS program found in the E: drive.<br />

^XA<br />

^DFE:AUTOEXEC.ZPL^FS<br />

^JIE:START.BAS,Y,N,50K^FS<br />

^XZ<br />

(4) Example 4<br />

This example explains the <strong>BASIC</strong> program that extracts data. The <strong>BASIC</strong> interpreter<br />

is used by collecting data from the program not based on the CLP/CL-S command.<br />

30 OPEN #2 : NAME "SER"<br />

40 OPEN #1 : NAME "ZPL"<br />

50 DO<br />

60 INPUT #2 : A$<br />

70 IF A$ = "EXIT" THEN<br />

80 CLOSE #2<br />

90 CLOSE #1<br />

95 END<br />

100 END IF<br />

110 LOOP WHILE POS(A$,"START") = 0<br />

120 DECLARE STRING BS$(17)<br />

130 LET INDEX = 1<br />

140 DO WHILE INDEX

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!