home bbs files messages ]

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