May June 1980 - Commodore Computers

7O 70 COMPUTE. . MAY/JUNE, 1980. 198O. ISSUE 4.
If the stringg variable docs does not consist of numerals,
V AL returns a value of O.
VAL returns a value of 0.
ERROR TESTING
Disk errors are checked in the subroutine at 36610
and tape errors in the subroutine at 36710. It is
and tape errors in the subroutine at 36710. It is
not possible to make the program super smart concerning
error recovery, but an altcmpt attempt is made rather
than simply stopping the program.
Please make the e following correction to the
listing. 36095 CLOSE 1: IF DV = ~ 8 THEN
CLOSE 2
CLOSE 2
REFERENCES
Commodore Business Machinc.:s, Machines, CBM Users Manual, 1979
Commodore Business Machines, CBM Floppy Disk User
Manual, 1979
Total Oia l Information Inronnatio n Services, Ser\'ices. TIS Workbook 4, 'I, 1978
1450 REM K$ FILE IDENTIF I ER
1450 REM K$ FILE IDENTIFIER
11470 REM E$ ERROR CHANNEL MESSAGES
1500 REM J NUMBER OF STUDENTS
1600 REM NN NUMBER OF GRADES PER
1700 REM STUDENT INITIALLY, , NP GRADES
17100 REM ADDED,N=NN+NP
, N ~ NN+NP
1720 REM MN=MAXIMUM ~lN~~lAXIMUll # OF STUDENTS
1730 REM MG=MAXIMUM ~HAXIMUM # OF GRADES PER -. ~
-.STUDENT
~ 1740 REM RV RETURN TO INPUT OR OUTPUT
1750 REM IT=1 FOR DISK,IT=2 FOR TAPE
2100 DIM N$(50),E$(4},Z(50)
, E$(4),Z(50)
2100
2100 DIM N$(50),E$(4),Z(50)
2150
MN=50 :MG=10 : ~l ::RV=1
2200
PRINT"[CLR]"
" 23000
PRINT"THIS PROGRMI PROGRAM ASSUMES THAT ";
2400
PRINT"YOU DO NOT HAVE MORE ~10RE THAN ";
2500
PRINT"50 STUDENTS AND 10 ";
2600 PRINT"GRADES PER STUDENT. IF " ,.
2600
2700
2800
2900
2905
2700 PRINT"YOU DO, CHANGE THE DIM
2800 PRINT"STATEMENTS AND 2150."
2900 PRINT
2905 PRINT"INDICATE ENTRY OF DATA BY -i
-OlKrEYBOARD, j:TrAPE, DRIVE x.0? "
2907
2907 PRINT" OR DRIVE ilr."
2910
INPUT M$:M$=LEFT$(M$,1) $(M$ , l)
2920
IF M$="K" THEN DV=0:NP=0:G0TO : :G OTO 3000
2925
INPUT"ENTER FILENAHE FILENAME ";F$
2930
IF M$="T" THEN DV=I DV=1:SA=0:IT=2:
: -.GOTO2950
~GOT02950
2935 IF M$="0" OR H$= M$="l" "I " THEN DV=8:SA=5: :
-nIT=l: ~IT=l: F$=M$+": ":""+F$+" ",, SEQ,READ" , REAO "
2937
IF IIT=1 THEN OPEN 2,DV,15,"I"+M$: ,"I" :
-.GOSUB ~GOSUB 36610:GOTO : 2950
2940
PRINT"ENTER K,T,0, OR 1. l.":GOTO 2910
2950
OPEN l,DVfSA,F$:IF I,DV,SA , IT=1 IT~ 1 THEN GOSUB -. ~
-.36610
~36610
2952
INPUT' INPUT#1,K$:ON I, IT GOSUB 36610,36710 , 36710
2954
PRINT"FILE IDENTIFIER IS ";K$
2956
INPUT#1,H$:ON #I, : IT GOSUB 36610,36710
2958 JT=VAL( JT=VAL{H$) :IF: JT=00 THEN PRINT"* " # OF -. ~
2958
DIM N$(50) , E$(4) , Z(50)
PRINT "GRADES PER STUDENT. IF
PRINT"YOU DO , CHANGE THE DIM ";
PR I NT "STATEMENTS AND 2150 ."
PRINT
PRINT " INDICATE ENTRY OF DATA BY ~
~L. K r EYBOARD , L.TrAPE , DRIVE L.0r "
PRINT " OR DRIVE L.lf."
~ STUDENTS IS 0 ": GOTO 2905
-iSTUDENTS IS 0":GOTO 2905
2960
INPUT#1,H$: I, : ON IT GOSUB 36610,36710 , 36710
2962
NN=VAL(H$) ::IF NN=0THEN PRINT"# '" OF -. ~
^GRADES ~GRADES IS 00":GOTO " : 2905
2964
IINPUT#1,D$: NPUT.l, ON IT GOSUB 36610,
--36710:D$ ~3 : D$~LEFT$ = LEFT$(D$,1)
( D$,I)
2975 PRINT"NUMBER OF STUDENTS IS "";JT
2980 PRINT" NUMBER OF GRADES IS " ;NN
2980 PRINT"NUMBER OF GRADES IS " ; NN
2985 IF D$="Y"THEN D$~"Y " PRINT"THERE ARE -. ~
^IDENTIFIERS."
~IDEN ERS . "
2990 IF NMG THEN PRINT"TOO MANY":
-.GOTO ~GOTO 2990
2990 IF N00 THEN PRINT ""ENTER";NP;
"; NP ;
...," ->" GRADES FOR II;
11400 PRINT"STUDENT ";JJ
11500 FOR 1=1 I=1TON
11520 IF DV=0 THEN 11600
11520 IF DV=0 THEN 11600
11540 IF I I>NN )NN THEN 111600
1 11560 INPUT l l, H$ : ON IT GOSUB36610 , 3671 0
11560 INPUT#1,H$:ON IT GOSUB36610,36710
111580 1 STUDENT(J,I)=VAL(H$):GOTO11800
) : GOT011 11600 PRINT "GRADE #";I;
11600 PRINT "GRADE 1 " ;1;
1320 0 PRINT "OKAY? ";
13200 PRINT"OKAY?";
13250 GET C$:IF C$="" THEN 13250
13400 PRINT C$
13400 PRINT C$
13500 IF C$= " Y"THENI 0200
13500 IF C$="Y"TREN10200
13530 IF DV=0 THEN 13600
13540 PRINT"CURRENT GRADES:"
13550 FOR P=1TON:PRINT STUDENT(J,P);
13550 FOR P= I TON : PRINT STUDENT(J , P) ;
13560 NEXT P:PRINT
13600 PRINT "\vHICH GRADE (IF HORE THAN ";
13600 PRINT"WHICH GRADE {IF MORE THAN
13700 PRINT"ONE GRADE NEEDS CHANGING, I , ";
13800 PRINT"YOU "yOU HAY MAY CHANGE ONE AT n;
113900 PRINT"A "A TIHE TIME OR CHANGE ALL BY ";
14000 PRINT"ENTERING
14000 PRINT " ENTERING " ;
16699 REM IF OPEN FILES, , THEN CLOSE
116700 IF DV=1 DV~1 THEN CLOSE 1
116710 IF DV=88 THEN CLOSE I:CLOSE 1:CLOSE 2
16720 PRINT:PRINT"WHEN : YOU AREE READY
"
23200 IF Q