home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / DRSPGM (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  19KB  |  14 lines
  1. 1 A=2337:E=PEEK(45)+PEEK(46)*256
  2. 2 F$="":FORI=1TO16:GOSUB13
  3. 3 F$=F$+A$:NEXT
  4. 4 FORI=16TO1STEP-1
  5. 5 IFMID$(F$,I,1)<>" "THENZ=I:I=0
  6. 6 NEXT:F$=LEFT$(F$,Z)
  7. 7 GOSUB13:L$=A$:GOSUB13:H$=A$
  8. 8 B=ASC(L$+CHR$(0))+256*ASC(H$+CHR$(0))
  9. 9 OPEN3,8,3,F$+",P,W"
  10. 10 FORI=1TOB:GOSUB13:PRINT#3,A$;:NEXT
  11. 11 CLOSE3:IFA<ETHEN2
  12. 12 PRINT"ALL DONE!":END
  13. 13 A$=CHR$(PEEK(A)):PRINTA:A=A+1:RETURN
  14.