home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 43 / 64er_Magazin_Sonderheft_43_19xx_Markt__Technik_de_Side_A.d64 / mid$ (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  79 b   |  6 lines
  1. 100 a$="drachen"
  2. 110 x=x+1
  3. 120 b$=mid$(a$,x,8-x)
  4. 130 printb$
  5. 140 if x<>len(a$) then 110
  6.