80-Bus News

  

September–October 1984, Volume 3, Issue 5











Page 46 of 47











NASCOM BASIC LISTING ..... PAGE :=- O1

1900 1010 1020 1030 1040 1050 1060 1070 1080 1090 1100 1110 1120 1130 1140 1150 1160 1170 1180 1190 1200 1210 1220 1230 1240 1250 1260 1270 1280 1290 1300 1310 1320 1330 1340 1350 1360 1370 1380 1390 1400 1410 1420 1430 1440 1450 1460 1470 1480 1490 1500 1510 1520 1530 1540

REM Programme to read the Polydos print REM of disk directorys and remove the REM common file names and produce a REM Print out of all files in disk order REM and also print a sorted list.

REM

REM M.J.R.GIBBS 2/11/82 CLEAR 20000

DIM ND$(50),DAC50, 6)

ND = 1l:REM NUMBER OF DISKS

CLs

SCREEN 12,16

PRINT “DISK FILES INDEX PROGRAMME” SCREEN 12,1

PRINT “se<caenueeessssesssaesaeaaall

BLS m wt

DIM AS$(1000)

SETNEW (1) ,"INDXDATA”

FOR IT = 1 To 1000

SCREEN 12,8

PRINT “Reading record no.w..i="51 SETINP (1),ASS( I)

IF LENCASS( 1)) = 0 GOTO 1210

IF “EOF” = MIDS(AS$( 1),1,3) THEN 1680 IF “Drive” = MID$(ASS( 1),1,5) THEN 1540 NNS = MIDSCASS( 1),23, 8)

IF NNS = “Exec " THEN 1210

IF NNS “Df un " THEN 1210

IF NNS = “Emsg " THEN 1210

IF NNS = “Eemd " THEN 1210

IF NNS = “Edit " THEN 1210

NNS = “Info “THEN 1210

NNS = “BSfh " THEN 1210

NNS = “Bsfh " THEN 1210

NNS = “Bsut " THEN 1210

NNS = “BSut " THEN 1210

NNS = “BSdr " THEN 1210

NNS = “FORMAT " THEN 1210

NNS = “BACKUP " THEN 1210

NNS = “SZAP " THEN 1210

NNS = “PZAP " THEN 1210

NNS = “Init " THEN 1210

NNS = “’PSfh " THEN 1210

NNS = “Z2fh " THEN 1210

NNS = “DP£h “THEN 1210

NNS = “Info " THEN 1210

NNS = “BASIC " THEN 1210

NNS = “"DISKPEN " THEN 1210

IF NNS = “NASPAS " THEN 1210

EXS MIDSCASS( 1),32,2)

DSS = MIDS(ASS( 1),21,1)

ASS ( I) s NNS+” USEXS+” “4D S41! “4DDS PRINT " “SASS(I)

GOTO 1670

DDS = MIDS(ASS( 1),28, 2)

u

BRERA RR RSA RRA

a

mentee

NASCOM BASIC LISTING ....- PAGE :- 02

1550 1560 1570 1580 1590 1600 1610 1620 1630 1640 1650 1660 1670 1680 1690 1700 1710 1720 1730 1740 1750 1760 1770 1780 1790 1800 1810 1820 1830 1840 1850 1860 1870 1880 1890 1900 1910 1920 1930 1940 1950 1960 1970 1980 1990 2000 2010 2020 2030 2040 2050 2060 2070 2080 2090

NDS(ND) = MIDS(AS$( 1),10, 20)

SETINP( 1),2Z2$

DACND, 1) = VAL(MIDS(ZZS, 1,4))

DACND, 2) = VAL(MIDS(2Z$,20,4))

DACND, 3) = VAL(MIDS$(22$, 34,4))

SETINP( 1),22Z$

DA(ND, 4) = VAL(MIDS$(ZZ$, 1,4))

DACND, 5) = VAL(MID$(225,20,4))

DACND, 6) = VAL(MIDS(2ZS, 34,4))

ND = ND +1

SETINP( 1),22$

GOTO 1210

NEXT I

REM NOW PRINT IT ALL OUT AND SORT SETCLS (1)

