100 REM ************************************************
110 REM **** CROSS0.BAS         28-FEB-78/27-FEB-81 ****
120 REM **** N A BOURGEOIS      SANDIA LABORATORIES ****
130 REM ************************************************
140 REM **** CROSS REFERENCE PROGRAM FOR BASIC TEXT ****
150 REM **** CLINT PURDUE   KEN NOWOTNY   20-JAN-75 ****
160 REM ************************************************
170 REM **** CHAIN:[CROSS0,CROSS1,CROSS2].BAS ****
180 REM ******************************************
190 REM **** INITIALIZATION ****
200 REM ************************
210 COMMON A$,F$,P$,T$
220 COMMON D$(112%),I8%
230 PRINT CLK$,'CROSS0:  81B27A'
240 DIM #3,S1%(857%)
250 DIM #4,S2%(2200%,1%)
260 DIM #5,S4%(500%,1%)
270 OPEN 'TEMP3' AS FILE #3
280 OPEN 'TEMP4' AS FILE #4
290 OPEN 'TEMP5' AS FILE #5
300 FOR I%=0% TO 857%
310 S1%(I%)=0%
320 NEXT I%
330 FOR J%=0% TO 1%
340 FOR I%=0% TO 2200%
350 S2%(I%,J%)=0%
360 NEXT I%
370 FOR I%=0% TO 500%
380 S4%(I%,J%)=0%
390 NEXT I%
400 NEXT J%
410 CLOSE #3,#4,#5
420 P$=CHR$(12%)
430 T$='   CROSS REFERENCE   '&DAT$&'   '&CLK$
440 I8%=112%
450 FOR I%=0% TO I8%
460 READ D$(I%)
470 NEXT I%
480 REM **************************
490 REM **** KEYBOARD ENTRIES ****
500 REM **************************
510 PRINT 'ENTER THE INPUT FILE NAME',
520 LINPUT A$
530 IF POS(A$,':',1%)=0% THEN A$='SY:'&A$
540 IF POS(A$,'.',1%)=0% THEN A$=A$&'.BAS'
550 PRINT 'NAME THE OUTPUT DEVICE',
560 LINPUT F$
570 IF F$='' THEN F$='LP:'
580 IF POS(F$,':',1%)=0% THEN 550
590 I%=POS(A$,':',1%)
600 J%=POS(A$,".",1%)
610 Z$=SEG$(A$,I%+1%,J%-1%)
620 F$=F$&Z$&'.CRF'
630 I%=POS(A$,':',1%)
640 Z$=SEG$(A$,I%+1%,255%)
650 T$=Z$&T$
655 PRINT CLK$,'CROSS0:  CHAIN'
660 CHAIN 'CROSS1'
670 REM *******************
680 REM **** KEY WORDS ****
690 REM ********************
700 REM **** STATEMENTS ****
710 REM ********************
720 DATA 'GO TO','THEN','GOSUB'
730 DATA 'AS FILE','CALL','CHAIN','CLOSE #','CLOSE','COMMON'
740 DATA 'DATA','DEF','DIM #','DIM','DOUBLE BUF','FILESIZE'
750 DATA 'FOR INPUT','FOR OUTPUT','FOR','IF END #','END',LINPUT #'
760 DATA 'LINPUT','INPUT #','INPUT','KILL','LET','LINE'
770 DATA 'MODE','NAME','NEXT','ON','OPEN','OVERLAY'
780 DATA 'PRINT #','PRINT','RANDOMIZE','READ','RECORDSIZE','REM'
790 DATA 'RESET #','RESET','RESTORE #','RESTORE','RETURN','STEP'
800 DATA 'STOP','TO','USING'
810 REM ******************************
820 REM **** ARITHMETIC FUNCTIONS ****
830 REM ******************************
840 DATA 'ABS','ATN','COS','EXP','INT','LOG10'
850 DATA 'LOG','PI','RND','SGN','SIN','SQR'
860 DATA 'TAB'
870 REM **************************
880 REM **** STRING FUNCTIONS ****
890 REM **************************
900 DATA 'ASC','BIN','CHR$','CLK$','DAT$','LEN'
910 DATA 'OCT','POS','SEG$','STR$','TRM$','VAL'
920 REM ********************************
930 REM **** USER DEFINED FUNCTIONS ****
940 REM ********************************
950 DATA 'FNA','FNB','FNC','FND','FNE','FNF'
960 DATA 'FNG','FNH','FNI','FNJ','FNK','FNL'
970 DATA 'FNM','FNN','FNO','FNP','FNQ','FNR'
980 DATA 'FNS','FNT','FNU','FNV','FNW','FNX'
990 DATA 'FNY','FNZ'
1000 REM *********************************
1010 REM **** RT-11 UTILITY FUNCTIONS ****
1020 REM *********************************
1030 DATA 'ABORT','RCTRLC','CTRLC'
1040 DATA 'RCTRLO','SYS','TTYSET'
1050 REM ***************************
1060 REM **** DATBAS CALL NAMES ****
1070 REM ***************************
1080 DATA 'GETB','GET','IDEN','NULL'
1090 DATA 'PUTB','PUT','SBIT','TBIT'
1100 END
                    