Post by geezermatic on Feb 1, 2019 22:15:02 GMT
That's French for "Help!" - not the Beatles Help, but the "I can't get this thing to work" Help.
I've never set font on Just Basic 1 or 2. Here's what I did:
' =====================================================================================================
' SET UP COMMAND WINDOW
'
NOMAINWIN
C1 = 20 : C2 = 140
RX = 50
R1 = 10 + 00 : R2 = R1 + RX : R3 = R2 + RX
R4 = R3 + RX : R5 = R4 + RX : R6 = R5 + RX
R7 = R6 + RX : R8 = R7 + RX : R9 = R8 + RX
MC = 80
' row 1
BUTTON #CMD.bck, " BACK ", [MENUBACK], UL, C1,R1
BUTTON #CMD.nxt, " NEXT ", [MENUNEXT], UL, C2, R1
' row 2
BUTTON #CMD.fnd, "CHANGE", [FIND], UL, MC, R2
' row 3
BUTTON #CMD.fig, "STATS ", [MENUSTAT], UL, C1, R3
BUTTON #CMD.FND, " FIND ", [MENUFIND], UL, C2, R3
' row 4
BUTTON #CMD.mo0, THISMONTH$, [OLD], UL, C1, R4
BUTTON #CMD.mo1, ONEMONTHAGO$, [OLDONE], UL, C2, R4
' row 5
BUTTON #CMD.mo2, TWOMONTHSAGO$, [OLDTWO], UL, C1, R5
BUTTON #CMD.mo3, THREEMONTHSAGO$, [OLDTHREE], UL, C2, R5
' row 6
BUTTON #CMD.sp1, "SPEC *", [SPEC1], UL, C1, R6
BUTTON #CMD.sp2, "SPEC #", [SPEC2], UL, C2, R6
' row 7
BUTTON #CMD.prn, " PRINT", [PRINTLIST], UL,MC, R7
BUTTON #CMD.end, " QUIT ", [MENUQUIT], UL, MC, R8
BUTTON #CMD.add, " ADD ", [MENUADD], UL, C1, R9
BUTTON #CMD.del, "REMOVE", [MENUDONE], UL, C2, R9
BCX = 50 : BRX = 60
BC1 = 20 : BC2 = BC1 + BCX : BC3 = BC2 + BCX : BC4 = BC3 + BCX
BR1 = 460 : BR2 = BR1 + BRX : BR3 = BR2 + BRX : BR4 = BR3 + BRX
BUTTON #CMD.001, " 1 ", [ONE], UL, BC1, BR1
BUTTON #CMD.002, " 2 ", [TWO], UL, BC2, BR1
BUTTON #CMD.003, " 3 ", [THREE], UL, BC3, BR1
BUTTON #CMD.004, " 4 ", [FOUR], UL, BC4, BR1
BUTTON #CMD.005, " 5 ", [FIVE], UL, BC1, BR2
BUTTON #CMD.006, " 6 ", [SIX], UL, BC2, BR2
BUTTON #CMD.007, " 7 ", [SEVEN], UL, BC3, BR2
BUTTON #CMD.008, " 8 ", [EIGHT], UL, BC4, BR2
BUTTON #CMD.009, " 9 ", [NINE], UL, BC1, BR3
BUTTON #CMD.010, "10 ", [TEN], UL, BC2, BR3
BUTTON #CMD.011, "11 ", [ELEVEN], UL, BC3, BR3
BUTTON #CMD.lst, " L ", [LAST], UL, BC4, BR3
UpperLeftX = 5
UpperLeftY = 10
WindowWidth = 250
WindowHeight = 670
OPEN "COMMANDS" FOR WINDOW AS #CMD
print #CMD, "!font Courier_New 12" : ' this is where I have the problem!
STOP
'==========================================================================\
I get two error messages:
' SET UP COMMAND WINDOW
'
NOMAINWIN
C1 = 20 : C2 = 140
RX = 50
R1 = 10 + 00 : R2 = R1 + RX : R3 = R2 + RX
R4 = R3 + RX : R5 = R4 + RX : R6 = R5 + RX
R7 = R6 + RX : R8 = R7 + RX : R9 = R8 + RX
MC = 80
' row 1
BUTTON #CMD.bck, " BACK ", [MENUBACK], UL, C1,R1
BUTTON #CMD.nxt, " NEXT ", [MENUNEXT], UL, C2, R1
' row 2
BUTTON #CMD.fnd, "CHANGE", [FIND], UL, MC, R2
' row 3
BUTTON #CMD.fig, "STATS ", [MENUSTAT], UL, C1, R3
BUTTON #CMD.FND, " FIND ", [MENUFIND], UL, C2, R3
' row 4
BUTTON #CMD.mo0, THISMONTH$, [OLD], UL, C1, R4
BUTTON #CMD.mo1, ONEMONTHAGO$, [OLDONE], UL, C2, R4
' row 5
BUTTON #CMD.mo2, TWOMONTHSAGO$, [OLDTWO], UL, C1, R5
BUTTON #CMD.mo3, THREEMONTHSAGO$, [OLDTHREE], UL, C2, R5
' row 6
BUTTON #CMD.sp1, "SPEC *", [SPEC1], UL, C1, R6
BUTTON #CMD.sp2, "SPEC #", [SPEC2], UL, C2, R6
' row 7
BUTTON #CMD.prn, " PRINT", [PRINTLIST], UL,MC, R7
BUTTON #CMD.end, " QUIT ", [MENUQUIT], UL, MC, R8
BUTTON #CMD.add, " ADD ", [MENUADD], UL, C1, R9
BUTTON #CMD.del, "REMOVE", [MENUDONE], UL, C2, R9
BCX = 50 : BRX = 60
BC1 = 20 : BC2 = BC1 + BCX : BC3 = BC2 + BCX : BC4 = BC3 + BCX
BR1 = 460 : BR2 = BR1 + BRX : BR3 = BR2 + BRX : BR4 = BR3 + BRX
BUTTON #CMD.001, " 1 ", [ONE], UL, BC1, BR1
BUTTON #CMD.002, " 2 ", [TWO], UL, BC2, BR1
BUTTON #CMD.003, " 3 ", [THREE], UL, BC3, BR1
BUTTON #CMD.004, " 4 ", [FOUR], UL, BC4, BR1
BUTTON #CMD.005, " 5 ", [FIVE], UL, BC1, BR2
BUTTON #CMD.006, " 6 ", [SIX], UL, BC2, BR2
BUTTON #CMD.007, " 7 ", [SEVEN], UL, BC3, BR2
BUTTON #CMD.008, " 8 ", [EIGHT], UL, BC4, BR2
BUTTON #CMD.009, " 9 ", [NINE], UL, BC1, BR3
BUTTON #CMD.010, "10 ", [TEN], UL, BC2, BR3
BUTTON #CMD.011, "11 ", [ELEVEN], UL, BC3, BR3
BUTTON #CMD.lst, " L ", [LAST], UL, BC4, BR3
UpperLeftX = 5
UpperLeftY = 10
WindowWidth = 250
WindowHeight = 670
OPEN "COMMANDS" FOR WINDOW AS #CMD
print #CMD, "!font Courier_New 12" : ' this is where I have the problem!
STOP
'==========================================================================\
I get two error messages:
First, the usual warning about adding appropriate CLOSE commands and
Second, "Runtime error: Bad command for #CMD !FONT (see error log. . . . )
I really don't want Courier New 12; I just wanna monkey around with the !font command so I can find a larger, darker, more contrasty font that works well with my major vision issues.