Listing of file='INSTR.MAC;04' on disk='vmedia/life2-sector.ccvf'
;=========================================================== ; ; PRINT DIRECTIONS ; ;=========================================================== ; CURSCCI EQU 8 NORMCCI EQU 2 ; LF EQU 10 CR EQU 13 BLANK EQU 32 READY EQU 81FFH EXTRN GETCH,OSTR ENTRY INSTR INSTR: LXI H,INSMSG CALL OSTR ;DISPLAY THE INSTRUCTIONS 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