Compucolor.org – Virtual Media

Listing of file='HISEQF.BAS;01' on disk='vmedia/analiz_watals-sector.ccvf'

0 A= 32940:POKE A,207:POKE A+ 1,249:CLEAR 1000
1 REM  ORIGIN F9D0
2  REM  A PROGRAMME THAT USES SIMPLEX CALLS TO HISEQF.PRG TO COPY FROM
3   REM  FILE #1 (SOURCE) TO FILE #2 (DESTINATION).
4  REM  CALL(N): WHERE N=0 OPEN #1 (INPUT), 2=GET A REC FROM #1, 2=OPEN #2 (INPUT), 3=GET A REC FROM #2
5   REM  4=OPEN #3 FOR OUTPUT, 5= PUT A REC TO #3, 6=CLOSE ALL FILES
6 REM  FI$ IS A RESERVED VARIABLE NAME. ALL STRINGS ARE PASSED TO HISEQF VIA FI$.
10 CAL= 33282:POKE CA,195:REM  SET CALL VECTOR F9D0
15 POKE 33289,255
20 POKE CA+ 1,208
30 POKE CA+ 2,249
35 CR$= CHR$ (13)+ CHR$ (10)
40 PLOT 27,4
41 PRINT "LOAD HISEQF.PRG
42 PLOT 27,27
45 INPUT "SOURCE FILE DR:NAME;EXT ? ";IN$:FI$= LEFT$ (IN$+ "      ",13)
46 F1= CALL (0):REM  OPEN FILE #1 FOR INPUT (READ)
55 DX= 1:INPUT "DESTINATION FILE ";IN$:FI$= LEFT$ (IN$+ "      ",13):IF  IN$= ""THEN  DX= 0
60 IF DX THEN  DF= CALL (4):REM  OPEN#3 FOR OUTPUT (WRITE)
100 F1= CALL (1):T$= FI$:REM  GET NEXT RECORD FROM #1
139  REM  IF NOT END OF FILE (12) THEN PRINT AND FILE IT.
140 IF  F1< > 12 THEN  GOSUB  1000:IF  DX THEN  DF= CALL (5)
160 IF  F1< > 12 GOTO 100
200 F1= CALL (6):REM  EOF, SO CLOSE THE FILES.
300 PRINT "END OF SEQUENTIAL FILE DEMONSTRATION.
999 END
1000  REM  PRINT THE RECORD & ADD CRLF.
1020 FI$= T$+ CR$
1030 PRINT  FI$
1040 C0UNT= C0+ 1:IF  C0= 30 THEN  C0= 0:INPUT "PRESS RETURN TO CONTINUE ";IN$:PLOT 12
1050 RETURN