Advertisement
r S O R T I N G / S U M M I N G - - - - - - - - - - · - - - - - - - - - - - - ,
520 RETURN
530 GOSUB 31121
540 GOSUB 43121
~~0
RETURN
56121 'INPUT FROM TAPE
570 CLS:PRINT"Input from tape. Press RETURN key
w
hen tape is ready."
580 IF INKEY$()CHR$(13) THEN 580
590 OPEN"CAS0:DATA"FOR INPUT AS #1
600 FOR I=l TO 50
61121 INPUT#!, I
620 INPUT#1
1
DA$(l,1)
630 INPUT#1,DA$(l,0)
64121 NEXT I
65121 INPUT# 1 , TL
660 CLOSE #1
670 GOTO 790
680 'RECORDING TO TAPE
690 CLS:PRINT"Save data to tape. Press RETURN key
when tape is ready."
700 IF INKEY$()CHRS(13) THEN 700
710 OPEN"CAS0:DATA"FOR OUTPUT AS #1
720 FOR I=l
TO
50
73121 PRINT#l,I
740 PRINT#1,DA$(l,1)
75121 PRINT#1,DA$(l,0)
760 NEXT I
770 PRINT#l,TL
780 CLOSE #1
790 CLS:LOCATE 3,3:PRINT"Stop tape-. ":FOR K~(=1 TO
51210:NEXT KK:GOTO 220
I
Advertisement
