512
REM IF
DOING
A
"COPY"
DISPLAY
514 REM THE FLOATING BOX
520
REM
***********************
530
IF
MU=1
THEN
600
540
A=PPOINT(X,Y>
550
FOR W
*
TO 8
560
PSET
<X,Y,W)
570
NEXT W
580
PSET <X,Y,A)
590
RETURN
592
REM
DISPLAY
FLOATING BOX
FOR
"COPY"
600
IF
X<15
THEN
X=15
602
IF
Y<15
THEN
Y=15
604
IF
X>240
THEN
X-240
606
IF
Y>176
THEN
Y-176
610
PMODE
3,5
620
SCREEN
1,CS
630
PCOPY
1 TO
5
640
PCOPY
2 TO
6
650
PCOPY
3
TO
7
660
PCOPY
4
TO
8
670
LINE
(X-15,Y-15)-(X+15,Y+15),PSET,B
680
PMODE
3,1
690
SCREEN
1,CS
700
RETURN
710
REM
720
REM
***********************
730
REM PEN
STATUS
3:
740
REM "PEN DEPRESSED
ON
THE DISPLAY AREA"
750
REM
DISPATCH TO THE FUNCTION760
REM
SELECTED ON
THE
MENU
770
REM
***********************
780
ON MU GOSUB
1030,1520,1700,1850,2070,2190,2400,2620,2800
790
RETURN
800
REM
810
REM
***********************
820
REM PEN STATUS
11:
830
REM "PEN DEPRESSED
ON
THE TOP MENU"
840
REM WAIT UNTIL IT
IS
LIFTED
850
REM
CALCULATE
WHICH
BOX
860
REM DISPATCH TO ANY THAT
870
REM
NEED
IMMEDIATE
ACTION
880
REM
***********************
890
GOSUB
2890
900
IF
S=ll
THEN
890
910
MU-INT<X/28.334)+l
920
PLAY STR$(MU)
940
ON
MU
GOSUB
1010,1502,2900,1810,2900,2160,2370,2590,2800
950
RETURN
960
REM
970
REM
***********************
980
REM TOP MENU
BOX
1:
990
REM
"COPY CONTENTS OF THE
BOX"
1000
REM
**********************
1010
SW=0
1020
RETURN
1030
ON SW
GOTO
1120
1040
GOSUB
2890
1050
IF
S^3
THEN
1040
1060
IF X<15 THEN X=15
1070
IF Y<15 THEN Y=15
1072
IF X>240 THEN X=*240
1074
IF Y>176 THEN Y=176
1080
GET
{X-15,Y-15)-(X+15,Y+15)
,V,G
1090
SW=1
1100
RETURN
1110
REM ENTRY
POINT
FOR "PUT" END OF THE MOVE
1120
GOSUB
2890
1130
IF
S=3
THEN
1120
1140
IF X<15 THEN X=15
1150
IF
Y<15
THEN
Y=15
1152
IF X>240 THEN X*240
1154
IF Y>176 THEN
Y=176
1160
PUT
(X-15,Y-15)-(X+15,Y+15),V,PSET
1170
SW-0
1180
MU=0
1190
RETURN
1200
REM
1210
REM
***********************
1220
REM TOP
MENU
BOX
2:
1230
REM "TEXT"
1240
REM
***********************
1250
DATA
BD1D6U4NR5U2E1R3F1D6
1260
DATA
ND7R4F1D1G1NL4F1D2G1NL4BR1
1270
DATA
BD1D5F1R3E1U1BU3U1H1L3G1BD6BR5
1280
DATA
D7R4E1U5H1L4BD7BR5
1290
DATA NR5D3NR4D4R5
1300
DATA
NR5D3NR4D4BR5
1310
DATA
BD1D5F1R3E1U2NL2BU2U1H1L3G1BD6BR5
1320
DATA
D7U4R5NU3D4
1330
DATA
R4L2D7L2R4BR1
1340
DATA
BD5D1F1R3E1U6BD7
1350
DATA
D7U4R3E2NU1G2F2D2
1360
DATA
D7R5
1370
DATA
ND7F2BD1E3D7BR2
1380
DATA
D1ND6E1R3F1D6
1390
DATA
BD1D5F1R3E1U5H1L3G1BD6BR5
1400
DATA
ND7R4F1D2G1L4BD3BR5
1410
DATA
BD1D5F1R3E1U5H1L3G1D4BR3F2
1420
DATA
ND7R4F1D1G1NL4F1D3
1430
DATA
BD1D1F1R3F1D2G1L3H1BU5E1R3F1BD6
1440
DATA R4L2D7BR3
1450
DATA
D6F1R3E1U6BD7
1460
DATA
D5F2E2U5BD7BR1
1470
DATA
D7E3F3U7BD7BR1
1480
DATA
D1F5D1BL5U1E5U1BD7
1490
DATA
D2F2ND3E2U2BD7BR1
1500
DATA
R5D1G5D1R5
1502
TP=0:
'TEXT
POSIT NOT
SELECTED
1504
RETURN
1510
REM
ENTRY
FOR TEXT
POSITION
1520
GOSUB
2890
1530
IF
S=3 THEN
1520
1540
DRAW
"S4"
1550
DRAW
"BM0,0"
1560
IF
X>0
THEN
1570
FOR I
=
1
TO X
1580
DRAW
"BR1"
1590
NEXT
I
1600
IF Y>0
THEN
1610
FOR I
=
1 TO Y
1620
DRAW
"BD1"
1630
NEXT I
50
To Next Page
Loading...