VBMP/src/SLIDESHOW.bas

10 lines
287 B
QBasic

10 D$ = CHR$(4)
15 FOR I = 1 TO 8: READ F$
20 PRINT D$;"BLOAD ";F$;".BMP,A$4000"
30 PRINT D$;"BRUN DISPLAY"
35 FOR J = 1 TO 1000: NEXT J
40 NEXT I
45 POKE -16372,0: TEXT
60 DATA "IMAGE","SJOBS"
70 DATA "STEVES","A2C1984"
80 DATA "ADVTIME2","IRONMAN","SIMPSONS","SPONGEBOB"