ORIGINALLY PUBLISHED IN LIMA NEWSLETTER MAY 1990
 
           PRINTER SETUP PROGRAM FOR ITEM #4 ON 
        THE CORCOMP DISK CONTROLLER POWERUP SCREEN 
                   by Charles Good 
                 Lima Ohio User Group 
      
     Do you have a CorComp disk controller with the original
CorComp  eprom?  Have you  ever  wondered   if you  could do
something  useful with  the  normally empty  item  #4 on the
CorComp  powerup menu?   You can if you  have a GramKracker,
PGRAM card, or other  gram  device.   The GramKracker  comes
with a short utility  called MSAVE which allows you to write
short TI BASIC  (not extended basic)  programs and have them
show  up on  the powerup  menu  with  a title  of  your  own
choosing  right after extended basic.   With a TI controller
and one MSAVEd program, your powerup menu would read:  PRESS
1 FOR TI BASIC,  2 FOR TI EXTENDED BASIC,  3 FOR YOUR TITLE.
Those  with a  CorComp controller  with CorComp  eprom would
have a powerup menu that lists your first  MASVEd program as
item  #4.    With  MSAVE, your  short  TI BASIC  program  is
attached to the end of the extended basic code and loaded in
to the gram  device along with  extended basic.    Such a TI
BASIC  program  will  show  up as  #4  on the  CorComp  disk
controller  powerup menu.    I don't know if the PGRAM comes
with something  like MSAVE,  but extended  basic  disk files
modified with   MSAVE on  a GramKracker  should  work  on  a
PGRAM. 
      
     Here is a printer  setup program for  MSAVE which I have
showing on my  CorComp controller powerup menu as  "4 PRINTER
SETUP."^^^It is designed  for the Star SG10,  so you may have
to modify the NLQ code  on line 300.   The MSAVE utility adds
CALL BYE to TI BASIC programs  added to the powerup menu.  By
pressing #7 from the program below,  the program goes to line
360 which resets the computer and brings up the powerup menu.
      
          100 OPEN #1:"PIO" 
          110 PRINT "PRESS 1 for NLQ":
          : 
          120 PRINT "PRESS 2 for CONDE
          NSED":: 
          130 PRINT "PRESS 3 for EMPHA
          SIZED"::
          140 PRINT "PRESS 4 for DOUBL
          E STRIKE"::
          150 PRINT "PRESS 5 for EXPAN
          DED"::
          160 PRINT "PRESS 6 for PRINT
          ER RESET"::
          170 PRINT "PRESS 7 for POWER
          UP MENU"::::
          180 CALL KEY(0,K,S)
          190 IF S=0 THEN 180
          200 IF K=49 THEN 300
          210 IF K=50 THEN 310
          220 IF K=51 THEN 320
          230 IF K=52 THEN 330
          240 IF K=53 THEN 340
          250 IF K=54 THEN 350
          260 IF K=55 THEN 360
          270 GOTO 180
          300 PRINT #1:CHR$(27)&"B"&CH
          R$(4)
          305 GOTO 180
          310 PRINT #1:CHR$(27)&CHR$(1
          5)
          315 GOTO 180
          320 PRINT #1:CHR$(27)&"E"
          325 GOTO 180
          330 PRINT #1:CHR$(27)&"G"
          335 GOTO 180
          340 PRINT #1:CHR$(27)&"W"&CH
          R$(1)
          345 GOTO 180
          350 PRINT #1:CHR$(27)&"@"
          355 GOTO 180
          360 CALL BYE