home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Carousel Volume 2 #1
/
carousel.iso
/
comdore
/
64apps
/
cad30.arc
/
U
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1988-11-13
|
923b
|
32 lines
1 FORT=0TO3:A=USR(33),T:NEXT
2 X1=24:X2=256:Y1=50:Y2=221
3 A=USR(39),0,35:A=USR(39),1,36:A=USR(39),2,37:A=USR(39),3,38
4 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
5 FORT=0TO3:A=USR(32),T:NEXT
6 GETA$:IFA$=""THEN11
7 IFA$="!"THENSYS36867:GOTO6
8 IFA$="="THENSYS36882:GOTO6
9 IFA$="&"THENSYS36879:GOTO6
10 GOTO28
11 X1=X1+USR(121)*8
12 Y1=Y1-USR(122)*8
13 IFX1<24THENX1=24
14 IFX1>88THENX1=88
15 IFY1<50THENY1=50
16 IFY1>58THENY1=58
17 X2=X1+232:Y2=Y1+171
18 A=USR(34),X1,Y1,0:A=USR(34),X2,Y1,1:A=USR(34),X1,Y2,2:A=USR(34),X2,Y2,3
19 A=USR(117):IFA<>16THEN6
20 FORT=0TO3:A=USR(33),T:NEXT
21 A=USR(34),0,Y,6:A=USR(34),X,255,7
22 X2=X1-25:X3=X1+232:Y2=Y1-51:Y3=Y1+142
23 IFX2>0THENA=USR(66),X2,Y2+1,X2,Y3-1
24 IFX3<319THENA=USR(66),X3,Y2+1,X3,Y3-1
25 IFY2>0THENA=USR(66),X2+1,Y2,X3-1,Y2
26 IFY3<199THENA=USR(66),X2+1,Y3,X3-1,Y3
27 GETA$:IFA$=""THEN27
28 FORT=0TO3:A=USR(33),T:NEXT
29 A=USR(39),0,16:A=USR(39),1,17:A=USR(39),2,17:A=USR(39),3,17
30 A=USR(34),8,Y,6:A=USR(34),X,231,7:LOAD"CMND",D0
31 OPEN15,D0,15,"UI:":CLOSE15:RETURN