10 REM === POWERPOINT :-) ===
20 REM
22 B(0)=1024:B(1)=15360
24 C(0)=55296:C(1)=16384
26 G(0)=53280:G(1)=17384
28 S(0)=16:S(1)=240
30 PRINT"[147]"
40 GOSUB 4000
49 M=7
50 S$(0)="PPTLOGO"
51 S$(1)="TITEL"
52 S$(2)="CPU"
53 S$(3)="GRAFIK"
54 S$(4)="COLORS"
55 S$(5)="SOUND"
56 S$(6)="EMULATOR"
57 S$(7)="ENDE"
70 SH=0
80 P=0
100 REM ERSTES BILD LADEN
110 SYS49152S$(P)+".GL",G(0)
120 SYS49152S$(P)+".CO",C(0)
130 SYS49152S$(P)+".CH",B(0)
140 P=P+1
145 IF P>M THEN 5000
150 IF SH=0 THEN SH=1: GOTO 200
160 SH=0
200 GOSUB 1000
210 POKE198,0:WAIT198,1
240 GOSUB 1100
280 GOTO140
999 END
1000 REM === BILD NACHLADEN ===
1010 REM
1020 SYS49152S$(P)+".GL",G(1)
1030 SYS49152S$(P)+".CO",C(1)
1040 SYS49152S$(P)+".CH",B(SH)
1060 RETURN
1070 REM
1100 REM === BILD WECHSELN ===
1110 REM
1120 POKE53272,(PEEK(53272)AND15)OR S(SH)
1130 FORI=0TO9:SYS49182,C(1)+I*100,C(0)+I*100:NEXTI
1140 POKE53280,PEEK(G(1)):POKE53281,PEEK(G(1)+1)
1150 RETURN
4000 REM === ASSEMBLER-ROUTINEN ===
4001 REM
4010 FOR I=0TO67:READD:POKE49152+I,D:NEXTI
4020 RETURN
4024 REM
4025 REM === LOAD ===
4026 REM SYS49152"NAME",START
4027 REM
4030 DATA32,87,226,162,8,134,186,32,253,174,32,138,173,32,247,183,132,195
4040 DATA133,196,160,0,132,185,169,0,76,165,244,96
4050 REM
4052 REM === COPY100 ===
4053 REM SYS49182,START,ENDE
4054 REM
4060 DATA32,253,174,32,138,173,32,247,183,132,167,133,168
4070 DATA32,253,174,32,138,173,32,247,183,132,169,133,170
4080 DATA160,0,177,167,145,169,200,192,100,208,247,96
5000 POKE198,0:WAIT198,1
5010 POKE53280,14:POKE53281,6:POKE646,14:PRINT"[147]";:END