Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!cica!ctrsol!ginosko!uunet!portal!cup.portal.com!Sirald From: Sirald@cup.portal.com (Andrew Lionel Dalrymple) Newsgroups: comp.sys.apple Subject: [HELP NEEDED]: Sending DOS commands after changing modes... Message-ID: <20399@cup.portal.com> Date: 13 Jul 89 21:38:23 GMT Organization: The Portal System (TM) Lines: 56 [HELP NEEDED]: Sending DOS commands after changing modes... ____________________________________________________________ Having a curious problem here that has cropped up more than once in the past I'm sure. It's called doing something prior in a program you've written that unintent- ionally locks out access to DOS commands. What I have writ- ten here is a text-mode changing program for the LASER 128 computer. It uses combinations of Open-Apple (LA) and the Closed-Apple (RA) keys to dertermine what you want it to do. In this case, any of the four states doesn't appear to mat- ter. All that matters is that I moved from 40col to 80col, and the program some how has blocked DOS access. Even if I put the 'RECONNECT DOS 3.3' call (40383) into the program right before the BRUN command, the call quitely ends the programs run. Below is a copy of the program. I don't know if other Apple 2 systems have this feature or not, but the ON/OFF, C025/C024, X=PEEK 49189/49188, does interlace - ie. (DOUBLE-HIRES) text. A bit blury for high-persistant mon- itors, but better with low-persistance and a polarized glare guard. I would be most appreciative if someone has an idea as to why CTRL-D commands are ignored, but RUN, LIST, and the others are intact. Cordially, A. DALRYMPLE sirald@cup.portal.com sun!portal!cup.portal.com!sirald ____________________________________________________________ 300 HOME 400 LA = PEEK ( - 16287):RA = PEEK ( - 16286) 500 IF LA > 160 AND RA > 160 THEN GOTO 1500: REM INTERLACE/INVERSE 600 IF LA < 160 AND RA > 160 THEN GOTO 1600: REM INTERLACE/NORMAL 700 IF LA > 160 AND RA < 160 THEN GOTO 1700: REM PLAIN/INVERSE 800 IF LA < 160 AND RA < 160 THEN GOTO 1800: REM PLAIN/NORMAL 1500 PR# 3:X = PEEK (49189): PRINT CHR$ (15): HOME : PRINT : PRINT 1501 PRINT "INTERLACED text and INVERSE background." 1502 GOTO 9999 1600 PR# 3:X = PEEK (49189): PRINT CHR$ (14): HOME : PRINT : PRINT 1601 PRINT "INTERLACED text and NORMAL background." 1602 GOTO 9999 1700 PR# 3:X = PEEK (49188): PRINT CHR$ (15): HOME : PRINT : PRINT 1701 PRINT "PLAIN text and INVERSE background." 1702 GOTO 9999 1800 PR# 3:X = PEEK (49188): PRINT CHR$ (14): HOME : PRINT : PRINT 1801 PRINT "PLAIN text and NORMAL background." 9999 PRINT CHR$ (4)"BRUN AE" ____________________________________________________________