Appendix A: Error Codes In Ti Basic; Appendix B: Error Codes In Disk Manager Command Module - Texas Instruments Php 1240 Bedienungsanleitung

~
TEXAS INSTRUMENTS
Lines 220 through 330 can be run as an independent program.
They recall the contents of a screen that has bee n previously sa-
ved and put them on the screen.
220 REM REPRODUCE A SCREEN
230 OPEN *30:"device.file-name",INTERNAL
240 FOR ROW = 1 TO 24
250 FOR COLUMN = 1 TO 32
260 INPUT
*
30:X
270 CALL VCHAR[ROW,COLUMN,X]
280 NEXT COLUMN
290 NEXT ROW
300 CLOSE
*
30
310 REM DELAY TO GIVE TIME TO LOOK
AT THE SCREEN
320 FOR DELA Y = 1 TO 1 0000
330 NEXT DELAY
READ THE CATALOGUE- The following program enables you to
read and print the catalogue far a diskette from TI BASIC. Lines 1 00
through 160 set up a single-dimension array of five items corre-
sponding to the five types of files. The next four lines ask far the
number of the drive containing the diskette you want to catalogue
and then check to be sure you've made a valid entry.
1 00 CALL CLEAR
11 O DIM TYPE$[5]
120 TYPE$[1] = "DIS/FIX"
130 TYPE$[2] = "DISIVAR"
140 TYPE$[3] = "INT/FIX"
150 TYPE$[4] = "INTIVAR"
160 TYPE$[5] = "PROGRAM"
170 INPUT "MASTER DISK [1-3]? ":A
180 A = INT[A]
190 IF A<1 THEN 170
200 IF A>3 THEN 170
The next section opens the file, reads the diskette information far
record O, and displays it on the screen.
21 O OPEN
*
1 :"DSK"&STR$[A]&".",INPUT,
RELATIVE,INTERNAL
220 INPUT
*
1 :A$1,J,J,K
230 DISPLAY "DSK";STR$[A];"- DISKNAME = ";
A$:"AVAILABLE=";K;" USED=";J-K
The remainder of the program reads the remaining information in
the index, formats it, and displays the catalogue on the screen.
240 DISPLAY:"FILENAME SIZE TYPE P":
"·
o o • • • • • • • • • • • • • • • • • • • • • • l
250 FOR LOOP = 1 TO 127
260 INPUT* 1 :A$,A,J,K
270 IF LEN[A$] = O THEN 350
280 DISPLAY :A$;TAB[12];J;TAB[17];
TYPE$[ABS[A]];
290 IF ABS[A] = 5 THEN 320
300 B$ = " "&STR$[K]
310 DISPLAY SEG$[B$,LEN[B$]- 2.3];
320 IF A>O THEN 340
330 DISPLAY TAB[28];"Y";
340 NEXT LOOP
350 CLOSE* 1
Appendix A
ERROR CODES IN TI BASIC
The normal errar codes far your computer are given in the User's
Reference Guide. The following codes are far errors that relate to
the disk system.
15
<ffi)
PHP1240
Errar codes are two digit numbers. The first digit indicates the
command or statement involved in the errar, and the second digit
tells you the type of errar.
FIRST
DIGIT GOMMANO OR STATEMENT
O OPEN
1 CLOSE
2 INPUT
3 PRINT
4 RESTORE
5 OLD
6 SAVE
7 DELETE
9 EOF
SE CONO
DIGIT TYPE OF ERROR
O The disk drive specified could not be found.
DEVICE or FILE WRITE PROTECTED -
unprotected the disk by removing the tape
from the write-protect slot, ar remove protec-
tion via the Disk Manager module.
2 BAD OPEN ATIRIBUTE- one or more OPEN
options were illegal or didn't match the file's
actual characteristics.
3 ILLEGAL OPERA TI ON- should not be genera-
ted by the disk system. lt could be caused, ho-
wever, by attempting to perform some illegal
file operation, such as requesting INPUT from
the Thermal Printer.
4 OUT OF SPACE - The diskette is full, or you
are trying t o open more fil es t han are allowed.
5 ATIEMPT TO READ PAST END OF FILE.
6 DEVICE ERROR- may occur if the diskette is
not initialised or is damaged. l t may al so occur
if the system h ad its power disconnected du-
ring a previous print, the disk drive unit is not
functioning properly, etc.
7 FILE ERROR - the indicated file or diskette
doesn't exit or you are trying to read a BASIC
file as if it were data.
Appendix B
ERROR CODES IN THE DISK MANAGER GOMMANO MODULE
lf an errar code occurs while you are using the Disk Manager Com-
mand Module, the errar codes may have different meanings from
those listed in Appendix A.
OPEN errors- An errar in an OPEN statement will generate an er-
rar code from 00 to 07, and the meanings correspond to those li-
sted under SECOND DIGIT in Appendix A.