10 CALL "INIT"
15 DIM A(1)
20 CALL "SCAL"(0,0,2000,1500)
100 CALL "APNT"(700,300,-8,-8,-8)
105 X=200\Y=90
110 FOR I=0 TO 4
120 IF I<> Smartvehiclefinance Create H Create N
1search0www.72dnc.com\searchAsearchLsearch" Smartvehiclefinance Ehttp%3A%2F%2F98ise.comT Smartvehiclefinance ( Smartvehiclefinance 3 You ,1 Create 0 Smartvehiclefinance \searchOsearchTwww.xx53xx.com search5 You You
You 3 Create Smartvehiclefinance A You L Create " Bml ET Create (Xwww.yyy258.comY)www.15iii.com
Create 4www.84aaa.com You A Create L Smartvehiclefinance VsearchCsearch" Smartvehiclefinance 0search- Bml 0 You
search1 Smartvehiclefinance 0 Bml NsearchX Create Bml
www.65.jjj.con2v.85ggg.com0searchC Bml L0 
AsearchN0" Create 7 Bml 0, You 0 Create ,search8,-,-8) Bml
205 Smartvehiclefinance X Create -2 Create 0\Y
100
search2search0 Create FsearchRsearchI= Smartvehiclefinance T Bml 2 Bml
www.65.jjj.con2 Create C Bml LL " Create EC
"searchX Create Y Bml
Smartvehiclefinance 2 You 5searchI You Create = T Create E Create search50www%2Eyyy2520%2Econ+视频
xingjiuba%2Ecom2YYY17%B3%C9%C8%CB%CD%F80searchC You L Bml searchVE Create Tsearch(0 Smartvehiclefinance 50 Smartvehiclefinance
2search0
N Create X Create 1
search300 Create CAL Smartvehiclefinance 
AP You T You ( Bml 0 Smartvehiclefinance , Smartvehiclefinance 00,search8 Create -8 You -8 Create
You 305 CsearchL Create searchVECT"(150,70)
310 CALL "VECT"(0,40)
315 CALL "VECT"(170,80)
320 CALL "VECT"(195,-90)
400 CALL "APNT"(700,350,-8,-8,-8)
405 X=-150\Y=80
410 FOR I=0 TO 2
415 IF I<>2 THEN 420 \X=-140\Y=70
420 CALL "VECT"(X,Y)\X=-200\Y=100
435 IF I=2 THEN 450
440 CALL "VECT"(0,50)
450 NEXT I
505 X=100\Y=50
510 CALL "VECT"(100,50)
515 CALL "VECT"(0,50)
520 CALL "VECT"(110,50)
600 X=200\Y=-90
605 FOR I=0 TO 5
610 CALL "VECT"(X,Y)
615 IF I=5 THEN 650
620 CALL "VECT"(0,55)
650 NEXT I
660 CALL "VECT"(-135,-70)
700 X=1430\Y=520
705 FOR I=0 TO 3
710 CALL "APNT"(X,Y,-8,-8,-8)
720 CALL "VECT"(70,-18)
730 CALL "APNT"(X,Y,-8,-8,-8)
740 CALL "VECT"(-135,-70)
745 X=X-200\Y=Y-35
750 NEXT I
800 X=670\Y=820
805 FOR I=0 TO 4
810 CALL "APNT"(X,Y,-8,-8,-8)
815 CALL "VECT"(-45,-10)
820 CALL "APNT"(X,Y,-8,-8,-8)
825 IF I<>4 THEN 830 \CALL "VECT"(245,-105)\GO TO 845
830 CALL "VECT"(140,-60)
845 X=X+200\Y=Y-37\NEXT I
900 CALL "APNT"(100,690,-8,-8,-8)
910 CALL "VECT"(0,-390)
920 CALL "VECT"(600,-300)
940 CALL "VECT"(0,300)
950 CALL "APNT"(700,0,-8,-8,-8)
960 CALL "VECT"(1025,500)
970 CALL "VECT"(0,60)
980 CALL "APNT"(420,840,-8,-8,-8)
990 CALL "VECT"(0,-300)
1000 CALL "APNT"(500,400)
1010 CALL "VECT"(50,35)
1020 CALL "APNT"(500,450)
1030 CALL "VECT"(50,35)
1040 CALL "APNT"(300,550)
1050 CALL "VECT"(50,35)
1060 CALL "APNT"(300,600)
1070 CALL "VECT"(50,35)
1080 CALL "APNT"(305,750)
1090 CALL "VECT"(-50,20)
1100 CALL "APNT"(305,800)
1110 CALL "VECT"(-50,15)
1150 CALL "APNT"(1200,100,-8,-8,-8)
1160 CALL "TEXT"("ESCHER")
1162 CALL "APNT"(0,0,-8,-8,-8)
1163 CALL "TEXT"("HH")
1180 CALL "APNT"(700,325,0,-8,-8,-8)
1200 CALL "FIGR"(A,0,-5)
1210 CALL "VECT"(-20,0)\CALL "VECT"(-20,10)
1220 CALL "VECT"(-10,20)\CALL "VECT"(0,20)
1230 CALL "VECT"(10,20)\CALL "VECT"(20,10)
1240 CALL "VECT"(30,0)\CALL "VECT"(20,-10)
1250 CALL "VECT"(10,-20)\CALL "VECT"(0,-10)
1260 CALL "VECT"(-10,-20)\CALL "VECT"(-20,-10)
1390 D=0\E=50
1400 Y1=280
1410 X1=-400\N=2\Y2=50
1435 X9=0\Y9=0
1440 GOSUB 2000
1450 X1=150\Y1=100\N=1
1460 Y2=50
1490 GOSUB 2000
1500 X1=1000
1510 Y1=-200
1530 N=5
1535 Y2=50
1540 GOSUB 2000
1550 X1=-725
1560 Y1=-160
1570 N=4
1575 Y2=50
1580 GOSUB 2000
1600 GO TO 1400
2000 Y3=INT((Y1-N*Y2)/N+1)
2005 X3=INT(X1/N+1)
2007 X5=1\Y5=1
2008 IF Y1>0 THEN 2009 \Y5=-1
2009 IF X1>0 THEN 2010 \X5=-1
2010 P=0
2011 Y5=Y5*2\X5=X5*2
2012 P1=Y3/X3
2018 FOR J=1 TO N+1
2020 FOR I=0 TO X3 STEP X5
2030 CALL "APUT"(A(0),I+X3*P+X9)
2040 CALL "APUT"(A(1),I*P1+P*(Y3+Y2)+Y9)
2050 NEXT I
2065 IF J>=N+1 THEN 2095
2067 Y5=1\IF Y2>0 THEN 2070 \Y5=-1
2070 FOR I=0 TO Y2 STEP Y5
2080 CALL "APUT"(A(1),I+(P+1)*Y3+P*Y2+Y9)
2090 NEXT I
2095 P=P+1
2100 NEXT J
2110 P=P-1
2120 X9=I+X3*P+X9
2130 Y9=I*P1+P*(Y3+Y2)+Y9
2200 RETURN
5 PRINT "HOUR: ";\INPUT S6
7 PRINT "MIN : ";\INPUT S7
8 PRINT "DATE: ";\INPUT A$
10 DIM A(200)
20 B4=0\S8=0
25 P5=1
30 GOSUB 5000
40 CALL "TIME"(600)
100 CALL "INIT"
200 CALL "SCAL"(0,0,1000,825)
202 GOSUB 255
205 GOSUB 4000
220 CALL "SUBP"(3)
240 CALL "APNT"(600,160,0,-5)
242 CALL "TEXT"(P$&" "&STR$(A1)&" "&STR$(A2)&" . "&STR$(A3))
244 CALL "ESUB"\GO TO 1000
255 FOR I=0 TO 4
260 FOR J=0 TO 2
265 IF I=3 THEN 300
270 CALL "APNT"(600+I*50+J*3,0,1,5)
280 CALL "VECT"(0,150,1,5)
290 NEXT J
300 NEXT I
305 RETURN
400 CALL "LPEN"(H,T,X1,Y1)
410 CALL "TIMR"(T2)
412 IF T2=0 THEN 7000
414 T3=T2
415 CALL "TIMR"(T4)
416 IF T4=0 THEN 420 \IF T42 THEN 430
427 CALL "ERAS"(2)\CALL "DSAV"\GO TO 1000
430 D=INT(Y1/15)\F=INT((X1-575)/50)
440 IF F<>0 THEN 444 \IF D<5 THEN 442 \P$="+"\GO TO 500
442 P$="-"\GO TO 500
444 IF F<>1 THEN 448 \A1=D\GO TO 500
448 IF F<>2 THEN 452 \A2=D\GO TO 500
452 IF F<>3 THEN 456 \GO TO 500
456 IF F<>4 THEN 500 \A3=D\GO TO 500
500 D8=VAL(P$&STR$(A1)&STR$(A2)&STR$(A3))/10
510 CALL "ERAS"(3)
520 CALL "ERAS"(2)
550 CALL "DSAV"
600 GO TO 220
1000 CALL "SUBP"(2)
1020 CALL "APNT"(300,120,1,-8,B1)
1040 CALL "TEXT"("*** SET "&STR$(D1))
1060 CALL "APNT"(300,90,1,-8,B2)
1080 CALL "TEXT"("*** HIGH "&STR$(D2))
1100 CALL "APNT"(300,60,1,-8,B3)
1120 CALL "TEXT"("*** LOW "&STR$(D3))
1130 CALL "APNT"(850,450,0,-8,-1)
1140 CALL "ESUB"
1470 IF X1>600 THEN 400
1500 Y1=INT((Y1-60)/30)
1505 B1=-1\B2=-2\B3=-3
1507 B5=Y1+2
1510 IF Y1<>0 THEN 1530 \B2=1\IF X1<350 THEN 400 \D2=D8\GO TO 400
1530 IF Y1<>1 THEN 1550 \B1=1\IF X1<350 THEN 400 \D1=D8\GO TO 400
1550 B5=1\B3=1\IF X1<350 THEN 400 \D3=D8\GO TO 400
4000 CALL "SUBP"(4)
4001 CALL "APNT"(850,450,0,-8,-1)
4002 CALL "TEXT"("TIME")
4003 CALL "APNT"(850,400,0,-8,-1)
4004 CALL "TEXT"(STR$(S6)&":"&STR$(S7)&":"&STR$(10*S8))
4005 FOR I=0 TO 4
4010 CALL "APNT"(50,200+75*I,0,-8)
4020 CALL "VECT"(700,0,0,8,0,3)
4030 NEXT I
4040 FOR I=0 TO 7
4050 CALL "APNT"(50+100*I,200,0,-8)
4060 CALL "VECT"(0,300,0,8,0,3)
4070 NEXT I
4071 CALL "APNT"(850,350,0,-8,-1)
4072 CALL "TEXT"(A$)
4075 P=0
4077 CALL "STAT"(-1)
4078 CALL "RDOT"(0,0,-1)
4080 FOR I=0 TO 3
4090 FOR J=1 TO 7
4092 IF A(P)A(P+56) THEN 4096
4094 C5=-1\GO TO 4100
4096 C5=1
4100 CALL "APNT"(-40+J*100,480-I*75,0,-8)
4105 CALL "RDOT"(0,0,1,-8,C5)
4110 CALL "TEXT"(STR$((P5-1)*28+P+1))
4115 P=P+1
4120 NEXT J\NEXT I
4125 CALL "RDOT"(0,0,1,-8,-1)
4135 CALL "STAT"(1,-1)
4136 CALL "RDOT"(0,0,-1,-8)
4137 GOSUB 8000
4138 P=0\O1=0\O2=+10
4139 O2=0
4140 GOSUB 4300
4150 P=0\O1=B5
4151 O2=20
4160 GOSUB 4300
4165 CALL "ESUB"
4170 RETURN
4300 FOR I=0 TO 3\FOR J=1 TO 7
4310 CALL "APNT"(-40+J*100,450-O2-I*75,0,-8,0,1)
4320 CALL "TEXT"(STR$(A(P+O1*28)))
4330 P=P+1
4340 NEXT J\NEXT I
4350 RETURN
5000 REM
5015 FOR I=0 TO 27
5017 IF A(I+84)=0 THEN 5030
5020 A9=(RND(Z)*10)-5+A(I+84)
5021 A(I)=INT(A9*10)/10
5030 NEXT I
5040 RETURN
6000 X1=INT((X1-60)/100+.5)+1
6010 Y1=ABS(INT((Y1-225)/75)-3)
6015 IF Y1>=4 THEN 400
6020 X1=7*Y1+X1
6021 PRINT CHR$(7);\X1=X1-1
6022 A(X1+28)=D3\A(X1+56)=D2\A(X1+84)=D1
6026 D7=D3
6030 GO TO 400
7000 GOSUB 5000 \CALL "ERAS"(4)\CALL "DSAV"
7001 S8=S8+1
7002 IF S8<>6 THEN 7005 \S8=0\S7=S7+1\IF S7<>60 THEN 7005 \S7=0\S6=S6+1
7003 IF S6<>24 THEN 7005 \S6=0
7005 GOSUB 4000
7007 CALL "APNT"(0,0,0,-1)
7010 CALL "TIME"(600)\GO TO 400
8000 CALL "APNT"(0,600,0,-8,-1)
8010 CALL "TEXT"("SECTION:")
8020 FOR I=1 TO 15
8030 CALL "APNT"(100+50*I,600,0,-8)
8035 C6=-1\IF I<>P5 THEN 8040 \C6=1
8040 CALL "RDOT"(0,0,1,-8,C6)
8050 CALL "TEXT"(STR$(I))
8060 NEXT I
8070 CALL "RDOT"(0,0,-1,-8,-1)
8080 RETURN
90 DIM T(20)
100 PRINT "THIS SIMULATION LETS YOU SPECIFY THE INITIAL VELOCITY"
110 PRINT "OF A BALL THROWN STRAIGHT UP, AND THE COEFFICIENT OF"
120 PRINT "ELASTICITY OF THE BALL. PLEASE USE A DECIMAL FRACTION"
130 PRINT "COEFFICIENT (LESS THAN 1)."
131 PRINT
132 PRINT "YOU ALSO SPECIFY THE TIME INCREMENT TO BE USED IN"
133 PRINT "'STROBING' THE BALL'S FLIGHT (TRY .1 INITIALLY)."
134 PRINT
135 PRINT "TIME INCREMENT (SEC)";
136 INPUT S2
140 PRINT
150 PRINT "VELOCITY (FPS)";
160 INPUT V
165 PRINT
170 PRINT "COEFFICIENT";
180 INPUT C
184 PRINT
185 PRINT "FEET"
186 PRINT
187 S1=INT(70/(V/(16*S2)))
190 FOR I=1 TO S1
200 T(I)=V*C^(I-1)/16
210 NEXT I
220 FOR H=INT(-16*(V/32)^2+V^2/32+.5) TO 0 STEP -.5
221 IF INT(H)<>H THEN 225
222 PRINT H;
225 L=0
230 FOR I=1 TO S1
240 FOR T=0 TO T(I) STEP S2
245 L=L+S2
250 IF ABS(H-(.5*(-32)*T^2+V*C^(I-1)*T))>.25 THEN 270
260 PRINT TAB(L/S2);"O";
270 NEXT T
275 T=T(I+1)/2
276 IF -16*T^2+V*C^(I-1)*T0 THEN 176
190 CALL "ERAS"(1)
195 CALL "INIT"
200 NEXT I
210 GO TO 10
220 END
0 CALL "INIT"
10 CALL "INIT"
15 FOR I=0 TO 80 STEP 10
16 CALL "SUBP"(1)
18 CALL "SCAL"(10-I,0,110-I,100)
30 CALL "APNT"(10,10,0,-5)
40 CALL "VECT"(10,30)
50 CALL "VECT"(10,-30)
60 CALL "APNT"(20,40,0,-5)
70 CALL "VECT"(0,30)
80 CALL "APNT"(10,50,0,-5)
90 CALL "VECT"(10,10)
100 CALL "VECT"(10,-10)
110 FOR X=0 TO 5 STEP .1
120 LET Y=SQR(25-X^2)
130 CALL "APNT"(20+X,75+Y)
140 CALL "APNT"(20+X,75-Y)
150 CALL "APNT"(20-X,75+Y)
160 CALL "APNT"(20-X,75-Y)
170 NEXT X
172 CALL "ESUB"
175 CALL "TIME"(50)
176 CALL "TIMR"(T)
177 IF T>0 THEN 176
190 CALL "ERAS"(1)
195 CALL "INIT"
200 NEXT I
210 GO TO 10
220 END
100 REM BASIC/RT-11 DEMONSTRATION PROGRAM
100 REM DEC-11-ORCPA-A-LA3
100 REM COPYRIGHT 1973, DIGITAL EQUIPMENT CORPORATION.
100 REM MAYNARD, MASSACHUSETTS 01754
100 REM DEC ASSUMES NO RESPONSIBILITY FOR THE
100 REM USE OR RELIABILITY OF ITS SOFTWARE ON
100 REM EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
100 REM BASIC PROGRAM USING CALL STATEMENT
116 REM CALL USER FUNCTION BITS WHICH COUNTS
118 REM THE NUMBER OF BITS SET IN A NUMBER.
120 INPUT A
122 IF A=0 THEN STOP
124 CALL "BITS" (A,X)
126 PRINT X
128 GO TO 25
130 END
10
20 REM BASIC/RT-11 DEMONSTRATION PROGRAM
30
40 REM DEC-11-ORCPA-A-LA3
50
60 REM COPYRIGHT 1973, DIGITAL EQUIPMENT CORPORATION.
70 REM MAYNARD, MASSACHUSETTS 01754
80
90 REM DEC ASSUMES NO RESPONSIBILITY FOR THE
100 REM USE OR RELIABILITY OF ITS SOFTWARE ON
110 REM EQUIPMENT WHICH IS NOT SUPPLIED BY DEC.
120
130
140
150 REM BASIC PROGRAM USING CALL STATEMENT
160 REM CALL USER FUNCTION BITS WHICH COUNTS
170 REM THE NUMBER OF BITS SET IN A NUMBER.
180 INPUT A
190 IF A=0 THEN STOP
200 CALL "BITS" (A,X)
210 PRINT X
220 GO TO *???*
230 END
1000 REM *** GAME OF ROULETTE WRITTEN BY DAVID JOSLIN
1010 REM *** CONVERTED TO BASIC-PLUS BY DAVID AHL, DIGITAL
1020 PRINT "WELCOME TO THE ROULETTE TABLE"
1030 PRINT \PRINT "WANT INSTRUCTIONS (Y OR N)";
1040 INPUT Y$
1060 IF Y$="N" THEN 1550
1070 PRINT
1080 PRINT "THIS IS THE BETTING LAYOUT"
1090 PRINT "