10 REM New version of 'INTRO' from
   20 REM Welcome pack
   30 REM By John Coll & Andrew Gordon
   40 ON ERROR IF ERR=17 CHAIN @lib$+"../examples/tools/touchide" ELSE MODE 7:REPORT:END
   50 ENVELOPE 1,1,-RND(50),-RND(50),-RND(45),255,255,255,127,0,0,-127,127,0
   60 SOUND 1,1,255,255
   80 M0=650:M1=500:M2=708:M3=104:M4=288:M5=550:M6=720:M7=450:M8=5:V%=2
   90 MODE5
  100 VDU5
  110 VDU23,255,255,255,255,255,255,255,255,255,23,23,4;0;0;0;19,1,1;0;
  120 GCOL0,135
  130 CLG
  140 VDU18,0,129,24,128;128;1152;896;16,18,0,135,24,256;256;1024;768;16,24,0;0;1278;1022;
  150 FORI%=M1 TO M2 STEP M3:PROCSWOOSH(M0):PROCLETTER:NEXT
  160 COM$="DISC SYSTEM"
  170 FORJ%=0TO10:I%=M4+64*J%:PROCSWOOSH(M5):GCOL0,0:MOVEI%,M5:PRINTMID$(COM$,J%+1,1);:NEXT
  180 VDU29,M6;M7;
  190 FORL%=0TO8STEP8:FORM%=0TO4STEP4
  200     RESTORE
  210     FORI%=0TO20:READA%
  220       FORJ%=0TO7:K%=68+(A%AND1):A%=A%DIV2:D%=INKEY1
  230         PLOTK%,L%-J%*32+(I%AND1)*16,M%-I%*8:NEXT
  240       IF(I%AND1)=0:PLOT69,L%+32,M%-I%*8
  250     NEXT:NEXT:NEXT
  260 TI%=TIME:REPEATUNTILTIME-TI%>100*V%
  270 SOUND &11,0,1,1
  280 REPEAT UNTIL INKEY(5)=FALSE
  290 DATA&FF,&99,&AA,&66,&A2,&99,&C9,&C2,&FE,&F0,&F8,&F0,&78,&78,&3C,&3C,&1E,&16,&15,&FD,&00,&00
  300 DEF PROCLETTER
  310 GCOL0,1:GCOL0,135
  320 MOVEI%-4,M0+4:PRINTCHR$255;
  330 MOVEI%,M0-28:DRAWI%+56,M0-28
  340 MOVEI%,M0+8:DRAWI%+56,M0+8
  350 MOVEI%-8,M0+4:DRAWI%-8,M0-28
  360 MOVEI%,M0-32:DRAWI%+56,M0-32
  370 MOVEI%+64,M0+4:DRAWI%+64,M0-28
  380 GCOL0,7:GCOL0,129
  390 MOVEI%+6,M0+2:PRINTCHR$(ASC"B"-(I%=M2));
  400 ENDPROC
  410 DEF PROCSWOOSH(Y%)
  420 XL%=0:XR%=1272:YD%=0:YU%=1020
  430 U1%=(I%+32-XL%)DIVM8:V1%=(Y%-16-YD%)DIVM8
  440 U2%=(I%+32-XR%)DIVM8:V2%=(Y%-16-YU%)DIVM8
  450 X1%=XL%:X2%=XL%:X3%=XR%:X4%=XR%:Y1%=YD%:Y2%=YU%:Y3%=YD%:Y4%=YU%
  460 PROCPLOT
  470 FORJ0%=1TOM8
  480   PROCPLOT
  490   X1%=X1%+U1%:X2%=X2%+U1%:X3%=X3%+U2%:X4%=X4%+U2%
  500   Y1%=Y1%+V1%:Y2%=Y2%+V2%:Y3%=Y3%+V1%:Y4%=Y4%+V2%
  510   PROCPLOT
  520 NEXT
  530 PROCPLOT
  540 ENDPROC
  550 DEFPROCPLOT
  560 MOVEX1%-U1%,Y1%-V1%:PLOT6,X1%,Y1%:MOVEX2%-U1%,Y2%-V2%:PLOT6,X2%,Y2%
  570 MOVEX3%-U2%,Y1%-V1%:PLOT6,X3%,Y3%:MOVEX4%-U2%,Y4%-V2%:PLOT6,X4%,Y4%
  580 D%=INKEY2:ENDPROC