12-13-2005, 02:50 AM
ok well i have some code in qbasic that i need converted to truebasic. i have truebasic in school and i need the code to meet truebasics standards but im having trouble converting it. if somebody can do this for me i will be glad to paypal them 5 bucks. heres the code
DECLARE SUB LoadMonth (yInput AS INTEGER, mInput AS INTEGER)
' First input the data into an array
DATA January,31,February,28,March,31
DATA April,30,May,31,June,30
DATA July,31,August,31,September,30
DATA October,31,November,30,December,31
DIM SHARED MonthName(12) AS STRING
DIM SHARED MonthDays(12) AS INTEGER
FOR i = 1 TO 12
READ MonthName(i), MonthDays(i)
NEXT i
' Now provide for months of 6 lines of 27 characters each
DIM SHARED Calendar(12, 6) AS STRING * 27
' Input the year
DIM Year AS INTEGER
INPUT "Year"; Year
' Compute a calendar
DIM Month AS INTEGER
FOR Month = 1 TO 12
CALL LoadMonth(Year, Month)
NEXT Month
' Print the calendar 3 months at a time
DIM S27 AS STRING * 27
OPEN "z.dat" FOR OUTPUT AS #1
FOR row = 0 TO 3
PRINT #1, ""
FOR col = 1 TO 3
Month = (row * 3) + col
LSET S27 = "": MID$(S27, 7) = STR$(Year) + " " + MonthName(Month)
IF col = 3 THEN
PRINT #1, S27
ELSE
PRINT #1, S27; " | ";
END IF
NEXT col
lset S27="Mon Tue Wed Thu Fri Sat Sun"
print #1, S27; " | ";S27; " | ";S27
FOR Week% = 1 TO 6
FOR col = 1 TO 3
Month = (row * 3) + col
IF col = 3 THEN
PRINT #1, Calendar(Month, Week%)
ELSE
PRINT #1, Calendar(Month, Week%); " | ";
END IF
NEXT col
NEXT Week%
NEXT row
CLOSE
SYSTEM
SUB LoadMonth (yInput AS INTEGER, mInput AS INTEGER)
DIM Year AS INTEGER: Year = yInput
DIM Month AS INTEGER: Month = mInput
IF Month = 2 THEN
IF Year MOD 4000 = 0 THEN
LET numdays = 29
ELSEIF Year MOD 100 = 0 THEN
LET numdays = 28
ELSEIF Year MOD 4 = 0 THEN
LET numdays = 29
ELSE
LET numdays = 28
END IF
ELSE
numdays = MonthDays(Month)
END IF
IF Month < 3 THEN
LET Month = Month + 12
LET Year = Year - 1
END IF
LET w = day + 2 * Month + INT(3 * (Month + 1) / 5) + Year + INT(Year / 4) - INT(Year / 100) + INT(Year / 400) + 2
IF Month > 12 THEN
LET Month = Month - 12
LET Year = Year + 1
END IF
IF w MOD 7 = 0 THEN
LET endd = 6
ELSE
LET endd = (w MOD 7) - 1
END IF
Week$ = ""
FOR blanks = 1 TO endd
Week$ = Week$ + SPACE$(4)
NEXT blanks
FOR Cal = 1 TO numdays
IF Cal < 10 THEN day$ = " " + STR$(Cal) ELSE day$ = STR$(Cal)
Week$ = Week$ + " " + day$
IF LEN(Week$) > 26 THEN
Week% = Week% + 1
LSET Calendar(Month, Week%) = RIGHT$(Week$, 27)
Week$ = ""
END IF
NEXT Cal
IF Week$ <> "" THEN
Week% = Week% + 1
LSET Calendar(Month, Week%) = RIGHT$(Week$, LEN(Week$) - 1)
END IF
IF Week% < 6 THEN LSET Calendar(Month, Week% + 1) = ""
END SUB
here is a list of TRUEBASIC commands http://truebasic.com/downloads/TB_Commands.pdf
here is the demo version of truebasic, fully functional, only lasts 15 minutes though.
http://truebasic.com/demo.asp
click first link
anyone who can do this for me or help me will be compensated. if you can do it for free, it would be even better! this is very important, thank you for any help.
DECLARE SUB LoadMonth (yInput AS INTEGER, mInput AS INTEGER)
' First input the data into an array
DATA January,31,February,28,March,31
DATA April,30,May,31,June,30
DATA July,31,August,31,September,30
DATA October,31,November,30,December,31
DIM SHARED MonthName(12) AS STRING
DIM SHARED MonthDays(12) AS INTEGER
FOR i = 1 TO 12
READ MonthName(i), MonthDays(i)
NEXT i
' Now provide for months of 6 lines of 27 characters each
DIM SHARED Calendar(12, 6) AS STRING * 27
' Input the year
DIM Year AS INTEGER
INPUT "Year"; Year
' Compute a calendar
DIM Month AS INTEGER
FOR Month = 1 TO 12
CALL LoadMonth(Year, Month)
NEXT Month
' Print the calendar 3 months at a time
DIM S27 AS STRING * 27
OPEN "z.dat" FOR OUTPUT AS #1
FOR row = 0 TO 3
PRINT #1, ""
FOR col = 1 TO 3
Month = (row * 3) + col
LSET S27 = "": MID$(S27, 7) = STR$(Year) + " " + MonthName(Month)
IF col = 3 THEN
PRINT #1, S27
ELSE
PRINT #1, S27; " | ";
END IF
NEXT col
lset S27="Mon Tue Wed Thu Fri Sat Sun"
print #1, S27; " | ";S27; " | ";S27
FOR Week% = 1 TO 6
FOR col = 1 TO 3
Month = (row * 3) + col
IF col = 3 THEN
PRINT #1, Calendar(Month, Week%)
ELSE
PRINT #1, Calendar(Month, Week%); " | ";
END IF
NEXT col
NEXT Week%
NEXT row
CLOSE
SYSTEM
SUB LoadMonth (yInput AS INTEGER, mInput AS INTEGER)
DIM Year AS INTEGER: Year = yInput
DIM Month AS INTEGER: Month = mInput
IF Month = 2 THEN
IF Year MOD 4000 = 0 THEN
LET numdays = 29
ELSEIF Year MOD 100 = 0 THEN
LET numdays = 28
ELSEIF Year MOD 4 = 0 THEN
LET numdays = 29
ELSE
LET numdays = 28
END IF
ELSE
numdays = MonthDays(Month)
END IF
IF Month < 3 THEN
LET Month = Month + 12
LET Year = Year - 1
END IF
LET w = day + 2 * Month + INT(3 * (Month + 1) / 5) + Year + INT(Year / 4) - INT(Year / 100) + INT(Year / 400) + 2
IF Month > 12 THEN
LET Month = Month - 12
LET Year = Year + 1
END IF
IF w MOD 7 = 0 THEN
LET endd = 6
ELSE
LET endd = (w MOD 7) - 1
END IF
Week$ = ""
FOR blanks = 1 TO endd
Week$ = Week$ + SPACE$(4)
NEXT blanks
FOR Cal = 1 TO numdays
IF Cal < 10 THEN day$ = " " + STR$(Cal) ELSE day$ = STR$(Cal)
Week$ = Week$ + " " + day$
IF LEN(Week$) > 26 THEN
Week% = Week% + 1
LSET Calendar(Month, Week%) = RIGHT$(Week$, 27)
Week$ = ""
END IF
NEXT Cal
IF Week$ <> "" THEN
Week% = Week% + 1
LSET Calendar(Month, Week%) = RIGHT$(Week$, LEN(Week$) - 1)
END IF
IF Week% < 6 THEN LSET Calendar(Month, Week% + 1) = ""
END SUB
here is a list of TRUEBASIC commands http://truebasic.com/downloads/TB_Commands.pdf
here is the demo version of truebasic, fully functional, only lasts 15 minutes though.
http://truebasic.com/demo.asp
click first link
anyone who can do this for me or help me will be compensated. if you can do it for free, it would be even better! this is very important, thank you for any help.