; coco main header vr 2
	opt	forwardrefmax

#include	coco\main_lib.txt	;46218
#include	coco\cg3_display.txt	;48507
#include	coco\cg3_font.txt	;4553
#include	coco\disk_lib.txt	;43056
#include	coco\sid_mml.txt	;17039


#memstart	28672	;$7000
	org	$3000	;prg start
start
; code here

	init_sidmml()

	playsid_mml(#1,#4,#2, #2, #music1_1)
	playsid_mml(#2,#4,#2, #2, #music1_2)

	cls(#0,#1)
	print(#0,#1,#0,#hello)

doloop

	bra	doloop



hello	fcn	'HELLO COLOR COMPUTER DEVELOPER'	


music1_1	
	FCC	"P1.P2O2L8FO1L2.FP8L2BO2CO3L8CO2CDE-EFF#GO3CO2CDE-E"
	FCC	"FF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#"
	FCC	"GO3CO2CDE-EFF#GP1O3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#G"
	FCC	"O3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3C"
	FCC	"O2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2C"
	FCC	"DE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-"
	FCC	"EFF#GFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2C"
	FCC	"FO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1F"
	FCC	"GA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-"
	FCC	"AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1L2.FP8L2B"
	FCC	"O2CO3L8CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#"
	FCC	"GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GP1O3CO2CDE-EFF#G"
	FCC	"O3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3C"
	FCC	"O2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2C"
	FCC	"DE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-"
	FCC	"EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GFO1FGA-AB-BO2CFO1FGA-AB-BO2C"
	FCC	"FO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1F"
	FCC	"GA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-"
	FCC	"AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-BO2CFO1FGA-AB-"
	FCC	"BO2CFO1FGA-AB-BO2CFO1L2.FP8L2BO2CO3L8CO2CDE-EFF#GO3CO2CDE-E"
	FCC	"FF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#GO3CO2CDE-EFF#"
	fcn	"GO3CO2CDE-EFF#GP32"

music1_2
	FCC	"P2O4L4AP4AP4O5AP2L2.B-L2BO6CO5L32CFACL16CP16CP16O4B-"
	FCC	"P16O5CO4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-"
	FCC	"P16O5CO4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-"
	FCC	"P16O5CO4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-"
	FCC	"P16O5CO4B-P16O5E-P1.L4CO4B-AGFEL8DP16CP16O3L2B-P8L8B-L16AL8B-"
	FCC	"P16L2B-P2P8O5L4CO4B-AGFEL8DP16CP16O3L2B-P8L8B-O4L16CL8DP16L2E"
	FCC	"P32L16BL32GECO3AECO2GCP4.P32O5E-P16P32E-P16P32E-P16P32E-P16P32D"
	FCC	"P32E-P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32F"
	FCC	"P32E-P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32D"
	FCC	"P32E-P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32F"
	FCC	"P32GP2.P32L16E-L8FP4P16L16B-O6CP16L2.CP16L8CDL4CDE-DCO5L8B-"
	FCC	"P16L2.AP2P16L16B-O6CP16L2.CP16L8CDL4CDE-DFE-GL16FP16L4AL16G"
	FCC	"P16L4B-L8AP16L16GP4L8FP16L16E-P4L8DP16L16CP4O5L8B-P16L16AP4O6L1.C"
	FCC	"P2.O5L8B-P8B-P16AP4.P16B-P8B-P16O6CP4.P16O5B-P8B-P16AP4.P16B-"
	FCC	"P8B-P16O6CP4.P16O5L2.B-L2BO6CO5L32CFACL16CP16CP16O4B-P16O5C"
	FCC	"O4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5C"
	FCC	"O4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5C"
	FCC	"O4B-P16O5E-P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5C"
	FCC	"O4B-P16O5E-P1.L4CO4B-AGFEL8DP16CP16O3L2B-P8L8B-L16AL8B-P16L2B-"
	FCC	"P2P8O5L4CO4B-AGFEL8DP16CP16O3L2B-P8L8B-O4L16CL8DP16L2EP32L16B"
	FCC	"L32GECO3AECO2GCP4.P32O5E-P16P32E-P16P32E-P16P32E-P16P32DP32E-"
	FCC	"P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32FP32E-"
	FCC	"P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32DP32E-"
	FCC	"P2.P32L16E-L8FP4.P16L32E-P16P32E-P16P32E-P16P32E-P16P32FP32G"
	FCC	"P2.P32L16E-L8FP4P16L16B-O6CP16L2.CP16L8CDL4CDE-DCO5L8B-P16L2.A"
	FCC	"P2P16L16B-O6CP16L2.CP16L8CDL4CDE-DFE-GL16FP16L4AL16GP16L4B-"
	FCC	"L8AP16L16GP4L8FP16L16E-P4L8DP16L16CP4O5L8B-P16L16AP4O6L1.CP2.O5L8B-"
	FCC	"P8B-P16AP4.P16B-P8B-P16O6CP4.P16O5B-P8B-P16AP4.P16B-P8B-P16O6C"
	FCC	"P4.P16O5L2.B-L2BO6CO5L32CFACL16CP16CP16O4B-P16O5CO4B-P16O5E-"
	FCC	"P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5CO4B-P16O5E-"
	FCC	"P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5CO4B-P16O5E-"
	FCC	"P4.CP16CP16O4B-P16O5CO4B-P16GP4.O5CP16CP16O4B-P16O5CO4B-P16O5E-"
	fcn	"P4P32"



; dont erase below!
; end of program

cocoromend

;included files get dumped here

	end	start

