0 REM
1 REM   ***** DIA-SHOW *****
2 REM
10 POKE53265,0
11 RESTORE
12 LO=PEEK(816)+PEEK(817)*256
20 IFA=0THENA=1:LOAD"DIA-1",8,1
30 IFA=1THENA=2:LOAD"SUPER-DUMP.OBJ",8,1
40 POKE53265,PEEK(53265)OR32
50 POKE53270,PEEK(53270)OR16
60 POKE53272,PEEK(53272)OR8
70 SYS37005
75 READNA$,M1,G1,B1:XX$=CHR$(63)+"PIC "+NA$
76 SYS(57812)XX$,8,1:POKE780,0:SYSLO
80 POKE53265,59
90 REM HAUPTSCHLEIFE
100 M=M1:G=G1:B=B1
102 READNA$,M1,G1,B1
105 IFNA$="X"THENRESTORE:GOTO102
110 XX$=CHR$(63)+"PIC "+NA$
130 FA=PEEK(34576)
140 POKE53280,FA:POKE53281,FA
150 SYS36864,32576,1024,1000
160 SYS36864,33576,55296,1000
170 SYS49152,96,32,32,M,G,B
175 SYS(57812)XX$,8,1:POKE780,0:SYSLO
180 POKE198,0:WAIT198,1
190 SYS49152,64,32,32,M,G,B
200 GOTO100
10000 DATA"A*",003,0,1
10001 DATA"B*",100,0,1
10002 DATA"C*",107,0,1
20000 DATAX,0,0,0