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