229
EXAMPLE PROGRAM
Section 6-7
3740 IF M$<>”0” AND M$<>”1” THEN GOTO *PAGAIN
3750 SEND$=SEND$+M$
3760 RETURN
3770 *ESC.T ’ Buzzer control. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3780 LOCATE 43,0:PRINT ”Controlled item”
3790 LOCATE 43,1:PRINT ” 0 : Stop buzzer”
3800 LOCATE 43,2:PRINT ” 1 : Continuous buzzer”
3810 LOCATE 43,3:PRINT ” 2 : Intermittent buzzer”
3820 *TAGAIN
3830 LOCATE 43,4:INPUT ” : ”,M$
3840 IF M$<>”0” AND M$<>”1” AND M$<>”2” THEN GOTO *TAGAIN
3850 SEND$=SEND$+M$
3860 RETURN
3870 *ESC.W ’ System menu display. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3880 LOCATE 43,0:PRINT ”Controlled item”
3890 LOCATE 43,1:PRINT ” 0:MENU TRANSFER ENABLE”
3900 LOCATE 43,2:PRINT ” 1:MENU TRANSFER DISABLE”
3910 *WAGAIN
3920 LOCATE 43,3:INPUT ” : ”,M$
3930 IF M$<>”0” AND M$<>”1” THEN GOTO *WAGAIN
3940 SEND$=SEND$+M$
3950 RETURN
3960 ’
3970 *ESC.26 ’ Clear screen. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
3980 RETURN
3990 *ESC.29 ’ Specify 1-byte character. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4000 LOCATE 43,0:PRINT ”Character specify size”
4010 LOCATE 43,1:PRINT ” 0 : NORMAL SIZE (16x8)”
4020 LOCATE 43,2:PRINT ” 1 : HALF SIZE (8x8)”
4030 *E26AGAIN
4040 LOCATE 43,3:INPUT ” : ”,M$
4050 IF M$<>”0” AND M$<>”1” THEN GOTO *E26AGAIN
4060 SEND$=SEND$+M$
4070 RETURN
4080 *ESC.2A ’ Specify character enlargement. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4090 LOCATE 43,0:PRINT ”Specify character enlargement”
4100 LOCATE 43,1:PRINT ” 0:NO ENLARGEMENT”
4110 LOCATE 43,2:PRINT ” 1:ENLARGE HEIGHT”
4120 LOCATE 43,3:PRINT ” 2:ENLARGE WIDTH”
4130 LOCATE 43,4:PRINT ” 3:2X2 ENLARGEMENT”
4140 LOCATE 43,5:PRINT ” 4:3X3 TIMES ENLARGEMENT”
4150 LOCATE 43,6:PRINT ” 5:4X4 TIMES ENLARGEMENT”
4160 *E2AAGAIN
4170 LOCATE 43,7:INPUT ” : ”,M$
4180 IF M$=”0” OR M$=”1” OR M$=”2” THEN GOTO *E2ASEND
4190 IF M$=”3” OR M$=”4” OR M$=”5” THEN GOTO *E2ASEND
To Next Page
Loading...
