home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh3x / sh39a.d64 / inputinstall (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.