10 IFPAGE<>&1900:PAGE=&1900:CHAIN"Nowhere" 20 ENVELOPE1,2,0,0,0,0,0,0,126,253,255,253,126,80 30 ENVELOPE2,2,0,0,0,0,0,0,126,246,206,1,126,10 40 ENVELOPE3,5,0,0,0,0,0,0,127,248,249,250,120,80 50 DIMA%(3),B%(3),C%(3),D%(3),G%(3),F%(3) 60 C%=0 70 B%(0)=&2000:B%(1)=&2192:B%(2)=&227A:B%(3)=&2308:H%=0 80 J%=&300:REPEAT:FORP%=-8TO-5:IFADVAL(P%)>0ANDC%(ABS(P%)-5)=0PROCk(ABS(P%)-5) 90 NEXT:J%=0:UNTILC%=4:OSCLI"EX.!BOOT":END 100 DEFPROCk(L%) 110 O%=B%(L%)?A%(L%):A%(L%)=A%(L%)+1:IFO%<64N%=B%(L%)?A%(L%):A%(L%)=A%(L%)+1:SOUNDL%+J%,ABS(F%(L%)*(O%<>63)),O%*4+1,N%*2:ENDPROC 120 IFO%=255C%(L%)=1:C%=C%+1:ENDPROC 130 IFO%=64G%(L%)=A%(L%):D%(L%)=1:GOTO110 140 IFO%=192ANDD%(L%)=1A%(L%)=G%(L%):D%(L%)=0:GOTO110 150 IFO%=192GOTO110 160 IFO%AND128=128F%(L%)=O%-128:GOTO110 170 ENDPROC