P712 CEEFAX 712 Sun 22 Dec 16:43/14 |B2201204|a16T.M7P3|j24BBBC332k|l43000 DISK NUMBER : DISK CATEGORY : OUTPUT÷e FILENAME : P.M7P3÷e ÷i ÷e MACHINE BBC Micro÷ j PERIPHERALS Scre en÷e TAPE COMPATIBILITY Y es÷e ÷e ÷e LINENUMBER 22100-22140÷e NAME ÷e PROCm7pr int3(flashingflag*,column%,row%,foregrou nd*,text$)÷e ÷e AUTHOR Scratcherd & Downs÷e R JFERENCE Procedure a nd Function Library÷e ÷e CLASSIF ICATJON Mode 7 Output÷e DESCRJPTJON To prim t text on a mode 7 screen at a÷e given positio n in the specified colour.÷e The text will be centred if the column÷e |cP712 CEEFAX 712 Sun 22 Dec 16:41/35 |B2202204|a16T.M7P3|i24BBBC332k|l4335A is greater than 37, the text will flash÷e if flashingflag% is TRUE .÷e ÷e PARAMETERS REQUIRED flashingflag%:=TRUE, the text will flash÷i =FALSE, the text will no t÷e flash÷e column* : column posit ion for text.÷e (38 or more to c entre).÷e row% : row position for text÷ e fore ground% : number of required colour÷e (between 1 and 7)÷e text$ : the te xt to bj printed ÷e PARAMETERS RETUR NED None÷e ÷e GLOBAL V ARJABLES REFERENCED None÷e GLO|cP712 CEEFAX 712 Sun 22 Dec 16:40/38 |B2203204|a16T.M7P3|i24BBBC332k|l436B9BA L VARIABLES AFFECTED None÷e ÷e MODE DEPENDENCE Mode 7÷ e ÷i OTHER MODULES CALLED None÷e OTHER MODULES RELATED include P.M7P1, P.M7P2÷e P.M7D0, P .M7D1, P.M7D2, P.M7D3÷e ÷e COMME NUS Although the te xt begins at÷e row%,column*, the TWO columns÷e immed iately before the beginning of the÷e text are also required. (For the code to÷e give the cor sect colour and the code to÷e set flashing.) E nurse that there is÷e sufficient space.÷e ÷e TYPICAL CALL AND LISTING÷e ÷e 10 MODE 7÷e 20 PROCm7prin t3(TRUE,38,20,2,"There has been an e|cP712 CEEFAX 712 Sun 22 Dec 16:48/20 |B2204204|a16T.M7P3|i24BBBC332k|l43A14rr or")÷e ÷e 9999 STOP÷e 22100 DEF PROCm7print3(flashingflag%,column%, row%,foreground%,text$)÷e 22105 IF c olumn*>37 THEN column%=(36-LEN(text$)) D JV2÷e 22110 VDU31,column%-2,row%÷e 22115 IF flashingflag% THEN VDU136 EL SE VDU128÷e 22120 VDUforeground%+128 ÷e 22125 PRINT text$;÷e 22130 VD U135,137:PRINT÷e 22135 ENDPROC÷e 22140 ÷e|c