home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh4x / sh43a.d64 / mid$ (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  79b  |  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.