1 REM *********************************
2 REM *                               *
3 REM *  TEST FUER DIE 1. VERSION DES *
4 REM *       PROGRAMM-PROJEKTES      *
5 REM * V E R S C H I E B E N  V O N  *
6 REM *       SPEICHERBEREICHEN       *
7 REM *                               *
8 REM * HEIMO PONNATH    HAMBURG 1984 *
9 REM *********************************
10 REM
15 REM ++++++ USR-VEKTOR EINSTELLEN ++++
20 REM
25 POKE785,182:POKE786,2
30 REM
35 REM ++++++ KOPFZEILE ++++++++++++++++
40 REM
45 PRINTCHR$(147)CHR$(18)"TEST: BILD $0400=1024, FARBE $D800=55296"CHR$(146)
50 PRINT:PRINT:PRINT"DURCH IRGENDEIN USR-KOMMANDO WIRD NUN IM PROGRAMM-MODUS"
55 PRINT"DER ERSTE TEIL DES VERSCHIEBE-PROGRAMMES AUFGERUFEN"
60 PRINT"DIE KOPFZEILE WIRD UNTER DAS OBERE ROM  KOPIERT."
65 REM
70 REM ++++++ 1. USR-AUFRUF ++++++++++++
75 REM
80 A=USR(1)
85 PRINT:PRINT"HIER GESCHIEHT DAS DURCH A=USR(1) IN    ZEILE 65"
90 PRINT"DABEI IST 1 EIN DUMMY UND MIT A FANGEN  WIR AUCH NICHTS WEITER AN."
95 PRINT"AUF TASTENDRUCK WIRD DER BILDSCHIRM  GE-LOESCHT"
100 REM
105 REM ++UEBERSCHREIBEN DER KOPFZEILE ++
110 REM
115 POKE198,0:WAIT198,1:PRINTCHR$(147)
120 REM
125 REM +++ NEUBEGINN DES PROGRAMMES ++++
130 REM
135 PRINTCHR$(19)"WAS AUCH IMMER JETZT IN DER KOPFZEILE   STEHT, ES WIRD BEIM 2.USR"
140 PRINT"VON DEM ZUVOR DURCH DAS ERSTE USR GE-   SPEICHERTE UEBERSCHRIEBEN"
145 PRINT:PRINT"WENN SIE JETZT EINE TASTE DRUECKEN..."
150 POKE198,0:WAIT198,1
155 REM
160 REM ++++++ 2. USR-AUFRUF +++++++++++
165 REM
170 A=USR(1):PRINT
175 PRINT"IST DIE ALTE KOPFZEILE ZURUECK IN DEN   BILDSCHIRMSPEICHER GESCHOBEN."
180 END