1 IFA=0THENA=1:LOAD"SCREEN-LOADER.BA",8,1
2 IFA=1THENA=2:LOAD"DEMOFONT",8,1
10 SYS40000,"DEMOSCREEN"
20 GETA$:IFA$=""THEN20
30 SYS40000,"DEMO1"
40 GETA$:IFA$=""THEN40
50 GOTO10