2051 IND221 ZEBRA 204T

$regfile = "89c55wd.dat"
$crystal = 11059200
$baud = 9600

Dim F1 As Integer
Dim Isi As String * 16
Dim A1 As Byte
Dim Kirim As String * 7

Do

Input Isi Noecho
Kirim = Mid(isi , 8 , 7)

Input Isi Noecho
Input Isi Noecho
If Isi <> "" Then
      Kirim = Mid(isi , 8 , 7)
End If

Print "^XA"
Print "^FO40,30"
Print "^GB450,250,3,,3^FS"
Print "^FO40,100"
Print "^GB450,0,4^FS"
Print "^FO200,60"
Print "^ADN,36,20"
Print "^FDWEIGHT^FS"
Print "^FO80,150"
Print "^ADN,64,20"
Print "^FD" ; Kirim ; " kg^FS"
Print "^XZ"

A1 = Inkey
Waitms 100
A1 = Inkey
Waitms 60
A1 = Inkey


Loop

End