Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.sys.apple2    |    Discussion about Apple II micros    |    56,720 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 54,928 of 56,720    |
|    Michael 'AppleWin Debugger Dev' to All    |
|    Re: Flash the whole screen?    |
|    17 Aug 21 19:33:09    |
      From: michael.pohoreski@gmail.com              On Tuesday, July 13, 2021 at 9:13:11 AM UTC-7,       > But my question is, how do you set the entire SCREEN to INVERSE, FLASH or       NORMAL?              Here is a small machine language program that will **non-destructively**       change set a 40-column screen to normal, inverse, or flash depending on the       current mode. Included is a small demo to demonstrate usage.              CALL-151       300:A5 32 29 C0 4A 4A 4A A8 A2 00 BD 00 04 20 57 03       310:9D 00 04 BD 80 04 20 57 03 9D 80 04 BD 00 05 20       320:57 03 9D 00 05 BD 80 05 20 57 03 9D 80 05 BD 00       330:06 20 57 03 9D 00 06 BD 80 06 20 57 03 9D 80 06       340:BD 00 07 20 57 03 9D 00 07 BD 80 07 20 57 03 9D       350:80 07 E8 E0 78 D0 B3 84 FF 48 4A 4A 4A 4A 4A 18       360:65 FF A8 68 59 6A 03 A4 FF 60 00 00 40 40 80 80       370:C0 00 40 40 00 00 C0 C0 80 00 00 00 00 00 00 00       380:00 00 C0 80 80 C0 00 00 00 00       E000G       1 TEXT:HOME:VTAB 10:GOTO 10       2 FOR Y=0 TO 7:FOR C=0 TO 31:POKE 1024 + 128*Y+C,C + 32*Y:NEXT:NEXT:RETURN:REM       ASCII TABLE       3 GET A$:CALL 768:? "PRESS RETURN TO CONT":GET A$:NORMAL:CALL 768:RETURN       10 GOSUB 2:INVERSE:? "PRESS RETURN FOR INVERSE":GOSUB 3       20 GOSUB 2:FLASH:? "PRESS RETURN FOR FLASH":GOSUB 3       30 GOSUB 2:NORMAL:? "PRESS RETURN FOR NORMAL":GOSUB 3       RUN              I can post the source if anyone is interested.              m.              --- SoupGate-Win32 v1.05        * Origin: you cannot sedate... all the things you hate (1:229/2)    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca