home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_22_1988_Transactor_Publishing.d64 / updater (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  496b  |  18 lines
  1. 10 rem c-power library updater
  2. 20 rem
  3. 30 rem by eric giguere
  4. 40 rem
  5. 50 print "[147][201]nsert your library disk into drive 0"
  6. 60 print " [204]ibrary name: ";: gosub 1000: lib$=left$( in$, 14 )+".l"
  7. 70 print " [198]unction name: ";: gosub 1000: fc$=left$( in$, 8 )
  8. 80 print " [198]ilename: ";: gosub 1000: fl$=left$( in$, 12 )+".obj"
  9. 90 print " [213]pdating ";lib$;"..."
  10. 100 open 2,8,5,"0:"+lib$+",s,a"
  11. 110 print#2,fc$;chr$(0);
  12. 120 print#2,fl$;chr$(0);
  13. 130 close 2
  14. 140 print " [196]one.  [193]nother function? (y/n) ";: gosub 1000
  15. 150 if left$( in$, 1 )="y" then 70
  16. 160 end
  17. 1000 open 1,0: input#1,in$: close 1: print: return
  18.