home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 38 / Commodore_Disc_38_19xx_-_de.d64 / neusys (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  634 b   |  25 lines
  1. 10 rem neusys=======================c64
  2. 20 rem by alfons mittelmeyer
  3. 30 rem
  4. 40 rem c64
  5. 50 rem basic v2.0
  6. 60 rem ================================
  7. 70 gosub 110:gosub 180:goto 240
  8. 80 rem --------------------------------
  9. 90 rem  maschinenteil nachladen
  10. 100 rem -------------------------------
  11. 110 if peek(49154)=174thenreturn
  12. 120 sys57812"sysmc",8,0:poke780,0
  13. 130 poke781,254:poke782,191
  14. 140 sys65493:return
  15. 150 rem -------------------------------
  16. 160 rem  variablendefinition
  17. 170 rem -------------------------------
  18. 180 in=49465:at=49152
  19. 190 wo=49172:ef=49337
  20. 200 sf=49482:so=49497:return
  21. 210 rem ===============================
  22. 220 rem anwenderprogramm
  23. 230 rem -------------------------------
  24. 240 end
  25.