1 REM *********************************
2 REM *       PET - SIMULATOR         *
3 REM *                               *
4 REM *     (C) BY W. HOPF 1984       *
5 REM *********************************
6 :
7 REM PROGRAMM VOR DEM START ABSPEICHERN
8 :
10 FORI=49152TO49152+91:READA:SU=SU+A
20 POKEI,A:NEXT
30 IFSU<>12552THENEND
40 PRINT"[147]BITTE WAEHLEN SIE DIE ZEICHENFARBE"
50 PRINT"(0-15 EINGEBEN)!"
60 INPUTZF:IFZF>=0ANDZF<=15THENPOKE49239,ZF:POKE646,ZF:GOTO80
70 PRINT"NICHT ERLAUBT":FORI=1TO1000:NEXT:GOTO40
80 SYS49152:POKE1,54:PRINT"[147]PET-SIMULATOR AKTIV":NEW
10000 DATA160,0,132,254,169,160,133,255
10005 DATA177,254,145,254,200,208,249,230
10010 DATA255,166,255,224,192,208,241
10015 DATA169,5,141,0,221,141,24,208,169
10020 DATA128,141,136,2,133,56,169,4
10025 DATA133,44,169,0,141,0,4,169
10030 DATA63,141,37,184,169,192,141,38
10035 DATA184,169,193,141,24,3,96,32
10040 DATA235,183,24,165,21,201,128,144
10045 DATA18,201,132,176,14,24,105,88
10050 DATA133,255,165,20,133,254,169,0
10055 DATA234,145,254,96
60000 :
60010 REM LISTE DER VERWENDETEN COMMODORE-STEUERZEICHEN
60020 REM "[147]" = CLR
60030 REM "" = CRSR-DOWN