01DELACOLTALUMTAACLINCLOLULUMDSTARF <<MULTICOLOR GRAPHICS 0 SCREEN GENERATOR$$(c)1983 by Richard J. Kalagherh(>:A%,;(&ҠΠҠ>(h(%NOW...CREATE A CUSTOM SCREEN IN GR.0SS(KWITH EACH OF THE 24 LINES OF TEXT IN A DIFFERENT COLOR. AFTER CREATING THEol(dCUSTOM SCREEN, SAVE IT TO DISK AS A SUBROUTINE WHICH YOUR CAN THEN ADD TO YOUR OWN BASIC PROGRAMS.o(SS(KFIRST YOUR ARE PROMPTED TO ENTER A LINE NUMBER (0-23), THEN A BACKGROUNDPP(HCOLOR (0-15). NOW ENTER THE LUMINANCE VALUE (ODD/0-14) AND THE CHARACTERSS(KLUMINANCE (ODD/0-14). THE SELECTED LINE WILL NOW CHANGE COLOR. IF YOU DONK(CNOT LIKE THE COLOR, ENTER THE SAME LINE NUMBER AND MAKE CHANGES.N( 7-@@#7(PRESS [] TO CONTINUE... F:B2y,@@ h(>:A%,;(&ҠΠҠ>(h(%WHEN THE SCREEN IS JUST THE WAY YOU  UR(JWANT IT, ENTER A 'NEGATIVE' LINE NUMBER (eg. -22) TO SAVE THE SCREEN.U( RR(JIF YOU SAY 'YES' AT THE PROMPT, THEN INSERT A WORK DISK IN YOUR DRIVE ANDSS(KANSWER THE QUESTIONS. A SUBROUTINE WILL BE SAVED ON YOUR WORK DISK WHICHTQ(ICAN THEN BE MERGED IN YOUR OWN BASIC PROGRAMS USING THE 'ENTER' COMMAND.T(QQ(ITHE SUBROUTINE WILL OCCUPY PROGRAM LINES 30000-30260 IN YOUR PROGRAM. gO(GPUT A STATEMENT 'GOSUB 30000 IN YOUR PROGRAM TO GET THE CUSTOM SCREEN.c-@Ag 2-@@#2(PRESS [] TO BEGIN! F:B2y,@@6-A6-%@$;@,2 B< >:A%,F-@#P-@Z  Line No. d n-@ x  Ҡ #Ap6-@-@@-@"-@%  6-@$ -@@  BLACK to WHITE-@@  > 0 2 4 6 8 10 12 14 <-@@ NEGATIVE LINE NO. = SAVE"-@@, A 6  LINE NUMBER@J BO!@#A T-@@^ BACKGROUND COLORh Ar|!@A -@@  A@ BACKGROUND LUMINANCE!! )!@A -@@" CHARACTER LUMINANCE A!! )!@A %@$% %" B0-@@"@-@  & 0 A: 0-GreyD 1-GoldN2-OrangeX 3-Redb 4-Pinkl5-Violetv 6-Blue 7-Blue8-Light Blue9-Blue-Green 10-Aqua11-Green-Blue12-Green13-Yellow-Green14-Orange-Green15-Orange0uOOSUBROUTINE TO LOAD MACHINE CODE, SET INTERRUPT BITS, AND ENABLE THE DLI'S1uU. >:A%,INITIALIZING... PLEASE WAITUYOU CAN REMOVE THIS LINE IF YOU WANT5u7 #Bp!-@%"3Ad%7 :u6-A6-%@$u6-?:A,Du""TELL ANTIC WHERE DLI CODE ISNuAA(XuA@buNOW SET INTERRUPT BITSlu%%6-F:A`,%AV$F:Aa,vu-%@%@(uA0u u%%SET INTERRUPT BIT ON FIRST LINEu%@AuENABLE DLIuBBAu >:A%,u!!HANDLE LINE 0 AS BACKGROUNDuAF:,uA F:,u$u''72,138,72,174,156,6,189,176,6,141u((10,212,141,24,208,189,200,6,141,23u))208,238,156,6,104,170,104,64,11,104u&&169,7,160,168,162,6,32,92,228,96v''169,1,141,156,6,76,98,228,148,148 v--148,148,148,148,148,148,148,148,148,148v--148,148,148,148,148,148,148,148,148,148 v%%148,148,10,10,10,10,10,10,10,10*v##10,10,10,10,10,10,10,10,10,104v10,10,10,10,10,10,0,0,0,0y!!ROUTINE TO SAVE OBJECT CODEy BCLEAR TRAPS"y >:A%,,y)) !PLEASE DON'T PRESS ANY KEYS UNTIL6y$$ SCREEN OPERATION IS COMPLETE@y-@A Jy >:A%,Ty-@@^y6-Bphy-@ ry  DATA |y-@ y F:Ad%$@%,y@  ,y y y6-%@y y CONTy-@yAB@&yAB@y >:A%,y2 2 &DO YOU WANT TO SAVE THIS CUSTOM SCREENyB:,"B0z7@<@,0Y z TURN OFF COLORS DURING I/OzBB@dz  DISK OR CASSETTEz&z$$7@<@,4CB+z;@,6.D:0z  ENTER A FILE NAME:z