8-Bit Software Online Conversion

Tune. Nowhere Man - Listing

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