home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_10_(11-1984).d64 / 4minut.img (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  3KB  |  5 lines
  1. 10 OPEN1,8,15:M$="M-W":Q$=CHR$(34):FORI=3328TO4552STEP34:B$=""
  2. 20 PRINT"[147]"4552-I:FORJ=0TO33:B$=B$+CHR$(PEEK(I+J)):NEXT
  3. 30 H=INT(I/256)-10:L=IAND255:PRINT#1,M$CHR$(L)CHR$(H)Q$B$;:NEXT
  4. 40 PRINT#1,"M-E"CHR$(108)CHR$(6):SYS2304
  5.