May June 1980 - Commodore Computers

MAY/JUNE. MAY/JUNE, 1980. 198O. ISSUE 4 a. COMPUTE.
n
36054 INPUT"ENTER AN IDENTIFIER FOR ~
36610 REM ERROR CHECKING ROUT INE FOR ~
36054 INPUT"ENTER AN IDENTIFIER FOR -i 36610 REN ERROR CHECKING ROUTINE FOR -i
-.THIS ~ SET OF STUDENTS ";H$ " ^DISK ~DISK IO 10
36058 PRINT#1,H$:IF l IT=lTHENTHEN GOSUB 366100
36620 INPUTI2,E$(1) INPUT#2,E$(1),E$(2),E$(3),E$(4):
, E$(2) , E$(3) ,E$(4 ) :
36062 H$ =STR$(J) = ::PRINT#1,H$:IF PRINT#l,H$:IF IT=l IT=1 •-.
-.IF ~I F E$(1) 1 ) =" = "00" " THEN RETURN
-.THEN GOSUB 366100
36630 REM ELSE THERE IS AN ERROR
360666 H$ =STR$( = STR$(N) :PRINT#l :PRINT#1,H$:IF , IT=l IT=1 •-i 36640 FOR P=lT0 P=1TO4: PRINT E$(P): NEXT P
-.THEN GOSUB 36610
36650 PRINT"CORRECT THE ERROR, IF -i ~
36070 PRINT#1,D$:IF #l , : IF IT=l IT=1 THEN GOSUB36610
,-.POSSIBLE. . TO CONTINUE THE PROGRAM" "
36080 FOR H=1TOJ l 36660 PRINT"PRESS I " PRESS ANY KEY.":CLOSE 1:
:
36081 IF D$="Y" = " THEN PRINTl1 PRINT#1,N$(H): , N$(H) -.CLOSE ~C L O 2
-. ~ GOTO 36084
36670 GET Y$: : IIFF Y$="" " " THEN 36670
36082 REM ELSE PRINT SEQUENCE I # 36680 ON RV GOTO 2905, , 36020
36083 PRINTl1, PRINT#1,STR5(H) STR$(H )
36690 RETURN
36084 IF IT=l IT=1THENTHEN GOSUB 36610
36700 REM ERROR ROUTINE I FOR TAPE
36086 FOR L=l l TO N
367100 IF ST=0 THEN RETURN
360 88 H$=STR$(STUDENT(H,L)):PRINT#1,H$ STUDENT(H , L» :PRINTU,H$
36720 IF ST