home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 39 / 64er_Magazin_Sonderheft_39_19xx_Markt__Technik_de_Side_A.d64 / inputinstall (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  41 lines
  1. 100 rem   hi-eddi  maus-installation
  2. 110 rem   written in january 1989 by
  3. 120 rem
  4. 130 rem       oliver stiller
  5. 140 rem       nachtigallenstr. 3
  6. 150 rem       5000 koeln 90
  7. 160 rem       tel. 02203/68954
  8. 170 rem
  9. 180 rem   call or write only in order
  10. 190 rem   to exchange graphics, ideas
  11. 200 rem   or routines. game-swappers
  12. 210 rem   may send their disks (they
  13. 220 rem   will be formatted; i allways
  14. 230 rem   need empty disks).
  15. 240 rem
  16. 250 :
  17. 270 a=a+1
  18. 280 if a=1 then load"mausinst.c000",8,1
  19. 290 if a=2 then load"hi-exe",8,1
  20. 300 :
  21. 320 poke 46,32:clr
  22. 330 print"[147]  hi-eddi maus/joysticktreiber auswahl  ";
  23. 340 print "oliver stiller/masters' design group '89"
  24. 360 close1:open 1,8,15
  25. 380 if peek(174)+256*peek(175)=8192 then 490
  26. 390 :
  27. 400 input "maustreiber aktivieren (j/n)  j[157][157][157]";a$
  28. 410 if a$<>"j" then end
  29. 420 :
  30. 440 print#1,"s:bak/hi-exe.joy"
  31. 450 print#1,"r:bak/hi-exe.joy=hi-exe"
  32. 460 sys 49152
  33. 470 poke 44,13:poke43,0:poke 45,0:poke 46,32:save "hi-exe",8:sys 64738
  34. 480 :
  35. 490 input "joysticktreiber aktivieren (j/n)  j[157][157][157]";a$
  36. 500 if a$<>"j" then end
  37. 510 :
  38. 530 print#1,"s:hi-exe"
  39. 540 print#1,"r:hi-exe=bak/hi-exe.joy"
  40. 550 sys 64738
  41.