Compucolor.org – Virtual Media

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