Listing of file='TBO.FALO' on disk='vmedia/toolbox.wvd.zip'
# Sector 781, program filename = 'TBO.FALO' 0010 REM TBO.FALO FIND LOCATIONS IN A 3D ARRAY 0020 PRINT HEX(03);"FIND LOCATIONS IN A 3D ARRAY" 0030 DEFFN'1 : D1=128 : D2=4 : D3=16 0040 INPUT "ARRAY DIMENSIONS (D1,D2),D3 ARE",D1,D2,D3 0050 L=5227 0060 INPUT "LOCATION WANTED IS ",L 0070 PRINT "ARRAY IS (";D1;D2;")";D3 0080 PRINT "LOCATION ";L 0090 R=INT((L-1)/(D2*D3)) 0100 REM VP CODE... X=MOD(L-1,(D2*D3)) : C=INT(X/D3) 0110 REM VP CODE... P=MOD(X,D3) 0200 REM X=MOD(Y,Z) IS SAME AS 0210 REM X=Y-Z*INT(Y/Z) 0220 Y=L-1 : Z=D2*D3 0230 X=Y-Z*INT(Y/Z) : C=INT(X/D3) 0240 Y=X : Z=D3 0250 P=Y-Z*INT(Y/Z) 0260 PRINT L; "IS AT (";R+1;",";C+1;"),";P+1 0270 GOTO 60