Compucolor.org – Virtual Media

Listing of file='INSTR.MAC;03' on disk='vmedia/life2-sector.ccvf'

;===========================================================
;
;           PRINT DIRECTIONS
;
;===========================================================
;
CURSCCI EQU	8
NORMCCI EQU	2
;
LF	EQU	10
CR	EQU	13
BLANK	EQU	32
;
	ENTRY	INSTR

INSTR:	LXI	H,INSMSG
	CALL	OSTR
	XRA	A
	STA	READY
	CALL	GETCH	;WAIT FOR A KEYSTROKE
	RET

;
;------------------------DATA-------------------------------

INSMSG:	DB	6,5,3,20,1,'COMPUCOLOR ',6,1,'LIFE',6,NORMCCI
	DB	3,4,3,'WELCOME TO THE WORLD OF COMPUCOLOR LIFE. IT IS A CYLINDRICAL '
	DB	10,13,'    WORLD; WHAT GOES OFF ONE SIDE COMES BACK ON THE OTHER.'
	DB	10,13,'    '
	DB	'DEFINE THE INITIAL POPULATION BY POSITIONING THE CURSOR AND'
	DB	10,13,'    '
	DB	'PRESSING RETURN. ERASE THE SAME WAY. (THE CURSOR IS RED.)'
	DB	10,13,10,13,'    '
	DB	'PRESS R TO START THE GENERATIONS. PRESS P TO PAUSE.'
	DB	10,13,10,13,'    '
	DB	'LIFE WILL STOP WHEN THE POPULATION STABILIZES OR DIES.'
	DB	10,13,10,10,'    '
	DB	'PRESS ANY KEY TO BEGIN THE DEFINITION STEP...'
	DB	3,64,0,239	;SET CURSOR OFF SCREEN

	END