100 REM =================
110 REM =               =
120 REM = DIASHOW-MAKER =
130 REM =               =
140 REM =================
150 IF DM=0 THEN DM=11:DIM A$(16)
160 IF DL=0THEN DL=1:LOAD "-DIASHOW",8,1
170 IF BL<>0 THEN 220
180 READ BA
190 FOR I=1 TO BA
200 :  READ A$(I)
210 NEXT I
220 BL=BL+1
230 IF BL>1 THEN SYS 49152
240 IF BL>BA THEN BL=0:BA=0:RESTORE:GOTO 160
250 LOAD A$(BL),8,1
1000 DATA 1,"-SCREEN"