PureBoard

Code: Alles auswählen

*==============================================================================================================================================
	 |*const  |#OFF,0
	 |*const  |#GREEN,1
	 |*const  |#YELLOW,2
	 |*const  |#RED,3
	 |*const  |#UP,-1
	 |*const  |#DOWN,1
	 |*const  |#TRUE,1
	 |*const  |#FALSE,0
*==============================================================================================================================================
	 |start	  |3.94,"CDAudioName",1				// Diese Änderung gilt für Version 3.94 und wird in der Parserrunde 1 verwendet
	 |compare |this\object,#PROCEDURECALL
	 |exitif  |<>                             		// Verarbeitung beenden wenn kein Prozeduraufruf
	 |compare |this\name,"CDAudioName"			// Vergleichen ob Prozedur ist CDAudioName
	 |exitif  |<>
	 |set	  |this\name,"AudioCDName"			// Auf AudioCDName ändern
	 |bulb	  |#GREEN,"CDAudioName has been renamed to AudioCDName"
	 |end	  |
*----------------------------------------------------------------------------------------------------------------------------------------------
	 |start	  |3.94,"WriteStringN",1
	 |define.s|file,""
	 |compare |this\object,#PROCEDURECALL
	 |exitif  |<>
	 |compare |this\name,"WriteStringN"
	 |exitif  |<>
usefile	 |movethat|#UP
	 |compare |that\bof,#TRUE
	 |gotoif  |=,nousefile
	 |compare |that\scope,this\scope
	 |gotoif  |<>,nousefile
	 |compare |that\object,#PROCEDURECALL
	 |gotoif  |<>,usefile
	 |compare |that\name,"UseFile"
	 |gotoif  |<>,usefile
	 |set	  |file,that\parm1
	 |newparm |0,1						// Vor dem ersten Parameter einen neuen Parameter einfügen
	 |set	  |this\parm1,file				// Die Variable file wäre eigentlich gar nicht nötig gewesen
	 |bulb	  |#GREEN,"WriteStringN has a file-parameter now"
	 |exit	  |
nousefile|bulb	  |#RED,"No UseFile could be found to correct WriteStringN"
	 |end	  |
*----------------------------------------------------------------------------------------------------------------------------------------------
	 |start	  |3.94,"UseFile",2
	 |compare |this\object,#PROCEDURECALL
	 |exitif  |<>
	 |compare |this\name,"UseFIle"
	 |exitif  |<>
	 |disable |
	 |bulb	  |#GREEN,"UseFile has been disabled"
	 |end	  |
*----------------------------------------------------------------------------------------------------------------------------------------------
	 |start   |3.94,"UseImage",2
	 |include |3.94,"UseFile",2
	 |	  |"UseFIle","UseImage"
	 |	  |"UseFile has been disabled","UseImage has been disabled"
	 |end	  |
*----------------------------------------------------------------------------------------------------------------------------------------------