home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / DigitalSounds / M-HEADROOM-ROCKS / M-HEADROOM-ROCKS.0811 (.txt)
Encoding:
Commodore BASIC  |  2019-04-13  |  48.7 KB  |  4 lines
  1. 34348 LISTSQRPEEK/)+ "L ¿J»}\BF0ì0ìWΩµ/╨µ0`▒/ "ON-***ERROR***-***ERROR******ERROR***.MID$***ERROR******ERROR******ERROR***COSSTEP
  2. 56030 RND+^PEEK+***ERROR***THENUUf-***ERROR***SQR++***ERROR******ERROR******ERROR***1SQRLETvS5fgvUgzRUN++CONTRND***ERROR***PEEK`&***ERROR***SQRTHENIF***ERROR******ERROR******ERROR******ERROR***COS***ERROR***LOG***ERROR******ERROR***SQRDEFT#Eg+READxGOTO+-RNDRNDSQRx-***ERROR******ERROR***RNDREADfvz-***ERROR***RND0COS***ERROR******ERROR******ERROR***++vDWRUN+NOTLETGOTO++***ERROR***RND(EXP***ERROR******ERROR******ERROR******ERROR***SQR+-***ERROR***RND!SQR***ERROR***+`,vT#5wwSTEPRUN++RNDLOG***ERROR***GORNDRND***ERROR******ERROR***RND+LETLETGOTOCONT+-SQR+-RNDRND***ERROR***SQR++NOTCONT-RNDSQR++SQR+***ERROR***RND***ERROR***+"¿èπ¬)w¬¬ÿêܬ¿zΣ¬)╗║½╗¬½╗╗¬π╗,¬½║¬¬½╗╗║½¬¬π╗!⌐Σ¬$╗⌐wèΩ¬!⌐Φ¬$╗¬½╗Σ¬"RND+***ERROR***RND'+RNDRNDSQR++STEP***ERROR***+/SQRRNDSQRPRINT#++SQR+-+READxLETwCONT***ERROR***+2-RND-RNDRNDSQR++RND++-++RNDSQRSQR+***ERROR***RND%EXP***ERROR***RND+-RND++%SQR++LETPRINT***ERROR***+-GOTOREADCONTRNDSQR+SQR+RUN+RNDRNDSQR***ERROR***+-NOTGOTOCONTGOTO+-++RNDSQR+-LOG***ERROR***RNDRND8EXP***ERROR***SQR+-++RND++SQR++PRINT#wREADyREADzSQR++RNDSQR***ERROR***+!-***ERROR***RND***ERROR***+5****ERROR******ERROR***'***ERROR***
  3. ***ERROR***z***ERROR***?***ERROR***ANDTAB(***ERROR***?***ERROR******ERROR***nvUSR***ERROR***-`3DIMCONTzRNDSQRCOS***ERROR***NOT***ERROR******ERROR******ERROR***g3FzCOSRND+SQRCOSNEWCOS***ERROR******ERROR***MID$+gDIMgDj+COS***ERROR******ERROR******ERROR******ERROR***RND+SPC(fvFVxRND+RND***ERROR******ERROR***STR$>***ERROR******ERROR***+DIMu&PB 5SzTHENEXPRND***ERROR***^***ERROR******ERROR***COS***ERROR***COS***ERROR***+POSSPC(TOvTAB(DIM***ERROR***+`***ERROR***--***ERROR***SIN***ERROR******ERROR******ERROR***RND***ERROR***LEFT$***ERROR***DIM***ERROR***xv+NOTRUNwNOTjLOGRNDRNDEXPUSR{RND***ERROR***RND***ERROR***~***ERROR***[RUN+ztkwwSQRAND<LISTRUN***ERROR***IF***ERROR***SQRSQRz***ERROR******ERROR***+-***ERROR***COSRNDEXP/+-RNDRNDy***ERROR***&SQRzNOT-TO-SGNRNDSTEP***ERROR***COS***ERROR***-EXP***ERROR***THENz***ERROR***f-+"~d«J彬¡║╗¬¬Ü║╖¬║g╗¬¬╛║█╛┌┐²╛║½{╗g¬¬ÿ¬╜║ܽªï½º{ç½zÑ[í}ªÜz╛╗½ε╜δ╜¡║┐½º½º¬╗║║½║▀┌∞ù║kΩ½ºzvêf½¬║¬è¬╗¬║꿽▄ε╗╦¬╗▐║è╖i½║║¬vz¿ªF¬fe«ª╗╗ε╗ ∩ ε■ε■∩²δª¬rd3π"`"wvêz¬½εεφ╜█╛ⁿ▐█║謺håfgÜz¬½¬╛½∩²╗╬π╗4ε┌½ººzªgdzê╗Ü║║¬╗½Ω¬π║`a«┌½╗║wxgwwvW║z║╗╛¬▀╗▐╬■╗╗╛δ╗¬¬w¿ê¬x¬gçï½▄¬½╗█╗█╗║½║¬¬¿gvdg¿fåzù½╗╜╗╗▌φε╗δ╗╝ε╦½║¬¬╗⌐ûXº{¬½¬½¡δè╗╜║π╗;¬╗¬¿z║wvçvfwÜܬ¬½╗╗╜▌╗╜φ╗εδ║¬¬%謬¿èπ¬`W║Ö╜║½║╗½δ½║zº½¬║½⌐èêzºwwxè¬⌐¿¬╗¬½½█½φ╛╦╛╗╜║╗║╗¬¬╗║¬½║¿⌐x¬ç¬¬Ü¬╗¬╗½¬½¬╗¬║º½║ꬿÜÜ║¬ºzÖ¬¡Σ╗`'▌═█╜╗╗║╗¬║¬½║z║½║½║½╗║½¬¬zÖ¬vwx¿½¬½º¬╗¬π╗*║╗║╗¬¬z¿¬╗π¬Σ╗"SQR-***ERROR***RND`JNOTCONT-SQR-SQR++-SQRSQR++THENzTHENRUN+SQRzSQR+RNDNOT***ERROR***POSUSR-x{+RUNRNDNOTRUNRND-+***ERROR***EXP***ERROR***EXP***ERROR******ERROR***-SQR-+NOTRNDPRINT#+SQRRND-SQR+NOTRNDSQR-++zRND+THENxREAD+NOTRUNPOS-***ERROR***+"╗¿π¬&½║¬¬½║¬║½#╜╗½π╗$║║╗╗π¬'謽⌐Ü╗⌐π¬!Üπ¬!wΣ¬7½½║¬╗║¿║¬⌐¬½¬è¬╗½¬╗╗¬╗█τ╗,║¬¬bß╗¬¬Ü╗½Σ¬&ܬ⌐z⌐¿π¬!ºπ¬!║π¬*╗½╗¬¿ë¬¬╗½µ╗!¬π╗'║╗¬½¬╗║σ¬$½¬¿ÜΣ¬"POKECONT***ERROR***+!RUN***ERROR***+'-RNDSQR+SQRRND+***ERROR***RND%SQR++RNDRND++SQR"¬╗Σ¬"-SQR***ERROR***+&xNOTRUN+RUNPRINT#***ERROR***+0RNDRND+-SQRSQR+RNDSQR+-SQRRNDRNDSQR+***ERROR***RND&SQR+-SQR+RND***ERROR***+!CONT***ERROR***+"⌐ÿΣ¬!║σ¬`í╗║¬½╗f Ç_√Po½ bK  ┐╨/÷
  4. ■■· ≈ ⌡kå╜gΩkª{ê║è╕k┤«z─¡Iσ~è╖╗èï╖┌«Ü¬║╗╛½┌½Ωz╗¬½¬║è╗║{º½º½⌐¬è⌐ê╗ꬺi¬¬è¬¿½º½¬è║缿½╣Ü║¬¬╗º«╖{δï佬½║½╗è╗ºï║¬¬⌐Ü⌐¬ºÜw¬w¬¿w¬ÿ¬¬║è╗¿½╕¢║ê╗¬½`H¬¬╗║½║½Ω½╗║¬║¬║¬║¬¬║½║w¬¿z║躬å¬w¬ùè¬y╗¬║è║è║¬╗¬¬¿½╗¬¬╗¬╗½║½┌½║╗║⌐½¬½║è║µ¬` ¿è║z¬¬ê¬¿è║謺½╗⌐ܬy¬¬½¬½¬¬½║½╗¬Σ╗!½╗¬¬τ¬!ܵ¬&ܬ⌐¬çèΣ¬!⌐Φ¬+½║½║¬║╗║½║¬π╗Ω¬!║π¬!Üσ¬!êσ¬"THENz***ERROR***+)-++-RNDRNDSQRRNDSQR***ERROR***RND!SQR***ERROR***+%PRINT#++CONTCONT***ERROR***+"½║π¬*╗¬╗╗¬¬╗½║╗π¬#½¬½∞¬)ܬܬë¬êÜëΣ¬!ÜΘ¬!║π¬.½½╗║¬╗½╗½╗║¬½║≤¬%¿Ü¬¬èΩ¬'½║½║½╗½¬╗╗!╗µ¬#║½║∞¬$Ö묿φ¬!╗π¬%║¬¬½║µ╗#║¬║≤¬"NOTRUN***ERROR***+*SQR+-SQRRND+-SQRRND-***ERROR***RND***ERROR***+!SQR***ERROR***+!-***ERROR***+'STEP+STEPCONT++PRINT***ERROR***+*-+-SQR++-SQRRND+***ERROR***RND(SQRRND-RNDSQR++-***ERROR***+!STEP***ERROR***+!CONT***ERROR***+1-SQR++RNDRNDSQR-RNDRNDSQRRNDSQRRND++-***ERROR***+!CONT***ERROR***+!RUN***ERROR***+%SQR-+RNDSQR***ERROR***RND#SQRRNDRNDBSQR***ERROR***+sPRINT***ERROR***+#-SQR+***ERROR***RND"║½π╗'║½╗║¬¬½≤¬!¿Σ¬!Üδ¬'½¬½╗╗║¬µ╗#½¬½Ç)¬$½╗╗½Φ╗!½÷¬$謬⌐Ω¬,╗║╗╗¬╗╗║╗¬╗║σ╗"-RND***ERROR***+!SQR***ERROR***+!NOT***ERROR***+"º║Σ¬`T«¬¿¬¬}╗░√╖O≡√@ Ç x»⌠ ≥÷?▓┐`÷├■[╖δnº╕jg╖zf│{kg╓┌Ä¡è║¬╕╖¬z½½╗}╜εÇ»·Z∩° ²c╛ Ω╗¬┬$`^äó;mτc- ■Ü▀ δ¬▐εújèºfG║çxè╗⌐¬½Σ╗Σεπ╗!║π¬`0wyç¬z¬¬╜╗¬á┐ ┬║∙gε║¬╗▌█╗▐╗║½¬¬ºgÿ¬wù½¬╗½╗╗█╜╦φσ╗!║σ¬-⌐è¿Üw¬¬⌐x¬½╕yσ¬!╗π¬'½║½╗½╗¬║½╗,╗║½╗╗¬¬╗╗¬Ü½¬║¬Φ¬%Üx¬¬èπ¬`½║½¬╗¬║¬║¬¬½║¬¬╗║║½╗╗║½╗¬¬╗║¬¬╗π¬'╗║¬½¬¬èΣ¬#º¬ÜΘ¬*½¬¬½║¬¬½╗║╗½╗-╝╗¬╗╗║¬¬½║║¬║τ¬+ܬ¬⌐謬ꬬ¿σ¬!½π¬#╗╗¬π╗`4¬╗╗║║½¬½½╗║¬╗╗½¬║║¬╗║▄¬¬è¬ï¬*╣ªºw}║笽⌐┐╛ºwz¬╗ª╗╗fê½π╗!╜π╗$║¬¬╗Σ¬&╗║¬╗╗║π¬#⌐xÜΣ¬`!½╗º     [`n▀`ƒ ┼m ■╗½▓┐ ⌠Θ`( ªg┬5Ω┐ ■║« ΩFx¬vDz¬vw¬¿êèπ¬)╗╗∞╗╜█╗╗║π¬`,ëçèܬ¬½▌ε█║
  5. °■ ~┐á»√╗½╛ε█╗╗║¬ÖêwfVvffgê謽¬Φ╗"-RND***ERROR***+`8SQR++RND++-RNDSQR+-RNDRND++RNDRNDSTEP+-SQR+RUN+RND++-RND+PRINT#RUN++LETRUN+NOTw+RND+READ+RNDSQRSTEPCONTSQR++SQRRND+SQR-***ERROR***RND.+-SQR++-++RNDRND++SQRSQR***ERROR***+)POKEz+THENgRUN+LETRUN***ERROR***+%-RND++-***ERROR***+!RND***ERROR***+&RNDRND+-RNDSQR***ERROR***RND"½½π║=w½▌╗ºê¬¬¿è¬¬╗╜╕v¢∩φ╖A"Fwd4hEXP***ERROR***LEN6***ERROR******ERROR******ERROR***SQRNOTGOTOPRINT#vfUDVz++-***ERROR******ERROR******ERROR******ERROR***EXP***ERROR***PEEK<SQRS"6fDVz½╛ δ¬½╗¿weC4EVeVz╛ε█─"***ERROR******ERROR***PEEK=***ERROR***w$#@SPC(fVxGOSUB***ERROR******ERROR***RNDRNDSQR^***ERROR***ABSS4fjREADkSQRSPC(-COS***ERROR***PEEK4***ERROR***GOEXP***ERROR******ERROR******ERROR***v@
  6.