d0p1/ack
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

*** empty log message ***

Browse source
This commit is contained in:
keie 1985-02-16 22:09:05 +00:00
parent 14875e6ca5
commit 43a2b60360
46 changed files with 326 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lang/basic/test/bull.b.g Normal file
View file

@ -0,0 +1,12 @@
game of bullseye
in this game, up to 20 players throw darts at a target
with 10,20,30, and 40 point zones. The objective is
toget 200 point.
throw description probable score
1 fast overarm bullseye or complete miss
2 controlled overarm 10,20,30 points
3 underarm anything
how many players?LINE 110:ERROR 2: Out of data

12
lang/basic/test/buzzword.b.g Normal file
View file

@ -0,0 +1,12 @@
This computer program demonstration us a new aid for
preparing speeches and briefings. It's a buzzword
generator which provides you with a set of three higly
acceptablewords to work into your material. The words
don't actually mean anything, but they sound great.
the procedure:
Think of any three numbers between 0 and 9, enter
them after the '?' separated by commas. your
buzzword will be printed out. Typing 100 for
each of your choices stops this program.
What are your three numbers?LINE 260:ERROR 2: Out of data

34
lang/basic/test/grafiek.b.g Normal file
View file

@ -0,0 +1,34 @@
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
I * .
I * .
I * .
I * .
I . *
I . *
I . *
I
. *
. I *
. I *
. I *
. I *
. I *
. I *
. I *
. * I
. * I
. * I
. * I
* . I
* . I
* . I
* .
I
* I .
* I .
* I .
* I .
* I .
* I .
* I .

15
lang/basic/test/gunner.b.g Normal file
View file

@ -0,0 +1,15 @@
this program simulates the results
of firing a field artillery weapon
you are the officer-in-charge, giving orders to the gun
crew, telling them the degrees of elevation you estimate
will place the projectile on target. A hit within 100 yards
of the target will destroy it. Take more than 5 shots,
end the enemy will destroy you!
maximum range of your gun is 46500 yards.
distance to the target is 43000 yards....
elevation?LINE 410:ERROR 2: Out of data

1
lang/basic/test/learn.b.g Normal file
View file

@ -0,0 +1 @@
how many variable have you?LINE 20:ERROR 2: Out of data

1
lang/basic/test/opg1.b.g Normal file
View file

@ -0,0 +1 @@
percent interest is 0.000173

1
lang/basic/test/opg2.b.g Normal file
View file

@ -0,0 +1 @@
square root of 81 equals 9

21
lang/basic/test/opg3.b.g Normal file
View file

@ -0,0 +1,21 @@
n n2 n3 1/n square root
1 1 1 1 1
2 4 8 0.5 1.414214
3 9 27 0.333333 1.732051
4 16 64 0.25 2
5 25 125 0.2 2.236068
6 36 216 0.166667 2.44949
7 49 343 0.142857 2.645751
8 64 512 0.125 2.828427
9 81 729 0.111111 3
10 100 1000 0.1 3.162278
11 121 1331 0.090909 3.316625
12 144 1728 0.083333 3.464102
13 169 2197 0.076923 3.605551
14 196 2744 0.071429 3.741657
15 225 3375 0.066667 3.872983
16 256 4096 0.0625 4
17 289 4913 0.058824 4.123106
18 324 5832 0.055556 4.242641
19 361 6859 0.052632 4.358899
20 400 8000 0.05 4.472136

21
lang/basic/test/opg4.b.g Normal file
View file

@ -0,0 +1,21 @@
n n2 n3 1/n square root
1 1 1 1 1
2 4 8 0.5 1.414214
3 9 27 0.333333 1.732051
4 16 64 0.25 2
5 25 125 0.2 2.236068
6 36 216 0.166667 2.44949
7 49 343 0.142857 2.645751
8 64 512 0.125 2.828427
9 81 729 0.111111 3
10 100 1000 0.1 3.162278
11 121 1331 0.090909 3.316625
12 144 1728 0.083333 3.464102
13 169 2197 0.076923 3.605551
14 196 2744 0.071429 3.741657
15 225 3375 0.066667 3.872983
16 256 4096 0.0625 4
17 289 4913 0.058824 4.123106
18 324 5832 0.055556 4.242641
19 361 6859 0.052632 4.358899
20 400 8000 0.05 4.472136

1
lang/basic/test/opg5.b.g Normal file
View file

@ -0,0 +1 @@
largest number is 263

18
lang/basic/test/opg6.b.g Normal file
View file

@ -0,0 +1,18 @@
fahrenheit centrigrade kelvin rankin
144 0.00496 273.00496 604
36 0.138889 273.138889 496
110 0.007123 273.007123 570
98 0.008418 273.008418 558
63 0.017921 273.017921 523
26 -0.092593 272.907407 486
14 -0.030864 272.969136 474
78 0.012077 273.012077 538
66 0.01634 273.01634 526
51 0.02924 273.02924 511
107 0.007407 273.007407 567
2 -0.018519 272.981481 462

2
lang/basic/test/som4.b.g Normal file
View file

@ -0,0 +1,2 @@
beginwaarde =a
?LINE 20:ERROR 2: Out of data

3
lang/basic/test/test01.b.g Normal file
View file

@ -0,0 +1,3 @@
hello world
a happy 1984
a happy 1984 !!

3
lang/basic/test/test02.b.g Normal file
View file

@ -0,0 +1,3 @@
1
2
3

2
lang/basic/test/test03.b.g Normal file
View file

@ -0,0 +1,2 @@
1
2

5
lang/basic/test/test04.b.g Normal file
View file

