231
EXAMPLE PROGRAM
Section 6-7
4660 LY$=STR$(LY):LY$=RIGHT$(LY$,LEN(LY$)–1):LY$=RIGHT$(”00”+LY$,3)
4670 LOCATE 39+(LN MOD 5)*8,LN¥5:PRINT LX$;”,”;LY$;
4680 SL$=SL$+LX$+LY$
4690 LN=LN+1
4700 IF LN<40 THEN GOTO *E7.X
4710 *E7.E
4720 LN$=HEX$(LN–1):LN$=RIGHT$(”0”+LN$,2)
4730 SEND$=SEND$+LN$+SL$
4740 RETURN
4750 *ESC.8 ’ Draw circle. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4760 *E8.X
4770 LOCATE 43,0:PRINT SPACE$(36)
4780 LOCATE 43,0:INPUT ”X COORDINATE OF CENTER OF CIRCLE : ”,CX
4790 IF CX>255 OR CX<0 THEN *E8.X
4800 *E8.Y
4810 LOCATE 43,1:PRINT SPACE$(36)
4820 LOCATE 43,1:INPUT ”Y COORDINATE OF CENTER OF CIRCLE : ”,CY
4830 IF CY>127 OR CY<0 THEN *E8.Y
4840 *E8.R
4850 LOCATE 43,2:PRINT SPACE$(36)
4860 LOCATE 43,2:INPUT ”?????#####”,CR
4870 IF CR>63 OR CR<0 THEN *E8.R
4880 CX$=STR$(CX):CX$=RIGHT$(CX$,LEN(CX$)–1):CX$=RIGHT$(”00”+CX$,3)
4890 CY$=STR$(CY):CY$=RIGHT$(CY$,LEN(CY$)–1):CY$=RIGHT$(”00”+CY$,3)
4900 CR$=STR$(CR):CR$=RIGHT$(CR$,LEN(CR$)–1):CR$=RIGHT$(”00”+CR$,3)
4910 SEND$=SEND$+CX$+CY$+CR$
4920 RETURN
4930 ’
4940 *SELECT ’ Item selection routine. . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . .
4950 IF LV=0 THEN LX=3 ELSE LX=LV*20+1
4960 IF LV=0 THEN LY=1 ELSE LY=0
5970 COLOR 4:LOCATE LX,LY:PRINT CMND$(SECT.NO,1,0)
5980 COLOR 0
5990 FOR I=2 TO CMND(SECT.NO)
5000 IF LV=0 AND I<=5 THEN LY=I
5010 IF LV=0 AND I>5 THEN LY=I+1
5020 IF LV=1 THEN LY=I–1
5030 LOCATE LX,LY:PRINT CMND$(SECT.NO,I,0)
5040 NEXT I
5050 *KY.IN
5060 A$=INKEY$:IF A$=”” THEN GOTO *KY.IN
5070 IF A$<>CHR$(&H1B) THEN GOTO *KY1
5080 COLOR 0
5090 FOR I=1 TO CMND(SECT.NO)
5100 IF LV=0 AND I<=5 THEN LY=I
5110 IF LV=0 AND I>5 THEN LY=I+1
To Next Page
Loading...
