image of READY prompt

Wang2200.org

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