home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 February / 64er_Magazin_85-02_1985_Markt__Technik_de.d64 / versch.test.usr (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  45 lines
  1. 1 rem *********************************
  2. 2 rem *                               *
  3. 3 rem *  test fuer die 1. version des *
  4. 4 rem *       programm-projektes      *
  5. 5 rem * v e r s c h i e b e n  v o n  *
  6. 6 rem *       speicherbereichen       *
  7. 7 rem *                               *
  8. 8 rem * heimo ponnath    hamburg 1984 *
  9. 9 rem *********************************
  10. 10 rem
  11. 15 rem ++++++ usr-vektor einstellen ++++
  12. 20 rem
  13. 25 poke785,182:poke786,2
  14. 30 rem
  15. 35 rem ++++++ kopfzeile ++++++++++++++++
  16. 40 rem
  17. 45 printchr$(147)chr$(18)"test: bild $0400=1024, farbe $d800=55296"chr$(146)
  18. 50 print:print:print"durch irgendein usr-kommando wird nun im programm-modus"
  19. 55 print"der erste teil des verschiebe-programmes aufgerufen"
  20. 60 print"die kopfzeile wird unter das obere rom  kopiert."
  21. 65 rem
  22. 70 rem ++++++ 1. usr-aufruf ++++++++++++
  23. 75 rem
  24. 80 a=usr(1)
  25. 85 print:print"hier geschieht das durch a=usr(1) in    zeile 65"
  26. 90 print"dabei ist 1 ein dummy und mit a fangen  wir auch nichts weiter an."
  27. 95 print"auf tastendruck wird der bildschirm  ge-loescht"
  28. 100 rem
  29. 105 rem ++ueberschreiben der kopfzeile ++
  30. 110 rem
  31. 115 poke198,0:wait198,1:printchr$(147)
  32. 120 rem
  33. 125 rem +++ neubeginn des programmes ++++
  34. 130 rem
  35. 135 printchr$(19)"was auch immer jetzt in der kopfzeile   steht, es wird beim 2.usr"
  36. 140 print"von dem zuvor durch das erste usr ge-   speicherte ueberschrieben"
  37. 145 print:print"wenn sie jetzt eine taste druecken..."
  38. 150 poke198,0:wait198,1
  39. 155 rem
  40. 160 rem ++++++ 2. usr-aufruf +++++++++++
  41. 165 rem
  42. 170 a=usr(1):print
  43. 175 print"ist die alte kopfzeile zurueck in den   bildschirmspeicher geschoben."
  44. 180 end
  45.