char(27)@
char(27)char(97)char(48)
iCT(40)iDec(0)
L$()  
L$()No.Bill   :@PaymentNo  
L$()MR        :@MedicalNo  
L$()Nama      :@PatientName  
L$()Tanggal   :@Paymentdate  
L$()No.Reg    :@RegistrationNo  
L$()Poli      :@RoomName  
L$() ======================================== 
L$()P E R I N C I A N  B I A Y A(Rp.)  
L$() ======================================== 
L$()Item NAME                         Price   
L$()----------------------------------------  
D$()@ItemName                    @PriceQTY*   
L$()----------------------------------------  
L$()              Subtotal:@sum(PriceQTY)*    
L$()            Pembulatan:@RoundingAmount*   
L$()                 Total:@Amount*           
L$()                  Cash:@AmountReceived*   
L$()               Kembali:@Kembali*          
L$()         Petugas :@UserName  
L$()           Terimakasih  
L$()  L$()Catatan :   
L$()1. Struk ini bisa berfungsi sebagai  
L$()   kwitansi  L$()2. Obat yang sudah dibeli tidak bisa   
L$()   dikembalikan atau ditukar ***  
char(29)Vchar(65)char(0)  

--END OF CODE
KETERANGAN
iLT(13)	= baris max 13
iCT(25)	= colom max 25
iNL(5)	= new line space 5 (jika satu baris teksnya kepanjangan dan turun kebawah maka tulisannya akan menjorok sekian spasi)
iLoop(5)= loop 5 times --> untuk looping ngeprint berapa kali
L$()	= identifikasi baris
D$()	= identifikasi baris detail
*		= definition for numeric value 
iDec(2)	= decimal place for numeric value

-- ESC "p" 0 2 20 --> command terakhir ini blm tau fungsi apa enggak