@ -0,0 +1,5 @@
1
2
1
12
hello

2
lang/basic/test/test05.b.g Normal file
View file

@ -0,0 +1,2 @@
1 hello
Break in 130

13
lang/basic/test/test06.b.g Normal file
View file

@ -0,0 +1,13 @@
-1
0
1
2
3
4
5
6
7
8
9
10
11

3
lang/basic/test/test07.b.g Normal file
View file

@ -0,0 +1,3 @@
whiletest
a happy 1984
?LINE 123:ERROR 2: Out of data

3
lang/basic/test/test08.b.g Normal file
View file

@ -0,0 +1,3 @@
start
line 120
end

17
lang/basic/test/test09.b.g Normal file
View file

@ -0,0 +1,17 @@
ok
ok2
1<2
1<0
1<=2
1<=0
1>2
1>0
1>=2
1>=0
-1 and -1
-1 and 0
-1 or -1
-1 or 0
0 or 0
1<1
i=100

5
lang/basic/test/test10.b.g Normal file
View file

@ -0,0 +1,5 @@
1
line130
line140
line150
LINE 120:ERROR 1: RETURN without GOSUB

2
lang/basic/test/test11.b.g Normal file
View file

@ -0,0 +1,2 @@
1
3

3
lang/basic/test/test12.b.g Normal file
View file

@ -0,0 +1,3 @@
subroutine
succeeded
Break in 120

4
lang/basic/test/test13.b.g Normal file
View file

@ -0,0 +1,4 @@
1
line130
2 end
Break in 121

17
lang/basic/test/test14.b.g Normal file
View file

@ -0,0 +1,17 @@
help 0
ok
3
0 0
1 1
2 4
3 9
4 16
5 25
6 36
7 49
8 64
9 81
10 100
11 121
12 144
13 169

3
lang/basic/test/test15.b.g Normal file
View file

@ -0,0 +1,3 @@
menu
enter date
<null>

21
lang/basic/test/test16.b.g Normal file
View file

@ -0,0 +1,21 @@
0 0
0 1
0 2
0 3
1 0
1 1
1 2
1 3
2 0
2 1
2 2
2 3
3 0
3 1
3 2
3 3
filled
0
1
4
9

1
lang/basic/test/test17.b.g Normal file
View file

@ -0,0 +1 @@
LINE 110: FATAL ERROR: trap 8

5
lang/basic/test/test18.b.g Normal file
View file

@ -0,0 +1,5 @@
division error catched 8 130
waiting for interrupt
interrupt catched
generate error 352
LINE 520:ERROR 352: Unprintable error

5
lang/basic/test/test19.b.g Normal file
View file

@ -0,0 +1,5 @@
6
6
8 9
try to read beyond eof
LINE 147:ERROR 2: Out of data

2
lang/basic/test/test20.b.g Normal file
View file

@ -0,0 +1,2 @@
6 7 3 142 0
158

4
lang/basic/test/test21.b.g Normal file
View file

@ -0,0 +1,4 @@
1.1
2.4
3.9 4.16
1.1 2.4 3.9 4.16 11.56

4
lang/basic/test/test22.b.g Normal file
View file

@ -0,0 +1,4 @@
hello brave new world
handicap
try to read beyond
ÿ

2
lang/basic/test/test23.b.g Normal file
View file

@ -0,0 +1,2 @@
testing input from terminal
integer?LINE 130:ERROR 2: Out of data

6
lang/basic/test/test24.b.g Normal file
View file

@ -0,0 +1,6 @@
1.0+3.14= 4.14
4.14
3.19*23.6= 75.284
75.284
3.19*(23.6+23)= 148.654
148.654

3
lang/basic/test/test25.b.g Normal file
View file

@ -0,0 +1,3 @@
3.14 5.14
4
-1

17
lang/basic/test/test26.b.g Normal file
View file

@ -0,0 +1,17 @@
cint 46 -46
fix 58 -58
int 99 -13
abs 1 3.14 1 1 0
sgn-1 -1 1 1 0
asc 97 48
atn 0 1.003655 1.262481 0.463648
chra 0
cos 1 0.000796 -0.999999 0.540302
sin 0 1 0.001593 -0.841471
exp 1 4.806648 23.103867 0.367879
hex0 10 ffff
oct0 20 177777
len 0 3 1
tan 0 1255.765592 -0.001593 -1.557408
sqr 0 1.252996 1.772005
log 0.451076 1.144223

8
lang/basic/test/test27.b.g Normal file
View file

@ -0,0 +1,8 @@
130 f
140 true
150 f
160 true
170 true
yes or no
? 0
0

2
lang/basic/test/test28.b.g Normal file
View file

@ -0,0 +1,2 @@
0
LINE 22:ERROR 40: Syntax error in data

14
lang/basic/test/test29.b.g Normal file
View file

@ -0,0 +1,14 @@
-2 -1
1 0 0 0
1 1 1 0
0 1 1 0
-1 -2 -2 -1
-1 -2 -1 -1
16 =16?
14 =14?
8 =8?
6 =6?
10 is 10?
-1 =-1?
-14
-14

3
lang/basic/test/test30.b.g Normal file
View file

@ -0,0 +1,3 @@
"CAMERA","93604-1"
CAMERA
LINE 150:ERROR 29: Bad file mode

0
lang/basic/test/test31.b.g Normal file
View file

3
lang/basic/test/test32.b.g Normal file
View file

@ -0,0 +1,3 @@
mo
nsa

2
lang/basic/test/test33.b.g Normal file
View file

@ -0,0 +1,2 @@
3123
3123

0
lang/basic/test/test35.b.g Normal file
View file