SCREEN 7,8

CLS

PRINT ‘Set Printer on press “ENTER*..:-"5 INPUT AAS

GOSUB 9000

GOSUB 8000

GOSUB 9000

SETPRON

GOSUB 20000

PRINT

PRINT SPC( 5);"DISK NAME “; PRINT “w---—— FILES ----- 2 “3 PRINT “=--= SECTORS -----” PRINT SPC(25); PRINT ‘ USED PRINT " USED ND = ND=1

FOR I = 1 TO ND PRINT SPC( 5);NDS( 1);

PRINT RIGHTS(” “4STRS (DAC I PRINT RIGHTS(” “ESTRS(DAC 1 PRINT RIGHTS(” “45TRS (DAC I PRINT’ . “5 PRINT RIGHTS(” PRINT RIGHTS(” PRINT RIGHTS(” NEXT I

PRINT SPC(27); PRINT “---- ---- ---- 20"; PRINT “Sweee wae nee!

FOR L = 1 TO ND

FOR J = 1 TO 6

pAC 0, J) = DAC 0, J)+DAC I, J) NEXT J

NEXT 1

DEL FREE. “; DEL FREE”

on oN rN sO SO x0 es oN oN moe mt NO ann

“+STRS(DAC I “+STRS (DAC “+STRS(DAC I

aA oo oN oN “fin

4

6)),6)

u

PRINT SPC(25); PRINT RIGHTS(” PRINT RIGHTS(” PRINT RIGHTS(” PRINT” 2";

“ESTRS(DAC 0, 1)),6)3 “4+STRS (DAC 0, 2)),6)5 “4STRS(DAC 0, 3)),6);

NASCOM BASIC LISTING ..... PAGE :-- 03

2100 2110 2120 2130 2140 2150 2160 2170 2180 2190 2200 8000 8010 8020 8030 8040 8050 8060 8070 8080 8090 8100 8110 8120 8130 8140 8150 8160 8170 8180 3000 9010 9020 9030 9040 9050 9060 9070 9080 9090 9100 10000 10010 10020 10030 10040 10050 10060 10070 10080 10090 10100 10110 10120 10130

PRINT RIGHTS(” PRINT RIGHTS(” PRINT RIGHTS(” PRINT SPC(27); PRINT “seas =sa=2 <ss2 , “3 PRINT “s2== === = PRINT SPC( 5);"NUMBER OF DISKS ..:-"s PRINT RIGHTS(” “4+STRS (ND) ,6)

CLs

SETPROFF

END

REM SHELL SORT

REM

SCREEN 7, 8:PRINT “SHELL – METZNER SORT REM

SN = I-l

$S = SN

$8 = INT(SS/2)

IF $$ = 0 THEN RETURN

“ESTRS(DAC 0, 4)),6)3 “46TRS (DAC 0, 5)),6)3 “SSTRS(DAC 0, 6)),6)

H

tt

SCREEN 28, 8:PRINT “BLKSIZE :=’’;8S;” “5

8Z = SN-SS

FOR SM = 1 TO SZ

SI = SM

SJ = $1488

IF ASS(SL) <= AS$(SJ) THEN 8170 SHS=ASS(SI):AS$(SI)=A8$ (SJ): ASS (SJ) =SHS SL = SI-88

IF SI > 0 THEN 8120

NEXT 8M

GOTO 8060

SET PRON

ASS ( I) et 1T

IN = INT((1-1)/200)+1

FOR II = 1 TO IN

IS = (II=1)*200+1

LE = 18+200

IF If >= I-1 THEN IE = [+4

GOSUB 10000 NEXT IL

SETPROFE

RETURN

GOSUB 20000

L = INT((LE-18)/4)

IE = [S+4*L

IF K > 200 THEN K = 200

PRINT

FOR J = 18 TO IS+L=1 PRINT ASS(J 3” 0"; PRINT ASS(J + L);” “5 PRINT ASS(J+24L);” “5 PRINT ASS(J+3*L)

REM INPUT AA NEXT CLS RETURN

a

46


This is an OCR’d version of the scanned page and likely contains recognition errors.











Page 46 of 47