Syntax error on all priming/initial reads? Help!
Posted: Sun Oct 28, 2012 2:23 am
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 999, 1 TO 5)
DIM DAY%(1 TO 999)
DIM TOTAL%(1 TO 999, 1 TO 3)
PRINT "WeFixU Hospital"
PRINT "Weekly Room Charge Report"
PRINT "========================="
PRINT: PRINT
GOSUB READ.DATA
GOSUB CALC
GOSUB OUTPUT.DATA
END
DATA "Drew","Shin","PRIVATE","YES","YES",7
DATA "Hart","Caore","SEMI-PRIVATE","Yes","NO",6
DATA "Neg","Presse","WARD","NO","Yes",5
DATA "Know","Engrish","Private","No","No",4
DATA "Keendov","Rich","Semi-Private","no","yes",3
DATA "Paw","Boi","Ward","yes","no",2
DATA "Rich","Gai","private","YES","YES",1
DATA "Test","Invalid","Motel","Always","Never",0
DATA "Herp","Derp","Hotel","Maybe","Maybe",8
READ.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
SELECT CASE PATIENT$(ROW%, 3)
CASE IS = "PRIVATE"
LET ROOM%(ROW%, 1) = 125
CASE IS = "Private"
LET ROOM%(ROW%, 1) = 125
CASE IS = "private"
LET ROOM%(ROW%, 1) = 125
CASE IS = "SEMI-PRIVATE"
LET ROOM%(ROW%, 1) = 95
CASE IS = "Semi-Private"
LET ROOM%(ROW%, 1) = 95
CASE IS = "semi-private"
LET ROOM%(ROW%, 1) = 95
CASE IS = "WARD"
LET ROOM%(ROW%, 1) = 75
CASE IS = "Ward"
LET ROOM%(ROW%, 1) = 75
CASE IS = "ward"
LET ROOM%(ROW%, 1) = 75
CASE ELSE
LET FLAG! = 1
END SELECT
SELECT CASE PATIENT$(ROW%, 4)
CASE IS = "YES"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "Yes"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "yes"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "NO"
LET ROOM%(ROW%, 2) = 0
CASE IS = "No"
LET ROOM%(ROW%, 2) = 0
CASE IS = "no"
LET ROOM%(ROW%, 2) = 0
CASE ELSE
LET FLAG! = 1
END SELECT
SELECT CASE PATIENT$(ROW%, 5)
CASE IS = "YES"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "Yes"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "yes"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "NO"
LET ROOM%(ROW%, 3) = 0
CASE IS = "No"
LET ROOM%(ROW%, 3) = 0
CASE IS = "no"
LET ROOM%(ROW%, 3) = 0
CASE ELSE
LET FLAG! = 1
END SELECT
LET ROW% = ROW% + 1
READ PATIENT$(ROW%, 1), PATIENT$(ROW%, 2), PATIENT$(ROW%, 3)
READ PATIENT$(ROW%, 4), PATIENT$(ROW%, 5)
READ DAY%
LOOP
RETURN
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 999, 1 TO 5)
DIM DAY%(1 TO 999)
DIM TOTAL%(1 TO 999, 1 TO 3)
PRINT "WeFixU Hospital"
PRINT "Weekly Room Charge Report"
PRINT "========================="
PRINT: PRINT
GOSUB READ.DATA
GOSUB CALC
GOSUB OUTPUT.DATA
END
DATA "Drew","Shin","PRIVATE","YES","YES",7
DATA "Hart","Caore","SEMI-PRIVATE","Yes","NO",6
DATA "Neg","Presse","WARD","NO","Yes",5
DATA "Know","Engrish","Private","No","No",4
DATA "Keendov","Rich","Semi-Private","no","yes",3
DATA "Paw","Boi","Ward","yes","no",2
DATA "Rich","Gai","private","YES","YES",1
DATA "Test","Invalid","Motel","Always","Never",0
DATA "Herp","Derp","Hotel","Maybe","Maybe",8
READ.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
SELECT CASE PATIENT$(ROW%, 3)
CASE IS = "PRIVATE"
LET ROOM%(ROW%, 1) = 125
CASE IS = "Private"
LET ROOM%(ROW%, 1) = 125
CASE IS = "private"
LET ROOM%(ROW%, 1) = 125
CASE IS = "SEMI-PRIVATE"
LET ROOM%(ROW%, 1) = 95
CASE IS = "Semi-Private"
LET ROOM%(ROW%, 1) = 95
CASE IS = "semi-private"
LET ROOM%(ROW%, 1) = 95
CASE IS = "WARD"
LET ROOM%(ROW%, 1) = 75
CASE IS = "Ward"
LET ROOM%(ROW%, 1) = 75
CASE IS = "ward"
LET ROOM%(ROW%, 1) = 75
CASE ELSE
LET FLAG! = 1
END SELECT
SELECT CASE PATIENT$(ROW%, 4)
CASE IS = "YES"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "Yes"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "yes"
LET ROOM%(ROW%, 2) = 1.75
CASE IS = "NO"
LET ROOM%(ROW%, 2) = 0
CASE IS = "No"
LET ROOM%(ROW%, 2) = 0
CASE IS = "no"
LET ROOM%(ROW%, 2) = 0
CASE ELSE
LET FLAG! = 1
END SELECT
SELECT CASE PATIENT$(ROW%, 5)
CASE IS = "YES"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "Yes"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "yes"
LET ROOM%(ROW%, 3) = 3.5
CASE IS = "NO"
LET ROOM%(ROW%, 3) = 0
CASE IS = "No"
LET ROOM%(ROW%, 3) = 0
CASE IS = "no"
LET ROOM%(ROW%, 3) = 0
CASE ELSE
LET FLAG! = 1
END SELECT
LET ROW% = ROW% + 1
READ PATIENT$(ROW%, 1), PATIENT$(ROW%, 2), PATIENT$(ROW%, 3)
READ PATIENT$(ROW%, 4), PATIENT$(ROW%, 5)
READ DAY%
LOOP
RETURN