برش رشته

بدون استفاده از سه تابع رشته ای زیر سه کارکتر اول رشته ی ورودی را چاپ کند
((   mid  ,   Right   ,    Left    ))

در انتهای عبارت های زیر q را پاک کنید

CLS
INPUT a$ q
FOR i = 1 TO 3 q
   FOR j = 1 TO 255  q
      b$ = CHR$(j)   q
      n = INSTR(i, a$, b$)  q
      IF n = i THEN PRINT b$; : EXIT FOR  q
   NEXT j, i  q
END  q