home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 85xx / 8502.d64 / versch.test.usr (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  1.4 KB  |  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.