Texas Instruments PHP 1240 Bedienungsanleitung Seite 65

~
TEXAS INSTRUMENTS
La sezione successiva, linee 230 - 370, consente all'utilizzatore del
programma di scegliere cosa fare.
230 REM CONTROL SECTION
240 PRINT
250 PRINT "ENTER 'S' TO PRINT FILE«
260 PRINT "SEQUENTIAL«
270 PRINT "ENTER 'C' TO CHANGE OR ADO«
280 PRINT "A RECORD.«
290 PRINT "ENTER 'R' TO PRINT A RECORD.«
300 PRINT "ENTER 'L' TO LEAVE THE«
31 O PRINT .. PROGRAM«.
320 INPUT .. youR CHOICE:« :V$
330 PRINT
340 IF Y$="S" THEN 440
350 IF Y$="C" THEN 530
360 IF Y$="L" THEN 630
370 IF V$ "R" THEN 230
La sezione successiva, linee da 380 a 430, stampa un Record.
La linea 400 verifica che il Record scelto esista.
380 REM PRINT A RECORD
390 INPUT "WHICH RECORD? ":RECORD2
400 IF RECORD2 RECORD1 - 1 THEN 61
O
410 INPUT*10, REC RECORD2:X$
420 PRINT "RECORD«; RECORD2; "IS«; X$
430GOTO 230
La sezione successiva, linee 440-520, stampa l'intero file in ordine
sequenziale.
440 REM SEQUENTIAL
450 PRINT "THE FOLLOWING ARE THE"
460 PRINT "RECORDS:"
470 RESTORE *10
480 FOR RECORDS2=0 TO RECORD1-1
490 INPUT*10:X$
500 PRINT RECORD2 :X$
51
O
NEXT RECORD2
520GOT0230
La sezione successiva, linee da 530 a 620, consente di cambiare o ag-
giungere un Record.
La linea 550 verifica che la linea da cambiare o da aggiungere non sia
altre la fine del file corrente.
530 REM CHANGE A RECORD
540 INPUT "WHICH RECORD?•<: RECORD2
550 IF RECORD2 RECORD1 THEN 610
560 INPUT "NEW VALUE?«: X$
570 PRINT*10, REC RECORD2: X$
580 IF RECORD2 RECORD1 then 230
590 RECORD1=RECORD2+ 1
600GOT0230
61
O
PRINT "RECORD IS BEVONO THE END OFTHE R-
LE".
620GOT0230
L'ultima sezione, linea 630, chiude il file alla fine del programma.
630 CLOSE
*
10
MEMORIZZARE E RIPRESENTARE UNO SCHERMO
Le linee da 100 a 210 del programma seguente possono essere impie-
gate come sottoprogramma in altri programmi quando desiderate me-
morizzare qualcosa che avete creato sullo schermo. (AssicurateVi di
cambiare il nome del file ogni volta che utilizzate il programma in modo
da non scrivere sopra un file che avete in precedenza memorizzato.
63
o
PHP 1240
Questo programma memorizza e ripresenta soltanto i caratteri che
sono sullo schermo.
Le informazioni sui caratteri ridefiniti ed i colori non vengono memori-
zati.
1 00 REM SA VE A SCREEN
110 REM ADO AT END OF THE PROGRAMM THAT
PRODUCES THE SCREEN
120 REM
130 REM CHOOSE A UNIQUE RLENAME
140 OPEN *20:»device.fi/e-name:,INTERNAL
150 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 NEXTROW
21 O CLOSE*20
Le linee 220- 330 possono essere svolte come un programma indi-
pendente. Esse richiamano il contenuto di uno schermo che e'stato
precedentemente memorizzato e quindi lo ripresentano sullo scher-
mo.
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
290NEXTROW
300 CLOSE*30
31
O
REM DELA V TO GIVE TI ME TO LOOK AT THE SC-
REEN
320 FOR DELAY=1 to 10000
330 NEXT DELA V
LETTURA DEL CATALOGO
Il seguente programma Vi consente di leggere e stampare il catalogo
per un dischetto da TI BASIC.
Le linee 100-160 definiscono un allineamento mano-dimensionale di
cinque elementi corrispondenti ai cinque tipi del file.
Le quattro linee successive richiedono il numero dell'unità di pilotag-
gio contenente il dischetto che desiderate catalogare e quindi verifi-
cano la validità della Vostra impostazione.
1 00 CALL CLEAR
11
O
DIM TYPE$(5)
120 TYPE$(1)= .. DIS/RX"
130 TYPE$(2)= .. DISNAR«
140 TYPE$(3)= .. 1NT /RX«
150 TYPE$(4)= .. 1NT NAR«
160 TYPE$(5)= .. PROGRAM"
170 INPUT .. MASTER DISK(1-3)?«:A
180 A=INT(A)
190 IFA 1 THEN 170
200 IFA 3 THEN 170
La sezione successiva apre il file, legge le informazioni sul dischetto
per il Record* O, e la visualizza sullo schermo.
21 O OPEN *1 :"DSK·<&STR$(A)&".",INPUT,
RELATIVE,INTERNAL
220 INPUT*1:A$,J,J,K
230 DISPLAY .. oSK«;STR$(A); .. - DISKNAME= «;
A$: .. AVAILABLE=«;K; .. USED=«;J-K