Listing of file='CROSSREF' on disk='vmedia/tbo_81.wvd.zip'
# Sector 738, program filename = 'CROSSREF' 0010 REM \8E\A1\CE CROSSREF : PRINT HEX(03);"CROSSREF DISK CATALOG" 0020 PRINT "TO LOAD AND RUN, PRESS S.F. KEY CORRESPONDING TO CATEGORY. " 0025 I=SPACEK : IF I>45 THEN 70 0030 RESTORE : PRINT : I=0 0035 PRINT " USE THE APPROPRIATE S.F. KEY FOR YOUR SIZE SYSTEM" 0040 READ A$ : IF A$=" " THEN 9000 0050 I=I+1 : PRINTUSING 60,I,A$; : PRINT , : GOTO 40 0052 CONVERT STR(A$,1,2)TO A : A=A+4 : CONVERT ATO STR(A$,1,2),(##) : GOTO 50 0055 DEFFN'0 : LOAD DC T "START " 0060 %S.F. '## for ## K 0070 PRINT : PRINT "Loading CROSSREF for 44K" : LOAD DC T"CROSS44K" 0100 DATA "16 K" 0150 DEFFN'01 : LOAD DC T "CROSS16K" 0200 DATA "20 K" 0250 DEFFN'02 : LOAD DC T "CROSS20K" 0300 DATA "24 K" 0350 DEFFN'03 : LOAD DC T "CROSS24K" 0400 DATA "28 K" 0450 DEFFN'04 : LOAD DC T "CROSS28K" 0500 DATA "32 K" 0550 DEFFN'05 : LOAD DC T "CROSS32K" 0600 DATA "44 K" 0650 DEFFN'06 : LOAD DC T "CROSS44K" 9000 DATA " "