Listing of file='VID5.BAS;01' on disk='vmedia/home_video_library-sector.ccvf'
100 CLEAR 5000 110 PLOT 12,14,22 120 PLOT 3,27,3,18 130 PRINT "VIDEO 5" 140 PLOT 15 150 PLOT 3,16,8 160 PRINT "CREATE INDEX TO PROGRAM FILE" 170 PLOT 15 180 PLOT 3,20,14 190 FILE "R",1,"VPROG",4 200 GET 1,1,1;NR 210 FILE "R",2,"VPROG.IDX",1 220 DIM KEY$(NR) 230 DIM REC(NR) 240 FOR ZZ= 1TO NR 250 KEY$(ZZ)= KEY$(1) 260 NEXT ZZ 270 FOR SUB= 2TO NR- 1 280 GET 1,SUB,4;IS$[14] 290 PLOT 3,20,18 300 FOR AA= SUB- 1TO 1STEP - 1 310 KEY$(AA+ 1)= KEY$(AA) 320 REC(AA+ 1)= REC(AA) 330 IF IS$= < KEY$(AA- 1)GOTO 370 340 KEY$(AA)= IS$ 350 REC(AA)= SUB 360 GOTO 380 370 NEXT AA 380 NEXT SUB 390 PLOT 3,12,22 400 PRINT "FINISHED SORTING - WRITING OUT INDEX" 410 FOR ZZ= 1TO NR- 2 420 PUT 2,ZZ,1;REC(ZZ) 430 FOR A= 1TO 50:NEXT A 440 NEXT ZZ 450 PUT 2,ZZ+ 1,1;999999 460 FILE "C",1,2 470 LOAD "0:VMENU",RUN