COMAL-80-AUTORUN-LOADING
--------------------------------------------------------------------------------------------------
TOOL: 		COMAL-80-C64 {Version 2.01}
Language: 	COMAL - Structured BASIC
Extra:		-
Author: 	Misel Zivanovic
Note:		(C) 22nd March 2026  - www.lived.ch, mzretro.ch
---------------------------------------------------------------------------------------------------

So far we had to make user to press the enter key in order to load our 2nd part of the program or
actually we would have to do it for any parts of the program.

Luckily, we can add a short AUTORUN routine to our code as a procedure and have the code
automatically loaded and run when we need it.

Sure, this could've been done more fancy, but also like this it is doing its job perfectly fine. 


0010 autorun
0020 PROC autorun CLOSED
0040  // ----------------------
0050  // c64 version of autorun
0060  // ----------------------
0080  PAGE
0090  USE graphics
0100  USE system
0115  textcolor(6); q5$:=CHR$(34)
0120  i5$:="loading active, wait..."
0130  j5$:="run"; h5$:=CHR$(19)
0140  n5$:="(program)"
0160  PRINT AT 4,1: j5$;q5$+n5$+q5$+h5$
0180  POKE 649,3
0190  POKE 631,13
0200  POKE 198,1
0210  CURSOR 1,1
0220  textcolors(14,6,6)
0230  REPORT 1,""155""+i5$(1:23)
0240 ENDPROC autorun
---------------------------------------------------------------------------------------------------