0 CLR
10 REM COPYRIGHT 1991 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
20 POKE53280,0:POKE53265,11:PRINT"[147]":POKE53281,0:FORDL=1TO200:NEXT
30 POKE53265,27:M$="ONE MOMENT PLEASE. . ."
40 C$="[144][151][152][155]":FORT=1TO5:PRINTTAB(10)MID$(C$,T,1)M$"[145]":FORDL=1TO20:NEXT:NEXT
50 POKE147,0:SYS57812"SIMULVIDEO.OBJ",8,1:SYS62631
60 FORT=200*64TO201*64+63:READX:POKET,X:NEXT
70 SS=0:CC=0:X=61440
80 S=200*64:E=200*64+63:N=X:GOSUB720
90 N=X-2048:GOSUB720:N=X-4096:GOSUB720:N=X-14336:GOSUB720
100 X=X+128:CC=CC+1
110 IFCC=2ANDSS=0THENCC=0:SS=1:X=X+64
120 IFCC=2ANDSS=1THENCC=0:SS=0:X=X-64
130 IFX<63488THEN80
140 SS=1:CC=0:X=61440+64
150 S=201*64:E=201*64+63:N=X:GOSUB720
160 N=X-2048:GOSUB720:N=X-4096:GOSUB720:N=X-14336:GOSUB720
170 X=X+128:CC=CC+1
180 IFCC=2ANDSS=0THENCC=0:SS=1:X=X+64
190 IFCC=2ANDSS=1THENCC=0:SS=0:X=X-64
200 IFX<63488THEN150
210 FORT=60160TO61439:POKET,.:NEXT
220 FORT=57344TO58623:POKET,.:NEXT
230 FORT=201*64+3TO201*64+3+60STEP6:POKET,.:POKET+1,.:POKET+2,.:NEXT
240 SS=1:CC=0:X=47104+64
250 S=201*64:E=201*64+63:N=X:GOSUB720
260 X=X+128:CC=CC+1
270 IFCC=2ANDSS=0THENCC=0:SS=1:X=X+64
280 IFCC=2ANDSS=1THENCC=0:SS=0:X=X-64
290 IFX<49152THEN250
300 FORT=5TO1STEP-1:PRINTTAB(10)MID$(C$,T,1)M$"[145]":FORDL=1TO20:NEXT:NEXT
310 REM SLATE/TEXT DEMO
320 SYS51071,12,11,15
330 SYS50930:PRINT"[147]S I M U L V I D E O"
340 PRINT"COPYRIGHT 1991"
350 PRINT"COMPUTE PUBLICATIONS INTL LTD"
360 PRINT"ALL RIGHTS RESERVED"
370 SYS50930
380 SYS51388,0,6:SYS50740,1:SYS50752,2,1
390 SYS51388,0,6:SYS50740,0:FORDL=1TO100:NEXT
400 SYS50746,0:SYS51388,1,6,6:SYS51569:SYS51579
410 SYS51388,0,6:SYS51725,0:SYS51750,1:SYS51725,1:SYS50746,0
420 REM SLATE/BACKDROP DEMO
430 SYS50916:SYS50740,1:PRINT"[147]";:SYS50746,1
440 FORDL=1TO100:NEXT:SYS51879:SYS51388,0,6:SYS50746,0:SYS50740,0:SYS50746,0
450 FORT=1TO2:SYS51725,0:FORDL=1TO100:NEXT:SYS51750,0:FORDL=1TO100:NEXT:NEXT
460 SYS51388,0,6:SYS50740,0:SYS50752,0,1
470 SYS50740,0:SYS50752,1,1
480 SYS50740,0:SYS50752,3,1
490 SYS50740,0:SYS50752,2,1
500 SYS51388,0,3:SYS50740,0:SYS50746,0
510 SYS51388,1,5,4:SYS51569:FORDL=1TO200:NEXT:SYS51579
520 SYS51388,1,4,5:SYS51569:FORDL=1TO200:NEXT:SYS51579:SYS52024
530 REM OVERLAY MODE DEMO
540 SYS50946,2,14,1:SYS50930:PRINT"[147]";
550 FORT=1TO3:PRINT"[160][160][160][160][160][160][160][160][160][160]   [160][146][160][160][160][160][160][160][160][160][160]";:NEXT
560 PRINT"[160][160][160][160][160][160][160][160][160][160]   [160][160][160][160][160][160][160][160][160][160]";
570 FORT=1TO3:PRINT"                       ";:NEXT
580 PRINT"[160][160][160][160][160][160][160][160][160][160]   [160][160][160][160][160][160][160][160][160][160]";
590 FORT=1TO3:PRINT"[146][160][160][160][160][160][160][160][160][160][160]   [160][146][160][160][160][160][160][160][160][160][160]";:NEXT
600 PRINT:PRINT:PRINT
610 FORT=1TO3:PRINT"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":NEXT
620 PRINT"[154]@@@@@@@@@@[158]@@@[154]@@[128]@@@@@@@@"
630 FORT=1TO3:PRINT"[158]@@@@@@@@@@@@@@@@@@@@@@@":NEXT
640 PRINT"[154]@@@@@@@@@@[158]@@@[154]@@@@@@@@@@"
650 FORT=1TO2:PRINT"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":NEXT
660 PRINT"@@@@@@@@@[154]@[158]@@@[154]@@@@@@@@@@":SYS50930
670 SYS51388,0,6
680 SYS50916:SYS51725,0:SYS50746,0:SYS50916:SYS51725,1:SYS50746,0
690 SYS50916:SYS50740,0:SYS50752,2,1
700 SYS51388,0,6:SYS50916:SYS50740,0:FORDL=1TO100:NEXT:SYS50746,0
710 SYS50916:GOTO330
720 L=E-S:EN=L+N
730 A%=L/256:A=L-256*A%:B%=(EN-A)/256:B=EN-256*B%-A:C%=(E-A)/256:C=E-256*C%-A
740 POKE781,A%+1:POKE782,A:POKE90,C:POKE91,C%:POKE88,B:POKE89,B%:SYS41964
750 RETURN
760 DATA170,170,170,149,85,87,149,85
770 DATA87,154,90,87,154,218,215,154
780 DATA218,215,154,218,215,154,218,215
790 DATA154,170,215,154,170,215,154,170
800 DATA215,154,170,215,154,250,215,154
810 DATA218,215,154,218,215,154,218,215
820 DATA154,218,215,151,215,215,149,85
830 DATA87,149,85,87,191,255,255,42
840 DATA170,170,170,149,85,87,154,170
850 DATA87,154,170,215,154,170,215,154
860 DATA170,215,154,255,215,154,213,87
870 DATA154,169,087,154,171,87,154,171
880 DATA87,154,171,87,154,255,87,154
890 DATA213,87,154,170,87,154,170,215
900 DATA154,170,215,154,170,215,151,255
910 DATA215,149,85,87,191,255,255,42