﻿10 L=1
20 IF PEEK(772)=0 THEN GOSUB 900
30 IF INKEY¤="" THEN GOTO 20
40 STOP
900 ON L GOTO 902,905,908,911,914,917,920,923
901 PLAY M1¤,M2¤,M3¤:PRINT"PATTERN:",L-1:RETURN
902 M2¤="L16O6ED#DC#DC#CO5BO6CO5BA#AG#GF#FED#DC#DC#CO4BO5CO4BA#AG#GF#FED#DC#DC#C"
903 M1¤="P":M3¤="P":L=2:GOTO 901
904 M2¤="O3BO4ED#DC#DC#CO3BO4ED#DC#DC#CO3BO4ED#DC#DC#CO3B":L=3:GOTO 901
905 M2¤="O4ED#DC#CFED#ED#DC#CC#DD#ED#DC#CFED#ED#DC#CC#DD#ED#DC#DC#CO3BO4CC#DD#EFED#ED#DC#DC#CO3BO4CC#DD#EF#GG#32"
906 M1¤="L16O2APPPPPPPAPPPO3DPPPO2APPPPPPPAPPPO3DPPPO2APPPO3FPPPEPPPDPPPCPPPO2FPPPEPPPDPPP32"
907 M3¤="L16O4CPPPPPPPCPPPO3APPPO4CPPPPPPPCPPPO3APPPO4CPPPO3APPPAPPPBPPPAPPPDPPPCPPPO2BPPP32":L=3:GOTO 901
908 M2¤="O4AG#GF#FA#AG#AG#GF#FF#GG#AG#GF#FA#AG#AG#GF#FF#GG#AG#GF#GF#FEFF#GG#AA#AG#AG#GF#GF#FEFF#GG#AA#AG#32"
909 M1¤="O2C#PPPDPPPPPPPO3DPPPFPPPPPPPO2FPPPO3DPPPFPPPA#PPPAPPPEPPPDPPPO2A#PPPAPPPGPPP32"
910 M3¤="O3EPPPF#PPPPPPPBPPPO4DPPPPPPPO3APPPBPPPO4DPPPC#PPPCPPPC#PPPO3APPPGPPPFPPPEPPP32":L=4:GOTO 901
911 M3¤="O3DPPPPPPPO3A#O4A#O3A#O4A#O3A#O4A#O3A#O4A#O3APPPPPPPO4A#O5A#O4A#O5A#O4A#O5A#O4A#O5A#O4APPPPPPP32"
912 M2¤="O4AO3AG#AG#AG#AG#AG#AG#AG#AO4AAG#AG#AG#AG#AG#AG#AG#AG#AAA#AG#AA#AG#"
913 M1¤="O2FPPPPPPPO3A#O4A#O3A#O4A#O3A#O4A#O3A#O4A#O3APPPPPPPO4A#O5A#O4A#O5A#O4A#O5A#O4A#O5A#O4APPPPPPP32":L=5:GOTO901
914 M3¤="O3APA#PBPO4CPC#PPPO5AA#BO6CC#CO5BA#AP32"
915 M2¤="AA#AG#AA#AG#AA#BO5CC#CO4BA#AA#BO5CC#CO4BA#32"
916 M1¤="O3APG#PGPF#PFP32":L=6:GOTO901
917 M2¤="O4APC#DC#DC#DC#DC#DC#DC#DO5DDC#DC#DC#DC#DC#DC#DC#DDD#DC#DD#DC#32"
918 M1¤="O3F#PPPPPPPO4D#O5D#O4D#O5D#O4D#O5D#O4D#O5D#DPPPPPPPD#O6D#O5D#O6D#O5D#O6D#O5D#O6D#O5DPPPPPPP32"
919 M3¤="O3DPPPPPPPO4D#O5D#O4D#O5D#O4D#O5D#O4D#O5D#DPPPPPPPD#O6D#O5D#O6D#O5D#O6D#O5D#O6D#O5DPPPPPPP32":L=7:GOTO901
920 M2¤="DD#DC#DD#DC#DD#EFF#FED#DD#EFF#FED#32"
921 M1¤="O4DPC#PCPO3BPA#P32"
922 M3¤="O4DPD#PEPFPF#PPPO6DD#EFF#FED#DP32":L=8:GOTO901
923 STOP
