10 REM"‚****ƒˆSWTH‰‚**** 20 30 MODE 7 40 PROCscreen 50 A1=30:A2=127:O=6:GT=1 60 ENVELOPE1,1,0,0,0,2,2,2,A1,0,0,255,128,1 70 ENVELOPE2,1,0,0,0,2,2,2,A2,0,0,255,128,1 80 S$="QAWSEDFTGYHJIKOLP;:[]_1234567" 90 ONGT GOTO160,190 ELSEGT=1:GOTO160 100 DL=38:T%=1 110 FORK=1TOLENT$:T=TIME+DL 120 F$=MID$(T$,K,1):G$=MID$(M$,K,1) 130 IFF$<>" "SOUNDT%,1,4*O+48+4*INSTR(S$,F$),1:T%=1+T%MOD2 140 IFG$<>" "SOUND3,2,4*O+4*INSTR(S$,G$),1 150 REPEATUNTILTIME>=T:NEXT:GOTO90 160 T$=" L L; ;: :I IH H HHDFF FJHL L; ;: :I IH H HHDFF " 170 M$=" L:1LO:1OK:1KGL]GJL:JL:J:KLL S L:1LO:1OK:1KGL]GJL:JL:J:KLL S" 180 GT=GT+1:GOTO100 190 T$=" SDF GFD SAS SFS FGH GFD SAASS SDF GFD SASASFS FGH GFD SAASS " 200 M$=" SDFHK:4]LGJL:LS SDFHKFDGKDASS SDFHK:]LIGJL:LS SDFHKFDGKDASS " 210 GT=GT+1:GOTO100 220 230 DEF PROCscreen 240 VDU23;8202;0;0;0; 250 PRINT TAB(9,8);CHR$141;"‚S T A I R W A Y" 260 PRINT TAB(9,9);CHR$141;"‚S T A I R W A Y" 270 PRINT TAB(15,11);CHR$141;"T O" 280 PRINT TAB(15,12);CHR$141;"T O" 290 PRINT TAB(11,14);CHR$141;"†H E A V E N" 300 PRINT TAB(11,15);CHR$141;"†H E A V E N" 310 PRINT TAB(14,21);"….....by Led Zeppelin" 320 ENDPROC