home *** CD-ROM | disk | FTP | other *** search
/ Transactor / Transactor_14_1986_Transactor_Publishing.d64 / install (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  531b  |  25 lines
  1. 10 rem -------------------------------
  2. 12 rem    general install program
  3. 14 rem            install
  4. 16 rem -------------------------------
  5. 18 ifa=1then36
  6. 20 poke55,0:poke56,32:clr
  7. 22 input"filename";f$
  8. 24 open15,8,15:open1,8,2,f$+",p,r"
  9. 26 input#15,a,b$,c,d
  10. 28 close1:close15:ifa=0then34
  11. 30 printa,b$,c,d:end
  12. 34 gosub44:a=1:loadf$,8,1
  13. 36 if a$<>"kexp"anda$<>"init"then40
  14. 38 sysad
  15. 40 poke55,lb:poke56,hb:new
  16. 42 rem
  17. 44 open1,8,2,f$+",p,r"
  18. 46 get#1,x$:ifx$=""thenx$=chr$(0)
  19. 48 lb=asc(x$)
  20. 50 get#1,x$:ifx$=""thenx$=chr$(0)
  21. 52 hb=asc(x$):ad=lb+256*hb
  22. 54 fori=1to3:get#1,x$:next
  23. 56 a$="":fori=1to4:get#1,x$:a$=a$+x$
  24. 58 next:close1:return
  25.