Anthony P. Solli
PROGRAM 1001
5 REM PROGRAM TO PLOT HUNDRED DIGITS TO TEN DIGITS
6 REM X=HUNDRED DIGIT TIMES 1000
7 REM Y=TEN DIGIT TIMES 1000
10 CALL (50,1)
20 DIM U[10,200]
30 CALL (3,U[1,1],4000)
40 FOR J=1 TO 100
5O READ A,B,C,D
55 LET X=A*1000
81 LET Y=B*1000
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 1,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
¥
¥
¥
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,8l,0608,6,9,5,81.0609
3160 DATA 4,9,8,8l,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
9999 END
For an understanding of the CALL statements in BASIC, the reader is referred to the Hewlett Packard guide to 2100 series mini computers.
