Oki OKIPOS408II OKIPOS 408II Programmer s Technical Reference - Page 329
Sample Program, It is already able to be sent to the printer as file #1 by an open statement.
View all Oki OKIPOS408II manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 329 highlights
5-1-2 Sample Program This shows an example of creating a program. The following program is by BASIC. It is already able to be sent to the printer as file #1 by an open statement. 1. SAMPLE 1 SAMPLE1.BAS ESC$ = CHR$(27): LN$ = CHR$(10) + CHR$(0 FORMAT SETTINGS PRINT #1, ESC$; "C"; LN$; PRINT #1, ESC$; "D1500"; LN$; PRINT #1, ESC$; "L00;0050,0050,0750,0050,0,4"; LN$; PRINT #1, ESC$; "L01;0150,0300,0230,0300,0,2"; LN$; PRINT #1, ESC$; "L02;0150,0400,0310,0400,0,2"; LN$; PRINT #1, ESC$; "L03;0050,0800,0310,0800,0,2"; LN$; PRINT #1, ESC$; "L04;0590,0800,0750,0800,0,2"; LN$; PRINT #1, ESC$; "L05;0050,0945,0750,0945,0,4"; LN$; PRINT #1, ESC$; "L06;0050,0050,0050,0950,1,4"; LN$; PRINT #1, ESC$; "L07;0150,0050,0150,0950,1,2"; LN$; PRINT #1, ESC$; "L08;0230,0050,0230,0950,1,2"; LN$; PRINT #1, ESC$; "L09;0260,0050,0260,0400,1,2"; LN$; PRINT #1, ESC$; "L10;0310,0050,0310,0950,1,2"; LN$; PRINT #1, ESC$; "L11;0590,0050,0590,0950,1,2"; LN$; PRINT #1, ESC$; "L12;0670,0050,0670,0950,1,2"; LN$; PRINT #1, ESC$; "L13;0745,0050,0745,0950,1,4"; LN$; PRINT #1, ESC$; "PC00;0070,0930,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC01;0060,0780,2,3,2,33,02"; LN$; PRINT #1, ESC$; "PC02;0170,0930,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC03;0160,0780,1,2,4,33,02"; LN$; PRINT #1, ESC$; "PC04;0170,0380,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC05;0180,0280,1,1,4,33,02"; LN$; PRINT #1, ESC$; "PC06;0250,0930,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC07;0260,0780,1,1,2,33,02"; LN$; PRINT #1, ESC$; "PC08;0240,0380,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC09;0275,0380,1,1,2,33,02"; LN$; PRINT #1, ESC$; "PC10;0610,0930,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC11;0620,0780,1,1,2,33,02"; LN$; PRINT #1, ESC$; "PC12;0690,0930,1,1,1,33,02"; LN$; PRINT #1, ESC$; "PC13;0695,0780,1,1,2,33,02"; LN$; PRINT #1, ESC$; "PB00;0330,0850,1,1,3,0120"; LN$; PRINT #1, ESC$; "PB01;0470,0850,1,2,3,0100"; LN$; PRINT #1, ESC$; "PB02;0470,0450,1,2,3,0100"; LN$; PRINT #1, ESC$; "B"; LN PRINT DATA PRINT #1, ESC$; "RC00;TYPE-No."; LN$; PRINT #1, ESC$; "RC01;ABC0123456789"; LN$; PRINT #1, ESC$; "RC02;LOT"; LN$; PRINT #1, ESC$; "RC03;5X6789"; LN$; PRINT #1, ESC$; "RC04;QTY"; LN$; PRINT #1, ESC$; "RC05;10000"; LN$; PRINT #1, ESC$; "RC06;DATE"; LN$; PRINT #1, ESC$; "RC07;"; DATE$; LN$; PRINT #1, ESC$; "RC08;COMMENT"; LN$; ;'Clear format ;'Set print area ;'Define ruled line format ;'Define character string position and type ;'Define barcode position and type ;'Enable cutter ;'Set character data _____ STAR Page Mode Command Specifications 5-2