Anthony P. Solli
PROGRAM 1010
5 REM PROGRAM TO PLOT NUMBER TO RANDOM NUMBER
6 REM X = NUMBER TIMES 1000
7 REM Y = RANDOM NUMBER
10 CALL (50,1)
20 DIM U[10,200]
30 CALL (3.U[1,1],4000)
40 FOR J=1 TO 242
50 READ A,B,C,D
55 LET Y=RND(1)*9999
81 LET X=(A*1000)+(B*100)+(C*10)
90 LET P=0
95 CALL (1,P,1,X,Y)
100 CALL (2,200,0,0,200)
111 PRINT “0”
120 PRINT TAB(5);”X”;X;TAB(5);”Y=”;Y;A;B;C;D
130 NEXT J
1000 DATA l,6,2,77.0316,6,0,6,77.0317,5,0,1,77.0318
1005 DATA 0,1,5,77.0319,0,4,3,77.0321,9,0,0,77.0322
1010 DATA 0,0,2,77.0323,8,7,8,77.0324,7,0,5,77.0325
1015 DATA 9,7,4,77.0324,0,1,5,77.0328,9,7,9,77.0329
1020 DATA 3,6,0,77.033,0,2,9,77.0331,3,0,0,77.0401
1025 DATA 3,4,1,77.0402,0,0,9,77.0404,8,0,2,77.0405
1030 DATA 1,8,4,77.0406,9,4,3,77.0407,0,9,0,77.0409
1035 DATA 4,5,7,77.0411,0,0,6,77.0412,0,5,3,77.0413
1040 DATA 4,3,4,77.0414,7,8,9,77.0415,4,7,0,77.0416
1045 DATA 4,4,6,77.0418,5,6,6,77.0419,9,5,5,77.042
1050 DATA 2,1,7,77.0421,3,8,7,77.0422,8,5,4,77.0423
1055 DATA 5,1,7,77.0425,6,5,2,77.0426,9,4,0,77.0427
1060 DATA 9,3,0,77.0428,5,2,9,77.0429,5,4,4,77.043
¥
¥
¥
3150 DATA 8,7,2,81.0603,3,7,6,81.0604,0,8,0,81.0605
3155 DATA 9,0,6,81.0606,4,2,4,81.0608,6,9,5,81.0609
3160 DATA 4,9,8,81.061,8,9,9,81.0611,0,6,7,81.0612
3165 DATA 1,7,3,81.0613,0,3,2,81.0615,9,9,2,81.0616
3170 DATA 8,6,0,81.0617,5,2,8,81.0618,5,4,2,81.0619
3175 DATA 5,4,8,81.062,7,9,9,81.0622,3,4,7,81.0623
3180 DATA 4,5,6,81.0624,7,1,7,81.0625,0,9,5,81.0626
3185 DATA 5,9,7,81.0627,4,4,8,81.0629,0,0,8,81.063
