1 ONQAGOTO3: REM ---KHT-STOPTEST02---
2 QA=1:LOAD"KHT-STOPTEST.AS",8,1
3 POKE788,52:REM STOP GESPERRT
4 POKE792,193:POKE793,254:REM RESTORE UEBERSPRINGEN
5 R$="":GETR$:IFR$=""THEN5
6 IFR$=CHR$(3)THEN9
7 IFR$="P"THEN11
8 GOTO5
9 SYS49327
10 FORI=0TO500:NEXT:GOTO5
11 PRINT"PROG LAEUFT!":GOTO10