home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_B.d64 / system-v (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  756 b   |  30 lines
  1. 10 rem system-v
  2. 15 rem (c)1990 markt&technik verlag
  3. 20 :
  4. 21 goto 100
  5. 25 in=50176:fi=50368
  6. 30 if l=0 then l=1:load"mprg",8,1
  7. 35 if l=1 then l=2:sysfi,24576,32576,0:load"picture*",8,1
  8. 40 if l>2 then 85
  9. 45 :
  10. 50 sys fi,16384,24384,255
  11. 55 sys fi,33792,34792,16*13
  12. 60 sys fi,40960,48960,0
  13. 65 poke56576,149:poke53272,24:poke53265,59:poke53280,0:poke53281,0
  14. 70 fors=0to1000:next:sys in,16384,40960:sys in,24675,40960
  15. 75 :
  16. 80 if l=2 then l=3:load"letters*",8,1
  17. 85 print"[147]load"chr$(34)"program*"chr$(34)",8":print"run"
  18. 90 poke631,13:poke632,13:poke198,2
  19. 95 print"":new
  20. 100 if t=0 then 150
  21. 110 if t=1 then t=2 : sys 828
  22. 120 goto 25
  23. 150 print"[147]      ausgabe ueber userport [j/n]      "
  24. 160 get a$:if a$=""then 160
  25. 170 if a$="j"then t=1: load"system-v.user",8,1
  26. 180 if a$="n"then t=2: goto 25
  27. 190 goto 160
  28. 200 rem userport-treiber installed
  29. 210 rem by sven friedrichs in 1991
  30.