1 REM    *          * 2 REM    *  ------  *  3 REM    *  sahara  * 4 REM    *  ------  *   5 REM    *          * 10 CLS 20 EVERY 15,1 GOSUB 90   30 EVERY 60,3 GOSUB 60    40 EVERY 15,2 GOSUB 200   50 GOTO 50 60 ENV 1,15,-1,1     70 SOUND 2,0,15,15,1,0,1   80 RETURN 90 ENV 1,15,-1,1 100 SOUND 2,0,15,15,1,0,5 110 RETURN 120 ENV 2,15,-1,3 130 SOUND 1,600,45,15,2,0,10    140 SOUND 4,5,45,15,2,0,1    150 RETURN 160 ENV 3,15,-1,5   170 ENT 1,1,-1,1,2,1,1,1,-1,1   180 SOUND 2,10,75,15,3,1,10  190 RETURN 200 i$=INKEY$ 210 IF i$="1" THEN s=451 220 IF i$="2" THEN s=379       230 IF i$="3" THEN s=358 240 IF i$="4" THEN s=338 250 IF i$="5" THEN s=301 260 IF i$="6" THEN s=284 270 IF i$="7" THEN s=239 280 IF i$="8" THEN s=225 290 IF i$="" THEN RETURN 300 ENV 1,15,-1,4  310 ENT 1,10,-1,1,10,1,1     320 SOUND 1,s,30,15,0,1  330 SOUND 4,s*0.5,30,15,0,1    340 RETURN