home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.whtech.com
/
ftp.whtech.com.tar
/
ftp.whtech.com
/
articles
/
limanews
/
CCPRSET.TXT
< prev
next >
Wrap
Text File
|
2006-10-19
|
3KB
|
79 lines
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