1 REM BASICSTART-MACHER
2 REM         *
3 REM  GERMANO CARONNI
4 REM  GREUBSTELSTR.10
5 REM CH-5430 WETTINGEN
6 REM TEL.0041/56262574
7 REM         *
10 POKE53281,0:POKE53280,0:PRINT"[147]"
20 PRINT"DIESES PROGRAMM ERZEUGT EIN FILE"
30 PRINT"DAS VON 820 - 827 GELADEN WERDEN"
40 PRINT"KANN UND MIT SYS 820 EIN BASIC-"
50 PRINT"RUN SIMULIERT."
60 PRINT"DAZU GEDACHT AUCH BASIC-PRG. UND"
70 PRINT"MASCHINENENSPR. GEMISCHT ZUSAMMEN-"
80 PRINT"ZUSETZEN"
90 PRINT"                                G.C"
100 INPUT"TASTE";A$
110 OPEN2,8,2,"BASIC-START,P,W"
120 PRINT#2,CHR$(820AND255);CHR$(820/256);CHR$(169);CHR$(0);CHR$(32);
130 PRINT#2,CHR$(113);CHR$(168);CHR$(76);CHR$(174);CHR$(167);:CLOSE2:PRINT"[147]"