Texas Instruments PHP 1240 Bedienungsanleitung Seite 83

4P
TEXAS INSTRUMENTS
Het volgende deel, de regels 380 t/m 430, printen een bepaalde re-
cord. Regel 400 controleert o! de gekozen record bestaat.
380 REM PRINT A RECORD
390 INPUT "WHICH RECORD? ":RECORD2
400 IF RECORD2>RECORD1 - 1 THEN 610
41 O INPUT
*
1 O,REC RECORD2:X$
420 PRINT "RECORD";RECORD2;"1S ";X$
430 GOTO 230
In het volgende deel printen de regels 440 t/m 520 de hele file in se-
quentiéle volgorde.
440 REM SEQUENTIAL
450 PRINT "THE FOLLOWING ARE THE"
460 PRINT "RECORDS:"
470 RESTORE*- 10
480 FOR RECORD2 = O TO RECORD1 - 1
490 INPUT
*
1 O:X$
500 PRINT RECORD2;X$
51 O NEXT RECORD2
520 GOTO 230
In h et volgende deel stelle n de regels 530 t/m 620 u in staat een re-
cord te wijzigen o! toe te voegen. Regel550 controleert o! de regel die
gewijzigd o! toegevoegd moet word e n n i et h et einde v an de huidige fi-
le overschrijdt.
530 REM CHANGE A RECORD
540 INPUT "WHICH RECORD? ":RECORD2
550 IF RECORD2>RECORD1 THEN 61 O
560 INPUT "NEW VALUE? ":X$
570 PRINT*- 10,REC RECORD2:X$
580 IF RECORD2<RECORD 1 THEN 230
590 RECORD1 = RECORD2
+
1
600 GOTO 230
61 O PRINT "RECORD IS BEYOND THE END OF
THE FILE."
620 GOTO 230
Het laatste dee l, regel 630, sluit de file aan h et einde van h et program-
ma
630 CLOSE
*
1 O
BEWAAR EN HERSTEL EEN BEELD- De regels 100 t/m 210 van het
volgende programma kunnen gebruikt worden als een subroutine in
andere programma's, wanneer u iets wilt bewaren dat u op het
scherm gemaakt hebt. (Zorg ervoor dat u telkens wanneer u h et pro-
gramma gebruikt de file-naam wijzigt, zodat u niet aver een file heen
schrijlt die u eerder bewaard hebt.) Dit programma bewaart en her-
stelt slechts de tekens die zich op h et scherm bevinden. lnformatie o!
geherdefinieerde tekens en kleuren wordt niet bewaard.
1 00 REM SAVE A SCREEN
11 O REM ADD AT END OF THE PROGRAM THAT
PRODUCES THE SCREEN
120 REM
130 REM CHOOSE A UNIQUE FILENAME
140 OPEN
*
20:"device.file-name",INTERNAL
1 50 FOR ROW = 1 TO 24
160 FOR COLUMN = 1 TO 32
170 CALL GCHAR[ROW,COLUMN,X]
180 PRINT
*
20:X
190 NEXT COLUMN
200 NEST ROW
210 CLOSE*-20
81
~ PHP 1240
De regels 220 t/m 330 kan men laten lopen als een onafhankelijk pro-
gramma. Zij roepsen de inhoud van een scherm op dat eerder werd
bewaard en op het scherm gebracht.
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
31 O REM DELA Y TO GIVE TI ME TO LOOK
AT THE SCREEN
320 FOR DELA Y = 1 TO 1 0000
330 NEXT DELA Y
LEES DE CATALOGUS- Het volgende programma stelt u in staat de
catalogus voor een diskette vanuit TI BASIC te lezen e n te printen. De
regels 100t/m 160 geven een eendimensionale reeks van 5 elementen
die corresponderen met de vijf soorten files. De volgende vier regels
vragen om het nummer van het aandrijvingssysteem die de diskette
die u wilt catalogiseren bevate n controleren vervolgens o! u een gel-
dige invoering gedaan hebt.
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 1 70
200 IF A>3 THEN 1 70
Het volgende deel opent de file, leest de diskette-informatie voor re-
cord O en brengt dit op het scherm.
21 O OPEN
'F
1 :"DSK"&STR$[A]&".",INPUT,
RELA TIVE,INTERNAL
220 INPUT
*
1 :A$1,J,J,K
230 DISPLAY "DSK";STR$[A];"- DISKNAME = ";
A$:"AVAILABLE=";K;" USED=";J-K
De rest van h et programma leest de rest van de informatie in de index,
brengt het in de juiste vorm en brengt de catalogus op het scherm.
...
• o 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 8$ = " "&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