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