Pete's QBASIC Site

Last and third part OUTPUT.DATA: ROW% = 1 READ PATIENT$(ROW%, 1), PATIENT$(ROW%, 2), PATIENT$(ROW%, 3) READ PATIENT$(ROW%, 4), PATIENT$(ROW%, 5) READ DAY% DO WHILE DAY%(ROW%) > 1 AND DAY%(ROW%) <= 7 IF FLAG! = 1 THEN PRINT PATIENT$(ROW%, 1); "INVALID DATA" ELSEIF FLAG! = 0 THEN PRINT USING...

Second part: CALC: ROW% = 1 READ DAY%, ROOM%(ROW%, 1), ROOM%(ROW%, 2), ROOM%(ROW%, 3) DO WHILE DAY%(ROW%) > 1 AND DAY%(ROW%) <= 7 READ DAY%, ROOM%(ROW%, 1), ROOM%(ROW%, 2), ROOM%(ROW%, 3) READ ACC.TOT! IF ACC.TOT! = 1 THEN LET TOTAL%(ROW%, 3) = TOTAL%(ROW%, 2) + TOTAL%(ROW%, 1) ELSE LET TOTAL%(ROW%,...

Can somebody help me with this? I've been trying to change the program to work for reading the data, however they all result to SYNTAX errors. Any solutions? Problems: READ DAY% - both of them and READ DAY% ROOM%(ROW%,1), ROOM%(ROW%,2), ROOM%(ROW%,3) CLS DIM ROOM%(1 TO 999, 1 TO 3) DIM PATIENT$(1 TO...